vm: remove iterate_callstack_object

diff --git a/vm/callstack.hpp b/vm/callstack.hpp
index e17f36895af39d2683f92eb3c79509d9ca018e7e..8104bebb68a7426293c4c87093f4b5abe69b6080 100755 (executable)
--- a/vm/callstack.hpp
+++ b/vm/callstack.hpp
@@ -49,20 +49,6 @@ inline void factor_vm::iterate_callstack_object_reversed(callstack *stack_, Iter
        iterate_callstack_object_reversed(stack_, iterator, none);
 }
 
-template<typename Iterator>
-inline void factor_vm::iterate_callstack_object(callstack *stack_, Iterator &iterator)
-{
-       data_root<callstack> stack(stack_,this);
-       fixnum frame_offset = factor::untag_fixnum(stack->length) - sizeof(stack_frame);
-
-       while(frame_offset >= 0)
-       {
-               stack_frame *frame = stack->frame_at(frame_offset);
-               frame_offset -= frame->size;
-               iterator(frame);
-       }
-}
-
 template<typename Iterator, typename Fixup>
 inline void factor_vm::iterate_callstack_reversed(context *ctx, Iterator &iterator, Fixup &fixup)
 {

diff --git a/vm/vm.hpp b/vm/vm.hpp
index 07ebcc1f1a73a1305e21cf97acb89390b9525e69..87e65417253087aa21a80c5b67d0f2fac3b1d4d2 100755 (executable)
--- a/vm/vm.hpp
+++ b/vm/vm.hpp
@@ -621,10 +621,6 @@ struct factor_vm
        bool read_embedded_image_footer(FILE *file, embedded_image_footer *footer);
        bool embedded_image_p();
 
-       // callstack
-       template<typename Iterator>
-       void iterate_callstack_object(callstack *stack_, Iterator &iterator);
-
        template<typename Iterator, typename Fixup>
        void iterate_callstack_object_reversed(callstack *stack_, Iterator &iterator,
                Fixup &fixup);