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

unnecessary access could result in core dump (patch from Keri Harris).

Browse Source
This commit is contained in:
Vítor Santos Costa II 2010-04-10 21:52:53 +01:00
parent 2257b056f0
commit 894666efb8
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
C/index.c
View File

@ -3458,10 +3458,7 @@ push_stack(istack_entry *sp, Int arg, Term Tag, Term extra, struct intermediates
static istack_entry * static istack_entry *
install_clause(ClauseDef *cls, PredEntry *ap, istack_entry *stack) install_clause(ClauseDef *cls, PredEntry *ap, istack_entry *stack)
{ {
int last_arg = TRUE;
istack_entry *sp = stack; istack_entry *sp = stack;
last_arg = TRUE;
while (sp->pos) { while (sp->pos) {
if ((Int)(sp->pos) > 0) { if ((Int)(sp->pos) > 0) {
add_info(cls, sp->pos); add_info(cls, sp->pos);
@ -3508,10 +3505,6 @@ install_clause(ClauseDef *cls, PredEntry *ap, istack_entry *stack)
} else if (sp->pos) { } else if (sp->pos) {
UInt argno = -sp->pos; UInt argno = -sp->pos;
skip_to_arg(cls, ap, argno, FALSE); skip_to_arg(cls, ap, argno, FALSE);
if (ArityOfFunctor((Functor)RepAppl(sp[-1].val))
!= argno+1) {
last_arg = FALSE;
}
} }
} }
sp++; sp++;