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