Lines Matching defs:loop
55 [if branch loop break repeat write-repeat write-read-repeat
273 ;; If non-nil, index of the start of the current loop.
274 (defvar ccl-loop-head nil)
276 ;; the current loop.
288 (setq ccl-loop-head nil ccl-breaks nil)
625 (defun ccl-compile-loop (cmd)
628 (let* ((ccl-loop-head ccl-current-ic)
642 ;; this loop.
652 (if (null ccl-loop-head)
653 (error "CCL: No outer loop: %s" cmd))
662 (if (null ccl-loop-head)
663 (error "CCL: No outer loop: %s" cmd))
664 (ccl-embed-code 'jump 0 ccl-loop-head)
671 (if (null ccl-loop-head)
672 (error "CCL: No outer loop: %s" cmd))
675 (ccl-embed-code 'write-const-jump 0 ccl-loop-head)
681 (ccl-embed-code 'write-string-jump 0 ccl-loop-head)
686 (ccl-embed-code 'write-register-jump arg ccl-loop-head))))
693 (if (null ccl-loop-head)
694 (error "CCL: No outer loop: %s" cmd))
698 (ccl-embed-code 'write-register-read-jump rrr ccl-loop-head))
700 (ccl-embed-code 'write-const-read-jump rrr arg ccl-loop-head))
704 (ccl-embed-code 'write-array-read-jump rrr ccl-loop-head)
711 (ccl-embed-code 'read-jump rrr ccl-loop-head))
1354 LOOP := (loop STATEMENT [STATEMENT ...])
1356 ;; Terminate the most inner loop.
1360 ;; Jump to the head of the most inner loop.