diff options
| author | Andrea Corallo <akrl@sdf.org> | 2020-02-16 10:31:46 +0000 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-02-16 10:31:46 +0000 |
| commit | 5bd485340fea0788035241860aad0804ebeeb388 (patch) | |
| tree | b314b1050324d12aa841966f881a4ae8ace78f98 /lisp/emacs-lisp | |
| parent | 2a8a3a9f28a6b1404161512115b059a376bc07f0 (diff) | |
| download | emacs-5bd485340fea0788035241860aad0804ebeeb388.tar.gz emacs-5bd485340fea0788035241860aad0804ebeeb388.tar.bz2 emacs-5bd485340fea0788035241860aad0804ebeeb388.zip | |
Introduce comp-dry-run
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index b6c1a95315d..7ba319204d1 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -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." |