From d3cc0770ac6c8abb54b1d7fb7217b6c39e11c61d Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Tue, 14 Apr 2015 14:55:06 +0000
Subject: [PATCH] + added properties for specifying a start address in the
 MODEND omf record (reading/writing them to file not yet implemented)

git-svn-id: trunk@30586 -
---
 compiler/omfbase.pas | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/compiler/omfbase.pas b/compiler/omfbase.pas
index adf641a794..d9c91076c9 100644
--- a/compiler/omfbase.pas
+++ b/compiler/omfbase.pas
@@ -388,6 +388,15 @@ interface
       FHasStartAddress: Boolean;
       FSegmentBit: Boolean;
       FLogicalStartAddress: Boolean;
+
+      FFrameMethod: TOmfFixupFrameMethod;
+      FFrameDatum: Integer;
+      FTargetMethod: TOmfFixupTargetMethod;
+      FTargetDatum: Integer;
+      FTargetDisplacement: DWord;
+
+      FPhysFrameNumber: Word;
+      FPhysOffset: DWord;
     public
       procedure DecodeFrom(RawRecord: TOmfRawRecord);override;
       procedure EncodeTo(RawRecord: TOmfRawRecord);override;
@@ -397,6 +406,17 @@ interface
       property HasStartAddress: Boolean read FHasStartAddress write FHasStartAddress;
       property SegmentBit: Boolean read FSegmentBit write FSegmentBit;
       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;
 
     { TOmfSubRecord_FIXUP }