Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-14 00:07:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix order of operations

Browse source
This commit is contained in:
Justin Ethier 2016-10-15 16:34:13 -04:00
parent ad2981168c
commit 8f14fd3328
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
runtime.c
View file

@ -2436,7 +2436,7 @@ object Cyc_fast_div(void *data, object ptr, object x, object y) {
if (is_object_type(x) && type_of(x) == double_tag) { if (is_object_type(x) && type_of(x) == double_tag) {
if (obj_is_int(y)){ if (obj_is_int(y)){
if (obj_obj2int(y) == 0.0) { goto divbyzero; } if (obj_obj2int(y) == 0.0) { goto divbyzero; }
assign_double(ptr, (double)(obj_obj2int(y)) / double_value(x)); assign_double(ptr, double_value(x) / (double)(obj_obj2int(y)));
return ptr; return ptr;
} else if (is_object_type(y) && type_of(y) == double_tag) { } else if (is_object_type(y) && type_of(y) == double_tag) {
if (double_value(y) == 0.0) { goto divbyzero; } if (double_value(y) == 0.0) { goto divbyzero; }