* Fixed signature of insert_init_final_table

compiler/aarch64/naarch64util.pas

@@ -26,12 +26,12 @@ unit naarch64util;
 interface
 
 uses
-    cclasses, ngenutil;
+    cclasses, ngenutil, fmodule;
 
 type
     TAArch64NodeUtils = class(TNodeUtils)
         class procedure InsertObjectInfo; override;
-        class procedure Insert_Init_Final_Table(Entries: TFPList); override;
+        class procedure Insert_Init_Final_Table(main: tmodule; Entries: TFPList); override;
     end;
 
 implementation
@@ -54,7 +54,7 @@ end;
     TODO: This is a simple skeleton, not nearly as complex as the
     ARM (32-bit) version in compiler/arm/narmutil.pas
 }
-class procedure TAArch64NodeUtils.Insert_Init_Final_Table(Entries: TFPList);
+class procedure TAArch64NodeUtils.Insert_Init_Final_Table(main: tmodule; Entries: TFPList);
 
     procedure GenEntry(List: TAsmList);
     var
@@ -113,7 +113,7 @@ var
 begin
     if not(tf_init_final_units_by_calls in target_info.flags) then
     begin
-        inherited insert_init_final_table(Entries);
+        inherited insert_init_final_table(main,Entries);
         exit;
     end;
 
@@ -156,7 +156,7 @@ begin
     InitList.Free;
     FinalList.Free;
 
-    inherited Insert_Init_Final_Table(entries);
+    inherited Insert_Init_Final_Table(main,entries);
 end;
 
 begin

compiler/arm/narmutil.pas

@@ -26,12 +26,12 @@ unit narmutil;
 interface
 
   uses
-    cclasses,ngenutil;
+    cclasses,ngenutil,fmodule;
 
   type
     tarmnodeutils = class(tnodeutils)
       class procedure InsertObjectInfo; override;
-      class procedure insert_init_final_table(entries: tfplist); override;
+      class procedure insert_init_final_table(main : tmodule; entries: tfplist); override;
     end;
 
 
@@ -251,7 +251,7 @@ interface
           end;
       end;
 
-    class procedure tarmnodeutils.insert_init_final_table(entries:tfplist);
+    class procedure tarmnodeutils.insert_init_final_table(main : tmodule; entries:tfplist);
 
       procedure genentry(list : TAsmList);
         var
@@ -290,7 +290,7 @@ interface
       begin
         if not(tf_init_final_units_by_calls in target_info.flags) then
           begin
-            inherited insert_init_final_table(entries);
+            inherited insert_init_final_table(main,entries);
             exit;
           end;
         initList:=TAsmList.create;
@@ -332,7 +332,7 @@ interface
         initList.Free;
         finalList.Free;
 
-        inherited insert_init_final_table(entries);
+        inherited insert_init_final_table(main,entries);
       end;
 
   begin

compiler/xtensa/ncpuutil.pas

@@ -29,13 +29,13 @@ interface
     cclasses,
     node,nbas,
     ngenutil,
-    symtype,symconst,symsym,symdef;
+    symtype,symconst,symsym,symdef,fmodule;
 
 
   type
     txtensanodeutils = class(tnodeutils)
     protected
-      class procedure insert_init_final_table(entries:tfplist); override;
+      class procedure insert_init_final_table(main: tmodule; entries:tfplist); override;
     end;
 
 implementation
@@ -52,7 +52,7 @@ implementation
       pass_1;
 
 
-  class procedure txtensanodeutils.insert_init_final_table(entries:tfplist);
+  class procedure txtensanodeutils.insert_init_final_table(main: tmodule; entries:tfplist);
     var
       callop, retop: TAsmOp;
       initList, finalList, header: TAsmList;
@@ -129,7 +129,7 @@ implementation
       initList.Free;
       finalList.Free;
 
-      inherited insert_init_final_table(entries);
+      inherited insert_init_final_table(main,entries);
     end;
 
 begin