diff --git a/compiler/disassem.lisp b/compiler/disassem.lisp index 20b07fc64f51bf9b7879c7ad1c8eff2985ae643f..6570963ffa1d4cd5be6d0e5f62d13ee4946bd384 100644 --- a/compiler/disassem.lisp +++ b/compiler/disassem.lisp @@ -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 ;;;; ----------------------------------------------------------------