From ba51c31b47a62e6815d8cb2cb34ecd642a677105 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Mon, 25 Nov 2019 20:33:17 +0100 Subject: [PATCH] gate propagate to comp-speed > 1 --- lisp/emacs-lisp/comp.el | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) 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. -- 2.39.5