Added a dbg-rewrite for a lifted stub.

diff --git a/v8/src/compiler/midend/lamlift.scm b/v8/src/compiler/midend/lamlift.scm
index 0b1a39ead7d3bf7ad11e5c25274782294bafbb1c..89c4a0ec4ad9aca8ac8a57dffda463d17f5ab97e 100644 (file)
--- a/v8/src/compiler/midend/lamlift.scm
+++ b/v8/src/compiler/midend/lamlift.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: lamlift.scm,v 1.7 1995/05/19 03:41:13 adams Exp $
+$Id: lamlift.scm,v 1.8 1995/07/04 17:56:11 adams Exp $
 
 Copyright (c) 1994-1995 Massachusetts Institute of Technology
 
@@ -711,7 +711,7 @@ MIT in each case. |#
                  (dbg-info/remember
                   (lamlift/binding/name binding)
                   (if (null? extra-formals)
-                      `(LOOKUP ,lifted-name)
+                      lifted-name
                       `(CALL 'un-lambda-lift '#F (LOOKUP ,lifted-name))))
                  (let ((reorder
                         (lamlift/reorderer lambda-list** lifted-lambda-list)))
@@ -761,11 +761,13 @@ MIT in each case. |#
        (form/rewrite!
         form
         (cond (lift-stub?
-               (let ((stub-name  (make-new-name)))
+               (let ((stub-name  (make-new-name))
+                     (binding    (lamlift/env/binding env)))
+                 (dbg-info/remember (lamlift/binding/name binding) stub-name)
                  (for-each
                      (lambda (reference)
                        (form/rewrite! reference `(LOOKUP ,stub-name)))
-                   (lamlift/binding/operand-uses (lamlift/env/binding env)))
+                   (lamlift/binding/operand-uses binding))
                  (lift-to-drift-frame stub-name (stub-lambda lifted-name))
                  `(QUOTE #F)))
               (split?