Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 20:45:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Ensure stack objects are properly marked

Browse source
This commit is contained in:
Justin Ethier 2015-11-20 02:50:46 -05:00
parent d1acb301c1
commit ec6140b3a4
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
runtime.c
View file

@ -939,10 +939,12 @@ common_type Cyc_string2number(void *data, object str){
n = atof(((string_type *) str)->str); n = atof(((string_type *) str)->str);
if (ceilf(n) == n) { if (ceilf(n) == n) {
result.integer_t.hdr.mark = gc_color_red;
result.integer_t.tag = integer_tag; result.integer_t.tag = integer_tag;
result.integer_t.value = (int)n; result.integer_t.value = (int)n;
} }
else { else {
result.double_t.hdr.mark = gc_color_red;
result.double_t.tag = double_tag; result.double_t.tag = double_tag;
result.double_t.value = n; result.double_t.value = n;
} }