diff options
author | Robert Dewar <dewar@adacore.com> | 2008-08-01 11:30:26 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-01 11:30:26 +0200 |
commit | 60e435fe21fd08147fcf15d74b7e62f47a860fd1 (patch) | |
tree | 885a4f71c5a2181e2f7d8a4823d945d25ab056a6 /gcc/ada/par-prag.adb | |
parent | f7fd2ec3571534931f3298dbcbf913d910904c53 (diff) | |
download | gcc-60e435fe21fd08147fcf15d74b7e62f47a860fd1.zip gcc-60e435fe21fd08147fcf15d74b7e62f47a860fd1.tar.gz gcc-60e435fe21fd08147fcf15d74b7e62f47a860fd1.tar.bz2 |
par-prag.adb (Prag, [...]): Deal with upper half encodings
2008-08-01 Robert Dewar <dewar@adacore.com>
* par-prag.adb (Prag, case Wide_Character_Encoding): Deal with upper
half encodings
From-SVN: r138498
Diffstat (limited to 'gcc/ada/par-prag.adb')
-rw-r--r-- | gcc/ada/par-prag.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/par-prag.adb b/gcc/ada/par-prag.adb index 7e68cbe..8b7846f 100644 --- a/gcc/ada/par-prag.adb +++ b/gcc/ada/par-prag.adb @@ -1032,6 +1032,10 @@ begin raise Constraint_Error; end if; + Upper_Half_Encoding := + Wide_Character_Encoding_Method in + WC_Upper_Half_Encoding_Method; + exception when Constraint_Error => Error_Msg_N ("invalid argument for pragma%", Arg1); |