fix bb usage of DB.
This commit is contained in:
parent
84527a8c77
commit
b2cd81f79a
25
C/absmi.c
25
C/absmi.c
@ -3148,19 +3148,22 @@ Yap_absmi(int inp)
|
|||||||
#if PARALLEL_YAP
|
#if PARALLEL_YAP
|
||||||
PredEntry *ap = cl->ClPred;
|
PredEntry *ap = cl->ClPred;
|
||||||
#endif
|
#endif
|
||||||
|
/* BB support */
|
||||||
|
if (ap) {
|
||||||
|
|
||||||
PELOCK(9,ap);
|
PELOCK(9,ap);
|
||||||
DEC_CLREF_COUNT(cl);
|
DEC_CLREF_COUNT(cl);
|
||||||
erase = (cl->ClFlags & ErasedMask) && !(cl->ClRefCount);
|
erase = (cl->ClFlags & ErasedMask) && !(cl->ClRefCount);
|
||||||
if (erase) {
|
if (erase) {
|
||||||
saveregs();
|
saveregs();
|
||||||
/* at this point,
|
/* at this point,
|
||||||
we are the only ones accessing the clause,
|
we are the only ones accessing the clause,
|
||||||
hence we don't need to have a lock it */
|
hence we don't need to have a lock it */
|
||||||
Yap_ErLogUpdCl(cl);
|
Yap_ErLogUpdCl(cl);
|
||||||
setregs();
|
setregs();
|
||||||
|
}
|
||||||
|
UNLOCK(ap->PELock);
|
||||||
}
|
}
|
||||||
UNLOCK(ap->PELock);
|
|
||||||
}
|
}
|
||||||
} else {
|
} else {
|
||||||
DynamicClause *cl = ClauseFlagsToDynamicClause(pt1);
|
DynamicClause *cl = ClauseFlagsToDynamicClause(pt1);
|
||||||
|
Reference in New Issue
Block a user