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

Support alloca of basic arithmetic operations

Browse source
This commit is contained in:
Justin Ethier 2018-10-24 13:29:34 -04:00
parent be5a5f1c6b
commit c10d38e170
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
scheme/cyclone/cgen.sld
View file

@ -692,12 +692,17 @@
(else ""))) (else "")))
(tdata-comma (if (> (string-length tdata) 0) "," "")) (tdata-comma (if (> (string-length tdata) 0) "," ""))
(tptr-type (prim/c-var-pointer p)) (tptr-type (prim/c-var-pointer p))
(tptr-comma (if tptr-type ",&" "")) (tptr-comma
(cond
((and tptr-type use-alloca?) ",")
(tptr-type ",&")
(else "")))
(tptr (cond (tptr (cond
(tptr-type (mangle (gensym 'local))) (tptr-type (mangle (gensym 'local)))
(else ""))) (else "")))
(tptr-decl (tptr-decl
(cond (cond
((and tptr-type use-alloca?) (string-append "object " tptr " = alloca(sizeof(" tptr-type ")); "))
(tptr-type (string-append tptr-type " " tptr "; ")) (tptr-type (string-append tptr-type " " tptr "; "))
(else ""))) (else "")))
(c-var-assign (c-var-assign