From: Andrea Corallo <akrl@sdf.org>
Date: Mon, 25 Nov 2019 19:33:17 +0000 (+0100)
Subject: gate propagate to comp-speed > 1
X-Git-Tag: emacs-28.0.90~2727^2~938
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ba51c31b47a62e6815d8cb2cb34ecd642a677105;p=emacs.git

gate propagate to comp-speed > 1
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index f9c0d62147e..5f0b61b734f 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -1580,15 +1580,16 @@ Return t if something was changed."
            finally return modified))
 
 (defun comp-propagate (_)
-  (maphash (lambda (_ f)
-             (let ((comp-func f))
-               (comp-basic-const-propagate)
-               (cl-loop
-                for i from 1
-                while (comp-propagate*)
-                finally (comp-log (format "Propagation run %d times\n" i) 2))
-                        (comp-log-func comp-func 3)))
-           (comp-ctxt-funcs-h comp-ctxt)))
+  (when (>= comp-speed 2)
+    (maphash (lambda (_ f)
+               (let ((comp-func f))
+                 (comp-basic-const-propagate)
+                 (cl-loop
+                  for i from 1
+                  while (comp-propagate*)
+                  finally (comp-log (format "Propagation run %d times\n" i) 2))
+                 (comp-log-func comp-func 3)))
+             (comp-ctxt-funcs-h comp-ctxt))))
 
 
 ;;; Call optimizer pass specific code.