From: Thiemo S. <th...@us...> - 2007-09-05 20:31:19
|
Update of /cvsroot/sbcl/sbcl/src/compiler/alpha In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv12339/src/compiler/alpha 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/alpha/alloc.lisp,v retrieving revision 1.17 retrieving revision 1.18 diff -u -d -r1.17 -r1.18 --- alloc.lisp 28 Jun 2007 13:04:58 -0000 1.17 +++ alloc.lisp 5 Sep 2007 20:31:15 -0000 1.18 @@ -140,8 +140,8 @@ (inst lda csp-tn alloc-size csp-tn)) (t (inst bis alloc-tn fun-pointer-lowtag result))) - (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) |