# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1084538492 0
# Node ID 9ef8d3f3973ec780160c708e0b54f6caff2a2a13
# Parent  87d0603fa2d9911b86ca90d10438a22f2f97b148
(Fccl_execute_on_string): Fix setting elements of STATUS.

diff -r 87d0603fa2d9 -r 9ef8d3f3973e src/ccl.c
--- a/src/ccl.c	Fri May 14 10:04:16 2004 +0000
+++ b/src/ccl.c	Fri May 14 12:41:32 2004 +0000
@@ -2196,8 +2196,8 @@
   produced = ccl_driver (&ccl, SDATA (str), outbuf,
 			 SBYTES (str), outbufsize, (int *) 0);
   for (i = 0; i < 8; i++)
-    XSET (AREF (status, i), Lisp_Int, ccl.reg[i]);
-  XSETINT (AREF (status, 8), ccl.ic);
+    ASET (status, i, make_number (ccl.reg[i]));
+  ASET (status, 8, make_number (ccl.ic));
   UNGCPRO;
 
   if (NILP (unibyte_p))