From eb35e8e19255f165ca01624af119f686cdd84412 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Wed, 7 Jun 1989 02:14:22 +0000 Subject: [PATCH] Supply missing argument to compiled-code-block/dbg-info from compiler:disassemble. --- v7/src/compiler/machines/bobcat/dassm1.scm | 4 ++-- v7/src/compiler/machines/vax/dassm1.scm | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/v7/src/compiler/machines/bobcat/dassm1.scm b/v7/src/compiler/machines/bobcat/dassm1.scm index 95848b3c1..eba15a7d9 100644 --- a/v7/src/compiler/machines/bobcat/dassm1.scm +++ b/v7/src/compiler/machines/bobcat/dassm1.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/dassm1.scm,v 4.10 1988/12/30 07:05:04 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/dassm1.scm,v 4.11 1989/06/07 02:13:54 jinx Rel $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -82,7 +82,7 @@ MIT in each case. |# (define (compiler:disassemble entry) (let ((block (compiled-entry/block entry))) - (let ((info (compiled-code-block/dbg-info block))) + (let ((info (compiled-code-block/dbg-info block true))) (fluid-let ((disassembler/write-offsets? true) (disassembler/write-addresses? true) (disassembler/base-address (object-datum block))) diff --git a/v7/src/compiler/machines/vax/dassm1.scm b/v7/src/compiler/machines/vax/dassm1.scm index b4d9f7c26..817ee5f6b 100644 --- a/v7/src/compiler/machines/vax/dassm1.scm +++ b/v7/src/compiler/machines/vax/dassm1.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/dassm1.scm,v 4.3 1989/05/24 05:09:32 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/dassm1.scm,v 4.4 1989/06/07 02:14:22 jinx Rel $ $MC68020-Header: dassm1.scm,v 4.10 88/12/30 07:05:04 GMT cph Exp $ Copyright (c) 1987, 1989 Massachusetts Institute of Technology @@ -83,7 +83,7 @@ MIT in each case. |# (define (compiler:disassemble entry) (let ((block (compiled-entry/block entry))) - (let ((info (compiled-code-block/dbg-info block))) + (let ((info (compiled-code-block/dbg-info block true))) (fluid-let ((disassembler/write-offsets? true) (disassembler/write-addresses? true) (disassembler/base-address (object-datum block))) -- 2.25.1