procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge from origin/emacs-28

Browse source 
69e82968d7 Fix integer arithmetic miss-compilation (bug#53451)
31af9bca99 Mark flymake as compatible with emacs-26.1
This commit is contained in:
Stefan Kangas 2022-02-10 06:56:22 +01:00
commit 35bf8d4a02
3 changed files with 24 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

26
lisp/emacs-lisp/comp-cstr.el
View file

@ -454,18 +454,20 @@ Return them as multiple value."
(declare (debug (range-body))
(indent defun))
`(with-comp-cstr-accessors
(when-let ((r1 (range ,src1))
(r2 (range ,src2)))
(let* ((l1 (comp-cstr-smallest-in-range r1))
(l2 (comp-cstr-smallest-in-range r2))
(h1 (comp-cstr-greatest-in-range r1))
(h2 (comp-cstr-greatest-in-range r2)))
(setf (typeset ,dst) (when (cl-some (lambda (x)
(comp-subtype-p 'float x))
(append (typeset src1)
(typeset src2)))
'(float))
(range ,dst) ,@range-body)))))
(if (or (neg src1) (neg src2))
(setf (typeset ,dst) '(number))
(when-let ((r1 (range ,src1))
(r2 (range ,src2)))
(let* ((l1 (comp-cstr-smallest-in-range r1))
(l2 (comp-cstr-smallest-in-range r2))
(h1 (comp-cstr-greatest-in-range r1))
(h2 (comp-cstr-greatest-in-range r2)))
(setf (typeset ,dst) (when (cl-some (lambda (x)
(comp-subtype-p 'float x))
(append (typeset src1)
(typeset src2)))
'(float))
(range ,dst) ,@range-body))))))
(defun comp-cstr-add-2 (dst src1 src2)
"Sum SRC1 and SRC2 into DST."