Fix return value for CCL opcode lookup-integer

* src/ccl.c (ccl_driver): Fix LookupIntConstTbl return value.
* test/lisp/international/ccl-tests.el (ccl-hash-table): Add test.
* lisp/international/ccl.el (ccl-embed-data): Don't pass non-numbers
to `ccl-fixnum' (bug#36740).

1 files changed, 1 insertions, 1 deletions

diff --git a/src/ccl.c b/src/ccl.c
index 86debeef0e5..796698eb1ce 100644
--- a/src/ccl.c
+++ b/src/ccl.c
@@ -1374,7 +1374,7 @@ ccl_driver (struct ccl_program *ccl, int *source, int *destination, int src_size
                     if (! (IN_INT_RANGE (eop) && CHARACTERP (opl)))
                       CCL_INVALID_CMD;
                     reg[RRR] = charset_unicode;
-                    reg[rrr] = eop;
+                    reg[rrr] = XFIXNUM (opl);
                     reg[7] = 1; /* r7 true for success */
                   }
                 else