From 614a786ab227d9ab0c579ea23f6987847047549b Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Sat, 15 Jul 1995 06:17:24 +0000 Subject: [PATCH] Now we set the PROCEDURE field of an DBG-BLOCK environment appropriately. --- v8/src/compiler/midend/envconv.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/v8/src/compiler/midend/envconv.scm b/v8/src/compiler/midend/envconv.scm index cb82b6d54..0753e42f3 100644 --- a/v8/src/compiler/midend/envconv.scm +++ b/v8/src/compiler/midend/envconv.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: envconv.scm,v 1.14 1995/07/11 21:42:10 adams Exp $ +$Id: envconv.scm,v 1.15 1995/07/15 06:17:24 adams Exp $ Copyright (c) 1994-1995 Massachusetts Institute of Technology @@ -382,6 +382,9 @@ MIT in each case. |# (begin (if (not (new-dbg-procedure/block dbg-info)) (set-new-dbg-procedure/block! dbg-info block)) + (if (and block + (not (new-dbg-block/procedure block))) + (set-new-dbg-block/procedure! block dbg-info)) (code-rewrite/remember* new dbg-info)) (begin (if (not (new-dbg-expression/block dbg-info)) -- 2.25.1