From acd78e24561bb0471e335800ac22e95f49aeca05 Mon Sep 17 00:00:00 2001 From: Thiemo Seufer Date: Wed, 7 Sep 2005 23:10:22 +0000 Subject: [PATCH] Protect the last store into the object also by pseudo-atomic. --- src/compiler/mips/alloc.lisp | 7 +++---- version.lisp-expr | 2 +- 2 files changed, 4 insertions(+), 5 deletions(-) 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" -- 1.7.10.4