Function: comp--loop-insn-in-block

comp--loop-insn-in-block is a macro defined in comp.el.gz.

Signature

(comp--loop-insn-in-block BASIC-BLOCK &rest BODY)

Documentation

Loop over all insns in BASIC-BLOCK executing BODY.

Inside BODY, insn and insn-cellcan be used to read or set the current instruction or its cell.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/comp.el.gz
(defmacro comp--loop-insn-in-block (basic-block &rest body)
  "Loop over all insns in BASIC-BLOCK executing BODY.
Inside BODY, `insn' and `insn-cell'can be used to read or set the
current instruction or its cell."
  (declare (debug (form body))
           (indent defun))
  `(cl-symbol-macrolet ((insn (car insn-cell)))
     (let ((insn-cell (comp-block-insns ,basic-block)))
       (while insn-cell
         ,@body
         (setf insn-cell (cdr insn-cell))))))