mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

Fix broken byte-compilation of unary comparisons

Browse source 
* lisp/emacs-lisp/byte-opt.el (byte-opt--nary-comparison):
Fix a typo causing miscompilation of code such as (OP X),
where OP is <, >, <=, >= or =.
* test/lisp/emacs-lisp/bytecomp-tests.el
(bytecomp-tests--test-cases): Add test case.

Reported by Richard Copley.
This commit is contained in:
Mattias Engdegård 2023-07-26 18:39:36 +02:00
parent b4063c399b
commit 27944247d1
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
test/lisp/emacs-lisp/bytecomp-tests.el
View file

@ -780,6 +780,11 @@ inner loops respectively."
;; (+ 0 -0.0) etc
(let ((x (bytecomp-test-identity -0.0)))
(list x (+ x) (+ 0 x) (+ x 0) (+ 1 2 -3 x) (+ 0 x 0)))
;; Unary comparisons: keep side-effect, return t
(let ((x 0))
(list (= (setq x 1))
x))
)
"List of expressions for cross-testing interpreted and compiled code.")