From: Kenichi Handa <handa@m17n.org>
Date: Fri, 14 May 2004 12:41:32 +0000 (+0000)
Subject: (Fccl_execute_on_string): Fix setting elements of STATUS.
X-Git-Tag: ttn-vms-21-2-B4~6224
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=866ebf45ca1b8eaf1c06886d04e29ad56b1e0139;p=emacs.git

(Fccl_execute_on_string): Fix setting elements of STATUS.
---

diff --git a/src/ccl.c b/src/ccl.c
index 81e90319e52..4c3528075b4 100644
--- a/src/ccl.c
+++ b/src/ccl.c
@@ -2196,8 +2196,8 @@ See the documentation of `define-ccl-program' for the detail of CCL program.  */
   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))