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

Call opt:add-inlinable-functions to load inlines

Browse source
This commit is contained in:
Justin Ethier 2017-08-23 16:30:40 +00:00
parent c5ddd79aff
commit 6d0d81f9ef
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
cyclone.scm
View file

@ -199,6 +199,12 @@
;(write `(DEBUG add inline ,(define->var e) ,(define-c->inline-var e))))) ;(write `(DEBUG add inline ,(define->var e) ,(define-c->inline-var e)))))
input-program) input-program)
;; Inlines do not have to be non-CPS, they are really two separate things.
;; So keep track of all functions marked as inline because there are still
;; possibilities for optimization even if the function must call into its
;; continuation.
(opt:add-inlinable-functions inlines)
;; 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