mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-15 09:47:20 +00:00
Code Issues Releases Activity

* lisp/emacs-lisp/comp.el (comp-add-cond-cstrs-simple): Suppress warning.

Browse Source
This commit is contained in:
Andrea Corallo 2021-03-06 20:51:11 +01:00
parent 05259c4a23
commit 3848f3bff0
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/emacs-lisp/comp.el
View File

@ -2384,8 +2384,7 @@ TARGET-BB-SYM is the symbol name of the target block."
for insn-seq on (comp-block-insns b) for insn-seq on (comp-block-insns b)
do do
(pcase insn-seq (pcase insn-seq
(`((set ,(and (pred comp-mvar-p) tmp-mvar) (`((set ,(and (pred comp-mvar-p) tmp-mvar) ,(pred comp-mvar-p))
,(and (pred comp-mvar-p) obj1))
;; (comment ,_comment-str) ;; (comment ,_comment-str)
(cond-jump ,tmp-mvar ,obj2 . ,blocks)) (cond-jump ,tmp-mvar ,obj2 . ,blocks))
(cl-loop (cl-loop