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

make swi functors more robust to confusion with atoms.

Browse Source
This commit is contained in:
Vítor Santos Costa 2010-12-02 19:25:10 +00:00
parent 514758e65b
commit f03f353722
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
library/dialect/swi/fli/swi.h
View File

@ -117,10 +117,10 @@ FunctorToSWIFunctor(Functor at)
static inline Functor static inline Functor
SWIFunctorToFunctor(functor_t at) SWIFunctorToFunctor(functor_t at)
{ {
if ((CELL)(at) & 2 && ((CELL)at) < N_SWI_FUNCTORS*4+2)
return SWI_Functors[((CELL)at)/4];
if (IsAtomTerm(at)) if (IsAtomTerm(at))
return (Functor)at; return (Functor)at;
if ((CELL)(at) & 2)
return SWI_Functors[((CELL)at)/4];
return (Functor)at; return (Functor)at;
} }