2010-01-12 Zoltan Varga <vargaz@gmail.com>

[mcs.git] / mcs / statement.cs

//
// statement.cs: Statement representation for the IL tree.
//
// Author:
//   Miguel de Icaza (miguel@ximian.com)
//   Martin Baulig (martin@ximian.com)
//   Marek Safar (marek.safar@seznam.cz)
//
// Copyright 2001, 2002, 2003 Ximian, Inc.
// Copyright 2003, 2004 Novell, Inc.
//

using System;
using System.Text;
using System.Reflection;
using System.Reflection.Emit;
using System.Diagnostics;
using System.Collections;
using System.Collections.Specialized;

namespace Mono.CSharp {
        
        public abstract class Statement {
                public Location loc;
                
                /// <summary>
                ///   Resolves the statement, true means that all sub-statements
                ///   did resolve ok.
                //  </summary>
                public virtual bool Resolve (BlockContext ec)
                {
                        return true;
                }

                /// <summary>
                ///   We already know that the statement is unreachable, but we still
                ///   need to resolve it to catch errors.
                /// </summary>
                public virtual bool ResolveUnreachable (BlockContext ec, bool warn)
                {
                        //
                        // This conflicts with csc's way of doing this, but IMHO it's
                        // the right thing to do.
                        //
                        // If something is unreachable, we still check whether it's
                        // correct.  This means that you cannot use unassigned variables
                        // in unreachable code, for instance.
                        //

                        if (warn)
                                ec.Report.Warning (162, 2, loc, "Unreachable code detected");

                        ec.StartFlowBranching (FlowBranching.BranchingType.Block, loc);
                        bool ok = Resolve (ec);
                        ec.KillFlowBranching ();

                        return ok;
                }
                                
                /// <summary>
                ///   Return value indicates whether all code paths emitted return.
                /// </summary>
                protected abstract void DoEmit (EmitContext ec);

                public virtual void Emit (EmitContext ec)
                {
                        ec.Mark (loc);
                        DoEmit (ec);
                }

                //
                // This routine must be overrided in derived classes and make copies
                // of all the data that might be modified if resolved
                // 
                protected abstract void CloneTo (CloneContext clonectx, Statement target);

                public Statement Clone (CloneContext clonectx)
                {
                        Statement s = (Statement) this.MemberwiseClone ();
                        CloneTo (clonectx, s);
                        return s;
                }

                public virtual Expression CreateExpressionTree (ResolveContext ec)
                {
                        ec.Report.Error (834, loc, "A lambda expression with statement body cannot be converted to an expresion tree");
                        return null;
                }

                public Statement PerformClone ()
                {
                        CloneContext clonectx = new CloneContext ();

                        return Clone (clonectx);
                }

                public abstract void MutateHoistedGenericType (AnonymousMethodStorey storey);
        }

        public sealed class EmptyStatement : Statement {
                
                private EmptyStatement () {}
                
                public static readonly EmptyStatement Value = new EmptyStatement ();

                public override bool Resolve (BlockContext ec)
                {
                        return true;
                }

                public override bool ResolveUnreachable (BlockContext ec, bool warn)
                {
                        return true;
                }

                protected override void DoEmit (EmitContext ec)
                {
                }

                public override void MutateHoistedGenericType (AnonymousMethodStorey storey)
                {
                }

                protected override void CloneTo (CloneContext clonectx, Statement target)
                {
                        // nothing needed.
                }
        }
        
        public class If : Statement {
                Expression expr;
                public Statement TrueStatement;
                public Statement FalseStatement;

                bool is_true_ret;
                
                public If (Expression expr, Statement true_statement, Location l)
                {
                        this.expr = expr;
                        TrueStatement = true_statement;
                        loc = l;
                }

                public If (Expression expr,
                           Statement true_statement,
                           Statement false_statement,
                           Location l)
                {
                        this.expr = expr;
                        TrueStatement = true_statement;
                        FalseStatement = false_statement;
                        loc = l;
                }

                public override void MutateHoistedGenericType (AnonymousMethodStorey storey)
                {
                        expr.MutateHoistedGenericType (storey);
                        TrueStatement.MutateHoistedGenericType (storey);
                        if (FalseStatement != null)
                                FalseStatement.MutateHoistedGenericType (storey);
                }

                public override bool Resolve (BlockContext ec)
                {
                        bool ok = true;

                        Report.Debug (1, "START IF BLOCK", loc);

                        expr = Expression.ResolveBoolean (ec, expr, loc);
                        if (expr == null){
                                ok = false;
                                goto skip;
                        }

                        Assign ass = expr as Assign;
                        if (ass != null && ass.Source is Constant) {
                                ec.Report.Warning (665, 3, loc, "Assignment in conditional expression is always constant; did you mean to use == instead of = ?");
                        }

                        //
                        // Dead code elimination
                        //
                        if (expr is Constant){
                                bool take = !((Constant) expr).IsDefaultValue;

                                if (take){
                                        if (!TrueStatement.Resolve (ec))
                                                return false;

                                        if ((FalseStatement != null) &&
                                            !FalseStatement.ResolveUnreachable (ec, true))
                                                return false;
                                        FalseStatement = null;
                                } else {
                                        if (!TrueStatement.ResolveUnreachable (ec, true))
                                                return false;
                                        TrueStatement = null;

                                        if ((FalseStatement != null) &&
                                            !FalseStatement.Resolve (ec))
                                                return false;
                                }

                                return true;
                        }
                skip:
                        ec.StartFlowBranching (FlowBranching.BranchingType.Conditional, loc);
                        
                        ok &= TrueStatement.Resolve (ec);

                        is_true_ret = ec.CurrentBranching.CurrentUsageVector.IsUnreachable;

                        ec.CurrentBranching.CreateSibling ();

                        if (FalseStatement != null)
                                ok &= FalseStatement.Resolve (ec);
                                        
                        ec.EndFlowBranching ();

                        Report.Debug (1, "END IF BLOCK", loc);

                        return ok;
                }
                
                protected override void DoEmit (EmitContext ec)
                {
                        ILGenerator ig = ec.ig;
                        Label false_target = ig.DefineLabel ();
                        Label end;

                        //
                        // If we're a boolean constant, Resolve() already
                        // eliminated dead code for us.
                        //
                        Constant c = expr as Constant;
                        if (c != null){
                                c.EmitSideEffect (ec);

                                if (!c.IsDefaultValue)
                                        TrueStatement.Emit (ec);
                                else if (FalseStatement != null)
                                        FalseStatement.Emit (ec);

                                return;
                        }                       
                        
                        expr.EmitBranchable (ec, false_target, false);
                        
                        TrueStatement.Emit (ec);

                        if (FalseStatement != null){
                                bool branch_emitted = false;
                                
                                end = ig.DefineLabel ();
                                if (!is_true_ret){
                                        ig.Emit (OpCodes.Br, end);
                                        branch_emitted = true;
                                }

                                ig.MarkLabel (false_target);
                                FalseStatement.Emit (ec);

                                if (branch_emitted)
                                        ig.MarkLabel (end);
                        } else {
                                ig.MarkLabel (false_target);
                        }
                }

                protected override void CloneTo (CloneContext clonectx, Statement t)
                {
                        If target = (If) t;

                        target.expr = expr.Clone (clonectx);
                        target.TrueStatement = TrueStatement.Clone (clonectx);
                        if (FalseStatement != null)
                                target.FalseStatement = FalseStatement.Clone (clonectx);
                }
        }

        public class Do : Statement {
                public Expression expr;
                public Statement  EmbeddedStatement;
                
                public Do (Statement statement, Expression bool_expr, Location l)
                {
                        expr = bool_expr;
                        EmbeddedStatement = statement;
                        loc = l;
                }

                public override bool Resolve (BlockContext ec)
                {
                        bool ok = true;

                        ec.StartFlowBranching (FlowBranching.BranchingType.Loop, loc);

                        bool was_unreachable = ec.CurrentBranching.CurrentUsageVector.IsUnreachable;

                        ec.StartFlowBranching (FlowBranching.BranchingType.Embedded, loc);
                        if (!EmbeddedStatement.Resolve (ec))
                                ok = false;
                        ec.EndFlowBranching ();

                        if (ec.CurrentBranching.CurrentUsageVector.IsUnreachable && !was_unreachable)
                                ec.Report.Warning (162, 2, expr.Location, "Unreachable code detected");

                        expr = Expression.ResolveBoolean (ec, expr, loc);
                        if (expr == null)
                                ok = false;
                        else if (expr is Constant){
                                bool infinite = !((Constant) expr).IsDefaultValue;
                                if (infinite)
                                        ec.CurrentBranching.CurrentUsageVector.Goto ();
                        }

                        ec.EndFlowBranching ();

                        return ok;
                }
                
                protected override void DoEmit (EmitContext ec)
                {
                        ILGenerator ig = ec.ig;
                        Label loop = ig.DefineLabel ();
                        Label old_begin = ec.LoopBegin;
                        Label old_end = ec.LoopEnd;
                        
                        ec.LoopBegin = ig.DefineLabel ();
                        ec.LoopEnd = ig.DefineLabel ();
                                
                        ig.MarkLabel (loop);
                        EmbeddedStatement.Emit (ec);
                        ig.MarkLabel (ec.LoopBegin);

                        //
                        // Dead code elimination
                        //
                        if (expr is Constant){
                                bool res = !((Constant) expr).IsDefaultValue;

                                expr.EmitSideEffect (ec);
                                if (res)
                                        ec.ig.Emit (OpCodes.Br, loop); 
                        } else
                                expr.EmitBranchable (ec, loop, true);
                        
                        ig.MarkLabel (ec.LoopEnd);

                        ec.LoopBegin = old_begin;
                        ec.LoopEnd = old_end;
                }

                public override void MutateHoistedGenericType (AnonymousMethodStorey storey)
                {
                        expr.MutateHoistedGenericType (storey);
                        EmbeddedStatement.MutateHoistedGenericType (storey);
                }

                protected override void CloneTo (CloneContext clonectx, Statement t)
                {
                        Do target = (Do) t;

                        target.EmbeddedStatement = EmbeddedStatement.Clone (clonectx);
                        target.expr = expr.Clone (clonectx);
                }
        }

        public class While : Statement {
                public Expression expr;
                public Statement Statement;
                bool infinite, empty;
                
                public While (Expression bool_expr, Statement statement, Location l)
                {
                        this.expr = bool_expr;
                        Statement = statement;
                        loc = l;
                }

                public override bool Resolve (BlockContext ec)
                {
                        bool ok = true;

                        expr = Expression.ResolveBoolean (ec, expr, loc);
                        if (expr == null)
                                return false;

                        //
                        // Inform whether we are infinite or not
                        //
                        if (expr is Constant){
                                bool value = !((Constant) expr).IsDefaultValue;

                                if (value == false){
                                        if (!Statement.ResolveUnreachable (ec, true))
                                                return false;
                                        empty = true;
                                        return true;
                                } else
                                        infinite = true;
                        }

                        ec.StartFlowBranching (FlowBranching.BranchingType.Loop, loc);
                        if (!infinite)
                                ec.CurrentBranching.CreateSibling ();

                        ec.StartFlowBranching (FlowBranching.BranchingType.Embedded, loc);
                        if (!Statement.Resolve (ec))
                                ok = false;
                        ec.EndFlowBranching ();

                        // There's no direct control flow from the end of the embedded statement to the end of the loop
                        ec.CurrentBranching.CurrentUsageVector.Goto ();

                        ec.EndFlowBranching ();

                        return ok;
                }
                
                protected override void DoEmit (EmitContext ec)
                {
                        if (empty) {
                                expr.EmitSideEffect (ec);
                                return;
                        }

                        ILGenerator ig = ec.ig;
                        Label old_begin = ec.LoopBegin;
                        Label old_end = ec.LoopEnd;
                        
                        ec.LoopBegin = ig.DefineLabel ();
                        ec.LoopEnd = ig.DefineLabel ();

                        //
                        // Inform whether we are infinite or not
                        //
                        if (expr is Constant){
                                // expr is 'true', since the 'empty' case above handles the 'false' case
                                ig.MarkLabel (ec.LoopBegin);
                                expr.EmitSideEffect (ec);
                                Statement.Emit (ec);
                                ig.Emit (OpCodes.Br, ec.LoopBegin);
                                        
                                //
                                // Inform that we are infinite (ie, `we return'), only
                                // if we do not `break' inside the code.
                                //
                                ig.MarkLabel (ec.LoopEnd);
                        } else {
                                Label while_loop = ig.DefineLabel ();

                                ig.Emit (OpCodes.Br, ec.LoopBegin);
                                ig.MarkLabel (while_loop);

                                Statement.Emit (ec);
                        
                                ig.MarkLabel (ec.LoopBegin);
                                ec.Mark (loc);

                                expr.EmitBranchable (ec, while_loop, true);
                                
                                ig.MarkLabel (ec.LoopEnd);
                        }       

                        ec.LoopBegin = old_begin;
                        ec.LoopEnd = old_end;
                }

                public override void Emit (EmitContext ec)
                {
                        DoEmit (ec);
                }

                protected override void CloneTo (CloneContext clonectx, Statement t)
                {
                        While target = (While) t;

                        target.expr = expr.Clone (clonectx);
                        target.Statement = Statement.Clone (clonectx);
                }

                public override void MutateHoistedGenericType (AnonymousMethodStorey storey)
                {
                        expr.MutateHoistedGenericType (storey);
                        Statement.MutateHoistedGenericType (storey);
                }
        }

        public class For : Statement {
                Expression Test;
                Statement InitStatement;
                Statement Increment;
                public Statement Statement;
                bool infinite, empty;
                
                public For (Statement init_statement,
                            Expression test,
                            Statement increment,
                            Statement statement,
                            Location l)
                {
                        InitStatement = init_statement;
                        Test = test;
                        Increment = increment;
                        Statement = statement;
                        loc = l;
                }

                public override bool Resolve (BlockContext ec)
                {
                        bool ok = true;

                        if (InitStatement != null){
                                if (!InitStatement.Resolve (ec))
                                        ok = false;
                        }

                        if (Test != null){
                                Test = Expression.ResolveBoolean (ec, Test, loc);
                                if (Test == null)
                                        ok = false;
                                else if (Test is Constant){
                                        bool value = !((Constant) Test).IsDefaultValue;

                                        if (value == false){
                                                if (!Statement.ResolveUnreachable (ec, true))
                                                        return false;
                                                if ((Increment != null) &&
                                                    !Increment.ResolveUnreachable (ec, false))
                                                        return false;
                                                empty = true;
                                                return true;
                                        } else
                                                infinite = true;
                                }
                        } else
                                infinite = true;

                        ec.StartFlowBranching (FlowBranching.BranchingType.Loop, loc);
                        if (!infinite)
                                ec.CurrentBranching.CreateSibling ();

                        bool was_unreachable = ec.CurrentBranching.CurrentUsageVector.IsUnreachable;

                        ec.StartFlowBranching (FlowBranching.BranchingType.Embedded, loc);
                        if (!Statement.Resolve (ec))
                                ok = false;
                        ec.EndFlowBranching ();

                        if (Increment != null){
                                if (ec.CurrentBranching.CurrentUsageVector.IsUnreachable) {
                                        if (!Increment.ResolveUnreachable (ec, !was_unreachable))
                                                ok = false;
                                } else {
                                        if (!Increment.Resolve (ec))
                                                ok = false;
                                }
                        }

                        // There's no direct control flow from the end of the embedded statement to the end of the loop
                        ec.CurrentBranching.CurrentUsageVector.Goto ();

                        ec.EndFlowBranching ();

                        return ok;
                }

                protected override void DoEmit (EmitContext ec)
                {
                        if (InitStatement != null && InitStatement != EmptyStatement.Value)
                                InitStatement.Emit (ec);

                        if (empty) {
                                Test.EmitSideEffect (ec);
                                return;
                        }

                        ILGenerator ig = ec.ig;
                        Label old_begin = ec.LoopBegin;
                        Label old_end = ec.LoopEnd;
                        Label loop = ig.DefineLabel ();
                        Label test = ig.DefineLabel ();

                        ec.LoopBegin = ig.DefineLabel ();
                        ec.LoopEnd = ig.DefineLabel ();

                        ig.Emit (OpCodes.Br, test);
                        ig.MarkLabel (loop);
                        Statement.Emit (ec);

                        ig.MarkLabel (ec.LoopBegin);
                        if (Increment != EmptyStatement.Value)
                                Increment.Emit (ec);

                        ig.MarkLabel (test);
                        //
                        // If test is null, there is no test, and we are just
                        // an infinite loop
                        //
                        if (Test != null){
                                //
                                // The Resolve code already catches the case for
                                // Test == Constant (false) so we know that
                                // this is true
                                //
                                if (Test is Constant) {
                                        Test.EmitSideEffect (ec);
                                        ig.Emit (OpCodes.Br, loop);
                                } else {
                                        Test.EmitBranchable (ec, loop, true);
                                }
                                
                        } else
                                ig.Emit (OpCodes.Br, loop);
                        ig.MarkLabel (ec.LoopEnd);

                        ec.LoopBegin = old_begin;
                        ec.LoopEnd = old_end;
                }

                public override void MutateHoistedGenericType (AnonymousMethodStorey storey)
                {
                        if (InitStatement != null)
                                InitStatement.MutateHoistedGenericType (storey);
                        if (Test != null)
                                Test.MutateHoistedGenericType (storey);
                        if (Increment != null)
                                Increment.MutateHoistedGenericType (storey);

                        Statement.MutateHoistedGenericType (storey);
                }

                protected override void CloneTo (CloneContext clonectx, Statement t)
                {
                        For target = (For) t;

                        if (InitStatement != null)
                                target.InitStatement = InitStatement.Clone (clonectx);
                        if (Test != null)
                                target.Test = Test.Clone (clonectx);
                        if (Increment != null)
                                target.Increment = Increment.Clone (clonectx);
                        target.Statement = Statement.Clone (clonectx);
                }
        }
        
        public class StatementExpression : Statement {
                ExpressionStatement expr;
                
                public StatementExpression (ExpressionStatement expr)
                {
                        this.expr = expr;
                        loc = expr.Location;
                }

                public override bool Resolve (BlockContext ec)
                {
                        if (expr != null && expr.eclass == ExprClass.Invalid)
                                expr = expr.ResolveStatement (ec);
                        return expr != null;
                }
                
                protected override void DoEmit (EmitContext ec)
                {
                        expr.EmitStatement (ec);
                }

                public override void MutateHoistedGenericType (AnonymousMethodStorey storey)
                {
                        expr.MutateHoistedGenericType (storey);
                }

                public override string ToString ()
                {
                        return "StatementExpression (" + expr + ")";
                }

                protected override void CloneTo (CloneContext clonectx, Statement t)
                {
                        StatementExpression target = (StatementExpression) t;

                        target.expr = (ExpressionStatement) expr.Clone (clonectx);
                }
        }

        // A 'return' or a 'yield break'
        public abstract class ExitStatement : Statement
        {
                protected bool unwind_protect;
                protected abstract bool DoResolve (BlockContext ec);

                public virtual void Error_FinallyClause (Report Report)
                {
                        Report.Error (157, loc, "Control cannot leave the body of a finally clause");
                }

                public sealed override bool Resolve (BlockContext ec)
                {
                        if (!DoResolve (ec))
                                return false;

                        unwind_protect = ec.CurrentBranching.AddReturnOrigin (ec.CurrentBranching.CurrentUsageVector, this);
                        if (unwind_protect)
                                ec.NeedReturnLabel ();
                        ec.CurrentBranching.CurrentUsageVector.Goto ();
                        return true;
                }
        }

        /// <summary>
        ///   Implements the return statement
        /// </summary>
        public class Return : ExitStatement {
                protected Expression Expr;
                public Return (Expression expr, Location l)
                {
                        Expr = expr;
                        loc = l;
                }
                
                protected override bool DoResolve (BlockContext ec)
                {
                        if (Expr == null) {
                                if (ec.ReturnType == TypeManager.void_type)
                                        return true;
                                
                                ec.Report.Error (126, loc,
                                        "An object of a type convertible to `{0}' is required for the return statement",
                                        TypeManager.CSharpName (ec.ReturnType));
                                return false;
                        }

                        if (ec.CurrentBlock.Toplevel.IsIterator) {
                                ec.Report.Error (1622, loc, "Cannot return a value from iterators. Use the yield return " +
                                                  "statement to return a value, or yield break to end the iteration");
                        }

                        AnonymousExpression am = ec.CurrentAnonymousMethod;
                        if (am == null && ec.ReturnType == TypeManager.void_type) {
                                ec.Report.Error (127, loc, "`{0}': A return keyword must not be followed by any expression when method returns void",
                                        ec.GetSignatureForError ());
                        }

                        Expr = Expr.Resolve (ec);
                        if (Expr == null)
                                return false;

                        if (ec.HasSet (ResolveContext.Options.InferReturnType)) {
                                ec.ReturnTypeInference.AddCommonTypeBound (Expr.Type);
                                return true;
                        }

                        if (Expr.Type != ec.ReturnType) {
                                Expr = Convert.ImplicitConversionRequired (ec, Expr, ec.ReturnType, loc);

                                if (Expr == null) {
                                        if (am != null) {
                                                ec.Report.Error (1662, loc,
                                                        "Cannot convert `{0}' to delegate type `{1}' because some of the return types in the block are not implicitly convertible to the delegate return type",
                                                        am.ContainerType, am.GetSignatureForError ());
                                        }
                                        return false;
                                }
                        }

                        return true;                    
                }
                
