[Sbcl-commits] CVS: sbcl package-data-list.lisp-expr, 1.542, 1.543 version.lisp-expr, 1.5124, 1.5125

[Alastair B. <lis...@us...>]

Update of /cvsroot/sbcl/sbcl
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv28506

Modified Files:
	package-data-list.lisp-expr version.lisp-expr 
Log Message:
1.0.44.15: ir2: Skip value-cell allocation where possible.

  * Expose the new ANCESTOR-FRAME VOPs in package-data.lisp-expr.

  * When creating TNs for closed-over LAMBDA-VARs with "implicit"
VALUE-CELLs, force the TNs to be allocated on the control-stack,
and to be live over the entire extent of the PHYSENV.

  * When translating a REF or SET node for such LAMBDA-VARs from
a NODE in a CLAMBDA with a different PHYSENV, use the new VOPs to
access the LAMBDA-VAR.

  * When setting up a closure for such LAMBDA-VARs from a NODE in
a CLAMBDA with the same PHYSENV as the variable, use the new
CLOSURE-INIT-FROM-FP VOP to stash the frame pointer instead of a
VALUE-CELL or the current value of the variable.

  * When setting up the closure environment for a local-call that
closes over such a LAMBDA-VAR, and the call is being made from a
NODE in a CLAMBDA with the same PHYSENV as the variable, store the
current frame-pointer instead of a VALUE-CELL or the current value
of the variable.


Index: package-data-list.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/package-data-list.lisp-expr,v
retrieving revision 1.542
retrieving revision 1.543
diff -u -d -r1.542 -r1.543
--- package-data-list.lisp-expr	15 Oct 2010 10:16:48 -0000	1.542
+++ package-data-list.lisp-expr	9 Nov 2010 19:45:23 -0000	1.543
@@ -219,6 +219,7 @@
                "ALLOCATE-CODE-OBJECT" "ALLOCATE-FRAME"
                "ALLOCATE-DYNAMIC-CODE-OBJECT" "ALLOCATE-FULL-CALL-FRAME"
                "ALWAYS-TRANSLATABLE"
+               "ANCESTOR-FRAME-REF" "ANCESTOR-FRAME-SET"
                "ANY" "ARG-COUNT-ERROR" "ASSEMBLE-FILE"
                "ATTRIBUTES" "ATTRIBUTES-INTERSECTION" "ATTRIBUTES-UNION"
                "ATTRIBUTES=" "BIND"
@@ -231,7 +232,7 @@
                "CHECK-SYMBOL"
                ;; FIXME: 32/64-bit issues
                "CHECK-UNSIGNED-BYTE-32" "CHECK-UNSIGNED-BYTE-64"
-               "CLOSURE-INIT" "CLOSURE-REF"
+               "CLOSURE-INIT" "CLOSURE-REF" "CLOSURE-INIT-FROM-FP"
                "CODE-CONSTANT-REF" "CODE-CONSTANT-SET"
                "*CODE-COVERAGE-INFO*"
                "COMPARE-AND-SWAP-SLOT"

Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.5124
retrieving revision 1.5125
diff -u -d -r1.5124 -r1.5125
--- version.lisp-expr	9 Nov 2010 19:45:09 -0000	1.5124
+++ version.lisp-expr	9 Nov 2010 19:45:23 -0000	1.5125
@@ -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".)
-"1.0.44.14"
+"1.0.44.15"