* src/comp.c (Fcomp__compile_ctxt_to_file): Fix hash table Qunbound use.

This commit is contained in:
Andrea Corallo 2024-01-04 11:06:41 +01:00
parent a2a6619b28
commit 9308d9a74a

View file

@ -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). */