vm: remove vm-ptr primitive

diff --git a/basis/stack-checker/known-words/known-words.factor b/basis/stack-checker/known-words/known-words.factor
index d7556adaa0be85f8428e246b619c12dd40d9945d..9bc61c63536b6b046b1e15dbf376eeb8a0c42327 100644 (file)
--- a/basis/stack-checker/known-words/known-words.factor
+++ b/basis/stack-checker/known-words/known-words.factor
@@ -13,7 +13,7 @@ words.private definitions assocs summary compiler.units
 system.private combinators combinators.short-circuit locals
 locals.backend locals.types combinators.private
 stack-checker.values generic.single generic.single.private
-alien.libraries tools.dispatch.private tools.profiler.private vm
+alien.libraries tools.dispatch.private tools.profiler.private
 stack-checker.alien
 stack-checker.state
 stack-checker.errors
@@ -739,6 +739,4 @@ M: bad-executable summary
 
 \ (exit) { integer } { } define-primitive
 
-\ vm-ptr { } { alien } define-primitive
-
 \ quot-compiled? { quotation } { object } define-primitive

diff --git a/core/bootstrap/primitives.factor b/core/bootstrap/primitives.factor
index ef02340e9e5336ead8b1fafa5ccdeefc4cccbd63..dde5463c0f7f1b2ae41955a4bcda32bbd50805cb 100644 (file)
--- a/core/bootstrap/primitives.factor
+++ b/core/bootstrap/primitives.factor
@@ -530,7 +530,6 @@ tuple
     { "dispatch-stats" "tools.dispatch.private" "primitive_dispatch_stats" (( -- stats )) }
     { "reset-dispatch-stats" "tools.dispatch.private" "primitive_reset_dispatch_stats" (( -- )) }
     { "profiling" "tools.profiler.private" "primitive_profiling" (( ? -- )) }
-    { "vm-ptr" "vm" "primitive_vm_ptr" (( -- ptr )) }
     { "optimized?" "words" "primitive_optimized_p" (( word -- ? )) }
     { "word-code" "words" "primitive_word_code" (( word -- start end )) }
     { "(word)" "words.private" "primitive_word" (( name vocab -- word )) }

diff --git a/vm/alien.cpp b/vm/alien.cpp
index b15ffee2c949a76fcf443ac93554a81c2c2c5d8b..38078b66790ebf0c7d704d72989d8cc557ea4185 100755 (executable)
--- a/vm/alien.cpp
+++ b/vm/alien.cpp
@@ -253,9 +253,4 @@ VM_C_API cell from_medium_struct(cell x1, cell x2, cell x3, cell x4, cell size,
        return parent->from_medium_struct(x1, x2, x3, x4, size);
 }
 
-void factor_vm::primitive_vm_ptr()
-{
-       ctx->push(allot_alien(this));
-}
-
 }

diff --git a/vm/primitives.cpp b/vm/primitives.cpp
index 2159e1d08159ec0489d7d87a960765376833fa9d..f288a796c282e6eba79b9341b2bbd8ead4f747b0 100644 (file)
--- a/vm/primitives.cpp
+++ b/vm/primitives.cpp
@@ -129,7 +129,6 @@ PRIMITIVE(tuple)
 PRIMITIVE(tuple_boa)
 PRIMITIVE(unimplemented)
 PRIMITIVE(uninitialized_byte_array)
-PRIMITIVE(vm_ptr)
 PRIMITIVE(word)
 PRIMITIVE(word_code)
 PRIMITIVE(wrapper)

diff --git a/vm/primitives.hpp b/vm/primitives.hpp
index c1dd0e30dca3f20f59dc61f23290a21622b21d43..1ace3c0f7e7a271ce0498fbc4a8bae819911033f 100644 (file)
--- a/vm/primitives.hpp
+++ b/vm/primitives.hpp
@@ -125,7 +125,6 @@ DECLARE_PRIMITIVE(tuple)
 DECLARE_PRIMITIVE(tuple_boa)
 DECLARE_PRIMITIVE(unimplemented)
 DECLARE_PRIMITIVE(uninitialized_byte_array)
-DECLARE_PRIMITIVE(vm_ptr)
 DECLARE_PRIMITIVE(word)
 DECLARE_PRIMITIVE(word_code)
 DECLARE_PRIMITIVE(wrapper)

diff --git a/vm/vm.hpp b/vm/vm.hpp
index 8fb866dbefaedd689812e2dadc42553512b0530f..6f826ed9e0d59d91be0016d4359f7c65602f3d82 100755 (executable)
--- a/vm/vm.hpp
+++ b/vm/vm.hpp
@@ -587,7 +587,6 @@ struct factor_vm
        void primitive_dlsym();
        void primitive_dlclose();
        void primitive_dll_validp();
-       void primitive_vm_ptr();
        char *alien_offset(cell obj);
        void to_value_struct(cell src, void *dest, cell size);
        cell from_value_struct(void *src, cell size);