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