procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

gate propagate to comp-speed > 1

Browse source
This commit is contained in:
Andrea Corallo 2019-11-25 20:33:17 +01:00
parent 10adad440b
commit ba51c31b47
1 changed files with 10 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lisp/emacs-lisp/comp.el
View file

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