procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

ada: Fix standard output stream for gnatcmd output

Browse source 
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.
This commit is contained in:
Ronan Desplanques 2024-08-21 15:10:38 +02:00 • committed by Marc Poulhiès
parent 91f0a3a5a5
commit 2df253f35e
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/ada/gnatcmd.adb
View file

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