From 2ccce1bc3954ce5f2faa0dcf7fa68ec5cae710ca Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Tue, 24 Dec 2019 16:58:44 +0100 Subject: [PATCH] some style fixes --- lisp/emacs-lisp/comp.el | 2 +- src/comp.c | 12 ++++++------ src/lread.c | 2 +- src/pdumper.c | 2 +- 4 files changed, 9 insertions(+), 9 deletions(-) diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index e8a9b6c2b69..6b9965b8200 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -406,7 +406,7 @@ Put PREFIX in front of it." "Byte compile FUNCTION-NAME spilling data from the byte compiler." (let* ((f (symbol-function function-name)) (func (make-comp-func :name function-name - :c-name (comp-c-func-name function-name"F") + :c-name (comp-c-func-name function-name "F") :doc (documentation f) :int-spec (interactive-form f)))) (when (byte-code-function-p f) diff --git a/src/comp.c b/src/comp.c index 7e25bdc9256..87986abee68 100644 --- a/src/comp.c +++ b/src/comp.c @@ -1824,7 +1824,7 @@ emit_ctxt_code (void) fields[n_frelocs++] = xmint_pointer (XCDR (el)); } - Lisp_Object subr_l = Vsubr_list; + Lisp_Object subr_l = Vcomp_subr_list; FOR_EACH_TAIL (subr_l) { struct Lisp_Subr *subr = XSUBR (XCAR (subr_l)); @@ -3121,7 +3121,7 @@ fill_freloc (void) memcpy (freloc.link_table, helper_link_table, sizeof (helper_link_table)); freloc.size = ARRAYELTS (helper_link_table); - Lisp_Object subr_l = Vsubr_list; + Lisp_Object subr_l = Vcomp_subr_list; FOR_EACH_TAIL (subr_l) { if (freloc.size == F_RELOC_MAX_SIZE) @@ -3290,7 +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); + Fputhash (name, c_name, Vcomp_sym_subr_c_name_h); LOADHIST_ATTACH (Fcons (Qdefun, name)); return Qnil; @@ -3431,12 +3431,12 @@ syms_of_comp (void) Vcomp_ctxt = Qnil; /* FIXME should be initialized but not here... */ - DEFVAR_LISP ("comp-subr-list", Vsubr_list, + DEFVAR_LISP ("comp-subr-list", Vcomp_subr_list, doc: /* List of all defined subrs. */); - DEFVAR_LISP ("comp-sym-subr-c-name-h", Vsym_subr_c_name_h, + DEFVAR_LISP ("comp-sym-subr-c-name-h", Vcomp_sym_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); + Vcomp_sym_subr_c_name_h = CALLN (Fmake_hash_table); } #endif /* HAVE_NATIVE_COMP */ diff --git a/src/lread.c b/src/lread.c index 1ba04835aa1..4e8a3adeb94 100644 --- a/src/lread.c +++ b/src/lread.c @@ -4466,7 +4466,7 @@ defsubr (union Aligned_Lisp_Subr *aname) XSETSUBR (tem, sname); set_symbol_function (sym, tem); #ifdef HAVE_NATIVE_COMP - Vsubr_list = Fcons (tem, Vsubr_list); + Vcomp_subr_list = Fcons (tem, Vcomp_subr_list); #endif /* HAVE_NATIVE_COMP */ } diff --git a/src/pdumper.c b/src/pdumper.c index 5bfccb8ac90..610b94b0a32 100644 --- a/src/pdumper.c +++ b/src/pdumper.c @@ -5323,7 +5323,7 @@ dump_do_dump_relocation (const uintptr_t dump_base, XNATIVE_COMP_UNIT (subr->native_comp_u); if (!comp_u->handle) error ("can't relocate native subr with not loaded compilation unit"); - Lisp_Object c_name = Fgethash (name, Vsym_subr_c_name_h, Qnil); + Lisp_Object c_name = Fgethash (name, Vcomp_sym_subr_c_name_h, Qnil); if (NILP (c_name)) error ("missing label name"); void *func = dynlib_sym (comp_u->handle, SSDATA (c_name)); -- 2.39.5