diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-01-23 17:54:50 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-01-23 17:54:50 +0100 |
| commit | e949ee225e28fe925e872c1beaea1532bb9e2328 (patch) | |
| tree | de62d11e0dffa4caeac9384be337cc8dd6a8ade7 /gcc/ada/gnatlink.adb | |
| parent | 545d3e65ad4b45dc1ad7991a18e99b755ce9cbbf (diff) | |
| download | gcc-e949ee225e28fe925e872c1beaea1532bb9e2328.zip gcc-e949ee225e28fe925e872c1beaea1532bb9e2328.tar.gz gcc-e949ee225e28fe925e872c1beaea1532bb9e2328.tar.bz2 | |
[multiple changes]
2014-01-23 Robert Dewar <dewar@adacore.com>
* gnatlink.adb (Gnatlink): Fix problem of generating bad name
msg on VMS.
2014-01-23 Bob Duff <duff@adacore.com>
* g-dynhta.ads: Minor comment fix.
2014-01-23 Yannick Moy <moy@adacore.com>
* sem_ch6.adb (Analyze_Subprogram_Body_Helper): Inherit SPARK_Mode
from spec on body only when not already inherited on spec. Set
SPARK_Mode from context on body without previous spec. *
* sem_prag.adb (Analyze_Pragma): Check placement of pragma on
library-level entities. Correct retrieval of entity from
declaration, for cases where the declaration is not a unit.
* sem_ch12.adb (Instantiate_Object): Avoid
calling Is_Volatile_Object on an empty node.
From-SVN: r206987
Diffstat (limited to 'gcc/ada/gnatlink.adb')
| -rw-r--r-- | gcc/ada/gnatlink.adb | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gcc/ada/gnatlink.adb b/gcc/ada/gnatlink.adb index 1746bcd..ea679d9 100644 --- a/gcc/ada/gnatlink.adb +++ b/gcc/ada/gnatlink.adb @@ -1101,9 +1101,9 @@ procedure Gnatlink is -- The following test needs comments, why is it VMS specific. -- The above comment looks out of date ??? - elsif not (OpenVMS_On_Target - and then - Is_Option_Present (Next_Line (Nfirst .. Nlast))) + elsif not + (OpenVMS_On_Target + and then Is_Option_Present (Next_Line (Nfirst .. Nlast))) then if Nlast > Nfirst + 2 and then Next_Line (Nfirst .. Nfirst + 1) = "-L" @@ -1832,6 +1832,7 @@ begin if FN'Length > 5 and then FN (FN'Last - 3 .. FN'Last) = ".exe" + and then not OpenVMS_On_Target then Check_File_Name ("install"); Check_File_Name ("setup"); |