Mercurial > hg > xemacs-beta

diff src/mule-ccl.c @ 251:677f6a0ee643 r20-5b24

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b24
author cvs
date Mon, 13 Aug 2007 10:19:59 +0200
parents 83b3d10dcba9
children 11cf20601dec
line wrap: on
line diff
--- a/src/mule-ccl.c	Mon Aug 13 10:19:12 2007 +0200
+++ b/src/mule-ccl.c	Mon Aug 13 10:19:59 2007 +0200
@@ -533,8 +533,9 @@
   int code = -1; /* init to illegal value,  */
   int field1, field2;
   Lisp_Object *ccl_prog = ccl->prog;
-  unsigned char *src = source, *src_end = src + src_bytes;
+  CONST unsigned char *src = source, *src_end = src + src_bytes;
   int jump_address = 0; /* shut up the compiler */
+
   int i, j, op;
   int stack_idx = 0;
   /* For the moment, we only support depth 256 of stack.  */