aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorAndrea Corallo2023-02-13 16:33:40 +0100
committerAndrea Corallo2023-02-13 17:02:38 +0100
commit5d0912f1445e33f1ccf23a84f0dc6d08c4ee2b60 (patch)
treefa6408320ec69d65cc13c77715c06a11c0619cb7 /src
parentabfd00e5c02ec0aed8bbac1eca0d0db1874f020a (diff)
downloademacs-5d0912f1445e33f1ccf23a84f0dc6d08c4ee2b60.tar.gz
emacs-5d0912f1445e33f1ccf23a84f0dc6d08c4ee2b60.zip
Rename comp-enable-subr-trampolines into native-comp-enable-subr-trampolines
* src/data.c (Ffset): Rename comp-enable-subr-trampolines into native-comp-enable-subr-trampolines. * src/comp.c (syms_of_comp): Likewise. * lisp/subr.el (comp-enable-subr-trampolines): Make comp-enable-subr-trampolines obsolete. * lisp/startup.el (native-comp-enable-subr-trampolines) (normal-top-level): Rename comp-enable-subr-trampolines into native-comp-enable-subr-trampolines. * lisp/loadup.el (dump-mode): Likewise. * lisp/emacs-lisp/comp.el (comp-subr-trampoline-install) (comp--trampoline-abs-filename): Likewise.
Diffstat (limited to 'src')
-rw-r--r--src/comp.c3
-rw-r--r--src/data.c2
2 files changed, 3 insertions, 2 deletions
diff --git a/src/comp.c b/src/comp.c
index 82224845bff..ba3ed95bcce 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -5858,7 +5858,8 @@ The last directory of this list is assumed to be the system one. */);
5858 dump reload. */ 5858 dump reload. */
5859 Vnative_comp_eln_load_path = Fcons (build_string ("../native-lisp/"), Qnil); 5859 Vnative_comp_eln_load_path = Fcons (build_string ("../native-lisp/"), Qnil);
5860 5860
5861 DEFVAR_LISP ("comp-enable-subr-trampolines", Vcomp_enable_subr_trampolines, 5861 DEFVAR_LISP ("native-comp-enable-subr-trampolines",
5862 Vnative_comp_enable_subr_trampolines,
5862 doc: /* If non-nil, enable primitive trampoline synthesis. 5863 doc: /* If non-nil, enable primitive trampoline synthesis.
5863This makes Emacs respect redefinition or advises of primitive functions 5864This makes Emacs respect redefinition or advises of primitive functions
5864when they are called from Lisp code natively-compiled at `native-comp-speed' 5865when they are called from Lisp code natively-compiled at `native-comp-speed'
diff --git a/src/data.c b/src/data.c
index a43fa8991fe..0f1d881e00b 100644
--- a/src/data.c
+++ b/src/data.c
@@ -855,7 +855,7 @@ DEFUN ("fset", Ffset, Sfset, 2, 2, 0,
855#ifdef HAVE_NATIVE_COMP 855#ifdef HAVE_NATIVE_COMP
856 register Lisp_Object function = XSYMBOL (symbol)->u.s.function; 856 register Lisp_Object function = XSYMBOL (symbol)->u.s.function;
857 857
858 if (!NILP (Vcomp_enable_subr_trampolines) 858 if (!NILP (Vnative_comp_enable_subr_trampolines)
859 && SUBRP (function) 859 && SUBRP (function)
860 && !SUBR_NATIVE_COMPILEDP (function)) 860 && !SUBR_NATIVE_COMPILEDP (function))
861 CALLN (Ffuncall, Qcomp_subr_trampoline_install, symbol); 861 CALLN (Ffuncall, Qcomp_subr_trampoline_install, symbol);