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

compiler.cfg: don't need to escape the symbol here.

db4
John Benediktsson 2012-08-02 15:14:42 -07:00
parent 2dafe964fd
commit 6a183718fa
4 changed files with 19 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/compiler/cfg/gc-checks/gc-checks-tests.factor
View File

@ -103,7 +103,7 @@ V{
[ ] [ 1 get instructions>> allocation-size 123 <alien> size assert= ] unit-test [ ] [ 1 get instructions>> allocation-size 123 <alien> size assert= ] unit-test
2 \ vreg-counter set-global 2 vreg-counter set-global
: gc-check? ( bb -- ? ) : gc-check? ( bb -- ? )
instructions>> instructions>>
@ -119,11 +119,11 @@ V{
T{ ##branch } T{ ##branch }
} = ; } = ;
4 \ vreg-counter set-global 4 vreg-counter set-global
[ t ] [ <gc-call> gc-call? ] unit-test [ t ] [ <gc-call> gc-call? ] unit-test
30 \ vreg-counter set-global 30 vreg-counter set-global
V{ V{
T{ ##prologue } T{ ##prologue }
@ -290,7 +290,7 @@ V{
0 1 edge 0 1 edge
1 2 edge 1 2 edge
2 \ vreg-counter set-global 2 vreg-counter set-global
[ ] [ test-gc-checks ] unit-test [ ] [ test-gc-checks ] unit-test
@ -326,7 +326,7 @@ V{
0 1 edge 0 1 edge
1 2 edge 1 2 edge
2 \ vreg-counter set-global 2 vreg-counter set-global
[ ] [ test-gc-checks ] unit-test [ ] [ test-gc-checks ] unit-test

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

@ -9,7 +9,7 @@ SYMBOL: vreg-counter
: next-vreg ( -- vreg ) : next-vreg ( -- vreg )
! This word cannot be called AFTER representation selection has run; ! This word cannot be called AFTER representation selection has run;
! use next-vreg-rep in that case ! use next-vreg-rep in that case
\ vreg-counter counter ; vreg-counter counter ;
SYMBOL: representations SYMBOL: representations

24
basis/compiler/cfg/representations/representations-tests.factor
View File

@ -28,7 +28,7 @@ IN: compiler.cfg.representations
H{ } clone representations set H{ } clone representations set
3 \ vreg-counter set-global 3 vreg-counter set-global
[ [
{ {
@ -197,7 +197,7 @@ V{
3 { 3 4 } edges 3 { 3 4 } edges
2 4 edge 2 4 edge
3 \ vreg-counter set-global 3 vreg-counter set-global
[ ] [ test-representations ] unit-test [ ] [ test-representations ] unit-test
@ -396,7 +396,7 @@ cpu x86.32? [
! Don't convert the def site into anything but tagged-rep since ! Don't convert the def site into anything but tagged-rep since
! we might lose precision ! we might lose precision
5 \ vreg-counter set-global 5 vreg-counter set-global
[ f ] [ [ f ] [
V{ V{
@ -426,7 +426,7 @@ cpu x86.32? [
] unit-test ] unit-test
! Peephole optimization if input to ##shl-imm is tagged ! Peephole optimization if input to ##shl-imm is tagged
3 \ vreg-counter set-global 3 vreg-counter set-global
[ [
V{ V{
@ -445,7 +445,7 @@ cpu x86.32? [
} test-peephole } test-peephole
] unit-test ] unit-test
3 \ vreg-counter set-global 3 vreg-counter set-global
[ [
V{ V{
@ -531,7 +531,7 @@ cpu x86.32? [
} test-peephole } test-peephole
] unit-test ] unit-test
6 \ vreg-counter set-global 6 vreg-counter set-global
! Peephole optimization if input to ##sar-imm is tagged ! Peephole optimization if input to ##sar-imm is tagged
[ [
@ -549,7 +549,7 @@ cpu x86.32? [
} test-peephole } test-peephole
] unit-test ] 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 ! (Lack of) peephole optimization if output of ##sar-imm needs to be tagged
[ [
@ -630,7 +630,7 @@ cpu x86.32? [
} test-peephole } test-peephole
] unit-test ] unit-test
6 \ vreg-counter set-global 6 vreg-counter set-global
[ [
V{ V{
@ -686,7 +686,7 @@ cpu x86.32? [
! Make sure we don't exceed immediate bounds ! Make sure we don't exceed immediate bounds
cpu x86.64? [ cpu x86.64? [
4 \ vreg-counter set-global 4 vreg-counter set-global
[ [
V{ V{
@ -735,7 +735,7 @@ cpu x86.64? [
} test-peephole } test-peephole
] unit-test ] unit-test
4 \ vreg-counter set-global 4 vreg-counter set-global
[ [
V{ V{
@ -860,7 +860,7 @@ cpu x86.64? [
} test-peephole } test-peephole
] unit-test ] unit-test
4 \ vreg-counter set-global 4 vreg-counter set-global
[ [
V{ V{
@ -883,7 +883,7 @@ cpu x86.64? [
] unit-test ] unit-test
! Tag/untag elimination for ##not ! Tag/untag elimination for ##not
2 \ vreg-counter set-global 2 vreg-counter set-global
[ [
V{ V{

2
basis/compiler/cfg/value-numbering/value-numbering-tests.factor
View File

@ -1613,7 +1613,7 @@ cpu x86? [
] unit-test ] unit-test
! Distributive law ! Distributive law
2 \ vreg-counter set-global 2 vreg-counter set-global
[ [
{ {