From 369662878587e385f9e14727e908c548865bf6bc Mon Sep 17 00:00:00 2001
From: toy <toy>
Date: Sat, 26 Apr 2003 01:51:10 +0000
Subject: [PATCH] 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.)

---
 compiler/disassem.lisp | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/compiler/disassem.lisp b/compiler/disassem.lisp
index 20b07fc64..6570963ff 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
 ;;;; ----------------------------------------------------------------
-- 
GitLab