steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/compiler/cfg/dcn/dcn-tests.factor
View File

@ -24,7 +24,7 @@ compiler.cfg.dcn.rewrite ;
[ inserting-peeks ] keep untranslate-locs keys ; [ inserting-peeks ] keep untranslate-locs keys ;
: inserting-replaces' ( from to -- assoc ) : 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{ V{
@ -78,7 +78,7 @@ compiler.cfg.dcn.rewrite ;
cfg new 0 get >>entry cfg new 0 get >>entry
compute-predecessors compute-predecessors
deconcatenatize deconcatenatize
check-cfg ; drop ;
V{ T{ ##epilogue } T{ ##return } } 0 test-bb V{ T{ ##epilogue } T{ ##return } } 0 test-bb

2
basis/compiler/tests/codegen.factor
View File

@ -286,7 +286,7 @@ M: cucumber equal? "The cucumber has no equal" throw ;
[ 4294967295 B{ 255 255 255 255 } -1 ] [ 4294967295 B{ 255 255 255 255 } -1 ]
[ [
-1 <int> -1 <int> -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 compile-call
] unit-test ] unit-test