+ started work on the Z80 internal linker

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

1 files changed, 45 insertions, 0 deletions

diff --git a/compiler/ogrel.pas b/compiler/ogrel.pas
index 24a038f3d6..a7fbf01dcb 100644
--- a/compiler/ogrel.pas
+++ b/compiler/ogrel.pas
@@ -96,6 +96,22 @@ interface
         constructor create(info: pasminfo; smart:boolean);override;
       end;
 
+      { TRelObjInput }
+
+      TRelObjInput = class(TObjInput)
+      public
+        function ReadObjData(AReader:TObjectreader;out Data:TObjData):boolean;override;
+        class function CanReadObjData(AReader:TObjectreader):boolean;override;
+      end;
+
+      { TIntelHexExeOutput }
+
+      TIntelHexExeOutput = class(TExeOutput)
+      protected
+        function writeData:boolean;override;
+        procedure DoRelocationFixup(objsec:TObjSection);override;
+      end;
+
 implementation
 
     uses
@@ -513,6 +529,35 @@ implementation
         CInternalAr:=tarobjectwriter;
       end;
 
+
+{*****************************************************************************
+                                TRelObjInput
+*****************************************************************************}
+
+    function TRelObjInput.ReadObjData(AReader: TObjectreader; out Data: TObjData): boolean;
+      begin
+        result:=false;
+      end;
+
+    class function TRelObjInput.CanReadObjData(AReader: TObjectreader): boolean;
+      begin
+        result:=false;
+      end;
+
+
+{*****************************************************************************
+                             TIntelHexExeOutput
+*****************************************************************************}
+
+    function TIntelHexExeOutput.writeData: boolean;
+      begin
+        result:=false;
+      end;
+
+    procedure TIntelHexExeOutput.DoRelocationFixup(objsec: TObjSection);
+      begin
+      end;
+
 {*****************************************************************************
                                   Initialize
 *****************************************************************************}