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

fix trail when you do a jumpenv (Ulrich Neumerkel #152)

Browse Source
This commit is contained in:
Vítor Manuel de Morais Santos Costa 2009-11-25 09:47:38 +00:00
parent 50d720a9c6
commit 7f5da32c08
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/exec.c
View File

@ -1533,6 +1533,7 @@ clean_trail(Term t, DBTerm *dbt, Term t0)
if (suspended_on_current_execution(val, t0)) { if (suspended_on_current_execution(val, t0)) {
RESET_VARIABLE(&TrailTerm(pt1)); RESET_VARIABLE(&TrailTerm(pt1));
} else { } else {
TR = pt1+1;
t = get_term(dbt, t); t = get_term(dbt, t);
Bind(pt, t); Bind(pt, t);
Yap_WakeUp(pt); Yap_WakeUp(pt);
@ -1561,6 +1562,7 @@ clean_trail(Term t, DBTerm *dbt, Term t0)
#endif /* FROZEN_STACKS */ #endif /* FROZEN_STACKS */
} }
} }
TR = pt1+1;
t = get_term(dbt, t); t = get_term(dbt, t);
return t; return t;
} }