From 5fc0808faacadc2fb91374f876b601dc70821698 Mon Sep 17 00:00:00 2001 From: toy <toy> Date: Sun, 27 Apr 2003 14:00:19 +0000 Subject: [PATCH] Printing of x86 inst space wasn't nicely lined up anymore. --- compiler/disassem.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler/disassem.lisp b/compiler/disassem.lisp index 6570963ff..5fc7e3229 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.37 2003/04/26 01:51:10 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/disassem.lisp,v 1.38 2003/04/27 14:00:19 toy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1825,12 +1825,12 @@ (etypecase inst-space (null) (instruction - (format t "~vt[~a(~a)~40t" indent + (format t "~vt[~a(~a)~45t" indent (inst-name inst-space) (inst-format-name inst-space)) (print-inst-bits inst-space) (dolist (inst (inst-specializers inst-space)) - (format t "~%~vt:~a~40t" indent (inst-name inst)) + (format t "~%~vt:~a~45t" indent (inst-name inst)) (print-inst-bits inst)) (write-char #\]) (terpri)) -- GitLab