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

+ actually produce relocations in TRelObjData.writeReloc

Browse Source 
git-svn-id: trunk@45251 -
This commit is contained in:
nickysn 2020-05-04 02:31:19 +00:00
parent 256597be58
commit ab878adfff
1 changed files with 42 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
compiler/ogrel.pas
View File

@ -156,18 +156,51 @@ implementation
procedure TRelObjData.writeReloc(Data: TRelocDataInt; len: aword; p: TObjSymbol; Reloctype: TObjRelocationType);
var
bytes: array [0..1] of Byte;
symaddr: QWord;
objreloc: TObjRelocation;
begin
if len=2 then
if CurrObjSec=nil then
internalerror(200403072);
objreloc:=nil;
if assigned(p) then
begin
bytes[0]:=Byte(Data);
bytes[1]:=Byte(Data shr 8);
writebytes(bytes,2);
end
else if len=1 then
begin
bytes[0]:=Byte(Data);
writebytes(bytes,1);
{ real address of the symbol }
symaddr:=p.address;
if p.bind=AB_EXTERNAL then
begin
objreloc:=TObjRelocation.CreateSymbol(CurrObjSec.Size,p,Reloctype);
CurrObjSec.ObjRelocations.Add(objreloc);
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
begin
objreloc:=TObjRelocation.CreateSection(CurrObjSec.Size,p.objsection,Reloctype);
CurrObjSec.ObjRelocations.Add(objreloc);
end;
end;
case len of
2:
begin
bytes[0]:=Byte(Data);
bytes[1]:=Byte(Data shr 8);
writebytes(bytes,2);
end;
1:
begin
bytes[0]:=Byte(Data);
writebytes(bytes,1);
end;
else
internalerror(2020050423);
end;
end;
{*****************************************************************************