Mercurial > hg > xemacs-beta

comparison src/mule-ccl.c @ 249:83b3d10dcba9 r20-5b23

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b23
author cvs
date Mon, 13 Aug 2007 10:19:09 +0200
parents f220cc83d72e
children 677f6a0ee643
comparison
equal deleted inserted replaced
248:ad40ac2754d8 249:83b3d10dcba9
528 int 528 int
529 ccl_driver (struct ccl_program *ccl, CONST unsigned char *source, unsigned_char_dynarr *destination, int src_bytes, int *consumed) 529 ccl_driver (struct ccl_program *ccl, CONST unsigned char *source, unsigned_char_dynarr *destination, int src_bytes, int *consumed)
530 { 530 {
531 int *reg = ccl->reg; 531 int *reg = ccl->reg;
532 int ic = ccl->ic; 532 int ic = ccl->ic;
533 int code, field1, field2; 533 int code = -1; /* init to illegal value, */
534 int field1, field2;
534 Lisp_Object *ccl_prog = ccl->prog; 535 Lisp_Object *ccl_prog = ccl->prog;
535 unsigned char *src = source, *src_end = src + src_bytes; 536 unsigned char *src = source, *src_end = src + src_bytes;
536 int jump_address; 537 int jump_address = 0; /* shut up the compiler */
537 int i, j, op; 538 int i, j, op;
538 int stack_idx = 0; 539 int stack_idx = 0;
539 /* For the moment, we only support depth 256 of stack. */ 540 /* For the moment, we only support depth 256 of stack. */
540 struct ccl_prog_stack ccl_prog_stack_struct[256]; 541 struct ccl_prog_stack ccl_prog_stack_struct[256];
541 542