From e3f719516a63663b2c740e304593acc8a7325526 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Mon, 9 May 2005 13:27:02 +0000
Subject: [PATCH] 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.)
---
 compiler/sparc/alloc.lisp | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/compiler/sparc/alloc.lisp b/compiler/sparc/alloc.lisp
index 0668fcbff..7827e666e 100644
--- a/compiler/sparc/alloc.lisp
+++ b/compiler/sparc/alloc.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (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 @@
     (let ((size (+ length closure-info-offset)))
       (with-fixed-allocation (result temp closure-header-type size
 				     :lowtag function-pointer-type
-				     :stack-p dynamic-extent))
-      (storew function result closure-function-slot function-pointer-type))))
+				     :stack-p dynamic-extent)
+	(storew function result closure-function-slot function-pointer-type)))))
 
 ;;; The compiler likes to be able to directly make value cells.
 ;;; 
@@ -173,8 +173,8 @@
   (:results (result :scs (descriptor-reg)))
   (:generator 10
     (with-fixed-allocation
-	(result temp value-cell-header-type value-cell-size))
-    (storew value result value-cell-value-slot other-pointer-type)))
+	(result temp value-cell-header-type value-cell-size)
+      (storew value result value-cell-value-slot other-pointer-type))))
 
 
 
-- 
GitLab