From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Wed, 7 Jun 1989 02:14:22 +0000 (+0000)
Subject: Supply missing argument to compiled-code-block/dbg-info from
X-Git-Tag: 20090517-FFI~12022
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=eb35e8e19255f165ca01624af119f686cdd84412;p=mit-scheme.git

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 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)))