|
From: Vitor S. C. <vs...@us...> - 2001-06-11 15:12:10
|
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);
|