                protected override void DoEmit (EmitContext ec)
                {
                        if (Expr != null) {
                                Expr.Emit (ec);

                                if (unwind_protect)
                                        ec.ig.Emit (OpCodes.Stloc, ec.TemporaryReturn ());
                        }

                        if (unwind_protect)
                                ec.ig.Emit (OpCodes.Leave, ec.ReturnLabel);
                        else
                                ec.ig.Emit (OpCodes.Ret);
                }

                public override void MutateHoistedGenericType (AnonymousMethodStorey storey)
                {
                        if (Expr != null)
                                Expr.MutateHoistedGenericType (storey);
                }

                protected override void CloneTo (CloneContext clonectx, Statement t)
                {
                        Return target = (Return) t;
                        // It's null for simple return;
                        if (Expr != null)
                                target.Expr = Expr.Clone (clonectx);
                }
        }

        public class Goto : Statement {
                string target;
                LabeledStatement label;
                bool unwind_protect;

                public override bool Resolve (BlockContext ec)
                {
                        unwind_protect = ec.CurrentBranching.AddGotoOrigin (ec.CurrentBranching.CurrentUsageVector, this);
                        ec.CurrentBranching.CurrentUsageVector.Goto ();
                        return true;
                }
                
                public Goto (string label, Location l)
                {
                        loc = l;
                        target = label;
                }

                public string Target {
                        get { return target; }
                }

                public void SetResolvedTarget (LabeledStatement label)
                {
                        this.label = label;
                        label.AddReference ();
                }

                protected override void CloneTo (CloneContext clonectx, Statement target)
                {
                        // Nothing to clone
                }

                protected override void DoEmit (EmitContext ec)
                {
                        if (label == null)
                                throw new InternalErrorException ("goto emitted before target resolved");
                        Label l = label.LabelTarget (ec);
                        ec.ig.Emit (unwind_protect ? OpCodes.Leave : OpCodes.Br, l);
                }

                public override void MutateHoistedGenericType (AnonymousMethodStorey storey)
                {
                }
        }

        public class LabeledStatement : Statement {
                string name;
                bool defined;
                bool referenced;
                Label label;
                ILGenerator ig;

                FlowBranching.UsageVector vectors;
                
                public LabeledStatement (string name, Location l)
                {
                        this.name = name;
                        this.loc = l;
                }

                public Label LabelTarget (EmitContext ec)
                {
                        if (defined)
                                return label;
                        ig = ec.ig;
                        label = ec.ig.DefineLabel ();
                        defined = true;

                        return label;
                }

                public string Name {
                        get { return name; }
                }

                public bool IsDefined {
                        get { return defined; }
                }

                public bool HasBeenReferenced {
                        get { return referenced; }
                }

                public FlowBranching.UsageVector JumpOrigins {
                        get { return vectors; }
                }

                public void AddUsageVector (FlowBranching.UsageVector vector)
                {
                        vector = vector.Clone ();
                        vector.Next = vectors;
                        vectors = vector;
                }

                protected override void CloneTo (CloneContext clonectx, Statement target)
                {
                        // nothing to clone
                }

                public override bool Resolve (BlockContext ec)
                {
                        // this flow-branching will be terminated when the surrounding block ends
                        ec.StartFlowBranching (this);
                        return true;
                }

                protected override void DoEmit (EmitContext ec)
                {
                        if (ig != null && ig != ec.ig)
                                throw new InternalErrorException ("cannot happen");
                        LabelTarget (ec);
                        ec.ig.MarkLabel (label);
                }

                public override void MutateHoistedGenericType (AnonymousMethodStorey storey)
                {
                }

                public void AddReference ()
                {
                        referenced = true;
                }
        }
        

        /// <summary>
        ///   `goto default' statement
        /// </summary>
        public class GotoDefault : Statement {
                
                public GotoDefault (Location l)
                {
                        loc = l;
                }

                protected override void CloneTo (CloneContext clonectx, Statement target)
                {
                        // nothing to clone
                }

                public override bool Resolve (BlockContext ec)
                {
                        ec.CurrentBranching.CurrentUsageVector.Goto ();

                        if (ec.Switch == null) {
                                ec.Report.Error (153, loc, "A goto case is only valid inside a switch statement");
                                return false;
                        }

                        if (!ec.Switch.GotDefault) {
                                FlowBranchingBlock.Error_UnknownLabel (loc, "default", ec.Report);
                                return false;
                        }

                        return true;
                }

                protected override void DoEmit (EmitContext ec)
                {
                        ec.ig.Emit (OpCodes.Br, ec.Switch.DefaultTarget);
                }

                public override void MutateHoistedGenericType (AnonymousMethodStorey storey)
                {
                }
        }

        /// <summary>
        ///   `goto case' statement
        /// </summary>
        public class GotoCase : Statement {
                Expression expr;
                SwitchLabel sl;
                
                public GotoCase (Expression e, Location l)
                {
                        expr = e;
                        loc = l;
                }

                public override bool Resolve (BlockContext ec)
                {
                        if (ec.Switch == null){
                                ec.Report.Error (153, loc, "A goto case is only valid inside a switch statement");
                                return false;
                        }

                        ec.CurrentBranching.CurrentUsageVector.Goto ();

                        expr = expr.Resolve (ec);
                        if (expr == null)
                                return false;

                        Constant c = expr as Constant;
                        if (c == null) {
                                ec.Report.Error (150, expr.Location, "A constant value is expected");
                                return false;
                        }

                        Type type = ec.Switch.SwitchType;
                        Constant res = c.TryReduce (ec, type, c.Location);
                        if (res == null) {
                                c.Error_ValueCannotBeConverted (ec, loc, type, true);
                                return false;
                        }

                        if (!Convert.ImplicitStandardConversionExists (c, type))
                                ec.Report.Warning (469, 2, loc,
                                        "The `goto case' value is not implicitly convertible to type `{0}'",
                                        TypeManager.CSharpName (type));

                        object val = res.GetValue ();
                        if (val == null)
                                val = SwitchLabel.NullStringCase;
                                        
                        sl = (SwitchLabel) ec.Switch.Elements [val];

                        if (sl == null){
                                FlowBranchingBlock.Error_UnknownLabel (loc, "case " + 
                                        (c.GetValue () == null ? "null" : val.ToString ()), ec.Report);
                                return false;
                        }

                        return true;
                }

                protected override void DoEmit (EmitContext ec)
                {
                        ec.ig.Emit (OpCodes.Br, sl.GetILLabelCode (ec));
                }

                public override void MutateHoistedGenericType (AnonymousMethodStorey storey)
                {
                        expr.MutateHoistedGenericType (storey);
                }

                protected override void CloneTo (CloneContext clonectx, Statement t)
                {
                        GotoCase target = (GotoCase) t;

                        target.expr = expr.Clone (clonectx);
                }
        }
        
        public class Throw : Statement {
                Expression expr;
                
                public Throw (Expression expr, Location l)
                {
                        this.expr = expr;
                        loc = l;
                }

                public override bool Resolve (BlockContext ec)
                {
                        if (expr == null) {
                                ec.CurrentBranching.CurrentUsageVector.Goto ();
                                return ec.CurrentBranching.CheckRethrow (loc);
                        }

                        expr = expr.Resolve (ec, ResolveFlags.Type | ResolveFlags.VariableOrValue);
                        ec.CurrentBranching.CurrentUsageVector.Goto ();

                        if (expr == null)
                                return false;

                        if (Convert.ImplicitConversionExists (ec, expr, TypeManager.exception_type))
                                expr = Convert.ImplicitConversion (ec, expr, TypeManager.exception_type, loc);
                        else
                                ec.Report.Error (155, expr.Location, "The type caught or thrown must be derived from System.Exception");

                        return true;
                }
                        
                protected override void DoEmit (EmitContext ec)
                {
                        if (expr == null)
                                ec.ig.Emit (OpCodes.Rethrow);
                        else {
                                expr.Emit (ec);

                                ec.ig.Emit (OpCodes.Throw);
                        }
                }

                public override void MutateHoistedGenericType (AnonymousMethodStorey storey)
                {
                        if (expr != null)
                                expr.MutateHoistedGenericType (storey);
                }

                protected override void CloneTo (CloneContext clonectx, Statement t)
                {
                        Throw target = (Throw) t;

                        if (expr != null)
                                target.expr = expr.Clone (clonectx);
                }
        }

        public class Break : Statement {
                
                public Break (Location l)
                {
                        loc = l;
                }

                bool unwind_protect;

                public override bool Resolve (BlockContext ec)
                {
                        unwind_protect = ec.CurrentBranching.AddBreakOrigin (ec.CurrentBranching.CurrentUsageVector, loc);
                        ec.CurrentBranching.CurrentUsageVector.Goto ();
                        return true;
                }

                protected override void DoEmit (EmitContext ec)
                {
                        ec.ig.Emit (unwind_protect ? OpCodes.Leave : OpCodes.Br, ec.LoopEnd);
                }

                public override void MutateHoistedGenericType (AnonymousMethodStorey storey)
                {
                }
                
                protected override void CloneTo (CloneContext clonectx, Statement t)
                {
                        // nothing needed
                }
        }

        public class Continue : Statement {
                
                public Continue (Location l)
                {
                        loc = l;
                }

                bool unwind_protect;

                public override bool Resolve (BlockContext ec)
                {
                        unwind_protect = ec.CurrentBranching.AddContinueOrigin (ec.CurrentBranching.CurrentUsageVector, loc);
                        ec.CurrentBranching.CurrentUsageVector.Goto ();
                        return true;
                }

                protected override void DoEmit (EmitContext ec)
                {
                        ec.ig.Emit (unwind_protect ? OpCodes.Leave : OpCodes.Br, ec.LoopBegin);
                }

                public override void MutateHoistedGenericType (AnonymousMethodStorey storey)
                {
                }

                protected override void CloneTo (CloneContext clonectx, Statement t)
                {
                        // nothing needed.
                }
        }

        public interface ILocalVariable
        {
                void Emit (EmitContext ec);
                void EmitAssign (EmitContext ec);
                void EmitAddressOf (EmitContext ec);
        }

        public interface IKnownVariable {
                Block Block { get; }
                Location Location { get; }
        }

        //
        // The information about a user-perceived local variable
        //
        public class LocalInfo : IKnownVariable, ILocalVariable {
                public readonly FullNamedExpression Type;

                public Type VariableType;
                public readonly string Name;
                public readonly Location Location;
                public readonly Block Block;

                public VariableInfo VariableInfo;
                public HoistedVariable HoistedVariableReference;

                [Flags]
                enum Flags : byte {
                        Used = 1,
                        ReadOnly = 2,
                        Pinned = 4,
                        IsThis = 8,
                        AddressTaken = 32,
                        CompilerGenerated = 64,
                        IsConstant = 128
                }

                public enum ReadOnlyContext: byte {
                        Using,
                        Foreach,
                        Fixed
                }

                Flags flags;
                ReadOnlyContext ro_context;
                LocalBuilder builder;

                public LocalInfo (FullNamedExpression type, string name, Block block, Location l)
                {
                        Type = type;
                        Name = name;
                        Block = block;
                        Location = l;
                }

                public LocalInfo (DeclSpace ds, Block block, Location l)
                {
                        VariableType = ds.IsGeneric ? ds.CurrentType : ds.TypeBuilder;
                        Block = block;
                        Location = l;
                }

                public void ResolveVariable (EmitContext ec)
                {
                        if (HoistedVariableReference != null)
                                return;

                        if (builder == null) {
                                if (Pinned)
                                        //
                                        // This is needed to compile on both .NET 1.x and .NET 2.x
                                        // the later introduced `DeclareLocal (Type t, bool pinned)'
                                        //
                                        builder = TypeManager.DeclareLocalPinned (ec.ig, VariableType);
                                else
                                        builder = ec.ig.DeclareLocal (TypeManager.TypeToReflectionType (VariableType));
                        }
                }

                public void Emit (EmitContext ec)
                {
                        ec.ig.Emit (OpCodes.Ldloc, builder);
                }

                public void EmitAssign (EmitContext ec)
                {
                        ec.ig.Emit (OpCodes.Stloc, builder);
                }

                public void EmitAddressOf (EmitContext ec)
                {
                        ec.ig.Emit (OpCodes.Ldloca, builder);
                }

                public void EmitSymbolInfo (EmitContext ec)
                {
                        if (builder != null)
                                ec.DefineLocalVariable (Name, builder);
                }

                public bool IsThisAssigned (BlockContext ec, Block block)
                {
                        if (VariableInfo == null)
                                throw new Exception ();

                        if (!ec.DoFlowAnalysis || ec.CurrentBranching.IsAssigned (VariableInfo))
                                return true;

                        return VariableInfo.TypeInfo.IsFullyInitialized (ec, VariableInfo, block.StartLocation);
                }

                public bool IsAssigned (BlockContext ec)
                {
                        if (VariableInfo == null)
                                throw new Exception ();

                        return !ec.DoFlowAnalysis || ec.CurrentBranching.IsAssigned (VariableInfo);
                }

                public bool Resolve (ResolveContext ec)
                {
                        if (VariableType != null)
                                return true;

                        TypeExpr texpr = Type.ResolveAsContextualType (ec, false);
                        if (texpr == null)
                                return false;
                                
                        VariableType = texpr.Type;

                        if (TypeManager.IsGenericParameter (VariableType))
                                return true;

                        if (VariableType.IsAbstract && VariableType.IsSealed) {
                                FieldBase.Error_VariableOfStaticClass (Location, Name, VariableType, ec.Report);
                                return false;
                        }

                        if (VariableType.IsPointer && !ec.IsUnsafe)
                                Expression.UnsafeError (ec, Location);

                        return true;
                }

                public bool IsConstant {
                        get { return (flags & Flags.IsConstant) != 0; }
                        set { flags |= Flags.IsConstant; }
                }

                public bool AddressTaken {
                        get { return (flags & Flags.AddressTaken) != 0; }
                        set { flags |= Flags.AddressTaken; }
                }

                public bool CompilerGenerated {
                        get { return (flags & Flags.CompilerGenerated) != 0; }
                        set { flags |= Flags.CompilerGenerated; }
                }

                public override string ToString ()
                {
                        return String.Format ("LocalInfo ({0},{1},{2},{3})",
                                              Name, Type, VariableInfo, Location);
                }

                public bool Used {
                        get { return (flags & Flags.Used) != 0; }
                        set { flags = value ? (flags | Flags.Used) : (unchecked (flags & ~Flags.Used)); }
                }

                public bool ReadOnly {
                        get { return (flags & Flags.ReadOnly) != 0; }
                }

                public void SetReadOnlyContext (ReadOnlyContext context)
                {
                        flags |= Flags.ReadOnly;
                        ro_context = context;
                }

                public string GetReadOnlyContext ()
                {
                        if (!ReadOnly)
                                throw new InternalErrorException ("Variable is not readonly");

                        switch (ro_context) {
                        case ReadOnlyContext.Fixed:
                                return "fixed variable";
                        case ReadOnlyContext.Foreach:
                                return "foreach iteration variable";
                        case ReadOnlyContext.Using:
                                return "using variable";
                        }
                        throw new NotImplementedException ();
                }

                //
                // Whether the variable is pinned, if Pinned the variable has been 
                // allocated in a pinned slot with DeclareLocal.
                //
                public bool Pinned {
                        get { return (flags & Flags.Pinned) != 0; }
                        set { flags = value ? (flags | Flags.Pinned) : (flags & ~Flags.Pinned); }
                }

                public bool IsThis {
                        get { return (flags & Flags.IsThis) != 0; }
                        set { flags = value ? (flags | Flags.IsThis) : (flags & ~Flags.IsThis); }
                }

                Block IKnownVariable.Block {
                        get { return Block; }
                }

                Location IKnownVariable.Location {
                        get { return Location; }
                }

                public LocalInfo Clone (CloneContext clonectx)
                {
                        //
                        // Variables in anonymous block are not resolved yet
                        //
                        if (VariableType == null)
                                return new LocalInfo ((FullNamedExpression) Type.Clone (clonectx), Name, clonectx.LookupBlock (Block), Location);

                        //
                        // Variables in method block are resolved
                        //
                        LocalInfo li = new LocalInfo (null, Name, clonectx.LookupBlock (Block), Location);
                        li.VariableType = VariableType;
                        return li;                      
                }
        }

        /// <summary>
        ///   Block represents a C# block.
        /// </summary>
        ///
        /// <remarks>
        ///   This class is used in a number of places: either to represent
        ///   explicit blocks that the programmer places or implicit blocks.
        ///
        ///   Implicit blocks are used as labels or to introduce variable
        ///   declarations.
        ///
        ///   Top-level blocks derive from Block, and they are called ToplevelBlock
        ///   they contain extra information that is not necessary on normal blocks.
        /// </remarks>
        public class Block : Statement {
                public Block    Parent;
                public Location StartLocation;
                public Location EndLocation = Location.Null;

                public ExplicitBlock Explicit;
                public ToplevelBlock Toplevel; // TODO: Use Explicit

                [Flags]
                public enum Flags : byte {
                        Unchecked = 1,
                        BlockUsed = 2,
                        VariablesInitialized = 4,
                        HasRet = 8,
                        Unsafe = 16,
                        IsIterator = 32,
                        HasCapturedVariable = 64,
                        HasCapturedThis = 128
                }
                protected Flags flags;

                public bool Unchecked {
                        get { return (flags & Flags.Unchecked) != 0; }
                        set { flags = value ? flags | Flags.Unchecked : flags & ~Flags.Unchecked; }
                }

                public bool Unsafe {
                        get { return (flags & Flags.Unsafe) != 0; }
                        set { flags |= Flags.Unsafe; }
                }

                //
                // The statements in this block
                //
                protected ArrayList statements;

                //
                // An array of Blocks.  We keep track of children just
                // to generate the local variable declarations.
                //
                // Statements and child statements are handled through the
                // statements.
                //
                ArrayList children;

                //
                // Labels.  (label, block) pairs.
                //
                protected HybridDictionary labels;

                //
                // Keeps track of (name, type) pairs
                //
                IDictionary variables;

                //
                // Keeps track of constants
                HybridDictionary constants;

                //
                // Temporary variables.
                //
                ArrayList temporary_variables;
                
                //
                // If this is a switch section, the enclosing switch block.
                //
                Block switch_block;

                protected ArrayList scope_initializers;

                ArrayList anonymous_children;

                protected static int id;

                int this_id;

                int assignable_slots;
                bool unreachable_shown;
                bool unreachable;
                
                public Block (Block parent)
                        : this (parent, (Flags) 0, Location.Null, Location.Null)
                { }

                public Block (Block parent, Flags flags)
                        : this (parent, flags, Location.Null, Location.Null)
                { }

                public Block (Block parent, Location start, Location end)
                        : this (parent, (Flags) 0, start, end)
                { }

                //
                // Useful when TopLevel block is downgraded to normal block
                //
                public Block (ToplevelBlock parent, ToplevelBlock source)
                        : this (parent, source.flags, source.StartLocation, source.EndLocation)
                {
                        statements = source.statements;
                        children = source.children;
                        labels = source.labels;
                        variables = source.variables;
                        constants = source.constants;
                        switch_block = source.switch_block;
                }

                public Block (Block parent, Flags flags, Location start, Location end)
                {
                        if (parent != null) {
                                parent.AddChild (this);

                                // the appropriate constructors will fixup these fields
                                Toplevel = parent.Toplevel;
                                Explicit = parent.Explicit;
                        }
                        
                        this.Parent = parent;
                        this.flags = flags;
                        this.StartLocation = start;
                        this.EndLocation = end;
                        this.loc = start;
                        this_id = id++;
                        statements = new ArrayList (4);
                }

                public Block CreateSwitchBlock (Location start)
                {
                        // FIXME: should this be implicit?
                        Block new_block = new ExplicitBlock (this, start, start);
                        new_block.switch_block = this;
                        return new_block;
                }

                public int ID {
                        get { return this_id; }
                }

                public IDictionary Variables {
                        get {
                                if (variables == null)
                                        variables = new ListDictionary ();
                                return variables;
                        }
                }

                void AddChild (Block b)
                {
                        if (children == null)
                                children = new ArrayList (1);
                        
                        children.Add (b);
                }

                public void SetEndLocation (Location loc)
                {
                        EndLocation = loc;
                }

                protected void Error_158 (string name, Location loc)
                {
                        Toplevel.Report.Error (158, loc, "The label `{0}' shadows another label " +
                                      "by the same name in a contained scope", name);
                }

                /// <summary>
                ///   Adds a label to the current block. 
                /// </summary>
                ///
                /// <returns>
                ///   false if the name already exists in this block. true
                ///   otherwise.
                /// </returns>
                ///
                public bool AddLabel (LabeledStatement target)
                {
                        if (switch_block != null)
                                return switch_block.AddLabel (target);

                        string name = target.Name;

                        Block cur = this;
                        while (cur != null) {
                                LabeledStatement s = cur.DoLookupLabel (name);
                                if (s != null) {
                                        Toplevel.Report.SymbolRelatedToPreviousError (s.loc, s.Name);
                                        Toplevel.Report.Error (140, target.loc, "The label `{0}' is a duplicate", name);
                                        return false;
                                }

                                if (this == Explicit)
                                        break;

                                cur = cur.Parent;
                        }

                        while (cur != null) {
                                if (cur.DoLookupLabel (name) != null) {
                                        Error_158 (name, target.loc);
                                        return false;
                                }

                                if (children != null) {
                                        foreach (Block b in children) {
                                                LabeledStatement s = b.DoLookupLabel (name);
                                                if (s == null)
                                                        continue;

                                                Toplevel.Report.SymbolRelatedToPreviousError (s.loc, s.Name);
                                                Error_158 (name, target.loc);
                                                return false;
                                        }
                                }

                                cur = cur.Parent;
                        }

                        Toplevel.CheckError158 (name, target.loc);

                        if (labels == null)
                                labels = new HybridDictionary();

                        labels.Add (name, target);
                        return true;
                }

