From: Vincent Celier <celier@adacore.com>
Date: Tue, 27 May 2008 11:54:50 +0000 (+0200)
Subject: gnatcmd.adb: <prefix>-gnat stack spawns gnatstack, not <prefix>-gnatstack
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=e4b8682d4fdc1af6a62886fb65e80f6bb97f7ce5;p=gcc.git

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
---

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