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

Prevent false warning emission

Browse source
This commit is contained in:
Andrea Corallo 2020-01-01 22:02:49 +01:00
parent 2239cc81b7
commit 5a228fefb6
1 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/emacs-lisp/comp.el
View file

@ -1551,15 +1551,15 @@ This can run just once."
"Given INSN when F is pure if all ARGS are known remove the function call."
(when (and (get f 'pure) ; Can we just optimize pure here? See byte-opt.el
(cl-every #'comp-mvar-const-vld args))
(condition-case err
(let ((val (apply f (mapcar #'comp-mvar-constant args))))
;; See `comp-emit-set-const'.
(setf (car insn) 'setimm
(cddr insn) (list (comp-add-const-to-relocs val) val)))
;; FIXME Should we crash? At least we should complain once.
(t (message "Native compiler trying to move run-time error into \
compile-time? %S calling %S inside function %S." err f
(comp-func-name comp-func))))))
(ignore-errors
;; No point to complain here because we should do basic block
;; pruning in order to be sure that this is not dead-code. This
;; is now left to gcc, to be implemented only if we want a
;; reliable diagnostic here.
(let ((val (apply f (mapcar #'comp-mvar-constant args))))
;; See `comp-emit-set-const'.
(setf (car insn) 'setimm
(cddr insn) (list (comp-add-const-to-relocs val) val))))))
(defun comp-propagate-insn (insn)
"Propagate within INSN."