feature/native-comp 2a6c6bf 7/9: * Use `comp-assign-op-p' into dead code elimination pass

[Andrea Corallo]

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

    * 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'.
---
 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 f73bd4b..bbeaef3 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)