From d767bc3ac4fdd2e3be5a40db7a9171eb377c1904 Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Wed, 26 Mar 2008 08:41:37 +0100 Subject: [PATCH] scn.adb (Initialize_Scanner): Format messages belong on standard error 2008-03-26 Robert Dewar * scn.adb (Initialize_Scanner): Format messages belong on standard error From-SVN: r133574 --- gcc/ada/scn.adb | 4 ++++ 1 file changed, 4 insertions(+) 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 => -- 2.30.2