mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

Rename native-comp-deferred-compilation into native-comp-jit-compilation

Browse Source 
* src/comp.c (maybe_defer_native_compilation, syms_of_comp):
	Rename native-comp-deferred-compilation into
	native-comp-jit-compilation.

	* lisp/subr.el (native-comp-deferred-compilation): Mark
	native-comp-deferred-compilation as obsolete.

	* lisp/startup.el (native-comp-deferred-compilation)
	(normal-top-level): Rename native-comp-deferred-compilation into
	native-comp-jit-compilation.

	* lisp/progmodes/elisp-mode.el
	(emacs-lisp-native-compile-and-load): Likewise.

	* lisp/emacs-lisp/generate-lisp-file.el
	(generate-lisp-file-trailer): Likewise.
This commit is contained in:
Andrea Corallo 2023-02-13 16:37:43 +01:00
parent 5d0912f144
commit 8d8464bd5a
5 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/emacs-lisp/generate-lisp-file.el
View File

@ -103,7 +103,7 @@ if it's also byte-compiled)."
(insert ";; no-byte-" "compile: t\n")) (insert ";; no-byte-" "compile: t\n"))
(unless autoloads (unless autoloads
(insert ";; no-update-autoloads: t\n")) (insert ";; no-update-autoloads: t\n"))
(unless native-comp-deferred-compilation (unless native-comp-jit-compilation
(insert ";; no-native-" "compile: t\n")) (insert ";; no-native-" "compile: t\n"))
(when coding (when coding
(insert (format ";; coding: %s\n" (insert (format ";; coding: %s\n"

2
lisp/progmodes/elisp-mode.el
View File

@ -220,7 +220,7 @@ All commands in `lisp-mode-shared-map' are inherited by this map."
Load the compiled code when finished. Load the compiled code when finished.
Use `emacs-lisp-byte-compile-and-load' in combination with Use `emacs-lisp-byte-compile-and-load' in combination with
`native-comp-deferred-compilation' set to t to achieve asynchronous `native-comp-jit-compilation' set to t to achieve asynchronous
native compilation." native compilation."
(interactive nil emacs-lisp-mode) (interactive nil emacs-lisp-mode)
(emacs-lisp--before-compile-buffer) (emacs-lisp--before-compile-buffer)

4
lisp/startup.el
View File

@ -542,7 +542,7 @@ DIRS are relative."
(setq comp--compilable t)) (setq comp--compilable t))
(defvar native-comp-eln-load-path) (defvar native-comp-eln-load-path)
(defvar native-comp-deferred-compilation) (defvar native-comp-jit-compilation)
(defvar native-comp-enable-subr-trampolines) (defvar native-comp-enable-subr-trampolines)
(defvar startup--original-eln-load-path nil (defvar startup--original-eln-load-path nil
@ -597,7 +597,7 @@ It is the default value of the variable `top-level'."
;; in this session. This is necessary if libgccjit is not ;; in this session. This is necessary if libgccjit is not
;; available on MS-Windows, but Emacs was built with ;; available on MS-Windows, but Emacs was built with
;; native-compilation support. ;; native-compilation support.
(setq native-comp-deferred-compilation nil (setq native-comp-jit-compilation nil
native-comp-enable-subr-trampolines nil)) native-comp-enable-subr-trampolines nil))
;; Form `native-comp-eln-load-path'. ;; Form `native-comp-eln-load-path'.

4
lisp/subr.el
View File

@ -1898,6 +1898,10 @@ instead; it will indirectly limit the specpdl stack size as well.")
'native-comp-enable-subr-trampolines 'native-comp-enable-subr-trampolines
"29.1") "29.1")
(make-obsolete-variable 'native-comp-deferred-compilation
'native-comp-jit-compilation
"29.1")
;;;; Alternate names for functions - these are not being phased out. ;;;; Alternate names for functions - these are not being phased out.

8
src/comp.c
View File

@ -5173,7 +5173,7 @@ maybe_defer_native_compilation (Lisp_Object function_name,
if (!load_gccjit_if_necessary (false)) if (!load_gccjit_if_necessary (false))
return; return;
if (!native_comp_deferred_compilation if (!native_comp_jit_compilation
|| noninteractive || noninteractive
|| !NILP (Vpurify_flag) || !NILP (Vpurify_flag)
|| !COMPILEDP (definition) || !COMPILEDP (definition)
@ -5677,13 +5677,13 @@ For internal use. */);
doc: /* Non-nil when comp.el can be native compiled. doc: /* Non-nil when comp.el can be native compiled.
For internal use. */); For internal use. */);
/* Compiler control customizes. */ /* Compiler control customizes. */
DEFVAR_BOOL ("native-comp-deferred-compilation", DEFVAR_BOOL ("native-comp-jit-compilation",
native_comp_deferred_compilation, native_comp_jit_compilation,
doc: /* If non-nil compile loaded .elc files asynchronously. doc: /* If non-nil compile loaded .elc files asynchronously.
After compilation, each function definition is updated to the native After compilation, each function definition is updated to the native
compiled one. */); compiled one. */);
native_comp_deferred_compilation = true; native_comp_jit_compilation = true;
DEFSYM (Qnative_comp_speed, "native-comp-speed"); DEFSYM (Qnative_comp_speed, "native-comp-speed");
DEFSYM (Qnative_comp_debug, "native-comp-debug"); DEFSYM (Qnative_comp_debug, "native-comp-debug");