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

fix handling of float/1 by indexing code.

Browse Source
This commit is contained in:
Vítor Santos Costa 2010-02-19 14:16:41 +00:00
parent c3fb089eeb
commit 1b66eba611
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/index.c
View File

@ -3450,6 +3450,7 @@ install_clause(ClauseDef *cls, PredEntry *ap, istack_entry *stack)
if (cls->u.t_ptr != sp->extra) break; if (cls->u.t_ptr != sp->extra) break;
} else { } else {
CELL *pt = RepAppl(sp->extra); CELL *pt = RepAppl(sp->extra);
if (cls->u.t_ptr) {
CELL *pt1 = RepAppl(cls->u.t_ptr); CELL *pt1 = RepAppl(cls->u.t_ptr);
#if SIZEOF_DOUBLE == 2*SIZEOF_LONG_INT #if SIZEOF_DOUBLE == 2*SIZEOF_LONG_INT
Term t = MkIntTerm(pt[1]^pt[2]), Term t = MkIntTerm(pt[1]^pt[2]),
@ -3462,6 +3463,7 @@ install_clause(ClauseDef *cls, PredEntry *ap, istack_entry *stack)
} }
} }
} }
}
if ((Int)(sp->pos) > 0) { if ((Int)(sp->pos) > 0) {
move_next(cls, sp->pos); move_next(cls, sp->pos);
} else if (sp->pos) { } else if (sp->pos) {