+ more msdos internal linker classes added

git-svn-id: trunk@30811 -

compiler/ogomf.pas

@@ -117,6 +117,18 @@ interface
         destructor Destroy;override;
       end;
 
+      { TOmfObjInput }
+
+      TOmfObjInput = class(TObjInput)
+        constructor create;override;
+      end;
+
+      { TMZExeOutput }
+
+      TMZExeOutput = class(TExeOutput)
+        constructor create;override;
+      end;
+
       TOmfAssembler = class(tinternalassembler)
         constructor create(smart:boolean);override;
       end;
@@ -868,6 +880,25 @@ implementation
         inherited Destroy;
       end;
 
+{****************************************************************************
+                               TOmfObjInput
+****************************************************************************}
+
+    constructor TOmfObjInput.create;
+      begin
+        inherited create;
+        cobjdata:=TOmfObjData;
+      end;
+
+{****************************************************************************
+                               TMZExeOutput
+****************************************************************************}
+
+    constructor TMZExeOutput.create;
+      begin
+        inherited create;
+      end;
+
 {****************************************************************************
                                TOmfAssembler
 ****************************************************************************}

compiler/systems/t_msdos.pas

@@ -36,7 +36,8 @@ implementation
        cutils,cfileutl,cclasses,
        globtype,globals,systems,verbose,script,
        fmodule,i_msdos,
-       link,aasmbase,cpuinfo;
+       link,aasmbase,cpuinfo,
+       omfbase,ogomf;
 
     type
       { Borland TLINK support }
@@ -73,7 +74,7 @@ implementation
       { TInternalLinkerMsDos }
 
       TInternalLinkerMsDos=class(tinternallinker)
-
+        constructor create;override;
       end;
 
 
@@ -386,6 +387,17 @@ begin
     Result:=true;
 end;
 
+{****************************************************************************
+                               TInternalLinkerMsDos
+****************************************************************************}
+
+constructor TInternalLinkerMsDos.create;
+begin
+  inherited create;
+  CExeOutput:=TMZExeOutput;
+  CObjInput:=TOmfObjInput;
+end;
+
 {*****************************************************************************
                                      Initialize
 *****************************************************************************}