From a39bf2f8e223dd7190053dc5f473b34272494da6 Mon Sep 17 00:00:00 2001 From: Phil Dawes Date: Sat, 22 Aug 2009 11:04:34 +0100 Subject: [PATCH] converted box_* float functions to use vm (x86 win32) --- vm/math.cpp | 12 +++++++----- vm/math.hpp | 4 ++-- 2 files changed, 9 insertions(+), 7 deletions(-) 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); -- 2.34.1