converted box_* integer functions to use vm (x86 windows)

[factor.git] / vm / alien.cpp

diff --git a/vm/alien.cpp b/vm/alien.cpp
index da33c01df17587852e24b90c9e2d6b0bd697311b..e2298630e1d96096a248f71e9348fb3f4362879d 100755 (executable)
--- a/vm/alien.cpp
+++ b/vm/alien.cpp
@@ -103,12 +103,14 @@ void *alien_pointer()
 #define DEFINE_ALIEN_ACCESSOR(name,type,boxer,to) \
        PRIMITIVE(alien_##name) \
        { \
-               boxer(*(type*)PRIMITIVE_GETVM()->alien_pointer());      \
+               factorvm *myvm = PRIMITIVE_GETVM(); \
+               myvm->boxer(*(type*)myvm->alien_pointer());     \
        } \
        PRIMITIVE(set_alien_##name) \
        { \
-               type *ptr = (type *)PRIMITIVE_GETVM()->alien_pointer(); \
-               type value = PRIMITIVE_GETVM()->to(dpop()); \
+               factorvm *myvm = PRIMITIVE_GETVM(); \
+               type *ptr = (type *)myvm->alien_pointer(); \
+               type value = myvm->to(dpop()); \
                *ptr = value; \
        }