steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

compiler.cfg.dce: minor renamings

db4
Slava Pestov 2009-07-02 02:41:10 -05:00
parent 392e313f05
commit 513a600664
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
basis/compiler/cfg/dce/dce.factor
View File

@ -12,12 +12,12 @@ SYMBOL: liveness-graph
SYMBOL: live-vregs SYMBOL: live-vregs
! vregs which are the result of an allocation ! vregs which are the result of an allocation
SYMBOL: allocate SYMBOL: allocations
: init-dead-code ( -- ) : init-dead-code ( -- )
H{ } clone liveness-graph set H{ } clone liveness-graph set
H{ } clone live-vregs set H{ } clone live-vregs set
H{ } clone allocate set ; H{ } clone allocations set ;
GENERIC: update-liveness-graph ( insn -- ) GENERIC: update-liveness-graph ( insn -- )
@ -41,20 +41,20 @@ M: ##flushable update-liveness-graph
M: insn update-liveness-graph record-live ; M: insn update-liveness-graph record-live ;
: update-allocator-liveness ( insn vreg -- ) : update-allocation-liveness ( insn vreg -- )
dup allocate get key? [ add-edges ] [ drop record-live ] if ; dup allocations get key? [ add-edges ] [ drop record-live ] if ;
M: ##set-slot update-liveness-graph M: ##set-slot update-liveness-graph
dup obj>> update-allocator-liveness ; dup obj>> update-allocation-liveness ;
M: ##set-slot-imm update-liveness-graph M: ##set-slot-imm update-liveness-graph
dup obj>> update-allocator-liveness ; dup obj>> update-allocation-liveness ;
M: ##write-barrier update-liveness-graph M: ##write-barrier update-liveness-graph
dup src>> update-allocator-liveness ; dup src>> update-allocation-liveness ;
M: ##allot update-liveness-graph M: ##allot update-liveness-graph
[ dst>> allocate get conjoin ] [ dst>> allocations get conjoin ]
[ call-next-method ] bi ; [ call-next-method ] bi ;
GENERIC: live-insn? ( insn -- ? ) GENERIC: live-insn? ( insn -- ? )