* override DoRelocationFixup in TMZExeOutput - doing nothing for now, but

  prevents the "abstract method called" error

git-svn-id: trunk@31350 -

compiler/ogomf.pas

@@ -206,6 +206,7 @@ interface
 
       TMZExeOutput = class(TExeOutput)
       protected
+        procedure DoRelocationFixup(objsec:TObjSection);override;
         function writeData:boolean;override;
       public
         constructor create;override;
@@ -1660,6 +1661,18 @@ implementation
                                TMZExeOutput
 ****************************************************************************}
 
+    procedure TMZExeOutput.DoRelocationFixup(objsec: TObjSection);
+      var
+        i: Integer;
+        objreloc: TOmfRelocation;
+      begin
+        for i:=0 to objsec.ObjRelocations.Count-1 do
+          begin
+            objreloc:=TOmfRelocation(objsec.ObjRelocations[i]);
+            {todo}
+          end;
+      end;
+
     function TMZExeOutput.writeData: boolean;
       var
         Header: TMZExeHeader;