mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-11-28 07:45:00 +00:00
Rename batch-byte-native-compile-for-bootstrap (bug#48743)
* lisp/Makefile.in : Rename `batch-byte-native-compile-for-bootstrap' -> `batch-byte+native-compile. * lisp/emacs-lisp/bytecomp.el (byte+native-compile) (byte-compile-file): Rename `batch-byte-native-compile-for-bootstrap' -> `batch-byte+native-compile + `byte-native-for-bootstrap' -> `byte+native-compile'. * lisp/emacs-lisp/comp.el (comp-spill-lap-function, comp-final) (batch-native-compile, batch-byte+native-compile): Likewise. * lisp/emacs-lisp/bytecomp.el (byte+native-compile) (byte-compile-file): Likewise. * test/src/comp-tests.el (comp-tests-bootstrap): Rename `byte-native-for-bootstrap' -> `byte+native-compile'.
This commit is contained in:
parent
3dff854199
commit
c4b02dad9b
@ -274,7 +274,7 @@ $(THEFILE)c:
|
||||
ifeq ($(HAVE_NATIVE_COMP),yes)
|
||||
$(AM_V_ELC)$(emacs) $(BYTE_COMPILE_FLAGS) \
|
||||
-l comp -f byte-compile-refresh-preloaded \
|
||||
-f batch-byte-native-compile-for-bootstrap $(THEFILE)
|
||||
-f batch-byte+native-compile $(THEFILE)
|
||||
else
|
||||
$(AM_V_ELC)$(emacs) $(BYTE_COMPILE_FLAGS) \
|
||||
-l bytecomp -f byte-compile-refresh-preloaded \
|
||||
@ -295,7 +295,7 @@ endif
|
||||
ifeq ($(HAVE_NATIVE_COMP),yes)
|
||||
.el.elc:
|
||||
$(AM_V_ELC)$(emacs) $(BYTE_COMPILE_FLAGS) \
|
||||
-l comp -f batch-byte-native-compile-for-bootstrap $<
|
||||
-l comp -f batch-byte+native-compile $<
|
||||
else
|
||||
.el.elc:
|
||||
$(AM_V_ELC)$(emacs) $(BYTE_COMPILE_FLAGS) -f batch-byte-compile $<
|
||||
|
@ -606,7 +606,7 @@ Each element is (INDEX . VALUE)")
|
||||
"Non nil while native compiling.")
|
||||
(defvar byte-native-qualities nil
|
||||
"To spill default qualities from the compiled file.")
|
||||
(defvar byte-native-for-bootstrap nil
|
||||
(defvar byte+native-compile nil
|
||||
"Non nil while compiling for bootstrap."
|
||||
;; During bootstrap we produce both the .eln and the .elc together.
|
||||
;; Because the make target is the later this has to be produced as
|
||||
@ -2109,7 +2109,7 @@ See also `emacs-lisp-byte-compile-and-load'."
|
||||
;; recompiled). Previously this was accomplished by
|
||||
;; deleting target-file before writing it.
|
||||
(if byte-native-compiling
|
||||
(if byte-native-for-bootstrap
|
||||
(if byte+native-compile
|
||||
;; Defer elc final renaming.
|
||||
(setf byte-to-native-output-file
|
||||
(cons tempfile target-file))
|
||||
|
@ -1337,7 +1337,7 @@ clashes."
|
||||
(unless (comp-ctxt-output comp-ctxt)
|
||||
(setf (comp-ctxt-output comp-ctxt) (comp-el-to-eln-filename
|
||||
filename
|
||||
(when byte-native-for-bootstrap
|
||||
(when byte+native-compile
|
||||
(car (last native-comp-eln-load-path))))))
|
||||
(setf (comp-ctxt-speed comp-ctxt) (alist-get 'native-comp-speed
|
||||
byte-native-qualities)
|
||||
@ -3643,7 +3643,7 @@ Prepare every function for final compilation and drive the C back-end."
|
||||
;; unless during bootstrap or async compilation (bug#45056). GCC
|
||||
;; leaks memory but also interfere with the ability of Emacs to
|
||||
;; detect when a sub-process completes (TODO understand why).
|
||||
(if (or byte-native-for-bootstrap comp-async-compilation)
|
||||
(if (or byte+native-compile comp-async-compilation)
|
||||
(comp-final1)
|
||||
;; Call comp-final1 in a child process.
|
||||
(let* ((output (comp-ctxt-output comp-ctxt))
|
||||
@ -4171,7 +4171,7 @@ it won’t work in an interactive Emacs.
|
||||
Native compilation equivalent to `batch-byte-compile'."
|
||||
(comp-ensure-native-compiler)
|
||||
(cl-loop for file in command-line-args-left
|
||||
if (or (null byte-native-for-bootstrap)
|
||||
if (or (null byte+native-compile)
|
||||
(cl-notany (lambda (re) (string-match re file))
|
||||
native-comp-bootstrap-deny-list))
|
||||
do (comp--native-compile file)
|
||||
@ -4179,7 +4179,7 @@ Native compilation equivalent to `batch-byte-compile'."
|
||||
do (byte-compile-file file)))
|
||||
|
||||
;;;###autoload
|
||||
(defun batch-byte-native-compile-for-bootstrap ()
|
||||
(defun batch-byte+native-compile ()
|
||||
"Like `batch-native-compile', but used for bootstrap.
|
||||
Generate .elc files in addition to the .eln files.
|
||||
Force the produced .eln to be outputted in the eln system
|
||||
@ -4190,7 +4190,7 @@ compile."
|
||||
(if (equal (getenv "NATIVE_DISABLED") "1")
|
||||
(batch-byte-compile)
|
||||
(cl-assert (length= command-line-args-left 1))
|
||||
(let ((byte-native-for-bootstrap t)
|
||||
(let ((byte+native-compile t)
|
||||
(byte-to-native-output-file nil))
|
||||
(batch-native-compile)
|
||||
(pcase byte-to-native-output-file
|
||||
|
@ -53,7 +53,7 @@
|
||||
"Compile the compiler and load it to compile it-self.
|
||||
Check that the resulting binaries do not differ."
|
||||
:tags '(:expensive-test :nativecomp)
|
||||
(let* ((byte-native-for-bootstrap t) ; FIXME HACK
|
||||
(let* ((byte+native-compile t) ; FIXME HACK
|
||||
(comp-src (expand-file-name "../../../lisp/emacs-lisp/comp.el"
|
||||
(ert-resource-directory)))
|
||||
(comp1-src (make-temp-file "stage1-" nil ".el"))
|
||||
|
Loading…
Reference in New Issue
Block a user