From 1332b02aefe87d474b8bca99ad90adf0e08741e8 Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Tue, 10 May 2005 16:32:41 +0000 Subject: [PATCH] The WITH-FIXED-ALLOCATION body is empty in MAKE-VALUE-CELL. We probably want to initialize the value into the value cell in a pseudo-atomic section. --- compiler/x86/alloc.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler/x86/alloc.lisp b/compiler/x86/alloc.lisp index 8379c1ddf..f32e12322 100644 --- a/compiler/x86/alloc.lisp +++ b/compiler/x86/alloc.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/alloc.lisp,v 1.12 2004/05/15 18:30:47 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/alloc.lisp,v 1.13 2005/05/10 16:32:41 rtoy Rel $") ;;; ;;; ********************************************************************** ;;; @@ -202,8 +202,8 @@ (:node-var node) (:generator 10 (with-fixed-allocation - (result value-cell-header-type value-cell-size node)) - (storew value result value-cell-value-slot other-pointer-type))) + (result value-cell-header-type value-cell-size node) + (storew value result value-cell-value-slot other-pointer-type)))) -- GitLab