From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 1914) id D7E07383D805; Thu, 12 May 2022 12:41:02 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org D7E07383D805 MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset="utf-8" From: Pierre-Marie de Rodat To: gcc-cvs@gcc.gnu.org Subject: [gcc r13-358] [Ada] Fix support for ISO-8859-15 and IBM CP 850 encoding X-Act-Checkin: gcc X-Git-Author: Etienne Servais X-Git-Refname: refs/heads/master X-Git-Oldrev: f7fc84d6fff3c6cb7e6a421c8cae4de145d09dfe X-Git-Newrev: 6655b152ebbf97e66888dc003414f6bb62a7edab Message-Id: <20220512124102.D7E07383D805@sourceware.org> Date: Thu, 12 May 2022 12:41:02 +0000 (GMT) X-BeenThere: gcc-cvs@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gcc-cvs mailing list List-Unsubscribe: , List-Archive: List-Help: List-Subscribe: , X-List-Received-Date: Thu, 12 May 2022 12:41:03 -0000 https://gcc.gnu.org/g:6655b152ebbf97e66888dc003414f6bb62a7edab commit r13-358-g6655b152ebbf97e66888dc003414f6bb62a7edab Author: Etienne Servais Date: Tue Feb 8 12:17:48 2022 +0100 [Ada] Fix support for ISO-8859-15 and IBM CP 850 encoding In ISO-8859-15, code for "lower y with diaeresis" is used for the upper case. In IBM CP 850, upper and lower o with stroke were missing. gcc/ada/ * csets.adb (Fold_Latin_9): Fix y with diaeresis. (Fold_IBM_PC_850): Fix o with stroke. Diff: --- gcc/ada/csets.adb | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/gcc/ada/csets.adb b/gcc/ada/csets.adb index bd2ba928661..5feb3eeb309 100644 --- a/gcc/ada/csets.adb +++ b/gcc/ada/csets.adb @@ -558,7 +558,7 @@ package body Csets is 'q' => 'Q', X_A8 => X_A6, 'r' => 'R', X_B8 => X_B4, 's' => 'S', X_BD => X_BC, - 't' => 'T', X_BE => X_FF, + 't' => 'T', X_BE => X_BE, 'u' => 'U', 'v' => 'V', 'w' => 'W', @@ -581,7 +581,7 @@ package body Csets is 'M' => 'M', X_CC => X_CC, X_DC => X_DC, 'N' => 'N', X_CD => X_CD, X_DD => X_DD, 'O' => 'O', X_CE => X_CE, X_DE => X_DE, - 'P' => 'P', X_CF => X_CF, X_DF => X_DF, X_FF => X_FF, + 'P' => 'P', X_CF => X_CF, X_DF => X_DF, X_FF => X_BE, 'Q' => 'Q', X_A6 => X_A6, 'R' => 'R', X_B4 => X_B4, 'S' => 'S', X_BC => X_BC, @@ -835,6 +835,8 @@ package body Csets is X_98 => X_98, -- y umlaut X_99 => X_99, -- O umlaut X_9A => X_9A, -- U umlaut + X_9B => X_9D, -- o with stroke + X_9D => X_9D, -- O with stroke X_A0 => X_B5, -- a acute X_A1 => X_D6, -- i acute