2008-03-26 Robert Dewar <dewar@adacore.com>

	* scn.adb (Initialize_Scanner): Format messages belong on standard error

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@133574 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/scn.adb b/gcc/ada/scn.adb
index d4e7bd3..6efbc9f 100644 (file)
--- a/gcc/ada/scn.adb
+++ b/gcc/ada/scn.adb
@@ -292,11 +292,15 @@ package body Scn is
                Upper_Half_Encoding := True;
 
             when UTF16_LE | UTF16_BE =>
+               Set_Standard_Error;
                Write_Line ("UTF-16 encoding format not recognized");
+               Set_Standard_Output;
                raise Unrecoverable_Error;
 
             when UTF32_LE | UTF32_BE =>
+               Set_Standard_Error;
                Write_Line ("UTF-32 encoding format not recognized");
+               Set_Standard_Output;
                raise Unrecoverable_Error;
 
             when Unknown =>