diff options
| author | Andrea Corallo <acorallo@gnu.org> | 2024-01-04 11:06:41 +0100 |
|---|---|---|
| committer | Andrea Corallo <acorallo@gnu.org> | 2024-01-04 11:15:13 +0100 |
| commit | 9308d9a74ab586e9793b2561da23116f2b4fe205 (patch) | |
| tree | 40e7de68238e555aa0a7740ab8184adea5d41460 /src/comp.c | |
| parent | a2a6619b2825c3c3d159610f0cd6fd89b791bd3f (diff) | |
| download | emacs-9308d9a74ab586e9793b2561da23116f2b4fe205.tar.gz emacs-9308d9a74ab586e9793b2561da23116f2b4fe205.tar.bz2 emacs-9308d9a74ab586e9793b2561da23116f2b4fe205.zip | |
* src/comp.c (Fcomp__compile_ctxt_to_file): Fix hash table Qunbound use.
Diffstat (limited to 'src/comp.c')
| -rw-r--r-- | src/comp.c | 4 |
1 files 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). */ |