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

Expose list of inlinable functions

Browse source
This commit is contained in:
Justin Ethier 2017-04-17 18:11:51 -04:00
parent 08a960306c
commit 529585d92c
1 changed files with 17 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
scheme/cyclone/cgen.sld
View file

@ -1431,20 +1431,23 @@
(let ((pairs '())
(head-pair #f))
;; TODO: want some way of being able to get the list in scheme code
;; TODO: ;; Attempt to expose inlinable lambdas function
;; TODO: (let ((cvar-sym (mangle (gensym 'cvar)))
;; TODO: (pair-sym (mangle (gensym 'pair)))
;; TODO: (fnc (string-append
;; TODO: "c_" (lib:name->string lib-name) "_inlinable_lambdas")))
;; TODO: (emits*
;; TODO: " make_cvar(" cvar-sym
;; TODO: ", (object *)&" fnc ");")
;; TODO: (emits*
;; TODO: "make_pair(" pair-sym ", find_or_add_symbol(\"" fnc
;; TODO: "\"), &" cvar-sym ");\n")
;; TODO: (set! pairs (cons pair-sym pairs)))
;; TODO: ;; END
;; Expose list of inlinable lambda functions
(when (not program?)
(let ( ;(cvar-sym (mangle (gensym 'cvar)))
(pair-sym (mangle (gensym 'pair)))
(clo-sym (mangle (gensym 'clo)))
(fnc (string-append
"c_" (lib:name->string lib-name) "_inlinable_lambdas")))
(emits*
" mclosure0(" clo-sym ", " fnc "); "
; " make_cvar(" cvar-sym
; ", (object *)&" fnc ");"
)
(emits*
"make_pair(" pair-sym ", find_or_add_symbol(\"" fnc
"\"), &" clo-sym ");\n")
(set! pairs (cons pair-sym pairs))))
;; END
(for-each
(lambda (g)