diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

restore stack on JumpExec

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-05-23 15:51:50 -05:00
parent b9a7d24e8b
commit b5e5a671a8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/exec.c
View File

@ -1541,7 +1541,7 @@ JumpToEnv(Term t) {
B->cp_env = (CELL *)env[E_E]; B->cp_env = (CELL *)env[E_E];
B->cp_ap = NEXTOP(PredHandleThrow->CodeOfPred,l); B->cp_ap = NEXTOP(PredHandleThrow->CodeOfPred,l);
/* can recover Heap thanks to copy term :-( */ /* can recover Heap thanks to copy term :-( */
/* B->cp_h = H; */ B->cp_h = H;
/* I could backtrack here, but it is easier to leave the unwinding /* I could backtrack here, but it is easier to leave the unwinding
to the emulator */ to the emulator */
B->cp_a3 = t; B->cp_a3 = t;