Skip to content

R
riscv-gcc-1
Commit d767bc3a by Robert Dewar Committed by Arnaud Charlet
Options

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
parent 1a5d715a
Showing with 4 additions and 0 deletions
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 =>
......
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