From: Kenichi Handa <handa@m17n.org>
Date: Tue, 22 Sep 1998 10:33:09 +0000 (+0000)
Subject: (ccl_driver): Report correct CCL program counter on error.
X-Git-Tag: emacs-20.4~1646
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=519bf1461a882f40fa8e4e12cb161e1ffbde4b8b;p=emacs.git

(ccl_driver): Report correct CCL program counter on error.
---

diff --git a/src/ccl.c b/src/ccl.c
index 157992de0a7..c724405e16c 100644
--- a/src/ccl.c
+++ b/src/ccl.c
@@ -746,6 +746,8 @@ ccl_driver (ccl, source, destination, src_bytes, dst_bytes, consumed)
   int stack_idx = 0;
   /* For the moment, we only support depth 256 of stack.  */ 
   struct ccl_prog_stack ccl_prog_stack_struct[256];
+  /* Instruction counter of the current CCL code. */
+  int this_ic;
 
   if (ic >= ccl->eof_ic)
     ic = CCL_HEADER_MAIN;
@@ -778,6 +780,7 @@ ccl_driver (ccl, source, destination, src_bytes, dst_bytes, consumed)
 	  break;
 	}
 
+      this_ic = ic;
       code = XINT (ccl_prog[ic]); ic++;
       field1 = code >> 8;
       field2 = (code & 0xFF) >> 5;
@@ -1552,7 +1555,7 @@ ccl_driver (ccl, source, destination, src_bytes, dst_bytes, consumed)
 	{
 	case CCL_STAT_INVALID_CMD:
 	  sprintf(msg, "\nCCL: Invalid command %x (ccl_code = %x) at %d.",
-		  code & 0x1F, code, ic);
+		  code & 0x1F, code, this_ic);
 #ifdef CCL_DEBUG
 	  {
 	    int i = ccl_backtrace_idx - 1;