Using regpair instead of hl_or_de is not, in fact, safe until we've stopped

using bc.
This commit is contained in:
David Given 2019-02-15 21:38:17 +01:00
parent d63a359a49
commit afd45acb89

View file

@ -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