aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/par-prag.adb
diff options
context:
space:
mode:
authorRobert Dewar <dewar@adacore.com>2008-08-01 11:30:26 +0200
committerArnaud Charlet <charlet@gcc.gnu.org>2008-08-01 11:30:26 +0200
commit60e435fe21fd08147fcf15d74b7e62f47a860fd1 (patch)
tree885a4f71c5a2181e2f7d8a4823d945d25ab056a6 /gcc/ada/par-prag.adb
parentf7fd2ec3571534931f3298dbcbf913d910904c53 (diff)
downloadgcc-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.adb4
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);