2007-08-14 Vincent Celier <celier@adacore.com>

[pf3gnuchains/gcc-fork.git] / gcc / ada / mlib-tgt-aix.adb

diff --git a/gcc/ada/mlib-tgt-aix.adb b/gcc/ada/mlib-tgt-aix.adb
index 9545e8a..55fa4d1 100644 (file)
--- a/gcc/ada/mlib-tgt-aix.adb
+++ b/gcc/ada/mlib-tgt-aix.adb
@@ -42,10 +42,7 @@ package body MLib.Tgt.Specific is
 
    procedure Build_Dynamic_Library
      (Ofiles       : Argument_List;
-      Foreign      : Argument_List;
-      Afiles       : Argument_List;
       Options      : Argument_List;
-      Options_2    : Argument_List;
       Interfaces   : Argument_List;
       Lib_Filename : String;
       Lib_Dir      : String;
@@ -56,6 +53,8 @@ package body MLib.Tgt.Specific is
 
    function DLL_Ext return String;
 
+   function Library_Major_Minor_Id_Supported return Boolean;
+
    function Support_For_Libraries return Library_Support;
 
    --  Local variables
@@ -90,10 +89,7 @@ package body MLib.Tgt.Specific is
 
    procedure Build_Dynamic_Library
      (Ofiles       : Argument_List;
-      Foreign      : Argument_List;
-      Afiles       : Argument_List;
       Options      : Argument_List;
-      Options_2    : Argument_List;
       Interfaces   : Argument_List;
       Lib_Filename : String;
       Lib_Dir      : String;
@@ -102,8 +98,6 @@ package body MLib.Tgt.Specific is
       Lib_Version  : String  := "";
       Auto_Init    : Boolean := False)
    is
-      pragma Unreferenced (Foreign);
-      pragma Unreferenced (Afiles);
       pragma Unreferenced (Interfaces);
       pragma Unreferenced (Symbol_Data);
       pragma Unreferenced (Lib_Version);
@@ -178,7 +172,7 @@ package body MLib.Tgt.Specific is
          Objects     => Ofiles,
          Options     => Options & Bexpall_Option,
          Driver_Name => Driver_Name,
-         Options_2   => Options_2 & Thread_Opts.all);
+         Options_2   => Thread_Opts.all);
    end Build_Dynamic_Library;
 
    -------------
@@ -190,6 +184,15 @@ package body MLib.Tgt.Specific is
       return "a";
    end DLL_Ext;
 
+   --------------------------------------
+   -- Library_Major_Minor_Id_Supported --
+   --------------------------------------
+
+   function Library_Major_Minor_Id_Supported return Boolean is
+   begin
+      return False;
+   end Library_Major_Minor_Id_Supported;
+
    ---------------------------
    -- Support_For_Libraries --
    ---------------------------
@@ -202,6 +205,8 @@ package body MLib.Tgt.Specific is
 begin
    Build_Dynamic_Library_Ptr := Build_Dynamic_Library'Access;
    DLL_Ext_Ptr := DLL_Ext'Access;
+   Library_Major_Minor_Id_Supported_Ptr :=
+                                Library_Major_Minor_Id_Supported'Access;
    Support_For_Libraries_Ptr := Support_For_Libraries'Access;
 
 end MLib.Tgt.Specific;