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

vm: remove math::bignum_producer.

db4
John Benediktsson 2011-10-11 21:24:38 -07:00
parent afc07c0e05
commit 4653df21cb
2 changed files with 0 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
vm/math.cpp
View File

@ -213,17 +213,6 @@ void factor_vm::primitive_bignum_log2()
ctx->replace(tag<bignum>(bignum_integer_length(untag<bignum>(ctx->peek())))); ctx->replace(tag<bignum>(bignum_integer_length(untag<bignum>(ctx->peek()))));
} }
unsigned int factor_vm::bignum_producer(unsigned int digit)
{
unsigned char *ptr = (unsigned char *)alien_offset(ctx->peek());
return *(ptr + digit);
}
unsigned int bignum_producer(unsigned int digit, factor_vm *parent)
{
return parent->bignum_producer(digit);
}
cell factor_vm::unbox_array_size_slow() cell factor_vm::unbox_array_size_slow()
{ {
if(tagged<object>(ctx->peek()).type() == BIGNUM_TYPE) if(tagged<object>(ctx->peek()).type() == BIGNUM_TYPE)

1
vm/vm.hpp
View File

@ -453,7 +453,6 @@ struct factor_vm
void primitive_bignum_not(); void primitive_bignum_not();
void primitive_bignum_bitp(); void primitive_bignum_bitp();
void primitive_bignum_log2(); void primitive_bignum_log2();
unsigned int bignum_producer(unsigned int digit);
inline cell unbox_array_size(); inline cell unbox_array_size();
cell unbox_array_size_slow(); cell unbox_array_size_slow();
void primitive_fixnum_to_float(); void primitive_fixnum_to_float();