From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 17 Jan 2021 21:00:42 +0000 (+0100)
Subject: * Run dead code removal always before fwprop, optim bootstrap time (~20% less)
X-Git-Tag: emacs-28.0.90~2727^2~164
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=39b3bcd324c4519ae3b204a31ab1a385b8ba9574;p=emacs.git

* Run dead code removal always before fwprop, optim bootstrap time (~20% less)

	* lisp/emacs-lisp/comp.el (comp-passes): Remove `comp-dead-code'.
	(comp-fwprop): Call `comp-dead-code'.
	(comp-dead-code): Remove fake arg.
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index d4faa207b5d..d2e0d0fb79d 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -175,7 +175,6 @@ Can be one of: 'd-default', 'd-impure' or 'd-ephemeral'.  See `comp-ctxt'.")
                         comp-ipa-pure
                         comp-add-cstrs
                         comp-fwprop
-                        comp-dead-code
                         comp-tco
                         comp-fwprop
                         comp-remove-type-hints
@@ -3130,6 +3129,7 @@ Return t if something was changed."
 (defun comp-fwprop (_)
   "Forward propagate types and consts within the lattice."
   (comp-ssa)
+  (comp-dead-code)
   (maphash (lambda (_ f)
              (when (and (>= (comp-func-speed f) 2)
                         ;; FIXME remove the following condition when tested.
@@ -3302,7 +3302,7 @@ Return the list of m-var ids nuked."
                                            insn))))))))
       nuke-list)))
 
-(defun comp-dead-code (_)
+(defun comp-dead-code ()
   "Dead code elimination."
   (maphash (lambda (_ f)
              (when (and (>= (comp-func-speed f) 2)