compiler.cfg.*: fix for test cases that broke due to stack effect changes

db4
Björn Lindqvist 2014-12-11 02:36:37 +01:00
parent bfc0ef815b
commit 08e9f18c3b
3 changed files with 5 additions and 7 deletions

View File

@ -4,7 +4,7 @@ cpu.architecture kernel namespaces tools.test ;
IN: compiler.cfg.copy-prop.tests IN: compiler.cfg.copy-prop.tests
: test-copy-propagation ( -- ) : test-copy-propagation ( -- )
0 get block>cfg copy-propagation drop ; 0 get block>cfg copy-propagation ;
! Simple example ! Simple example
V{ V{

View File

@ -5,7 +5,7 @@ compiler.cfg.registers compiler.cfg.utilities cpu.architecture tools.test ;
IN: compiler.cfg.dce.tests IN: compiler.cfg.dce.tests
: test-dce ( insns -- insns' ) : test-dce ( insns -- insns' )
insns>cfg eliminate-dead-code entry>> instructions>> ; insns>cfg dup eliminate-dead-code entry>> instructions>> ;
[ V{ [ V{
T{ ##load-integer { dst 1 } { val 8 } } T{ ##load-integer { dst 1 } { val 8 } }

View File

@ -2748,7 +2748,7 @@ test-diamond
[ ] [ [ ] [
0 get block>cfg dup cfg set 0 get block>cfg dup cfg set
value-numbering dup value-numbering
select-representations select-representations
destruct-ssa drop destruct-ssa drop
] unit-test ] unit-test
@ -2788,9 +2788,7 @@ test-diamond
[ ] [ [ ] [
0 get block>cfg 0 get block>cfg
value-numbering { value-numbering eliminate-dead-code } apply-passes
eliminate-dead-code
drop
] unit-test ] unit-test
[ t ] [ 1 get successors>> first 3 get eq? ] unit-test [ t ] [ 1 get successors>> first 3 get eq? ] unit-test
@ -2857,7 +2855,7 @@ V{
[ ] [ [ ] [
0 get block>cfg 0 get block>cfg
value-numbering eliminate-dead-code drop { value-numbering eliminate-dead-code } apply-passes
] unit-test ] unit-test
[ f ] [ 1 get instructions>> [ ##peek? ] any? ] unit-test [ f ] [ 1 get instructions>> [ ##peek? ] any? ] unit-test