From 7b18f1f6b348f2b16a63c2513865e594eddbdf2d Mon Sep 17 00:00:00 2001 From: "Brian A. LaMacchia" Date: Mon, 7 Mar 1988 22:17:01 +0000 Subject: [PATCH] Added costs for ASSIGNMENT-CACHE and VARIABLE-CACHE. --- v7/src/compiler/machines/vax/machin.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) -- 2.25.1