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

fix exception passing from SWI

Browse Source
This commit is contained in:
Vítor Santos Costa 2013-06-20 12:11:29 -05:00
parent 0726597812
commit 44dccc00bb
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
library/dialect/swi/fli/swi.c
View File

@ -2265,8 +2265,8 @@ PL_discard_foreign_frame(fid_t f)
LOCAL_execution = env->old; LOCAL_execution = env->old;
ASP = LCL0-CurSlot; ASP = LCL0-CurSlot;
B = B->cp_b; B = B->cp_b;
EX = NULL; //LOCAL_BallTerm = EX;
LOCAL_BallTerm = EX; //EX = NULL;
free(env); free(env);
} }
@ -2331,7 +2331,7 @@ X_API void PL_close_query(qid_t qi)
{ {
CACHE_REGS CACHE_REGS
EX = NULL; EX = NULL;
if (EX && !(qi->flags & (PL_Q_CATCH_EXCEPTION|PL_Q_PASS_EXCEPTION))) { if (EX && !(qi->flags & (PL_Q_CATCH_EXCEPTION))) {
EX = NULL; EX = NULL;
} }
/* need to implement backtracking here */ /* need to implement backtracking here */