Changed cost on (OBJECT->ADDRESS OBJECT->DATUM)

diff --git a/v7/src/compiler/machines/vax/machin.scm b/v7/src/compiler/machines/vax/machin.scm
index b56cd2c7129a9e678fba5b1b974fb50071e179f5..f4a34bec93ced1f0d6259f5130e467a9d9ec326a 100644 (file)
--- 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.2 1988/02/11 21:11:20 bal Exp $
+$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 $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -69,7 +69,7 @@ MIT in each case. |#
     ;; movb  &type,3+temp(regs) =  4 (literal, rather than byte immediate)
     ;; movl  temp(regs),reg     =  4
     ((ENTRY:CONTINUATION ENTRY:PROCEDURE) 17)
-    ((OBJECT->ADDRESS OBJECT->DATUM) 3)        ;bicl2 rmask,reg
+    ((OBJECT->ADDRESS OBJECT->DATUM) 6)        ;bicl2 rmask,reg
     ;; movl  reg,temp(regs)     =  4
     ;; movb  temp+3(regs),reg   =  4
     ((OBJECT->TYPE) 8)