23 lines
599 B
Factor
23 lines
599 B
Factor
! Copyright (C) 2008 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: kernel sequences compiler.cfg.rpo
|
|
compiler.cfg.instructions
|
|
compiler.cfg.height
|
|
compiler.cfg.alias-analysis
|
|
compiler.cfg.value-numbering
|
|
compiler.cfg.write-barrier ;
|
|
IN: compiler.cfg.optimizer
|
|
|
|
: trivial? ( insns -- ? )
|
|
dup length 1 = [ first ##call? ] [ drop f ] if ;
|
|
|
|
: optimize-cfg ( cfg -- cfg' )
|
|
[
|
|
dup trivial? [
|
|
normalize-height
|
|
alias-analysis
|
|
value-numbering
|
|
eliminate-write-barriers
|
|
] unless
|
|
] change-basic-blocks ;
|