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

When allocating code objects, take into account the normal header slots,

not just the constants.
parent 9574e45f
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/compiler/mips/alloc.lisp,v 1.6 1990/05/25 20:03:03 wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/alloc.lisp,v 1.7 1990/05/31 03:42:18 wlott Exp $
;;;
;;; Allocation VOPs for the MIPS port.
;;;
......@@ -84,7 +84,7 @@
(:temporary (:scs (non-descriptor-reg) :from (:argument 1)) unboxed)
(:generator 100
(inst li ndescr (lognot vm:lowtag-mask))
(inst addu boxed boxed-arg (fixnum 1))
(inst addu boxed boxed-arg (fixnum (1+ vm:code-constants-offset)))
(inst and boxed ndescr)
(inst srl unboxed unboxed-arg vm:word-shift)
(inst addu unboxed unboxed vm:lowtag-mask)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment