feature/native-comp 39b3bcd 2/2: * Run dead code removal always before fwprop, optim bootstrap time (~20% less)

[Andrea Corallo]

branch: feature/native-comp
commit 39b3bcd324c4519ae3b204a31ab1a385b8ba9574
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>

    * 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.
---
 lisp/emacs-lisp/comp.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index d4faa20..d2e0d0f 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)