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

Partial update of tabling/SBA code to new timestamp

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@73 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2001-06-08 20:23:38 +00:00
parent 43d4b911d0
commit e8b19c99c1
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
C/mavar.c
View File

@ -149,7 +149,7 @@ Term UpdateTimedVar(Term inv, Term new)
if (B->cp_h <= timestmp if (B->cp_h <= timestmp
#if defined(SBA) || defined(TABLING) #if defined(SBA) || defined(TABLING)
&& timestmp <= (CELL)H && timestmp <= H
#endif #endif
) { ) {
/* last assignment more recent than last B */ /* last assignment more recent than last B */
@ -160,11 +160,6 @@ Term UpdateTimedVar(Term inv, Term new)
else else
#endif #endif
tv->value = new; tv->value = new;
#if defined(SBA) || defined(TABLING)
if (Unsigned((Int)(tv)-(Int)(HBREG)) >
Unsigned(BBREG)-(Int)(HBREG))
TrailVal(timestmp-1) = new;
#endif
} else { } else {
Term nclock = (Term)H; Term nclock = (Term)H;
MaBind(&(tv->value), new); MaBind(&(tv->value), new);