we should only recover H after we backtrack, never before.
This commit is contained in:
parent
cef6c9da36
commit
945fff50a2
3
C/exec.c
3
C/exec.c
@ -1631,7 +1631,8 @@ JumpToEnv(Term t) {
|
|||||||
to the emulator */
|
to the emulator */
|
||||||
P = (yamop *)FAILCODE;
|
P = (yamop *)FAILCODE;
|
||||||
/* try to recover space */
|
/* try to recover space */
|
||||||
H = B->cp_h;
|
/* can only do that when we recover space */
|
||||||
|
/* H = B->cp_h; */
|
||||||
t = clean_trail(t, dbt, B->cp_a1);
|
t = clean_trail(t, dbt, B->cp_a1);
|
||||||
B->cp_a3 = t;
|
B->cp_a3 = t;
|
||||||
if (first_func != NULL) {
|
if (first_func != NULL) {
|
||||||
|
Reference in New Issue
Block a user