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

2010-12-02 19:41:48 +00:00 · 2010-12-02 19:41:48 +00:00 · af6bf40985
commit af6bf40985
parent 2713ac27b6
2 changed files with 2 additions and 0 deletions
--- a/library/dialect/swi/fli/swi.c
+++ b/library/dialect/swi/fli/swi.c
@ -49,6 +49,7 @@

 extern X_API Int YAP_PLArityOfSWIFunctor(functor_t at);

+/* This is silly, but let's keep it like that for now */
 X_API Int
 YAP_PLArityOfSWIFunctor(functor_t f) {
  if ((CELL)(f) & 2 && ((CELL)f) < N_SWI_FUNCTORS*4+2)
--- a/library/dialect/swi/fli/swi.h
+++ b/library/dialect/swi/fli/swi.h
@ -114,6 +114,7 @@ FunctorToSWIFunctor(Functor at)
  return (functor_t)at;
 }

+/* This is silly, but let's keep it like that for now */
 static inline Functor
 SWIFunctorToFunctor(functor_t f)
 {