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

fix missing unlock.

Browse Source
This commit is contained in:
Vitor Santos Costa 2010-02-21 00:45:38 +00:00
parent 692a482adf
commit 12672a77e1
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
C/dbase.c
View File

@ -4631,6 +4631,7 @@ p_instance(void)
if (IsVarTerm(t2)) { if (IsVarTerm(t2)) {
Yap_unify(ARG2, (t2 = Yap_MkNewApplTerm(f,arity))); Yap_unify(ARG2, (t2 = Yap_MkNewApplTerm(f,arity)));
} else if (!IsApplTerm(t2) || FunctorOfTerm(t2) != f) { } else if (!IsApplTerm(t2) || FunctorOfTerm(t2) != f) {
UNLOCK(ap->PELock);
return FALSE; return FALSE;
} }
ptr = RepAppl(t2)+1; ptr = RepAppl(t2)+1;