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

missing unlock.

Browse Source
This commit is contained in:
Vítor Santos Costa 2013-09-21 23:19:21 +01:00
parent e7477d9888
commit 6033eba372
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
C/cdmgr.c
View File

@ -5087,6 +5087,7 @@ fetch_next_static_clause(PredEntry *pe, yamop *i_code, Term th, Term tb, Term tr
} }
P = code; P = code;
} }
UNLOCKPE(45,pe);
return TRUE; return TRUE;
} }
rtn = Yap_MkStaticRefTerm(cl); rtn = Yap_MkStaticRefTerm(cl);
@ -5129,6 +5130,7 @@ fetch_next_static_clause(PredEntry *pe, yamop *i_code, Term th, Term tb, Term tr
if (!(pe->PredFlags & SourcePredFlag)) { if (!(pe->PredFlags & SourcePredFlag)) {
rtn = Yap_MkStaticRefTerm(cl); rtn = Yap_MkStaticRefTerm(cl);
UNLOCKPE(45,pe);
return Yap_unify(tr, rtn); return Yap_unify(tr, rtn);
} }
while ((t = Yap_FetchTermFromDB(cl->usc.ClSource)) == 0L) { while ((t = Yap_FetchTermFromDB(cl->usc.ClSource)) == 0L) {
@ -5137,6 +5139,7 @@ fetch_next_static_clause(PredEntry *pe, yamop *i_code, Term th, Term tb, Term tr
LOCAL_Error_TYPE = YAP_NO_ERROR; LOCAL_Error_TYPE = YAP_NO_ERROR;
if (!Yap_growglobal(NULL)) { if (!Yap_growglobal(NULL)) {
Yap_Error(OUT_OF_ATTVARS_ERROR, TermNil, LOCAL_ErrorMessage); Yap_Error(OUT_OF_ATTVARS_ERROR, TermNil, LOCAL_ErrorMessage);
UNLOCKPE(45,pe);
return FALSE; return FALSE;
} }
} else { } else {
@ -5146,6 +5149,7 @@ fetch_next_static_clause(PredEntry *pe, yamop *i_code, Term th, Term tb, Term tr
ARG7 = tr; ARG7 = tr;
if (!Yap_gc(7, ENV, gc_P(P,CP))) { if (!Yap_gc(7, ENV, gc_P(P,CP))) {
Yap_Error(OUT_OF_STACK_ERROR, TermNil, LOCAL_ErrorMessage); Yap_Error(OUT_OF_STACK_ERROR, TermNil, LOCAL_ErrorMessage);
UNLOCKPE(45,pe);
return FALSE; return FALSE;
} }
th = ARG5; th = ARG5;
@ -5159,6 +5163,7 @@ fetch_next_static_clause(PredEntry *pe, yamop *i_code, Term th, Term tb, Term tr
ARG8 = tr; ARG8 = tr;
if (!Yap_gcl(LOCAL_Error_Size, 8, ENV, CP)) { if (!Yap_gcl(LOCAL_Error_Size, 8, ENV, CP)) {
Yap_Error(OUT_OF_STACK_ERROR, TermNil, LOCAL_ErrorMessage); Yap_Error(OUT_OF_STACK_ERROR, TermNil, LOCAL_ErrorMessage);
UNLOCKPE(45,pe);
return FALSE; return FALSE;
} }
th = ARG6; th = ARG6;