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

fix bad assumption in indexing code.

Browse Source
This commit is contained in:
Vitor Santos Costa 2010-04-27 22:09:44 +01:00
parent 0cf7780db9
commit e302eb3463
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
C/index.c
View File

@ -3685,9 +3685,18 @@ install_log_upd_clause(ClauseDef *cls, PredEntry *ap, istack_entry *stack)
move_next(cls, sp->pos); move_next(cls, sp->pos);
} else if (sp->pos) { } else if (sp->pos) {
UInt argno = -sp->pos; UInt argno = -sp->pos;
UInt arity;
skip_to_arg(cls, ap, argno, FALSE); skip_to_arg(cls, ap, argno, FALSE);
if (ArityOfFunctor((Functor)RepAppl(sp[-1].val)) if (IsPairTerm(sp[-1].val))
!= argno+1) { arity = 2;
else {
Functor f = (Functor)RepAppl(sp[-1].val);
if (IsExtensionFunctor(f))
arity = 0;
else
arity = ArityOfFunctor((Functor)f);
}
if (arity != argno+1) {
last_arg = FALSE; last_arg = FALSE;
} }
} }