mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-27 07:41:28 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Kenichi Handa 1998-09-22 10:33:09 +00:00
parent 703dc2a895
commit 519bf1461a
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/ccl.c
View file

@ -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;