diff options
| author | Vincent Celier <celier@adacore.com> | 2008-05-27 13:54:50 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-05-27 13:54:50 +0200 |
| commit | e4b8682d4fdc1af6a62886fb65e80f6bb97f7ce5 (patch) | |
| tree | f21d60d515dbcca4a5c82d6eb94d64659571eee3 | |
| parent | fb492564aa82ad959013c482cfac1121521be535 (diff) | |
| download | gcc-e4b8682d4fdc1af6a62886fb65e80f6bb97f7ce5.zip gcc-e4b8682d4fdc1af6a62886fb65e80f6bb97f7ce5.tar.gz gcc-e4b8682d4fdc1af6a62886fb65e80f6bb97f7ce5.tar.bz2 | |
gnatcmd.adb: <prefix>-gnat stack spawns gnatstack, not <prefix>-gnatstack
2008-05-27 Vincent Celier <celier@adacore.com>
* gnatcmd.adb:
<prefix>-gnat stack spawns gnatstack, not <prefix>-gnatstack
From-SVN: r136015
| -rw-r--r-- | gcc/ada/gnatcmd.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/gnatcmd.adb b/gcc/ada/gnatcmd.adb index 1082fb1..2b0c6c4 100644 --- a/gcc/ada/gnatcmd.adb +++ b/gcc/ada/gnatcmd.adb @@ -1340,7 +1340,7 @@ procedure GNATCmd is Put (To_Lower (Command_List (C).Cname.all)); Set_Col (25); - -- No prefix for gnatstack + -- Never call gnatstack with a prefix if C = Stack then Put (Command_List (C).Unixcmd.all); @@ -1575,6 +1575,8 @@ begin begin if The_Command = Stack then + -- Never call gnatstack with a prefix + Program := new String'(Command_List (The_Command).Unixcmd.all); else |