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

fix handling of cut_c in SWI packages.

Browse Source
This commit is contained in:
Vítor Santos Costa 2011-02-11 17:49:19 +00:00
parent 6617a63b7e
commit 10f84228bc
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
C/c_interface.c
View File

@ -1538,6 +1538,8 @@ YAP_ExecuteFirst(PredEntry *pe, CPredicate exec_code)
BallTerm = EX; BallTerm = EX;
EX = NULL; EX = NULL;
if ((t = Yap_GetException())) { if ((t = Yap_GetException())) {
cut_c_pop();
B = B->cp_b;
Yap_JumpToEnv(t); Yap_JumpToEnv(t);
return FALSE; return FALSE;
} }
@ -1577,6 +1579,8 @@ YAP_ExecuteNext(PredEntry *pe, CPredicate exec_code)
BallTerm = EX; BallTerm = EX;
EX = NULL; EX = NULL;
if ((t = Yap_GetException())) { if ((t = Yap_GetException())) {
cut_c_pop();
B = B->cp_b;
Yap_JumpToEnv(t); Yap_JumpToEnv(t);
return FALSE; return FALSE;
} else { } else {