diff options
author | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-05-05 03:03:02 +0000 |
---|---|---|
committer | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-05-05 03:03:02 +0000 |
commit | 728ec813599a2dc8582e6466860e684ac70ea1b4 (patch) | |
tree | f0f3bf69631df0de814102d920808cd7cfb676bf /compiler/ogrel.pas | |
parent | 3bc33e3e3552b82677d94b4a56e1fa35ebf1c5a4 (diff) | |
download | fpc-728ec813599a2dc8582e6466860e684ac70ea1b4.tar.gz |
+ initialize size and relflags in TRelRelocation
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@45262 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/ogrel.pas')
-rw-r--r-- | compiler/ogrel.pas | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/compiler/ogrel.pas b/compiler/ogrel.pas index dc636ab0b5..3814f09e24 100644 --- a/compiler/ogrel.pas +++ b/compiler/ogrel.pas @@ -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 } @@ -105,6 +108,24 @@ implementation 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 *****************************************************************************} |