                public LabeledStatement LookupLabel (string name)
                {
                        LabeledStatement s = DoLookupLabel (name);
                        if (s != null)
                                return s;

                        if (children == null)
                                return null;

                        foreach (Block child in children) {
                                if (Explicit != child.Explicit)
                                        continue;

                                s = child.LookupLabel (name);
                                if (s != null)
                                        return s;
                        }

                        return null;
                }

                LabeledStatement DoLookupLabel (string name)
                {
                        if (switch_block != null)
                                return switch_block.LookupLabel (name);

                        if (labels != null)
                                if (labels.Contains (name))
                                        return ((LabeledStatement) labels [name]);

                        return null;
                }

                public bool CheckInvariantMeaningInBlock (string name, Expression e, Location loc)
                {
                        Block b = this;
                        IKnownVariable kvi = b.Explicit.GetKnownVariable (name);
                        while (kvi == null) {
                                b = b.Explicit.Parent;
                                if (b == null)
                                        return true;
                                kvi = b.Explicit.GetKnownVariable (name);
                        }

                        if (kvi.Block == b)
                                return true;

                        // Is kvi.Block nested inside 'b'
                        if (b.Explicit != kvi.Block.Explicit) {
                                //
                                // If a variable by the same name it defined in a nested block of this
                                // block, we violate the invariant meaning in a block.
                                //
                                if (b == this) {
                                        Toplevel.Report.SymbolRelatedToPreviousError (kvi.Location, name);
                                        Toplevel.Report.Error (135, loc, "`{0}' conflicts with a declaration in a child block", name);
                                        return false;
                                }

                                //
                                // It's ok if the definition is in a nested subblock of b, but not
                                // nested inside this block -- a definition in a sibling block
                                // should not affect us.
                                //
                                return true;
                        }

                        //
                        // Block 'b' and kvi.Block are the same textual block.
                        // However, different variables are extant.
                        //
                        // Check if the variable is in scope in both blocks.  We use
                        // an indirect check that depends on AddVariable doing its
                        // part in maintaining the invariant-meaning-in-block property.
                        //
                        if (e is VariableReference || (e is Constant && b.GetLocalInfo (name) != null))
                                return true;

                        if (this is ToplevelBlock) {
                                Toplevel.Report.SymbolRelatedToPreviousError (kvi.Location, name);
                                e.Error_VariableIsUsedBeforeItIsDeclared (Toplevel.Report, name);
                                return false;
                        }

                        //
                        // Even though we detected the error when the name is used, we
                        // treat it as if the variable declaration was in error.
                        //
                        Toplevel.Report.SymbolRelatedToPreviousError (loc, name);
                        Error_AlreadyDeclared (kvi.Location, name, "parent or current");
                        return false;
                }

                protected virtual bool CheckParentConflictName (ToplevelBlock block, string name, Location l)
                {
                        LocalInfo vi = GetLocalInfo (name);
                        if (vi != null) {
                                block.Report.SymbolRelatedToPreviousError (vi.Location, name);
                                if (Explicit == vi.Block.Explicit) {
                                        Error_AlreadyDeclared (l, name, null);
                                } else {
                                        Error_AlreadyDeclared (l, name, this is ToplevelBlock ?
                                                "parent or current" : "parent");
                                }
                                return false;
                        }

                        if (block != null) {
                                Expression e = block.GetParameterReference (name, Location.Null);
                                if (e != null) {
                                        ParameterReference pr = e as ParameterReference;
                                        if (this is Linq.QueryBlock && (pr != null && pr.Parameter is Linq.QueryBlock.ImplicitQueryParameter || e is MemberAccess))
                                                Error_AlreadyDeclared (loc, name);
                                        else
                                                Error_AlreadyDeclared (loc, name, "parent or current");
                                        return false;
                                }
                        }

                        return true;
                }

                public LocalInfo AddVariable (Expression type, string name, Location l)
                {
                        if (!CheckParentConflictName (Toplevel, name, l))
                                return null;

                        if (Toplevel.GenericMethod != null) {
                                foreach (TypeParameter tp in Toplevel.GenericMethod.CurrentTypeParameters) {
                                        if (tp.Name == name) {
                                                Toplevel.Report.SymbolRelatedToPreviousError (tp);
                                                Error_AlreadyDeclaredTypeParameter (Toplevel.Report, loc, name, "local variable");
                                                return null;
                                        }
                                }
                        }                       

                        IKnownVariable kvi = Explicit.GetKnownVariable (name);
                        if (kvi != null) {
                                Toplevel.Report.SymbolRelatedToPreviousError (kvi.Location, name);
                                Error_AlreadyDeclared (l, name, "child");
                                return null;
                        }

                        LocalInfo vi = new LocalInfo ((FullNamedExpression) type, name, this, l);
                        AddVariable (vi);

                        if ((flags & Flags.VariablesInitialized) != 0)
                                throw new InternalErrorException ("block has already been resolved");

                        return vi;
                }
                
                protected virtual void AddVariable (LocalInfo li)
                {
                        Variables.Add (li.Name, li);
                        Explicit.AddKnownVariable (li.Name, li);
                }

                protected virtual void Error_AlreadyDeclared (Location loc, string var, string reason)
                {
                        if (reason == null) {
                                Error_AlreadyDeclared (loc, var);
                                return;
                        }
                        
                        Toplevel.Report.Error (136, loc, "A local variable named `{0}' cannot be declared " +
                                      "in this scope because it would give a different meaning " +
                                      "to `{0}', which is already used in a `{1}' scope " +
                                      "to denote something else", var, reason);
                }

                protected virtual void Error_AlreadyDeclared (Location loc, string name)
                {
                        Toplevel.Report.Error (128, loc,
                                "A local variable named `{0}' is already defined in this scope", name);
                }
                                        
                public virtual void Error_AlreadyDeclaredTypeParameter (Report r, Location loc, string name, string conflict)
                {
                        r.Error (412, loc, "The type parameter name `{0}' is the same as `{1}'",
                                name, conflict);
                }

                public bool AddConstant (Expression type, string name, Expression value, Location l)
                {
                        if (AddVariable (type, name, l) == null)
                                return false;
                        
                        if (constants == null)
                                constants = new HybridDictionary();

                        constants.Add (name, value);

                        // A block is considered used if we perform an initialization in a local declaration, even if it is constant.
                        Use ();
                        return true;
                }

                static int next_temp_id = 0;

                public LocalInfo AddTemporaryVariable (TypeExpr te, Location loc)
                {
                        Report.Debug (64, "ADD TEMPORARY", this, Toplevel, loc);

                        if (temporary_variables == null)
                                temporary_variables = new ArrayList ();

                        int id = ++next_temp_id;
                        string name = "$s_" + id.ToString ();

                        LocalInfo li = new LocalInfo (te, name, this, loc);
                        li.CompilerGenerated = true;
                        temporary_variables.Add (li);
                        return li;
                }

                public LocalInfo GetLocalInfo (string name)
                {
                        LocalInfo ret;
                        for (Block b = this; b != null; b = b.Parent) {
                                if (b.variables != null) {
                                        ret = (LocalInfo) b.variables [name];
                                        if (ret != null)
                                                return ret;
                                }
                        }

                        return null;
                }

                public Expression GetVariableType (string name)
                {
                        LocalInfo vi = GetLocalInfo (name);
                        return vi == null ? null : vi.Type;
                }

                public Expression GetConstantExpression (string name)
                {
                        for (Block b = this; b != null; b = b.Parent) {
                                if (b.constants != null) {
                                        Expression ret = b.constants [name] as Expression;
                                        if (ret != null)
                                                return ret;
                                }
                        }
                        return null;
                }

                //
                // It should be used by expressions which require to
                // register a statement during resolve process.
                //
                public void AddScopeStatement (Statement s)
                {
                        if (scope_initializers == null)
                                scope_initializers = new ArrayList ();

                        scope_initializers.Add (s);
                }
                
                public void AddStatement (Statement s)
                {
                        statements.Add (s);
                        flags |= Flags.BlockUsed;
                }

                public bool Used {
                        get { return (flags & Flags.BlockUsed) != 0; }
                }

                public void Use ()
                {
                        flags |= Flags.BlockUsed;
                }

                public bool HasRet {
                        get { return (flags & Flags.HasRet) != 0; }
                }

                public int AssignableSlots {
                        get {
// TODO: Re-enable                      
//                              if ((flags & Flags.VariablesInitialized) == 0)
//                                      throw new Exception ("Variables have not been initialized yet");
                                return assignable_slots;
                        }
                }

                public ArrayList AnonymousChildren {
                        get { return anonymous_children; }
                }

                public void AddAnonymousChild (ToplevelBlock b)
                {
                        if (anonymous_children == null)
                                anonymous_children = new ArrayList ();

                        anonymous_children.Add (b);
                }

                void DoResolveConstants (BlockContext ec)
                {
                        if (constants == null)
                                return;

                        if (variables == null)
                                throw new InternalErrorException ("cannot happen");

                        foreach (DictionaryEntry de in variables) {
                                string name = (string) de.Key;
                                LocalInfo vi = (LocalInfo) de.Value;
                                Type variable_type = vi.VariableType;

                                if (variable_type == null) {
                                        if (vi.Type is VarExpr)
                                                ec.Report.Error (822, vi.Type.Location, "An implicitly typed local variable cannot be a constant");

                                        continue;
                                }

                                Expression cv = (Expression) constants [name];
                                if (cv == null)
                                        continue;

                                // Don't let 'const int Foo = Foo;' succeed.
                                // Removing the name from 'constants' ensures that we get a LocalVariableReference below,
                                // which in turn causes the 'must be constant' error to be triggered.
                                constants.Remove (name);

                                if (!Const.IsConstantTypeValid (variable_type)) {
                                        Const.Error_InvalidConstantType (variable_type, loc, ec.Report);
                                        continue;
                                }

                                ec.CurrentBlock = this;
                                Expression e;
                                using (ec.With (ResolveContext.Options.ConstantCheckState, (flags & Flags.Unchecked) == 0)) {
                                        e = cv.Resolve (ec);
                                }
                                if (e == null)
                                        continue;

                                Constant ce = e as Constant;
                                if (ce == null) {
                                        Const.Error_ExpressionMustBeConstant (vi.Location, name, ec.Report);
                                        continue;
                                }

                                e = ce.ConvertImplicitly (variable_type);
                                if (e == null) {
                                        if (TypeManager.IsReferenceType (variable_type))
                                                Const.Error_ConstantCanBeInitializedWithNullOnly (variable_type, vi.Location, vi.Name, ec.Report);
                                        else
                                                ce.Error_ValueCannotBeConverted (ec, vi.Location, variable_type, false);
                                        continue;
                                }

                                constants.Add (name, e);
                                vi.IsConstant = true;
                        }
                }

                protected void ResolveMeta (BlockContext ec, int offset)
                {
                        Report.Debug (64, "BLOCK RESOLVE META", this, Parent);

                        // If some parent block was unsafe, we remain unsafe even if this block
                        // isn't explicitly marked as such.
                        using (ec.With (ResolveContext.Options.UnsafeScope, ec.IsUnsafe | Unsafe)) {
                                flags |= Flags.VariablesInitialized;

                                if (variables != null) {
                                        foreach (LocalInfo li in variables.Values) {
                                                if (!li.Resolve (ec))
                                                        continue;
                                                li.VariableInfo = new VariableInfo (li, offset);
                                                offset += li.VariableInfo.Length;
                                        }
                                }
                                assignable_slots = offset;

                                DoResolveConstants (ec);

                                if (children == null)
                                        return;
                                foreach (Block b in children)
                                        b.ResolveMeta (ec, offset);
                        }
                }

                //
                // Emits the local variable declarations for a block
                //
                public virtual void EmitMeta (EmitContext ec)
                {
                        if (variables != null){
                                foreach (LocalInfo vi in variables.Values)
                                        vi.ResolveVariable (ec);
                        }

                        if (temporary_variables != null) {
                                for (int i = 0; i < temporary_variables.Count; i++)
                                        ((LocalInfo)temporary_variables[i]).ResolveVariable(ec);
                        }

                        if (children != null) {
                                for (int i = 0; i < children.Count; i++)
                                        ((Block)children[i]).EmitMeta(ec);
                        }
                }

                void UsageWarning (BlockContext ec)
                {
                        if (variables == null || ec.Report.WarningLevel < 3)
                                return;

                        foreach (DictionaryEntry de in variables) {
                                LocalInfo vi = (LocalInfo) de.Value;

                                if (!vi.Used) {
                                        string name = (string) de.Key;

                                        // vi.VariableInfo can be null for 'catch' variables
                                        if (vi.VariableInfo != null && vi.VariableInfo.IsEverAssigned)
                                                ec.Report.Warning (219, 3, vi.Location, "The variable `{0}' is assigned but its value is never used", name);
                                        else
                                                ec.Report.Warning (168, 3, vi.Location, "The variable `{0}' is declared but never used", name);
                                }
                        }
                }

                static void CheckPossibleMistakenEmptyStatement (BlockContext ec, Statement s)
                {
                        Statement body;

                        // Some statements are wrapped by a Block. Since
                        // others' internal could be changed, here I treat
                        // them as possibly wrapped by Block equally.
                        Block b = s as Block;
                        if (b != null && b.statements.Count == 1)
                                s = (Statement) b.statements [0];

                        if (s is Lock)
                                body = ((Lock) s).Statement;
                        else if (s is For)
                                body = ((For) s).Statement;
                        else if (s is Foreach)
                                body = ((Foreach) s).Statement;
                        else if (s is While)
                                body = ((While) s).Statement;
                        else if (s is Fixed)
                                body = ((Fixed) s).Statement;
                        else if (s is Using)
                                body = ((Using) s).EmbeddedStatement;
                        else if (s is UsingTemporary)
                                body = ((UsingTemporary) s).Statement;
                        else
                                return;

                        if (body == null || body is EmptyStatement)
                                ec.Report.Warning (642, 3, s.loc, "Possible mistaken empty statement");
                }

                public override bool Resolve (BlockContext ec)
                {
                        Block prev_block = ec.CurrentBlock;
                        bool ok = true;

                        int errors = ec.Report.Errors;

                        ec.CurrentBlock = this;
                        ec.StartFlowBranching (this);

                        Report.Debug (4, "RESOLVE BLOCK", StartLocation, ec.CurrentBranching);

                        //
                        // Compiler generated scope statements
                        //
                        if (scope_initializers != null) {
                                foreach (Statement s in scope_initializers)
                                        s.Resolve (ec);
                        }

                        //
                        // This flag is used to notate nested statements as unreachable from the beginning of this block.
                        // For the purposes of this resolution, it doesn't matter that the whole block is unreachable 
                        // from the beginning of the function.  The outer Resolve() that detected the unreachability is
                        // responsible for handling the situation.
                        //
                        int statement_count = statements.Count;
                        for (int ix = 0; ix < statement_count; ix++){
                                Statement s = (Statement) statements [ix];
                                if (s == null)
                                        continue; 
                                
                                // Check possible empty statement (CS0642)
                                if (ix + 1 < statement_count && ec.Report.WarningLevel >= 3 &&
                                        statements [ix + 1] is ExplicitBlock)
                                        CheckPossibleMistakenEmptyStatement (ec, s);

                                //
                                // Warn if we detect unreachable code.
                                //
                                if (unreachable) {
                                        if (s is EmptyStatement)
                                                continue;

                                        if (!unreachable_shown && !(s is LabeledStatement)) {
                                                ec.Report.Warning (162, 2, s.loc, "Unreachable code detected");
                                                unreachable_shown = true;
                                        }

                                        Block c_block = s as Block;
                                        if (c_block != null)
                                                c_block.unreachable = c_block.unreachable_shown = true;
                                }

                                //
                                // Note that we're not using ResolveUnreachable() for unreachable
                                // statements here.  ResolveUnreachable() creates a temporary
                                // flow branching and kills it afterwards.  This leads to problems
                                // if you have two unreachable statements where the first one
                                // assigns a variable and the second one tries to access it.
                                //

                                if (!s.Resolve (ec)) {
                                        ok = false;
                                        if (ec.IsInProbingMode)
                                                break;

                                        statements [ix] = EmptyStatement.Value;
                                        continue;
                                }

                                if (unreachable && !(s is LabeledStatement) && !(s is Block))
                                        statements [ix] = EmptyStatement.Value;

                                unreachable = ec.CurrentBranching.CurrentUsageVector.IsUnreachable;
                                if (unreachable && s is LabeledStatement)
                                        throw new InternalErrorException ("should not happen");
                        }

                        Report.Debug (4, "RESOLVE BLOCK DONE", StartLocation,
                                      ec.CurrentBranching, statement_count);

                        while (ec.CurrentBranching is FlowBranchingLabeled)
                                ec.EndFlowBranching ();

                        bool flow_unreachable = ec.EndFlowBranching ();

                        ec.CurrentBlock = prev_block;

                        if (flow_unreachable)
                                flags |= Flags.HasRet;

                        // If we're a non-static `struct' constructor which doesn't have an
                        // initializer, then we must initialize all of the struct's fields.
                        if (this == Toplevel && !Toplevel.IsThisAssigned (ec) && !flow_unreachable)
                                ok = false;

                        if ((labels != null) && (ec.Report.WarningLevel >= 2)) {
                                foreach (LabeledStatement label in labels.Values)
                                        if (!label.HasBeenReferenced)
                                                ec.Report.Warning (164, 2, label.loc, "This label has not been referenced");
                        }

                        if (ok && errors == ec.Report.Errors)
                                UsageWarning (ec);

                        return ok;
                }

                public override bool ResolveUnreachable (BlockContext ec, bool warn)
                {
                        unreachable_shown = true;
                        unreachable = true;

                        if (warn)
                                ec.Report.Warning (162, 2, loc, "Unreachable code detected");

                        ec.StartFlowBranching (FlowBranching.BranchingType.Block, loc);
                        bool ok = Resolve (ec);
                        ec.KillFlowBranching ();

                        return ok;
                }
                
                protected override void DoEmit (EmitContext ec)
                {
                        for (int ix = 0; ix < statements.Count; ix++){
                                Statement s = (Statement) statements [ix];
                                s.Emit (ec);
                        }
                }

                public override void Emit (EmitContext ec)
                {
                        if (scope_initializers != null)
                                EmitScopeInitializers (ec);

                        ec.Mark (StartLocation);
                        DoEmit (ec);

                        if (SymbolWriter.HasSymbolWriter)
                                EmitSymbolInfo (ec);
                }

                protected void EmitScopeInitializers (EmitContext ec)
                {
                        SymbolWriter.OpenCompilerGeneratedBlock (ec.ig);

                        using (ec.With (EmitContext.Options.OmitDebugInfo, true)) {
                                foreach (Statement s in scope_initializers)
                                        s.Emit (ec);
                        }

                        SymbolWriter.CloseCompilerGeneratedBlock (ec.ig);
                }

                protected virtual void EmitSymbolInfo (EmitContext ec)
                {
                        if (variables != null) {
                                foreach (LocalInfo vi in variables.Values) {
                                        vi.EmitSymbolInfo (ec);
                                }
                        }
                }

                public override void MutateHoistedGenericType (AnonymousMethodStorey storey)
                {
                        MutateVariables (storey);

                        if (scope_initializers != null) {
                                foreach (Statement s in scope_initializers)
                                        s.MutateHoistedGenericType (storey);
                        }

                        foreach (Statement s in statements)
                                s.MutateHoistedGenericType (storey);
                }

                void MutateVariables (AnonymousMethodStorey storey)
                {
                        if (variables != null) {
                                foreach (LocalInfo vi in variables.Values) {
                                        vi.VariableType = storey.MutateType (vi.VariableType);
                                }
                        }

                        if (temporary_variables != null) {
                                foreach (LocalInfo vi in temporary_variables)
                                        vi.VariableType = storey.MutateType (vi.VariableType);
                        }
                }

                public override string ToString ()
                {
                        return String.Format ("{0} ({1}:{2})", GetType (),ID, StartLocation);
                }

                protected override void CloneTo (CloneContext clonectx, Statement t)
                {
                        Block target = (Block) t;

                        clonectx.AddBlockMap (this, target);

                        //target.Toplevel = (ToplevelBlock) clonectx.LookupBlock (Toplevel);
                        target.Explicit = (ExplicitBlock) clonectx.LookupBlock (Explicit);
                        if (Parent != null)
                                target.Parent = clonectx.RemapBlockCopy (Parent);

                        if (variables != null){
                                target.variables = new Hashtable ();

                                foreach (DictionaryEntry de in variables){
                                        LocalInfo newlocal = ((LocalInfo) de.Value).Clone (clonectx);
                                        target.variables [de.Key] = newlocal;
                                        clonectx.AddVariableMap ((LocalInfo) de.Value, newlocal);
                                }
                        }

                        target.statements = new ArrayList (statements.Count);
                        foreach (Statement s in statements)
                                target.statements.Add (s.Clone (clonectx));

                        if (target.children != null){
                                target.children = new ArrayList (children.Count);
                                foreach (Block b in children){
                                        target.children.Add (clonectx.LookupBlock (b));
                                }
                        }

                        //
                        // TODO: labels, switch_block, constants (?), anonymous_children
                        //
                }
        }

