steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

removed some global functions from math.cpp

db4
Phil Dawes 2009-08-17 21:37:18 +01:00
parent 2dba15535f
commit fc5c51e2cd
2 changed files with 0 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
vm/math.cpp
View File

@ -71,30 +71,18 @@ inline fixnum factorvm::sign_mask(fixnum x)
return x >> (WORD_SIZE - 1); return x >> (WORD_SIZE - 1);
} }
inline fixnum sign_mask(fixnum x)
{
return vm->sign_mask(x);
}
inline fixnum factorvm::branchless_max(fixnum x, fixnum y) inline fixnum factorvm::branchless_max(fixnum x, fixnum y)
{ {
return (x - ((x - y) & sign_mask(x - y))); return (x - ((x - y) & sign_mask(x - y)));
} }
inline fixnum branchless_max(fixnum x, fixnum y)
{
return vm->branchless_max(x,y);
}
inline fixnum factorvm::branchless_abs(fixnum x) inline fixnum factorvm::branchless_abs(fixnum x)
{ {
return (x ^ sign_mask(x)) - sign_mask(x); return (x ^ sign_mask(x)) - sign_mask(x);
} }
inline fixnum branchless_abs(fixnum x)
{
return vm->branchless_abs(x);
}
inline void factorvm::vmprim_fixnum_shift() inline void factorvm::vmprim_fixnum_shift()
{ {
@ -410,10 +398,6 @@ cell factorvm::unbox_array_size()
return 0; /* can't happen */ return 0; /* can't happen */
} }
cell unbox_array_size()
{
return vm->unbox_array_size();
}
inline void factorvm::vmprim_fixnum_to_float() inline void factorvm::vmprim_fixnum_to_float()
{ {

2
vm/math.hpp
View File

@ -38,8 +38,6 @@ PRIMITIVE(bignum_bitp);
PRIMITIVE(bignum_log2); PRIMITIVE(bignum_log2);
PRIMITIVE(byte_array_to_bignum); PRIMITIVE(byte_array_to_bignum);
cell unbox_array_size();
PRIMITIVE(fixnum_to_float); PRIMITIVE(fixnum_to_float);
PRIMITIVE(bignum_to_float); PRIMITIVE(bignum_to_float);
PRIMITIVE(str_to_float); PRIMITIVE(str_to_float);