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

Fixed bug in list and list* where it would give the results an other-pointer

lowtag instead of a list-pointer lowtag.
parent dc2cdd5f
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/sparc/alloc.lisp,v 1.3 1992/03/11 21:28:59 wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/alloc.lisp,v 1.4 1992/04/14 02:51:46 wlott Exp $
;;;
;;; Allocation VOPs for the SPARC port.
;;;
......@@ -49,7 +49,7 @@
(alloc (* (pad-data-block cons-size) cons-cells)))
(pseudo-atomic (:extra alloc)
(inst andn res alloc-tn lowtag-mask)
(inst or res alloc-tn list-pointer-type)
(inst or res list-pointer-type)
(move ptr res)
(dotimes (i (1- cons-cells))
(storew (maybe-load (tn-ref-tn things)) ptr
......
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