Skip to content
Snippets Groups Projects
Commit c70a1f04 authored by ram's avatar ram
Browse files

Changed CODE-BREAKDOWN to recognize the file of byte-compiled code objects.

parent 9d7bb32a
No related branches found
No related tags found
No related merge requests found
...@@ -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/code/room.lisp,v 1.22 1993/05/10 08:54:21 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/room.lisp,v 1.23 1993/08/20 00:31:39 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -761,8 +761,8 @@ ...@@ -761,8 +761,8 @@
#'(lambda (obj type size) #'(lambda (obj type size)
(when (eql type code-header-type) (when (eql type code-header-type)
(let* ((dinfo (let ((x (%code-debug-info obj))) (let* ((dinfo (let ((x (%code-debug-info obj)))
(when (typep x 'c::compiled-debug-info) x))) (when (typep x 'c::debug-info) x)))
(package (if dinfo (package (if (typep dinfo 'c::compiled-debug-info)
(c::compiled-debug-info-package dinfo) (c::compiled-debug-info-package dinfo)
"UNKNOWN")) "UNKNOWN"))
(pkg-info (or (gethash package packages) (pkg-info (or (gethash package packages)
...@@ -770,11 +770,11 @@ ...@@ -770,11 +770,11 @@
(make-hash-table :test #'equal)))) (make-hash-table :test #'equal))))
(file (file
(if dinfo (if dinfo
(let ((src (c::compiled-debug-info-source dinfo))) (let ((src (c::debug-info-source dinfo)))
(cond (src (cond (src
(let ((source (let ((source
(first (first
(c::compiled-debug-info-source (c::debug-info-source
dinfo)))) dinfo))))
(if (eq (c::debug-source-from source) (if (eq (c::debug-source-from source)
:file) :file)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment