From: Andrea Corallo <akrl@sdf.org>
Date: Sat, 26 Dec 2020 11:23:27 +0000 (+0100)
Subject: * Remove unnecessary lhs rename in `comp-ssa-rename-insn'
X-Git-Tag: emacs-28.0.90~2727^2~216
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fcd8c60182efc8bfe7bad11fb74489fe5df28d6b;p=emacs.git

* Remove unnecessary lhs rename in `comp-ssa-rename-insn'

	* lisp/emacs-lisp/comp.el (comp-ssa-rename-insn): No point to
	rename lhs as it's being replaced.
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index caea81fccca..936e47ff39a 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -2474,7 +2474,7 @@ PRE-LAMBDA and POST-LAMBDA are called in pre or post-order if non-nil."
       (pcase insn
         (`(,(pred comp-assign-op-p) ,(pred targetp) . ,_)
          (let ((mvar (aref frame slot-n)))
-           (setcdr insn (cl-nsubst-if mvar #'targetp (cdr insn))))
+           (setf (cddr insn) (cl-nsubst-if mvar #'targetp (cddr insn))))
          (new-lvalue))
         (`(fetch-handler . ,_)
          ;; Clobber all no matter what!