Mercurial > hg > xemacs-beta
comparison src/mule-ccl.c @ 251:677f6a0ee643 r20-5b24
Import from CVS: tag r20-5b24
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:19:59 +0200 |
parents | 83b3d10dcba9 |
children | 11cf20601dec |
comparison
equal
deleted
inserted
replaced
250:f385a461c9aa | 251:677f6a0ee643 |
---|---|
531 int *reg = ccl->reg; | 531 int *reg = ccl->reg; |
532 int ic = ccl->ic; | 532 int ic = ccl->ic; |
533 int code = -1; /* init to illegal value, */ | 533 int code = -1; /* init to illegal value, */ |
534 int field1, field2; | 534 int field1, field2; |
535 Lisp_Object *ccl_prog = ccl->prog; | 535 Lisp_Object *ccl_prog = ccl->prog; |
536 unsigned char *src = source, *src_end = src + src_bytes; | 536 CONST unsigned char *src = source, *src_end = src + src_bytes; |
537 int jump_address = 0; /* shut up the compiler */ | 537 int jump_address = 0; /* shut up the compiler */ |
538 | |
538 int i, j, op; | 539 int i, j, op; |
539 int stack_idx = 0; | 540 int stack_idx = 0; |
540 /* For the moment, we only support depth 256 of stack. */ | 541 /* For the moment, we only support depth 256 of stack. */ |
541 struct ccl_prog_stack ccl_prog_stack_struct[256]; | 542 struct ccl_prog_stack ccl_prog_stack_struct[256]; |
542 | 543 |