Function: comp-make-curr-block

comp-make-curr-block is a byte-compiled function defined in comp.el.gz.

Signature

(comp-make-curr-block BLOCK-NAME ENTRY-SP &optional ADDR)

Documentation

Create a basic block with BLOCK-NAME and set it as current block.

ENTRY-SP is the sp value when entering. Add block to the current function and return it.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/comp.el.gz
(defun comp-make-curr-block (block-name entry-sp &optional addr)
  "Create a basic block with BLOCK-NAME and set it as current block.
ENTRY-SP is the sp value when entering.
Add block to the current function and return it."
  (let ((bb (make--comp-block-lap addr entry-sp block-name)))
    (setf (comp-limplify-curr-block comp-pass) bb
          (comp-limplify-pc comp-pass) addr
          (comp-limplify-sp comp-pass) (when (comp-block-lap-p bb)
                                         (comp-block-lap-sp bb)))
    (puthash (comp-block-name bb) bb (comp-func-blocks comp-func))
    bb))