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

Re-enable inline searching code

Browse source
This commit is contained in:
Justin Ethier 2017-04-18 09:02:44 +00:00
parent 33ba61578b
commit 547d1e218d
1 changed files with 12 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
cyclone.scm
View file

@ -217,18 +217,18 @@
(trace:info input-program) ;pretty-print
;; Identify native Scheme functions that can be inlined
; (define inlinable-scheme-fncs '())
; (for-each
; (lambda (e)
; (when (inlinable-top-level-function? e)
; (set! inlinable-scheme-fncs
; (cons (define->var e) inlinable-scheme-fncs))
; ;; TESTING, will not work yet
(define inlinable-scheme-fncs '())
(for-each
(lambda (e)
(when (inlinable-top-level-function? e)
(set! inlinable-scheme-fncs
(cons (define->var e) inlinable-scheme-fncs))
;; TESTING, will not work yet
;(prim:add-udf! (define->var e) (define-c->inline-var e))
; ))
; input-program)
; (trace:info "---------------- results of inlinable-top-level-function analysis: ")
; (trace:info inlinable-scheme-fncs)
))
input-program)
(trace:info "---------------- results of inlinable-top-level-function analysis: ")
(trace:info inlinable-scheme-fncs)
;; Convert some function calls to primitives, if possible
(set! input-program