paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 09:09:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* do not re-used gottpoff symbols as they are PC-relative

Browse Source 
git-svn-id: trunk@40321 -
This commit is contained in:
florian 2018-11-15 20:07:56 +00:00
parent 53a27fe7b3
commit 095bd6da7d
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/arm/aasmcpu.pas
View File

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