From: Kenichi Handa <handa@m17n.org>
Date: Tue, 18 Aug 1998 13:15:18 +0000 (+0000)
Subject: (ccl_coding_driver): Setup ccl->last_block properly.
X-Git-Tag: emacs-20.3~12
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7b179c2dc2fb8f2e8a4cfad9a8c2bf0af1b37062;p=emacs.git

(ccl_coding_driver): Setup ccl->last_block properly.
(setup_coding_system): Correctly setup `valid_codes' member.
---

diff --git a/src/coding.c b/src/coding.c
index e9227a2ac7b..f44a0a09d40 100644
--- a/src/coding.c
+++ b/src/coding.c
@@ -3086,8 +3086,9 @@ setup_coding_system (coding_system, coding)
 	  {
 	    Lisp_Object this;
 
-	    for (this = XCONS (val)->car; CONSP (val); val = XCONS (val)->cdr)
+	    for (; CONSP (val); val = XCONS (val)->cdr)
 	      {
+		this = XCONS (val)->car;
 		if (INTEGERP (this)
 		    && XINT (this) >= 0 && XINT (this) < 256)
 		  coding->spec.ccl.valid_codes[XINT (this)] = 1;
@@ -3606,6 +3607,9 @@ ccl_coding_driver (coding, source, destination, src_bytes, dst_bytes, encodep)
     = encodep ? &coding->spec.ccl.encoder : &coding->spec.ccl.decoder;
   int result;
 
+  if (encodep)
+    ccl->last_block = coding->mode & CODING_MODE_LAST_BLOCK;
+
   coding->produced = ccl_driver (ccl, source, destination,
 				 src_bytes, dst_bytes, &(coding->consumed));
   if (encodep)