diff options
| author | Andrea Corallo <akrl@sdf.org> | 2020-07-05 20:00:46 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-07-09 16:22:48 +0100 |
| commit | 5688739c5bd742e5665f58cdcb2c588990c3f416 (patch) | |
| tree | f6c13f471e18fca9ea284842b50a6a9dc490fad2 /lisp/emacs-lisp | |
| parent | 4348969536f2d2a16e794ff3ce15f855f9ec7e1e (diff) | |
| download | emacs-5688739c5bd742e5665f58cdcb2c588990c3f416.tar.gz emacs-5688739c5bd742e5665f58cdcb2c588990c3f416.tar.bz2 emacs-5688739c5bd742e5665f58cdcb2c588990c3f416.zip | |
* Add `comp-call-op-p'
* lisp/emacs-lisp/comp.el (comp-call-op-p): New predicate.
(comp-limple-insn-call-p): Make use of.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 22575e415f1..46b09fe352c 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -423,9 +423,13 @@ structure.") "Assignment predicate for OP." (when (memq op comp-limple-assignments) t)) +(defsubst comp-call-op-p (op) + "Call predicate for OP." + (when (memq op comp-limple-calls) t)) + (defsubst comp-limple-insn-call-p (insn) "Limple INSN call predicate." - (when (memq (car-safe insn) comp-limple-calls) t)) + (comp-call-op-p (car-safe insn))) (defsubst comp-type-hint-p (func) "Type hint predicate for function name FUNC." |