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

* ARM PC relative references optimization.

Browse Source 
git-svn-id: trunk@5368 -
This commit is contained in:
yury 2006-11-14 09:31:17 +00:00
parent 4ba88ce33e
commit ba53db3b5d
1 changed files with 31 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
compiler/arm/aasmcpu.pas
View File

@ -627,9 +627,10 @@ implementation
lastpos : longint;
curop : longint;
curtai : tai;
curdatatai,hp : tai;
curdatatai,hp,hp2 : tai;
curdata : TAsmList;
l : tasmlabel;
removeref : boolean;
begin
curdata:=TAsmList.create;
lastpos:=-1;
@ -652,11 +653,38 @@ implementation
{ move only if we're at the first reference of a label }
(taicpu(curtai).oper[curop]^.ref^.offset=0) then
begin
{ if yes, insert till next symbol }
{ check if symbol already used. }
{ if yes, reuse the symbol }
hp:=tai(curdatatai.next);
removeref:=false;
if assigned(hp) and (hp.typ=ait_const) then
begin
hp2:=tai(curdata.first);
while assigned(hp2) do
begin
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)
then
begin
with taicpu(curtai).oper[curop]^.ref^ do
begin
symboldata:=hp2.previous;
symbol:=tai_label(hp2.previous).labsym;
end;
removeref:=true;
break;
end;
hp2:=tai(hp2.next);
end;
end;
{ move or remove symbol reference }
repeat
hp:=tai(curdatatai.next);
listtoinsert.remove(curdatatai);
curdata.concat(curdatatai);
if removeref then
curdatatai.free
else
curdata.concat(curdatatai);
curdatatai:=hp;
until (curdatatai=nil) or (curdatatai.typ=ait_label);
if lastpos=-1 then