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

12
C/c_interface.c
View File

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