Reset ErrorMessage before entering IndexPred (otherwise system will be
confused with previous errors). git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@625 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
dba17092b2
commit
1fe8842094
@ -1331,6 +1331,7 @@ PredIsIndexable(PredEntry *ap)
|
|||||||
gc(ap->ArityOfPE, ENV, CP);
|
gc(ap->ArityOfPE, ENV, CP);
|
||||||
}
|
}
|
||||||
restart_index:
|
restart_index:
|
||||||
|
ErrorMessage = NULL;
|
||||||
labelno = 1;
|
labelno = 1;
|
||||||
RemovedCl = FALSE;
|
RemovedCl = FALSE;
|
||||||
FirstCl = (yamop *)(ap->FirstClause);
|
FirstCl = (yamop *)(ap->FirstClause);
|
||||||
@ -1352,7 +1353,7 @@ PredIsIndexable(PredEntry *ap)
|
|||||||
Entries = (EntryDef *) (Groups + NGroups);
|
Entries = (EntryDef *) (Groups + NGroups);
|
||||||
CodeStart = cpc = NIL;
|
CodeStart = cpc = NIL;
|
||||||
freep = (char *) (ArOfCl + NClauses);
|
freep = (char *) (ArOfCl + NClauses);
|
||||||
if (ErrorMessage != NIL) {
|
if (ErrorMessage != NULL) {
|
||||||
return (NIL);
|
return (NIL);
|
||||||
}
|
}
|
||||||
if (CurrentPred->PredFlags & LogUpdatePredFlag) {
|
if (CurrentPred->PredFlags & LogUpdatePredFlag) {
|
||||||
|
Reference in New Issue
Block a user