diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-08-01 12:32:10 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-08-01 12:32:10 +0200 |
| commit | a21d245c1b963298b531bf6e8fa85a61e6a42490 (patch) | |
| tree | a6395d4b8310bdda4c3ba8a43eefb8beef8f1df7 /gcc/ada/gnatcmd.adb | |
| parent | 0f345950ec4144742c56a93aea07ada593e03788 (diff) | |
| download | gcc-a21d245c1b963298b531bf6e8fa85a61e6a42490.zip gcc-a21d245c1b963298b531bf6e8fa85a61e6a42490.tar.gz gcc-a21d245c1b963298b531bf6e8fa85a61e6a42490.tar.bz2 | |
[multiple changes]
2014-08-01 Robert Dewar <dewar@adacore.com>
* make.adb, makeutl.ads: Minor reformatting.
* debug.adb, opt.ads: Clarify documentation of Front_End_Inlining and
Back_End_Inlining.
2014-08-01 Tristan Gingold <gingold@adacore.com>
* gnatcmd.adb (GNATCmd): Set AAMP_On_Target using command name.
From-SVN: r213453
Diffstat (limited to 'gcc/ada/gnatcmd.adb')
| -rw-r--r-- | gcc/ada/gnatcmd.adb | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/gcc/ada/gnatcmd.adb b/gcc/ada/gnatcmd.adb index 354054f..8c60f80 100644 --- a/gcc/ada/gnatcmd.adb +++ b/gcc/ada/gnatcmd.adb @@ -1584,15 +1584,12 @@ begin Rules_Switches.Init; Rules_Switches.Set_Last (0); - -- Add the default search directories, to be able to find system.ads in the - -- subsequent call to Targparm.Get_Target_Parameters. + -- Set AAMP_On_Target from the command name, for testing in + -- Osint.Program_Name to handle the mapping of GNAAMP tool names. We don't + -- extract it from system.ads, has there may be no default runtime. - Add_Default_Search_Dirs; - - -- Get target parameters so that AAMP_On_Target will be set, for testing in - -- Osint.Program_Name to handle the mapping of GNAAMP tool names. - - Targparm.Get_Target_Parameters; + 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. |