From: Robert Dewar <dewar@adacore.com>
Date: Fri, 1 Aug 2008 09:30:26 +0000 (+0200)
Subject: par-prag.adb (Prag, [...]): Deal with upper half encodings
X-Git-Tag: releases/gcc-4.4.0~3488
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=60e435fe21fd08147fcf15d74b7e62f47a860fd1;p=thirdparty%2Fgcc.git

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
---

diff --git a/gcc/ada/par-prag.adb b/gcc/ada/par-prag.adb
index 7e68cbea1cb9..8b7846f460e1 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);