[prev in list] [next in list] [prev in thread] [next in thread] 

List:       sbcl-commits
Subject:    [Sbcl-commits] CVS: sbcl/src/compiler gtn.lisp,1.20,1.21
From:       "Juho Snellman" <jsnell () users ! sourceforge ! net>
Date:       2010-12-19 1:29:08
Message-ID: E1PU85E-0001ML-BQ () sfp-cvsdas-3 ! v30 ! ch3 ! sourceforge ! com
[Download RAW message or body]

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

Modified Files:
	gtn.lisp 
Log Message:
1.0.45.4: Revert 1.0.44.34

     * Caused CLX compilation to fail, added reduced test case by
       Larry Valkama.


Index: gtn.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/gtn.lisp,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -d -r1.20 -r1.21
--- gtn.lisp	27 Nov 2010 03:01:50 -0000	1.20
+++ gtn.lisp	19 Dec 2010 01:29:05 -0000	1.21
@@ -56,16 +56,6 @@
           ;; live over the dynamic contour of the physenv.
           (setf (tn-sc res) (svref *backend-sc-numbers*
                                    sb!vm:control-stack-sc-number))
-          ;; KLUDGE: In the case of a tail-local-call, the entire
-          ;; stack frame is overwritten by the physenv of the called
-          ;; function.  Unfortunately, the tail-call appears to end
-          ;; the dynamic contour of the physenv, meaning that the
-          ;; stack slot occupied by the LAMBDA-VAR may be reassigned.
-          ;; Ideally, we might make the TN physenv-live across the
-          ;; physenvs of the tail-set of the lambda, but as a stopgap
-          ;; we can make it component-live instead.
-          (component-live-tn res)
-          #+(or)
           (physenv-live-tn res (lambda-physenv fun)))
 
          (debug-variable-p


------------------------------------------------------------------------------
Lotusphere 2011
Register now for Lotusphere 2011 and learn how
to connect the dots, take your collaborative environment
to the next level, and enter the era of Social Business.
http://p.sf.net/sfu/lotusphere-d2d
_______________________________________________
Sbcl-commits mailing list
Sbcl-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/sbcl-commits
[prev in list] [next in list] [prev in thread] [next in thread]