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

fix term_hash of floats and large ints (obs from Jose Santos).

Browse Source
This commit is contained in:
Vitor Santos Costa 2010-03-22 00:09:50 +00:00
parent d5e1ff38f4
commit da51afc1e4
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
C/utilpreds.c
View File

@ -2231,7 +2231,6 @@ hash_complex_term(register CELL *pt0,
CELL *st, CELL *st,
int variant) int variant)
{ {
register CELL **to_visit0, **to_visit = (CELL **)Yap_PreAllocCodeSpace(); register CELL **to_visit0, **to_visit = (CELL **)Yap_PreAllocCodeSpace();
to_visit0 = to_visit; to_visit0 = to_visit;
@ -2248,7 +2247,7 @@ hash_complex_term(register CELL *pt0,
if (st + 1024 >= ASP) { if (st + 1024 >= ASP) {
goto global_overflow; goto global_overflow;
} }
if (IsPrimitiveTerm(d0)) { if (IsAtomOrIntTerm(d0)) {
if (d0 != TermFoundVar) { if (d0 != TermFoundVar) {
if (IsAtomTerm(d0)) { if (IsAtomTerm(d0)) {
st = AddAtomToHash(st, AtomOfTerm(d0)); st = AddAtomToHash(st, AtomOfTerm(d0));
@ -2290,7 +2289,7 @@ hash_complex_term(register CELL *pt0,
f = (Functor)(*ap2); f = (Functor)(*ap2);
if (IsExtensionFunctor(f)) { if (IsExtensionFunctor(f)) {
CELL fc = (CELL)NameOfFunctor(f); CELL fc = (CELL)f;
switch(fc) { switch(fc) {