diff options
| author | Andrea Corallo <akrl@sdf.org> | 2020-06-07 14:42:12 +0200 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-06-07 19:20:04 +0200 |
| commit | fbf4882a8babd6cab83e78048d5173fef6501393 (patch) | |
| tree | 134377bf8c8c17c0b41a2f92b349d622d27901f0 /lisp | |
| parent | 88ccee4083f9059603c8bf9b989848c41902d8b0 (diff) | |
| download | emacs-fbf4882a8babd6cab83e78048d5173fef6501393.tar.gz emacs-fbf4882a8babd6cab83e78048d5173fef6501393.tar.bz2 emacs-fbf4882a8babd6cab83e78048d5173fef6501393.zip | |
* Rename comp-function-optimizable -> comp-function-optimizable-p
* lisp/emacs-lisp/comp.el (comp-function-optimizable): Rename into
'comp-function-optimizable-p'.
(comp-function-call-maybe-remove): Use the new name.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 520ec8cd44d..a6bf723f54c 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -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 |