diff mbox series

[COMMITTED,7/9] ada: Fix standard output stream for gnatcmd output

Message ID 20240902082430.1863631-7-poulhies@adacore.com
State New
Headers show
Series [COMMITTED,1/9] ada: Remove repeated guards in validity checks | expand

Commit Message

Marc Poulhiès Sept. 2, 2024, 8:24 a.m. UTC 
From: Ronan Desplanques <desplanques@adacore.com>

Before this patch, the gnat command sent to standard error pieces of
information that are a better match for standard output. This patch
makes this information go to standard output.

gcc/ada/

	* gnatcmd.adb (GNATCmd): Fix standard output stream.

Tested on x86_64-pc-linux-gnu, committed on master.

---
 gcc/ada/gnatcmd.adb | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)
diff mbox series

Patch

diff --git a/gcc/ada/gnatcmd.adb b/gcc/ada/gnatcmd.adb
index c1b817bd786..ed37a348103 100644
--- a/gcc/ada/gnatcmd.adb
+++ b/gcc/ada/gnatcmd.adb
@@ -278,7 +278,8 @@  procedure GNATCmd is
 --  Start of processing for GNATCmd
 
 begin
-   --  All output from GNATCmd is debugging or error output: send to stderr
+   --  Almost all output from GNATCmd is debugging or error output: send to
+   --  stderr.
 
    Set_Standard_Error;
 
@@ -349,6 +350,7 @@  begin
          elsif Command_Arg <= Argument_Count
            and then Argument (Command_Arg) = Ada_Help_Switch
          then
+            Set_Standard_Output;
             Usage;
             Exit_Program (E_Success);
 
@@ -364,6 +366,7 @@  begin
 
          --  Add the following so that output is consistent with or without the
          --  --help flag.
+         Set_Standard_Output;
          Write_Eol;
          Write_Line ("Report bugs to report@adacore.com");
          return;