diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-08-01 15:28:35 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-08-01 15:28:35 +0200 |
| commit | 4b259b2d0605d3da3357b46a35bd7ec92b1aaee1 (patch) | |
| tree | cdf8ec1f9468fa7640be395895350c0363b5326d /gcc/ada/gnatcmd.adb | |
| parent | 12c5f1efb5d038d8638f517b8d73970573fbdaee (diff) | |
| download | gcc-4b259b2d0605d3da3357b46a35bd7ec92b1aaee1.tar.gz | |
[multiple changes]
2014-08-01 Vincent Celier <celier@adacore.com>
* debug.adb: Minor documentation addition for -dn switch.
2014-08-01 Robert Dewar <dewar@adacore.com>
* sem_aggr.adb, exp_ch9.adb, sem_prag.adb, sem_util.adb,
sem_attr.adb, sem_eval.ads, sem_cat.adb, sem_ch13.adb: Improve
documentation of Is_Static_Expression vs Is_OK_Static_Expression.
In several places, use the Is_OK version as suggested by the spec.
2014-08-01 Vincent Celier <celier@adacore.com>
* gnatcmd.adb: Revert last change which was not correct.
2014-08-01 Hristian Kirtchev <kirtchev@adacore.com>
* freeze.adb (Find_Constant): Ensure that the constant being
inspected is still an object declaration (i.e. not a renaming).
From-SVN: r213458
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 2e5bade8e36..77cf6dc47ae 100644 --- a/gcc/ada/gnatcmd.adb +++ b/gcc/ada/gnatcmd.adb @@ -47,6 +47,7 @@ with Snames; use Snames; with Stringt; with Switch; use Switch; with Table; +with Targparm; use Targparm; with Tempdir; with Types; use Types; @@ -57,9 +58,6 @@ with Ada.Text_IO; use Ada.Text_IO; with GNAT.OS_Lib; use GNAT.OS_Lib; procedure GNATCmd is - - AAMP_On_Target : Boolean := False; - Normal_Exit : exception; -- Raise this exception for normal program termination @@ -1185,7 +1183,7 @@ procedure GNATCmd is -- No usage for Sync if C /= Sync then - if AAMP_On_Target then + if Targparm.AAMP_On_Target then Put ("gnaampcmd "); else Put ("gnat "); @@ -1590,7 +1588,8 @@ begin -- to handle the mapping of GNAAMP tool names. We don't extract it from -- system.ads, as there may be no default runtime. - AAMP_On_Target := To_Lower (Command_Name) = "gnaampcmd"; + Find_Program_Name; + AAMP_On_Target := Name_Buffer (1 .. Name_Len) = "gnaampcmd"; -- Put the command line in environment variable GNAT_DRIVER_COMMAND_LINE, -- so that the spawned tool may know the way the GNAT driver was invoked. |