# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1026916794 0
# Node ID fc51841e5d978c06349743d23cc930a3ce8336c4
# Parent  f59e00cee67974dd9a7ea57eb4d4e1450a2bc5e2
Remove `emacs' conditionals.
(ccl_backtrace_table): Fix size spec.
(ccl_driver): Fix type errors.

diff -r f59e00cee679 -r fc51841e5d97 src/ccl.c
--- a/src/ccl.c	Wed Jul 17 10:36:16 2002 +0000
+++ b/src/ccl.c	Wed Jul 17 14:39:54 2002 +0000
@@ -20,25 +20,15 @@
 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 Boston, MA 02111-1307, USA.  */
 
-#ifdef emacs
 #include <config.h>
-#endif
 
 #include <stdio.h>
 
-#ifdef emacs
-
 #include "lisp.h"
 #include "charset.h"
 #include "ccl.h"
 #include "coding.h"
 
-#else  /* not emacs */
-
-#include "mulelib.h"
-
-#endif /* not emacs */
-
 /* This contains all code conversion map available to CCL.  */
 Lisp_Object Vcode_conversion_map_vector;
 
@@ -862,7 +852,7 @@
 
 #ifdef CCL_DEBUG
 #define CCL_DEBUG_BACKTRACE_LEN 256
-int ccl_backtrace_table[CCL_BACKTRACE_TABLE];
+int ccl_backtrace_table[CCL_DEBUG_BACKTRACE_LEN];
 int ccl_backtrace_idx;
 #endif
 
@@ -1434,10 +1424,11 @@
 		op = hash_lookup (h, make_number (reg[RRR]), NULL);
 		if (op >= 0)
 		  {
-		    op = HASH_VALUE (h, op);
-		    if (!CHAR_VALID_P (op, 0))
+		    Lisp_Object opl;
+		    opl = HASH_VALUE (h, op);
+		    if (!CHAR_VALID_P (XINT (opl), 0))
 		      CCL_INVALID_CMD;
-		    SPLIT_CHAR (XINT (op), reg[RRR], i, j);
+		    SPLIT_CHAR (XINT (opl), reg[RRR], i, j);
 		    if (j != -1)
 		      i = (i << 7) | j;
 		    reg[rrr] = i;
@@ -1458,10 +1449,11 @@
 		op = hash_lookup (h, make_number (i), NULL);
 		if (op >= 0)
 		  {
-		    op = HASH_VALUE (h, op);
-		    if (!INTEGERP (op))
+		    Lisp_Object opl;
+		    opl = HASH_VALUE (h, op);
+		    if (!INTEGERP (opl))
 		      CCL_INVALID_CMD;
-		    reg[RRR] = XINT (op);
+		    reg[RRR] = XINT (opl);
 		    reg[7] = 1; /* r7 true for success */
 		  }
 		else
@@ -2071,8 +2063,6 @@
   return 0;
 }
 
-#ifdef emacs
-
 DEFUN ("ccl-program-p", Fccl_program_p, Sccl_program_p, 1, 1, 0,
        doc: /* Return t if OBJECT is a CCL program name or a compiled CCL program code.
 See the documentation of  `define-ccl-program' for the detail of CCL program.  */)
@@ -2412,5 +2402,3 @@
   defsubr (&Sregister_ccl_program);
   defsubr (&Sregister_code_conversion_map);
 }
-
-#endif  /* emacs */