[Yap-commits] CVS: C mavar.c,1.3,1.4

[Vitor S. C. <vs...@us...>]

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);