Parcourir la source

+ added class (empty for now) TOmfLibObjectWriter and hook it as an internal ar
in the omf internal assembler constructor. Note it is not used yet, because of
the af_needar assembler flag.

git-svn-id: trunk@30698 -

nickysn il y a 10 ans
Parent
commit
a365da0b44
2 fichiers modifiés avec 10 ajouts et 1 suppressions
  1. 2 1
      compiler/ogomf.pas
  2. 8 0
      compiler/owomflib.pas

+ 2 - 1
compiler/ogomf.pas

@@ -126,7 +126,7 @@ implementation
        SysUtils,
        cutils,verbose,globals,
        fmodule,aasmtai,aasmdata,
-       ogmap,
+       ogmap,owomflib,
        version
        ;
 
@@ -843,6 +843,7 @@ implementation
       begin
         inherited Create(smart);
         CObjOutput:=TOmfObjOutput;
+        CInternalAr:=TOmfLibObjectWriter;
       end;
 
 {*****************************************************************************

+ 8 - 0
compiler/owomflib.pas

@@ -32,6 +32,14 @@ uses
   cclasses,
   owbase;
 
+type
+
+  { TOmfLibObjectWriter }
+
+  TOmfLibObjectWriter=class(TObjectWriter)
+
+  end;
+
 implementation
 
 end.