From: Alexey D. <ade...@us...> - 2005-01-08 09:42:01
|
Update of /cvsroot/sbcl/sbcl/src/compiler/mips In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8063/src/compiler/mips Modified Files: alloc.lisp Log Message: 0.8.18.20: * Allocate closures at the beginning of FLET/LABELS form. ... fix bug 125. * Partial support of stack allocation of dynamic-extent closures on x86. Index: alloc.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/mips/alloc.lisp,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- alloc.lisp 12 Oct 2004 21:14:40 -0000 1.2 +++ alloc.lisp 8 Jan 2005 09:41:50 -0000 1.3 @@ -108,7 +108,8 @@ (define-vop (make-closure) (:args (function :to :save :scs (descriptor-reg))) - (:info length) + (:info length stack-allocate-p) + (:ignore stack-allocate-p) (:temporary (:scs (non-descriptor-reg)) temp) (:temporary (:sc non-descriptor-reg :offset nl4-offset) pa-flag) (:results (result :scs (descriptor-reg))) |