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

make SWI exec safer

This commit is contained in:
Vitor Santos Costa 2013-02-06 00:17:09 +00:00
parent b34be4360b
commit 9f49512497
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2314,6 +2314,7 @@ X_API int PL_next_solution(qid_t qi)
} }
qi->state = 1; qi->state = 1;
if (result == 0) { if (result == 0) {
YAP_LeaveGoal(FALSE, &qi->h);
qi->open = 0; qi->open = 0;
} }
return result; return result;
@ -2343,9 +2344,11 @@ X_API void PL_close_query(qid_t qi)
X_API int PL_call_predicate(module_t ctx, int flags, predicate_t p, term_t t0) X_API int PL_call_predicate(module_t ctx, int flags, predicate_t p, term_t t0)
{ {
fid_t f = PL_open_foreign_frame();
qid_t qi = PL_open_query(ctx, flags, p, t0); qid_t qi = PL_open_query(ctx, flags, p, t0);
int ret = PL_next_solution(qi); int ret = PL_next_solution(qi);
PL_cut_query(qi); PL_cut_query(qi);
PL_close_foreign_frame(f);
return ret; return ret;
} }