Function: comp--call-optim-func

comp--call-optim-func is a byte-compiled function defined in comp.el.gz.

Signature

(comp--call-optim-func)

Documentation

Perform the trampoline call optimization for the current function.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/comp.el.gz
(defun comp--call-optim-func ()
  "Perform the trampoline call optimization for the current function."
  (cl-loop
   for b being each hash-value of (comp-func-blocks comp-func)
   do (comp--loop-insn-in-block b
        (pcase insn
          (`(set ,lval (callref funcall ,f . ,rest))
           (when-let* ((ok (comp-cstr-imm-vld-p f))
                       (new-form (comp--call-optim-form-call
                                  (comp-cstr-imm f) rest)))
             (setf insn `(set ,lval ,new-form))))
          (`(callref funcall ,f . ,rest)
           (when-let* ((ok (comp-cstr-imm-vld-p f))
                       (new-form (comp--call-optim-form-call
                                  (comp-cstr-imm f) rest)))
             (setf insn new-form)))))))