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

WIP - register inlinable Scheme functions

Browse source
This commit is contained in:
Justin Ethier 2017-04-04 19:02:24 -04:00
parent acef00a5b6
commit 298338586a
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
cyclone.scm
View file

@ -174,6 +174,14 @@
(set! module-globals (global-vars input-program)) (set! module-globals (global-vars input-program))
(set! globals (append (lib:idb:ids imported-vars) module-globals)) (set! globals (append (lib:idb:ids imported-vars) module-globals))
;; Register inlinable Scheme functions
(for-each
(lambda (e)
(if (define-c-inline? e)
(prim:add-udf! (define->var e) (define-c->inline-var e))))
;(write `(DEBUG add inline ,(define->var e) ,(define-c->inline-var e)))))
input-program)
;; Trim down the export list to any exports that are just "pass throughs" ;; Trim down the export list to any exports that are just "pass throughs"
;; from imported libraries. That is, they are not actually defined in ;; from imported libraries. That is, they are not actually defined in
;; the library being compiled ;; the library being compiled