[Sbcl-commits] CVS: sbcl/src/compiler ir1-translators.lisp, 1.92, 1.93

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

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

Modified Files:
	ir1-translators.lisp 
Log Message:
1.0.44.17: ir1: Declare UNWIND-PROTECT cleanup functions to be dynamic-extent.

  * Since we now have the analysis to do the right thing
for these functions, why not take advantage of it?


Index: ir1-translators.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/ir1-translators.lisp,v
retrieving revision 1.92
retrieving revision 1.93
diff -u -d -r1.92 -r1.93
--- ir1-translators.lisp	7 Oct 2009 09:56:48 -0000	1.92
+++ ir1-translators.lisp	9 Nov 2010 19:45:50 -0000	1.93
@@ -1083,6 +1083,7 @@
         ;; ,CLEANUP-FUN should probably be declared DYNAMIC-EXTENT,
         ;; and something can be done to make %ESCAPE-FUN have
         ;; dynamic extent too.
+        (declare (dynamic-extent #',cleanup-fun))
         (block ,drop-thru-tag
           (multiple-value-bind (,next ,start ,count)
               (block ,exit-tag