diff options
Diffstat (limited to 'gcc/ada/mlib-tgt-vxworks.adb')
-rw-r--r-- | gcc/ada/mlib-tgt-vxworks.adb | 25 |
1 files changed, 14 insertions, 11 deletions
diff --git a/gcc/ada/mlib-tgt-vxworks.adb b/gcc/ada/mlib-tgt-vxworks.adb index d658d47..bad799e 100644 --- a/gcc/ada/mlib-tgt-vxworks.adb +++ b/gcc/ada/mlib-tgt-vxworks.adb @@ -28,7 +28,6 @@ -- This is the VxWorks version of the body with Sdefault; -with Types; use Types; package body MLib.Tgt.Specific is @@ -48,10 +47,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; @@ -64,6 +60,8 @@ package body MLib.Tgt.Specific is function Dynamic_Option return String; + function Library_Major_Minor_Id_Supported return Boolean; + function PIC_Option return String; function Standalone_Library_Auto_Init_Is_Supported return Boolean; @@ -94,10 +92,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; @@ -107,10 +102,7 @@ package body MLib.Tgt.Specific is Auto_Init : Boolean := False) is pragma Unreferenced (Ofiles); - pragma Unreferenced (Foreign); - pragma Unreferenced (Afiles); pragma Unreferenced (Options); - pragma Unreferenced (Options_2); pragma Unreferenced (Interfaces); pragma Unreferenced (Lib_Filename); pragma Unreferenced (Lib_Dir); @@ -146,7 +138,7 @@ package body MLib.Tgt.Specific is ----------------------------- function Get_Target_Suffix return String is - Target_Name : constant String_Ptr := Sdefault.Target_Name; + Target_Name : constant String := Sdefault.Target_Name.all; Index : Positive := Target_Name'First; begin @@ -175,6 +167,15 @@ package body MLib.Tgt.Specific is end if; end Get_Target_Suffix; + -------------------------------------- + -- Library_Major_Minor_Id_Supported -- + -------------------------------------- + + function Library_Major_Minor_Id_Supported return Boolean is + begin + return False; + end Library_Major_Minor_Id_Supported; + ---------------- -- PIC_Option -- ---------------- @@ -209,6 +210,8 @@ begin DLL_Ext_Ptr := DLL_Ext'Access; Dynamic_Option_Ptr := Dynamic_Option'Access; PIC_Option_Ptr := PIC_Option'Access; + Library_Major_Minor_Id_Supported_Ptr := + Library_Major_Minor_Id_Supported'Access; Standalone_Library_Auto_Init_Is_Supported_Ptr := Standalone_Library_Auto_Init_Is_Supported'Access; Support_For_Libraries_Ptr := Support_For_Libraries'Access; |