From: Robert Dewar <dewar@adacore.com>
Date: Wed, 26 Mar 2008 07:41:37 +0000 (+0100)
Subject: scn.adb (Initialize_Scanner): Format messages belong on standard error
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=d767bc3ac4fdd2e3be5a40db7a9171eb377c1904;p=gcc.git

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 d4e7bd387d9..6efbc9f5b28 100644
--- 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 =>