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

Experimental changes:

Browse source 
1) Disable beta expansion (causes exponential growth problems on compiler benchmark, needs more fine-tuning)
2) Do not inline assoc/member functions since they loop (needs performance analysis)
This commit is contained in:
Justin Ethier 2018-12-21 21:49:52 -05:00
parent c564400f5a
commit 82e14fe9c4
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -988,6 +988,8 @@
(every (every
(lambda (arg) (lambda (arg)
(and (prim-call? arg) (and (prim-call? arg)
;; Do not inline functions that are looping over lists, seems counter-productive
(not (member (car arg) '( member assoc Cyc-fast-member Cyc-fast-assoc assq assv memq memv)))
(not (prim:cont? (car arg))))) (not (prim:cont? (car arg)))))
(cdr exp)) (cdr exp))
;; Disallow primitives that allocate a new obj, ;; Disallow primitives that allocate a new obj,
@ -1609,10 +1611,11 @@
(analyze-cps ast) (analyze-cps ast)
(trace:info "---------------- cps analysis db:") (trace:info "---------------- cps analysis db:")
(trace:info (adb:get-db)) (trace:info (adb:get-db))
(opt:beta-expand ;(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:inline-prims
(opt:contract ast) (opt:contract ast)
-1)) -1)
;)
) )
;; Renumber lambdas and re-run analysis ;; Renumber lambdas and re-run analysis