From: Thiemo Seufer Date: Wed, 7 Sep 2005 23:10:22 +0000 (+0000) Subject: Protect the last store into the object also by pseudo-atomic. X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=acd78e24561bb0471e335800ac22e95f49aeca05;p=sbcl.git Protect the last store into the object also by pseudo-atomic. --- diff --git a/src/compiler/mips/alloc.lisp b/src/compiler/mips/alloc.lisp index 697ba4c..1f6e3a7 100644 --- a/src/compiler/mips/alloc.lisp +++ b/src/compiler/mips/alloc.lisp @@ -95,13 +95,12 @@ (pseudo-atomic (pa-flag) (inst or result alloc-tn other-pointer-lowtag) + (inst addu alloc-tn boxed) (storew ndescr result 0 other-pointer-lowtag) (storew unboxed result code-code-size-slot other-pointer-lowtag) + (inst addu alloc-tn unboxed) (storew null-tn result code-entry-points-slot other-pointer-lowtag) - (inst addu alloc-tn boxed) - (inst addu alloc-tn unboxed)) - - (storew null-tn result code-debug-info-slot other-pointer-lowtag))) + (storew null-tn result code-debug-info-slot other-pointer-lowtag)))) (define-vop (make-fdefn) (:policy :fast-safe) diff --git a/version.lisp-expr b/version.lisp-expr index 9e63868..a6003cb 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.9.4.41" +"0.9.4.42"