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

Test re-enabling beta expansion

Browse source
This commit is contained in:
Justin Ethier 2019-01-17 16:58:45 -05:00
parent 4b72131ac6
commit b0000c42e7
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
scheme/cyclone/cps-optimizations.sld
View file

@ -1207,6 +1207,7 @@
(define (inline-prim-call? exp scope-sym ivars args)
(let ((fast-inline #t)
(cannot-inline #f))
;; TODO: causes problems doing this here???
;(for-each
; (lambda (v)
; (with-var v (lambda (var)
@ -1489,8 +1490,8 @@
(= 1 (adbv:app-fnc-count var)))
(not (adbv:reassigned? var))
(not (adbv:self-rec-call? var))
;(not (fnc-depth>? (ast:lambda-body fnc) 4))))
(not (fnc-depth>? (ast:lambda-body fnc) 5))
(not (fnc-depth>? (ast:lambda-body fnc) 4))
;(not (fnc-depth>? (ast:lambda-body fnc) 5))
;; Issue here is we can run into code that calls the
;; same continuation from both if branches. In this
;; case we do not want to beta-expand as a contraction
@ -1703,11 +1704,11 @@
(analyze-cps ast)
(trace:info "---------------- cps analysis db:")
(trace:info (adb:get-db))
;(opt:beta-expand ;; TODO: temporarily disabled, causes problems with massive expansions in compiler benchmark, need to revist how to throttle/limit this (program size? heuristics? what else??)
(opt:beta-expand ;; TODO: temporarily disabled, causes problems with massive expansions in compiler benchmark, need to revist how to throttle/limit this (program size? heuristics? what else??)
(opt:inline-prims
(opt:contract ast)
-1)
;)
)
)
;; Renumber lambdas and re-run analysis