Update of /cvsroot/yap/C
In directory usw-pr-cvs1:/tmp/cvs-serv28379/C
Modified Files:
mavar.c
Log Message:
Partial update of tabling/SBA code to new timestamp
Index: mavar.c
===================================================================
RCS file: /cvsroot/yap/C/mavar.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- mavar.c 2001/06/06 19:10:50 1.3
+++ mavar.c 2001/06/08 20:23:38 1.4
@@ -149,7 +149,7 @@
if (B->cp_h <= timestmp
#if defined(SBA) || defined(TABLING)
- && timestmp <= (CELL)H
+ && timestmp <= H
#endif
) {
/* last assignment more recent than last B */
@@ -160,11 +160,6 @@
else
#endif
tv->value = new;
-#if defined(SBA) || defined(TABLING)
- if (Unsigned((Int)(tv)-(Int)(HBREG)) >
- Unsigned(BBREG)-(Int)(HBREG))
- TrailVal(timestmp-1) = new;
-#endif
} else {
Term nclock = (Term)H;
MaBind(&(tv->value), new);
|
