Commit 15502d14 authored by wlott's avatar wlott
Browse files

Fixed dump-1-location to also take integer positions directly, instead of

always requiring labels.
parent 02ba6208
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/debug-dump.lisp,v 1.29 1992/05/21 23:16:29 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/debug-dump.lisp,v 1.30 1992/07/14 03:41:23 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -112,7 +112,8 @@ ...@@ -112,7 +112,8 @@
;;; ;;;
(defun dump-1-location (node block kind tlf-num label live var-locs vop) (defun dump-1-location (node block kind tlf-num label live var-locs vop)
(declare (type node node) (type ir2-block block) (declare (type node node) (type ir2-block block)
(type local-tn-bit-vector live) (type label label) (type local-tn-bit-vector live)
(type (or label index) label)
(type location-kind kind) (type (or index null) tlf-num) (type location-kind kind) (type (or index null) tlf-num)
(type hash-table var-locs) (type (or vop null) vop)) (type hash-table var-locs) (type (or vop null) vop))
...@@ -122,7 +123,7 @@ ...@@ -122,7 +123,7 @@
0) 0)
*byte-buffer*) *byte-buffer*)
(let ((loc (label-position label))) (let ((loc (if (fixnump label) label (label-position label))))
(write-var-integer (- loc *previous-location*) *byte-buffer*) (write-var-integer (- loc *previous-location*) *byte-buffer*)
(setq *previous-location* loc)) (setq *previous-location* loc))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment