diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-03-26 20:02:45 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-03-26 20:02:45 +0000 |
| commit | 261a23bc4f7fbd525cb2f73582743252d2d2f8ac (patch) | |
| tree | f3c8a991bcf4caac8dd5516247a2d92c9f77ee3b /gcc/ada/scn.adb | |
| parent | 0c164b6eab526a1d0db4a3d08058262ddd476be6 (diff) | |
| download | gcc-261a23bc4f7fbd525cb2f73582743252d2d2f8ac.tar.gz | |
2008-03-26 Basile Starynkevitch <basile@starynkevitch.net>
MELT branch merged with trunk r133612 (in particular gcc/Makefile.in with auto dependencies)
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@133613 138bc75d-0d04-0410-961f-82ee72b054a4
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 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 => |