Now we set the PROCEDURE field of an DBG-BLOCK environment

appropriately.

diff --git a/v8/src/compiler/midend/envconv.scm b/v8/src/compiler/midend/envconv.scm
index cb82b6d54382725caba9909a7baa38c5725e8475..0753e42f35bd2ce0cd79cb85094fee89f8b0128b 100644 (file)
--- 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))