From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Wed, 23 Nov 1994 02:28:44 +0000 (+0000)
Subject: Make missing debugging info warn instead of signalling an error.
X-Git-Tag: 20090517-FFI~6981
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=32cde62b1f3bb341e48565fe569986e8a3090cca;p=mit-scheme.git

Make missing debugging info warn instead of signalling an error.
---

diff --git a/v8/src/compiler/base/infnew.scm b/v8/src/compiler/base/infnew.scm
index 9ec7a679a..e589d99a7 100644
--- a/v8/src/compiler/base/infnew.scm
+++ b/v8/src/compiler/base/infnew.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: infnew.scm,v 1.1 1994/11/19 02:02:36 adams Exp $
+$Id: infnew.scm,v 1.2 1994/11/23 02:28:44 adams Exp $
 
 Copyright (c) 1988-1994 Massachusetts Institute of Technology
 
@@ -248,19 +248,27 @@ MIT in each case. |#
   (let ((debug-info
 	 (lambda (selector object)
 	   (or (selector object)
-	       (error "Missing debugging info" object)))))
+	       (begin
+		 (warn "Missing debugging info" object)
+		 false)))))
     (values
      (and expression (debug-info rtl-expr/debugging-info expression))
-     (map (lambda (procedure)
-	    (let ((info (debug-info rtl-procedure/debugging-info procedure)))
-	      (set-dbg-procedure/external-label!
-	       info
-	       (rtl-procedure/%external-label procedure))
-	      info))
-	  procedures)
-     (map (lambda (continuation)
-	    (debug-info rtl-continuation/debugging-info continuation))
-	  continuations))))
+     (list-transform-negative
+	 (map (lambda (procedure)
+		(let ((info
+		       (debug-info rtl-procedure/debugging-info procedure)))
+		  (and info
+		       (set-dbg-procedure/external-label!
+			info
+			(rtl-procedure/%external-label procedure))
+		       info)))
+	      procedures)
+       false?)
+     (list-transform-negative
+	 (map (lambda (continuation)
+		(rtl-continuation/debugging-info continuation))
+	      continuations)
+       false?))))
 
 (define (info-generation-phase-3 expression procedures continuations
 				 label-bindings external-labels)