From c553638b08ce3d424b494ce2e347e0a91ce5e82e Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Thu, 1 Jul 1993 00:15:44 +0000 Subject: [PATCH] Pretty up the output. --- v7/src/compiler/machines/spectrum/dassm1.scm | 23 ++++++++++++++++---- 1 file changed, 19 insertions(+), 4 deletions(-) diff --git a/v7/src/compiler/machines/spectrum/dassm1.scm b/v7/src/compiler/machines/spectrum/dassm1.scm index dfd404ff1..e409bfb6e 100644 --- a/v7/src/compiler/machines/spectrum/dassm1.scm +++ b/v7/src/compiler/machines/spectrum/dassm1.scm @@ -1,9 +1,8 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/spectrum/dassm1.scm,v 4.17 1992/08/11 02:33:27 jinx Exp $ -$MC68020-Header: dassm1.scm,v 4.15 90/07/12 16:42:39 GMT jinx Exp $ +$Id: dassm1.scm,v 4.18 1993/07/01 00:15:44 gjr Exp $ -Copyright (c) 1988-1992 Massachusetts Institute of Technology +Copyright (c) 1988-1993 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -77,7 +76,9 @@ MIT in each case. |# (compiled-code-block/dbg-info (car blocks) symbol-table?)) (if (not (null? (cdr blocks))) - (write-char #\page))))))))))))) + (begin + (write-char #\page) + (newline)))))))))))))) (define disassembler/base-address) @@ -95,6 +96,20 @@ MIT in each case. |# (let ((symbol-table (and info (dbg-info/labels info)))) (write-string "Disassembly of ") (write block) + (let loop ((info (compiled-code-block/debugging-info block))) + (cond ((string? info) + (write-string " (") + (write-string info) + (write-string ")")) + ((not (pair? info))) + ((vector? (car info)) + (loop (cdr info))) + (else + (write-string " (Block ") + (write (cdr info)) + (write-string " in ") + (write-string (car info)) + (write-string ")")))) (write-string ":\n") (write-string "Code:\n\n") (disassembler/write-instruction-stream -- 2.25.1