From: Andrea Corallo <akrl@sdf.org>
Date: Thu, 24 Dec 2020 07:52:56 +0000 (+0100)
Subject: * Use `comp-assign-op-p' into dead code elimination pass
X-Git-Tag: emacs-28.0.90~2727^2~222
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2a6c6bf3242847de5d6a25acbfa2a946617df291;p=emacs.git

* Use `comp-assign-op-p' into dead code elimination pass

	* lisp/emacs-lisp/comp.el (comp-dead-assignments-func): Use
	`comp-assign-op-p' in place of `comp-set-op-p'.
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index f73bd4b11eb..bbeaef37e3f 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -2761,7 +2761,7 @@ Return the list of m-var ids nuked."
      do (cl-loop
          for insn in (comp-block-insns b)
          for (op arg0 . rest) = insn
-         if (comp-set-op-p op)
+         if (comp-assign-op-p op)
            do (push (comp-mvar-id arg0) l-vals)
               (setf r-vals (nconc (comp-collect-mvar-ids rest) r-vals))
          else
@@ -2779,7 +2779,7 @@ Return the list of m-var ids nuked."
        for b being each hash-value of (comp-func-blocks comp-func)
        do (comp-loop-insn-in-block b
             (cl-destructuring-bind (op &optional arg0 arg1 &rest rest) insn
-              (when (and (comp-set-op-p op)
+              (when (and (comp-assign-op-p op)
                          (memq (comp-mvar-id arg0) nuke-list))
                 (setf insn
                       (if (comp-limple-insn-call-p arg1)