mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-14 09:39:42 +00:00
Code Issues Releases Activity

(ccl_driver) <CCL_WriteExprRegister>: Set jump_address

Browse Source 
instead of incrementing ic directly.
<CCL_WriteExprConst> Likewise.
<ccl_set_expr>: Set ic to jump_address.
This commit is contained in:
Kenichi Handa 2000-02-02 07:06:26 +00:00
parent ca91fb26ce
commit 25660570be
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/ChangeLog
View File

@ -1,5 +1,10 @@
2000-02-02 Kenichi Handa <handa@etl.go.jp>
* ccl.c (ccl_driver) <CCL_WriteExprRegister>: Set jump_address
instead of incrementing ic directly.
<CCL_WriteExprConst> Likewise.
<ccl_set_expr>: Set ic to jump_address.
* fileio.c (e_write): Fix the handling of
CODING_FINISH_INSUFFICIENT_SRC.

4
src/ccl.c
View File

@ -909,7 +909,7 @@ ccl_driver (ccl, source, destination, src_bytes, dst_bytes, consumed)
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 @@ ccl_driver (ccl, source, destination, src_bytes, dst_bytes, consumed)
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 @@ ccl_driver (ccl, source, destination, src_bytes, dst_bytes, consumed)
{
i = reg[rrr];
CCL_WRITE_CHAR (i);
ic = jump_address;
}
else if (!reg[rrr])
ic = jump_address;