diff options
| author | Andrea Corallo <akrl@sdf.org> | 2019-12-24 16:52:40 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-01-01 11:38:16 +0100 |
| commit | 568883c9be8bfbb15ea48ae0de2c117894e8db4e (patch) | |
| tree | 99d1465d98412f8d9c3cdfed94cfcfb73f7085b7 /src/comp.c | |
| parent | b6d6e7feb75b792c74fe3e1d036b9edf540d771e (diff) | |
| download | emacs-568883c9be8bfbb15ea48ae0de2c117894e8db4e.tar.gz emacs-568883c9be8bfbb15ea48ae0de2c117894e8db4e.tar.bz2 emacs-568883c9be8bfbb15ea48ae0de2c117894e8db4e.zip | |
add native elisp subr pdumper support
Diffstat (limited to 'src/comp.c')
| -rw-r--r-- | src/comp.c | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/src/comp.c b/src/comp.c index 43b22a86805..7e25bdc9256 100644 --- a/src/comp.c +++ b/src/comp.c @@ -3202,8 +3202,6 @@ helper_PSEUDOVECTOR_TYPEP_XUNTAG (Lisp_Object a, enum pvec_type code) /* Functions used to load eln files. */ /**************************************/ -static Lisp_Object Vnative_elisp_refs_hash; - typedef char *(*comp_lit_str_func) (void); /* Deserialize read and return static object. */ @@ -3292,6 +3290,7 @@ DEFUN ("comp--register-subr", Fcomp__register_subr, Scomp__register_subr, XSETSUBR (tem, &x->s); set_symbol_function (name, tem); + Fputhash (name, c_name, Vsym_subr_c_name_h); LOADHIST_ATTACH (Fcons (Qdefun, name)); return Qnil; @@ -3434,13 +3433,10 @@ syms_of_comp (void) /* FIXME should be initialized but not here... */ DEFVAR_LISP ("comp-subr-list", Vsubr_list, doc: /* List of all defined subrs. */); - - /* Load mechanism. */ - staticpro (&Vnative_elisp_refs_hash); - Vnative_elisp_refs_hash - = make_hash_table (hashtest_eq, DEFAULT_HASH_SIZE, - DEFAULT_REHASH_SIZE, DEFAULT_REHASH_THRESHOLD, - Qnil, false); + DEFVAR_LISP ("comp-sym-subr-c-name-h", Vsym_subr_c_name_h, + doc: /* Hash table symbol-function -> function-c-name. For + internal use during */); + Vsym_subr_c_name_h = CALLN (Fmake_hash_table); } #endif /* HAVE_NATIVE_COMP */ |