Merge branch 'master' of git://factorcode.org/git/factor
commit
28af73eb24
|
@ -28,11 +28,6 @@ inline static cell align8(cell a)
|
||||||
return align(a,8);
|
return align(a,8);
|
||||||
}
|
}
|
||||||
|
|
||||||
inline static cell align_page(cell a)
|
|
||||||
{
|
|
||||||
return align(a,getpagesize());
|
|
||||||
}
|
|
||||||
|
|
||||||
#define WORD_SIZE (signed)(sizeof(cell)*8)
|
#define WORD_SIZE (signed)(sizeof(cell)*8)
|
||||||
|
|
||||||
#define TAG_MASK 7
|
#define TAG_MASK 7
|
||||||
|
|
|
@ -461,7 +461,7 @@ VM_C_API s64 to_signed_8(cell obj)
|
||||||
|
|
||||||
VM_C_API void box_unsigned_8(u64 n)
|
VM_C_API void box_unsigned_8(u64 n)
|
||||||
{
|
{
|
||||||
if(n > fixnum_max)
|
if(n > (u64)fixnum_max)
|
||||||
dpush(tag<bignum>(ulong_long_to_bignum(n)));
|
dpush(tag<bignum>(ulong_long_to_bignum(n)));
|
||||||
else
|
else
|
||||||
dpush(tag_fixnum(n));
|
dpush(tag_fixnum(n));
|
||||||
|
|
|
@ -7,4 +7,9 @@ struct segment {
|
||||||
cell end;
|
cell end;
|
||||||
};
|
};
|
||||||
|
|
||||||
|
inline static cell align_page(cell a)
|
||||||
|
{
|
||||||
|
return align(a,getpagesize());
|
||||||
|
}
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue