vm: remove math::bignum_producer.

diff --git a/vm/math.cpp b/vm/math.cpp
index bb1813924694731304f1fa8bc8f799bc39612221..ce8ac6eaf4bdf722ddddecaea8904f7c61891bbb 100755 (executable)
--- a/vm/math.cpp
+++ b/vm/math.cpp
@@ -213,17 +213,6 @@ void factor_vm::primitive_bignum_log2()
        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()
 {
        if(tagged<object>(ctx->peek()).type() == BIGNUM_TYPE)

diff --git a/vm/vm.hpp b/vm/vm.hpp
index 3ee9937d8fdee717870e4c9e348611225ea6b850..ed7f9bf6d0c4001b9ac7ef43ef7b3fa4387bc656 100755 (executable)
--- a/vm/vm.hpp
+++ b/vm/vm.hpp
@@ -453,7 +453,6 @@ struct factor_vm
        void primitive_bignum_not();
        void primitive_bignum_bitp();
        void primitive_bignum_log2();
-       unsigned int bignum_producer(unsigned int digit);
        inline cell unbox_array_size();
        cell unbox_array_size_slow();
        void primitive_fixnum_to_float();