From 62883e6b17b85341fbc9b35c51bc076d39dcec23 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Fri, 1 Aug 2014 08:12:27 +0000 Subject: binde.adb, [...]: Remove VMS handling. 2014-08-01 Arnaud Charlet * 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 --- gcc/ada/mlib.adb | 11 +---------- 1 file changed, 1 insertion(+), 10 deletions(-) (limited to 'gcc/ada/mlib.adb') diff --git a/gcc/ada/mlib.adb b/gcc/ada/mlib.adb index 4c4d375..1c34efe 100644 --- a/gcc/ada/mlib.adb +++ b/gcc/ada/mlib.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1999-2009, AdaCore -- +-- Copyright (C) 1999-2014, 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- -- @@ -27,7 +27,6 @@ with Ada.Characters.Handling; use Ada.Characters.Handling; with Interfaces.C.Strings; with System; -with Hostparm; with Opt; with Output; use Output; @@ -459,12 +458,4 @@ package body MLib is return Separate_Paths; end Separate_Run_Path_Options; --- Package elaboration - -begin - -- Copy_Attributes always fails on VMS - - if Hostparm.OpenVMS then - Preserve := None; - end if; end MLib; -- cgit v1.1