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

+ added properties for specifying a start address in the MODEND omf record (reading/writing them to file not yet implemented)

Browse Source 
git-svn-id: trunk@30586 -
This commit is contained in:
nickysn 2015-04-14 14:55:06 +00:00
parent bf0aaf5470
commit d3cc0770ac
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/omfbase.pas
View File

@ -388,6 +388,15 @@ interface
FHasStartAddress: Boolean; FHasStartAddress: Boolean;
FSegmentBit: Boolean; FSegmentBit: Boolean;
FLogicalStartAddress: Boolean; FLogicalStartAddress: Boolean;
FFrameMethod: TOmfFixupFrameMethod;
FFrameDatum: Integer;
FTargetMethod: TOmfFixupTargetMethod;
FTargetDatum: Integer;
FTargetDisplacement: DWord;
FPhysFrameNumber: Word;
FPhysOffset: DWord;
public public
procedure DecodeFrom(RawRecord: TOmfRawRecord);override; procedure DecodeFrom(RawRecord: TOmfRawRecord);override;
procedure EncodeTo(RawRecord: TOmfRawRecord);override; procedure EncodeTo(RawRecord: TOmfRawRecord);override;
@ -397,6 +406,17 @@ interface
property HasStartAddress: Boolean read FHasStartAddress write FHasStartAddress; property HasStartAddress: Boolean read FHasStartAddress write FHasStartAddress;
property SegmentBit: Boolean read FSegmentBit write FSegmentBit; property SegmentBit: Boolean read FSegmentBit write FSegmentBit;
property LogicalStartAddress: Boolean read FLogicalStartAddress write FLogicalStartAddress; property LogicalStartAddress: Boolean read FLogicalStartAddress write FLogicalStartAddress;
{ properties, specifying a logical start address (used when LogicalStartAddress=true) }
property FrameMethod: TOmfFixupFrameMethod read FFrameMethod write FFrameMethod;
property FrameDatum: Integer read FFrameDatum write FFrameDatum;
property TargetMethod: TOmfFixupTargetMethod read FTargetMethod write FTargetMethod;
property TargetDatum: Integer read FTargetDatum write FTargetDatum;
property TargetDisplacement: DWord read FTargetDisplacement write FTargetDisplacement;
{ properties, specifying a physical start address (used when LogicalStartAddress=false) }
property PhysFrameNumber: Word read FPhysFrameNumber write FPhysFrameNumber;
property PhysOffset: DWord read FPhysOffset write FPhysOffset;
end; end;
{ TOmfSubRecord_FIXUP } { TOmfSubRecord_FIXUP }