38 lines
1.2 KiB
Factor
38 lines
1.2 KiB
Factor
! Copyright (C) 2008 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: accessors sequences kernel
|
|
compiler.tree compiler.tree.dead-code.branches
|
|
compiler.tree.dead-code.liveness
|
|
compiler.tree.dead-code.simple ;
|
|
IN: compiler.tree.dead-code.recursive
|
|
|
|
M: #enter-recursive compute-live-values*
|
|
[ out-d>> ] [ recursive-phi-in ] bi look-at-phi ;
|
|
|
|
: return-recursive-phi-in ( #return-recursive -- phi-in )
|
|
[ label>> calls>> [ in-d>> ] map ] [ in-d>> ] bi suffix ;
|
|
|
|
M: #return-recursive compute-live-values*
|
|
[ out-d>> ] [ return-recursive-phi-in ] bi look-at-phi ;
|
|
|
|
M: #call-recursive compute-live-values*
|
|
#! If the output of a copy is live, then the corresponding
|
|
#! inputs to #return nodes are live also.
|
|
[ out-d>> ] [ label>> return>> in-d>> ] bi look-at-mapping ;
|
|
|
|
M: #recursive remove-dead-code*
|
|
[ filter-live ] change-in-d
|
|
[ (remove-dead-code) ] change-child ;
|
|
|
|
M: #call-recursive remove-dead-code*
|
|
[ filter-live ] change-in-d
|
|
[ filter-live ] change-out-d ;
|
|
|
|
M: #enter-recursive remove-dead-code*
|
|
[ filter-live ] change-in-d
|
|
[ filter-live ] change-out-d ;
|
|
|
|
M: #return-recursive remove-dead-code*
|
|
[ filter-live ] change-in-d
|
|
[ filter-live ] change-out-d ;
|