Skip to content
Snippets Groups Projects
Commit 36966287 authored by toy's avatar toy
Browse files

Add function to print the inst space for a backend, defaulting to the

current *target-backend*.  (Because I can never remember how to print
the inst space.)
parent 1ea468d1
No related branches found
No related tags found
No related merge requests found
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/disassem.lisp,v 1.36 2003/03/06 13:38:13 toy Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/disassem.lisp,v 1.37 2003/04/26 01:51:10 toy Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -1847,6 +1847,11 @@
(+ 4 indent)))
(ispace-choices inst-space)))))
(defun print-backend-inst-space (&optional (backend c:*target-backend*))
"Print the inst space for the specified backend"
(let ((ext:*gc-verbose* nil))
(print-inst-space (get-inst-space (c:backend-disassem-params backend)))))
;;;; ----------------------------------------------------------------
;;;; the actual disassembly part
;;;; ----------------------------------------------------------------
......
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