Skip to content
Snippets Groups Projects
Commit e3f71951 authored by rtoy's avatar rtoy
Browse files

Some WITH-FIXED-ALLOCATION calls had empty bodies, which probably

should not be since the Lisp objects in the allocation aren't
initialized properly inside the pseudo-atomic section.

(There might be more cases of this.)
parent 9cde4506
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/alloc.lisp,v 1.22 2004/10/23 18:10:24 rtoy Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/alloc.lisp,v 1.23 2005/05/09 13:27:02 rtoy Rel $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -162,8 +162,8 @@ ...@@ -162,8 +162,8 @@
(let ((size (+ length closure-info-offset))) (let ((size (+ length closure-info-offset)))
(with-fixed-allocation (result temp closure-header-type size (with-fixed-allocation (result temp closure-header-type size
:lowtag function-pointer-type :lowtag function-pointer-type
:stack-p dynamic-extent)) :stack-p dynamic-extent)
(storew function result closure-function-slot function-pointer-type)))) (storew function result closure-function-slot function-pointer-type)))))
;;; The compiler likes to be able to directly make value cells. ;;; The compiler likes to be able to directly make value cells.
;;; ;;;
...@@ -173,8 +173,8 @@ ...@@ -173,8 +173,8 @@
(:results (result :scs (descriptor-reg))) (:results (result :scs (descriptor-reg)))
(:generator 10 (:generator 10
(with-fixed-allocation (with-fixed-allocation
(result temp value-cell-header-type value-cell-size)) (result temp value-cell-header-type value-cell-size)
(storew value result value-cell-value-slot other-pointer-type))) (storew value result value-cell-value-slot other-pointer-type))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment