Using regpair instead of hl_or_de is not, in fact, safe until we've stopped
using bc.
This commit is contained in:
		
							parent
							
								
									d63a359a49
								
							
						
					
					
						commit
						afd45acb89
					
				
					 1 changed files with 16 additions and 16 deletions
				
			
		| 
						 | 
					@ -1619,7 +1619,7 @@ pat cmf $1==8
 | 
				
			||||||
leaving cal ".cmf8" asp 16 lfr 2
 | 
					leaving cal ".cmf8" asp 16 lfr 2
 | 
				
			||||||
 | 
					
 | 
				
			||||||
pat cmu zlt $1==2
 | 
					pat cmu zlt $1==2
 | 
				
			||||||
   with regpair regpair STACK
 | 
					   with hl_or_de hl_or_de STACK
 | 
				
			||||||
      uses areg
 | 
					      uses areg
 | 
				
			||||||
      gen
 | 
					      gen
 | 
				
			||||||
         mov a, %2.2
 | 
					         mov a, %2.2
 | 
				
			||||||
| 
						 | 
					@ -1627,7 +1627,7 @@ pat cmu zlt $1==2
 | 
				
			||||||
         mov a, %2.1
 | 
					         mov a, %2.1
 | 
				
			||||||
         sbb %1.1
 | 
					         sbb %1.1
 | 
				
			||||||
         jc {label, $2}
 | 
					         jc {label, $2}
 | 
				
			||||||
   with const2 regpair STACK
 | 
					   with const2 hl_or_de STACK
 | 
				
			||||||
      uses areg
 | 
					      uses areg
 | 
				
			||||||
      gen
 | 
					      gen
 | 
				
			||||||
         mov a, %2.2
 | 
					         mov a, %2.2
 | 
				
			||||||
| 
						 | 
					@ -1635,7 +1635,7 @@ pat cmu zlt $1==2
 | 
				
			||||||
         mov a, %2.1
 | 
					         mov a, %2.1
 | 
				
			||||||
         sbi {const1, %1.num >> 8}
 | 
					         sbi {const1, %1.num >> 8}
 | 
				
			||||||
         jc {label, $2}
 | 
					         jc {label, $2}
 | 
				
			||||||
   with regpair const2 STACK
 | 
					   with hl_or_de const2 STACK
 | 
				
			||||||
      uses areg
 | 
					      uses areg
 | 
				
			||||||
      gen
 | 
					      gen
 | 
				
			||||||
         mvi a, {const1, %2.num & 0xff}
 | 
					         mvi a, {const1, %2.num & 0xff}
 | 
				
			||||||
| 
						 | 
					@ -1651,7 +1651,7 @@ pat cmu zgt $1==2
 | 
				
			||||||
      zlt $2
 | 
					      zlt $2
 | 
				
			||||||
 | 
					
 | 
				
			||||||
pat cmu zge $1==2
 | 
					pat cmu zge $1==2
 | 
				
			||||||
   with regpair regpair STACK
 | 
					   with hl_or_de hl_or_de STACK
 | 
				
			||||||
      uses areg
 | 
					      uses areg
 | 
				
			||||||
      gen
 | 
					      gen
 | 
				
			||||||
         mov a, %2.2
 | 
					         mov a, %2.2
 | 
				
			||||||
| 
						 | 
					@ -1659,7 +1659,7 @@ pat cmu zge $1==2
 | 
				
			||||||
         mov a, %2.1
 | 
					         mov a, %2.1
 | 
				
			||||||
         sbb %1.1
 | 
					         sbb %1.1
 | 
				
			||||||
         jnc {label, $2}
 | 
					         jnc {label, $2}
 | 
				
			||||||
   with const2 regpair STACK
 | 
					   with const2 hl_or_de STACK
 | 
				
			||||||
      uses areg
 | 
					      uses areg
 | 
				
			||||||
      gen
 | 
					      gen
 | 
				
			||||||
         mov a, %2.2
 | 
					         mov a, %2.2
 | 
				
			||||||
| 
						 | 
					@ -1667,7 +1667,7 @@ pat cmu zge $1==2
 | 
				
			||||||
         mov a, %2.1
 | 
					         mov a, %2.1
 | 
				
			||||||
         sbi {const1, %1.num >> 8}
 | 
					         sbi {const1, %1.num >> 8}
 | 
				
			||||||
         jnc {label, $2}
 | 
					         jnc {label, $2}
 | 
				
			||||||
   with regpair const2 STACK
 | 
					   with hl_or_de const2 STACK
 | 
				
			||||||
      uses areg
 | 
					      uses areg
 | 
				
			||||||
      gen
 | 
					      gen
 | 
				
			||||||
         mvi a, {const1, %2.num & 0xff}
 | 
					         mvi a, {const1, %2.num & 0xff}
 | 
				
			||||||
| 
						 | 
					@ -2026,14 +2026,14 @@ pat zlt
 | 
				
			||||||
         pop psw
 | 
					         pop psw
 | 
				
			||||||
         ora a
 | 
					         ora a
 | 
				
			||||||
         jm {label,$1}
 | 
					         jm {label,$1}
 | 
				
			||||||
   with regpair STACK
 | 
					   with hl_or_de STACK
 | 
				
			||||||
      gen
 | 
					      gen
 | 
				
			||||||
         mov a,%1.1
 | 
					         mov a,%1.1
 | 
				
			||||||
         ora a
 | 
					         ora a
 | 
				
			||||||
         jm {label,$1}
 | 
					         jm {label,$1}
 | 
				
			||||||
 | 
					
 | 
				
			||||||
