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

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

Update of /cvsroot/yap/C
In directory usw-pr-cvs1:/tmp/cvs-serv31838/C

Modified Files:
	mavar.c 
Log Message:
support for configure 2.5
recover memory in catch/throw.


Index: mavar.c
===================================================================
RCS file: /cvsroot/yap/C/mavar.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- mavar.c	2001/06/08 20:23:38	1.4
+++ mavar.c	2001/06/11 15:12:07	1.5
@@ -160,6 +160,11 @@
     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);