From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 18 Aug 1988 03:28:41 +0000 (+0000)
Subject: Test to determine if a continuation is direct linked must be more
X-Git-Tag: 20090517-FFI~12602
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9d559be4e6991162bbd3e541d98da46e523aac2b;p=mit-scheme.git

Test to determine if a continuation is direct linked must be more
sophisticated now that RTL generator is direct linking more kinds of
continuations.
---

diff --git a/v7/src/compiler/fgopt/conect.scm b/v7/src/compiler/fgopt/conect.scm
index d3622853d..160e55b11 100644
--- a/v7/src/compiler/fgopt/conect.scm
+++ b/v7/src/compiler/fgopt/conect.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/fgopt/conect.scm,v 4.2 1988/08/18 01:35:41 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/fgopt/conect.scm,v 4.3 1988/08/18 03:28:41 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -48,7 +48,11 @@ MIT in each case. |#
 
 (define (procedure-direct-linked? procedure)
   (if (procedure-continuation? procedure)
-      (continuation/ever-known-operator? procedure)
+      (and (continuation/ever-known-operator? procedure)
+	   (there-exists? (continuation/combinations procedure)
+	     (lambda (combination)
+	       (and (combination/inline? combination)
+		    (combination/continuation-push combination)))))
       (procedure-inline-code? procedure)))
 
 (define (walk-node node color)