diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2014-08-01 08:12:27 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-08-01 10:12:27 +0200 |
| commit | 62883e6b17b85341fbc9b35c51bc076d39dcec23 (patch) | |
| tree | 8b274633bd4a9796bb8f946cf618a08545de0628 /gcc/ada/gnatbind.adb | |
| parent | 148c744a1789b29b3c3c32b45ea3be913fef6a52 (diff) | |
| download | gcc-62883e6b17b85341fbc9b35c51bc076d39dcec23.zip gcc-62883e6b17b85341fbc9b35c51bc076d39dcec23.tar.gz gcc-62883e6b17b85341fbc9b35c51bc076d39dcec23.tar.bz2 | |
binde.adb, [...]: Remove VMS handling.
2014-08-01 Arnaud Charlet <charlet@adacore.com>
* binde.adb, bindgen.adb, butil.adb, clean.adb, gnatbind.adb,
gnatchop.adb, gnatcmd.adb, gnatls.adb, gnatname.adb, krunch.adb,
make.adb, makeutl.adb, memtrack.adb, mlib-prj.adb, mlib.adb,
mlib.ads, tempdir.adb: Remove VMS handling.
From-SVN: r213413
Diffstat (limited to 'gcc/ada/gnatbind.adb')
| -rw-r--r-- | gcc/ada/gnatbind.adb | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/gcc/ada/gnatbind.adb b/gcc/ada/gnatbind.adb index 6383e81..7cba0c6 100644 --- a/gcc/ada/gnatbind.adb +++ b/gcc/ada/gnatbind.adb @@ -77,8 +77,6 @@ procedure Gnatbind is Output_File_Name_Seen : Boolean := False; Output_File_Name : String_Ptr := new String'(""); - L_Switch_Seen : Boolean := False; - Mapping_File : String_Ptr := null; package Closure_Sources is new Table.Table @@ -338,12 +336,6 @@ procedure Gnatbind is elsif Argv (2) = 'L' then if Argv'Length >= 3 then - -- Remember that the -L switch was specified, so that if this - -- is on OpenVMS, the export names are put in uppercase. - -- This is not known before the target parameters are read. - - L_Switch_Seen := True; - Opt.Bind_For_Library := True; Opt.Ada_Init_Name := new String'(Argv (3 .. Argv'Last) & Opt.Ada_Init_Suffix); @@ -642,17 +634,6 @@ begin Cumulative_Restrictions := Targparm.Restrictions_On_Target; - -- On OpenVMS, when -L is used, all external names used in pragmas Export - -- are in upper case. The reason is that on OpenVMS, the macro-assembler - -- MACASM-32, used to build Stand-Alone Libraries, only understands - -- uppercase. - - if L_Switch_Seen and then OpenVMS_On_Target then - To_Upper (Opt.Ada_Init_Name.all); - To_Upper (Opt.Ada_Final_Name.all); - To_Upper (Opt.Ada_Main_Name.all); - end if; - -- Acquire configurable run-time mode if Configurable_Run_Time_On_Target then |