make sure we do trim_trail whenever we mess with B!
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2258 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
5
C/exec.c
5
C/exec.c
@@ -1789,7 +1789,7 @@ p_restore_regs2(void)
|
||||
#endif /* TABLING */
|
||||
B = pt0;
|
||||
HB = B->cp_h;
|
||||
/* trim_trail();*/
|
||||
Yap_TrimTrail();
|
||||
}
|
||||
return(TRUE);
|
||||
}
|
||||
@@ -1852,7 +1852,8 @@ p_cut_up_to_next_disjunction(void) {
|
||||
abolish_incomplete_subgoals(B);
|
||||
#endif /* TABLING */
|
||||
}
|
||||
/* trim_trail(); */
|
||||
HB = B->cp_h;
|
||||
Yap_TrimTrail();
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
|
Reference in New Issue
Block a user