# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 949475100 0
# Node ID d96c50f3e37ed7b48b382373efb996e9fdb0d38d
# Parent  6182de7d0e8602b1cc5d24a3ec6570d15e79067f
(ccl_driver) <CCL_WriteExprRegister>: Set jump_address
instead of incrementing ic directly.
<CCL_WriteExprConst> Likewise.
<ccl_set_expr>: Set ic to jump_address.

diff -r 6182de7d0e86 -r d96c50f3e37e src/ccl.c
--- a/src/ccl.c	Wed Feb 02 06:58:58 2000 +0000
+++ b/src/ccl.c	Wed Feb 02 07:05:00 2000 +0000
@@ -909,7 +909,7 @@
 	  i = reg[RRR];
 	  j = XINT (ccl_prog[ic]);
 	  op = field1 >> 6;
-	  ic++;
+	  jump_address = ic + 1;
 	  goto ccl_set_expr;
 
 	case CCL_WriteRegister:	/* CCCCCCCCCCCCCCCCCCCrrrXXXXX */
@@ -929,6 +929,7 @@
 	  i = reg[RRR];
 	  j = reg[Rrr];
 	  op = field1 >> 6;
+	  jump_address = ic;
 	  goto ccl_set_expr;
 
 	case CCL_Call:		/* 1:CCCCCCCCCCCCCCCCCCCCFFFXXXXX */
@@ -1105,6 +1106,7 @@
 	    {
 	      i = reg[rrr];
 	      CCL_WRITE_CHAR (i);
+	      ic = jump_address;
 	    }
 	  else if (!reg[rrr])
 	    ic = jump_address;