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

Exclude lib init from inlinable top level funcs

Browse source
This commit is contained in:
Justin Ethier 2017-04-18 12:51:30 +00:00
parent b27dab456d
commit 9f26868ef0
1 changed files with 14 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
cyclone.scm
View file

@ -218,9 +218,11 @@
;; Identify native Scheme functions that can be inlined ;; Identify native Scheme functions that can be inlined
(define inlinable-scheme-fncs '()) (define inlinable-scheme-fncs '())
(let ((lib-init-fnc (lib:name->symbol lib-name))) ;; safe to ignore for programs
(for-each (for-each
(lambda (e) (lambda (e)
(when (inlinable-top-level-function? e) (when (and (not (equal? (define->var e) lib-init-fnc))
(inlinable-top-level-function? e))
(set! inlinable-scheme-fncs (set! inlinable-scheme-fncs
(cons (define->var e) inlinable-scheme-fncs)) (cons (define->var e) inlinable-scheme-fncs))
;; TESTING, will not work yet ;; TESTING, will not work yet
@ -229,7 +231,7 @@
(prim:add-udf! (define->var e) (define-c->inline-var e)) (prim:add-udf! (define->var e) (define-c->inline-var e))
;; END ;; END
)) ))
input-program) input-program))
(trace:info "---------------- results of inlinable-top-level-function analysis: ") (trace:info "---------------- results of inlinable-top-level-function analysis: ")
(trace:info inlinable-scheme-fncs) (trace:info inlinable-scheme-fncs)