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