2
0
Эх сурвалжийг харах

+ 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 10 жил өмнө
parent
commit
a365da0b44

+ 2 - 1
compiler/ogomf.pas

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

+ 8 - 0
compiler/owomflib.pas

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