From: Brian A. LaMacchia <edu/mit/csail/zurich/bal>
Date: Mon, 7 Mar 1988 22:17:01 +0000 (+0000)
Subject: Added costs for ASSIGNMENT-CACHE and VARIABLE-CACHE.
X-Git-Tag: 20090517-FFI~12878
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7b18f1f6b348f2b16a63c2513865e594eddbdf2d;p=mit-scheme.git

Added costs for ASSIGNMENT-CACHE and VARIABLE-CACHE.
---

diff --git a/v7/src/compiler/machines/vax/machin.scm b/v7/src/compiler/machines/vax/machin.scm
index f4a34bec9..eccb4ff5a 100644
--- a/v7/src/compiler/machines/vax/machin.scm
+++ b/v7/src/compiler/machines/vax/machin.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/machin.scm,v 4.3 1988/02/23 19:37:41 bal Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/machin.scm,v 4.4 1988/03/07 22:17:01 bal Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -48,6 +48,7 @@ MIT in each case. |#
   ;; In the following, temp, and temp+3 are assumed to qualify as byte
   ;; offsets.
   (case (rtl:expression-type expression)
+    ((ASSIGNMENT-CACHE VARIABLE-CACHE) 16) ;move.l d(pc),reg
     ((CONS-POINTER)
      ;; movl  free,temp(regs)	 = 4
      ;; movb  &type,3+temp(regs) = 4 (literal, rather than byte immediate)