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

Allow scheme inlines through, though C comp fails

Browse source
This commit is contained in:
Justin Ethier 2017-04-18 09:54:13 +00:00
parent 547d1e218d
commit d27b55d27b
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
cyclone.scm
View file

@ -224,7 +224,10 @@
(set! inlinable-scheme-fncs
(cons (define->var e) inlinable-scheme-fncs))
;; TESTING, will not work yet
;(prim:add-udf! (define->var e) (define-c->inline-var e))
(set! module-globals
(cons (define-c->inline-var e) module-globals))
(prim:add-udf! (define->var e) (define-c->inline-var e))
;; END
))
input-program)
(trace:info "---------------- results of inlinable-top-level-function analysis: ")
@ -327,6 +330,9 @@
(trace:info "---------------- C headers: ")
(trace:info c-headers)
(trace:info "---------------- module globals: ")
(trace:info module-globals)
(trace:info "---------------- C code:")
(mta:code-gen input-program
program?