        public class ExplicitBlock : Block {
                HybridDictionary known_variables;
                protected AnonymousMethodStorey am_storey;

                public ExplicitBlock (Block parent, Location start, Location end)
                        : this (parent, (Flags) 0, start, end)
                {
                }

                public ExplicitBlock (Block parent, Flags flags, Location start, Location end)
                        : base (parent, flags, start, end)
                {
                        this.Explicit = this;
                }

                // <summary>
                //   Marks a variable with name @name as being used in this or a child block.
                //   If a variable name has been used in a child block, it's illegal to
                //   declare a variable with the same name in the current block.
                // </summary>
                internal void AddKnownVariable (string name, IKnownVariable info)
                {
                        if (known_variables == null)
                                known_variables = new HybridDictionary();

                        known_variables [name] = info;

                        if (Parent != null)
                                Parent.Explicit.AddKnownVariable (name, info);
                }

                public AnonymousMethodStorey AnonymousMethodStorey {
                        get { return am_storey; }
                }

                //
                // Creates anonymous method storey in current block
                //
                public AnonymousMethodStorey CreateAnonymousMethodStorey (ResolveContext ec)
                {
                        //
                        // When referencing a variable in iterator storey from children anonymous method
                        //
                        if (Toplevel.am_storey is IteratorStorey) {
                                return Toplevel.am_storey;
                        }

                        //
                        // An iterator has only 1 storey block
                        //
                        if (ec.CurrentIterator != null)
                            return ec.CurrentIterator.Storey;

                        if (am_storey == null) {
                                MemberBase mc = ec.MemberContext as MemberBase;
                                GenericMethod gm = mc == null ? null : mc.GenericMethod;

                                //
                                // Creates anonymous method storey for this block
                                //
                                am_storey = new AnonymousMethodStorey (this, ec.CurrentTypeDefinition, mc, gm, "AnonStorey");
                        }

                        return am_storey;
                }

                public override void Emit (EmitContext ec)
                {
                        if (am_storey != null)
                                am_storey.EmitStoreyInstantiation (ec);

                        bool emit_debug_info = SymbolWriter.HasSymbolWriter && Parent != null && !(am_storey is IteratorStorey);
                        if (emit_debug_info)
                                ec.BeginScope ();

                        base.Emit (ec);

                        if (emit_debug_info)
                                ec.EndScope ();
                }

                public override void EmitMeta (EmitContext ec)
                {
                        //
                        // Creates anonymous method storey
                        //
                        if (am_storey != null) {
                                if (ec.CurrentAnonymousMethod != null && ec.CurrentAnonymousMethod.Storey != null) {
                                        //
                                        // Creates parent storey reference when hoisted this is accessible
                                        //
                                        if (am_storey.OriginalSourceBlock.Explicit.HasCapturedThis) {
                                                ExplicitBlock parent = Toplevel.Parent.Explicit;

                                                //
                                                // Hoisted this exists in top-level parent storey only
                                                //
                                                while (parent.am_storey == null || parent.am_storey.Parent is AnonymousMethodStorey)
                                                        parent = parent.Parent.Explicit;

                                                am_storey.AddParentStoreyReference (parent.am_storey);
                                        }

                                        am_storey.ChangeParentStorey (ec.CurrentAnonymousMethod.Storey);
                                }

                                am_storey.DefineType ();
                                am_storey.ResolveType ();
                                am_storey.Define ();
                                am_storey.Parent.PartialContainer.AddCompilerGeneratedClass (am_storey);

                                ArrayList ref_blocks = am_storey.ReferencesFromChildrenBlock;
                                if (ref_blocks != null) {
                                        foreach (ExplicitBlock ref_block in ref_blocks) {
                                                for (ExplicitBlock b = ref_block.Explicit; b != this; b = b.Parent.Explicit) {
                                                        if (b.am_storey != null) {
                                                                b.am_storey.AddParentStoreyReference (am_storey);

                                                                // Stop propagation inside same top block
                                                                if (b.Toplevel == Toplevel)
                                                                        break;

                                                                b = b.Toplevel;
                                                    }
                                                        b.HasCapturedVariable = true;
                                                }
                                        }
                                }
                        }

                        base.EmitMeta (ec);
                }

                internal IKnownVariable GetKnownVariable (string name)
                {
                        return known_variables == null ? null : (IKnownVariable) known_variables [name];
                }

                public bool HasCapturedThis
                {
                        set { flags = value ? flags | Flags.HasCapturedThis : flags & ~Flags.HasCapturedThis; }
                        get { return (flags & Flags.HasCapturedThis) != 0; }
                }

                public bool HasCapturedVariable
                {
                        set { flags = value ? flags | Flags.HasCapturedVariable : flags & ~Flags.HasCapturedVariable; }
                        get { return (flags & Flags.HasCapturedVariable) != 0; }
                }

                protected override void CloneTo (CloneContext clonectx, Statement t)
                {
                        ExplicitBlock target = (ExplicitBlock) t;
                        target.known_variables = null;
                        base.CloneTo (clonectx, t);
                }
        }

        public class ToplevelParameterInfo : IKnownVariable {
                public readonly ToplevelBlock Block;
                public readonly int Index;
                public VariableInfo VariableInfo;

                Block IKnownVariable.Block {
                        get { return Block; }
                }
                public Parameter Parameter {
                        get { return Block.Parameters [Index]; }
                }

                public Type ParameterType {
                        get { return Block.Parameters.Types [Index]; }
                }

                public Location Location {
                        get { return Parameter.Location; }
                }

                public ToplevelParameterInfo (ToplevelBlock block, int idx)
                {
                        this.Block = block;
                        this.Index = idx;
                }
        }

        //
        // A toplevel block contains extra information, the split is done
        // only to separate information that would otherwise bloat the more
        // lightweight Block.
        //
        // In particular, this was introduced when the support for Anonymous
        // Methods was implemented. 
        // 
        public class ToplevelBlock : ExplicitBlock
        {
                // 
                // Block is converted to an expression
                //
                sealed class BlockScopeExpression : Expression
                {
                        Expression child;
                        readonly ToplevelBlock block;

                        public BlockScopeExpression (Expression child, ToplevelBlock block)
                        {
                                this.child = child;
                                this.block = block;
                        }

                        public override Expression CreateExpressionTree (ResolveContext ec)
                        {
                                throw new NotSupportedException ();
                        }

                        public override Expression DoResolve (ResolveContext ec)
                        {
                                if (child == null)
                                        return null;
                                
                                child = child.Resolve (ec);
                                if (child == null)
                                        return null;

                                eclass = child.eclass;
                                type = child.Type;
                                return this;
                        }

                        public override void Emit (EmitContext ec)
                        {
                                block.EmitMeta (ec);
                                block.EmitScopeInitializers (ec);
                                child.Emit (ec);
                        }

                        public override void MutateHoistedGenericType (AnonymousMethodStorey storey)
                        {
                                type = storey.MutateType (type);
                                child.MutateHoistedGenericType (storey);
                                block.MutateHoistedGenericType (storey);
                        }
                }

                GenericMethod generic;
                protected ParametersCompiled parameters;
                ToplevelParameterInfo[] parameter_info;
                LocalInfo this_variable;
                bool resolved;
                bool unreachable;
                CompilerContext compiler;

                public HoistedVariable HoistedThisVariable;

                public bool Resolved {
                        get {
                                return resolved;
                        }
                }

                //
                // The parameters for the block.
                //
                public ParametersCompiled Parameters {
                        get { return parameters; }
                }

                public Report Report {
                        get { return compiler.Report; }
                }

                public GenericMethod GenericMethod {
                        get { return generic; }
                }

                public ToplevelBlock Container {
                        get { return Parent == null ? null : Parent.Toplevel; }
                }

                public ToplevelBlock (CompilerContext ctx, Block parent, ParametersCompiled parameters, Location start) :
                        this (ctx, parent, (Flags) 0, parameters, start)
                {
                }

                public ToplevelBlock (CompilerContext ctx, Block parent, ParametersCompiled parameters, GenericMethod generic, Location start) :
                        this (ctx, parent, parameters, start)
                {
                        this.generic = generic;
                }

                public ToplevelBlock (CompilerContext ctx, ParametersCompiled parameters, Location start) :
                        this (ctx, null, (Flags) 0, parameters, start)
                {
                }

                ToplevelBlock (CompilerContext ctx, Flags flags, ParametersCompiled parameters, Location start) :
                        this (ctx, null, flags, parameters, start)
                {
                }

                // We use 'Parent' to hook up to the containing block, but don't want to register the current block as a child.
                // So, we use a two-stage setup -- first pass a null parent to the base constructor, and then override 'Parent'.
                public ToplevelBlock (CompilerContext ctx, Block parent, Flags flags, ParametersCompiled parameters, Location start) :
                        base (null, flags, start, Location.Null)
                {
                        this.compiler = ctx;
                        this.Toplevel = this;

                        this.parameters = parameters;
                        this.Parent = parent;
                        if (parent != null)
                                parent.AddAnonymousChild (this);

                        if (!this.parameters.IsEmpty)
                                ProcessParameters ();
                }

                public ToplevelBlock (CompilerContext ctx, Location loc)
                        : this (ctx, null, (Flags) 0, ParametersCompiled.EmptyReadOnlyParameters, loc)
                {
                }

                protected override void CloneTo (CloneContext clonectx, Statement t)
                {
                        ToplevelBlock target = (ToplevelBlock) t;
                        base.CloneTo (clonectx, t);

                        if (parameters.Count != 0)
                                target.parameter_info = new ToplevelParameterInfo [parameters.Count];
                        for (int i = 0; i < parameters.Count; ++i)
                                target.parameter_info [i] = new ToplevelParameterInfo (target, i);
                }

                public bool CheckError158 (string name, Location loc)
                {
                        if (AnonymousChildren != null) {
                                foreach (ToplevelBlock child in AnonymousChildren) {
                                        if (!child.CheckError158 (name, loc))
                                                return false;
                                }
                        }

                        for (ToplevelBlock c = Container; c != null; c = c.Container) {
                                if (!c.DoCheckError158 (name, loc))
                                        return false;
                        }

                        return true;
                }

                void ProcessParameters ()
                {
                        int n = parameters.Count;
                        parameter_info = new ToplevelParameterInfo [n];
                        ToplevelBlock top_parent = Parent == null ? null : Parent.Toplevel;
                        for (int i = 0; i < n; ++i) {
                                parameter_info [i] = new ToplevelParameterInfo (this, i);

                                Parameter p = parameters [i];
                                if (p == null)
                                        continue;

                                string name = p.Name;
                                if (CheckParentConflictName (top_parent, name, loc))
                                        AddKnownVariable (name, parameter_info [i]);
                        }

                        // mark this block as "used" so that we create local declarations in a sub-block
                        // FIXME: This appears to uncover a lot of bugs
                        //this.Use ();
                }

                bool DoCheckError158 (string name, Location loc)
                {
                        LabeledStatement s = LookupLabel (name);
                        if (s != null) {
                                Report.SymbolRelatedToPreviousError (s.loc, s.Name);
                                Error_158 (name, loc);
                                return false;
                        }

                        return true;
                }

                public override Expression CreateExpressionTree (ResolveContext ec)
                {
                        if (statements.Count == 1) {
                                Expression expr = ((Statement) statements[0]).CreateExpressionTree (ec);
                                if (scope_initializers != null)
                                        expr = new BlockScopeExpression (expr, this);

                                return expr;
                        }

                        return base.CreateExpressionTree (ec);
                }

                //
                // Reformats this block to be top-level iterator block
                //
                public IteratorStorey ChangeToIterator (Iterator iterator, ToplevelBlock source)
                {
                        IsIterator = true;

                        // Creates block with original statements
                        AddStatement (new IteratorStatement (iterator, new Block (this, source)));

                        source.statements = new ArrayList (1);
                        source.AddStatement (new Return (iterator, iterator.Location));
                        source.IsIterator = false;

                        IteratorStorey iterator_storey = new IteratorStorey (iterator);
                        source.am_storey = iterator_storey;
                        return iterator_storey;
                }

                //
                // Returns a parameter reference expression for the given name,
                // or null if there is no such parameter
                //
                public Expression GetParameterReference (string name, Location loc)
                {
                        for (ToplevelBlock t = this; t != null; t = t.Container) {
                                Expression expr = t.GetParameterReferenceExpression (name, loc);
                                if (expr != null)
                                        return expr;
                        }

                        return null;
                }

                protected virtual Expression GetParameterReferenceExpression (string name, Location loc)
                {
                        int idx = parameters.GetParameterIndexByName (name);
                        return idx < 0 ?
                                null : new ParameterReference (parameter_info [idx], loc);
                }

                // <summary>
                //   Returns the "this" instance variable of this block.
                //   See AddThisVariable() for more information.
                // </summary>
                public LocalInfo ThisVariable {
                        get { return this_variable; }
                }

                // <summary>
                //   This is used by non-static `struct' constructors which do not have an
                //   initializer - in this case, the constructor must initialize all of the
                //   struct's fields.  To do this, we add a "this" variable and use the flow
                //   analysis code to ensure that it's been fully initialized before control
                //   leaves the constructor.
                // </summary>
                public LocalInfo AddThisVariable (DeclSpace ds, Location l)
                {
                        if (this_variable == null) {
                                this_variable = new LocalInfo (ds, this, l);
                                this_variable.Used = true;
                                this_variable.IsThis = true;

                                Variables.Add ("this", this_variable);
                        }

                        return this_variable;
                }

                public bool IsIterator {
                        get { return (flags & Flags.IsIterator) != 0; }
                        set { flags = value ? flags | Flags.IsIterator : flags & ~Flags.IsIterator; }
                }

                public bool IsThisAssigned (BlockContext ec)
                {
                        return this_variable == null || this_variable.IsThisAssigned (ec, this);
                }

                public bool Resolve (FlowBranching parent, BlockContext rc, ParametersCompiled ip, IMethodData md)
                {
                        if (resolved)
                                return true;

                        resolved = true;

                        try {
                                if (!ResolveMeta (rc, ip))
                                        return false;

                                using (rc.With (ResolveContext.Options.DoFlowAnalysis, true)) {
                                        FlowBranchingToplevel top_level = rc.StartFlowBranching (this, parent);

                                        if (!Resolve (rc))
                                                return false;

                                        unreachable = top_level.End ();
                                }
                        } catch (Exception) {
#if PRODUCTION
                                if (rc.CurrentBlock != null) {
                                        ec.Report.Error (584, rc.CurrentBlock.StartLocation, "Internal compiler error: Phase Resolve");
                                } else {
                                        ec.Report.Error (587, "Internal compiler error: Phase Resolve");
                                }
#endif
                                throw;
                        }

                        if (rc.ReturnType != TypeManager.void_type && !unreachable) {
                                if (rc.CurrentAnonymousMethod == null) {
                                        rc.Report.Error (161, md.Location, "`{0}': not all code paths return a value", md.GetSignatureForError ());
                                        return false;
                                } else if (!rc.CurrentAnonymousMethod.IsIterator) {
                                        rc.Report.Error (1643, rc.CurrentAnonymousMethod.Location, "Not all code paths return a value in anonymous method of type `{0}'",
                                                          rc.CurrentAnonymousMethod.GetSignatureForError ());
                                        return false;
                                }
                        }

                        return true;
                }

                bool ResolveMeta (BlockContext ec, ParametersCompiled ip)
                {
                        int errors = ec.Report.Errors;
                        int orig_count = parameters.Count;

                        if (ip != null)
                                parameters = ip;

                        // Assert: orig_count != parameter.Count => orig_count == 0
                        if (orig_count != 0 && orig_count != parameters.Count)
                                throw new InternalErrorException ("parameter information mismatch");

                        int offset = Parent == null ? 0 : Parent.AssignableSlots;

                        for (int i = 0; i < orig_count; ++i) {
                                Parameter.Modifier mod = parameters.FixedParameters [i].ModFlags;

                                if ((mod & Parameter.Modifier.OUT) != Parameter.Modifier.OUT)
                                        continue;

                                VariableInfo vi = new VariableInfo (ip, i, offset);
                                parameter_info [i].VariableInfo = vi;
                                offset += vi.Length;
                        }

                        ResolveMeta (ec, offset);

                        return ec.Report.Errors == errors;
                }

                // <summary>
                //   Check whether all `out' parameters have been assigned.
                // </summary>
                public void CheckOutParameters (FlowBranching.UsageVector vector, Location loc)
                {
                        if (vector.IsUnreachable)
                                return;

                        int n = parameter_info == null ? 0 : parameter_info.Length;

                        for (int i = 0; i < n; i++) {
                                VariableInfo var = parameter_info [i].VariableInfo;

                                if (var == null)
                                        continue;

                                if (vector.IsAssigned (var, false))
                                        continue;

                                Report.Error (177, loc, "The out parameter `{0}' must be assigned to before control leaves the current method",
                                        var.Name);
                        }
                }

                public override void Emit (EmitContext ec)
                {
                        if (Report.Errors > 0)
                                return;

#if PRODUCTION
                        try {
#endif
                        EmitMeta (ec);

                        if (ec.HasReturnLabel)
                                ec.ReturnLabel = ec.ig.DefineLabel ();

                        base.Emit (ec);

                        ec.Mark (EndLocation);

                        if (ec.HasReturnLabel)
                                ec.ig.MarkLabel (ec.ReturnLabel);

                        if (ec.return_value != null) {
                                ec.ig.Emit (OpCodes.Ldloc, ec.return_value);
                                ec.ig.Emit (OpCodes.Ret);
                        } else {
                                //
                                // If `HasReturnLabel' is set, then we already emitted a
                                // jump to the end of the method, so we must emit a `ret'
                                // there.
                                //
                                // Unfortunately, System.Reflection.Emit automatically emits
                                // a leave to the end of a finally block.  This is a problem
                                // if no code is following the try/finally block since we may
                                // jump to a point after the end of the method.
                                // As a workaround, we're always creating a return label in
                                // this case.
                                //

                                if (ec.HasReturnLabel || !unreachable) {
                                        if (ec.ReturnType != TypeManager.void_type)
                                                ec.ig.Emit (OpCodes.Ldloc, ec.TemporaryReturn ());
                                        ec.ig.Emit (OpCodes.Ret);
                                }
                        }

#if PRODUCTION
                        } catch (Exception e){
                                Console.WriteLine ("Exception caught by the compiler while emitting:");
                                Console.WriteLine ("   Block that caused the problem begin at: " + block.loc);
                                        
                                Console.WriteLine (e.GetType ().FullName + ": " + e.Message);
                                throw;
                        }
#endif
                }

                public override void EmitMeta (EmitContext ec)
                {
                        parameters.ResolveVariable ();

                        // Avoid declaring an IL variable for this_variable since it is not accessed
                        // from the generated IL
                        if (this_variable != null)
                                Variables.Remove ("this");
                        base.EmitMeta (ec);
                }

                protected override void EmitSymbolInfo (EmitContext ec)
                {
                        AnonymousExpression ae = ec.CurrentAnonymousMethod;
                        if ((ae != null) && (ae.Storey != null))
                                SymbolWriter.DefineScopeVariable (ae.Storey.ID);

                        base.EmitSymbolInfo (ec);
                }
        }
        
        public class SwitchLabel {
                Expression label;
                object converted;
                Location loc;

                Label il_label;
                bool  il_label_set;
                Label il_label_code;
                bool  il_label_code_set;

                public static readonly object NullStringCase = new object ();

                //
                // if expr == null, then it is the default case.
                //
                public SwitchLabel (Expression expr, Location l)
                {
                        label = expr;
                        loc = l;
                }

                public Expression Label {
                        get {
                                return label;
                        }
                }

                public Location Location {
                        get { return loc; }
                }

                public object Converted {
                        get {
                                return converted;
                        }
                }

                public Label GetILLabel (EmitContext ec)
                {
                        if (!il_label_set){
                                il_label = ec.ig.DefineLabel ();
                                il_label_set = true;
                        }
                        return il_label;
                }

                public Label GetILLabelCode (EmitContext ec)
                {
                        if (!il_label_code_set){
                                il_label_code = ec.ig.DefineLabel ();
                                il_label_code_set = true;
                        }
                        return il_label_code;
                }                               
                
                //
                // Resolves the expression, reduces it to a literal if possible
                // and then converts it to the requested type.
                //
                public bool ResolveAndReduce (ResolveContext ec, Type required_type, bool allow_nullable)
                {       
                        Expression e = label.Resolve (ec);

                        if (e == null)
                                return false;

                        Constant c = e as Constant;
                        if (c == null){
                                ec.Report.Error (150, loc, "A constant value is expected");
                                return false;
                        }

                        if (required_type == TypeManager.string_type && c.GetValue () == null) {
                                converted = NullStringCase;
                                return true;
                        }

                        if (allow_nullable && c.GetValue () == null) {
                                converted = NullStringCase;
                                return true;
                        }
                        
                        c = c.ImplicitConversionRequired (ec, required_type, loc);
                        if (c == null)
                                return false;

                        converted = c.GetValue ();
                        return true;
                }

                public void Error_AlreadyOccurs (ResolveContext ec, Type switch_type, SwitchLabel collision_with)
                {
                        string label;
                        if (converted == null)
                                label = "default";
                        else if (converted == NullStringCase)
                                label = "null";
                        else
                                label = converted.ToString ();
                        
                        ec.Report.SymbolRelatedToPreviousError (collision_with.loc, null);
                        ec.Report.Error (152, loc, "The label `case {0}:' already occurs in this switch statement", label);
                }

