compiler.cfg.builder: remove some dead code

db4
Slava Pestov 2009-07-17 21:52:33 -05:00
parent 43fab5b2ae
commit b83f27af74
1 changed files with 2 additions and 12 deletions

View File

@ -23,30 +23,20 @@ IN: compiler.cfg.builder
! Convert tree SSA IR to CFG SSA IR.
SYMBOL: procedures
SYMBOL: current-word
SYMBOL: current-label
SYMBOL: loops
: add-procedure ( -- )
basic-block get current-word get current-label get
<cfg> procedures get push ;
: begin-procedure ( word label -- )
end-basic-block
begin-basic-block
H{ } clone loops set
current-label set
current-word set
add-procedure ;
[ basic-block get ] 2dip
<cfg> procedures get push ;
: with-cfg-builder ( nodes word label quot -- )
'[ begin-procedure @ ] with-scope ; inline
GENERIC: emit-node ( node -- )
: check-basic-block ( node -- node' )
basic-block get [ drop f ] unless ; inline
: emit-nodes ( nodes -- )
[ basic-block get [ emit-node ] [ drop ] if ] each ;