Fix bad helper tool invocation for inl with faddrn.

This commit is contained in:
David Given 2019-02-14 23:21:47 +01:00
parent cf6041c57f
commit 3c3d2a4520

View file

@ -954,7 +954,7 @@ pat inc
inx %1
yields %1
pat inl ($1>0) && ($1<STACKHELPERS)
pat inl ($1>0) && ($1<=STACKHELPERS)
uses hlreg
gen
Call {plabel, ".faddr", $1}
@ -964,10 +964,10 @@ pat inl ($1>0) && ($1<STACKHELPERS)
inr {m}
1:
pat inl ($1<0) && ($1<0-STACKHELPERS)
pat inl ($1<0) && ($1>=0-STACKHELPERS)
uses hlreg
gen
Call {plabel, ".faddrn", $1}
Call {plabel, ".faddrn", 0-$1}
inr {m}
jnz {label,1f}
inx hl