small fixes:

- fix consult as reconsult
- declaring P twice as thread_local confused yap
- missing UNLOCK.
This commit is contained in:
Vitor Santos Costa 2014-04-24 12:54:08 +01:00
parent 1db83cc30d
commit 05ac1dc920
1 changed files with 1 additions and 1 deletions

View File

@ -2020,7 +2020,7 @@ not_was_reconsulted(PredEntry *p, Term t, int mode)
} }
if (fp != LOCAL_ConsultBase) { if (fp != LOCAL_ConsultBase) {
return FALSE; return FALSE;
} else if (!mode) { // consulting again a predicate in the original file. } else if (mode) { // consulting again a predicate in the original file.
if ((p->cs.p_code.NOfClauses && if ((p->cs.p_code.NOfClauses &&
p->src.OwnerFile == Yap_ConsultingFile( PASS_REGS1 ) && p->src.OwnerFile == Yap_ConsultingFile( PASS_REGS1 ) &&
p->src.OwnerFile != AtomNil && p->src.OwnerFile != AtomNil &&