Pārlūkot izejas kodu

* Fix compilation

Michaël Van Canneyt 1 gadu atpakaļ
vecāks
revīzija
a15dfba971
1 mainītis faili ar 5 papildinājumiem un 4 dzēšanām
  1. 5 4
      compiler/avr/navrutil.pas

+ 5 - 4
compiler/avr/navrutil.pas

@@ -27,6 +27,7 @@ interface
 
 
   uses
   uses
     cclasses,
     cclasses,
+    fmodule,
     node,nbas,
     node,nbas,
     ngenutil,
     ngenutil,
     symtype,symconst,symsym,symdef;
     symtype,symconst,symsym,symdef;
@@ -35,13 +36,13 @@ interface
   type
   type
     tavrnodeutils = class(tnodeutils)
     tavrnodeutils = class(tnodeutils)
     protected
     protected
-      class procedure insert_init_final_table(entries:tfplist); override;
+      class procedure insert_init_final_table(main: tmodule; entries:tfplist); override;
     end;
     end;
 
 
 implementation
 implementation
 
 
     uses
     uses
-      verbose,cutils,globtype,globals,constexp,fmodule,
+      verbose,cutils,globtype,globals,constexp,
       aasmdata,aasmtai,aasmcpu,aasmcnst,aasmbase,
       aasmdata,aasmtai,aasmcpu,aasmcnst,aasmbase,
       cpubase,
       cpubase,
       symbase,symcpu,symtable,defutil,
       symbase,symcpu,symtable,defutil,
@@ -52,7 +53,7 @@ implementation
       pass_1;
       pass_1;
 
 
 
 
-  class procedure tavrnodeutils.insert_init_final_table(entries:tfplist);
+  class procedure tavrnodeutils.insert_init_final_table(main: tmodule; entries:tfplist);
     var
     var
       op : TAsmOp;
       op : TAsmOp;
       initList, finalList, header: TAsmList;
       initList, finalList, header: TAsmList;
@@ -104,7 +105,7 @@ implementation
       initList.Free;
       initList.Free;
       finalList.Free;
       finalList.Free;
 
 
-      inherited insert_init_final_table(entries);
+      inherited insert_init_final_table(main,entries);
     end;
     end;
 
 
 begin
 begin