                public SwitchLabel Clone (CloneContext clonectx)
                {
                        return new SwitchLabel (label.Clone (clonectx), loc);
                }
        }

        public class SwitchSection {
                // An array of SwitchLabels.
                public readonly ArrayList Labels;
                public readonly Block Block;
                
                public SwitchSection (ArrayList labels, Block block)
                {
                        Labels = labels;
                        Block = block;
                }

                public SwitchSection Clone (CloneContext clonectx)
                {
                        ArrayList cloned_labels = new ArrayList ();

                        foreach (SwitchLabel sl in cloned_labels)
                                cloned_labels.Add (sl.Clone (clonectx));
                        
                        return new SwitchSection (cloned_labels, clonectx.LookupBlock (Block));
                }
        }
        
        public class Switch : Statement {
                public ArrayList Sections;
                public Expression Expr;

                /// <summary>
                ///   Maps constants whose type type SwitchType to their  SwitchLabels.
                /// </summary>
                public IDictionary Elements;

                /// <summary>
                ///   The governing switch type
                /// </summary>
                public Type SwitchType;

                //
                // Computed
                //
                Label default_target;
                Label null_target;
                Expression new_expr;
                bool is_constant;
                bool has_null_case;
                SwitchSection constant_section;
                SwitchSection default_section;

                ExpressionStatement string_dictionary;
                FieldExpr switch_cache_field;
                static int unique_counter;

                //
                // Nullable Types support
                //
                Nullable.Unwrap unwrap;

                protected bool HaveUnwrap {
                        get { return unwrap != null; }
                }

                //
                // The types allowed to be implicitly cast from
                // on the governing type
                //
                static Type [] allowed_types;
                
                public Switch (Expression e, ArrayList sects, Location l)
                {
                        Expr = e;
                        Sections = sects;
                        loc = l;
                }

                public bool GotDefault {
                        get {
                                return default_section != null;
                        }
                }

                public Label DefaultTarget {
                        get {
                                return default_target;
                        }
                }

                //
                // Determines the governing type for a switch.  The returned
                // expression might be the expression from the switch, or an
                // expression that includes any potential conversions to the
                // integral types or to string.
                //
                Expression SwitchGoverningType (ResolveContext ec, Expression expr)
                {
                        Type t = expr.Type;

                        if (t == TypeManager.byte_type ||
                            t == TypeManager.sbyte_type ||
                            t == TypeManager.ushort_type ||
                            t == TypeManager.short_type ||
                            t == TypeManager.uint32_type ||
                            t == TypeManager.int32_type ||
                            t == TypeManager.uint64_type ||
                            t == TypeManager.int64_type ||
                            t == TypeManager.char_type ||
                            t == TypeManager.string_type ||
                            t == TypeManager.bool_type ||
                            TypeManager.IsEnumType (t))
                                return expr;

                        if (allowed_types == null){
                                allowed_types = new Type [] {
                                        TypeManager.sbyte_type,
                                        TypeManager.byte_type,
                                        TypeManager.short_type,
                                        TypeManager.ushort_type,
                                        TypeManager.int32_type,
                                        TypeManager.uint32_type,
                                        TypeManager.int64_type,
                                        TypeManager.uint64_type,
                                        TypeManager.char_type,
                                        TypeManager.string_type
                                };
                        }

                        //
                        // Try to find a *user* defined implicit conversion.
                        //
                        // If there is no implicit conversion, or if there are multiple
                        // conversions, we have to report an error
                        //
                        Expression converted = null;
                        foreach (Type tt in allowed_types){
                                Expression e;
                                
                                e = Convert.ImplicitUserConversion (ec, expr, tt, loc);
                                if (e == null)
                                        continue;

                                //
                                // Ignore over-worked ImplicitUserConversions that do
                                // an implicit conversion in addition to the user conversion.
                                // 
                                if (!(e is UserCast))
                                        continue;

                                if (converted != null){
                                        ec.Report.ExtraInformation (loc, "(Ambiguous implicit user defined conversion in previous ");
                                        return null;
                                }

                                converted = e;
                        }
                        return converted;
                }

                //
                // Performs the basic sanity checks on the switch statement
                // (looks for duplicate keys and non-constant expressions).
                //
                // It also returns a hashtable with the keys that we will later
                // use to compute the switch tables
                //
                bool CheckSwitch (ResolveContext ec)
                {
                        bool error = false;
                        Elements = Sections.Count > 10 ? 
                                (IDictionary)new Hashtable () : 
                                (IDictionary)new ListDictionary ();
                                
                        foreach (SwitchSection ss in Sections){
                                foreach (SwitchLabel sl in ss.Labels){
                                        if (sl.Label == null){
                                                if (default_section != null){
                                                        sl.Error_AlreadyOccurs (ec, SwitchType, (SwitchLabel)default_section.Labels [0]);
                                                        error = true;
                                                }
                                                default_section = ss;
                                                continue;
                                        }

                                        if (!sl.ResolveAndReduce (ec, SwitchType, HaveUnwrap)) {
                                                error = true;
                                                continue;
                                        }
                                        
                                        object key = sl.Converted;
                                        if (key == SwitchLabel.NullStringCase)
                                                has_null_case = true;

                                        try {
                                                Elements.Add (key, sl);
                                        } catch (ArgumentException) {
                                                sl.Error_AlreadyOccurs (ec, SwitchType, (SwitchLabel)Elements [key]);
                                                error = true;
                                        }
                                }
                        }
                        return !error;
                }

                void EmitObjectInteger (ILGenerator ig, object k)
                {
                        if (k is int)
                                IntConstant.EmitInt (ig, (int) k);
                        else if (k is Constant) {
                                EmitObjectInteger (ig, ((Constant) k).GetValue ());
                        } 
                        else if (k is uint)
                                IntConstant.EmitInt (ig, unchecked ((int) (uint) k));
                        else if (k is long)
                        {
                                if ((long) k >= int.MinValue && (long) k <= int.MaxValue)
                                {
                                        IntConstant.EmitInt (ig, (int) (long) k);
                                        ig.Emit (OpCodes.Conv_I8);
                                }
                                else
                                        LongConstant.EmitLong (ig, (long) k);
                        }
                        else if (k is ulong)
                        {
                                ulong ul = (ulong) k;
                                if (ul < (1L<<32))
                                {
                                        IntConstant.EmitInt (ig, unchecked ((int) ul));
                                        ig.Emit (OpCodes.Conv_U8);
                                }
                                else
                                {
                                        LongConstant.EmitLong (ig, unchecked ((long) ul));
                                }
                        }
                        else if (k is char)
                                IntConstant.EmitInt (ig, (int) ((char) k));
                        else if (k is sbyte)
                                IntConstant.EmitInt (ig, (int) ((sbyte) k));
                        else if (k is byte)
                                IntConstant.EmitInt (ig, (int) ((byte) k));
                        else if (k is short)
                                IntConstant.EmitInt (ig, (int) ((short) k));
                        else if (k is ushort)
                                IntConstant.EmitInt (ig, (int) ((ushort) k));
                        else if (k is bool)
                                IntConstant.EmitInt (ig, ((bool) k) ? 1 : 0);
                        else
                                throw new Exception ("Unhandled case");
                }
                
                // structure used to hold blocks of keys while calculating table switch
                class KeyBlock : IComparable
                {
                        public KeyBlock (long _first)
                        {
                                first = last = _first;
                        }
                        public long first;
                        public long last;
                        public ArrayList element_keys = null;
                        // how many items are in the bucket
                        public int Size = 1;
                        public int Length
                        {
                                get { return (int) (last - first + 1); }
                        }
                        public static long TotalLength (KeyBlock kb_first, KeyBlock kb_last)
                        {
                                return kb_last.last - kb_first.first + 1;
                        }
                        public int CompareTo (object obj)
                        {
                                KeyBlock kb = (KeyBlock) obj;
                                int nLength = Length;
                                int nLengthOther = kb.Length;
                                if (nLengthOther == nLength)
                                        return (int) (kb.first - first);
                                return nLength - nLengthOther;
                        }
                }

                /// <summary>
                /// This method emits code for a lookup-based switch statement (non-string)
                /// Basically it groups the cases into blocks that are at least half full,
                /// and then spits out individual lookup opcodes for each block.
                /// It emits the longest blocks first, and short blocks are just
                /// handled with direct compares.
                /// </summary>
                /// <param name="ec"></param>
                /// <param name="val"></param>
                /// <returns></returns>
                void TableSwitchEmit (EmitContext ec, Expression val)
                {
                        int element_count = Elements.Count;
                        object [] element_keys = new object [element_count];
                        Elements.Keys.CopyTo (element_keys, 0);
                        Array.Sort (element_keys);

                        // initialize the block list with one element per key
                        ArrayList key_blocks = new ArrayList (element_count);
                        foreach (object key in element_keys)
                                key_blocks.Add (new KeyBlock (System.Convert.ToInt64 (key)));

                        KeyBlock current_kb;
                        // iteratively merge the blocks while they are at least half full
                        // there's probably a really cool way to do this with a tree...
                        while (key_blocks.Count > 1)
                        {
                                ArrayList key_blocks_new = new ArrayList ();
                                current_kb = (KeyBlock) key_blocks [0];
                                for (int ikb = 1; ikb < key_blocks.Count; ikb++)
                                {
                                        KeyBlock kb = (KeyBlock) key_blocks [ikb];
                                        if ((current_kb.Size + kb.Size) * 2 >=  KeyBlock.TotalLength (current_kb, kb))
                                        {
                                                // merge blocks
                                                current_kb.last = kb.last;
                                                current_kb.Size += kb.Size;
                                        }
                                        else
                                        {
                                                // start a new block
                                                key_blocks_new.Add (current_kb);
                                                current_kb = kb;
                                        }
                                }
                                key_blocks_new.Add (current_kb);
                                if (key_blocks.Count == key_blocks_new.Count)
                                        break;
                                key_blocks = key_blocks_new;
                        }

                        // initialize the key lists
                        foreach (KeyBlock kb in key_blocks)
                                kb.element_keys = new ArrayList ();

                        // fill the key lists
                        int iBlockCurr = 0;
                        if (key_blocks.Count > 0) {
                                current_kb = (KeyBlock) key_blocks [0];
                                foreach (object key in element_keys)
                                {
                                        bool next_block = (key is UInt64) ? (ulong) key > (ulong) current_kb.last :
                                                System.Convert.ToInt64 (key) > current_kb.last;
                                        if (next_block)
                                                current_kb = (KeyBlock) key_blocks [++iBlockCurr];
                                        current_kb.element_keys.Add (key);
                                }
                        }

                        // sort the blocks so we can tackle the largest ones first
                        key_blocks.Sort ();

                        // okay now we can start...
                        ILGenerator ig = ec.ig;
                        Label lbl_end = ig.DefineLabel ();      // at the end ;-)
                        Label lbl_default = default_target;

                        Type type_keys = null;
                        if (element_keys.Length > 0)
                                type_keys = element_keys [0].GetType ();        // used for conversions

                        Type compare_type;
                        
                        if (TypeManager.IsEnumType (SwitchType))
                                compare_type = TypeManager.GetEnumUnderlyingType (SwitchType);
                        else
                                compare_type = SwitchType;
                        
                        for (int iBlock = key_blocks.Count - 1; iBlock >= 0; --iBlock)
                        {
                                KeyBlock kb = ((KeyBlock) key_blocks [iBlock]);
                                lbl_default = (iBlock == 0) ? default_target : ig.DefineLabel ();
                                if (kb.Length <= 2)
                                {
                                        foreach (object key in kb.element_keys) {
                                                SwitchLabel sl = (SwitchLabel) Elements [key];
                                                if (key is int && (int) key == 0) {
                                                        val.EmitBranchable (ec, sl.GetILLabel (ec), false);
                                                } else {
                                                        val.Emit (ec);
                                                        EmitObjectInteger (ig, key);
                                                        ig.Emit (OpCodes.Beq, sl.GetILLabel (ec));
                                                }
                                        }
                                }
                                else
                                {
                                        // TODO: if all the keys in the block are the same and there are
                                        //       no gaps/defaults then just use a range-check.
                                        if (compare_type == TypeManager.int64_type ||
                                                compare_type == TypeManager.uint64_type)
                                        {
                                                // TODO: optimize constant/I4 cases

                                                // check block range (could be > 2^31)
                                                val.Emit (ec);
                                                EmitObjectInteger (ig, System.Convert.ChangeType (kb.first, type_keys));
                                                ig.Emit (OpCodes.Blt, lbl_default);
                                                val.Emit (ec);
                                                EmitObjectInteger (ig, System.Convert.ChangeType (kb.last, type_keys));
                                                ig.Emit (OpCodes.Bgt, lbl_default);

                                                // normalize range
                                                val.Emit (ec);
                                                if (kb.first != 0)
                                                {
                                                        EmitObjectInteger (ig, System.Convert.ChangeType (kb.first, type_keys));
                                                        ig.Emit (OpCodes.Sub);
                                                }
                                                ig.Emit (OpCodes.Conv_I4);      // assumes < 2^31 labels!
                                        }
                                        else
                                        {
                                                // normalize range
                                                val.Emit (ec);
                                                int first = (int) kb.first;
                                                if (first > 0)
                                                {
                                                        IntConstant.EmitInt (ig, first);
                                                        ig.Emit (OpCodes.Sub);
                                                }
                                                else if (first < 0)
                                                {
                                                        IntConstant.EmitInt (ig, -first);
                                                        ig.Emit (OpCodes.Add);
                                                }
                                        }

                                        // first, build the list of labels for the switch
                                        int iKey = 0;
                                        int cJumps = kb.Length;
                                        Label [] switch_labels = new Label [cJumps];
                                        for (int iJump = 0; iJump < cJumps; iJump++)
                                        {
                                                object key = kb.element_keys [iKey];
                                                if (System.Convert.ToInt64 (key) == kb.first + iJump)
                                                {
                                                        SwitchLabel sl = (SwitchLabel) Elements [key];
                                                        switch_labels [iJump] = sl.GetILLabel (ec);
                                                        iKey++;
                                                }
                                                else
                                                        switch_labels [iJump] = lbl_default;
                                        }
                                        // emit the switch opcode
                                        ig.Emit (OpCodes.Switch, switch_labels);
                                }

                                // mark the default for this block
                                if (iBlock != 0)
                                        ig.MarkLabel (lbl_default);
                        }

                        // TODO: find the default case and emit it here,
                        //       to prevent having to do the following jump.
                        //       make sure to mark other labels in the default section

                        // the last default just goes to the end
                        if (element_keys.Length > 0)
                                ig.Emit (OpCodes.Br, lbl_default);

                        // now emit the code for the sections
                        bool found_default = false;

                        foreach (SwitchSection ss in Sections) {
                                foreach (SwitchLabel sl in ss.Labels) {
                                        if (sl.Converted == SwitchLabel.NullStringCase) {
                                                ig.MarkLabel (null_target);
                                        } else if (sl.Label == null) {
                                                ig.MarkLabel (lbl_default);
                                                found_default = true;
                                                if (!has_null_case)
                                                        ig.MarkLabel (null_target);
                                        }
                                        ig.MarkLabel (sl.GetILLabel (ec));
                                        ig.MarkLabel (sl.GetILLabelCode (ec));
                                }
                                ss.Block.Emit (ec);
                        }
                        
                        if (!found_default) {
                                ig.MarkLabel (lbl_default);
                                if (!has_null_case) {
                                        ig.MarkLabel (null_target);
                                }
                        }
                        
                        ig.MarkLabel (lbl_end);
                }

                SwitchSection FindSection (SwitchLabel label)
                {
                        foreach (SwitchSection ss in Sections){
                                foreach (SwitchLabel sl in ss.Labels){
                                        if (label == sl)
                                                return ss;
                                }
                        }

                        return null;
                }

                public override void MutateHoistedGenericType (AnonymousMethodStorey storey)
                {
                        foreach (SwitchSection ss in Sections)
                                ss.Block.MutateHoistedGenericType (storey);
                }

                public static void Reset ()
                {
                        unique_counter = 0;
                        allowed_types = null;
                }

                public override bool Resolve (BlockContext ec)
                {
                        Expr = Expr.Resolve (ec);
                        if (Expr == null)
                                return false;

                        new_expr = SwitchGoverningType (ec, Expr);

                        if ((new_expr == null) && TypeManager.IsNullableType (Expr.Type)) {
                                unwrap = Nullable.Unwrap.Create (Expr, false);
                                if (unwrap == null)
                                        return false;

                                new_expr = SwitchGoverningType (ec, unwrap);
                        }

                        if (new_expr == null){
                                ec.Report.Error (151, loc,
                                        "A switch expression of type `{0}' cannot be converted to an integral type, bool, char, string, enum or nullable type",
                                        TypeManager.CSharpName (Expr.Type));
                                return false;
                        }

                        // Validate switch.
                        SwitchType = new_expr.Type;

                        if (RootContext.Version == LanguageVersion.ISO_1 && SwitchType == TypeManager.bool_type) {
                                ec.Report.FeatureIsNotAvailable (loc, "switch expression of boolean type");
                                return false;
                        }

                        if (!CheckSwitch (ec))
                                return false;

                        if (HaveUnwrap)
                                Elements.Remove (SwitchLabel.NullStringCase);

                        Switch old_switch = ec.Switch;
                        ec.Switch = this;
                        ec.Switch.SwitchType = SwitchType;

                        Report.Debug (1, "START OF SWITCH BLOCK", loc, ec.CurrentBranching);
                        ec.StartFlowBranching (FlowBranching.BranchingType.Switch, loc);

                        is_constant = new_expr is Constant;
                        if (is_constant) {
                                object key = ((Constant) new_expr).GetValue ();
                                SwitchLabel label = (SwitchLabel) Elements [key];

                                constant_section = FindSection (label);
                                if (constant_section == null)
                                        constant_section = default_section;
                        }

                        bool first = true;
                        bool ok = true;
                        foreach (SwitchSection ss in Sections){
                                if (!first)
                                        ec.CurrentBranching.CreateSibling (
                                                null, FlowBranching.SiblingType.SwitchSection);
                                else
                                        first = false;

                                if (is_constant && (ss != constant_section)) {
                                        // If we're a constant switch, we're only emitting
                                        // one single section - mark all the others as
                                        // unreachable.
                                        ec.CurrentBranching.CurrentUsageVector.Goto ();
                                        if (!ss.Block.ResolveUnreachable (ec, true)) {
                                                ok = false;
                                        }
                                } else {
                                        if (!ss.Block.Resolve (ec))
                                                ok = false;
                                }
                        }

                        if (default_section == null)
                                ec.CurrentBranching.CreateSibling (
                                        null, FlowBranching.SiblingType.SwitchSection);

                        ec.EndFlowBranching ();
                        ec.Switch = old_switch;

                        Report.Debug (1, "END OF SWITCH BLOCK", loc, ec.CurrentBranching);

                        if (!ok)
                                return false;

                        if (SwitchType == TypeManager.string_type && !is_constant) {
                                // TODO: Optimize single case, and single+default case
                                ResolveStringSwitchMap (ec);
                        }

                        return true;
                }

                void ResolveStringSwitchMap (ResolveContext ec)
                {
                        FullNamedExpression string_dictionary_type;
                        if (TypeManager.generic_ienumerable_type != null) {
                                MemberAccess system_collections_generic = new MemberAccess (new MemberAccess (
                                        new QualifiedAliasMember (QualifiedAliasMember.GlobalAlias, "System", loc), "Collections", loc), "Generic", loc);

                                string_dictionary_type = new MemberAccess (system_collections_generic, "Dictionary",
                                        new TypeArguments (
                                                new TypeExpression (TypeManager.string_type, loc),
                                                new TypeExpression (TypeManager.int32_type, loc)), loc);
                        } else {
                                MemberAccess system_collections_generic = new MemberAccess (
                                        new QualifiedAliasMember (QualifiedAliasMember.GlobalAlias, "System", loc), "Collections", loc);

                                string_dictionary_type = new MemberAccess (system_collections_generic, "Hashtable", loc);
                        }

                        Field field = new Field (ec.CurrentTypeDefinition, string_dictionary_type,
                                Modifiers.STATIC | Modifiers.PRIVATE | Modifiers.COMPILER_GENERATED,
                                new MemberName (CompilerGeneratedClass.MakeName (null, "f", "switch$map", unique_counter++), loc), null);
                        if (!field.Define ())
                                return;
                        ec.CurrentTypeDefinition.PartialContainer.AddField (field);

                        ArrayList init = new ArrayList ();
                        int counter = 0;
                        Elements.Clear ();
                        string value = null;
                        foreach (SwitchSection section in Sections) {
                                int last_count = init.Count;
                                foreach (SwitchLabel sl in section.Labels) {
                                        if (sl.Label == null || sl.Converted == SwitchLabel.NullStringCase)
                                                continue;

                                        value = (string) sl.Converted;
                                        ArrayList init_args = new ArrayList (2);
                                        init_args.Add (new StringLiteral (value, sl.Location));
                                        init_args.Add (new IntConstant (counter, loc));
                                        init.Add (new CollectionElementInitializer (init_args, loc));
                                }

                                //
                                // Don't add empty sections
                                //
                                if (last_count == init.Count)
                                        continue;

                                Elements.Add (counter, section.Labels [0]);
                                ++counter;
                        }

                        Arguments args = new Arguments (1);
                        args.Add (new Argument (new IntConstant (init.Count, loc)));
                        Expression initializer = new NewInitialize (string_dictionary_type, args,
                                new CollectionOrObjectInitializers (init, loc), loc);

                        switch_cache_field = new FieldExpr (field.FieldBuilder, loc);
                        string_dictionary = new SimpleAssign (switch_cache_field, initializer.Resolve (ec));
                }

