From c446eb6c0f155a02c52fbe4e9f366f1cf778f2e4 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Thu, 19 Jan 1995 04:51:16 +0000 Subject: [PATCH] Changed debugging info from a variable name to a LOOKUP expression. --- v8/src/compiler/midend/alpha.scm | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/v8/src/compiler/midend/alpha.scm b/v8/src/compiler/midend/alpha.scm index 0a7ff34d4..debac8d48 100644 --- a/v8/src/compiler/midend/alpha.scm +++ b/v8/src/compiler/midend/alpha.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: alpha.scm,v 1.4 1994/11/26 22:07:13 gjr Exp $ +$Id: alpha.scm,v 1.5 1995/01/19 04:51:16 adams Exp $ Copyright (c) 1988-1994 Massachusetts Institute of Technology @@ -81,10 +81,12 @@ MIT in each case. |# (and block (for-each (lambda (var) - (set-new-dbg-variable/name! - var - (alphaconv/env/lookup (new-dbg-variable/original-name var) - env*))) + (let ((expr (new-dbg-variable/expression var))) + (if (not (LOOKUP/? expr)) + (internal-error "expression not a LOOKUP" var)) + (set-car! (cdr expr) + (alphaconv/env/lookup (new-dbg-variable/name var) + env*)))) (new-dbg-block/variables block))))))) (define-alphaconv CALL (state env rator cont #!rest rands) -- 2.25.1