Commit 27ad0a9e authored by ram's avatar ram
Browse files

If byte-compiled, call the byte disassembler.

parent 4dc1f739
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/disassem.lisp,v 1.19 1992/12/17 11:24:37 wlott Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/disassem.lisp,v 1.20 1993/08/17 21:01:09 ram Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -3227,14 +3227,17 @@
(type (or (member t) stream) stream)
(type (member t nil) use-labels)
(type c::backend backend))
(disassemble-function (fun-self ; we can't detect closures, so
; be careful
(compiled-function-or-lose object))
:stream (if (eq stream t)
*standard-output*
stream)
:use-labels use-labels
:backend backend))
(let ((fun (compiled-function-or-lose object)))
(if (typep fun 'kernel:byte-function)
(c:disassem-byte-fun fun)
;; we can't detect closures, so be careful
(disassemble-function (fun-self fun)
:stream (if (eq stream t)
*standard-output*
stream)
:use-labels use-labels
:backend backend)))
(values))
(defun disassemble-memory (address
length
......
Supports Markdown
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