From 513a600664934efd5661d319962da295f6d7cd4e Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Thu, 2 Jul 2009 02:41:10 -0500 Subject: [PATCH] compiler.cfg.dce: minor renamings --- basis/compiler/cfg/dce/dce.factor | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/basis/compiler/cfg/dce/dce.factor b/basis/compiler/cfg/dce/dce.factor index 7098d11292..0e64a23eff 100644 --- a/basis/compiler/cfg/dce/dce.factor +++ b/basis/compiler/cfg/dce/dce.factor @@ -12,12 +12,12 @@ SYMBOL: liveness-graph SYMBOL: live-vregs ! vregs which are the result of an allocation -SYMBOL: allocate +SYMBOL: allocations : init-dead-code ( -- ) H{ } clone liveness-graph set H{ } clone live-vregs set - H{ } clone allocate set ; + H{ } clone allocations set ; GENERIC: update-liveness-graph ( insn -- ) @@ -41,20 +41,20 @@ M: ##flushable update-liveness-graph M: insn update-liveness-graph record-live ; -: update-allocator-liveness ( insn vreg -- ) - dup allocate get key? [ add-edges ] [ drop record-live ] if ; +: update-allocation-liveness ( insn vreg -- ) + dup allocations get key? [ add-edges ] [ drop record-live ] if ; M: ##set-slot update-liveness-graph - dup obj>> update-allocator-liveness ; + dup obj>> update-allocation-liveness ; M: ##set-slot-imm update-liveness-graph - dup obj>> update-allocator-liveness ; + dup obj>> update-allocation-liveness ; M: ##write-barrier update-liveness-graph - dup src>> update-allocator-liveness ; + dup src>> update-allocation-liveness ; M: ##allot update-liveness-graph - [ dst>> allocate get conjoin ] + [ dst>> allocations get conjoin ] [ call-next-method ] bi ; GENERIC: live-insn? ( insn -- ? )