added vm-ptr primitive

[factor.git] / vm / alien.cpp

diff --git a/vm/alien.cpp b/vm/alien.cpp
index 829a7efeb62d099ba2d8b7a09453694255b6c303..ea8d0a60264175c1e1c7e4fde32cd380e0b20466 100755 (executable)
--- a/vm/alien.cpp
+++ b/vm/alien.cpp
@@ -303,4 +303,14 @@ VM_C_API void box_medium_struct(cell x1, cell x2, cell x3, cell x4, cell size, f
        return VM_PTR->box_medium_struct(x1, x2, x3, x4, size);
 }
 
+inline void factorvm::vmprim_vm_ptr()
+{
+       box_alien(this);
+}
+
+PRIMITIVE(vm_ptr)
+{
+       PRIMITIVE_GETVM()->vmprim_vm_ptr();
+}
+
 }