diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-24 16:35:42 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-24 16:35:42 +0200 |
| commit | dd3b3672c49e3cee97fdd35d5c72c849af952862 (patch) | |
| tree | 1782e3170ebd56b6b27fdee0d0c1e9ddba0ed1dc /gcc/ada/gnatcmd.adb | |
| parent | b5bdffcc4fc8a8c04662438eee0edc2be7ac15b9 (diff) | |
| download | gcc-dd3b3672c49e3cee97fdd35d5c72c849af952862.zip gcc-dd3b3672c49e3cee97fdd35d5c72c849af952862.tar.gz gcc-dd3b3672c49e3cee97fdd35d5c72c849af952862.tar.bz2 | |
[multiple changes]
2013-04-24 Robert Dewar <dewar@adacore.com>
* gnatcmd.adb, xref_lib.adb, gnatls.adb, sem_ch13.adb: Minor
reformatting.
2013-04-24 Yannick Moy <moy@adacore.com>
* sem_ch6.adb (Analyze_Generic_Subprogram_Body,
Analyze_Subprogram_Body_Helper): Reset contract node to Empty
before setting entity to E_Subprogram_Body.
* sem_ch8.adb (Analyze_Subprogram_Renaming): Reset contract node to
Empty before setting entity to E_Subprogram_Body.
From-SVN: r198238
Diffstat (limited to 'gcc/ada/gnatcmd.adb')
| -rw-r--r-- | gcc/ada/gnatcmd.adb | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/gcc/ada/gnatcmd.adb b/gcc/ada/gnatcmd.adb index 6ffa07f..d6fd28e 100644 --- a/gcc/ada/gnatcmd.adb +++ b/gcc/ada/gnatcmd.adb @@ -1766,13 +1766,10 @@ begin (Root_Environment.Project_Path, Argv (Argv'First + 3 .. Argv'Last)); - -- Pass -aPdir to gnatls + -- Pass -aPdir to gnatls, but not to other tools if The_Command = List then Arg_Num := Arg_Num + 1; - - -- but not to other tools - else Remove_Switch (Arg_Num); end if; |