converted box_* float functions to use vm (x86 win32)

diff --git a/vm/math.cpp b/vm/math.cpp
index e6e1abf80a45e389158074e8f117625c28a09f70..c403073804b4b17cb1cffb2ef2ec95d384d2da6b 100755 (executable)
--- a/vm/math.cpp
+++ b/vm/math.cpp
@@ -788,15 +788,16 @@ VM_C_API u64 to_unsigned_8(cell obj,factorvm *myvm)
        ASSERTVM();
        return VM_PTR->to_unsigned_8(obj);
 }
-
+ 
 void factorvm::box_float(float flo)
 {
         dpush(allot_float(flo));
 }
 
-VM_C_API void box_float(float flo)
+VM_C_API void box_float(float flo,factorvm *myvm)      // not sure if this is ever called
 {
-       return vm->box_float(flo);
+       ASSERTVM();
+       return VM_PTR->box_float(flo);
 }
 
 float factorvm::to_float(cell value)
@@ -814,9 +815,10 @@ void factorvm::box_double(double flo)
         dpush(allot_float(flo));
 }
 
-VM_C_API void box_double(double flo)
+VM_C_API void box_double(double flo,factorvm *myvm)   // not sure if this is ever called
 {
-       return vm->box_double(flo);
+       ASSERTVM();
+       return VM_PTR->box_double(flo);
 }
 
 double factorvm::to_double(cell value)

diff --git a/vm/math.hpp b/vm/math.hpp
index 11c43a01a10aeb169c5fe4257f8a6d801f2d9c88..5939b25b379794a7e43d0348f453b1ba1f187d8e 100644 (file)
--- a/vm/math.hpp
+++ b/vm/math.hpp
@@ -60,9 +60,9 @@ PRIMITIVE(bits_float);
 PRIMITIVE(double_bits);
 PRIMITIVE(bits_double);
 
-VM_C_API void box_float(float flo);
+VM_C_API void box_float(float flo, factorvm *vm);
 VM_C_API float to_float(cell value, factorvm *vm);
-VM_C_API void box_double(double flo);
+VM_C_API void box_double(double flo, factorvm *vm);
 VM_C_API double to_double(cell value, factorvm *vm);
 
 VM_C_API void box_signed_1(s8 n, factorvm *vm);