+ added class TNewExeOutput. Not functional yet.

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@42225 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 43 insertions, 0 deletions

diff --git a/compiler/ogomf.pas b/compiler/ogomf.pas
index a7b15bddee..cff3595382 100644
--- a/compiler/ogomf.pas
+++ b/compiler/ogomf.pas
@@ -460,6 +460,20 @@ interface
         property ExpectedWindowsVersion: Word read FExpectedWindowsVersion write FExpectedWindowsVersion;
       end;
 
+      { TNewExeOutput }
+
+      TNewExeOutput = class(TExeOutput)
+      private
+        FHeader: TNewExeHeader;
+      protected
+        procedure DoRelocationFixup(objsec:TObjSection);override;
+      public
+        constructor create;override;
+        destructor destroy;override;
+
+        function writeData:boolean;override;
+      end;
+
       TOmfAssembler = class(tinternalassembler)
         constructor create(info: pasminfo; smart:boolean);override;
       end;
@@ -3446,6 +3460,35 @@ cleanup:
       end;
 
 {****************************************************************************
+                               TNewExeOutput
+****************************************************************************}
+
+    procedure TNewExeOutput.DoRelocationFixup(objsec: TObjSection);
+      begin
+        {todo}
+      end;
+
+    constructor TNewExeOutput.create;
+      begin
+        inherited create;
+        CObjData:=TOmfObjData;
+        CObjSymbol:=TOmfObjSymbol;
+        FHeader:=TNewExeHeader.Create;
+      end;
+
+    destructor TNewExeOutput.destroy;
+      begin
+        FHeader.Free;
+        inherited destroy;
+      end;
+
+    function TNewExeOutput.writeData: boolean;
+      begin
+        {todo}
+        Result:=False;
+      end;
+
+{****************************************************************************
                                TOmfAssembler
 ****************************************************************************}