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

+ initialize size and relflags in TRelRelocation

Browse Source 
git-svn-id: trunk@45262 -
This commit is contained in:
nickysn 2020-05-05 03:03:02 +00:00
parent 732f1d9df6
commit 03acadaf1e
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/ogrel.pas
View File

@ -58,6 +58,9 @@ interface
TRelRelocation = class(TObjRelocation)
public
RelFlags: TRelRelocationFlags;
constructor CreateSymbol(ADataOffset:TObjSectionOfs;s:TObjSymbol;Atyp:TObjRelocationType);
constructor CreateSection(ADataOffset:TObjSectionOfs;aobjsec:TObjSection;Atyp:TObjRelocationType);
end;
{ TRelObjData }
@ -104,6 +107,24 @@ implementation
delete(result,1,1);
end;
{*****************************************************************************
TRelRelocation
*****************************************************************************}
constructor TRelRelocation.CreateSymbol(ADataOffset: TObjSectionOfs; s: TObjSymbol; Atyp: TObjRelocationType);
begin
inherited;
size:=2;
RelFlags:=[rrfSymbol];
end;
constructor TRelRelocation.CreateSection(ADataOffset: TObjSectionOfs; aobjsec: TObjSection; Atyp: TObjRelocationType);
begin
inherited;
size:=2;
RelFlags:=[];
end;
{*****************************************************************************
TRelObjData
*****************************************************************************}