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 7e68cbea1cb944a3418a86317a1e55b9969deace..8b7846f460e12257e001dff84037f2846b1d494e 100644 (file)
--- 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);