diff --git a/code/debug-info.lisp b/code/debug-info.lisp index a647dcb5660bc5d3904767f0e4f049e9db320db6..e5c49b0797e384a1c5be9e357c6768bdbc1db315 100644 --- a/code/debug-info.lisp +++ b/code/debug-info.lisp @@ -181,12 +181,14 @@ ;;; number of successors + bit flags (single byte) ;;; elsewhere-p ;;; ...ordinal number of each successor in the function's blocks vector... -;;; kind of location (single byte) +;;; number of locations in this block +;;; kind of first location (single byte) ;;; delta from previous PC (or from 0 if first location in function.) ;;; [offset of first top-level form, if no function TLF-NUMBER] ;;; form number of first source form ;;; first live mask (length in bytes determined by number of VARIABLES) -;;; ...more <PC, top-level form offset, form-number, live-set> tuples... +;;; ...more <kind, delta, top-level form offset, form-number, live-set> +;;; tuples... (defconstant compiled-debug-block-nsucc-byte (byte 2 0))