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

* Rename comp-function-optimizable -> comp-function-optimizable-p

Browse source 
* lisp/emacs-lisp/comp.el (comp-function-optimizable): Rename into
	'comp-function-optimizable-p'.
	(comp-function-call-maybe-remove): Use the new name.
This commit is contained in:
Andrea Corallo 2020-06-07 14:42:12 +02:00
parent 88ccee4083
commit fbf4882a8b
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1870,7 +1870,7 @@ Here goes everything that can be done not iteratively (read once).
(comp-mvar-type lval) (comp-mvar-type rval)))
;; Here should fall most of (defun byte-optimize-* equivalents.
(defsubst comp-function-optimizable (f args)
(defsubst comp-function-optimizable-p (f args)
"Given function F called with ARGS return non nil when optimizable."
(when (cl-every #'comp-mvar-const-vld args)
(or (get f 'pure)
@ -1900,7 +1900,7 @@ Here goes everything that can be done not iteratively (read once).
comp-symbol-values-optimizable)))
(rewrite-insn-as-setimm insn (symbol-value (comp-mvar-constant
(car args))))))
((comp-function-optimizable f args)
((comp-function-optimizable-p f args)
(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