From c555d8a88ad8340f13993157870790f460e34929 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Thu, 22 Mar 1990 12:01:12 +0000
Subject: [PATCH] Changed vector-base-size to vector-data-offset.  These
 mumble-base-size constants we stilly to start with.

---
 assembly/mips/array.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/assembly/mips/array.lisp b/assembly/mips/array.lisp
index d410cf798..1eff3823b 100644
--- a/assembly/mips/array.lisp
+++ b/assembly/mips/array.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/array.lisp,v 1.2 1990/03/18 23:53:17 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/array.lisp,v 1.3 1990/03/22 12:01:12 wlott Exp $
 ;;;
 ;;;    This file contains the support routines for arrays and vectors.
 ;;;
@@ -20,7 +20,7 @@
   `(pseudo-atomic (,ndescr)
      (inst ori ,vector alloc-tn vm:other-pointer-type)
      (inst addiu alloc-tn alloc-tn (+ (1- (ash 1 vm:lowtag-bits))
-				      (* vm:vector-base-size vm:word-bytes)))
+				      (* vm:vector-data-offset vm:word-bytes)))
      (inst addu alloc-tn alloc-tn ,words)
      (loadi ,ndescr (lognot vm:lowtag-mask))
      (inst and alloc-tn alloc-tn ,ndescr)
-- 
GitLab