Mercurial > emacs

diff src/ccl.c @ 18613:614b916ff5bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix bugs with inappropriate mixing of Lisp_Object with int.
author Richard M. Stallman <rms@gnu.org>
date Fri, 04 Jul 1997 20:44:52 +0000
parents 33e78cc7f058
children d961aeafceba
line wrap: on
line diff
--- a/src/ccl.c	Fri Jul 04 20:43:49 1997 +0000
+++ b/src/ccl.c	Fri Jul 04 20:44:52 1997 +0000
@@ -654,7 +654,7 @@
 
 	case CCL_WriteArrayReadJump: /* A--D--D--R--E--S--S-rrrXXXXX */
 	  i = reg[rrr];
-	  j = ccl_prog[ic];
+	  j = XINT (ccl_prog[ic]);
 	  if ((unsigned int) i < j)
 	    {
 	      i = XINT (ccl_prog[ic + 1 + i]);