improve the support for deterministic tabling (still experimental,
problems mainly with the garbage collector)
This commit is contained in:
12
C/cdmgr.c
12
C/cdmgr.c
@@ -5410,8 +5410,16 @@ p_choicepoint_info(void)
|
||||
case _table_trust:
|
||||
case _table_completion:
|
||||
#ifdef LOW_LEVEL_TRACER
|
||||
pe = GEN_CP(cptr)->cp_pred_entry;
|
||||
t = BuildActivePred(pe, (CELL *)(GEN_CP(B) + 1));
|
||||
#ifdef DETERMINISTIC_TABLING
|
||||
if (IS_DET_GEN_CP(cptr)) {
|
||||
pe = DET_GEN_CP(cptr)->cp_pred_entry;
|
||||
t = MkVarTerm();
|
||||
} else
|
||||
#endif /* DETERMINISTIC_TABLING */
|
||||
{
|
||||
pe = GEN_CP(cptr)->cp_pred_entry;
|
||||
t = BuildActivePred(pe, (CELL *)(GEN_CP(B) + 1));
|
||||
}
|
||||
#else
|
||||
pe = UndefCode;
|
||||
t = MkVarTerm();
|
||||
|
Reference in New Issue
Block a user