diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-05-02 11:11:03 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-05-02 11:11:03 +0200 |
| commit | f96fd197d26faabef756d6cb97d782919685b45e (patch) | |
| tree | 3baada419f5066d0448cfe4adb129eaa98d8f006 /gcc/ada/gnatcmd.adb | |
| parent | 3ba1a9eb6ec22706bdb084db2f1ab31a32d4dde8 (diff) | |
| download | gcc-f96fd197d26faabef756d6cb97d782919685b45e.zip gcc-f96fd197d26faabef756d6cb97d782919685b45e.tar.gz gcc-f96fd197d26faabef756d6cb97d782919685b45e.tar.bz2 | |
[multiple changes]
2016-05-02 Arnaud Charlet <charlet@adacore.com>
* exp_ch5.adb, layout.adb, gnatcmd.adb exp_attr.adb, make.adb,
bindgen.adb, debug.adb, exp_pakd.adb, freeze.adb, sem_util.adb,
gnatlink.adb, switch-m.adb, exp_ch4.adb, repinfo.adb, adabkend.adb,
osint.adb: Remove dead code.
2016-05-02 Yannick Moy <moy@adacore.com>
* a-tigeli.adb (Get_Line): Fix bound for test to
decide when to compensate for character 0 added by call to fgets.
From-SVN: r235710
Diffstat (limited to 'gcc/ada/gnatcmd.adb')
| -rw-r--r-- | gcc/ada/gnatcmd.adb | 22 |
1 files changed, 2 insertions, 20 deletions
diff --git a/gcc/ada/gnatcmd.adb b/gcc/ada/gnatcmd.adb index 433ac7d..542d370 100644 --- a/gcc/ada/gnatcmd.adb +++ b/gcc/ada/gnatcmd.adb @@ -42,7 +42,6 @@ with Snames; use Snames; with Stringt; with Switch; use Switch; with Table; -with Targparm; use Targparm; with Tempdir; with Types; use Types; @@ -434,12 +433,7 @@ procedure GNATCmd is procedure Output_Version is begin - if AAMP_On_Target then - Put ("GNAAMP "); - else - Put ("GNAT "); - end if; - + Put ("GNAT "); Put_Line (Gnatvsn.Gnat_Version_String); Put_Line ("Copyright 1996-" & Gnatvsn.Current_Year & ", Free Software Foundation, Inc."); @@ -457,12 +451,7 @@ procedure GNATCmd is New_Line; for C in Command_List'Range loop - if Targparm.AAMP_On_Target then - Put ("gnaampcmd "); - else - Put ("gnat "); - end if; - + Put ("gnat "); Put (To_Lower (Command_List (C).Cname.all)); Set_Col (25); Put (Program_Name (Command_List (C).Unixcmd.all, "gnat").all); @@ -512,13 +501,6 @@ begin First_Switches.Init; First_Switches.Set_Last (0); - -- Set AAMP_On_Target from command name, for testing in Osint.Program_Name - -- to handle the mapping of GNAAMP tool names. We don't extract it from - -- system.ads, as there may be no default runtime. - - 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. |