Mercurial > emacs
changeset 23303:fb38954a02d3
(ccl_driver): Report correct CCL program counter on error.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 22 Sep 1998 10:33:09 +0000 |
| parents | dcff2a4b6cb4 |
| children | 3a7a029df593 |
| files | src/ccl.c |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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;