diff options
| author | Andrea Corallo | 2020-12-26 12:23:27 +0100 |
|---|---|---|
| committer | Andrea Corallo | 2020-12-26 12:30:58 +0100 |
| commit | fcd8c60182efc8bfe7bad11fb74489fe5df28d6b (patch) | |
| tree | e0510ab59d376fbb285071ded1e28e39403a9c31 | |
| parent | c5c0c06b1c37dc32b992dc4deddd8ec7bf154def (diff) | |
| download | emacs-fcd8c60182efc8bfe7bad11fb74489fe5df28d6b.tar.gz emacs-fcd8c60182efc8bfe7bad11fb74489fe5df28d6b.zip | |
* 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.
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 2474 | (pcase insn | 2474 | (pcase insn |
| 2475 | (`(,(pred comp-assign-op-p) ,(pred targetp) . ,_) | 2475 | (`(,(pred comp-assign-op-p) ,(pred targetp) . ,_) |
| 2476 | (let ((mvar (aref frame slot-n))) | 2476 | (let ((mvar (aref frame slot-n))) |
| 2477 | (setcdr insn (cl-nsubst-if mvar #'targetp (cdr insn)))) | 2477 | (setf (cddr insn) (cl-nsubst-if mvar #'targetp (cddr insn)))) |
| 2478 | (new-lvalue)) | 2478 | (new-lvalue)) |
| 2479 | (`(fetch-handler . ,_) | 2479 | (`(fetch-handler . ,_) |
| 2480 | ;; Clobber all no matter what! | 2480 | ;; Clobber all no matter what! |