cut point should be initialised when bootrapping a new goal
This commit is contained in:
parent
743c9c69fb
commit
f0bc4fb458
1
C/exec.c
1
C/exec.c
@ -1173,6 +1173,7 @@ Yap_PrepGoal(UInt arity, CELL *pt, choiceptr saved_b USES_REGS)
|
|||||||
B->cp_depth = DEPTH;
|
B->cp_depth = DEPTH;
|
||||||
#endif /* DEPTH_LIMIT */
|
#endif /* DEPTH_LIMIT */
|
||||||
YENV = ASP = (CELL *)B;
|
YENV = ASP = (CELL *)B;
|
||||||
|
YENV[E_CB] = (CELL)B;
|
||||||
HB = H;
|
HB = H;
|
||||||
CP = YESCODE;
|
CP = YESCODE;
|
||||||
}
|
}
|
||||||
|
Reference in New Issue
Block a user