[svn:parrot] r43038 - branches/context_unify3/src

[bacek at svn.parrot.org]

Author: bacek
Date: Mon Dec 14 12:41:51 2009
New Revision: 43038
URL: https://trac.parrot.org/parrot/changeset/43038

Log:
Put temporary workaround for context cycles.

Modified:
   branches/context_unify3/src/sub.c

Modified: branches/context_unify3/src/sub.c
==============================================================================
--- branches/context_unify3/src/sub.c	Mon Dec 14 12:41:33 2009	(r43037)
+++ branches/context_unify3/src/sub.c	Mon Dec 14 12:41:51 2009	(r43038)
@@ -396,7 +396,8 @@
         PMC * const lex_pad = Parrot_pcc_get_lex_pad(interp, ctx);
         PMC * outer         = Parrot_pcc_get_outer_ctx(interp, ctx);
 
-        if (!outer)
+        /* Second check is temporary workaround for cyclic contexts */
+        if (!outer || (outer == ctx))
             return lex_pad;
 
         if (!PMC_IS_NULL(lex_pad))