From 8c0a719a084a98a98c7a72566566806adc5f690e Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Thu, 15 Dec 1994 22:19:37 +0000 Subject: [PATCH] Added check for valid dbg-procedure/block to avoid SIGSEGV with the (temporarily) broken new debug info. --- v7/src/runtime/uenvir.scm | 5 ++++- v8/src/runtime/uenvir.scm | 5 ++++- 2 files changed, 8 insertions(+), 2 deletions(-) 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) -- 2.25.1