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

* changed the TObjRelocation.DataOffset and orgsize types to TObjSectionOfs instead of aword

Browse Source 
git-svn-id: trunk@39091 -
This commit is contained in:
nickysn 2018-05-22 13:17:35 +00:00
parent dcdfecbf35
commit 99f2f3d4b6
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/ogbase.pas
View File

@ -255,18 +255,18 @@ interface
procedure SetType(v:TObjRelocationType); procedure SetType(v:TObjRelocationType);
public public
DataOffset, DataOffset,
orgsize : aword; { COFF: original size of the symbol to relocate } orgsize : TObjSectionOfs; { COFF: original size of the symbol to relocate }
{ ELF: explicit addend } { ELF: explicit addend }
symbol : TObjSymbol; symbol : TObjSymbol;
objsection : TObjSection; { only used if symbol=nil } objsection : TObjSection; { only used if symbol=nil }
group : TObjSectionGroup; { only used if symbol=nil and objsection=nil } group : TObjSectionGroup; { only used if symbol=nil and objsection=nil }
ftype : byte; ftype : byte;
size : byte; size : byte;
flags : byte; flags : byte;
constructor CreateSymbol(ADataOffset:aword;s:TObjSymbol;Atyp:TObjRelocationType); constructor CreateSymbol(ADataOffset:TObjSectionOfs;s:TObjSymbol;Atyp:TObjRelocationType);
constructor CreateSection(ADataOffset:aword;aobjsec:TObjSection;Atyp:TObjRelocationType); constructor CreateSection(ADataOffset:TObjSectionOfs;aobjsec:TObjSection;Atyp:TObjRelocationType);
constructor CreateGroup(ADataOffset:aword;grp:TObjSectionGroup;Atyp:TObjRelocationType); constructor CreateGroup(ADataOffset:TObjSectionOfs;grp:TObjSectionGroup;Atyp:TObjRelocationType);
constructor CreateRaw(ADataOffset:aword;s:TObjSymbol;ARawType:byte); constructor CreateRaw(ADataOffset:TObjSectionOfs;s:TObjSymbol;ARawType:byte);
function TargetName:TSymStr; function TargetName:TSymStr;
property typ: TObjRelocationType read GetType write SetType; property typ: TObjRelocationType read GetType write SetType;
end; end;
@ -838,7 +838,7 @@ implementation
TObjRelocation TObjRelocation
****************************************************************************} ****************************************************************************}
constructor TObjRelocation.CreateSymbol(ADataOffset:aword;s:TObjSymbol;Atyp:TObjRelocationType); constructor TObjRelocation.CreateSymbol(ADataOffset:TObjSectionOfs;s:TObjSymbol;Atyp:TObjRelocationType);
begin begin
if not assigned(s) then if not assigned(s) then
internalerror(200603034); internalerror(200603034);
@ -851,7 +851,7 @@ implementation
end; end;
constructor TObjRelocation.CreateSection(ADataOffset:aword;aobjsec:TObjSection;Atyp:TObjRelocationType); constructor TObjRelocation.CreateSection(ADataOffset:TObjSectionOfs;aobjsec:TObjSection;Atyp:TObjRelocationType);
begin begin
if not assigned(aobjsec) then if not assigned(aobjsec) then
internalerror(200603036); internalerror(200603036);
@ -864,7 +864,7 @@ implementation
end; end;
constructor TObjRelocation.CreateGroup(ADataOffset:aword;grp:TObjSectionGroup;Atyp:TObjRelocationType); constructor TObjRelocation.CreateGroup(ADataOffset:TObjSectionOfs;grp:TObjSectionGroup;Atyp:TObjRelocationType);
begin begin
if not assigned(grp) then if not assigned(grp) then
internalerror(2015111201); internalerror(2015111201);
@ -877,7 +877,7 @@ implementation
end; end;
constructor TObjRelocation.CreateRaw(ADataOffset:aword;s:TObjSymbol;ARawType:byte); constructor TObjRelocation.CreateRaw(ADataOffset:TObjSectionOfs;s:TObjSymbol;ARawType:byte);
begin begin
{ nil symbol is allowed here } { nil symbol is allowed here }
DataOffset:=ADataOffset; DataOffset:=ADataOffset;