a68: fix lowering of unicode characters in denotations

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.

diff --git a/gcc/algol68/a68-low-units.cc b/gcc/algol68/a68-low-units.cc
index 5aa0c97dad3efe1bb4ded541bde3d1321c3d0aad..c5ae0d47328ed1587d7ef94164aef829727e69c0 100644 (file)
--- a/gcc/algol68/a68-low-units.cc
+++ b/gcc/algol68/a68-low-units.cc
@@ -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);
     }