Skip to content
Snippets Groups Projects
Commit c555d8a8 authored by wlott's avatar wlott
Browse files

Changed vector-base-size to vector-data-offset. These mumble-base-size

constants we stilly to start with.
parent 9109f29c
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment