diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2020-08-03 15:29:41 +0200 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2020-08-07 09:41:15 +0200 |
| commit | 204273c3b9f0a77459661790aa929f86067a9ab1 (patch) | |
| tree | 64afe85216ef0de38d2931702b1dc4ff6b3c430d /test/lisp | |
| parent | b83f274869e60342d978ad7e12c5167f0dc8f2a6 (diff) | |
| download | emacs-204273c3b9f0a77459661790aa929f86067a9ab1.tar.gz | |
Fix byte-compilation of (+ -0.0) (bug#42597)
* lisp/emacs-lisp/bytecomp.el (byte-compile-associative):
Translate numerical identity expressions, such as (+ x) and (* x),
into (* x 1) since the previous translation (+ x 0) gets it wrong
for x = -0.0.
* test/lisp/emacs-lisp/bytecomp-tests.el
(byte-opt-testsuite-arith-data): Add test cases.
Diffstat (limited to 'test/lisp')
| -rw-r--r-- | test/lisp/emacs-lisp/bytecomp-tests.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/test/lisp/emacs-lisp/bytecomp-tests.el b/test/lisp/emacs-lisp/bytecomp-tests.el index c235dd43fcc..894914300ae 100644 --- a/test/lisp/emacs-lisp/bytecomp-tests.el +++ b/test/lisp/emacs-lisp/bytecomp-tests.el @@ -47,6 +47,11 @@ (let ((a 1.0)) (/ 3 a 2)) (let ((a most-positive-fixnum) (b 2.0)) (* a 2 b)) (let ((a 3) (b 2)) (/ a b 1.0)) + (let ((a -0.0)) (+ a)) + (let ((a -0.0)) (- a)) + (let ((a -0.0)) (* a)) + (let ((a -0.0)) (min a)) + (let ((a -0.0)) (max a)) (/ 3 -1) (+ 4 3 2 1) (+ 4 3 2.0 1) |