pat zle
 | 
					pat zle
 | 
				
			||||||
   with regpair STACK
 | 
					   with hl_or_de STACK
 | 
				
			||||||
      uses areg
 | 
					      uses areg
 | 
				
			||||||
      gen
 | 
					      gen
 | 
				
			||||||
         mov a, %1.1
 | 
					         mov a, %1.1
 | 
				
			||||||
| 
						 | 
					@ -2045,7 +2045,7 @@ pat zle
 | 
				
			||||||
         1:
 | 
					         1:
 | 
				
			||||||
 | 
					
 | 
				
			||||||
pat zeq
 | 
					pat zeq
 | 
				
			||||||
   with regpair STACK
 | 
					   with hl_or_de STACK
 | 
				
			||||||
      uses areg
 | 
					      uses areg
 | 
				
			||||||
      gen
 | 
					      gen
 | 
				
			||||||
         mov a,%1.1
 | 
					         mov a,%1.1
 | 
				
			||||||
| 
						 | 
					@ -2053,7 +2053,7 @@ pat zeq
 | 
				
			||||||
         jz {label,$1}
 | 
					         jz {label,$1}
 | 
				
			||||||
 | 
					
 | 
				
			||||||
pat zne
 | 
					pat zne
 | 
				
			||||||
   with regpair STACK
 | 
					   with hl_or_de STACK
 | 
				
			||||||
      uses areg
 | 
					      uses areg
 | 
				
			||||||
      gen
 | 
					      gen
 | 
				
			||||||
         mov a,%1.1
 | 
					         mov a,%1.1
 | 
				
			||||||
| 
						 | 
					@ -2066,14 +2066,14 @@ pat zge
 | 
				
			||||||
         pop psw
 | 
					         pop psw
 | 
				
			||||||
         ral.
 | 
					         ral.
 | 
				
			||||||
         jnc {label,$1}
 | 
					         jnc {label,$1}
 | 
				
			||||||
   with regpair STACK
 | 
					   with hl_or_de STACK
 | 
				
			||||||
      gen
 | 
					      gen
 | 
				
			||||||
         mov a,%1.1
 | 
					         mov a,%1.1
 | 
				
			||||||
         ora a
 | 
					         ora a
 | 
				
			||||||
         jp {label,$1}
 | 
					         jp {label,$1}
 | 
				
			||||||
 | 
					
 | 
				
			||||||
pat zgt
 | 
					pat zgt
 | 
				
			||||||
   with regpair STACK
 | 
					   with hl_or_de STACK
 | 
				
			||||||
      uses areg
 | 
					      uses areg
 | 
				
			||||||
      gen
 | 
					      gen
 | 
				
			||||||
         mov a, %1.1
 | 
					         mov a, %1.1
 | 
				
			||||||
| 
						 | 
					@ -2105,7 +2105,7 @@ pat lol zne
 | 
				
			||||||
         jnz {label,$2}
 | 
					         jnz {label,$2}
 | 
				
			||||||
 | 
					
 | 
				
			||||||
pat ior zeq $1==2
 | 
					pat ior zeq $1==2
 | 
				
			||||||
   with regpair regpair STACK
 | 
					   with hl_or_de hl_or_de STACK
 | 
				
			||||||
      uses areg
 | 
					      uses areg
 | 
				
			||||||
      gen
 | 
					      gen
 | 
				
			||||||
         mov a,%1.1
 | 
					         mov a,%1.1
 | 
				
			||||||
| 
						 | 
					@ -2115,7 +2115,7 @@ pat ior zeq $1==2
 | 
				
			||||||
         jz {label,$2}
 | 
					         jz {label,$2}
 | 
				
			||||||
 | 
					
 | 
				
			||||||
pat ior zne $1==2
 | 
					pat ior zne $1==2
 | 
				
			||||||
   with regpair regpair STACK
 | 
					   with hl_or_de hl_or_de STACK
 | 
				
			||||||
      uses areg
 | 
					      uses areg
 | 
				
			||||||
      gen
 | 
					      gen
 | 
				
			||||||
         mov a,%1.1
 | 
					         mov a,%1.1
 | 
				
			||||||
| 
						 | 
					@ -2183,14 +2183,14 @@ gen 1:
 | 
				
			||||||
pat asp $1==0 /* do nothing */
 | 
					pat asp $1==0 /* do nothing */
 | 
				
			||||||
 | 
					
 | 
				
			||||||
pat asp ($1==2)
 | 
					pat asp ($1==2)
 | 
				
			||||||
   with regpair
 | 
					   with hl_or_de
 | 
				
			||||||
   with STACK
 | 
					   with STACK
 | 
				
			||||||
      uses hlreg
 | 
					      uses hlreg
 | 
				
			||||||
      gen
 | 
					      gen
 | 
				
			||||||
         pop hl
 | 
					         pop hl
 | 
				
			||||||
 | 
					
 | 
				
			||||||
pat asp ($1==4)
 | 
					pat asp ($1==4)
 | 
				
			||||||
   with regpair regpair
 | 
					   with hl_or_de hl_or_de
 | 
				
			||||||
   with STACK
 | 
					   with STACK
 | 
				
			||||||
      uses hlreg
 | 
					      uses hlreg
 | 
				
			||||||
      gen
 | 
					      gen
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
	Add table
		
		Reference in a new issue