compiler.cfg.ssa.construction.tests: fix tc broken by previous commit
parent
befbe0bb59
commit
e371327ec4
|
@ -14,8 +14,7 @@ IN: compiler.cfg.ssa.construction.tests
|
||||||
: test-ssa ( -- )
|
: test-ssa ( -- )
|
||||||
0 get block>cfg
|
0 get block>cfg
|
||||||
dup cfg set
|
dup cfg set
|
||||||
construct-ssa
|
construct-ssa ;
|
||||||
drop ;
|
|
||||||
|
|
||||||
: clean-up-phis ( insns -- insns' )
|
: clean-up-phis ( insns -- insns' )
|
||||||
[ dup ##phi? [ [ [ [ number>> ] dip ] assoc-map ] change-inputs ] when ] map ;
|
[ dup ##phi? [ [ [ [ number>> ] dip ] assoc-map ] change-inputs ] when ] map ;
|
||||||
|
|
Loading…
Reference in New Issue