diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-20 15:24:27 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-20 15:24:27 +0200 |
| commit | 97a8fb1624e2d4bca12d4421484dc953c6ea350d (patch) | |
| tree | 46902613a8d3d543bc4764d901410ddc3c4cf446 /gcc/ada/gnatcmd.adb | |
| parent | 7340e4326b9a5dab8a5141b4d8ad64d51076dfea (diff) | |
| download | gcc-97a8fb1624e2d4bca12d4421484dc953c6ea350d.zip gcc-97a8fb1624e2d4bca12d4421484dc953c6ea350d.tar.gz gcc-97a8fb1624e2d4bca12d4421484dc953c6ea350d.tar.bz2 | |
[multiple changes]
2009-04-20 Bob Duff <duff@adacore.com>
* sem.adb, gnat1drv.adb, debug.adb: Use the -gnatd.W switch to control
debugging output.
2009-04-20 Robert Dewar <dewar@adacore.com>
* sem_attr.adb: Minor reformatting
* gnatcmd.adb: Minor reformatting
From-SVN: r146417
Diffstat (limited to 'gcc/ada/gnatcmd.adb')
| -rw-r--r-- | gcc/ada/gnatcmd.adb | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/gcc/ada/gnatcmd.adb b/gcc/ada/gnatcmd.adb index ddb62c5..a412551 100644 --- a/gcc/ada/gnatcmd.adb +++ b/gcc/ada/gnatcmd.adb @@ -1051,11 +1051,10 @@ procedure GNATCmd is else declare - Switch : constant String := - Last_Switches.Table (J).all; - - ALI_File : constant String (1 .. Switch'Length + 4) := - Switch & ".ali"; + Switch : constant String := + Last_Switches.Table (J).all; + ALI_File : constant String (1 .. Switch'Length + 4) := + Switch & ".ali"; Test_Existence : Boolean := False; |