added vm-ptr primitive

[factor.git] / vm / alien.hpp

diff --git a/vm/alien.hpp b/vm/alien.hpp
index 7b537146fd0fa2c5be486e20b48570492fa39cad..ca3601f51e09a3da4153ed8568bc09fb72d23671 100755 (executable)
--- a/vm/alien.hpp
+++ b/vm/alien.hpp
@@ -36,6 +36,8 @@ PRIMITIVE(dlsym);
 PRIMITIVE(dlclose);
 PRIMITIVE(dll_validp);
 
+PRIMITIVE(vm_ptr);
+
 VM_C_API char *alien_offset(cell object, factorvm *vm);
 VM_C_API char *unbox_alien(factorvm *vm);
 VM_C_API void box_alien(void *ptr, factorvm *vm);