                void DoEmitStringSwitch (LocalTemporary value, EmitContext ec)
                {
                        ILGenerator ig = ec.ig;
                        Label l_initialized = ig.DefineLabel ();

                        //
                        // Skip initialization when value is null
                        //
                        value.EmitBranchable (ec, null_target, false);

                        //
                        // Check if string dictionary is initialized and initialize
                        //
                        switch_cache_field.EmitBranchable (ec, l_initialized, true);
                        string_dictionary.EmitStatement (ec);
                        ig.MarkLabel (l_initialized);

                        LocalTemporary string_switch_variable = new LocalTemporary (TypeManager.int32_type);

                        ResolveContext rc = new ResolveContext (ec.MemberContext);

                        if (TypeManager.generic_ienumerable_type != null) {
                                Arguments get_value_args = new Arguments (2);
                                get_value_args.Add (new Argument (value));
                                get_value_args.Add (new Argument (string_switch_variable, Argument.AType.Out));
                                Expression get_item = new Invocation (new MemberAccess (switch_cache_field, "TryGetValue", loc), get_value_args).Resolve (rc);
                                if (get_item == null)
                                        return;

                                //
                                // A value was not found, go to default case
                                //
                                get_item.EmitBranchable (ec, default_target, false);
                        } else {
                                Arguments get_value_args = new Arguments (1);
                                get_value_args.Add (new Argument (value));

                                Expression get_item = new IndexerAccess (new ElementAccess (switch_cache_field, get_value_args), loc).Resolve (rc);
                                if (get_item == null)
                                        return;

                                LocalTemporary get_item_object = new LocalTemporary (TypeManager.object_type);
                                get_item_object.EmitAssign (ec, get_item, true, false);
                                ec.ig.Emit (OpCodes.Brfalse, default_target);

                                ExpressionStatement get_item_int = (ExpressionStatement) new SimpleAssign (string_switch_variable,
                                        new Cast (new TypeExpression (TypeManager.int32_type, loc), get_item_object, loc)).Resolve (rc);

                                get_item_int.EmitStatement (ec);
                                get_item_object.Release (ec);
                        }

                        TableSwitchEmit (ec, string_switch_variable);
                        string_switch_variable.Release (ec);
                }
                
                protected override void DoEmit (EmitContext ec)
                {
                        ILGenerator ig = ec.ig;

                        default_target = ig.DefineLabel ();
                        null_target = ig.DefineLabel ();

                        // Store variable for comparission purposes
                        // TODO: Don't duplicate non-captured VariableReference
                        LocalTemporary value;
                        if (HaveUnwrap) {
                                value = new LocalTemporary (SwitchType);
                                unwrap.EmitCheck (ec);
                                ig.Emit (OpCodes.Brfalse, null_target);
                                new_expr.Emit (ec);
                                value.Store (ec);
                        } else if (!is_constant) {
                                value = new LocalTemporary (SwitchType);
                                new_expr.Emit (ec);
                                value.Store (ec);
                        } else
                                value = null;

                        //
                        // Setup the codegen context
                        //
                        Label old_end = ec.LoopEnd;
                        Switch old_switch = ec.Switch;
                        
                        ec.LoopEnd = ig.DefineLabel ();
                        ec.Switch = this;

                        // Emit Code.
                        if (is_constant) {
                                if (constant_section != null)
                                        constant_section.Block.Emit (ec);
                        } else if (string_dictionary != null) {
                                DoEmitStringSwitch (value, ec);
                        } else {
                                TableSwitchEmit (ec, value);
                        }

                        if (value != null)
                                value.Release (ec);

                        // Restore context state. 
                        ig.MarkLabel (ec.LoopEnd);

                        //
                        // Restore the previous context
                        //
                        ec.LoopEnd = old_end;
                        ec.Switch = old_switch;
                }

                protected override void CloneTo (CloneContext clonectx, Statement t)
                {
                        Switch target = (Switch) t;

                        target.Expr = Expr.Clone (clonectx);
                        target.Sections = new ArrayList ();
                        foreach (SwitchSection ss in Sections){
                                target.Sections.Add (ss.Clone (clonectx));
                        }
                }
        }

        // A place where execution can restart in an iterator
        public abstract class ResumableStatement : Statement
        {
                bool prepared;
                protected Label resume_point;

                public Label PrepareForEmit (EmitContext ec)
                {
                        if (!prepared) {
                                prepared = true;
                                resume_point = ec.ig.DefineLabel ();
                        }
                        return resume_point;
                }

                public virtual Label PrepareForDispose (EmitContext ec, Label end)
                {
                        return end;
                }
                public virtual void EmitForDispose (EmitContext ec, Iterator iterator, Label end, bool have_dispatcher)
                {
                }
        }

        // Base class for statements that are implemented in terms of try...finally
        public abstract class ExceptionStatement : ResumableStatement
        {
                bool code_follows;
                Iterator iter;

                protected abstract void EmitPreTryBody (EmitContext ec);
                protected abstract void EmitTryBody (EmitContext ec);
                protected abstract void EmitFinallyBody (EmitContext ec);

                protected sealed override void DoEmit (EmitContext ec)
                {
                        ILGenerator ig = ec.ig;

                        EmitPreTryBody (ec);

                        if (resume_points != null) {
                                IntConstant.EmitInt (ig, (int) Iterator.State.Running);
                                ig.Emit (OpCodes.Stloc, iter.CurrentPC);
                        }

                        ig.BeginExceptionBlock ();

                        if (resume_points != null) {
                                ig.MarkLabel (resume_point);

                                // For normal control flow, we want to fall-through the Switch
                                // So, we use CurrentPC rather than the $PC field, and initialize it to an outside value above
                                ig.Emit (OpCodes.Ldloc, iter.CurrentPC);
                                IntConstant.EmitInt (ig, first_resume_pc);
                                ig.Emit (OpCodes.Sub);

                                Label [] labels = new Label [resume_points.Count];
                                for (int i = 0; i < resume_points.Count; ++i)
                                        labels [i] = ((ResumableStatement) resume_points [i]).PrepareForEmit (ec);
                                ig.Emit (OpCodes.Switch, labels);
                        }

                        EmitTryBody (ec);

                        ig.BeginFinallyBlock ();

                        Label start_finally = ec.ig.DefineLabel ();
                        if (resume_points != null) {
                                ig.Emit (OpCodes.Ldloc, iter.SkipFinally);
                                ig.Emit (OpCodes.Brfalse_S, start_finally);
                                ig.Emit (OpCodes.Endfinally);
                        }

                        ig.MarkLabel (start_finally);
                        EmitFinallyBody (ec);

                        ig.EndExceptionBlock ();
                }

                public void SomeCodeFollows ()
                {
                        code_follows = true;
                }

                public override bool Resolve (BlockContext ec)
                {
                        // System.Reflection.Emit automatically emits a 'leave' at the end of a try clause
                        // So, ensure there's some IL code after this statement.
                        if (!code_follows && resume_points == null && ec.CurrentBranching.CurrentUsageVector.IsUnreachable)
                                ec.NeedReturnLabel ();

                        iter = ec.CurrentIterator;
                        return true;
                }

                ArrayList resume_points;
                int first_resume_pc;
                public void AddResumePoint (ResumableStatement stmt, int pc)
                {
                        if (resume_points == null) {
                                resume_points = new ArrayList ();
                                first_resume_pc = pc;
                        }

                        if (pc != first_resume_pc + resume_points.Count)
                                throw new InternalErrorException ("missed an intervening AddResumePoint?");

                        resume_points.Add (stmt);
                }

                Label dispose_try_block;
                bool prepared_for_dispose, emitted_dispose;
                public override Label PrepareForDispose (EmitContext ec, Label end)
                {
                        if (!prepared_for_dispose) {
                                prepared_for_dispose = true;
                                dispose_try_block = ec.ig.DefineLabel ();
                        }
                        return dispose_try_block;
                }

                public override void EmitForDispose (EmitContext ec, Iterator iterator, Label end, bool have_dispatcher)
                {
                        if (emitted_dispose)
                                return;

                        emitted_dispose = true;

                        ILGenerator ig = ec.ig;

                        Label end_of_try = ig.DefineLabel ();

                        // Ensure that the only way we can get into this code is through a dispatcher
                        if (have_dispatcher)
                                ig.Emit (OpCodes.Br, end);

                        ig.BeginExceptionBlock ();

                        ig.MarkLabel (dispose_try_block);

                        Label [] labels = null;
                        for (int i = 0; i < resume_points.Count; ++i) {
                                ResumableStatement s = (ResumableStatement) resume_points [i];
                                Label ret = s.PrepareForDispose (ec, end_of_try);
                                if (ret.Equals (end_of_try) && labels == null)
                                        continue;
                                if (labels == null) {
                                        labels = new Label [resume_points.Count];
                                        for (int j = 0; j < i; ++j)
                                                labels [j] = end_of_try;
                                }
                                labels [i] = ret;
                        }

                        if (labels != null) {
                                int j;
                                for (j = 1; j < labels.Length; ++j)
                                        if (!labels [0].Equals (labels [j]))
                                                break;
                                bool emit_dispatcher = j < labels.Length;

                                if (emit_dispatcher) {
                                        //SymbolWriter.StartIteratorDispatcher (ec.ig);
                                        ig.Emit (OpCodes.Ldloc, iterator.CurrentPC);
                                        IntConstant.EmitInt (ig, first_resume_pc);
                                        ig.Emit (OpCodes.Sub);
                                        ig.Emit (OpCodes.Switch, labels);
                                        //SymbolWriter.EndIteratorDispatcher (ec.ig);
                                }

                                foreach (ResumableStatement s in resume_points)
                                        s.EmitForDispose (ec, iterator, end_of_try, emit_dispatcher);
                        }

                        ig.MarkLabel (end_of_try);

                        ig.BeginFinallyBlock ();

                        EmitFinallyBody (ec);

                        ig.EndExceptionBlock ();
                }
        }

        public class Lock : ExceptionStatement {
                Expression expr;
                public Statement Statement;
                TemporaryVariable temp;
                        
                public Lock (Expression expr, Statement stmt, Location l)
                {
                        this.expr = expr;
                        Statement = stmt;
                        loc = l;
                }

                public override bool Resolve (BlockContext ec)
                {
                        expr = expr.Resolve (ec);
                        if (expr == null)
                                return false;

                        if (!TypeManager.IsReferenceType (expr.Type)){
                                ec.Report.Error (185, loc,
                                              "`{0}' is not a reference type as required by the lock statement",
                                              TypeManager.CSharpName (expr.Type));
                                return false;
                        }

                        ec.StartFlowBranching (this);
                        bool ok = Statement.Resolve (ec);
                        ec.EndFlowBranching ();

                        ok &= base.Resolve (ec);

                        // Avoid creating libraries that reference the internal
                        // mcs NullType:
                        Type t = expr.Type;
                        if (t == TypeManager.null_type)
                                t = TypeManager.object_type;
                        
                        temp = new TemporaryVariable (t, loc);
                        temp.Resolve (ec);

                        if (TypeManager.void_monitor_enter_object == null || TypeManager.void_monitor_exit_object == null) {
                                Type monitor_type = TypeManager.CoreLookupType (ec.Compiler, "System.Threading", "Monitor", Kind.Class, true);
                                TypeManager.void_monitor_enter_object = TypeManager.GetPredefinedMethod (
                                        monitor_type, "Enter", loc, TypeManager.object_type);
                                TypeManager.void_monitor_exit_object = TypeManager.GetPredefinedMethod (
                                        monitor_type, "Exit", loc, TypeManager.object_type);
                        }
                        
                        return ok;
                }
                
                protected override void EmitPreTryBody (EmitContext ec)
                {
                        ILGenerator ig = ec.ig;

                        temp.EmitAssign (ec, expr);
                        temp.Emit (ec);
                        ig.Emit (OpCodes.Call, TypeManager.void_monitor_enter_object);
                }

                protected override void EmitTryBody (EmitContext ec)
                {
                        Statement.Emit (ec);
                }

                protected override void EmitFinallyBody (EmitContext ec)
                {
                        temp.Emit (ec);
                        ec.ig.Emit (OpCodes.Call, TypeManager.void_monitor_exit_object);
                }

                public override void MutateHoistedGenericType (AnonymousMethodStorey storey)
                {
                        expr.MutateHoistedGenericType (storey);
                        temp.MutateHoistedGenericType (storey);
                        Statement.MutateHoistedGenericType (storey);
                }
                
                protected override void CloneTo (CloneContext clonectx, Statement t)
                {
                        Lock target = (Lock) t;

                        target.expr = expr.Clone (clonectx);
                        target.Statement = Statement.Clone (clonectx);
                }
        }

        public class Unchecked : Statement {
                public Block Block;
                
                public Unchecked (Block b)
                {
                        Block = b;
                        b.Unchecked = true;
                }

                public override bool Resolve (BlockContext ec)
                {
                        using (ec.With (ResolveContext.Options.AllCheckStateFlags, false))
                                return Block.Resolve (ec);
                }
                
                protected override void DoEmit (EmitContext ec)
                {
                        using (ec.With (EmitContext.Options.AllCheckStateFlags, false))
                                Block.Emit (ec);
                }

                public override void MutateHoistedGenericType (AnonymousMethodStorey storey)
                {
                        Block.MutateHoistedGenericType (storey);
                }

                protected override void CloneTo (CloneContext clonectx, Statement t)
                {
                        Unchecked target = (Unchecked) t;

                        target.Block = clonectx.LookupBlock (Block);
                }
        }

        public class Checked : Statement {
                public Block Block;
                
                public Checked (Block b)
                {
                        Block = b;
                        b.Unchecked = false;
                }

                public override bool Resolve (BlockContext ec)
                {
                        using (ec.With (ResolveContext.Options.AllCheckStateFlags, true))
                                return Block.Resolve (ec);
                }

                protected override void DoEmit (EmitContext ec)
                {
                        using (ec.With (EmitContext.Options.AllCheckStateFlags, true))
                                Block.Emit (ec);
                }

                public override void MutateHoistedGenericType (AnonymousMethodStorey storey)
                {
                        Block.MutateHoistedGenericType (storey);
                }

                protected override void CloneTo (CloneContext clonectx, Statement t)
                {
                        Checked target = (Checked) t;

                        target.Block = clonectx.LookupBlock (Block);
                }
        }

        public class Unsafe : Statement {
                public Block Block;

                public Unsafe (Block b)
                {
                        Block = b;
                        Block.Unsafe = true;
                        loc = b.StartLocation;
                }

                public override bool Resolve (BlockContext ec)
                {
                        if (ec.CurrentIterator != null)
                                ec.Report.Error (1629, loc, "Unsafe code may not appear in iterators");

                        using (ec.Set (ResolveContext.Options.UnsafeScope))
                                return Block.Resolve (ec);
                }
                
                protected override void DoEmit (EmitContext ec)
                {
                        Block.Emit (ec);
                }

                public override void MutateHoistedGenericType (AnonymousMethodStorey storey)
                {
                        Block.MutateHoistedGenericType (storey);
                }

                protected override void CloneTo (CloneContext clonectx, Statement t)
                {
                        Unsafe target = (Unsafe) t;

                        target.Block = clonectx.LookupBlock (Block);
                }
        }

        // 
        // Fixed statement
        //
        public class Fixed : Statement {
                Expression type;
                ArrayList declarators;
                Statement statement;
                Type expr_type;
                Emitter[] data;
                bool has_ret;

                abstract class Emitter
                {
                        protected LocalInfo vi;
                        protected Expression converted;

                        protected Emitter (Expression expr, LocalInfo li)
                        {
                                converted = expr;
                                vi = li;
                        }

                        public abstract void Emit (EmitContext ec);
                        public abstract void EmitExit (EmitContext ec);
                }

                class ExpressionEmitter : Emitter {
                        public ExpressionEmitter (Expression converted, LocalInfo li) :
                                base (converted, li)
                        {
                        }

                        public override void Emit (EmitContext ec) {
                                //
                                // Store pointer in pinned location
                                //
                                converted.Emit (ec);
                                vi.EmitAssign (ec);
                        }

                        public override void EmitExit (EmitContext ec)
                        {
                                ec.ig.Emit (OpCodes.Ldc_I4_0);
                                ec.ig.Emit (OpCodes.Conv_U);
                                vi.EmitAssign (ec);
                        }
                }

                class StringEmitter : Emitter
                {
                        LocalInfo pinned_string;

                        public StringEmitter (Expression expr, LocalInfo li, Location loc):
                                base (expr, li)
                        {
                                pinned_string = new LocalInfo (new TypeExpression (TypeManager.string_type, loc), null, null, loc);
                                pinned_string.Pinned = true;
                        }

                        public StringEmitter Resolve (ResolveContext rc)
                        {
                                pinned_string.Resolve (rc);

                                if (TypeManager.int_get_offset_to_string_data == null) {
                                        TypeManager.int_get_offset_to_string_data = TypeManager.GetPredefinedProperty (
                                                TypeManager.runtime_helpers_type, "OffsetToStringData", pinned_string.Location, TypeManager.int32_type);
                                }

                                return this;
                        }

                        public override void Emit (EmitContext ec)
                        {
                                pinned_string.ResolveVariable (ec);

                                converted.Emit (ec);
                                pinned_string.EmitAssign (ec);

                                // TODO: Should use Binary::Add
                                pinned_string.Emit (ec);
                                ec.ig.Emit (OpCodes.Conv_I);

                                PropertyExpr pe = new PropertyExpr (pinned_string.VariableType, TypeManager.int_get_offset_to_string_data, pinned_string.Location);
                                //pe.InstanceExpression = pinned_string;
                                pe.Resolve (new ResolveContext (ec.MemberContext)).Emit (ec);

                                ec.ig.Emit (OpCodes.Add);
                                vi.EmitAssign (ec);
                        }

                        public override void EmitExit (EmitContext ec)
                        {
                                ec.ig.Emit (OpCodes.Ldnull);
                                pinned_string.EmitAssign (ec);
                        }
                }

                public Fixed (Expression type, ArrayList decls, Statement stmt, Location l)
                {
                        this.type = type;
                        declarators = decls;
                        statement = stmt;
                        loc = l;
                }

                public Statement Statement {
                        get { return statement; }
                }

                public override bool Resolve (BlockContext ec)
                {
                        if (!ec.IsUnsafe){
                                Expression.UnsafeError (ec, loc);
                                return false;
                        }
                        
                        TypeExpr texpr = type.ResolveAsContextualType (ec, false);
                        if (texpr == null) {
                                if (type is VarExpr)
                                        ec.Report.Error (821, type.Location, "A fixed statement cannot use an implicitly typed local variable");

                                return false;
                        }

                        expr_type = texpr.Type;

                        data = new Emitter [declarators.Count];

                        if (!expr_type.IsPointer){
                                ec.Report.Error (209, loc, "The type of locals declared in a fixed statement must be a pointer type");
                                return false;
                        }
                        
                        int i = 0;
                        foreach (Pair p in declarators){
                                LocalInfo vi = (LocalInfo) p.First;
                                Expression e = (Expression) p.Second;
                                
                                vi.VariableInfo.SetAssigned (ec);
                                vi.SetReadOnlyContext (LocalInfo.ReadOnlyContext.Fixed);

                                //
                                // The rules for the possible declarators are pretty wise,
                                // but the production on the grammar is more concise.
                                //
                                // So we have to enforce these rules here.
                                //
                                // We do not resolve before doing the case 1 test,
                                // because the grammar is explicit in that the token &
                                // is present, so we need to test for this particular case.
                                //

                                if (e is Cast){
                                        ec.Report.Error (254, loc, "The right hand side of a fixed statement assignment may not be a cast expression");
                                        return false;
                                }

                                using (ec.Set (ResolveContext.Options.FixedInitializerScope)) {
                                        e = e.Resolve (ec);
                                }

                                if (e == null)
                                        return false;

                                //
                                // Case 2: Array
                                //
                                if (e.Type.IsArray){
                                        Type array_type = TypeManager.GetElementType (e.Type);
                                        
                                        //
                                        // Provided that array_type is unmanaged,
                                        //
                                        if (!TypeManager.VerifyUnManaged (array_type, loc))
                                                return false;

                                        //
                                        // and T* is implicitly convertible to the
                                        // pointer type given in the fixed statement.
                                        //
                                        ArrayPtr array_ptr = new ArrayPtr (e, array_type, loc);
                                        
                                        Expression converted = Convert.ImplicitConversionRequired (
                                                ec, array_ptr, vi.VariableType, loc);
                                        if (converted == null)
                                                return false;
                                        
                                        //
                                        // fixed (T* e_ptr = (e == null || e.Length == 0) ? null : converted [0])
                                        //
                                        converted = new Conditional (new Binary (Binary.Operator.LogicalOr,
                                                new Binary (Binary.Operator.Equality, e, new NullLiteral (loc)),
                                                new Binary (Binary.Operator.Equality, new MemberAccess (e, "Length"), new IntConstant (0, loc))),
                                                        new NullPointer (loc),
                                                        converted);

                                        converted = converted.Resolve (ec);                                     

                                        data [i] = new ExpressionEmitter (converted, vi);
                                        i++;

                                        continue;
                                }

                                //
                                // Case 3: string
                                //
                                if (e.Type == TypeManager.string_type){
                                        data [i] = new StringEmitter (e, vi, loc).Resolve (ec);
                                        i++;
                                        continue;
                                }

                                // Case 4: fixed buffer
                                if (e is FixedBufferPtr) {
                                        data [i++] = new ExpressionEmitter (e, vi);
                                        continue;
                                }

                                //
                                // Case 1: & object.
                                //
                                Unary u = e as Unary;
                                if (u != null && u.Oper == Unary.Operator.AddressOf) {
                                        IVariableReference vr = u.Expr as IVariableReference;
                                        if (vr == null || !vr.IsFixed) {
                                                data [i] = new ExpressionEmitter (e, vi);
                                        }
                                }

                                if (data [i++] == null)
                                        ec.Report.Error (213, vi.Location, "You cannot use the fixed statement to take the address of an already fixed expression");

                                e = Convert.ImplicitConversionRequired (ec, e, expr_type, loc);
                        }

                        ec.StartFlowBranching (FlowBranching.BranchingType.Conditional, loc);
                        bool ok = statement.Resolve (ec);
                        bool flow_unreachable = ec.EndFlowBranching ();
                        has_ret = flow_unreachable;

                        return ok;
                }
                
