KJ16609/gcc
1
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2026-02-22 03:46:53 -05:00
Code Issues Packages Projects Releases Wiki Activity

a68: fix lowering of unicode characters in denotations

Browse Source 
Signed-off-by: Jose E. Marchesi <jemarch@gnu.org>

gcc/algol68/ChangeLog

	* a68-low-units.cc (a68_lower_denotation): Fix call to
	a68_u8_mbtouc.
This commit is contained in:
Jose E. Marchesi
2026-02-07 00:43:41 +01:00
parent 727bca8fef
commit 7a76477dae
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/algol68/a68-low-units.cc
View File

@@ -224,9 +224,10 @@ a68_lower_denotation (NODE_T *p, LOW_CTX_T ctx)
else if (moid == M_CHAR)
{
char *s = a68_string_process_breaks (p, NSYMBOL (p));
int num_units = strlen (s);
uint32_t ucs;
int length = a68_u8_mbtouc (&ucs, (const uint8_t *) s, 1);
gcc_assert (length == 1);
int length = a68_u8_mbtouc (&ucs, (const uint8_t *) s, num_units);
gcc_assert (length == num_units);
free (s);
return build_int_cst (a68_char_type, ucs);
}