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

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
e4b8682d · Vincent Celier · Arnaud Charlet · fb492564 · e4b8682d
Commit e4b8682d authored May 27, 2008 by Vincent Celier Committed by Arnaud Charlet May 27, 2008
Show whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletions

gcc/ada/gnatcmd.adb
+3 -1

No files found.
--- 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