changeset 55590:9ef8d3f3973e

(Fccl_execute_on_string): Fix setting elements of STATUS.
author Kenichi Handa <handa@m17n.org>
date Fri, 14 May 2004 12:41:32 +0000
parents 87d0603fa2d9
children b7092385d1be
files src/ccl.c
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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))