From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 31 May 1987 22:57:55 +0000 (+0000)
Subject: Change lookup-apply code to use variable cache when appropriate.
X-Git-Tag: 20090517-FFI~13449
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ceea1b2a3783cf34cfe7b5b63e5272f53ce011c6;p=mit-scheme.git

Change lookup-apply code to use variable cache when appropriate.
---

diff --git a/v7/src/compiler/rtlgen/rgcomb.scm b/v7/src/compiler/rtlgen/rgcomb.scm
index ed26e150e..e3161b4d5 100644
--- a/v7/src/compiler/rtlgen/rgcomb.scm
+++ b/v7/src/compiler/rtlgen/rgcomb.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rgcomb.scm,v 1.20 1987/05/21 14:58:20 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rgcomb.scm,v 1.21 1987/05/31 22:57:55 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -260,14 +260,20 @@ MIT in each case. |#
   (make-call false combination operator operands
     (lambda (frame-size)
       (let ((operator (subproblem-value (combination-operator combination))))
-	(let ((block (reference-block operator))
-	      (name (variable-name (reference-variable operator))))
-	  (rtl:make-invocation:lookup
-	   frame-size
-	   (prefix combination frame-size)
-	   continuation
-	   (nearest-ic-block-expression block)
-	   (intern-scode-variable! block name)))))))
+	(let ((name (variable-name (reference-variable operator))))
+	  (if compiler:cache-free-variables?
+	      (rtl:make-invocation:cache-reference
+	       frame-size
+	       (prefix combination frame-size)
+	       continuation
+	       name)
+	      (let ((block (reference-block operator)))
+		(rtl:make-invocation:lookup
+		 frame-size
+		 (prefix combination frame-size)
+		 continuation
+		 (nearest-ic-block-expression block)
+		 (intern-scode-variable! block name)))))))))
 
 (define (make-call/unknown combination operator operands prefix
 			   continuation)
@@ -275,7 +281,7 @@ MIT in each case. |#
     ((cond ((or (not (reference? callee))
 		(reference-to-known-location? callee))
 	    make-call/apply)
-	   ;; **** Need to add code for links here.
+	   ;; **** Need to add code for uuo links here.
 	   (else make-call/lookup))
      combination operator operands prefix continuation)))