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 266c33ac251cbc71265b5d4effd3ef7547861fa3..8f525264ca9b51ebaf93c812c387d06915cd0cbb 100644 (file)
--- 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 266c33ac251cbc71265b5d4effd3ef7547861fa3..8f525264ca9b51ebaf93c812c387d06915cd0cbb 100644 (file)
--- 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)