From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 30 Dec 1988 23:42:18 +0000 (+0000)
Subject: Fix some bugs related to compiled code debugging when no debugging
X-Git-Tag: 20090517-FFI~12310
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b2a6d547848aea5a15036115cfa20d6914a21811;p=mit-scheme.git

Fix some bugs related to compiled code debugging when no debugging
info is available.  Change cold load to cause updating of debugging
information for the runtime system.  Fix demand loading so that, when
disabled, procedure names are shown when the debugging information is
already loaded.  Discard debugging info before doing disk-save.
---

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index c2af422d9..cf202e167 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.24 1988/12/30 23:30:13 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.25 1988/12/30 23:42:18 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -689,7 +689,7 @@ MIT in each case. |#
 	  internal-lambda?)
   (export (runtime syntaxer)
 	  make-block-declaration)
-  (export (runtime debugger-utilities)
+  (export (runtime compiler-info)
 	  lambda-tag:internal-lambda
 	  lambda-tag:internal-lexpr)
   (initialization (initialize-package!)))
diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 1c6bd76a2..88c547fcd 100644
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.24 1988/12/30 23:30:13 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.25 1988/12/30 23:42:18 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -689,7 +689,7 @@ MIT in each case. |#
 	  internal-lambda?)
   (export (runtime syntaxer)
 	  make-block-declaration)
-  (export (runtime debugger-utilities)
+  (export (runtime compiler-info)
 	  lambda-tag:internal-lambda
 	  lambda-tag:internal-lexpr)
   (initialization (initialize-package!)))