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

assert logupd should set the clause in use (obs by Jose Santos).

Browse Source
This commit is contained in:
Costa Vitor 2009-08-12 10:00:38 -05:00
parent 068242a833
commit dccf3cf8a2
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
C/cdmgr.c
View File

@ -2238,7 +2238,17 @@ addclause(Term t, yamop *cp, int mode, Term mod, Term *t4ref)
} }
UNLOCK(p->PELock); UNLOCK(p->PELock);
if (pflags & LogUpdatePredFlag) { if (pflags & LogUpdatePredFlag) {
tf = MkDBRefTerm((DBRef)ClauseCodeToLogUpdClause(cp)); LogUpdClause *cl = (DBRef)ClauseCodeToLogUpdClause(cp);
tf = MkDBRefTerm((DBRef)cl);
#if defined(YAPOR) || defined(THREADS)
TRAIL_CLREF(cl); /* So that fail will erase it */
INC_CLREF_COUNT(cl);
#else
if (!(cl->ClFlags & InUseMask)) {
cl->ClFlags |= InUseMask;
TRAIL_CLREF(cl); /* So that fail will erase it */
}
#endif
} else { } else {
tf = Yap_MkStaticRefTerm(ClauseCodeToStaticClause(cp)); tf = Yap_MkStaticRefTerm(ClauseCodeToStaticClause(cp));
} }