VM: removing the unused callstack-bounds primitive

Probably needs new boot images

diff --git a/basis/bootstrap/image/primitives/primitives.factor b/basis/bootstrap/image/primitives/primitives.factor
index aaa5cdaeb9e8ff2471bf431eb0a81f6a308b9002..918dab13614a82610547a10f5c643147556e292a 100644 (file)
--- a/basis/bootstrap/image/primitives/primitives.factor
+++ b/basis/bootstrap/image/primitives/primitives.factor
@@ -313,10 +313,6 @@ CONSTANT: all-primitives {
                 { object } { fixnum } f
             }
             { "become" ( old new -- ) "become" { array array } { } f }
-            {
-                "callstack-bounds" ( -- start end ) "callstack_bounds"
-                { } { alien alien } make-flushable
-            }
             {
                 "check-datastack" ( array in# out# -- ? ) "check_datastack"
                 { array integer integer } { object } make-flushable

diff --git a/core/kernel/kernel.factor b/core/kernel/kernel.factor
index c685dcbed07cd191fc8ab184cebd41e79cde0a39..74790c3d4a40d7f5ea17eac125e5ec093b171238 100644 (file)
--- a/core/kernel/kernel.factor
+++ b/core/kernel/kernel.factor
@@ -37,7 +37,6 @@ PRIMITIVE: (execute) ( word -- )
 PRIMITIVE: (identity-hashcode) ( obj -- code )
 PRIMITIVE: become ( old new -- )
 PRIMITIVE: c-to-factor ( -- )
-PRIMITIVE: callstack-bounds ( -- start end )
 PRIMITIVE: check-datastack ( array in# out# -- ? )
 PRIMITIVE: compute-identity-hashcode ( obj -- )
 PRIMITIVE: context-object ( n -- obj )

diff --git a/vm/callstack.cpp b/vm/callstack.cpp
index 45caa0131563baeb10143d07d3b0ed721fed0b46..89f67e5c0e41e853d367f7a83989123ca616cbf1 100644 (file)
--- a/vm/callstack.cpp
+++ b/vm/callstack.cpp
@@ -108,10 +108,4 @@ void factor_vm::primitive_set_innermost_stack_frame_quotation() {
   *(cell*)inner = quot->entry_point + offset;
 }
 
-// Allocates memory (allot_alien)
-void factor_vm::primitive_callstack_bounds() {
-  ctx->push(allot_alien(ctx->callstack_seg->start));
-  ctx->push(allot_alien(ctx->callstack_seg->end));
-}
-
 }

diff --git a/vm/primitives.hpp b/vm/primitives.hpp
index 03a76929bb62f079c0262e0b466a74ddc4475a1b..b664a11c466fb566b10ca5adbe79ad8f403146af 100644 (file)
--- a/vm/primitives.hpp
+++ b/vm/primitives.hpp
@@ -11,7 +11,7 @@ namespace factor {
       _(bignum_shift) _(bignum_subtract) _(bignum_to_fixnum)                   \
       _(bignum_to_fixnum_strict) _(bignum_xor) _(bits_double) _(bits_float)    \
       _(byte_array) _(callback) _(callback_room)                               \
-      _(callstack_bounds) _(callstack_for) _(callstack_to_array)               \
+      _(callstack_for) _(callstack_to_array)                                   \
       _(check_datastack) _(clone) _(code_blocks) _(code_room)                  \
       _(compact_gc) _(compute_identity_hashcode) _(context_object)             \
       _(context_object_for) _(current_callback) _(data_room)                   \

diff --git a/vm/vm.hpp b/vm/vm.hpp
index 1fdff17b77ec543a0ead4609744970bc62e88731..06aefee99bc32352eca62f1ab99713732a3c27e3 100644 (file)
--- a/vm/vm.hpp
+++ b/vm/vm.hpp
@@ -609,7 +609,6 @@ struct factor_vm {
   void primitive_innermost_stack_frame_executing();
   void primitive_innermost_stack_frame_scan();
   void primitive_set_innermost_stack_frame_quotation();
-  void primitive_callstack_bounds();
 
   template <typename Iterator, typename Fixup>
   void iterate_callstack(context* ctx, Iterator& iterator, Fixup& fixup);