Commit 8f3366c6 by Vincent Celier Committed by Arnaud Charlet

gnat1drv.adb: Send all messages indicating an error to standard error

2008-04-08  Vincent Celier  <celier@adacore.com>

	* gnat1drv.adb: Send all messages indicating an error to standard error

From-SVN: r134034
parent c6a9797e
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2008, Free Software Foundation, Inc. --
-- -- -- --
-- GNAT is free software; you can redistribute it and/or modify it under -- -- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -241,11 +241,13 @@ procedure Gnat1drv is ...@@ -241,11 +241,13 @@ procedure Gnat1drv is
if List_Representation_Info /= 0 if List_Representation_Info /= 0
or else List_Representation_Info_Mechanisms or else List_Representation_Info_Mechanisms
then then
Set_Standard_Error;
Write_Eol; Write_Eol;
Write_Str Write_Str
("cannot generate representation information, no code generated"); ("cannot generate representation information, no code generated");
Write_Eol; Write_Eol;
Write_Eol; Write_Eol;
Set_Standard_Output;
end if; end if;
end Check_Rep_Info; end Check_Rep_Info;
...@@ -584,6 +586,7 @@ begin ...@@ -584,6 +586,7 @@ begin
-- generate code). -- generate code).
if Back_End_Mode = Skip then if Back_End_Mode = Skip then
Set_Standard_Error;
Write_Str ("cannot generate code for "); Write_Str ("cannot generate code for ");
Write_Str ("file "); Write_Str ("file ");
Write_Name (Unit_File_Name (Main_Unit)); Write_Name (Unit_File_Name (Main_Unit));
...@@ -627,6 +630,7 @@ begin ...@@ -627,6 +630,7 @@ begin
end if; end if;
Write_Eol; Write_Eol;
Set_Standard_Output;
Sem_Ch13.Validate_Unchecked_Conversions; Sem_Ch13.Validate_Unchecked_Conversions;
Sem_Ch13.Validate_Address_Clauses; Sem_Ch13.Validate_Address_Clauses;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment