# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 906460389 0
# Node ID fb38954a02d322c4dbf486fd7d95c51120b0416b
# Parent  dcff2a4b6cb41f7028caac1e56697c1cee9270c6
(ccl_driver): Report correct CCL program counter on error.

diff -r dcff2a4b6cb4 -r fb38954a02d3 src/ccl.c
--- a/src/ccl.c	Tue Sep 22 10:33:09 1998 +0000
+++ b/src/ccl.c	Tue Sep 22 10:33:09 1998 +0000
@@ -746,6 +746,8 @@
   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 @@
 	  break;
 	}
 
+      this_ic = ic;
       code = XINT (ccl_prog[ic]); ic++;
       field1 = code >> 8;
       field2 = (code & 0xFF) >> 5;
@@ -1552,7 +1555,7 @@
 	{
 	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;