From 60e435fe21fd08147fcf15d74b7e62f47a860fd1 Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Fri, 1 Aug 2008 11:30:26 +0200 Subject: [PATCH] par-prag.adb (Prag, [...]): Deal with upper half encodings 2008-08-01 Robert Dewar * par-prag.adb (Prag, case Wide_Character_Encoding): Deal with upper half encodings From-SVN: r138498 --- gcc/ada/par-prag.adb | 4 ++++ 1 file changed, 4 insertions(+) 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); -- 2.47.2