From 6274c0337afed6190fecc638cb7d4fe9933b5216 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Wed, 29 Jul 2009 23:43:00 -0500 Subject: [PATCH] compiler.cfg.ssa.destruction: fix --- .../cfg/ssa/destruction/process-blocks/process-blocks.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/compiler/cfg/ssa/destruction/process-blocks/process-blocks.factor b/basis/compiler/cfg/ssa/destruction/process-blocks/process-blocks.factor index 18af6e9904..ce2aa1c5d7 100644 --- a/basis/compiler/cfg/ssa/destruction/process-blocks/process-blocks.factor +++ b/basis/compiler/cfg/ssa/destruction/process-blocks/process-blocks.factor @@ -61,10 +61,10 @@ SYMBOLS: phi-union unioned-blocks ; } cond ; : node-is-live-in-of-child? ( node child -- ? ) - [ vreg>> ] [ bb>> live-in ] bi* key? ; + [ vreg>> ] [ bb>> ] bi* live-in? ; : node-is-live-out-of-child? ( node child -- ? ) - [ vreg>> ] [ bb>> live-out ] bi* key? ; + [ vreg>> ] [ bb>> ] bi* live-out? ; :: insert-copy ( bb src dst -- ) bb src dst trivial-interference