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

Issue #519 - allow fixnum results from Cyc_div_op

Browse source 
Need to extend this to fast_div, but this is another good edge case.
This commit is contained in:
Justin Ethier 2024-01-06 09:14:01 -08:00
parent 14a561a40f
commit 8875c534dc
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
runtime.c
View file

@ -4241,6 +4241,12 @@ object Cyc_div_op(void *data, common_type * x, object y)
} }
x->double_t.tag = double_tag; x->double_t.tag = double_tag;
x->double_t.value = ((double)x->integer_t.value) / (obj_obj2int(y)); x->double_t.value = ((double)x->integer_t.value) / (obj_obj2int(y));
if (x->double_t.value == round(x->double_t.value)) {
int tmp = x->double_t.value;
x->integer_t.tag = integer_tag;
x->integer_t.value = tmp;
}
} else if (tx == double_tag && ty == -1) { } else if (tx == double_tag && ty == -1) {
x->double_t.value = x->double_t.value / (obj_obj2int(y)); x->double_t.value = x->double_t.value / (obj_obj2int(y));
} else if (tx == integer_tag && ty == integer_tag) { } else if (tx == integer_tag && ty == integer_tag) {