From: Thiemo S. <th...@us...> - 2007-09-05 20:31:19
|
Update of /cvsroot/sbcl/sbcl/src/compiler/mips In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv12339/src/compiler/mips Modified Files: alloc.lisp Log Message: 1.0.9.34: Encapulate the whole closure generation in pseudo-atomic. Index: alloc.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/mips/alloc.lisp,v retrieving revision 1.14 retrieving revision 1.15 diff -u -d -r1.14 -r1.15 --- alloc.lisp 1 Sep 2007 18:11:11 -0000 1.14 +++ alloc.lisp 5 Sep 2007 20:31:15 -0000 1.15 @@ -144,8 +144,8 @@ (inst or result fun-pointer-lowtag) (inst li temp (logior (ash (1- size) n-widetag-bits) closure-header-widetag)) - (storew temp result 0 fun-pointer-lowtag)) - (storew function result closure-fun-slot fun-pointer-lowtag)))) + (storew temp result 0 fun-pointer-lowtag) + (storew function result closure-fun-slot fun-pointer-lowtag))))) ;;; The compiler likes to be able to directly make value cells. (define-vop (make-value-cell) |