new scheme for flags.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@949 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2003-12-04 18:13:04 +00:00
parent 945adacdd5
commit 4c264a968a
12 changed files with 48 additions and 56 deletions

View File

@@ -1092,7 +1092,7 @@ addclause(Term t, yamop *cp, int mode, int mod)
}
}
if (compile_mode)
p->PredFlags = p->PredFlags | CompiledPredFlag | FastPredFlag;
p->PredFlags = p->PredFlags | CompiledPredFlag;
else
p->PredFlags = p->PredFlags | CompiledPredFlag;
}
@@ -1813,7 +1813,7 @@ p_new_multifile(void)
pe->PredFlags |= MultiFileFlag;
if (!(pe->PredFlags & (DynamicPredFlag|LogUpdatePredFlag))) {
/* static */
pe->PredFlags |= SourcePredFlag;
pe->PredFlags |= (SourcePredFlag|CompiledPredFlag);
}
WRITE_UNLOCK(pe->PRWLock);
return (TRUE);