1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-28 09:41:37 -07:00

Introduce comp-dry-run

This commit is contained in:
Andrea Corallo 2020-02-16 10:31:46 +00:00
parent 2a8a3a9f28
commit 5bd485340f

View file

@ -83,6 +83,9 @@ performed at `comp-speed' > 0."
:type 'list
:group 'comp)
(defvar comp-dry-run nil
"When non nil run everything but the C back-end.")
(defconst comp-log-buffer-name "*Native-compile-Log*"
"Name of the native-compiler log buffer.")
@ -1893,7 +1896,8 @@ These are substituted with a normal 'set' op."
Prepare every function for final compilation and drive the C back-end."
(comp-data-container-check (comp-ctxt-d-base comp-ctxt))
(comp-data-container-check (comp-ctxt-d-impure comp-ctxt))
(comp--compile-ctxt-to-file name))
(unless comp-dry-run
(comp--compile-ctxt-to-file name)))
(defun comp-final (_)
"Final pass driving the C back-end for code emission."