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

+ added TRelRelocationFlags

Browse Source 
git-svn-id: trunk@45261 -
This commit is contained in:
nickysn 2020-05-05 01:13:58 +00:00
parent 569c406116
commit 732f1d9df6
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/ogrel.pas
View File

@ -38,10 +38,26 @@ interface
owbase;
type
TRelRelocationFlag=(
rrfByte, { bit 0 }
rrfSymbol, { bit 1 }
rrfPcRelative, { bit 2 }
rrfTwoByteObjectFormatForByteData, { bit 3 }
rrfUnsignedByteData, { bit 4 }
rrfPage0Reference, { bit 5 }
rrfPageNNNReference, { bit 6 }
rrfMSBWith2ByteMode, { bit 7 }
rrfThreeByteObjectFormatForByteData, { bit 8 }
rrfRealMSBForThreeByteMode, { bit 9 }
rrfReserved10, { bit 10 }
rrfReserved11); { bit 11 }
TRelRelocationFlags=set of TRelRelocationFlag;
{ TRelRelocation }
TRelRelocation = class(TObjRelocation)
public
RelFlags: TRelRelocationFlags;
end;
{ TRelObjData }