Lines Matching +defs:last +defs:depth
491 (defvar byte-compile-depth 0 "Current depth of execution stack.")
492 (defvar byte-compile-maxdepth 0 "Maximum depth of execution stack.")
506 ;; We fill in the vector at macroexpand-time, and then after the last call
913 "Character position we began the last `read' from.")
914 (defvar byte-compile-last-position nil
932 ;; `read-symbol-positions-list', and set `byte-compile-last-position'
943 ;; then `byte-compile-last-position' as advanced too far.
949 (let (last entry)
951 (setq last byte-compile-last-position
954 (setq byte-compile-last-position
959 (or (and allow-previous (not (= last byte-compile-last-position)))
960 (> last byte-compile-last-position)))))))
962 (defvar byte-compile-last-warned-form nil)
963 (defvar byte-compile-last-logged-file nil)
981 (goto-char byte-compile-last-position)
984 (goto-char byte-compile-last-position)
991 byte-compile-last-logged-file)))
994 byte-compile-last-warned-form))))
998 (setq byte-compile-last-logged-file byte-compile-current-file
999 byte-compile-last-warned-form byte-compile-current-form)
1012 (and (not (equal byte-compile-current-file byte-compile-last-logged-file))
1039 (setq byte-compile-last-logged-file byte-compile-current-file
1040 byte-compile-last-warned-form nil)
1567 last-dir)
1609 (if (not (eq last-dir directory))
1610 (setq last-dir directory
1661 (setq byte-compile-last-logged-file nil)
1679 (when (or (eq last-coding-system-used 'no-conversion)
1680 (eq (coding-system-type last-coding-system-used) 5))
1794 (byte-compile-last-position byte-compile-read-position)
1795 (byte-compile-last-warned-form 'nothing)
1813 (byte-compile-last-position nil)
1827 (byte-compile-depth 0)
1867 byte-compile-last-position byte-compile-read-position)
1874 (setq byte-compile-last-position (point-max))
2151 byte-compile-depth 0
2496 (nth 3 tmp)) ;depth
2574 ;; unless it is the last element of the body.
2612 ;; byte-string, constants-vector, stack depth
2671 (byte-compile-depth 0)
3924 ;; Tags will be (TAG . (tag-number . stack-depth)).
3934 (and byte-compile-depth
3935 (not (= (cdr (cdr tag)) byte-compile-depth))
3936 (error "Compiler bug: depth conflict at tag %d" (car (cdr tag))))
3937 (setq byte-compile-depth (cdr (cdr tag))))
3938 (setcdr (cdr tag) byte-compile-depth)))
3943 (1- byte-compile-depth)
3944 byte-compile-depth))
3945 (setq byte-compile-depth (and (not (eq opcode 'byte-goto))
3946 (1- byte-compile-depth))))
3951 (setq byte-compile-depth (- byte-compile-depth offset)))
3955 (setq byte-compile-depth nil))
3957 (setq byte-compile-depth (+ byte-compile-depth
3961 byte-compile-maxdepth (max byte-compile-depth
3963 ;;(if (< byte-compile-depth 0) (error "Compiler error: stack underflow"))
4251 ;; To avoid "lisp nesting exceeds max-lisp-eval-depth" when bytecomp compiles