fix lost indices in reconsult
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@937 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
@@ -1095,9 +1095,9 @@ addclause(Term t, yamop *cp, int mode, int mod)
|
||||
}
|
||||
}
|
||||
if (compile_mode)
|
||||
p->PredFlags = pflags | CompiledPredFlag | FastPredFlag;
|
||||
p->PredFlags = p->PredFlags | CompiledPredFlag | FastPredFlag;
|
||||
else
|
||||
p->PredFlags = pflags|CompiledPredFlag;
|
||||
p->PredFlags = p->PredFlags | CompiledPredFlag;
|
||||
}
|
||||
if (p->cs.p_code.FirstClause == NULL) {
|
||||
if (!(pflags & DynamicPredFlag)) {
|
||||
|
Reference in New Issue
Block a user