From 9308d9a74ab586e9793b2561da23116f2b4fe205 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Thu, 4 Jan 2024 11:06:41 +0100 Subject: [PATCH] * src/comp.c (Fcomp__compile_ctxt_to_file): Fix hash table Qunbound use. --- src/comp.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/comp.c b/src/comp.c index 882b42cdbd5..8428cf9020e 100644 --- a/src/comp.c +++ b/src/comp.c @@ -4964,12 +4964,12 @@ DEFUN ("comp--compile-ctxt-to-file", Fcomp__compile_ctxt_to_file, struct Lisp_Hash_Table *func_h = XHASH_TABLE (CALL1I (comp-ctxt-funcs-h, Vcomp_ctxt)); for (ptrdiff_t i = 0; i < HASH_TABLE_SIZE (func_h); i++) - if (!BASE_EQ (HASH_VALUE (func_h, i), Qunbound)) + if (!BASE_EQ (HASH_KEY (func_h, i), Qunbound)) declare_function (HASH_VALUE (func_h, i)); /* Compile all functions. Can't be done before because the relocation structs has to be already defined. */ for (ptrdiff_t i = 0; i < HASH_TABLE_SIZE (func_h); i++) - if (!BASE_EQ (HASH_VALUE (func_h, i), Qunbound)) + if (!BASE_EQ (HASH_KEY (func_h, i), Qunbound)) compile_function (HASH_VALUE (func_h, i)); /* Work around bug#46495 (GCC PR99126). */ -- 2.39.2