# HG changeset patch
# User Kenichi Handa  <handa@m17n.org>
# Date 1268705769 -32400
# Node ID b81c0cdaa4b7fe8c27a342d904d1dae1878783ef
# Parent  3c55036637eceb34dd8010b8a40303fb58026f89# Parent  cd151730b1604704e25b16a0e7449e20a8936df6
coding.c (decode_coding_ccl): Fix previous change for the multibyte case.

diff -r 3c55036637ec -r b81c0cdaa4b7 src/ChangeLog
--- a/src/ChangeLog	Mon Mar 15 11:51:48 2010 -0400
+++ b/src/ChangeLog	Tue Mar 16 11:16:09 2010 +0900
@@ -1,3 +1,8 @@
+2010-03-16  Kenichi Handa  <handa@m17n.org>
+
+	* coding.c (decode_coding_ccl): Fix previous change for the
+	multibyte case.
+
 2010-03-15  Andreas Politz  <politza@fh-trier.de>  (tiny change)
 
 	* editfns.c (Fformat): Account for string precision when computing
diff -r 3c55036637ec -r b81c0cdaa4b7 src/coding.c
--- a/src/coding.c	Mon Mar 15 11:51:48 2010 -0400
+++ b/src/coding.c	Tue Mar 16 11:16:09 2010 +0900
@@ -5245,7 +5245,7 @@
   int multibytep = coding->src_multibyte;
   struct ccl_program *ccl = &coding->spec.ccl->ccl;
   int source_charbuf[1024];
-  int source_byteidx[1024];
+  int source_byteidx[1025];
   Lisp_Object attrs, charset_list;
 
   CODING_GET_INFO (coding, attrs, charset_list);
@@ -5256,11 +5256,14 @@
       int i = 0;
 
       if (multibytep)
-	while (i < 1024 && p < src_end)
-	  {
-	    source_byteidx[i] = p - src;
-	    source_charbuf[i++] = STRING_CHAR_ADVANCE (p);
-	  }
+	{
+	  while (i < 1024 && p < src_end)
+	    {
+	      source_byteidx[i] = p - src;
+	      source_charbuf[i++] = STRING_CHAR_ADVANCE (p);
+	    }
+	  source_byteidx[i] = p - src;
+	}
       else
 	while (i < 1024 && p < src_end)
 	  source_charbuf[i++] = *p++;
@@ -5270,7 +5273,7 @@
       ccl_driver (ccl, source_charbuf, charbuf, i, charbuf_end - charbuf,
 		  charset_list);
       charbuf += ccl->produced;
-      if (multibytep && ccl->consumed < i)
+      if (multibytep)
 	src += source_byteidx[ccl->consumed];
       else
 	src += ccl->consumed;