diff src/data.c @ 406:b8cc9ab3f761 r21-2-33

Import from CVS: tag r21-2-33
author cvs
date Mon, 13 Aug 2007 11:17:09 +0200
parents a86b2b5e0111
children de805c49cfc1
line wrap: on
line diff
--- a/src/data.c	Mon Aug 13 11:16:09 2007 +0200
+++ b/src/data.c	Mon Aug 13 11:17:09 2007 +0200
@@ -770,7 +770,7 @@
     {
       CHECK_CHAR_COERCE_INT (newval);
       if (idx >= XSTRING_CHAR_LENGTH (array)) goto range_error;
-      set_string_char (XSTRING (array), idx, XCHAR (newval));
+      set_string_char (XSTRING (array), idx, (unsigned char) XCHAR (newval));
       bump_string_modiff (array);
     }
   else