steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
Phil Dawes 2009-08-22 11:04:34 +01:00
parent 81106f9e20
commit a39bf2f8e2
2 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
vm/math.cpp
View File

@ -794,9 +794,10 @@ void factorvm::box_float(float flo)
dpush(allot_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) float factorvm::to_float(cell value)
@ -814,9 +815,10 @@ void factorvm::box_double(double flo)
dpush(allot_float(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) double factorvm::to_double(cell value)

4
vm/math.hpp
View File

@ -60,9 +60,9 @@ PRIMITIVE(bits_float);
PRIMITIVE(double_bits); PRIMITIVE(double_bits);
PRIMITIVE(bits_double); 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 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 double to_double(cell value, factorvm *vm);
VM_C_API void box_signed_1(s8 n, factorvm *vm); VM_C_API void box_signed_1(s8 n, factorvm *vm);