[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp 3848f3b 2/2: * lisp/emacs-lisp/comp.el (comp-add-con
From: |
Andrea Corallo |
Subject: |
feature/native-comp 3848f3b 2/2: * lisp/emacs-lisp/comp.el (comp-add-cond-cstrs-simple): Suppress warning. |
Date: |
Sat, 6 Mar 2021 15:02:23 -0500 (EST) |
branch: feature/native-comp
commit 3848f3bff0d39e21ee016ea9c3fae4bf07fc0a57
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>
* lisp/emacs-lisp/comp.el (comp-add-cond-cstrs-simple): Suppress warning.
---
lisp/emacs-lisp/comp.el | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 4a418c1..8a6e761 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -2384,8 +2384,7 @@ TARGET-BB-SYM is the symbol name of the target block."
for insn-seq on (comp-block-insns b)
do
(pcase insn-seq
- (`((set ,(and (pred comp-mvar-p) tmp-mvar)
- ,(and (pred comp-mvar-p) obj1))
+ (`((set ,(and (pred comp-mvar-p) tmp-mvar) ,(pred comp-mvar-p))
;; (comment ,_comment-str)
(cond-jump ,tmp-mvar ,obj2 . ,blocks))
(cl-loop