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

+ optimization: don't emit relative relocation entries to the same section in

Browse Source 
the omf obj writer

git-svn-id: trunk@30808 -
This commit is contained in:
nickysn 2015-05-06 10:05:15 +00:00
parent d0b365c99a
commit 328a4fa19a
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ogomf.pas
View File

@ -472,6 +472,14 @@ implementation
objreloc:=TOmfRelocation.CreateSymbol(CurrObjSec.Size,p,Reloctype); objreloc:=TOmfRelocation.CreateSymbol(CurrObjSec.Size,p,Reloctype);
CurrObjSec.ObjRelocations.Add(objreloc); CurrObjSec.ObjRelocations.Add(objreloc);
end end
{ relative relocations within the same section can be calculated directly,
without the need to emit a relocation entry }
else if (p.objsection=CurrObjSec) and
(p.bind<>AB_COMMON) and
(Reloctype=RELOC_RELATIVE) then
begin
data:=data+symaddr-len-CurrObjSec.Size;
end
else else
begin begin
objreloc:=TOmfRelocation.CreateSection(CurrObjSec.Size,p.objsection,Reloctype); objreloc:=TOmfRelocation.CreateSection(CurrObjSec.Size,p.objsection,Reloctype);