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

Check for inlinable functions after prim conv

Browse source 
At this point there are more opportunities for inlining.
This commit is contained in:
Justin Ethier 2017-04-24 18:57:52 -04:00
parent 24f9651232
commit 0dafd88ed3
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
cyclone.scm
View file

@ -216,6 +216,15 @@
(trace:info "---------------- after alpha conversion:") (trace:info "---------------- after alpha conversion:")
(trace:info input-program) ;pretty-print (trace:info input-program) ;pretty-print
;; Convert some function calls to primitives, if possible
(set! input-program
(map
(lambda (expr)
(prim-convert expr))
input-program))
(trace:info "---------------- after func->primitive conversion:")
(trace:info input-program) ;pretty-print
;; 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 (let ((lib-init-fnc (lib:name->symbol lib-name))) ;; safe to ignore for programs
@ -236,15 +245,6 @@
(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)
;; Convert some function calls to primitives, if possible
(set! input-program
(map
(lambda (expr)
(prim-convert expr))
input-program))
(trace:info "---------------- after func->primitive conversion:")
(trace:info input-program) ;pretty-print
(let ((cps (map (let ((cps (map
(lambda (expr) (lambda (expr)
(cps-convert expr)) (cps-convert expr))