                protected override void DoEmit (EmitContext ec)
                {
                        for (int i = 0; i < data.Length; i++) {
                                data [i].Emit (ec);
                        }

                        statement.Emit (ec);

                        if (has_ret)
                                return;

                        //
                        // Clear the pinned variable
                        //
                        for (int i = 0; i < data.Length; i++) {
                                data [i].EmitExit (ec);
                        }
                }

                public override void MutateHoistedGenericType (AnonymousMethodStorey storey)
                {
                        // Fixed statement cannot be used inside anonymous methods or lambdas
                        throw new NotSupportedException ();
                }

                protected override void CloneTo (CloneContext clonectx, Statement t)
                {
                        Fixed target = (Fixed) t;

                        target.type = type.Clone (clonectx);
                        target.declarators = new ArrayList (declarators.Count);
                        foreach (Pair p in declarators) {
                                LocalInfo vi = (LocalInfo) p.First;
                                Expression e = (Expression) p.Second;

                                target.declarators.Add (
                                        new Pair (clonectx.LookupVariable (vi), e.Clone (clonectx)));                           
                        }
                        
                        target.statement = statement.Clone (clonectx);
                }
        }
        
        public class Catch : Statement {
                public readonly string Name;
                public Block  Block;
                public Block  VarBlock;

                Expression type_expr;
                Type type;
                
                public Catch (Expression type, string name, Block block, Block var_block, Location l)
                {
                        type_expr = type;
                        Name = name;
                        Block = block;
                        VarBlock = var_block;
                        loc = l;
                }

                public Type CatchType {
                        get {
                                return type;
                        }
                }

                public bool IsGeneral {
                        get {
                                return type_expr == null;
                        }
                }

                protected override void DoEmit (EmitContext ec)
                {
                        ILGenerator ig = ec.ig;

                        if (CatchType != null)
                                ig.BeginCatchBlock (CatchType);
                        else
                                ig.BeginCatchBlock (TypeManager.object_type);

                        if (VarBlock != null)
                                VarBlock.Emit (ec);

                        if (Name != null) {
                                // TODO: Move to resolve
                                LocalVariableReference lvr = new LocalVariableReference (Block, Name, loc);
                                lvr.Resolve (new ResolveContext (ec.MemberContext));
                                
#if GMCS_SOURCE
                                // Only to make verifier happy
                                if (TypeManager.IsGenericParameter (lvr.Type))
                                        ig.Emit (OpCodes.Unbox_Any, lvr.Type);
#endif

                                Expression source;
                                if (lvr.IsHoisted) {
                                        LocalTemporary lt = new LocalTemporary (lvr.Type);
                                        lt.Store (ec);
                                        source = lt;
                                } else {
                                        // Variable is at the top of the stack
                                        source = EmptyExpression.Null;
                                }

                                lvr.EmitAssign (ec, source, false, false);
                        } else
                                ig.Emit (OpCodes.Pop);

                        Block.Emit (ec);
                }

                public override bool Resolve (BlockContext ec)
                {
                        using (ec.With (ResolveContext.Options.CatchScope, true)) {
                                if (type_expr != null) {
                                        TypeExpr te = type_expr.ResolveAsTypeTerminal (ec, false);
                                        if (te == null)
                                                return false;

                                        type = te.Type;

                                        if (type != TypeManager.exception_type && !TypeManager.IsSubclassOf (type, TypeManager.exception_type)){
                                                ec.Report.Error (155, loc, "The type caught or thrown must be derived from System.Exception");
                                                return false;
                                        }
                                } else
                                        type = null;

                                if (!Block.Resolve (ec))
                                        return false;

                                // Even though VarBlock surrounds 'Block' we resolve it later, so that we can correctly
                                // emit the "unused variable" warnings.
                                if (VarBlock != null)
                                        return VarBlock.Resolve (ec);

                                return true;
                        }
                }

                public override void MutateHoistedGenericType (AnonymousMethodStorey storey)
                {
                        if (type != null)
                                type = storey.MutateType (type);
                        if (VarBlock != null)
                                VarBlock.MutateHoistedGenericType (storey);
                        Block.MutateHoistedGenericType (storey);
                }

                protected override void CloneTo (CloneContext clonectx, Statement t)
                {
                        Catch target = (Catch) t;

                        if (type_expr != null)
                                target.type_expr = type_expr.Clone (clonectx);
                        if (VarBlock != null)
                                target.VarBlock = clonectx.LookupBlock (VarBlock);                      
                        target.Block = clonectx.LookupBlock (Block);
                }
        }

        public class TryFinally : ExceptionStatement {
                Statement stmt;
                Block fini;

                public TryFinally (Statement stmt, Block fini, Location l)
                {
                        this.stmt = stmt;
                        this.fini = fini;
                        loc = l;
                }

                public override bool Resolve (BlockContext ec)
                {
                        bool ok = true;

                        ec.StartFlowBranching (this);

                        if (!stmt.Resolve (ec))
                                ok = false;

                        if (ok)
                                ec.CurrentBranching.CreateSibling (fini, FlowBranching.SiblingType.Finally);
                        using (ec.With (ResolveContext.Options.FinallyScope, true)) {
                                if (!fini.Resolve (ec))
                                        ok = false;
                        }

                        ec.EndFlowBranching ();

                        ok &= base.Resolve (ec);

                        return ok;
                }

                protected override void EmitPreTryBody (EmitContext ec)
                {
                }

                protected override void EmitTryBody (EmitContext ec)
                {
                        stmt.Emit (ec);
                }

                protected override void EmitFinallyBody (EmitContext ec)
                {
                        fini.Emit (ec);
                }

                public override void MutateHoistedGenericType (AnonymousMethodStorey storey)
                {
                        stmt.MutateHoistedGenericType (storey);
                        fini.MutateHoistedGenericType (storey);
                }

                protected override void CloneTo (CloneContext clonectx, Statement t)
                {
                        TryFinally target = (TryFinally) t;

                        target.stmt = (Statement) stmt.Clone (clonectx);
                        if (fini != null)
                                target.fini = clonectx.LookupBlock (fini);
                }
        }

        public class TryCatch : Statement {
                public Block Block;
                public ArrayList Specific;
                public Catch General;
                bool inside_try_finally, code_follows;

                public TryCatch (Block block, ArrayList catch_clauses, Location l, bool inside_try_finally)
                {
                        this.Block = block;
                        this.Specific = catch_clauses;
                        this.inside_try_finally = inside_try_finally;

                        Catch c = (Catch) catch_clauses [0];
                        if (c.IsGeneral) {
                                this.General = c;                       
                                catch_clauses.RemoveAt (0);
                        }

                        loc = l;
                }

                public override bool Resolve (BlockContext ec)
                {
                        bool ok = true;

                        ec.StartFlowBranching (this);

                        if (!Block.Resolve (ec))
                                ok = false;

                        Type[] prev_catches = new Type [Specific.Count];
                        int last_index = 0;
                        foreach (Catch c in Specific){
                                ec.CurrentBranching.CreateSibling (c.Block, FlowBranching.SiblingType.Catch);

                                if (c.Name != null) {
                                        LocalInfo vi = c.Block.GetLocalInfo (c.Name);
                                        if (vi == null)
                                                throw new Exception ();

                                        vi.VariableInfo = null;
                                }

                                if (!c.Resolve (ec)) {
                                        ok = false;
                                        continue;
                                }

                                Type resolved_type = c.CatchType;
                                for (int ii = 0; ii < last_index; ++ii) {
                                        if (resolved_type == prev_catches [ii] || TypeManager.IsSubclassOf (resolved_type, prev_catches [ii])) {
                                                ec.Report.Error (160, c.loc,
                                                        "A previous catch clause already catches all exceptions of this or a super type `{0}'",
                                                        TypeManager.CSharpName (prev_catches [ii]));
                                                ok = false;
                                        }
                                }

                                prev_catches [last_index++] = resolved_type;
                        }

                        if (General != null) {
                                if (CodeGen.Assembly.WrapNonExceptionThrows) {
                                        foreach (Catch c in Specific){
                                                if (c.CatchType == TypeManager.exception_type && PredefinedAttributes.Get.RuntimeCompatibility.IsDefined) {
                                                        ec.Report.Warning (1058, 1, c.loc, "A previous catch clause already catches all exceptions. All non-exceptions thrown will be wrapped in a `System.Runtime.CompilerServices.RuntimeWrappedException'");
                                                }
                                        }
                                }

                                ec.CurrentBranching.CreateSibling (General.Block, FlowBranching.SiblingType.Catch);

                                if (!General.Resolve (ec))
                                        ok = false;
                        }

                        ec.EndFlowBranching ();

                        // System.Reflection.Emit automatically emits a 'leave' at the end of a try/catch clause
                        // So, ensure there's some IL code after this statement
                        if (!inside_try_finally && !code_follows && ec.CurrentBranching.CurrentUsageVector.IsUnreachable)
                                ec.NeedReturnLabel ();

                        return ok;
                }

                public void SomeCodeFollows ()
                {
                        code_follows = true;
                }
                
                protected override void DoEmit (EmitContext ec)
                {
                        ILGenerator ig = ec.ig;

                        if (!inside_try_finally)
                                ig.BeginExceptionBlock ();

                        Block.Emit (ec);

                        foreach (Catch c in Specific)
                                c.Emit (ec);

                        if (General != null)
                                General.Emit (ec);

                        if (!inside_try_finally)
                                ig.EndExceptionBlock ();
                }

                public override void MutateHoistedGenericType (AnonymousMethodStorey storey)
                {
                        Block.MutateHoistedGenericType (storey);

                        if (General != null)
                                General.MutateHoistedGenericType (storey);
                        if (Specific != null) {
                                foreach (Catch c in Specific)
                                        c.MutateHoistedGenericType (storey);
                        }
                }

                protected override void CloneTo (CloneContext clonectx, Statement t)
                {
                        TryCatch target = (TryCatch) t;

                        target.Block = clonectx.LookupBlock (Block);
                        if (General != null)
                                target.General = (Catch) General.Clone (clonectx);
                        if (Specific != null){
                                target.Specific = new ArrayList ();
                                foreach (Catch c in Specific)
                                        target.Specific.Add (c.Clone (clonectx));
                        }
                }
        }

        // FIXME: Why is it almost exact copy of Using ??
        public class UsingTemporary : ExceptionStatement {
                TemporaryVariable local_copy;
                public Statement Statement;
                Expression expr;
                Type expr_type;

                public UsingTemporary (Expression expr, Statement stmt, Location l)
                {
                        this.expr = expr;
                        Statement = stmt;
                        loc = l;
                }

                public override bool Resolve (BlockContext ec)
                {
                        expr = expr.Resolve (ec);
                        if (expr == null)
                                return false;

                        expr_type = expr.Type;

                        if (!TypeManager.ImplementsInterface (expr_type, TypeManager.idisposable_type)) {
                                if (Convert.ImplicitConversion (ec, expr, TypeManager.idisposable_type, loc) == null) {
                                        Using.Error_IsNotConvertibleToIDisposable (ec, expr);
                                        return false;
                                }
                        }

                        local_copy = new TemporaryVariable (expr_type, loc);
                        local_copy.Resolve (ec);

                        ec.StartFlowBranching (this);

                        bool ok = Statement.Resolve (ec);

                        ec.EndFlowBranching ();

                        ok &= base.Resolve (ec);

                        if (TypeManager.void_dispose_void == null) {
                                TypeManager.void_dispose_void = TypeManager.GetPredefinedMethod (
                                        TypeManager.idisposable_type, "Dispose", loc, Type.EmptyTypes);
                        }

                        return ok;
                }

                protected override void EmitPreTryBody (EmitContext ec)
                {
                        local_copy.EmitAssign (ec, expr);
                }

                protected override void EmitTryBody (EmitContext ec)
                {
                        Statement.Emit (ec);
                }

                protected override void EmitFinallyBody (EmitContext ec)
                {
                        ILGenerator ig = ec.ig;
                        if (!TypeManager.IsStruct (expr_type)) {
                                Label skip = ig.DefineLabel ();
                                local_copy.Emit (ec);
                                ig.Emit (OpCodes.Brfalse, skip);
                                local_copy.Emit (ec);
                                ig.Emit (OpCodes.Callvirt, TypeManager.void_dispose_void);
                                ig.MarkLabel (skip);
                                return;
                        }

                        Expression ml = Expression.MemberLookup (RootContext.ToplevelTypes.Compiler,
                                ec.CurrentType, TypeManager.idisposable_type, expr_type,
                                "Dispose", Location.Null);

                        if (!(ml is MethodGroupExpr)) {
                                local_copy.Emit (ec);
                                ig.Emit (OpCodes.Box, expr_type);
                                ig.Emit (OpCodes.Callvirt, TypeManager.void_dispose_void);
                                return;
                        }

                        MethodInfo mi = null;

                        foreach (MethodInfo mk in ((MethodGroupExpr) ml).Methods) {
                                if (TypeManager.GetParameterData (mk).Count == 0) {
                                        mi = mk;
                                        break;
                                }
                        }

                        if (mi == null) {
                                RootContext.ToplevelTypes.Compiler.Report.Error(-100, Mono.CSharp.Location.Null, "Internal error: No Dispose method which takes 0 parameters.");
                                return;
                        }

                        local_copy.AddressOf (ec, AddressOp.Load);
                        ig.Emit (OpCodes.Call, mi);
                }

                public override void MutateHoistedGenericType (AnonymousMethodStorey storey)
                {
                        expr_type = storey.MutateType (expr_type);
                        local_copy.MutateHoistedGenericType (storey);
                        Statement.MutateHoistedGenericType (storey);
                }

                protected override void CloneTo (CloneContext clonectx, Statement t)
                {
                        UsingTemporary target = (UsingTemporary) t;

                        target.expr = expr.Clone (clonectx);
                        target.Statement = Statement.Clone (clonectx);
                }
        }

        public class Using : ExceptionStatement {
                Statement stmt;
                public Statement EmbeddedStatement {
                        get { return stmt is Using ? ((Using) stmt).EmbeddedStatement : stmt; }
                }

                Expression var;
                Expression init;

                ExpressionStatement assign;

                public Using (Expression var, Expression init, Statement stmt, Location l)
                {
                        this.var = var;
                        this.init = init;
                        this.stmt = stmt;
                        loc = l;
                }

                static public void Error_IsNotConvertibleToIDisposable (BlockContext ec, Expression expr)
                {
                        ec.Report.SymbolRelatedToPreviousError (expr.Type);
                        ec.Report.Error (1674, expr.Location, "`{0}': type used in a using statement must be implicitly convertible to `System.IDisposable'",
                                expr.GetSignatureForError ());
                }

                protected override void EmitPreTryBody (EmitContext ec)
                {
                        assign.EmitStatement (ec);
                }

                protected override void EmitTryBody (EmitContext ec)
                {
                        stmt.Emit (ec);
                }

                protected override void EmitFinallyBody (EmitContext ec)
                {
                        ILGenerator ig = ec.ig;
                        Label skip = ig.DefineLabel ();

                        bool emit_null_check = !TypeManager.IsValueType (var.Type);
                        if (emit_null_check) {
                                var.Emit (ec);
                                ig.Emit (OpCodes.Brfalse, skip);
                        }

                        Invocation.EmitCall (ec, false, var, TypeManager.void_dispose_void, null, loc);

                        if (emit_null_check)
                                ig.MarkLabel (skip);
                }

                public override void MutateHoistedGenericType (AnonymousMethodStorey storey)
                {
                        assign.MutateHoistedGenericType (storey);
                        var.MutateHoistedGenericType (storey);
                        stmt.MutateHoistedGenericType (storey);
                }

                public override bool Resolve (BlockContext ec)
                {
                        if (!ResolveVariable (ec))
                                return false;

                        ec.StartFlowBranching (this);

                        bool ok = stmt.Resolve (ec);

                        ec.EndFlowBranching ();

                        ok &= base.Resolve (ec);

                        if (TypeManager.void_dispose_void == null) {
                                TypeManager.void_dispose_void = TypeManager.GetPredefinedMethod (
                                        TypeManager.idisposable_type, "Dispose", loc, Type.EmptyTypes);
                        }

                        return ok;
                }

                bool ResolveVariable (BlockContext ec)
                {
                        assign = new SimpleAssign (var, init, loc);
                        assign = assign.ResolveStatement (ec);
                        if (assign == null)
                                return false;

                        if (assign.Type == TypeManager.idisposable_type ||
                                TypeManager.ImplementsInterface (assign.Type, TypeManager.idisposable_type)) {
                                return true;
                        }

                        Expression e = Convert.ImplicitConversionStandard (ec, assign, TypeManager.idisposable_type, var.Location);
                        if (e == null) {
                                Error_IsNotConvertibleToIDisposable (ec, var);
                                return false;
                        }

                        throw new NotImplementedException ("covariance?");
                }

                protected override void CloneTo (CloneContext clonectx, Statement t)
                {
                        Using target = (Using) t;

                        target.var = var.Clone (clonectx);
                        target.init = init.Clone (clonectx);
                        target.stmt = stmt.Clone (clonectx);
                }
        }

        /// <summary>
        ///   Implementation of the foreach C# statement
        /// </summary>
        public class Foreach : Statement {

                sealed class ArrayForeach : Statement
                {
                        class ArrayCounter : TemporaryVariable
                        {
                                StatementExpression increment;

                                public ArrayCounter (Location loc)
                                        : base (TypeManager.int32_type, loc)
                                {
                                }

                                public void ResolveIncrement (BlockContext ec)
                                {
                                        increment = new StatementExpression (new UnaryMutator (UnaryMutator.Mode.PostIncrement, this));
                                        increment.Resolve (ec);
                                }

                                public void EmitIncrement (EmitContext ec)
                                {
                                        increment.Emit (ec);
                                }
                        }

                        readonly Foreach for_each;
                        readonly Statement statement;

                        Expression conv;
                        TemporaryVariable[] lengths;
                        Expression [] length_exprs;
                        ArrayCounter[] counter;

                        TemporaryVariable copy;
                        Expression access;

                        public ArrayForeach (Foreach @foreach, int rank)
                        {
                                for_each = @foreach;
                                statement = for_each.statement;
                                loc = @foreach.loc;

                                counter = new ArrayCounter [rank];
                                length_exprs = new Expression [rank];

                                //
                                // Only use temporary length variables when dealing with
                                // multi-dimensional arrays
                                //
                                if (rank > 1)
                                        lengths = new TemporaryVariable [rank];
                        }

                        protected override void CloneTo (CloneContext clonectx, Statement target)
                        {
                                throw new NotImplementedException ();
                        }

                        public override bool Resolve (BlockContext ec)
                        {
                                copy = new TemporaryVariable (for_each.expr.Type, loc);
                                copy.Resolve (ec);

                                int rank = length_exprs.Length;
                                Arguments list = new Arguments (rank);
                                for (int i = 0; i < rank; i++) {
                                        counter [i] = new ArrayCounter (loc);
                                        counter [i].ResolveIncrement (ec);                                      

                                        if (rank == 1) {
                                                length_exprs [i] = new MemberAccess (copy, "Length").Resolve (ec);
                                        } else {
                                                lengths [i] = new TemporaryVariable (TypeManager.int32_type, loc);
                                                lengths [i].Resolve (ec);

                                                Arguments args = new Arguments (1);
                                                args.Add (new Argument (new IntConstant (i, loc)));
                                                length_exprs [i] = new Invocation (new MemberAccess (copy, "GetLength"), args).Resolve (ec);
                                        }

                                        list.Add (new Argument (counter [i]));
                                }

                                access = new ElementAccess (copy, list).Resolve (ec);
                                if (access == null)
                                        return false;

                                Expression var_type = for_each.type;
                                VarExpr ve = var_type as VarExpr;
                                if (ve != null) {
                                        // Infer implicitly typed local variable from foreach array type
                                        var_type = new TypeExpression (access.Type, ve.Location);
                                }

                                var_type = var_type.ResolveAsTypeTerminal (ec, false);
                                if (var_type == null)
                                        return false;

                                conv = Convert.ExplicitConversion (ec, access, var_type.Type, loc);
                                if (conv == null)
                                        return false;

                                bool ok = true;

                                ec.StartFlowBranching (FlowBranching.BranchingType.Loop, loc);
                                ec.CurrentBranching.CreateSibling ();

                                for_each.variable = for_each.variable.ResolveLValue (ec, conv);
                                if (for_each.variable == null)
                                        ok = false;

                                ec.StartFlowBranching (FlowBranching.BranchingType.Embedded, loc);
                                if (!statement.Resolve (ec))
                                        ok = false;
                                ec.EndFlowBranching ();

                                // There's no direct control flow from the end of the embedded statement to the end of the loop
                                ec.CurrentBranching.CurrentUsageVector.Goto ();

                                ec.EndFlowBranching ();

                                return ok;
                        }

