From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mail-wr1-x42d.google.com (mail-wr1-x42d.google.com [IPv6:2a00:1450:4864:20::42d]) by sourceware.org (Postfix) with ESMTPS id D4694383F843 for ; Thu, 12 May 2022 12:40:04 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.1 sourceware.org D4694383F843 Received: by mail-wr1-x42d.google.com with SMTP id q23so7088854wra.1 for ; Thu, 12 May 2022 05:40:04 -0700 (PDT) X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=x-gm-message-state:date:from:to:cc:subject:message-id:mime-version :content-disposition; bh=VwM9+kBgh6hTwtBa77HuOnr/ig0Hd54kK0xkwSvsiTo=; b=2DegQtP32JHFz/FDF2hWzHnpp53k3VnFUVmN8qFSnQY9pUNd55CU1GnWytgpWsE508 YsC+z3CvhnyD4rQnwl326khLV1P8rMn6y3LX70I5d7wUwrSH/AGCQiI1MtP5kKgT4185 9KgRh9kzMgNtkZ2muN/r8MsXrG1pkpnIoRU35BOsEcuFpuB12boRv0Mqq4p2lz2htX00 Jp5aEyVxBm7HSqSvSHF/QZCMxG8BgCjzmkS+a1Nq5MqoTMTRHA+fWP37wHUobpaECWAn /c/XHX5rFiDw53+iGCs/IPBeX6VBPNM4JVxEzblf4TnM2JihUTvTReyCh4xtGQZuWiAw jRTQ== X-Gm-Message-State: AOAM5312ArhaMp7APIYcUDWg6PXjLNSB1ULlS8COilanvo/rKc9+YhMO TRWniRthz/yssd5j2kC8TvVkJUViBF0b+g== X-Google-Smtp-Source: ABdhPJyqxJSoPOjUNYtMjfwrUb/f8jhsM6kSVgWdn+MooH0dSeRS0BVrT59Tdbz2IwPdokn42224Cg== X-Received: by 2002:a05:6000:786:b0:20c:d72e:ad3c with SMTP id bu6-20020a056000078600b0020cd72ead3cmr10825642wrb.67.1652359203611; Thu, 12 May 2022 05:40:03 -0700 (PDT) Received: from adacore.com ([45.147.211.82]) by smtp.gmail.com with ESMTPSA id y4-20020adfdf04000000b0020aca418f26sm4295645wrl.1.2022.05.12.05.40.02 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Thu, 12 May 2022 05:40:03 -0700 (PDT) Date: Thu, 12 May 2022 12:40:02 +0000 From: Pierre-Marie de Rodat To: gcc-patches@gcc.gnu.org Cc: Etienne Servais Subject: [Ada] Fix support for ISO-8859-15 and IBM CP 850 encoding Message-ID: <20220512124002.GA780663@adacore.com> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="r5Pyd7+fXNt84Ff3" Content-Disposition: inline X-Spam-Status: No, score=-13.2 required=5.0 tests=BAYES_00, DKIM_SIGNED, DKIM_VALID, DKIM_VALID_AU, DKIM_VALID_EF, GIT_PATCH_0, RCVD_IN_DNSWL_NONE, SPF_HELO_NONE, SPF_PASS, TXREP, T_SCC_BODY_TEXT_LINE autolearn=ham autolearn_force=no version=3.4.6 X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on server2.sourceware.org X-BeenThere: gcc-patches@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gcc-patches mailing list List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Thu, 12 May 2022 12:40:06 -0000 --r5Pyd7+fXNt84Ff3 Content-Type: text/plain; charset=us-ascii Content-Disposition: inline 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. Tested on x86_64-pc-linux-gnu, committed on trunk gcc/ada/ * csets.adb (Fold_Latin_9): Fix y with diaeresis. (Fold_IBM_PC_850): Fix o with stroke. --r5Pyd7+fXNt84Ff3 Content-Type: text/x-diff; charset=us-ascii Content-Disposition: attachment; filename="patch.diff" diff --git a/gcc/ada/csets.adb b/gcc/ada/csets.adb --- 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 --r5Pyd7+fXNt84Ff3--