diff --git a/basis/compiler/cfg/gc-checks/gc-checks-tests.factor b/basis/compiler/cfg/gc-checks/gc-checks-tests.factor index 44ede70c97..43e69c8800 100644 --- a/basis/compiler/cfg/gc-checks/gc-checks-tests.factor +++ b/basis/compiler/cfg/gc-checks/gc-checks-tests.factor @@ -103,7 +103,7 @@ V{ [ ] [ 1 get instructions>> allocation-size 123 size assert= ] unit-test -2 \ vreg-counter set-global +2 vreg-counter set-global : gc-check? ( bb -- ? ) instructions>> @@ -119,11 +119,11 @@ V{ T{ ##branch } } = ; -4 \ vreg-counter set-global +4 vreg-counter set-global [ t ] [ gc-call? ] unit-test -30 \ vreg-counter set-global +30 vreg-counter set-global V{ T{ ##prologue } @@ -290,7 +290,7 @@ V{ 0 1 edge 1 2 edge -2 \ vreg-counter set-global +2 vreg-counter set-global [ ] [ test-gc-checks ] unit-test @@ -326,7 +326,7 @@ V{ 0 1 edge 1 2 edge -2 \ vreg-counter set-global +2 vreg-counter set-global [ ] [ test-gc-checks ] unit-test diff --git a/basis/compiler/cfg/registers/registers.factor b/basis/compiler/cfg/registers/registers.factor index d061409932..d70d9316a2 100644 --- a/basis/compiler/cfg/registers/registers.factor +++ b/basis/compiler/cfg/registers/registers.factor @@ -9,7 +9,7 @@ SYMBOL: vreg-counter : next-vreg ( -- vreg ) ! This word cannot be called AFTER representation selection has run; ! use next-vreg-rep in that case - \ vreg-counter counter ; + vreg-counter counter ; SYMBOL: representations diff --git a/basis/compiler/cfg/representations/representations-tests.factor b/basis/compiler/cfg/representations/representations-tests.factor index a289b10a96..0e9a451c0a 100644 --- a/basis/compiler/cfg/representations/representations-tests.factor +++ b/basis/compiler/cfg/representations/representations-tests.factor @@ -28,7 +28,7 @@ IN: compiler.cfg.representations H{ } clone representations set -3 \ vreg-counter set-global +3 vreg-counter set-global [ { @@ -197,7 +197,7 @@ V{ 3 { 3 4 } edges 2 4 edge -3 \ vreg-counter set-global +3 vreg-counter set-global [ ] [ test-representations ] unit-test @@ -396,7 +396,7 @@ cpu x86.32? [ ! Don't convert the def site into anything but tagged-rep since ! we might lose precision -5 \ vreg-counter set-global +5 vreg-counter set-global [ f ] [ V{ @@ -426,7 +426,7 @@ cpu x86.32? [ ] unit-test ! Peephole optimization if input to ##shl-imm is tagged -3 \ vreg-counter set-global +3 vreg-counter set-global [ V{ @@ -445,7 +445,7 @@ cpu x86.32? [ } test-peephole ] unit-test -3 \ vreg-counter set-global +3 vreg-counter set-global [ V{ @@ -531,7 +531,7 @@ cpu x86.32? [ } test-peephole ] unit-test -6 \ vreg-counter set-global +6 vreg-counter set-global ! Peephole optimization if input to ##sar-imm is tagged [ @@ -549,7 +549,7 @@ cpu x86.32? [ } test-peephole ] unit-test -6 \ vreg-counter set-global +6 vreg-counter set-global ! (Lack of) peephole optimization if output of ##sar-imm needs to be tagged [ @@ -630,7 +630,7 @@ cpu x86.32? [ } test-peephole ] unit-test -6 \ vreg-counter set-global +6 vreg-counter set-global [ V{ @@ -686,7 +686,7 @@ cpu x86.32? [ ! Make sure we don't exceed immediate bounds cpu x86.64? [ - 4 \ vreg-counter set-global + 4 vreg-counter set-global [ V{ @@ -735,7 +735,7 @@ cpu x86.64? [ } test-peephole ] unit-test -4 \ vreg-counter set-global +4 vreg-counter set-global [ V{ @@ -860,7 +860,7 @@ cpu x86.64? [ } test-peephole ] unit-test -4 \ vreg-counter set-global +4 vreg-counter set-global [ V{ @@ -883,7 +883,7 @@ cpu x86.64? [ ] unit-test ! Tag/untag elimination for ##not -2 \ vreg-counter set-global +2 vreg-counter set-global [ V{ diff --git a/basis/compiler/cfg/value-numbering/value-numbering-tests.factor b/basis/compiler/cfg/value-numbering/value-numbering-tests.factor index e2c82fb308..0ed93e4cb5 100644 --- a/basis/compiler/cfg/value-numbering/value-numbering-tests.factor +++ b/basis/compiler/cfg/value-numbering/value-numbering-tests.factor @@ -1613,7 +1613,7 @@ cpu x86? [ ] unit-test ! Distributive law -2 \ vreg-counter set-global +2 vreg-counter set-global [ {