Fixing compiler tests
parent
45c66b58af
commit
69ded76c66
|
@ -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
|
||||
|
||||
|
|
|
@ -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
|
||||
|
||||
|
|
Loading…
Reference in New Issue