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

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

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

From-SVN: r133574

diff --git a/gcc/ada/scn.adb b/gcc/ada/scn.adb
index d4e7bd387d99ea39c35d53a0efa38e40b64f6dbf..6efbc9f5b28af29872fe33aaa1baaaeb2c693240 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 =>