diff options
| author | Robert Dewar <dewar@adacore.com> | 2008-03-26 08:41:37 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-03-26 08:41:37 +0100 |
| commit | d767bc3ac4fdd2e3be5a40db7a9171eb377c1904 (patch) | |
| tree | 24c3bf6cdef2855961c50a91eb916d9afee05cca /gcc/ada/scn.adb | |
| parent | 1a5d715a60307e8f70254c9c550b5e6916fde76e (diff) | |
| download | gcc-d767bc3ac4fdd2e3be5a40db7a9171eb377c1904.zip gcc-d767bc3ac4fdd2e3be5a40db7a9171eb377c1904.tar.gz gcc-d767bc3ac4fdd2e3be5a40db7a9171eb377c1904.tar.bz2 | |
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
Diffstat (limited to 'gcc/ada/scn.adb')
| -rw-r--r-- | gcc/ada/scn.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/scn.adb b/gcc/ada/scn.adb index d4e7bd3..6efbc9f 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 => |