                        protected override void DoEmit (EmitContext ec)
                        {
                                ILGenerator ig = ec.ig;

                                copy.EmitAssign (ec, for_each.expr);

                                int rank = length_exprs.Length;
                                Label[] test = new Label [rank];
                                Label[] loop = new Label [rank];

                                for (int i = 0; i < rank; i++) {
                                        test [i] = ig.DefineLabel ();
                                        loop [i] = ig.DefineLabel ();

                                        if (lengths != null)
                                                lengths [i].EmitAssign (ec, length_exprs [i]);
                                }

                                IntConstant zero = new IntConstant (0, loc);
                                for (int i = 0; i < rank; i++) {
                                        counter [i].EmitAssign (ec, zero);

                                        ig.Emit (OpCodes.Br, test [i]);
                                        ig.MarkLabel (loop [i]);
                                }

                                ((IAssignMethod) for_each.variable).EmitAssign (ec, conv, false, false);

                                statement.Emit (ec);

                                ig.MarkLabel (ec.LoopBegin);

                                for (int i = rank - 1; i >= 0; i--){
                                        counter [i].EmitIncrement (ec);

                                        ig.MarkLabel (test [i]);
                                        counter [i].Emit (ec);

                                        if (lengths != null)
                                                lengths [i].Emit (ec);
                                        else
                                                length_exprs [i].Emit (ec);

                                        ig.Emit (OpCodes.Blt, loop [i]);
                                }

                                ig.MarkLabel (ec.LoopEnd);
                        }

                        public override void MutateHoistedGenericType (AnonymousMethodStorey storey)
                        {
                                for_each.expr.MutateHoistedGenericType (storey);

                                copy.MutateHoistedGenericType (storey);
                                conv.MutateHoistedGenericType (storey);
                                statement.MutateHoistedGenericType (storey);

                                for (int i = 0; i < counter.Length; i++) {
                                        counter [i].MutateHoistedGenericType (storey);
                                        if (lengths != null)
                                                lengths [i].MutateHoistedGenericType (storey);
                                }
                        }
                }

                sealed class CollectionForeach : Statement
                {
                        class CollectionForeachStatement : Statement
                        {
                                Type type;
                                Expression variable, current, conv;
                                Statement statement;
                                Assign assign;

                                public CollectionForeachStatement (Type type, Expression variable,
                                                                   Expression current, Statement statement,
                                                                   Location loc)
                                {
                                        this.type = type;
                                        this.variable = variable;
                                        this.current = current;
                                        this.statement = statement;
                                        this.loc = loc;
                                }

                                protected override void CloneTo (CloneContext clonectx, Statement target)
                                {
                                        throw new NotImplementedException ();
                                }

                                public override bool Resolve (BlockContext ec)
                                {
                                        current = current.Resolve (ec);
                                        if (current == null)
                                                return false;

                                        conv = Convert.ExplicitConversion (ec, current, type, loc);
                                        if (conv == null)
                                                return false;

                                        assign = new SimpleAssign (variable, conv, loc);
                                        if (assign.Resolve (ec) == null)
                                                return false;

                                        if (!statement.Resolve (ec))
                                                return false;

                                        return true;
                                }

                                protected override void DoEmit (EmitContext ec)
                                {
                                        assign.EmitStatement (ec);
                                        statement.Emit (ec);
                                }

                                public override void MutateHoistedGenericType (AnonymousMethodStorey storey)
                                {
                                        assign.MutateHoistedGenericType (storey);
                                        statement.MutateHoistedGenericType (storey);
                                }
                        }

                        Expression variable, expr;
                        Statement statement;

                        TemporaryVariable enumerator;
                        Expression init;
                        Statement loop;
                        Statement wrapper;

                        MethodGroupExpr get_enumerator;
                        PropertyExpr get_current;
                        MethodInfo move_next;
                        Expression var_type;
                        Type enumerator_type;
                        bool enumerator_found;

                        public CollectionForeach (Expression var_type, Expression var,
                                                  Expression expr, Statement stmt, Location l)
                        {
                                this.var_type = var_type;
                                this.variable = var;
                                this.expr = expr;
                                statement = stmt;
                                loc = l;
                        }

                        protected override void CloneTo (CloneContext clonectx, Statement target)
                        {
                                throw new NotImplementedException ();
                        }

                        bool GetEnumeratorFilter (ResolveContext ec, MethodInfo mi)
                        {
                                Type return_type = mi.ReturnType;

                                //
                                // Ok, we can access it, now make sure that we can do something
                                // with this `GetEnumerator'
                                //

                                if (return_type == TypeManager.ienumerator_type ||
                                        TypeManager.ImplementsInterface (return_type, TypeManager.ienumerator_type)) {
                                        //
                                        // If it is not an interface, lets try to find the methods ourselves.
                                        // For example, if we have:
                                        // public class Foo : IEnumerator { public bool MoveNext () {} public int Current { get {}}}
                                        // We can avoid the iface call. This is a runtime perf boost.
                                        // even bigger if we have a ValueType, because we avoid the cost
                                        // of boxing.
                                        //
                                        // We have to make sure that both methods exist for us to take
                                        // this path. If one of the methods does not exist, we will just
                                        // use the interface. Sadly, this complex if statement is the only
                                        // way I could do this without a goto
                                        //

                                        if (TypeManager.bool_movenext_void == null) {
                                                TypeManager.bool_movenext_void = TypeManager.GetPredefinedMethod (
                                                        TypeManager.ienumerator_type, "MoveNext", loc, Type.EmptyTypes);
                                        }

                                        if (TypeManager.ienumerator_getcurrent == null) {
                                                TypeManager.ienumerator_getcurrent = TypeManager.GetPredefinedProperty (
                                                        TypeManager.ienumerator_type, "Current", loc, TypeManager.object_type);
                                        }

                                        //
                                        // Prefer a generic enumerator over a non-generic one.
                                        //
                                        if (return_type.IsInterface && TypeManager.IsGenericType (return_type)) {
                                                enumerator_type = return_type;
                                                if (!FetchGetCurrent (ec, return_type))
                                                        get_current = new PropertyExpr (
                                                                ec.CurrentType, TypeManager.ienumerator_getcurrent, loc);
                                                if (!FetchMoveNext (return_type))
                                                        move_next = TypeManager.bool_movenext_void;
                                                return true;
                                        }

                                        if (return_type.IsInterface ||
                                            !FetchMoveNext (return_type) ||
                                            !FetchGetCurrent (ec, return_type)) {
                                                enumerator_type = return_type;
                                                move_next = TypeManager.bool_movenext_void;
                                                get_current = new PropertyExpr (
                                                        ec.CurrentType, TypeManager.ienumerator_getcurrent, loc);
                                                return true;
                                        }
                                } else {
                                        //
                                        // Ok, so they dont return an IEnumerable, we will have to
                                        // find if they support the GetEnumerator pattern.
                                        //

                                        if (TypeManager.HasElementType (return_type) || !FetchMoveNext (return_type) || !FetchGetCurrent (ec, return_type)) {
                                                ec.Report.Error (202, loc, "foreach statement requires that the return type `{0}' of `{1}' must have a suitable public MoveNext method and public Current property",
                                                        TypeManager.CSharpName (return_type), TypeManager.CSharpSignature (mi));
                                                return false;
                                        }
                                }

                                enumerator_type = return_type;

                                return true;
                        }

                        //
                        // Retrieves a `public bool MoveNext ()' method from the Type `t'
                        //
                        bool FetchMoveNext (Type t)
                        {
                                MemberInfo[] move_next_list = TypeManager.MemberLookup (null, null, t,
                                        MemberTypes.Method,
                                        BindingFlags.Public | BindingFlags.Instance,
                                        "MoveNext", null);

                                if (move_next_list == null)
                                        return false;

                                foreach (MemberInfo m in move_next_list){
                                        MethodInfo mi = (MethodInfo) m;
                                
                                        if ((TypeManager.GetParameterData (mi).Count == 0) &&
                                            TypeManager.TypeToCoreType (mi.ReturnType) == TypeManager.bool_type) {
                                                move_next = mi;
                                                return true;
                                        }
                                }

                                return false;
                        }
                
                        //
                        // Retrieves a `public T get_Current ()' method from the Type `t'
                        //
                        bool FetchGetCurrent (ResolveContext ec, Type t)
                        {
                                PropertyExpr pe = Expression.MemberLookup (ec.Compiler,
                                        ec.CurrentType, t, "Current", MemberTypes.Property,
                                        Expression.AllBindingFlags, loc) as PropertyExpr;
                                if (pe == null)
                                        return false;

                                get_current = pe;
                                return true;
                        }

                        void Error_Enumerator (BlockContext ec)
                        {
                                if (enumerator_found) {
                                        return;
                                }

                            ec.Report.Error (1579, loc,
                                        "foreach statement cannot operate on variables of type `{0}' because it does not contain a definition for `GetEnumerator' or is not accessible",
                                        TypeManager.CSharpName (expr.Type));
                        }

                        bool IsOverride (MethodInfo m)
                        {
                                m = (MethodInfo) TypeManager.DropGenericMethodArguments (m);

                                if (!m.IsVirtual || ((m.Attributes & MethodAttributes.NewSlot) != 0))
                                        return false;
                                if (m is MethodBuilder)
                                        return true;

                                MethodInfo base_method = m.GetBaseDefinition ();
                                return base_method != m;
                        }

                        bool TryType (ResolveContext ec, Type t)
                        {
                                MethodGroupExpr mg = Expression.MemberLookup (ec.Compiler,
                                        ec.CurrentType, t, "GetEnumerator", MemberTypes.Method,
                                        Expression.AllBindingFlags, loc) as MethodGroupExpr;
                                if (mg == null)
                                        return false;

                                MethodInfo result = null;
                                MethodInfo tmp_move_next = null;
                                PropertyExpr tmp_get_cur = null;
                                Type tmp_enumerator_type = enumerator_type;
                                foreach (MethodInfo mi in mg.Methods) {
                                        if (TypeManager.GetParameterData (mi).Count != 0)
                                                continue;
                        
                                        // Check whether GetEnumerator is public
                                        if ((mi.Attributes & MethodAttributes.Public) != MethodAttributes.Public)
                                                continue;

                                        if (IsOverride (mi))
                                                continue;

                                        enumerator_found = true;

                                        if (!GetEnumeratorFilter (ec, mi))
                                                continue;

                                        if (result != null) {
                                                if (TypeManager.IsGenericType (result.ReturnType)) {
                                                        if (!TypeManager.IsGenericType (mi.ReturnType))
                                                                continue;

                                                        MethodBase mb = TypeManager.DropGenericMethodArguments (mi);
                                                        ec.Report.SymbolRelatedToPreviousError (t);
                                                        ec.Report.Error(1640, loc, "foreach statement cannot operate on variables of type `{0}' " +
                                                                     "because it contains multiple implementation of `{1}'. Try casting to a specific implementation",
                                                                     TypeManager.CSharpName (t), TypeManager.CSharpSignature (mb));
                                                        return false;
                                                }

                                                // Always prefer generics enumerators
                                                if (!TypeManager.IsGenericType (mi.ReturnType)) {
                                                        if (TypeManager.ImplementsInterface (mi.DeclaringType, result.DeclaringType) ||
                                                            TypeManager.ImplementsInterface (result.DeclaringType, mi.DeclaringType))
                                                                continue;

                                                        ec.Report.SymbolRelatedToPreviousError (result);
                                                        ec.Report.SymbolRelatedToPreviousError (mi);
                                                        ec.Report.Warning (278, 2, loc, "`{0}' contains ambiguous implementation of `{1}' pattern. Method `{2}' is ambiguous with method `{3}'",
                                                                        TypeManager.CSharpName (t), "enumerable", TypeManager.CSharpSignature (result), TypeManager.CSharpSignature (mi));
                                                        return false;
                                                }
                                        }
                                        result = mi;
                                        tmp_move_next = move_next;
                                        tmp_get_cur = get_current;
                                        tmp_enumerator_type = enumerator_type;
                                        if (mi.DeclaringType == t)
                                                break;
                                }

                                if (result != null) {
                                        move_next = tmp_move_next;
                                        get_current = tmp_get_cur;
                                        enumerator_type = tmp_enumerator_type;
                                        MethodInfo[] mi = new MethodInfo[] { (MethodInfo) result };
                                        get_enumerator = new MethodGroupExpr (mi, enumerator_type, loc);

                                        if (t != expr.Type) {
                                                expr = Convert.ExplicitConversion (
                                                        ec, expr, t, loc);
                                                if (expr == null)
                                                        throw new InternalErrorException ();
                                        }

                                        get_enumerator.InstanceExpression = expr;
                                        get_enumerator.IsBase = t != expr.Type;

                                        return true;
                                }

                                return false;
                        }

                        bool ProbeCollectionType (ResolveContext ec, Type t)
                        {
                                int errors = ec.Report.Errors;
                                for (Type tt = t; tt != null && tt != TypeManager.object_type;){
                                        if (TryType (ec, tt))
                                                return true;
                                        tt = tt.BaseType;
                                }

                                if (ec.Report.Errors > errors)
                                        return false;

                                //
                                // Now try to find the method in the interfaces
                                //
                                Type [] ifaces = TypeManager.GetInterfaces (t);
                                foreach (Type i in ifaces){
                                        if (TryType (ec, i))
                                                return true;
                                }

                                return false;
                        }

                        public override bool Resolve (BlockContext ec)
                        {
                                enumerator_type = TypeManager.ienumerator_type;

                                if (!ProbeCollectionType (ec, expr.Type)) {
                                        Error_Enumerator (ec);
                                        return false;
                                }

                                VarExpr ve = var_type as VarExpr;
                                if (ve != null) {
                                        // Infer implicitly typed local variable from foreach enumerable type
                                        var_type = new TypeExpression (get_current.PropertyInfo.PropertyType, var_type.Location);
                                }

                                var_type = var_type.ResolveAsTypeTerminal (ec, false);
                                if (var_type == null)
                                        return false;
                                                                
                                enumerator = new TemporaryVariable (enumerator_type, loc);
                                enumerator.Resolve (ec);

                                init = new Invocation (get_enumerator, null);
                                init = init.Resolve (ec);
                                if (init == null)
                                        return false;

                                Expression move_next_expr;
                                {
                                        MemberInfo[] mi = new MemberInfo[] { move_next };
                                        MethodGroupExpr mg = new MethodGroupExpr (mi, var_type.Type, loc);
                                        mg.InstanceExpression = enumerator;

                                        move_next_expr = new Invocation (mg, null);
                                }

                                get_current.InstanceExpression = enumerator;

                                Statement block = new CollectionForeachStatement (
                                        var_type.Type, variable, get_current, statement, loc);

                                loop = new While (move_next_expr, block, loc);


                                bool implements_idisposable = TypeManager.ImplementsInterface (enumerator_type, TypeManager.idisposable_type);
                                if (implements_idisposable || !enumerator_type.IsSealed) {
                                        wrapper = new DisposableWrapper (this, implements_idisposable);
                                } else {
                                        wrapper = new NonDisposableWrapper (this);
                                }

                                return wrapper.Resolve (ec);
                        }

                        protected override void DoEmit (EmitContext ec)
                        {
                                wrapper.Emit (ec);
                        }

                        class NonDisposableWrapper : Statement {
                                CollectionForeach parent;

                                internal NonDisposableWrapper (CollectionForeach parent)
                                {
                                        this.parent = parent;
                                }

                                protected override void CloneTo (CloneContext clonectx, Statement target)
                                {
                                        throw new NotSupportedException ();
                                }

                                public override bool Resolve (BlockContext ec)
                                {
                                        return parent.ResolveLoop (ec);
                                }

                                protected override void DoEmit (EmitContext ec)
                                {
                                        parent.EmitLoopInit (ec);
                                        parent.EmitLoopBody (ec);
                                }

                                public override void MutateHoistedGenericType (AnonymousMethodStorey storey)
                                {
                                        throw new NotSupportedException ();
                                }
                        }

                        sealed class DisposableWrapper : ExceptionStatement
                        {
                                CollectionForeach parent;
                                bool implements_idisposable;

                                internal DisposableWrapper (CollectionForeach parent, bool implements)
                                {
                                        this.parent = parent;
                                        this.implements_idisposable = implements;
                                }

                                protected override void CloneTo (CloneContext clonectx, Statement target)
                                {
                                        throw new NotSupportedException ();
                                }

                                public override bool Resolve (BlockContext ec)
                                {
                                        bool ok = true;

                                        ec.StartFlowBranching (this);

                                        if (!parent.ResolveLoop (ec))
                                                ok = false;

                                        ec.EndFlowBranching ();

                                        ok &= base.Resolve (ec);

                                        if (TypeManager.void_dispose_void == null) {
                                                TypeManager.void_dispose_void = TypeManager.GetPredefinedMethod (
                                                        TypeManager.idisposable_type, "Dispose", loc, Type.EmptyTypes);
                                        }
                                        return ok;
                                }

                                protected override void EmitPreTryBody (EmitContext ec)
                                {
                                        parent.EmitLoopInit (ec);
                                }

                                protected override void EmitTryBody (EmitContext ec)
                                {
                                        parent.EmitLoopBody (ec);
                                }

                                protected override void EmitFinallyBody (EmitContext ec)
                                {
                                        Expression instance = parent.enumerator;
                                        if (!TypeManager.IsValueType (parent.enumerator_type)) {
                                                ILGenerator ig = ec.ig;

                                                parent.enumerator.Emit (ec);

                                                Label call_dispose = ig.DefineLabel ();

                                                if (!implements_idisposable) {
                                                        ec.ig.Emit (OpCodes.Isinst, TypeManager.idisposable_type);
                                                        LocalTemporary temp = new LocalTemporary (TypeManager.idisposable_type);
                                                        temp.Store (ec);
                                                        temp.Emit (ec);
                                                        instance = temp;
                                                }
                                                
                                                ig.Emit (OpCodes.Brtrue_S, call_dispose);

                                                // using 'endfinally' to empty the evaluation stack
                                                ig.Emit (OpCodes.Endfinally);
                                                ig.MarkLabel (call_dispose);
                                        }

                                        Invocation.EmitCall (ec, false, instance, TypeManager.void_dispose_void, null, loc);
                                }

                                public override void MutateHoistedGenericType (AnonymousMethodStorey storey)
                                {
                                        throw new NotSupportedException ();
                                }
                        }

                        bool ResolveLoop (BlockContext ec)
                        {
                                return loop.Resolve (ec);
                        }

                        void EmitLoopInit (EmitContext ec)
                        {
                                enumerator.EmitAssign (ec, init);
                        }

                        void EmitLoopBody (EmitContext ec)
                        {
                                loop.Emit (ec);
                        }

                        public override void MutateHoistedGenericType (AnonymousMethodStorey storey)
                        {
                                enumerator_type = storey.MutateType (enumerator_type);
                                init.MutateHoistedGenericType (storey);
                                loop.MutateHoistedGenericType (storey);
                        }
                }

                Expression type;
                Expression variable;
                Expression expr;
                Statement statement;

                public Foreach (Expression type, LocalVariableReference var, Expression expr,
                                Statement stmt, Location l)
                {
                        this.type = type;
                        this.variable = var;
                        this.expr = expr;
                        statement = stmt;
                        loc = l;
                }

                public Statement Statement {
                        get { return statement; }
                }

                public override bool Resolve (BlockContext ec)
                {
                        expr = expr.Resolve (ec);
                        if (expr == null)
                                return false;

                        if (expr.IsNull) {
                                ec.Report.Error (186, loc, "Use of null is not valid in this context");
                                return false;
                        }

                        if (expr.Type == TypeManager.string_type) {
                                statement = new ArrayForeach (this, 1);
                        } else if (expr.Type.IsArray) {
                                statement = new ArrayForeach (this, expr.Type.GetArrayRank ());
                        } else {
                                if (expr.eclass == ExprClass.MethodGroup || expr is AnonymousMethodExpression) {
                                        ec.Report.Error (446, expr.Location, "Foreach statement cannot operate on a `{0}'",
                                                expr.ExprClassName);
                                        return false;
                                }

                                statement = new CollectionForeach (type, variable, expr, statement, loc);
                        }

                        return statement.Resolve (ec);
                }

                protected override void DoEmit (EmitContext ec)
                {
                        ILGenerator ig = ec.ig;

                        Label old_begin = ec.LoopBegin, old_end = ec.LoopEnd;
                        ec.LoopBegin = ig.DefineLabel ();
                        ec.LoopEnd = ig.DefineLabel ();

                        statement.Emit (ec);

                        ec.LoopBegin = old_begin;
                        ec.LoopEnd = old_end;
                }

                protected override void CloneTo (CloneContext clonectx, Statement t)
                {
                        Foreach target = (Foreach) t;

                        target.type = type.Clone (clonectx);
                        target.variable = variable.Clone (clonectx);
                        target.expr = expr.Clone (clonectx);
                        target.statement = statement.Clone (clonectx);
                }

                public override void MutateHoistedGenericType (AnonymousMethodStorey storey)
                {
                        statement.MutateHoistedGenericType (storey);
                }
        }
}