From: Andrea Corallo <akrl@sdf.org>
Date: Wed, 8 Jul 2020 13:23:09 +0000 (+0100)
Subject: * Add `comp-disabled-passes'
X-Git-Tag: emacs-28.0.90~2727^2~522
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9aaca828fc6a20d99e72c98e79a3b789827b25e1;p=emacs.git

* Add `comp-disabled-passes'

	* lisp/emacs-lisp/comp.el (comp-disabled-passes): New special
	variable.
	(native-compile): Make use of `comp-disabled-passes'.
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 5ff2e098371..caa6613b893 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -173,6 +173,10 @@ Can be one of: 'd-default', 'd-impure' or 'd-ephemeral'.  See `comp-ctxt'.")
                         comp-final)
   "Passes to be executed in order.")
 
+(defvar comp-disabled-passes '()
+  "List of disabled passes.
+For internal use only by the testsuite.")
+
 (defvar comp-post-pass-hooks ()
   "Alist PASS FUNCTIONS.
 Each function in FUNCTIONS is run after PASS.
@@ -2684,12 +2688,13 @@ Return the compilation unit file name."
     (comp-log "\n\n" 1)
     (condition-case err
         (mapc (lambda (pass)
-                (comp-log (format "(%s) Running pass %s:\n"
-                                  function-or-file pass)
-                          2)
-                (setf data (funcall pass data))
-                (cl-loop for f in (alist-get pass comp-post-pass-hooks)
-                         do (funcall f data)))
+                (unless (memq pass comp-disabled-passes)
+                  (comp-log (format "(%s) Running pass %s:\n"
+                                    function-or-file pass)
+                            2)
+                  (setf data (funcall pass data))
+                  (cl-loop for f in (alist-get pass comp-post-pass-hooks)
+                           do (funcall f data))))
               comp-passes)
       (native-compiler-error
        ;; Add source input.