diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-06-06 10:52:32 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-06-06 10:52:32 +0000 |
commit | 59ca7bac23b6b53257582966f19a3e84ea0138a2 (patch) | |
tree | 162a23fa1dc6b2cfca448b3db6905b462f282b70 /gcc/ada/s-wchjis.adb | |
parent | 115a8ff95a7b32496cbaf73f390aaaa335b5501e (diff) | |
download | gcc-59ca7bac23b6b53257582966f19a3e84ea0138a2.tar.gz |
2007-04-20 Robert Dewar <dewar@adacore.com>
* a-reatim.adb: Documentation addition
* g-cgideb.adb: Minor code reorganization
* tree_io.adb, treepr.adb, cstand.adb, krunch.adb, par.adb,
mdll-utl.adb, par-ch5.adb, par-tchk.adb, s-exctab.ads, s-memory.ads,
s-osprim.ads, s-restri.ads, s-soflin.ads: Minor reformatting.
* debug.ads, debug.adb (Get_Debug_Flag_K): Remove unused obsolete
function. Change name New_Scope to Push_Scope
(Get_Debug_Flag_K): Remove unused obsolete function.
* exp_ch8.adb, inline.adb, sem_ch8.ads: Change name New_Scope to
Push_Scope.
* makeusg.adb: Update Copyright notice
Add line for switch -aP
* makeusg.adb: Fix wording of some usage messages
* s-assert.adb (Raise_Assert_Failure): Add call to
Debug_Raise_Assert_Failure.
* s-unstyp.ads (type Packed_Bytes2): Change alignment to use 'Min
(2, Standard'Alignment) for compatibility with AAMP (where alignment
is restricted to 1).
* s-wchjis.adb: Remove use of System.Pure_Exceptions
* tbuild.ads, tbuild.adb (Make_Implicit_Exception_Handler): Set the
node location to No_Location when we're not debugging the expanded
code.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@125478 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-wchjis.adb')
-rw-r--r-- | gcc/ada/s-wchjis.adb | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/gcc/ada/s-wchjis.adb b/gcc/ada/s-wchjis.adb index 079712f97b7..e18d22da3d0 100644 --- a/gcc/ada/s-wchjis.adb +++ b/gcc/ada/s-wchjis.adb @@ -31,8 +31,6 @@ -- -- ------------------------------------------------------------------------------ -with System.Pure_Exceptions; use System.Pure_Exceptions; - package body System.WCh_JIS is type Byte is mod 256; @@ -86,7 +84,7 @@ package body System.WCh_JIS is -- bit is set in both bytes. if JIS2 < 16#80# then - Raise_Exception (CE, "invalid small Katakana character"); + raise Constraint_Error; end if; EUC1 := Character'Val (EUC_Hankaku_Kana); @@ -96,7 +94,7 @@ package body System.WCh_JIS is -- a valid character for representation in EUC form. elsif JIS1 > 16#7F# or else JIS2 > 16#7F# then - Raise_Exception (CE, "wide character value out of EUC range"); + raise Constraint_Error; -- Result is just the two characters with upper bits set |