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

fix interfacey

Browse Source
This commit is contained in:
Vitor Santos Costa 2010-06-30 13:18:15 +02:00
parent 1b16a3d909
commit 6619bd44b0
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
library/yap2swi/yap2swi.c
View File

@ -167,8 +167,8 @@ SWIFunctorToFunctor(functor_t at)
{ {
if (IsAtomTerm(at)) if (IsAtomTerm(at))
return (Functor)at; return (Functor)at;
if ((CELL)(at) & 1) if ((CELL)(at) & 2)
return SWI_Functors[((CELL)at)/2]; return SWI_Functors[((CELL)at)/4];
return (Functor)at; return (Functor)at;
} }
@ -181,7 +181,7 @@ Yap_InitSWIHash(void)
add_to_hash(i*2+1, (ADDR)SWI_Atoms[i]); add_to_hash(i*2+1, (ADDR)SWI_Atoms[i]);
} }
for (j=0; j < N_SWI_FUNCTORS; j++) { for (j=0; j < N_SWI_FUNCTORS; j++) {
add_to_hash((((CELL)(j))*2+1), (ADDR)SWI_Functors[j]); add_to_hash((((CELL)(j))*4+2), (ADDR)SWI_Functors[j]);
} }
} }