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 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; 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. ;;; Allocation VOPs for the MIPS port.
;;; ;;;
...@@ -84,7 +84,7 @@ ...@@ -84,7 +84,7 @@
(:temporary (:scs (non-descriptor-reg) :from (:argument 1)) unboxed) (:temporary (:scs (non-descriptor-reg) :from (:argument 1)) unboxed)
(:generator 100 (:generator 100
(inst li ndescr (lognot vm:lowtag-mask)) (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 and boxed ndescr)
(inst srl unboxed unboxed-arg vm:word-shift) (inst srl unboxed unboxed-arg vm:word-shift)
(inst addu unboxed unboxed vm:lowtag-mask) (inst addu unboxed unboxed vm:lowtag-mask)
......
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