feature/native-comp 5688739 07/14: * Add `comp-call-op-p'

[Andrea Corallo]

branch: feature/native-comp
commit 5688739c5bd742e5665f58cdcb2c588990c3f416
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>

    * Add `comp-call-op-p'
    
        * lisp/emacs-lisp/comp.el (comp-call-op-p): New predicate.
        (comp-limple-insn-call-p): Make use of.
---
 lisp/emacs-lisp/comp.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 22575e4..46b09fe 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."