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

12
vm/math.cpp
View File

@ -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)

4
vm/math.hpp
View File

@ -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);