From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Fri, 28 Apr 1995 00:29:13 +0000 (+0000)
Subject: Added more SCode<->binding relations.
X-Git-Tag: 20090517-FFI~6385
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1612356b126a85bde09c8f0c7f13bf914707ee93;p=mit-scheme.git

Added more SCode<->binding relations.
---

diff --git a/v8/src/compiler/midend/cpsconv.scm b/v8/src/compiler/midend/cpsconv.scm
index 34c60fff9..81f639146 100644
--- a/v8/src/compiler/midend/cpsconv.scm
+++ b/v8/src/compiler/midend/cpsconv.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: cpsconv.scm,v 1.9 1995/04/28 00:01:21 adams Exp $
+$Id: cpsconv.scm,v 1.10 1995/04/28 00:29:13 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -456,7 +456,11 @@ MIT in each case. |#
     ((NAMED)
      `(LOOKUP ,(cpsconv/cont/field1 cont)))
     ((VALUE)
-     (let ((value (cpsconv/new-name 'VALUE)))
+     (let ((value (cpsconv/new-name 'VALUE))
+	   (scode
+	    (new-dbg-expression/expr
+	     (new-dbg-continuation/inner (cpsconv/cont/dbg-cont cont)))))
+       (dbg-info/remember scode `(LOOKUP ,value))
        (cpsconv/remember*
 	`(LAMBDA (,(cpsconv/new-ignored-continuation) ,value)
 	   (CALL (LOOKUP ,(cpsconv/cont/field1 cont))
@@ -464,7 +468,11 @@ MIT in each case. |#
 		 (LOOKUP ,value)))
 	(cpsconv/cont/dbg-cont cont))))
     ((PREDICATE)
-     (let ((value (cpsconv/new-name 'VALUE)))
+     (let ((value (cpsconv/new-name 'VALUE))
+	   (scode
+	    (new-dbg-expression/expr
+	     (new-dbg-continuation/inner (cpsconv/cont/dbg-cont cont)))))
+       (dbg-info/remember scode `(LOOKUP ,value))
        (cpsconv/remember*
 	`(LAMBDA (,(cpsconv/new-ignored-continuation) ,value)
 	   (IF (LOOKUP ,value)