[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp fcd8c60 2/5: * Remove unnecessary lhs rename in `com
From: |
Andrea Corallo |
Subject: |
feature/native-comp fcd8c60 2/5: * Remove unnecessary lhs rename in `comp-ssa-rename-insn' |
Date: |
Sat, 26 Dec 2020 14:52:48 -0500 (EST) |
branch: feature/native-comp
commit fcd8c60182efc8bfe7bad11fb74489fe5df28d6b
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>
* 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.
---
lisp/emacs-lisp/comp.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index caea81f..936e47f 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!