* [Ada] Fix support for ISO-8859-15 and IBM CP 850 encoding
@ 2022-05-12 12:40 Pierre-Marie de Rodat
0 siblings, 0 replies; only message in thread
From: Pierre-Marie de Rodat @ 2022-05-12 12:40 UTC (permalink / raw)
To: gcc-patches; +Cc: Etienne Servais
[-- Attachment #1: Type: text/plain, Size: 289 bytes --]
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.
[-- Attachment #2: patch.diff --]
[-- Type: text/x-diff, Size: 1079 bytes --]
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
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2022-05-12 12:40 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2022-05-12 12:40 [Ada] Fix support for ISO-8859-15 and IBM CP 850 encoding Pierre-Marie de Rodat
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).