42 lines
1000 B
Factor
42 lines
1000 B
Factor
! Copyright (C) 2008, 2009 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: kernel sequences accessors combinators namespaces
|
|
compiler.cfg.tco
|
|
compiler.cfg.useless-conditionals
|
|
compiler.cfg.branch-splitting
|
|
compiler.cfg.block-joining
|
|
compiler.cfg.ssa.construction
|
|
compiler.cfg.alias-analysis
|
|
compiler.cfg.value-numbering
|
|
compiler.cfg.copy-prop
|
|
compiler.cfg.dce
|
|
compiler.cfg.write-barrier
|
|
compiler.cfg.representations
|
|
compiler.cfg.ssa.destruction
|
|
compiler.cfg.empty-blocks
|
|
compiler.cfg.checker ;
|
|
IN: compiler.cfg.optimizer
|
|
|
|
SYMBOL: check-optimizer?
|
|
|
|
: ?check ( cfg -- cfg' )
|
|
check-optimizer? get [
|
|
dup check-cfg
|
|
] when ;
|
|
|
|
: optimize-cfg ( cfg -- cfg' )
|
|
optimize-tail-calls
|
|
delete-useless-conditionals
|
|
split-branches
|
|
join-blocks
|
|
construct-ssa
|
|
alias-analysis
|
|
value-numbering
|
|
copy-propagation
|
|
eliminate-dead-code
|
|
eliminate-write-barriers
|
|
select-representations
|
|
destruct-ssa
|
|
delete-empty-blocks
|
|
?check ;
|