From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Fri, 5 May 1995 12:57:26 +0000 (+0000)
Subject: Made debugging info handling code be more graceful with badly formed
X-Git-Tag: 20090517-FFI~6343
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c58e57a927b943cb4a01ad5997b0ef58ccc164b5;p=mit-scheme.git

Made debugging info handling code be more graceful with badly formed
dbg info.
---

diff --git a/v8/src/compiler/midend/cpsconv.scm b/v8/src/compiler/midend/cpsconv.scm
index 81f639146..bec483ae0 100644
--- a/v8/src/compiler/midend/cpsconv.scm
+++ b/v8/src/compiler/midend/cpsconv.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: cpsconv.scm,v 1.10 1995/04/28 00:29:13 adams Exp $
+$Id: cpsconv.scm,v 1.11 1995/05/05 12:57:26 adams Exp $
 
-Copyright (c) 1994 Massachusetts Institute of Technology
+Copyright (c) 1994-1995 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -456,23 +456,27 @@ MIT in each case. |#
     ((NAMED)
      `(LOOKUP ,(cpsconv/cont/field1 cont)))
     ((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))
+     (let* ((value    (cpsconv/new-name 'VALUE))
+	    (dbg-cont (cpsconv/cont/dbg-cont cont))
+	    (scode
+	     (and (new-dbg-continuation/inner dbg-cont)
+		  (new-dbg-expression/expr
+		   (new-dbg-continuation/inner dbg-cont)))))
+       (if scode (dbg-info/remember scode `(LOOKUP ,value)))
        (cpsconv/remember*
 	`(LAMBDA (,(cpsconv/new-ignored-continuation) ,value)
 	   (CALL (LOOKUP ,(cpsconv/cont/field1 cont))
 		 (QUOTE #F)
 		 (LOOKUP ,value)))
-	(cpsconv/cont/dbg-cont cont))))
+	dbg-cont)))
     ((PREDICATE)
-     (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))
+     (let* ((value    (cpsconv/new-name 'VALUE))
+	    (dbg-cont (cpsconv/cont/dbg-cont cont))
+	    (scode
+	     (and (new-dbg-continuation/inner dbg-cont)
+		  (new-dbg-expression/expr
+		   (new-dbg-continuation/inner dbg-cont)))))
+       (if scode (dbg-info/remember scode `(LOOKUP ,value)))
        (cpsconv/remember*
 	`(LAMBDA (,(cpsconv/new-ignored-continuation) ,value)
 	   (IF (LOOKUP ,value)