Fix bad helper tool invocation for inl with faddrn.
This commit is contained in:
parent
cf6041c57f
commit
3c3d2a4520
1 changed files with 3 additions and 3 deletions
|
@ -954,7 +954,7 @@ pat inc
|
||||||
inx %1
|
inx %1
|
||||||
yields %1
|
yields %1
|
||||||
|
|
||||||
pat inl ($1>0) && ($1<STACKHELPERS)
|
pat inl ($1>0) && ($1<=STACKHELPERS)
|
||||||
uses hlreg
|
uses hlreg
|
||||||
gen
|
gen
|
||||||
Call {plabel, ".faddr", $1}
|
Call {plabel, ".faddr", $1}
|
||||||
|
@ -964,10 +964,10 @@ pat inl ($1>0) && ($1<STACKHELPERS)
|
||||||
inr {m}
|
inr {m}
|
||||||
1:
|
1:
|
||||||
|
|
||||||
pat inl ($1<0) && ($1<0-STACKHELPERS)
|
pat inl ($1<0) && ($1>=0-STACKHELPERS)
|
||||||
uses hlreg
|
uses hlreg
|
||||||
gen
|
gen
|
||||||
Call {plabel, ".faddrn", $1}
|
Call {plabel, ".faddrn", 0-$1}
|
||||||
inr {m}
|
inr {m}
|
||||||
jnz {label,1f}
|
jnz {label,1f}
|
||||||
inx hl
|
inx hl
|
||||||
|
|
Loading…
Add table
Reference in a new issue