fix bad test in tabling mode.
This commit is contained in:
parent
d476e36a90
commit
8c1ba9562a
@ -23,7 +23,7 @@
|
|||||||
insert_into_global_sg_fr_list(sg_fr);
|
insert_into_global_sg_fr_list(sg_fr);
|
||||||
} else
|
} else
|
||||||
#endif /* LIMIT_TABLING */
|
#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,
|
/* skip, this is a problem because we lose information,
|
||||||
namely active references */
|
namely active references */
|
||||||
pt1 = (tr_fr_ptr)pt;
|
pt1 = (tr_fr_ptr)pt;
|
||||||
|
Reference in New Issue
Block a user