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

compiler.cfg.utilities: make it so block>cfg initializes spill-area-align

db4
Björn Lindqvist 2015-07-29 12:51:05 +02:00
parent fba2eb9ace
commit 22b871d82e
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/linear-scan/allocation/state/state-tests.factor
View File

@ -106,9 +106,9 @@ ${
] unit-test ] unit-test
! align-spill-area ! align-spill-area
{ t } [ ${ cell } [
3 { } insns>cfg [ align-spill-area ] keep 3 { } insns>cfg [ align-spill-area ] keep
spill-area-align>> cell = spill-area-align>>
] unit-test ] unit-test
! inactive-intervals-for ! inactive-intervals-for

2
basis/compiler/cfg/utilities/utilities.factor
View File

@ -6,7 +6,7 @@ kernel locals make math namespaces sequences sets ;
IN: compiler.cfg.utilities IN: compiler.cfg.utilities
: block>cfg ( bb -- cfg ) : block>cfg ( bb -- cfg )
cfg new swap >>entry ; f f rot <cfg> ;
: insns>block ( insns n -- bb ) : insns>block ( insns n -- bb )
<basic-block> swap >>number swap V{ } like >>instructions ; <basic-block> swap >>number swap V{ } like >>instructions ;