2001-04-09 20:54:03 +01:00
|
|
|
/*************************************************************************
|
|
|
|
* *
|
|
|
|
* YAP Prolog %W% %G% *
|
|
|
|
* Yap Prolog was developed at NCCUP - Universidade do Porto *
|
|
|
|
* *
|
|
|
|
* Copyright L.Damas, V.S.Costa and Universidade do Porto 1985-1997 *
|
|
|
|
* *
|
|
|
|
**************************************************************************
|
|
|
|
* *
|
|
|
|
* File: Tags_32Ops.h.m4 *
|
|
|
|
* Last rev: December 90 *
|
|
|
|
* mods: *
|
|
|
|
* comments: Original Tag Scheme for machines with 32 bits adresses *
|
2003-06-06 14:16:40 +01:00
|
|
|
* version: $Id: Tags_64bits.h.m4,v 1.3 2003-06-06 13:16:40 vsc Exp $ *
|
2001-04-09 20:54:03 +01:00
|
|
|
*************************************************************************/
|
|
|
|
|
|
|
|
#define TAG_64BITS 1
|
|
|
|
|
|
|
|
/* Version for 64 bit addresses machines,
|
|
|
|
Each term is represented internally as an unsigned 64 bit integer as
|
|
|
|
follows:
|
|
|
|
tag value
|
|
|
|
ints 0m1....001 numeric value
|
|
|
|
atoms 0m0....001 offset of atom entry
|
|
|
|
pairs 0mr....011 ptr to pair
|
|
|
|
aplied functor 0mr....101 ptr to functor followed by args
|
|
|
|
undefined 0mr....000 address of cell pointing to itself
|
|
|
|
|
|
|
|
functors are represented as ptrs to the functor entry in the atom
|
|
|
|
property list
|
|
|
|
|
|
|
|
We rely on the fact that addresses are always multiple of 8.
|
|
|
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
#define SHIFT_HIGH_TAG 61
|
|
|
|
|
|
|
|
#define MKTAG(HI,LO) ((((UInt) (HI))<<SHIFT_HIGH_TAG)|(LO))
|
|
|
|
|
|
|
|
#define TagBits /* 0x30000007L */ MKTAG(0x1,7)
|
|
|
|
#define LowTagBits /* 0x00000007L */ MKTAG(0x0,7)
|
|
|
|
#define HighTagBits /* 0x70000000L */ MKTAG(0x1,0)
|
|
|
|
#define AdrHiBit /* 0x08000000L */ (((UInt)1) << (SHIFT_HIGH_TAG-1))
|
|
|
|
#define MaskPrim /* 0x0ffffff8L */ ((((UInt)1) << (SHIFT_HIGH_TAG))-8)
|
|
|
|
#define NumberTag /* 0x30000001L */ MKTAG(0x1,1)
|
|
|
|
#define AtomTag /* 0x10000001L */ MKTAG(0x0,1)
|
2001-06-27 16:14:02 +01:00
|
|
|
#define MAX_ABS_INT /* 0xfe00000LL */ (((Int)1) << (63-(2+4)))
|
2001-04-09 20:54:03 +01:00
|
|
|
|
|
|
|
/* bits that should not be used by anyone but us */
|
|
|
|
#define YAP_PROTECTED_MASK 0xe000000000000000L
|
|
|
|
|
|
|
|
#define UNIQUE_TAG_FOR_PAIRS 1
|
|
|
|
|
|
|
|
#define PrimiBit /* 0x00000001L */ 1
|
|
|
|
#define PairBits /* 0x00000003L */ 3
|
|
|
|
#define ApplBits /* 0x00000005L */ 5
|
|
|
|
#define PrimiBits /* 0x70000004L */ MKTAG(0x7,7)
|
|
|
|
#define NumberMask /* 0x20000007L */ MKTAG(0x2,7)
|
|
|
|
|
2003-06-06 14:16:40 +01:00
|
|
|
#define TagOf(t) (Unsigned(t)&TagBits)
|
2001-04-09 20:54:03 +01:00
|
|
|
#define NonTagPart(X) (Signed(X) & MaskPrim)
|
|
|
|
#define TAGGEDA(TAG,V) (TAG | Unsigned(V))
|
|
|
|
#define TAGGED(TAG,V) (TAG | NonTagPart(Unsigned(V)<<3)) /* SQRT(8) */
|
|
|
|
#define NONTAGGED(TAG,V) NonTagPart(Unsigned(V)<<3) /* SQRT(8) */
|
|
|
|
#define CHKTAG(t,Tag) ((Unsigned(t)&TagBits)==Tag)
|
|
|
|
|
|
|
|
Inline(IsVarTerm, int, Term, t, (!((t) & 0x1)))
|
|
|
|
Inline(IsNonVarTerm, int, Term, t, ((t) & 0x1))
|
|
|
|
Inline(RepPair, Term *, Term, t, ((t)-PairBits))
|
|
|
|
Inline(AbsPair, Term, Term *, p, ((CELL)(p)+PairBits))
|
|
|
|
Inline(IsPairTerm, Int, Term, t, ((t) & 0x2))
|
|
|
|
Inline(RepAppl, Term *, Term, t, ((t)-ApplBits))
|
|
|
|
Inline(AbsAppl, Term, Term *, p, ((CELL)(p)+ApplBits))
|
|
|
|
Inline(IsApplTerm, Int, Term, t, (((t) & 0x4)))
|
|
|
|
Inline(IsAtomOrIntTerm, Int, Term, t, (((t) & LowTagBits) == 0x1))
|
|
|
|
|
|
|
|
Inline2(AdjustPtr, Term, Term, t, Term, off, ((t)+off))
|
|
|
|
Inline2(AdjustIDBPtr, Term, Term, t, Term, off, (t)+off)
|
|
|
|
|
|
|
|
Inline(IntOfTerm, Int, Term, t, (Int)(Unsigned(t) << 3) >> 6)
|
|
|
|
|