From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 16 Feb 2020 10:31:46 +0000 (+0000)
Subject: Introduce comp-dry-run
X-Git-Tag: emacs-28.0.90~2727^2~828
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5bd485340fea0788035241860aad0804ebeeb388;p=emacs.git

Introduce comp-dry-run
---

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."