mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

some style fixes

Browse source
This commit is contained in:
Andrea Corallo 2019-12-24 16:58:44 +01:00
parent 568883c9be
commit 2ccce1bc39
4 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/comp.el
View file

@ -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)

12
src/comp.c
View file

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

2
src/lread.c
View file

@ -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 */
}

2
src/pdumper.c
View file

@ -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));