From 9df6385a0c162f4acf1b932944d7f5cb86a8b209 Mon Sep 17 00:00:00 2001 From: Vincent Celier Date: Tue, 8 Apr 2008 08:44:24 +0200 Subject: [PATCH] mlib-tgt-aix.adb, [...]: Renamed into... 2008-04-08 Vincent Celier Arnaud Charlet * mlib-tgt-aix.adb, mlib-tgt-darwin.adb, mlib-tgt-hpux.adb, mlib-tgt-irix.adb, mlib-tgt-linux.adb, mlib-tgt-lynxos.adb, mlib-tgt-solaris.adb, mlib-tgt-tru64.adb, mlib-tgt-vms.adb, mlib-tgt-vms.ads, mlib-tgt-vms-alpha.adb, mlib-tgt-vms-ia64.adb, mlib-tgt-vxworks.adb, mlib-tgt-mingw.adb: Renamed into... * mlib-tgt-specific-aix.adb, mlib-tgt-specific-darwin.adb, mlib-tgt-specific-hpux.adb, mlib-tgt-specific-irix.adb, mlib-tgt-specific-linux.adb, mlib-tgt-specific-lynxos.adb, mlib-tgt-specific-solaris.adb, mlib-tgt-specific-tru64.adb, mlib-tgt-vms_common.adb, mlib-tgt-vms_common.ads, mlib-tgt-specific-vms-alpha.adb, mlib-tgt-specific-vms-ia64.adb, mlib-tgt-specific-vxworks.adb, mlib-tgt-specific-xi.adb, mlib-tgt-specific-mingw.adb: New names. * Makefile.in: On VxWorks platforms use s-stchop-limit.ads for s-stchop.ads Get rid of gnatbl. (EXTRA_GNATRTL_NONTASKING_OBJS): Add s-win32.o Files mlib-tgt-*.adb have been renamed mlib-tgt-specific-*.adb Minor updates for VMS From-SVN: r134007 --- gcc/ada/Makefile.in | 147 +++++++----- ...-tgt-aix.adb => mlib-tgt-specific-aix.adb} | 18 +- ...arwin.adb => mlib-tgt-specific-darwin.adb} | 8 +- ...gt-hpux.adb => mlib-tgt-specific-hpux.adb} | 2 +- ...gt-irix.adb => mlib-tgt-specific-irix.adb} | 0 ...-linux.adb => mlib-tgt-specific-linux.adb} | 2 +- ...ynxos.adb => mlib-tgt-specific-lynxos.adb} | 0 ...-mingw.adb => mlib-tgt-specific-mingw.adb} | 0 ...aris.adb => mlib-tgt-specific-solaris.adb} | 0 ...-tru64.adb => mlib-tgt-specific-tru64.adb} | 4 +- ...ha.adb => mlib-tgt-specific-vms-alpha.adb} | 8 +- ...a64.adb => mlib-tgt-specific-vms-ia64.adb} | 8 +- ...orks.adb => mlib-tgt-specific-vxworks.adb} | 0 gcc/ada/mlib-tgt-specific-xi.adb | 210 ++++++++++++++++++ ...ib-tgt-vms.adb => mlib-tgt-vms_common.adb} | 8 +- ...ib-tgt-vms.ads => mlib-tgt-vms_common.ads} | 8 +- 16 files changed, 337 insertions(+), 86 deletions(-) rename gcc/ada/{mlib-tgt-aix.adb => mlib-tgt-specific-aix.adb} (94%) rename gcc/ada/{mlib-tgt-darwin.adb => mlib-tgt-specific-darwin.adb} (97%) rename gcc/ada/{mlib-tgt-hpux.adb => mlib-tgt-specific-hpux.adb} (98%) rename gcc/ada/{mlib-tgt-irix.adb => mlib-tgt-specific-irix.adb} (100%) rename gcc/ada/{mlib-tgt-linux.adb => mlib-tgt-specific-linux.adb} (98%) rename gcc/ada/{mlib-tgt-lynxos.adb => mlib-tgt-specific-lynxos.adb} (100%) rename gcc/ada/{mlib-tgt-mingw.adb => mlib-tgt-specific-mingw.adb} (100%) rename gcc/ada/{mlib-tgt-solaris.adb => mlib-tgt-specific-solaris.adb} (100%) rename gcc/ada/{mlib-tgt-tru64.adb => mlib-tgt-specific-tru64.adb} (98%) rename gcc/ada/{mlib-tgt-vms-alpha.adb => mlib-tgt-specific-vms-alpha.adb} (98%) rename gcc/ada/{mlib-tgt-vms-ia64.adb => mlib-tgt-specific-vms-ia64.adb} (98%) rename gcc/ada/{mlib-tgt-vxworks.adb => mlib-tgt-specific-vxworks.adb} (100%) create mode 100644 gcc/ada/mlib-tgt-specific-xi.adb rename gcc/ada/{mlib-tgt-vms.adb => mlib-tgt-vms_common.adb} (96%) rename gcc/ada/{mlib-tgt-vms.ads => mlib-tgt-vms_common.ads} (91%) diff --git a/gcc/ada/Makefile.in b/gcc/ada/Makefile.in index ec43bd2a77d..f03776d5681 100644 --- a/gcc/ada/Makefile.in +++ b/gcc/ada/Makefile.in @@ -400,6 +400,7 @@ ifeq ($(strip $(filter-out m68k% wrs vx%,$(targ))),) s-osprim.adb SYMVEC_$$$$.opt && \ - objdump --syms $(LIBGNAT_OBJS) $(GNATRTL_NONTASKING_OBJS) | \ - $(SHLIB_SYMVEC) >> SYMVEC_$$$$.opt && \ - echo "case_sensitive=NO" >> SYMVEC_$$$$.opt && \ + cd rts && \ + ../../gnatsym -s SYMVEC_$$$$.opt \ + $(LIBGNAT_OBJS) $(GNATRTL_NONTASKING_OBJS) && \ ../../xgcc -g -B../../ -shared -shared-libgcc \ -o libgnat$(hyphen)$(LIBRARY_VERSION)$(soext) libgnat.a \ sys\$$library:trace.exe \ --for-linker=/noinform \ --for-linker=SYMVEC_$$$$.opt \ --for-linker=gsmatch=equal,$(GSMATCH_VERSION) - cd rts && echo "case_sensitive=yes" > SYMVEC_$$$$.opt && \ - objdump --syms $(GNATRTL_TASKING_OBJS) | \ - $(SHLIB_SYMVEC) >> SYMVEC_$$$$.opt && \ - echo "case_sensitive=NO" >> SYMVEC_$$$$.opt && \ + cd rts && \ + ../../gnatsym -s SYMVEC_$$$$.opt \ + $(GNATRTL_TASKING_OBJS) && \ ../../xgcc -g -B../../ -shared -shared-libgcc \ -o libgnarl$(hyphen)$(LIBRARY_VERSION)$(soext) \ libgnarl.a libgnat$(hyphen)$(LIBRARY_VERSION)$(soext) \ diff --git a/gcc/ada/mlib-tgt-aix.adb b/gcc/ada/mlib-tgt-specific-aix.adb similarity index 94% rename from gcc/ada/mlib-tgt-aix.adb rename to gcc/ada/mlib-tgt-specific-aix.adb index 5afd606bc03..9fb8b1593f9 100644 --- a/gcc/ada/mlib-tgt-aix.adb +++ b/gcc/ada/mlib-tgt-specific-aix.adb @@ -7,7 +7,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2003-2007, AdaCore -- +-- Copyright (C) 2003-2008, AdaCore -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -37,7 +37,11 @@ with Prj.Util; use Prj.Util; package body MLib.Tgt.Specific is - -- Non default subprograms + -- Local subprograms + -- These *ALL* require comments ??? + + function Archive_Indexer return String; + -- What is this??? procedure Build_Dynamic_Library (Ofiles : Argument_List; @@ -82,6 +86,15 @@ package body MLib.Tgt.Specific is -- libgnarl. Depends on the thread library (Native or FSU). Resolved for -- the first library linked against libgnarl. + --------------------- + -- Archive_Indexer -- + --------------------- + + function Archive_Indexer return String is + begin + return ""; + end Archive_Indexer; + --------------------------- -- Build_Dynamic_Library -- --------------------------- @@ -202,6 +215,7 @@ package body MLib.Tgt.Specific is end Support_For_Libraries; begin + Archive_Indexer_Ptr := Archive_Indexer'Access; Build_Dynamic_Library_Ptr := Build_Dynamic_Library'Access; DLL_Ext_Ptr := DLL_Ext'Access; Library_Major_Minor_Id_Supported_Ptr := diff --git a/gcc/ada/mlib-tgt-darwin.adb b/gcc/ada/mlib-tgt-specific-darwin.adb similarity index 97% rename from gcc/ada/mlib-tgt-darwin.adb rename to gcc/ada/mlib-tgt-specific-darwin.adb index 7f25b2521d1..5bab21df797 100644 --- a/gcc/ada/mlib-tgt-darwin.adb +++ b/gcc/ada/mlib-tgt-specific-darwin.adb @@ -7,7 +7,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 2001-2008, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -113,7 +113,7 @@ package body MLib.Tgt.Specific is if Lib_Version = "" then Utl.Gcc - (Output_File => Lib_File, + (Output_File => Lib_Path, Objects => Ofiles, Options => Options & Shared_Options, Driver_Name => Driver_Name, @@ -131,7 +131,7 @@ package body MLib.Tgt.Specific is Options => Options & Shared_Options, Driver_Name => Driver_Name, Options_2 => No_Argument_List); - Symbolic_Link_Needed := Lib_Version /= Lib_File; + Symbolic_Link_Needed := Lib_Version /= Lib_Path; else Utl.Gcc @@ -141,7 +141,7 @@ package body MLib.Tgt.Specific is Driver_Name => Driver_Name, Options_2 => No_Argument_List); Symbolic_Link_Needed := - Lib_Dir & Directory_Separator & Lib_Version /= Lib_File; + Lib_Dir & Directory_Separator & Lib_Version /= Lib_Path; end if; if Symbolic_Link_Needed then diff --git a/gcc/ada/mlib-tgt-hpux.adb b/gcc/ada/mlib-tgt-specific-hpux.adb similarity index 98% rename from gcc/ada/mlib-tgt-hpux.adb rename to gcc/ada/mlib-tgt-specific-hpux.adb index c00bd9b2dc3..720b0860adf 100644 --- a/gcc/ada/mlib-tgt-hpux.adb +++ b/gcc/ada/mlib-tgt-specific-hpux.adb @@ -7,7 +7,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2003-2007, AdaCore -- +-- Copyright (C) 2003-2008, AdaCore -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- diff --git a/gcc/ada/mlib-tgt-irix.adb b/gcc/ada/mlib-tgt-specific-irix.adb similarity index 100% rename from gcc/ada/mlib-tgt-irix.adb rename to gcc/ada/mlib-tgt-specific-irix.adb diff --git a/gcc/ada/mlib-tgt-linux.adb b/gcc/ada/mlib-tgt-specific-linux.adb similarity index 98% rename from gcc/ada/mlib-tgt-linux.adb rename to gcc/ada/mlib-tgt-specific-linux.adb index 493d8011187..60557fdf579 100644 --- a/gcc/ada/mlib-tgt-linux.adb +++ b/gcc/ada/mlib-tgt-specific-linux.adb @@ -68,7 +68,7 @@ package body MLib.Tgt.Specific is pragma Unreferenced (Interfaces); pragma Unreferenced (Symbol_Data); pragma Unreferenced (Auto_Init); - -- Initialization is done through the constructor mechanism + -- Initialization is done through the contructor mechanism Lib_File : constant String := "lib" & Fil.Append_To (Lib_Filename, DLL_Ext); diff --git a/gcc/ada/mlib-tgt-lynxos.adb b/gcc/ada/mlib-tgt-specific-lynxos.adb similarity index 100% rename from gcc/ada/mlib-tgt-lynxos.adb rename to gcc/ada/mlib-tgt-specific-lynxos.adb diff --git a/gcc/ada/mlib-tgt-mingw.adb b/gcc/ada/mlib-tgt-specific-mingw.adb similarity index 100% rename from gcc/ada/mlib-tgt-mingw.adb rename to gcc/ada/mlib-tgt-specific-mingw.adb diff --git a/gcc/ada/mlib-tgt-solaris.adb b/gcc/ada/mlib-tgt-specific-solaris.adb similarity index 100% rename from gcc/ada/mlib-tgt-solaris.adb rename to gcc/ada/mlib-tgt-specific-solaris.adb diff --git a/gcc/ada/mlib-tgt-tru64.adb b/gcc/ada/mlib-tgt-specific-tru64.adb similarity index 98% rename from gcc/ada/mlib-tgt-tru64.adb rename to gcc/ada/mlib-tgt-specific-tru64.adb index 43c1e97972d..7e6bcc20605 100644 --- a/gcc/ada/mlib-tgt-tru64.adb +++ b/gcc/ada/mlib-tgt-specific-tru64.adb @@ -7,7 +7,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2002-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 2002-2008, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -24,7 +24,7 @@ -- -- ------------------------------------------------------------------------------ --- This is the Tru64 version of the body +-- This is the True64 version of the body with MLib.Fil; with MLib.Utl; diff --git a/gcc/ada/mlib-tgt-vms-alpha.adb b/gcc/ada/mlib-tgt-specific-vms-alpha.adb similarity index 98% rename from gcc/ada/mlib-tgt-vms-alpha.adb rename to gcc/ada/mlib-tgt-specific-vms-alpha.adb index 78393894391..291293607f9 100644 --- a/gcc/ada/mlib-tgt-vms-alpha.adb +++ b/gcc/ada/mlib-tgt-specific-vms-alpha.adb @@ -7,7 +7,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2003-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 2003-2008, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -31,9 +31,9 @@ with Ada.Characters.Handling; use Ada.Characters.Handling; with MLib.Fil; with MLib.Utl; -with MLib.Tgt.VMS; -pragma Warnings (Off, MLib.Tgt.VMS); --- MLib.Tgt.VMS is with'ed only for elaboration purposes +with MLib.Tgt.VMS_Common; +pragma Warnings (Off, MLib.Tgt.VMS_Common); +-- MLib.Tgt.VMS_Common is with'ed only for elaboration purposes with Opt; use Opt; with Output; use Output; diff --git a/gcc/ada/mlib-tgt-vms-ia64.adb b/gcc/ada/mlib-tgt-specific-vms-ia64.adb similarity index 98% rename from gcc/ada/mlib-tgt-vms-ia64.adb rename to gcc/ada/mlib-tgt-specific-vms-ia64.adb index a9790cc602e..baa8ce213f1 100644 --- a/gcc/ada/mlib-tgt-vms-ia64.adb +++ b/gcc/ada/mlib-tgt-specific-vms-ia64.adb @@ -7,7 +7,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2004-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 2004-2008, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -31,9 +31,9 @@ with Ada.Characters.Handling; use Ada.Characters.Handling; with MLib.Fil; with MLib.Utl; -with MLib.Tgt.VMS; -pragma Warnings (Off, MLib.Tgt.VMS); --- MLib.Tgt.VMS is with'ed only for elaboration purposes +with MLib.Tgt.VMS_Common; +pragma Warnings (Off, MLib.Tgt.VMS_Common); +-- MLib.Tgt.VMS_Common is with'ed only for elaboration purposes with Opt; use Opt; with Output; use Output; diff --git a/gcc/ada/mlib-tgt-vxworks.adb b/gcc/ada/mlib-tgt-specific-vxworks.adb similarity index 100% rename from gcc/ada/mlib-tgt-vxworks.adb rename to gcc/ada/mlib-tgt-specific-vxworks.adb diff --git a/gcc/ada/mlib-tgt-specific-xi.adb b/gcc/ada/mlib-tgt-specific-xi.adb new file mode 100644 index 00000000000..9d179ff0e6b --- /dev/null +++ b/gcc/ada/mlib-tgt-specific-xi.adb @@ -0,0 +1,210 @@ +------------------------------------------------------------------------------ +-- -- +-- GNAT COMPILER COMPONENTS -- +-- -- +-- M L I B . T G T. S P E C I F I C -- +-- (Bare Board Version) -- +-- -- +-- B o d y -- +-- -- +-- Copyright (C) 2003-2007, Free Software Foundation, Inc. -- +-- -- +-- GNAT is free software; you can redistribute it and/or modify it under -- +-- terms of the GNU General Public License as published by the Free Soft- -- +-- ware Foundation; either version 3, or (at your option) any later ver- -- +-- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- +-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- +-- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License -- +-- for more details. You should have received a copy of the GNU General -- +-- Public License distributed with GNAT; see file COPYING3. If not, go to -- +-- http://www.gnu.org/licenses for a complete copy of the license. -- +-- -- +-- GNAT was originally developed by the GNAT team at New York University. -- +-- Extensive contributions were provided by Ada Core Technologies Inc. -- +-- -- +------------------------------------------------------------------------------ + +-- This is the bare board version of the body + +with Sdefault; +with Types; use Types; + +package body MLib.Tgt.Specific is + + ----------------------- + -- Local Subprograms -- + ----------------------- + + function Get_Target_Prefix return String; + -- Returns the required prefix for some utilities + -- (such as ar and ranlib) that depend on the real target. + + -- Non default subprograms + + function Archive_Builder return String; + + function Archive_Indexer return String; + + procedure Build_Dynamic_Library + (Ofiles : Argument_List; + Options : Argument_List; + Interfaces : Argument_List; + Lib_Filename : String; + Lib_Dir : String; + Symbol_Data : Symbol_Record; + Driver_Name : Name_Id := No_Name; + Lib_Version : String := ""; + Auto_Init : Boolean := False); + + function DLL_Ext return String; + + 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; + + function Support_For_Libraries return Library_Support; + + --------------------- + -- Archive_Builder -- + --------------------- + + function Archive_Builder return String is + begin + return Get_Target_Prefix & "ar"; + end Archive_Builder; + + --------------------- + -- Archive_Indexer -- + --------------------- + + function Archive_Indexer return String is + begin + return Get_Target_Prefix & "ranlib"; + end Archive_Indexer; + + --------------------------- + -- Build_Dynamic_Library -- + --------------------------- + + procedure Build_Dynamic_Library + (Ofiles : Argument_List; + Options : Argument_List; + Interfaces : Argument_List; + Lib_Filename : String; + Lib_Dir : String; + Symbol_Data : Symbol_Record; + Driver_Name : Name_Id := No_Name; + Lib_Version : String := ""; + Auto_Init : Boolean := False) + is + pragma Unreferenced (Ofiles); + pragma Unreferenced (Options); + pragma Unreferenced (Interfaces); + pragma Unreferenced (Lib_Filename); + pragma Unreferenced (Lib_Dir); + pragma Unreferenced (Symbol_Data); + pragma Unreferenced (Driver_Name); + pragma Unreferenced (Lib_Version); + pragma Unreferenced (Auto_Init); + + begin + null; + end Build_Dynamic_Library; + + ------------- + -- DLL_Ext -- + ------------- + + function DLL_Ext return String is + begin + return ""; + end DLL_Ext; + + -------------------- + -- Dynamic_Option -- + -------------------- + + function Dynamic_Option return String is + begin + return ""; + end Dynamic_Option; + + ----------------------- + -- Get_Target_Prefix -- + ----------------------- + + function Get_Target_Prefix return String is + Target_Name : constant String_Ptr := Sdefault.Target_Name; + Index : Positive := Target_Name'First; + + begin + while Index < Target_Name'Last + and then Target_Name (Index + 1) /= '-' + loop + Index := Index + 1; + end loop; + + if Target_Name (Target_Name'First .. Index) = "erc32" then + return "erc32-elf-"; + elsif Target_Name (Target_Name'First .. Index) = "leon" then + return "leon-elf-"; + elsif Target_Name (Target_Name'First .. Index) = "powerpc" then + return "powerpc-elf-"; + else + return ""; + end if; + end Get_Target_Prefix; + + -------------------------------------- + -- 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 -- + ---------------- + + function PIC_Option return String is + begin + return ""; + end PIC_Option; + + ----------------------------------------------- + -- Standalone_Library_Auto_Init_Is_Supported -- + ----------------------------------------------- + + function Standalone_Library_Auto_Init_Is_Supported return Boolean is + begin + return False; + end Standalone_Library_Auto_Init_Is_Supported; + + --------------------------- + -- Support_For_Libraries -- + --------------------------- + + function Support_For_Libraries return Library_Support is + begin + return Static_Only; + end Support_For_Libraries; + +begin + Archive_Builder_Ptr := Archive_Builder'Access; + Archive_Indexer_Ptr := Archive_Indexer'Access; + Build_Dynamic_Library_Ptr := Build_Dynamic_Library'Access; + DLL_Ext_Ptr := DLL_Ext'Access; + Dynamic_Option_Ptr := Dynamic_Option'Access; + Library_Major_Minor_Id_Supported_Ptr := + Library_Major_Minor_Id_Supported'Access; + PIC_Option_Ptr := PIC_Option'Access; + Standalone_Library_Auto_Init_Is_Supported_Ptr := + Standalone_Library_Auto_Init_Is_Supported'Access; + Support_For_Libraries_Ptr := Support_For_Libraries'Access; +end MLib.Tgt.Specific; diff --git a/gcc/ada/mlib-tgt-vms.adb b/gcc/ada/mlib-tgt-vms_common.adb similarity index 96% rename from gcc/ada/mlib-tgt-vms.adb rename to gcc/ada/mlib-tgt-vms_common.adb index 3d252e06f0a..6d79cd7e947 100644 --- a/gcc/ada/mlib-tgt-vms.adb +++ b/gcc/ada/mlib-tgt-vms_common.adb @@ -2,11 +2,11 @@ -- -- -- GNAT COMPILER COMPONENTS -- -- -- --- M L I B . T G T . V M S -- +-- M L I B . T G T . V M S _ C O M M O N -- -- -- -- B o d y -- -- -- --- Copyright (C) 2003-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 2003-2008, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -25,7 +25,7 @@ -- This is the part of MLib.Tgt.Specific common to both VMS versions -package body MLib.Tgt.VMS is +package body MLib.Tgt.VMS_Common is -- Non default subprograms. See comments in mlib-tgt.ads @@ -152,4 +152,4 @@ begin Library_Major_Minor_Id_Supported_Ptr := Library_Major_Minor_Id_Supported'Access; -end MLib.Tgt.VMS; +end MLib.Tgt.VMS_Common; diff --git a/gcc/ada/mlib-tgt-vms.ads b/gcc/ada/mlib-tgt-vms_common.ads similarity index 91% rename from gcc/ada/mlib-tgt-vms.ads rename to gcc/ada/mlib-tgt-vms_common.ads index 942d7253da5..8429b773123 100644 --- a/gcc/ada/mlib-tgt-vms.ads +++ b/gcc/ada/mlib-tgt-vms_common.ads @@ -2,11 +2,11 @@ -- -- -- GNAT COMPILER COMPONENTS -- -- -- --- M L I B . T G T . V M S -- +-- M L I B . T G T . V M S _ C O M M O N -- -- -- -- S p e c -- -- -- --- Copyright (C) 2007, Free Software Foundation, Inc. -- +-- Copyright (C) 2007-2008, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -25,6 +25,6 @@ -- This is the part of MLib.Tgt.Specific common to both VMS versions -package MLib.Tgt.VMS is +package MLib.Tgt.VMS_Common is pragma Elaborate_Body; -end MLib.Tgt.VMS; +end MLib.Tgt.VMS_Common; -- 2.30.2