mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-06 22:25:59 +02:00
* do not re-used gottpoff symbols as they are PC-relative
git-svn-id: trunk@40321 -
This commit is contained in:
parent
53a27fe7b3
commit
095bd6da7d
@ -1150,8 +1150,9 @@ implementation
|
|||||||
while assigned(hp2) do
|
while assigned(hp2) do
|
||||||
begin
|
begin
|
||||||
if (hp2.typ=ait_const) and (tai_const(hp2).sym=tai_const(hp).sym)
|
if (hp2.typ=ait_const) and (tai_const(hp2).sym=tai_const(hp).sym)
|
||||||
and (tai_const(hp2).value=tai_const(hp).value) and (tai(hp2.previous).typ=ait_label)
|
and (tai_const(hp2).value=tai_const(hp).value) and (tai(hp2.previous).typ=ait_label) and
|
||||||
then
|
{ gottpoff symbols are PC relative, so we cannot reuse them }
|
||||||
|
(tai_const(hp2).consttype<>aitconst_gottpoff) then
|
||||||
begin
|
begin
|
||||||
with taicpu(curtai).oper[curop]^.ref^ do
|
with taicpu(curtai).oper[curop]^.ref^ do
|
||||||
begin
|
begin
|
||||||
|
Loading…
Reference in New Issue
Block a user