Supply missing argument to compiled-code-block/dbg-info from

compiler:disassemble.

diff --git a/v7/src/compiler/machines/bobcat/dassm1.scm b/v7/src/compiler/machines/bobcat/dassm1.scm
index 95848b3c10772fc02e2c2d87ac66d654f43599e4..eba15a7d9cc438da78134dfde908131d5da605cc 100644 (file)
--- 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 b4d9f7c26858a4655920d5a0a6b29a197b88e559..817ee5f6b0bb342cdf88b294c75c244050fc53d0 100644 (file)
--- 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)))