From: Phil Dawes <phil@phildawes.net>
Date: Sat, 22 Aug 2009 10:04:34 +0000 (+0100)
Subject: converted box_* float functions to use vm (x86 win32)
X-Git-Tag: 0.97~5502^2~2^2~57
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=a39bf2f8e223dd7190053dc5f473b34272494da6

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

diff --git a/vm/math.cpp b/vm/math.cpp
index e6e1abf80a..c403073804 100755
--- 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 11c43a01a1..5939b25b37 100644
--- 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);