diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

get rid of MBIT in dbase

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@914 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2003-10-31 12:09:49 +00:00
parent a23c409540
commit 6c126a4392
2 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/corout.c
View File

@ -1160,7 +1160,7 @@ non_ground(Term t, Term *Var)
#endif
/* check whether the two terms unify and return what variables should
be bound before the terms are execatly equal */
be bound before the terms are exactly equal */
static Int p_can_unify(void)
{
#ifdef COROUTINING

13
C/dbase.c
View File

@ -626,6 +626,9 @@ copy_big_int(CELL *st, CELL *pt)
}
#endif /* BIG_INT */
#define DB_MARKED(d0) ((CELL *)(d0) < CodeMax && (CELL *)(d0) >= tbase)
/* This routine creates a complex term in the heap. */
static CELL *MkDBTerm(register CELL *pt0, register CELL *pt0_end,
register CELL *StoPoint,
@ -827,7 +830,7 @@ static CELL *MkDBTerm(register CELL *pt0, register CELL *pt0_end,
/* the code to dereference a variable */
deref_var:
if (!MARKED(d0)) {
if (!DB_MARKED(d0)) {
if (
#if SBA
d0 != 0
@ -847,14 +850,14 @@ static CELL *MkDBTerm(register CELL *pt0, register CELL *pt0_end,
pt0++;
/* first time we found this variable! */
if (!MARKED(d0)) {
if (!DB_MARKED(d0)) {
/* store previous value */
visited --;
visited->addr = ptd0;
CheckDBOverflow();
/* variables need to be offset at read time */
*ptd0 = ((CELL)StoPoint|MBIT);
*ptd0 = (CELL)StoPoint;
#if SBA
/* the copy we keep will be an empty variable */
*StoPoint++ = 0;
@ -911,9 +914,9 @@ static CELL *MkDBTerm(register CELL *pt0, register CELL *pt0_end,
#endif
/* store the offset */
#ifdef IDB_USE_MBIT
*StoPoint = d0;
*StoPoint = d0 | MBIT;
#else
*StoPoint = d0 ^ MBIT;
*StoPoint = d0;
#endif
StoPoint++;
continue;