From: Kenichi Handa <handa@m17n.org>
Date: Fri, 19 May 2000 23:51:55 +0000 (+0000)
Subject: (CCL_WRITE_CHAR): Be sure to write single byte characters
X-Git-Tag: emacs-pretest-21.0.90~3884
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bd045987c20414ae1de41518d39dcb34e652b696;p=emacs.git

(CCL_WRITE_CHAR): Be sure to write single byte characters
as is.
(CCL_MAKE_CHAR): Use MAKE_CHAR, not MAKE_NON_ASCII_CHAR.
---

diff --git a/src/ccl.c b/src/ccl.c
index 0b11bafe7d2..d8941fc9db6 100644
--- a/src/ccl.c
+++ b/src/ccl.c
@@ -668,19 +668,18 @@ static tr_stack *mapping_stack_pointer;
    output buffer.  If CH is less than 256, CH is written as is.  */
 #define CCL_WRITE_CHAR(ch)					\
   do {								\
+    int bytes = SINGLE_BYTE_CHAR_P (ch) ? 1: CHAR_BYTES (ch);	\
     if (!dst)							\
       CCL_INVALID_CMD;						\
-    else							\
+    else if (dst + bytes <= (dst_bytes ? dst_end : src))	\
       {								\
-	unsigned char str[MAX_MULTIBYTE_LENGTH], *p = str;	\
-	int len = CHAR_STRING (ch, str);			\
-	if (dst + len <= (dst_bytes ? dst_end : src))		\
-	  {							\
-	    while (len--) *dst++ = *p++;			\
-	  }							\
+	if (bytes == 1)						\
+	  *dst++ = (ch);					\
 	else							\
-	  CCL_SUSPEND (CCL_STAT_SUSPEND_BY_DST);		\
+	  dst += CHAR_STRING (ch, dst);				\
       }								\
+    else							\
+      CCL_SUSPEND (CCL_STAT_SUSPEND_BY_DST);			\
   } while (0)
 
 /* Write a string at ccl_prog[IC] of length LEN to the current output
@@ -732,10 +731,10 @@ static tr_stack *mapping_stack_pointer;
 								\
 	if (code >= 256)					\
 	  c2 = c1, c1 = (code >> 7) & 0x7F;			\
-	c = MAKE_NON_ASCII_CHAR (charset, c1, c2);		\
+	c = MAKE_CHAR (charset, c1, c2);			\
       }								\
     else							\
-      c = code & 0xFF;					\
+      c = code & 0xFF;						\
   } while (0)