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

fix threaded error handling.

Browse Source
This commit is contained in:
Vitor Santos Costa 2010-07-30 00:57:46 +01:00
parent b95e0ae629
commit 8d5aa09e05
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
C/cdmgr.c
View File

@ -3567,9 +3567,6 @@ p_all_envs(void)
static Int static Int
p_current_stack(void) p_current_stack(void)
{ {
#ifdef YAPOR
return(FALSE);
#else
Term t; Term t;
while ((t = all_calls()) == 0L) { while ((t = all_calls()) == 0L) {
if (!Yap_gcl(Yap_Error_Size, 1, ENV, gc_P(P,CP))) { if (!Yap_gcl(Yap_Error_Size, 1, ENV, gc_P(P,CP))) {
@ -3578,7 +3575,6 @@ p_current_stack(void)
} }
} }
return Yap_unify(ARG1,t); return Yap_unify(ARG1,t);
#endif
} }
/* This predicate is to be used by reconsult to mark all predicates /* This predicate is to be used by reconsult to mark all predicates