diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-27 11:54:50 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-27 11:54:50 +0000 |
| commit | a4841d98d3c3cddc044d7103406c518bd5f7fc21 (patch) | |
| tree | f21d60d515dbcca4a5c82d6eb94d64659571eee3 /gcc/ada/gnatcmd.adb | |
| parent | 8fe52251bbad13df486221bc9b68b8ac69e3c892 (diff) | |
| download | gcc-a4841d98d3c3cddc044d7103406c518bd5f7fc21.tar.gz | |
2008-05-27 Vincent Celier <celier@adacore.com>
* gnatcmd.adb:
<prefix>-gnat stack spawns gnatstack, not <prefix>-gnatstack
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@136015 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/gnatcmd.adb')
| -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 1082fb15b10..2b0c6c4add2 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 |