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

diff --git a/gcc/ada/gnatcmd.adb b/gcc/ada/gnatcmd.adb
index 1082fb1..2b0c6c4 100644 (file)
--- 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