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

+ added omf fixup related enums

Browse Source 
git-svn-id: trunk@30436 -
This commit is contained in:
nickysn 2015-04-05 14:50:59 +00:00
parent d63961ce02
commit 25411c3871
1 changed files with 47 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
compiler/omfbase.pas
View File

@ -120,6 +120,53 @@ interface
scPublic7 = 7); { same as scPublic }
TOmfSegmentUse = (suUse16, suUse32);
TOmfFixupMode = (fmSelfRelative, fmSegmentRelative);
TOmfFixupLocationType = (
fltLoByte = 0, { low 8 bits of 16-bit offset }
fltOffset = 1, { 16-bit offset }
fltBase = 2, { 16-bit base (segment) }
fltFarPointer = 3, { 16-bit base:16-bit offset }
fltHiByte = 4, { high 8 bits of 16-bit offset }
fltLoaderResolvedOffset = 5, { PharLap: Offset32 }
fltUndefined6 = 6, { PharLap: Pointer48 }
fltUndefined7 = 7,
fltUndefined8 = 8,
fltOffset32 = 9, { 32-bit offset }
fltUndefined10 = 10,
fltFarPointer48 = 11, { 16-bit base:32-bit offset }
fltUndefined12 = 12,
fltLoaderResolvedOffset32 = 13,
fltUndefined14 = 14,
fltUndefined15 = 15);
TOmfFixupFrameMethod = (
ffmSegmentIndex = 0, { SI(<segment name>) - The frame is the canonic frame of the logical
segment segment defined by the index }
ffmGroupIndex = 1, { GI(<group name>) - The frame is the canonic frame of the group
(= the canonic frame of the logical segment from the group,
located at the lowest memory address) }
ffmExternalIndex = 2, { EI(<symbol name>) - The frame is determined depending on the external's public definition:
* if the symbol is defined relative to a logical segment and no defined group,
the frame of the logical segment is used
* if the symbol is defined absolutely, without reference to a logical segment and
no defined group, the FRAME NUMBER from the symbol's PUBDEF record is used
* regardless of how the symbol is specified, if there's an associated group,
that group's canonic frame is used }
ffmFrameNumber = 3, { <FRAME NUMBER> - The frame is a directly specified constant. }
ffmLocation = 4, { LOCATION - The frame is determined by the location (i.e. the canonic frame of the logical
segment where the fixup location is) }
ffmTarget = 5, { TARGET - The frame is determined by the target. }
ffmNone = 6, { NONE - There is no frame. Used for 8089 self-relative references. }
ffmUndefined = 7);
TOmfFixupTargetMethod = (
ftmSegmentIndex = 0, { SI(<segment name>),<displacement> }
ftmGroupIndex = 1, { GI(<group name>),<displacement> }
ftmExternalIndex = 2, { EI(<symbol name>),<displacement> }
ftmFrameNumber = 3, { <FRAME NUMBER>,<displacement> }
ftmSegmentIndexNoDisp = 4, { SI(<segment name>) }
ftmGroupIndexNoDisp = 5, { GI(<group name>) }
ftmExternalIndexNoDisp = 6, { EI(<symbol name>) }
ftmFrameNumberNoDisp = 7); { <FRAME NUMBER> }
{ TOmfOrderedNameCollection }
TOmfOrderedNameCollection = class