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

Use immediates

Browse source
This commit is contained in:
Justin Ethier 2016-03-19 22:38:23 -04:00
parent 580a674525
commit 05d39afd3f
2 changed files with 12 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
runtime.c
View file

@ -1533,10 +1533,10 @@ object Cyc_num_op_va_list(void *data, int argc, object (fn_op(void *, common_typ
fn_op(data, buf, va_arg(ns, object)); fn_op(data, buf, va_arg(ns, object));
} }
// // TODO: if result is integer, could convert to an immediate here // TODO: if result is integer, could convert to an immediate here
// if (type_of(buf) == integer_tag) { if (type_of(buf) == integer_tag) {
// return obj_int2obj(buf->integer_t.value); return obj_int2obj(buf->integer_t.value);
// } }
return buf; return buf;
} }

16
scheme/cyclone/cgen.sld
View file

@ -405,14 +405,14 @@
((vector? exp) ((vector? exp)
(c-compile-vector exp)) (c-compile-vector exp))
((integer? exp) ((integer? exp)
(let ((cvar-name (mangle (gensym 'c)))) ; (let ((cvar-name (mangle (gensym 'c))))
(c-code/vars ; (c-code/vars
(string-append "&" cvar-name) ; Code is just the variable name ; (string-append "&" cvar-name) ; Code is just the variable name
(list ; Allocate integer on the C stack ; (list ; Allocate integer on the C stack
(string-append ; (string-append
"make_int(" cvar-name ", " (number->string exp) ");"))))) ; "make_int(" cvar-name ", " (number->string exp) ");")))))
; (c-code (string-append "obj_int2obj(" (c-code (string-append "obj_int2obj("
; (number->string exp) ")"))) (number->string exp) ")")))
((real? exp) ((real? exp)
(let ((cvar-name (mangle (gensym 'c)))) (let ((cvar-name (mangle (gensym 'c))))
(c-code/vars (c-code/vars