fix bad test in tabling mode.

This commit is contained in:
Vitor Santos Costa 2009-11-19 08:33:10 +00:00
parent d476e36a90
commit 8c1ba9562a

View File

@ -23,7 +23,7 @@
insert_into_global_sg_fr_list(sg_fr);
} else
#endif /* LIMIT_TABLING */
if ((ADDR) pt >= Yap_TrailBase) {
if (IN_BETWEEN(Yap_TrailBase, pt, Yap_TrailTop)) {
/* skip, this is a problem because we lose information,
namely active references */
pt1 = (tr_fr_ptr)pt;