From ccde59641678cd43a34a5d7d7c49a5dedf9f8124 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Tue, 4 Jul 1995 17:56:11 +0000 Subject: [PATCH] Added a dbg-rewrite for a lifted stub. --- v8/src/compiler/midend/lamlift.scm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/v8/src/compiler/midend/lamlift.scm b/v8/src/compiler/midend/lamlift.scm index 0b1a39ead..89c4a0ec4 100644 --- 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? -- 2.25.1