factor/native/fixnum.h

18 lines
362 B
C
Raw Normal View History

2004-07-28 19:02:24 -04:00
#define FIXNUM_MAX (LONG_MAX >> TAG_BITS)
#define FIXNUM_MIN (LONG_MIN >> TAG_BITS)
#define FIXNUM long int /* unboxed */
INLINE FIXNUM untag_fixnum_fast(CELL tagged)
{
return ((FIXNUM)tagged) >> TAG_BITS;
}
2004-07-16 02:26:21 -04:00
INLINE CELL tag_fixnum(FIXNUM untagged)
{
return RETAG(untagged << TAG_BITS,FIXNUM_TYPE);
}
void primitive_fixnump(void);
void primitive_not(void);