Просмотр исходного кода

+ support creating ar files in the Z80 internal obj writer

git-svn-id: trunk@45276 -
nickysn 5 лет назад
Родитель
Сommit
381be050a5
1 измененных файлов с 2 добавлено и 1 удалено
  1. 2 1
      compiler/ogrel.pas

+ 2 - 1
compiler/ogrel.pas

@@ -101,7 +101,7 @@ implementation
        SysUtils,
        SysUtils,
        cutils,verbose,globals,
        cutils,verbose,globals,
        fmodule,aasmtai,aasmdata,
        fmodule,aasmtai,aasmdata,
-       ogmap,
+       ogmap,owar,
        version
        version
        ;
        ;
 
 
@@ -502,6 +502,7 @@ implementation
       begin
       begin
         inherited;
         inherited;
         CObjOutput:=TRelObjOutput;
         CObjOutput:=TRelObjOutput;
+        CInternalAr:=tarobjectwriter;
       end;
       end;
 
 
 {*****************************************************************************
 {*****************************************************************************