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

Typo: box_float instead of box_double in floating point primitives

slava 2006-11-04 22:04:22 +00:00
parent 4887bba4a3
commit 4ee7c02798
2 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
TODO.FACTOR.txt
View File

@ -2,7 +2,7 @@
- inline float allocation needs a gc check - inline float allocation needs a gc check
- docs: don't pass volatile aliens to callbacks - docs: don't pass volatile aliens to callbacks
- windows rollover broken again - some instability remains
+ ui: + ui:
@ -52,12 +52,10 @@
- arm backend - arm backend
- mac intel: struct returns from objc methods - mac intel: struct returns from objc methods
- float= doesn't consider nans equal - float= doesn't consider nans equal
- intrinsic fixnum>float float>fixnum
- C functions returning structs by value - C functions returning structs by value
- infer which variables are read, written in a quotation - infer which variables are read, written in a quotation
- compiled continuations - compiled continuations
- compiled call traces - compiled call traces
- amd64 structs-by-value bug
+ prettyprinter: + prettyprinter:

10
vm/math.c
View File

@ -473,31 +473,31 @@ void primitive_float_to_str(void)
void primitive_float_add(void) void primitive_float_add(void)
{ {
POP_FLOATS(x,y); POP_FLOATS(x,y);
box_float(x + y); box_double(x + y);
} }
void primitive_float_subtract(void) void primitive_float_subtract(void)
{ {
POP_FLOATS(x,y); POP_FLOATS(x,y);
box_float(x - y); box_double(x - y);
} }
void primitive_float_multiply(void) void primitive_float_multiply(void)
{ {
POP_FLOATS(x,y); POP_FLOATS(x,y);
box_float(x * y); box_double(x * y);
} }
void primitive_float_divfloat(void) void primitive_float_divfloat(void)
{ {
POP_FLOATS(x,y); POP_FLOATS(x,y);
box_float(x / y); box_double(x / y);
} }
void primitive_float_mod(void) void primitive_float_mod(void)
{ {
POP_FLOATS(x,y); POP_FLOATS(x,y);
box_float(fmod(x,y)); box_double(fmod(x,y));
} }
void primitive_float_less(void) void primitive_float_less(void)