From f6e4b168204b1c5cb93e67547445a91d48d5ef3d Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Mon, 31 Jul 1995 19:13:14 +0000 Subject: [PATCH] CC-ENTRY labels may have disappeared in RTL optimization. Be graceful about this. --- v8/src/compiler/base/infnew.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/v8/src/compiler/base/infnew.scm b/v8/src/compiler/base/infnew.scm index 6b64c5509..6b75c58d5 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.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) -- 2.25.1