Function: ccl-compile-branch-expression

ccl-compile-branch-expression is a byte-compiled function defined in ccl.el.gz.

Signature

(ccl-compile-branch-expression EXPR CMD)

Documentation

Compile EXPRESSION part of BRANCH statement.

Return register which holds a value of the expression.

Source Code

;; Defined in /usr/src/emacs/lisp/international/ccl.el.gz
(defun ccl-compile-branch-expression (expr cmd)
  "Compile EXPRESSION part of BRANCH statement.
Return register which holds a value of the expression."
  (if (listp expr)
      ;; EXPR has the form `(EXPR2 OP ARG)'.  Compile it as SET
      ;; statement of the form `(r7 = (EXPR2 OP ARG))'.
      (progn
	(ccl-compile-expression 'r7 expr)
	'r7)
    (ccl-check-register expr cmd)))