From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 5 Jul 2020 19:00:46 +0000 (+0100)
Subject: * Add `comp-call-op-p'
X-Git-Tag: emacs-28.0.90~2727^2~527
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5688739c5bd742e5665f58cdcb2c588990c3f416;p=emacs.git

* Add `comp-call-op-p'

	* lisp/emacs-lisp/comp.el (comp-call-op-p): New predicate.
	(comp-limple-insn-call-p): Make use of.
---

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."