summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp/comp.el
diff options
context:
space:
mode:
authorAndrea Corallo <akrl@sdf.org>2021-03-06 20:51:11 +0100
committerAndrea Corallo <akrl@sdf.org>2021-03-06 20:52:34 +0100
commit3848f3bff0d39e21ee016ea9c3fae4bf07fc0a57 (patch)
treec7dac3e0cace84d19b19702279cb71773160ebb4 /lisp/emacs-lisp/comp.el
parent05259c4a238efa40fa66ac51844aa5227b9c576b (diff)
downloademacs-3848f3bff0d39e21ee016ea9c3fae4bf07fc0a57.tar.gz
emacs-3848f3bff0d39e21ee016ea9c3fae4bf07fc0a57.tar.bz2
emacs-3848f3bff0d39e21ee016ea9c3fae4bf07fc0a57.zip
* lisp/emacs-lisp/comp.el (comp-add-cond-cstrs-simple): Suppress warning.
Diffstat (limited to 'lisp/emacs-lisp/comp.el')
-rw-r--r--lisp/emacs-lisp/comp.el3
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 4a418c1aade..8a6e761fe40 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