* 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.
This commit is contained in:
parent
c5c0c06b1c
commit
fcd8c60182
1 changed files with 1 additions and 1 deletions
|
@ -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!
|
||||
|
|
Loading…
Add table
Reference in a new issue