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

fix bad index removal

Browse Source
This commit is contained in:
Vitor Santos Costa 2012-10-23 18:22:16 +01:00
parent 8126381e8d
commit 3e696eb831
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
C/index.c
View File

@ -6007,6 +6007,9 @@ Yap_RemoveClauseFromIndex(PredEntry *ap, yamop *beg) {
ap->OpcodeOfPred = Yap_opcode(_op_fail); ap->OpcodeOfPred = Yap_opcode(_op_fail);
} else if (ap->PredFlags & IndexedPredFlag) { } else if (ap->PredFlags & IndexedPredFlag) {
remove_from_index(ap, sp, &cl, beg, last, &cint); remove_from_index(ap, sp, &cl, beg, last, &cint);
} else if (ap->cs.p_code.NOfClauses == 1) {
ap->cs.p_code.TrueCodeOfPred = ap->cs.p_code.FirstClause;
ap->CodeOfPred = (yamop *)(&(ap->OpcodeOfPred));
} }
} }