Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 13:27:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(ccl_driver): Fix bug of the case CCL_WriteArrayReadJump.

Browse source
This commit is contained in:
Kenichi Handa 1997-04-07 07:12:13 +00:00
parent 6dc0722daf
commit 887bfbd7da
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/ccl.c
View file

@ -196,7 +196,7 @@ Lisp_Object Vccl_program_table;
IC += ADDRESS;
*/
/* Note: If read is suspended, the resumed execution starts from the
Mth code (YYYYY == CCL_ReadJump). */
Nth code (YYYYY == CCL_ReadJump). */
#define CCL_ReadJump 0x0C /* Read and jump:
1:A--D--D--R--E--S--S-rrrYYYYY
@ -462,7 +462,7 @@ Lisp_Object Vccl_program_table;
} while (0)
/* Encode one character CH to multibyte form and write to the current
output buffer. If CH is negative, write one byte -CH. */
output buffer. If CH is less than 256, CH is written as is. */
#define CCL_WRITE_CHAR(ch) \
do { \
if (!dst) \
@ -655,13 +655,13 @@ ccl_driver (ccl, source, destination, src_bytes, dst_bytes, consumed)
case CCL_WriteArrayReadJump: /* A--D--D--R--E--S--S-rrrXXXXX */
i = reg[rrr];
j = ccl_prog[ic++];
j = ccl_prog[ic];
if ((unsigned int) i < j)
{
i = XINT (ccl_prog[ic + i]);
i = XINT (ccl_prog[ic + 1 + i]);
CCL_WRITE_CHAR (i);
}
ic += j + 1;
ic += j + 2;
CCL_READ_CHAR (reg[rrr]);
ic += ADDR - (j + 2);
break;
@ -926,8 +926,8 @@ ccl_driver (ccl, source, destination, src_bytes, dst_bytes, consumed)
dst += msglen;
}
}
goto ccl_finish;
#endif
goto ccl_finish;
case CCL_STAT_QUIT:
sprintf(msg, "\nCCL: Quited.");