compiler.cfg.*: reverting the commit

5fd9e61bc04b054d58b8eeecbe9b5c59f68f2195, caused bad regressions in SIMD code

diff --git a/basis/compiler/cfg/ssa/destruction/destruction-tests.factor b/basis/compiler/cfg/ssa/destruction/destruction-tests.factor
index 6757ef733cea36c8128eaad8ed684706109d6d27..e225709e0cec46968bd612fe039bec9fb7b0965a 100644 (file)
--- a/basis/compiler/cfg/ssa/destruction/destruction-tests.factor
+++ b/basis/compiler/cfg/ssa/destruction/destruction-tests.factor
@@ -25,12 +25,3 @@ IN: compiler.cfg.ssa.destruction.tests
     T{ ##parallel-copy { values V{ } } }
     [ cleanup-insn ] V{ } make
 ] unit-test
-
-! coalesce-leaders
-{
-    H{ { 30 60 } }
-} [
-    H{ } clone leader-map set
-    30 60 coalesce-leaders
-    leader-map get
-] unit-test

diff --git a/basis/compiler/cfg/stacks/finalize/finalize.factor b/basis/compiler/cfg/stacks/finalize/finalize.factor
index 9b26728fbca518c679923824b8a42e925fed9232..210c9787729db95cf38b6dd5af1dcd1596a40c4c 100644 (file)
--- a/basis/compiler/cfg/stacks/finalize/finalize.factor
+++ b/basis/compiler/cfg/stacks/finalize/finalize.factor
@@ -27,7 +27,8 @@ ERROR: bad-peek dst loc ;
     [ dup n>> 0 < [ bad-peek ] [ ##peek, ] if ] each-insertion ;
 
 : insert-replaces ( from to -- )
-    2drop ;
+    [ inserting-replaces ] keep
+    [ dup n>> 0 < [ 2drop ] [ ##replace, ] if ] each-insertion ;
 
 : visit-edge ( from to -- )
     ! If both blocks are subroutine calls, don't bother

diff --git a/basis/compiler/cfg/stacks/local/local-tests.factor b/basis/compiler/cfg/stacks/local/local-tests.factor
index d9e5ab7ef5ab8d0bbaf6e381f2c016e2061cb8b4..87a23a9d7f955ff54309279f8b39038f5cf9882a 100644 (file)
--- a/basis/compiler/cfg/stacks/local/local-tests.factor
+++ b/basis/compiler/cfg/stacks/local/local-tests.factor
@@ -60,7 +60,6 @@ IN: compiler.cfg.stacks.local.tests
 {
     V{
         T{ ##copy { dst 1 } { src 3 } { rep any-rep } }
-        T{ ##replace { src 1 } { loc D 0 } }
         "eh"
     }
 } [

diff --git a/basis/compiler/cfg/stacks/local/local.factor b/basis/compiler/cfg/stacks/local/local.factor
index f6d354dc623d68a5c79d5bffa9e56461f4b07d7a..71eb9c25a0a1d7bf06e4c9d2bc4e05f5f9bcaedb 100644 (file)
--- a/basis/compiler/cfg/stacks/local/local.factor
+++ b/basis/compiler/cfg/stacks/local/local.factor
@@ -65,11 +65,9 @@ SYMBOLS: local-peek-set replaces ;
     [ loc>> n>> 0 >= ] filter ;
 
 : changes>insns ( replaces height-state -- insns )
-    [ drop replaces>copy-insns ]
-    [ nip height-state>insns ]
-    [ replaces>replace-insns ] 2tri 3append ;
+    [ replaces>copy-insns ] [ height-state>insns ] bi* append ;
 
-: emit-changes ( replaces height-state -- )
+: emit-changes ( replaces state -- )
     building get pop -rot changes>insns % , ;
 
 : peek-loc ( loc -- vreg )