Fixing compiler tests

db4
Slava Pestov 2009-07-22 21:10:50 -05:00
parent 45c66b58af
commit 69ded76c66
2 changed files with 3 additions and 3 deletions

View File

@ -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

View File

@ -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