(Fccl_execute_on_string): Use size_byte.

diff --git a/src/ccl.c b/src/ccl.c
index 85a2334f4a857961317156b191c9c4f7e5827657..df58bb55a03a9a568e6a2d9a3a512ff021c1424d 100644 (file)
--- a/src/ccl.c
+++ b/src/ccl.c
@@ -1053,13 +1053,13 @@ CCL-PROGRAM on exit.")
       if (ccl.ic < i && i < ccl.size)
        ccl.ic = i;
     }
-  outbufsize = XSTRING (str)->size * ccl.buf_magnification + 256;
+  outbufsize = XSTRING (str)->size_byte * ccl.buf_magnification + 256;
   outbuf = (char *) xmalloc (outbufsize);
   if (!outbuf)
     error ("Not enough memory");
   ccl.last_block = NILP (contin);
   produced = ccl_driver (&ccl, XSTRING (str)->data, outbuf,
-                        XSTRING (str)->size, outbufsize, (int *)0);
+                        XSTRING (str)->size_byte, outbufsize, (int *)0);
   for (i = 0; i < 8; i++)
     XSET (XVECTOR (status)->contents[i], Lisp_Int, ccl.reg[i]);
   XSETINT (XVECTOR (status)->contents[8], ccl.ic);