From d387866ae592b22bad5ae654eb72727d80130145 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Tue, 14 Apr 1998 12:52:08 +0000 Subject: [PATCH] (ccl_driver, syms_of_ccl): Fix mixing of Lisp_Object and int. --- src/ccl.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/ccl.c b/src/ccl.c index d68367f5f90..d4494c2fecc 100644 --- a/src/ccl.c +++ b/src/ccl.c @@ -1216,7 +1216,7 @@ ccl_driver (ccl, source, destination, src_bytes, dst_bytes, consumed) { size = XVECTOR (Vccl_translation_table_vector)->size; - point = ccl_prog[ic++]; + point = XINT (ccl_prog[ic++]); if (point >= size) continue; table = XVECTOR (Vccl_translation_table_vector)-> contents[point]; @@ -1285,8 +1285,8 @@ ccl_driver (ccl, source, destination, src_bytes, dst_bytes, consumed) table_vector_size = XVECTOR (Vccl_translation_table_vector)->size; for (;i < j;i++) { - point = ccl_prog[ic++]; - if (XINT(point) == -1) + point = XINT (ccl_prog[ic++]); + if (point == -1) { skip_to_next = 0; continue; @@ -1723,7 +1723,7 @@ syms_of_ccl () DEFVAR_LISP ("ccl-translation-table-vector", &Vccl_translation_table_vector, "Where is stored translation tables for CCL program.\n\ Because CCL program can't access these tables except by the index of the vector."); - Vccl_translation_table_vector = Fmake_vector (XFASTINT (16), Qnil); + Vccl_translation_table_vector = Fmake_vector (make_number (16), Qnil); DEFVAR_LISP ("font-ccl-encoder-alist", &Vfont_ccl_encoder_alist, "Alist of fontname patterns vs corresponding CCL program.\n\ -- 2.39.2