compiler.cfg: don't need to escape the symbol here.
parent
2dafe964fd
commit
6a183718fa
|
@ -103,7 +103,7 @@ V{
|
|||
|
||||
[ ] [ 1 get instructions>> allocation-size 123 <alien> 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> 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
|
||||
|
||||
|
|
|
@ -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
|
||||
|
||||
|
|
|
@ -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{
|
||||
|
|
|
@ -1613,7 +1613,7 @@ cpu x86? [
|
|||
] unit-test
|
||||
|
||||
! Distributive law
|
||||
2 \ vreg-counter set-global
|
||||
2 vreg-counter set-global
|
||||
|
||||
[
|
||||
{
|
||||
|
|
Loading…
Reference in New Issue