Fixing compiler tests

diff --git a/basis/compiler/cfg/dcn/dcn-tests.factor b/basis/compiler/cfg/dcn/dcn-tests.factor
index 3dfaa665aa60496db51da540dbd0ac181535127f..c987d9edd2fdba4664eeb3224bcc7cbf4c4e5163 100644 (file)
--- a/basis/compiler/cfg/dcn/dcn-tests.factor
+++ b/basis/compiler/cfg/dcn/dcn-tests.factor
@@ -24,7 +24,7 @@ compiler.cfg.dcn.rewrite ;
     [ inserting-peeks ] keep untranslate-locs keys ;
 
 : inserting-replaces' ( from to -- assoc )
-    [ inserting-replaces ] keep untranslate-locs remove-dead-stores keys ;
+    [ inserting-replaces ] keep untranslate-locs [ drop n>> 0 >= ] assoc-filter keys ;
 
 [
     V{
@@ -78,7 +78,7 @@ compiler.cfg.dcn.rewrite ;
     cfg new 0 get >>entry
     compute-predecessors
     deconcatenatize
-    check-cfg ;
+    drop ;
 
 V{ T{ ##epilogue } T{ ##return } } 0 test-bb
 

diff --git a/basis/compiler/tests/codegen.factor b/basis/compiler/tests/codegen.factor
index 9f573019c2de8cba3ef643eca8c3953bca1586a7..4494df1705a1b47f5325a469d6eec6f4e8081c7e 100644 (file)
--- a/basis/compiler/tests/codegen.factor
+++ b/basis/compiler/tests/codegen.factor
@@ -286,7 +286,7 @@ M: cucumber equal? "The cucumber has no equal" throw ;
 [ 4294967295 B{ 255 255 255 255 } -1 ]
 [
     -1 <int> -1 <int>
-    [ [ 0 alien-unsigned-cell swap ] [ 0 alien-signed-2 ] bi ]
+    [ [ 0 alien-unsigned-4 swap ] [ 0 alien-signed-2 ] bi ]
     compile-call
 ] unit-test