From: Andrea Corallo <akrl@sdf.org>
Date: Thu, 24 Oct 2019 20:20:38 +0000 (+0200)
Subject: promote a couple of small functions tu subst
X-Git-Tag: emacs-28.0.90~2727^2~1058
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=45158ed98b345145eb3e9f8c27b0591433465ff1;p=emacs.git

promote a couple of small functions tu subst
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index cda6cdf3583..b02f846eb9b 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -545,8 +545,9 @@ The basic block is returned."
   "Return a clean frame of meta variables of size SIZE."
   (cl-loop with v = (make-vector size nil)
            for i below size
-           for mvar = (if ssa (make-comp-ssa-mvar :slot i)
-                          (make-comp-mvar :slot i))
+           for mvar = (if ssa
+                          (make-comp-ssa-mvar :slot i)
+                        (make-comp-mvar :slot i))
            do (aset v i mvar)
            finally (return v)))
 
@@ -561,7 +562,7 @@ The basic block is returned."
 NOTE: this is used for late fixup therefore ignore if the basic block is closed."
   (setf (comp-block-insns bb) (nconc (comp-block-insns bb) (list insn))))
 
-(defun comp-emit-set-call (call)
+(defsubst comp-emit-set-call (call)
   "Emit CALL assigning the result the the current slot frame.
 If the callee function is known to have a return type propagate it."
   (cl-assert call)
@@ -575,7 +576,7 @@ If DST-N is specified use it otherwise assume it to be the current slot."
       (cl-assert src-slot)
       (comp-emit `(set ,(comp-slot) ,src-slot)))))
 
-(defun comp-emit-annotation (str)
+(defsubst comp-emit-annotation (str)
   "Emit annotation STR."
   (comp-emit `(comment ,str)))