[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp 5bd4853 2/4: Introduce comp-dry-run
From: |
Andrea Corallo |
Subject: |
feature/native-comp 5bd4853 2/4: Introduce comp-dry-run |
Date: |
Sun, 16 Feb 2020 12:47:11 -0500 (EST) |
branch: feature/native-comp
commit 5bd485340fea0788035241860aad0804ebeeb388
Author: Andrea Corallo <address@hidden>
Commit: Andrea Corallo <address@hidden>
Introduce comp-dry-run
---
lisp/emacs-lisp/comp.el | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index b6c1a95..7ba3192 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."