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

fix bad limit test (caught by valgrind).

Browse Source
This commit is contained in:
Vítor Santos Costa II 2010-04-08 00:52:59 +01:00
parent 5aed596919
commit 222aac067b
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
C/index.c
View File

@ -2622,8 +2622,8 @@ do_consts(GroupDef *grp, Term t, struct intermediates *cint, int compound_term,
ics = fetch_centry(cs, min->Tag, i, n); ics = fetch_centry(cs, min->Tag, i, n);
ics->Tag = min->Tag; ics->Tag = min->Tag;
while ((max+1)->Tag == min->Tag && while (max != grp->LastClause && (max+1)->Tag == min->Tag)
max != grp->LastClause) max++; max++;
if (min != max) { if (min != max) {
if (sreg != NULL) { if (sreg != NULL) {
if (ap->PredFlags & LogUpdatePredFlag && max > min) { if (ap->PredFlags & LogUpdatePredFlag && max > min) {
@ -2698,8 +2698,8 @@ do_funcs(GroupDef *grp, Term t, struct intermediates *cint, UInt argno, int firs
ifs = fetch_fentry(fs, f, i, n); ifs = fetch_fentry(fs, f, i, n);
ifs->Tag = f; ifs->Tag = f;
while ((max+1)->Tag == min->Tag && while (max != grp->LastClause && (max+1)->Tag == min->Tag)
max != grp->LastClause) max++; max++;
/* delay non-trivial indexing /* delay non-trivial indexing
if (min != max && if (min != max &&
!IsExtensionFunctor(f)) { !IsExtensionFunctor(f)) {