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

2015-07-29 12:51:05 +02:00 · 2015-07-29 12:51:05 +02:00 · 22b871d82e
parent fba2eb9ace
commit 22b871d82e
2 changed files with 3 additions and 3 deletions
--- a/basis/compiler/cfg/linear-scan/allocation/state/state-tests.factor
+++ b/basis/compiler/cfg/linear-scan/allocation/state/state-tests.factor
@ -106,9 +106,9 @@ ${
 ] unit-test

 ! align-spill-area
-{ t } [
+${ cell } [
    3 { } insns>cfg [ align-spill-area ] keep
-    spill-area-align>> cell =
+    spill-area-align>>
 ] unit-test

 ! inactive-intervals-for
--- a/basis/compiler/cfg/utilities/utilities.factor
+++ b/basis/compiler/cfg/utilities/utilities.factor
@ -6,7 +6,7 @@ kernel locals make math namespaces sequences sets ;
 IN: compiler.cfg.utilities

 : block>cfg ( bb -- cfg )
-    cfg new swap >>entry ;
+    f f rot <cfg> ;

 : insns>block ( insns n -- bb )
    <basic-block> swap >>number swap V{ } like >>instructions ;