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

Reset ErrorMessage before entering IndexPred (otherwise system will be

Browse Source 
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:
vsc 2002-10-08 01:09:28 +00:00
parent dba17092b2
commit 1fe8842094
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
C/index.c
View File

@ -1331,6 +1331,7 @@ PredIsIndexable(PredEntry *ap)
gc(ap->ArityOfPE, ENV, CP);
}
restart_index:
ErrorMessage = NULL;
labelno = 1;
RemovedCl = FALSE;
FirstCl = (yamop *)(ap->FirstClause);
@ -1352,7 +1353,7 @@ PredIsIndexable(PredEntry *ap)
Entries = (EntryDef *) (Groups + NGroups);
CodeStart = cpc = NIL;
freep = (char *) (ArOfCl + NClauses);
if (ErrorMessage != NIL) {
if (ErrorMessage != NULL) {
return (NIL);
}
if (CurrentPred->PredFlags & LogUpdatePredFlag) {