[Sbcl-commits] CVS: sbcl/src/compiler ir1tran.lisp,1.129,1.130

[Alexey D. <ade...@us...>]

Update of /cvsroot/sbcl/sbcl/src/compiler
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28526/src/compiler

Modified Files:
	ir1tran.lisp 
Log Message:
0.8.16.33:
        * Fix MISC.320: forbid intercomponent reference of a
          DEFINED-FUN-FUNCTIONAL.



Index: ir1tran.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/ir1tran.lisp,v
retrieving revision 1.129
retrieving revision 1.130
diff -u -d -r1.129 -r1.130
--- ir1tran.lisp	29 Oct 2004 13:56:57 -0000	1.129
+++ ir1tran.lisp	6 Nov 2004 04:45:06 -0000	1.130
@@ -576,7 +576,14 @@
                                  :notinline))
                         (let ((functional (defined-fun-functional leaf)))
                           (when (and functional
-                                     (not (functional-kind functional)))
+                                     (not (functional-kind functional))
+                                     ;; Bug MISC.320: ir1-transform
+                                     ;; can create a reference to a
+                                     ;; inline-expanded function,
+                                     ;; defined in another component.
+                                     (not (and (lambda-p functional)
+                                               (neq (lambda-component functional)
+                                                    *current-component*))))
                             (maybe-reanalyze-functional functional))))
                    (when (and (lambda-p leaf)
                               (memq (functional-kind leaf)