From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Thu, 15 Dec 1994 22:19:37 +0000 (+0000)
Subject: Added check for valid dbg-procedure/block to avoid SIGSEGV with the
X-Git-Tag: 20090517-FFI~6872
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8c0a719a084a98a98c7a72566566806adc5f690e;p=mit-scheme.git

Added check for valid dbg-procedure/block to avoid SIGSEGV with the
(temporarily) broken new debug info.
---

diff --git a/v7/src/runtime/uenvir.scm b/v7/src/runtime/uenvir.scm
index 266c33ac2..8f525264c 100644
--- a/v7/src/runtime/uenvir.scm
+++ b/v7/src/runtime/uenvir.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: uenvir.scm,v 14.33 1994/01/29 22:04:08 adams Exp $
+$Id: uenvir.scm,v 14.34 1994/12/15 22:19:37 adams Exp $
 
 Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
@@ -338,6 +338,9 @@ MIT in each case. |#
     (if (not procedure)
 	(error "Unable to obtain closing environment" entry))
     (let ((block (dbg-procedure/block procedure)))
+      (if (not block)
+	  (error "Unable to obtain closing environment (missing block info)"
+		 entry))
       (let ((parent (dbg-block/parent block)))
 	(case (dbg-block/type parent)
 	  ((CLOSURE)
diff --git a/v8/src/runtime/uenvir.scm b/v8/src/runtime/uenvir.scm
index 266c33ac2..8f525264c 100644
--- a/v8/src/runtime/uenvir.scm
+++ b/v8/src/runtime/uenvir.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: uenvir.scm,v 14.33 1994/01/29 22:04:08 adams Exp $
+$Id: uenvir.scm,v 14.34 1994/12/15 22:19:37 adams Exp $
 
 Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
@@ -338,6 +338,9 @@ MIT in each case. |#
     (if (not procedure)
 	(error "Unable to obtain closing environment" entry))
     (let ((block (dbg-procedure/block procedure)))
+      (if (not block)
+	  (error "Unable to obtain closing environment (missing block info)"
+		 entry))
       (let ((parent (dbg-block/parent block)))
 	(case (dbg-block/type parent)
 	  ((CLOSURE)