vm: remove unguard-safepoint primitive

diff --git a/vm/errors.cpp b/vm/errors.cpp
index 6d5b91dcf08ebd80d97b6bec934c4b1b0597d496..7869b79b582a01259c01acd906adc744013e0047 100755 (executable)
--- a/vm/errors.cpp
+++ b/vm/errors.cpp
@@ -176,9 +176,4 @@ void factor_vm::handle_safepoint()
        general_error(ERROR_SIGNAL,from_unsigned_cell(signal),false_object);
 }
 
-void factor_vm::primitive_guard_safepoint()
-{
-       code->guard_safepoint();
-}
-
 }

diff --git a/vm/primitives.hpp b/vm/primitives.hpp
index ea02c07f6c2cf8ef7f3f4c57f3580faec9113c6e..e9965c2f3b98a63f12acd87b6eb13a98b447d4e2 100644 (file)
--- a/vm/primitives.hpp
+++ b/vm/primitives.hpp
@@ -89,7 +89,6 @@ namespace factor
        _(ftell) \
        _(full_gc) \
        _(fwrite) \
-       _(guard_safepoint) \
        _(identity_hashcode) \
        _(innermost_stack_frame_executing) \
        _(innermost_stack_frame_scan) \

diff --git a/vm/vm.hpp b/vm/vm.hpp
index c1b535729f442a642177a9e9817aac5138338a8b..ae0d73541dccf4549aae6aca0ac38b478199d266 100755 (executable)
--- a/vm/vm.hpp
+++ b/vm/vm.hpp
@@ -184,7 +184,6 @@ struct factor_vm
        void fp_signal_handler_impl();
        void enqueue_safepoint_signal(cell signal);
        void handle_safepoint();
-       void primitive_guard_safepoint();
 
        // bignum
        int bignum_equal_p(bignum * x, bignum * y);