From 5688739c5bd742e5665f58cdcb2c588990c3f416 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Sun, 5 Jul 2020 20:00:46 +0100 Subject: [PATCH] * 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 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." -- 2.39.5