summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp/comp.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/emacs-lisp/comp.el')
-rw-r--r--lisp/emacs-lisp/comp.el9
1 files changed, 2 insertions, 7 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 81612398c7b..da567fd9054 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -1994,13 +1994,8 @@ Here goes everything that can be done not iteratively (read once).
(memq (get f 'byte-optimizer) comp-propagate-classes)
(let ((values (mapcar #'comp-mvar-constant args)))
(pcase f
- ;; Simple integer operation.
- ;; Note: byte-opt uses `byte-opt--portable-numberp'
- ;; instead of just`fixnump'.
- ((or '+ '- '* '1+ '-1) (and (cl-every #'fixnump values)
- (fixnump (apply f values))))
- ('/ (and (cl-every #'fixnump values)
- (not (= (car (last values)) 0)))))))))
+ ((or '+ '- '* '1+ '-1) t)
+ ('/ (not (= (car (last values)) 0))))))))
(defsubst comp-function-call-maybe-remove (insn f args)
"Given INSN when F is pure if all ARGS are known remove the function call."