From 22b871d82e8800686eb3f680f1f2a4b9f5f3a16b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= Date: Wed, 29 Jul 2015 12:51:05 +0200 Subject: [PATCH] compiler.cfg.utilities: make it so block>cfg initializes spill-area-align --- .../cfg/linear-scan/allocation/state/state-tests.factor | 4 ++-- basis/compiler/cfg/utilities/utilities.factor | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/basis/compiler/cfg/linear-scan/allocation/state/state-tests.factor b/basis/compiler/cfg/linear-scan/allocation/state/state-tests.factor index 517546cffb..260e9b7720 100644 --- 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 diff --git a/basis/compiler/cfg/utilities/utilities.factor b/basis/compiler/cfg/utilities/utilities.factor index dc535d46c2..f177b11112 100644 --- 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 ; : insns>block ( insns n -- bb ) swap >>number swap V{ } like >>instructions ;