# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 864012830 0
# Node ID 06f58d8a59ba87d464c9c1ad2ed0c566b9e05ebe
# Parent  e7f0ba5c198cc19f988c0c32e9c7ae4597cbe946
(Ffind_charset_region): Change the declaration of
charsets from `char' to `int.
(find_charset_in_str): Likewize.

diff -r e7f0ba5c198c -r 06f58d8a59ba src/charset.c
--- a/src/charset.c	Mon May 19 03:33:50 1997 +0000
+++ b/src/charset.c	Mon May 19 03:33:50 1997 +0000
@@ -539,8 +539,8 @@
 
 int
 find_charset_in_str (str, len, charsets, table)
-     unsigned char *str, *charsets;
-     int len;
+     unsigned char *str;
+     int len, *charsets;
      Lisp_Object table;
 {
   int num = 0;
@@ -584,7 +584,7 @@
   (beg, end, table)
      Lisp_Object beg, end, table;
 {
-  char charsets[MAX_CHARSET + 1];
+  int charsets[MAX_CHARSET + 1];
   int from, to, stop, i;
   Lisp_Object val;
 
@@ -593,7 +593,7 @@
   stop = to = XFASTINT (end);
   if (from < GPT && GPT < to)
     stop = GPT;
-  bzero (charsets, MAX_CHARSET + 1);
+  bzero (charsets, (MAX_CHARSET + 1) * sizeof (int));
   while (1)
     {
       find_charset_in_str (POS_ADDR (from), stop - from, charsets, table);