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

fix SWI functor handling to work with 32 bits. (for now)

Browse Source
This commit is contained in:
Vítor Santos Costa 2010-12-02 19:41:48 +00:00
parent 2713ac27b6
commit af6bf40985
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
library/dialect/swi/fli/swi.c
View File

@ -49,6 +49,7 @@
extern X_API Int YAP_PLArityOfSWIFunctor(functor_t at); extern X_API Int YAP_PLArityOfSWIFunctor(functor_t at);
/* This is silly, but let's keep it like that for now */
X_API Int X_API Int
YAP_PLArityOfSWIFunctor(functor_t f) { YAP_PLArityOfSWIFunctor(functor_t f) {
if ((CELL)(f) & 2 && ((CELL)f) < N_SWI_FUNCTORS*4+2) if ((CELL)(f) & 2 && ((CELL)f) < N_SWI_FUNCTORS*4+2)

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

@ -114,6 +114,7 @@ FunctorToSWIFunctor(Functor at)
return (functor_t)at; return (functor_t)at;
} }
/* This is silly, but let's keep it like that for now */
static inline Functor static inline Functor
SWIFunctorToFunctor(functor_t f) SWIFunctorToFunctor(functor_t f)
{ {