Red Hat Linux
Click URL instructions:
Right-click on ad, choose "Copy Link", then paste here →
(This may not be possible with some types of ads)
You seem to have CSS turned off.
Please don't fill out this field.
Briefly describe the problem (required):
Please provide the ad click URL, if possible:
Update of /cvsroot/sbcl/sbcl/src/compiler
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv32704/src/compiler
188.8.131.52: dynamic extent value cells
* Pass DX information from leaf to MAKE-VALUE-CELL, and implement the
DX allocation for it on x86 and x86-64.
* Declare some appropriate closed-over variables dynamic-extent:
allows non-consing WITH-SPINLOCK &co.
RCS file: /cvsroot/sbcl/sbcl/src/compiler/ir2tran.lisp,v
retrieving revision 1.68
retrieving revision 1.69
diff -u -d -r1.68 -r1.69
--- ir2tran.lisp 18 Jun 2007 16:02:55 -0000 1.68
+++ ir2tran.lisp 28 Jun 2007 13:04:58 -0000 1.69
@@ -52,12 +52,13 @@
(emit-move-template node block (type-check-template type) value result)
-;;; Allocate an indirect value cell. Maybe do some clever stack
-;;; allocation someday.
+;;; Allocate an indirect value cell.
(defevent make-value-cell-event "Allocate heap value cell for lexical var.")
(defun emit-make-value-cell (node block value res)
(event make-value-cell-event node)
- (vop make-value-cell node block value res))
+ (let ((leaf (tn-leaf res)))
+ (vop make-value-cell node block value (and leaf (leaf-dynamic-extent leaf))
;;;; leaf reference
Sign up for the SourceForge newsletter: