CC-ENTRY labels may have disappeared in RTL optimization.

Be graceful about this.

diff --git a/v8/src/compiler/base/infnew.scm b/v8/src/compiler/base/infnew.scm
index 6b64c55095b80b8517090b650a2b4a2c79b4463f..6b75c58d5ecb54a7e2afc0e3910f4f17694c6b59 100644 (file)
--- a/v8/src/compiler/base/infnew.scm
+++ b/v8/src/compiler/base/infnew.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: infnew.scm,v 1.7 1995/07/28 15:56:55 adams Exp $
+$Id: infnew.scm,v 1.8 1995/07/31 19:13:14 adams Exp $
 
 Copyright (c) 1988-1995 Massachusetts Institute of Technology
 
@@ -103,8 +103,8 @@ MIT in each case. |#
                    (cond ((and (pair? item)
                                (eq? (car item) 'CC-ENTRY)
                                (symbol? (cdr item)))
-                          (let ((label  (map-label/fail (cdr item))))
-                            (if (dbg-label/external? label)
+                          (let ((label  (map-label/false (cdr item))))
+                            (if (and label (dbg-label/external? label))
                                 (set-cdr! item (dbg-label/offset label))
                                 (set-new-dbg-variable/path! var #F))))
                          ((and (pair? item)