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

fix multifile handling.

This commit is contained in:
Vitor Santos Costa 2014-04-24 14:24:27 +01:00
parent 05ac1dc920
commit 4867563b09
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

@ -2024,10 +2024,15 @@ not_was_reconsulted(PredEntry *p, Term t, int mode)
if ((p->cs.p_code.NOfClauses &&
p->src.OwnerFile == Yap_ConsultingFile( PASS_REGS1 ) &&
p->src.OwnerFile != AtomNil &&
!(p->PredFlags & MultiFileFlag) &&
p->src.OwnerFile != AtomUserIn) ) {
//if (p->ArityOfPE)
// printf("+ %s %s %d\n",NameOfFunctor(p->FunctorOfPred)->StrOfAE,p->src.OwnerFile->StrOfAE, p->cs.p_code.NOfClauses);
retract_all(p, static_in_use(p,TRUE));
return TRUE;
}
// else if (p->ArityOfPE && p->cs.p_code.NOfClauses)
// printf("- %s %s\n",NameOfFunctor(p->FunctorOfPred)->StrOfAE,p->src.OwnerFile->StrOfAE);
}
if (mode) {
if (LOCAL_ConsultSp == LOCAL_ConsultLow+1) {