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

Bugfix - account for the use-alloca flag

Browse source
This commit is contained in:
Justin Ethier 2019-03-22 12:26:10 -04:00
parent f13186ee17
commit e68fa56f94
1 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
scheme/cyclone/cgen.sld
View file

@ -447,7 +447,11 @@
(letrec ((cvar-name (mangle (gensym 'vec)))
(len (vector-length exp))
(ev-name (mangle (gensym 'e)))
(elem-decl (string-append "object * " ev-name " [" (number->string len) "];\n"))
(elem-decl
(if use-alloca
(string-append "object *" ev-name " = (object *)alloca(sizeof(object) * "
(number->string len) ");")
(string-append "object " ev-name " [" (number->string len) "];\n")))
(addr-op (if use-alloca "" "&"))
(deref-op (if use-alloca "->" "."))
(c-make-macro (if use-alloca "alloca_empty_vector" "make_empty_vector"))
@ -1584,7 +1588,11 @@
(string-append "closureN_type * " cv-name " = alloca(sizeof(closureN_type));\n")
(string-append "closureN_type " cv-name ";\n")))
(ev-name (mangle (gensym 'e)))
(elem-decl (string-append "object * " ev-name " [" (number->string (length free-vars)) "];\n"))
(elem-decl
(if use-alloca?
(string-append "object *" ev-name " = (object *)alloca(sizeof(object) * "
(number->string (length free-vars)) ");")
(string-append "object " ev-name " [" (number->string (length free-vars)) "];\n")))
(sep (if use-alloca? "->" ".")))
(string-append
decl