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

Use the symbol-value of the header when generating alloc-vops instead

of assuming the header has already been evaluated.
parent b970564d
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.9 1990/07/02 04:47:03 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/alloc.lisp,v 1.10 1990/07/16 17:40:10 wlott Exp $
;;; ;;;
;;; Allocation VOPs for the MIPS port. ;;; Allocation VOPs for the MIPS port.
;;; ;;;
...@@ -202,9 +202,7 @@ ...@@ -202,9 +202,7 @@
(vm:pad-data-block ,size)) (vm:pad-data-block ,size))
(inst li temp (inst li temp
,(logior (ash (1- size) vm:type-bits) ,(logior (ash (1- size) vm:type-bits)
(if (integerp header) (symbol-value header)))
header
0)))
(storew temp result 0 ,lowtag))) (storew temp result 0 ,lowtag)))
(t (t
`((inst addu alloc-tn alloc-tn `((inst addu alloc-tn alloc-tn
......
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