2004-04-28 Martin Baulig <martin@ximian.com>

[mono.git] / mcs / mcs / class.cs

//
// class.cs: Class and Struct handlers
//
// Authors: Miguel de Icaza (miguel@gnu.org)
//          Martin Baulig (martin@gnome.org)
//
// Licensed under the terms of the GNU GPL
//
// (C) 2001, 2002, 2003 Ximian, Inc (http://www.ximian.com)
//
//
//  2002-10-11  Miguel de Icaza  <miguel@ximian.com>
//
//      * class.cs: Following the comment from 2002-09-26 to AddMethod, I
//      have fixed a remaining problem: not every AddXXXX was adding a
//      fully qualified name.  
//
//      Now everyone registers a fully qualified name in the DeclSpace as
//      being defined instead of the partial name.  
//
//      Downsides: we are slower than we need to be due to the excess
//      copies and the names being registered this way.  
//
//      The reason for this is that we currently depend (on the corlib
//      bootstrap for instance) that types are fully qualified, because
//      we dump all the types in the namespace, and we should really have
//      types inserted into the proper namespace, so we can only store the
//      basenames in the defined_names array.
//
//
#define CACHE
using System;
using System.Collections;
using System.Reflection;
using System.Reflection.Emit;
using System.Runtime.CompilerServices;

namespace Mono.CSharp {

        /// <summary>
        ///   This is the base class for structs and classes.  
        /// </summary>
        public class TypeContainer : DeclSpace, IMemberContainer {
                // Holds a list of classes and structures
                ArrayList types;

                // Holds the list of properties
                ArrayList properties;

                // Holds the list of enumerations
                ArrayList enums;

                // Holds the list of delegates
                ArrayList delegates;
                
                // Holds the list of constructors
                ArrayList instance_constructors;

                // Holds the list of fields
                ArrayList fields;

                // Holds a list of fields that have initializers
                ArrayList initialized_fields;

                // Holds a list of static fields that have initializers
                ArrayList initialized_static_fields;

                // Holds the list of constants
                ArrayList constants;

                // Holds the list of
                ArrayList interfaces;

                // Holds order in which interfaces must be closed
                ArrayList interface_order;
                
                // Holds the methods.
                ArrayList methods;

                // Holds the events
                ArrayList events;

                // Holds the indexers
                ArrayList indexers;

                // Holds the operators
                ArrayList operators;

                // The emit context for toplevel objects.
                EmitContext ec;
                
                //
                // Pointers to the default constructor and the default static constructor
                //
                Constructor default_constructor;
                Constructor default_static_constructor;

                //
                // Whether we have seen a static constructor for this class or not
                //
                public bool UserDefinedStaticConstructor = false;

                //
                // Whether we have at least one non-static field
                //
                bool have_nonstatic_fields = false;
                
                //
                // This one is computed after we can distinguish interfaces
                // from classes from the arraylist `type_bases' 
                //
                string     base_class_name;

                ArrayList type_bases;

                bool members_defined;
                bool members_defined_ok;

                // Information in the case we are an attribute type

                public AttributeTargets Targets = AttributeTargets.All;
                public bool AllowMultiple = false;
                public bool Inherited;

                // The interfaces we implement.
                TypeExpr [] ifaces;
                Type[] base_inteface_types;

                // The parent member container and our member cache
                IMemberContainer parent_container;
                MemberCache member_cache;
                
                //
                // The indexer name for this class
                //
                public string IndexerName;

                public TypeContainer ():
                        this (null, null, "", null, new Location (-1)) {
                }

                public TypeContainer (NamespaceEntry ns, TypeContainer parent, string name, Attributes attrs, Location l)
                        : base (ns, parent, name, attrs, l)
                {
                        types = new ArrayList ();

                        base_class_name = null;
                }

                public AdditionResult AddConstant (Const constant)
                {
                        AdditionResult res;
                        string basename = constant.Name;
                        string fullname = Name + "." + basename;

                        if ((res = IsValid (basename, fullname)) != AdditionResult.Success)
                                return res;
                        
                        if (constants == null)
                                constants = new ArrayList ();

                        constants.Add (constant);
                        DefineName (fullname, constant);

                        return AdditionResult.Success;
                }

                public AdditionResult AddEnum (Mono.CSharp.Enum e)
                {
                        AdditionResult res;

                        if ((res = IsValid (e.Basename, e.Name)) != AdditionResult.Success)
                                return res;

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

                        enums.Add (e);
                        DefineName (e.Name, e);

                        return AdditionResult.Success;
                }
                
                public AdditionResult AddClass (Class c)
                {
                        AdditionResult res;
                        string name = c.Basename;
                        
                        if ((res = IsValid (name, c.Name)) != AdditionResult.Success)
                                return res;

                        DefineName (c.Name, c);
                        types.Add (c);

                        return AdditionResult.Success;
                }

                public AdditionResult AddStruct (Struct s)
                {
                        AdditionResult res;
                        string name = s.Basename;
                        
                        if ((res = IsValid (name, s.Name)) != AdditionResult.Success)
                                return res;

                        DefineName (s.Name, s);
                        types.Add (s);

                        return AdditionResult.Success;
                }

                public AdditionResult AddDelegate (Delegate d)
                {
                        AdditionResult res;
                        string name = d.Basename;
                        
                        if ((res = IsValid (name, d.Name)) != AdditionResult.Success)
                                return res;

                        if (delegates == null)
                                delegates = new ArrayList ();
                        
                        DefineName (d.Name, d);
                        delegates.Add (d);

                        return AdditionResult.Success;
                }

                public AdditionResult AddMethod (Method method)
                {
                        string basename = method.Name;
                        string fullname = Name + "." + basename;

                        Object value = defined_names [fullname];

                        if (value != null && (!(value is Method)))
                                return AdditionResult.NameExists;

                        if (basename == Basename)
                                return AdditionResult.EnclosingClash;

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

                        if (method.Name.IndexOf ('.') != -1)
                                methods.Insert (0, method);
                        else 
                                methods.Add (method);
                        
                        if (value == null)
                                DefineName (fullname, method);

                        return AdditionResult.Success;
                }

                public AdditionResult AddConstructor (Constructor c)
                {
                        if (c.Name != Basename) 
                                return AdditionResult.NotAConstructor;

                        bool is_static = (c.ModFlags & Modifiers.STATIC) != 0;
                        
                        if (is_static){
                                UserDefinedStaticConstructor = true;
                                if (default_static_constructor != null)
                                        return AdditionResult.MethodExists;

                                default_static_constructor = c;
                        } else {
                                if (c.IsDefault ()){
                                        if (default_constructor != null)
                                                return AdditionResult.MethodExists;
                                        default_constructor = c;
                                }
                                
                                if (instance_constructors == null)
                                        instance_constructors = new ArrayList ();
                                
                                instance_constructors.Add (c);
                        }
                        
                        return AdditionResult.Success;
                }
                
                public AdditionResult AddInterface (Interface iface)
                {
                        AdditionResult res;
                        string name = iface.Basename;
                        
                        if ((res = IsValid (name, iface.Name)) != AdditionResult.Success)
                                return res;
                        
                        if (interfaces == null)
                                interfaces = new ArrayList ();
                        interfaces.Add (iface);
                        DefineName (iface.Name, iface);
                        
                        return AdditionResult.Success;
                }

                public AdditionResult AddField (Field field)
                {
                        AdditionResult res;
                        string basename = field.Name;
                        string fullname = Name + "." + basename;

                        if ((res = IsValid (basename, fullname)) != AdditionResult.Success)
                                return res;
                        
                        if (fields == null)
                                fields = new ArrayList ();
                        
                        fields.Add (field);
                        
                        if (field.HasInitializer){
                                if ((field.ModFlags & Modifiers.STATIC) != 0){
                                        if (initialized_static_fields == null)
                                                initialized_static_fields = new ArrayList ();

                                        initialized_static_fields.Add (field);

                                } else {
                                        if (initialized_fields == null)
                                                initialized_fields = new ArrayList ();
                                
                                        initialized_fields.Add (field);
                                }
                        }

                        if ((field.ModFlags & Modifiers.STATIC) == 0)
                                have_nonstatic_fields = true;

                        DefineName (fullname, field);
                        return AdditionResult.Success;
                }

                public AdditionResult AddProperty (Property prop)
                {
                        AdditionResult res;

                        if ((res = AddProperty (prop, prop.Name)) != AdditionResult.Success)
                                return res;

                        if (prop.Get != null) {
                                if ((res = AddProperty (prop, "get_" + prop.Name)) != AdditionResult.Success)
                                        return res;
                        }

                        if (prop.Set != null) {
                                if ((res = AddProperty (prop, "set_" + prop.Name)) != AdditionResult.Success)
                                return res;
                        }

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

                        if (prop.Name.IndexOf ('.') != -1)
                                properties.Insert (0, prop);
                        else
                                properties.Add (prop);

                        return AdditionResult.Success;
                }

                AdditionResult AddProperty (Property prop, string basename)
                {
                        AdditionResult res;
                        string fullname = Name + "." + basename;

                        if ((res = IsValid (basename, fullname)) != AdditionResult.Success)
                                return res;

                        DefineName (fullname, prop);

                        return AdditionResult.Success;
                }

                public AdditionResult AddEvent (Event e)
                {
                        AdditionResult res;
                        string basename = e.Name;
                        string fullname = Name + "." + basename;

                        if ((res = IsValid (basename, fullname)) != AdditionResult.Success)
                                return res;

                        if (events == null)
                                events = new ArrayList ();
                        
                        events.Add (e);
                        DefineName (fullname, e);

                        return AdditionResult.Success;
                }

                public void AddIndexer (Indexer i)
                {
                        if (indexers == null)
                                indexers = new ArrayList ();

                        if (i.ExplicitInterfaceName != null)
                                indexers.Insert (0, i);
                        else
                                indexers.Add (i);
                }

                public AdditionResult AddOperator (Operator op)
                {
                        if (operators == null)
                                operators = new ArrayList ();

                        operators.Add (op);

                        string basename = op.Name;
                        string fullname = Name + "." + basename;
                        if (!defined_names.Contains (fullname))
                        {
                                DefineName (fullname, op);
                        }
                        return AdditionResult.Success;
                }

                public void RegisterOrder (Interface iface)
                {
                        if (interface_order == null)
                                interface_order = new ArrayList ();

                        interface_order.Add (iface);
                }
                
                public ArrayList Types {
                        get {
                                return types;
                        }
                }

                public ArrayList Methods {
                        get {
                                return methods;
                        }
                }

                public ArrayList Constants {
                        get {
                                return constants;
                        }
                }

                public ArrayList Interfaces {
                        get {
                                return interfaces;
                        }
                }
                
                public string Base {
                        get {
                                return base_class_name;
                        }
                }
                
                public ArrayList Bases {
                        get {
                                return type_bases;
                        }

                        set {
                                type_bases = value;
                        }
                }

                public ArrayList Fields {
                        get {
                                return fields;
                        }

                        set {
                                fields = value;
                        }
                }

                public ArrayList InstanceConstructors {
                        get {
                                return instance_constructors;
                        }
                }

                public ArrayList Properties {
                        get {
                                return properties;
                        }
                }

                public ArrayList Events {
                        get {
                                return events;
                        }
                }
                
                public ArrayList Enums {
                        get {
                                return enums;
                        }
                }

                public ArrayList Indexers {
                        get {
                                return indexers;
                        }
                }

                public ArrayList Operators {
                        get {
                                return operators;
                        }
                }

                public ArrayList Delegates {
                        get {
                                return delegates;
                        }
                }

                public virtual TypeAttributes TypeAttr {
                        get {
                                return Modifiers.TypeAttr (ModFlags, this);
                        }
                }

                //
                // Emits the instance field initializers
                //
                public bool EmitFieldInitializers (EmitContext ec)
                {
                        ArrayList fields;
                        Expression instance_expr;
                        
                        if (ec.IsStatic){
                                fields = initialized_static_fields;
                                instance_expr = null;
                        } else {
                                fields = initialized_fields;
                                instance_expr = new This (Location.Null).Resolve (ec);
                        }

                        if (fields == null)
                                return true;

                        foreach (Field f in fields){
                                Expression e = f.GetInitializerExpression (ec);
                                if (e == null)
                                        return false;

                                Location l = f.Location;
                                FieldExpr fe = new FieldExpr (f.FieldBuilder, l);
                                fe.InstanceExpression = instance_expr;
                                ExpressionStatement a = new Assign (fe, e, l);

                                a = a.ResolveStatement (ec);
                                if (a == null)
                                        return false;

                                a.EmitStatement (ec);
                        }

                        return true;
                }
                
                //
                // Defines the default constructors
                //
                void DefineDefaultConstructor (bool is_static)
                {
                        Constructor c;

                        // The default constructor is public
                        // If the class is abstract, the default constructor is protected
                        // The default static constructor is private

                        int mods = Modifiers.PUBLIC;
                        if (is_static)
                                mods = Modifiers.STATIC | Modifiers.PRIVATE;
                        else if ((ModFlags & Modifiers.ABSTRACT) != 0)
                                mods = Modifiers.PROTECTED;

                        c = new Constructor (this, Basename, mods, Parameters.EmptyReadOnlyParameters,
                                             new ConstructorBaseInitializer (
                                                     null, Parameters.EmptyReadOnlyParameters,
                                                     Location),
                                             Location);
                        
                        AddConstructor (c);
                        
                        c.Block = new ToplevelBlock (null, Location);
                        
                }

                public void ReportStructInitializedInstanceError ()
                {
                        string n = TypeBuilder.FullName;
                        
                        foreach (Field f in initialized_fields){
                                Report.Error (
                                        573, Location,
                                        "`" + n + "." + f.Name + "': can not have " +
                                        "instance field initializers in structs");
                        }
                }

                /// <remarks>
                ///  The pending methods that need to be implemented (interfaces or abstract methods)
                /// </remarks>
                public PendingImplementation Pending;

                /// <summary>
                ///   This function computes the Base class and also the
                ///   list of interfaces that the class or struct @c implements.
                ///   
                ///   The return value is an array (might be null) of
                ///   interfaces implemented (as Types).
                ///   
                ///   The @parent argument is set to the parent object or null
                ///   if this is `System.Object'. 
                /// </summary>
                TypeExpr [] GetClassBases (bool is_class, bool is_iface,
                                           out TypeExpr parent, out bool error)
                {
                        ArrayList bases = Bases;
                        int count;
                        int start, j, i;

                        error = false;

                        if (is_class || is_iface)
                                parent = null;
                        else
                                parent = TypeManager.system_valuetype_expr;

                        if (bases == null){
                                if (is_class){
                                        if (RootContext.StdLib)
                                                parent = TypeManager.system_object_expr;
                                        else if (Name != "System.Object")
                                                parent = TypeManager.system_object_expr;
                                } else {
                                        //
                                        // If we are compiling our runtime,
                                        // and we are defining ValueType, then our
                                        // parent is `System.Object'.
                                        //
                                        if (!RootContext.StdLib && Name == "System.ValueType")
                                                parent = TypeManager.system_object_expr;
                                }

                                return null;
                        }

                        //
                        // Bases should be null if there are no bases at all
                        //
                        count = bases.Count;

                        if (is_class){
                                TypeExpr name = ResolveTypeExpr ((Expression) bases [0], false, Location);

                                if (name == null){
                                        error = true;
                                        return null;
                                }

                                if (name.IsClass){
                                        parent = name;
                                        start = 1;
                                } else {
                                        parent = TypeManager.system_object_expr;
                                        start = 0;
                                }
                                if (name.IsSealed){
                                        string detail = "";
                                        
                                        if (name.IsValueType)
                                                detail = " (a class can not inherit from a struct/enum)";
                                        
                                        Report.Error (509, "class `"+ Name +
                                                      "': Cannot inherit from sealed class `"+
                                                      name.Name + "'" + detail);
                                        error = true;
                                        return null;
                                }

                                if (!parent.CanInheritFrom ()){
                                        Report.Error (644, Location,
                                                      "`{0}' cannot inherit from special class `{1}'",
                                                      Name, parent.Name);
                                        error = true;
                                        return null;
                                }

                                if (!parent.AsAccessible (this, ModFlags))
                                        Report.Error (60, Location,
                                                      "Inconsistent accessibility: base class `" +
                                                      name.Name + "' is less accessible than class `" +
                                                      Name + "'");

                        } else {
                                start = 0;
                        }

                        if (parent != null)
                                base_class_name = parent.Name;

                        TypeExpr [] ifaces = new TypeExpr [count-start];
                        
                        for (i = start, j = 0; i < count; i++, j++){
                                Expression name = (Expression) bases [i];
                                TypeExpr resolved = ResolveTypeExpr (name, false, Location);
                                if (resolved == null)
                                        return null;
                                
                                bases [i] = resolved;

                                if (is_class == false && !resolved.IsInterface){
                                        Report.Error (527, "In Struct `" + Name + "', type `"+
                                                      name +"' is not an interface");
                                        error = true;
                                        return null;
                                }
                                
                                if (resolved.IsClass) {
                                        if (parent != null){
                                                Report.Error (527, "In Class `" + Name + "', type `"+
                                                              name+"' is not an interface");
                                                error = true;
                                                return null;
                                        }
                                }

                                for (int x = 0; x < j; x++) {
                                        if (resolved.Equals (ifaces [x])) {
                                                Report.Error (528, "`" + name + "' is already listed in interface list");
                                                error = true;
                                                return null;
                                        }
                                }

                                if (is_iface &&
                                    !resolved.AsAccessible (Parent, ModFlags))
                                        Report.Error (61, Location,
                                                      "Inconsistent accessibility: base interface `" +
                                                      name + "' is less accessible than interface `" +
                                                      Name + "'");

                                ifaces [j] = resolved;
                        }

                        return TypeManager.ExpandInterfaces (ifaces);
                }

                bool error = false;
                
                //
                // Defines the type in the appropriate ModuleBuilder or TypeBuilder.
                //
                public override TypeBuilder DefineType ()
                {
                        TypeExpr parent;
                        bool is_class, is_iface;

                        if (TypeBuilder != null)
                                return TypeBuilder;

                        if (error)
                                return null;
                        
                        if (InTransit) {
                                Report.Error (146, Location, "Class definition is circular: `{0}'", Name);
                                error = true;
                                return null;
                        }
                        
                        InTransit = true;

                        if (this is Interface) {
                                is_iface = true;
                                is_class = false;
                        } else {
                                is_iface = false;
                                if (this is Class)
                                        is_class = true;
                                else
                                        is_class = false;
                        }

                        ec = new EmitContext (this, Mono.CSharp.Location.Null, null, null, ModFlags);

                        ifaces = GetClassBases (is_class, is_iface, out parent, out error); 

                        if (error)
                                return null;

                        if (!is_class && TypeManager.value_type == null)
                                throw new Exception ();

                        TypeAttributes type_attributes = TypeAttr;

                        Type ptype;
                        if (parent != null)
                                ptype = parent.ResolveType (ec);
                        else
                                ptype = null;

                        if (IsTopLevel){
                                if (TypeManager.NamespaceClash (Name, Location)) {
                                        error = true;
                                        return null;
                                }
                                
                                ModuleBuilder builder = CodeGen.Module.Builder;
                                TypeBuilder = builder.DefineType (
                                        Name, type_attributes, ptype, null);
                        } else {
                                TypeBuilder builder = Parent.DefineType ();
                                if (builder == null)
                                        return null;
                                
                                TypeBuilder = builder.DefineNestedType (
                                        Basename, type_attributes, ptype, null);
                        }
                                
                        //
                        // Structs with no fields need to have at least one byte.
                        // The right thing would be to set the PackingSize in a DefineType
                        // but there are no functions that allow interfaces *and* the size to
                        // be specified.
                        //

                        if (!is_class && !is_iface && !have_nonstatic_fields){
                                TypeBuilder.DefineField ("$PRIVATE$", TypeManager.byte_type,
                                                         FieldAttributes.Private);
                        }

                        // add interfaces that were not added at type creation
                        if (ifaces != null) {
                                base_inteface_types = new Type[ifaces.Length];
                                for (int i = 0; i < ifaces.Length; ++i) {
                                        Type itype = ifaces [i].ResolveType (ec);
                                        TypeBuilder.AddInterfaceImplementation (itype);
                                        base_inteface_types [i] = itype;
                                }
                        }

                        //
                        // Finish the setup for the EmitContext
                        //
                        ec.ContainerType = TypeBuilder;

                        TypeManager.AddUserType (Name, TypeBuilder, this, ifaces);

                        if ((parent != null) && parent.IsAttribute) {
                                RootContext.RegisterAttribute (this);
                                TypeManager.RegisterAttrType (TypeBuilder, this);
                        } else
                                RootContext.RegisterOrder (this); 
                                
                        if (Interfaces != null) {
                                foreach (Interface iface in Interfaces)
                                        if (iface.DefineType () == null) {
                                                error = true;
                                                return null;
                                        }
                        }
                        
                        if (Types != null) {
                                foreach (TypeContainer tc in Types)
                                        if (tc.DefineType () == null) {
                                                error = true;
                                                return null;
                                        }
                        }

                        if (Delegates != null) {
                                foreach (Delegate d in Delegates)
                                        if (d.DefineType () == null) {
                                                error = true;
                                                return null;
                                        }
                        }

                        if (Enums != null) {
                                foreach (Enum en in Enums)
                                        if (en.DefineType () == null) {
                                                error = true;
                                                return null;
                                        }
                        }

                        InTransit = false;
                        return TypeBuilder;
                }


                /// <summary>
                ///   Defines the MemberCore objects that are in the `list' Arraylist
                ///
                ///   The `defined_names' array contains a list of members defined in
                ///   a base class
                /// </summary>
                static ArrayList remove_list = new ArrayList ();
                void DefineMembers (ArrayList list, MemberInfo [] defined_names)
                {
                        int idx;
                        
                        remove_list.Clear ();

                        foreach (MemberCore mc in list){

                                if (defined_names != null)
                                        idx = Array.BinarySearch (defined_names, mc.Name, mif_compare);
                                else
                                        idx = -1;

                                if (idx < 0){
                                        if (RootContext.WarningLevel >= 4){
                                                if ((mc.ModFlags & Modifiers.NEW) != 0)
                                                        Warning_KeywordNewNotRequired (mc.Location, mc);
                                        }
                                } else if (mc is MethodCore)
                                        ((MethodCore) mc).OverridesSomething = true;

                                if (!mc.Define (this)){
                                        remove_list.Add (mc);
                                        continue;
                                }
                                                
                                if (idx < 0)
                                        continue;

                                MemberInfo match = defined_names [idx];

                                if (match is PropertyInfo && ((mc.ModFlags & Modifiers.OVERRIDE) != 0))
                                        continue;

                                //
                                // If we are both methods, let the method resolution emit warnings
                                //
                                if (match is MethodBase && mc is MethodCore)
                                        continue; 

                                if ((mc.ModFlags & Modifiers.NEW) == 0) {
                                        if (mc is Event) {
                                                if (!(match is EventInfo)) {
                                                        Error_EventCanOnlyOverrideEvent (mc.Location, defined_names [idx]);
                                                        return;
                                                }

                                                if ((mc.ModFlags & Modifiers.OVERRIDE) != 0)
                                                        continue;
                                        }

                                        Warning_KeywordNewRequired (mc.Location, defined_names [idx]);
                                }
                        }
                        
                        foreach (object o in remove_list)
                                list.Remove (o);
                        
                        remove_list.Clear ();
                }

                //
                // Defines the indexers, and also verifies that the IndexerNameAttribute in the
                // class is consistent.  Either it is `Item' or it is the name defined by all the
                // indexers with the `IndexerName' attribute.
                //
                // Turns out that the IndexerNameAttribute is applied to each indexer,
                // but it is never emitted, instead a DefaultMember attribute is attached
                // to the class.
                //
                void DefineIndexers ()
                {
                        string class_indexer_name = null;

                        //
                        // If there's both an explicit and an implicit interface implementation, the
                        // explicit one actually implements the interface while the other one is just
                        // a normal indexer.  See bug #37714.
                        //

                        // Invariant maintained by AddIndexer(): All explicit interface indexers precede normal indexers
                        bool seen_normal_indexers = false;
                        foreach (Indexer i in Indexers) {
                                if (i.ExplicitInterfaceName == null)
                                        seen_normal_indexers = true;
                                else if (seen_normal_indexers)
                                        throw new Exception ("Internal Error: 'Indexers' array not sorted properly.");
                        }

                        foreach (Indexer i in Indexers) {
                                string name;

                                i.Define (this);

                                name = i.IndexerName;

                                if (i.InterfaceType != null)
                                        continue;

                                if (class_indexer_name == null){
                                        class_indexer_name = name;
                                        continue;
                                }
                                
                                if (name == class_indexer_name)
                                        continue;
                                
                                Report.Error (
                                        668, "Two indexers have different names, " +
                                        " you should use the same name for all your indexers");
                        }

                        if (seen_normal_indexers && class_indexer_name == null)
                                class_indexer_name = "Item";
                        IndexerName = class_indexer_name;
                }

                static void Error_KeywordNotAllowed (Location loc)
                {
                        Report.Error (1530, loc, "Keyword new not allowed for namespace elements");
                }

                /// <summary>
                ///   Populates our TypeBuilder with fields and methods
                /// </summary>
                public override bool DefineMembers (TypeContainer container)
                {
                        if (members_defined)
                                return members_defined_ok;

                        members_defined_ok = DoDefineMembers ();
                        members_defined = true;

                        return members_defined_ok;
                }

                bool DoDefineMembers ()
                {
                        MemberInfo [] defined_names = null;

                        //
                        // We need to be able to use the member cache while we are checking/defining
                        //
#if CACHE
                        if (TypeBuilder.BaseType != null)
                                parent_container = TypeManager.LookupMemberContainer (TypeBuilder.BaseType);
#endif

                        if (interface_order != null){
                                foreach (Interface iface in interface_order)
                                        if ((iface.ModFlags & Modifiers.NEW) == 0)
                                                iface.DefineMembers (this);
                                        else
                                                Error_KeywordNotAllowed (iface.Location);
                        }

                        if (RootContext.WarningLevel > 1){
                                Type ptype;

                                //
                                // This code throws an exception in the comparer
                                // I guess the string is not an object?
                                //
                                ptype = TypeBuilder.BaseType;
                                if (ptype != null){
                                        defined_names = (MemberInfo []) FindMembers (
                                                ptype, MemberTypes.All & ~MemberTypes.Constructor,
                                                BindingFlags.Public | BindingFlags.Instance |
                                                BindingFlags.Static, null, null);

                                        Array.Sort (defined_names, mif_compare);
                                }
                        }

                        Class pclass = Parent as Class;
                        if (pclass != null) {
                                string pname = null;
                                Type ptype = null;
                                Type t = pclass.TypeBuilder.BaseType;
                                while ((t != null) && (ptype == null)) {
                                        pname = t.FullName + "." + Basename;
                                        ptype = RootContext.LookupType (this, pname, true, Location.Null);
                                        t = t.BaseType;
                                }

                                if ((ModFlags & Modifiers.NEW) != 0) {
                                        if (ptype == null)
                                                Report.Warning (109, Location, "The member '" + Name + "' does not hide an " +
                                                                "inherited member. The keyword new is not required.");
                                } else if (ptype != null) {
                                        Report.Warning (108, Location, "The keyword new is required on `" +
                                                        Name + "' because it hides inherited member '" +
                                                        pname + "'.");
                                }
                        } else if ((ModFlags & Modifiers.NEW) != 0)
                                Error_KeywordNotAllowed (Location);

                        if (constants != null)
                                DefineMembers (constants, defined_names);

                        if (fields != null)
                                DefineMembers (fields, defined_names);

                        if (this is Class){
                                if (instance_constructors == null){
                                        if (default_constructor == null)
                                                DefineDefaultConstructor (false);
                                }

                                if (initialized_static_fields != null &&
                                    default_static_constructor == null)
                                        DefineDefaultConstructor (true);
                        }

                        if (this is Struct){
                                //
                                // Structs can not have initialized instance
                                // fields
                                //
                                if (initialized_static_fields != null &&
                                    default_static_constructor == null)
                                        DefineDefaultConstructor (true);

                                if (initialized_fields != null)
                                        ReportStructInitializedInstanceError ();
                        }

                        if (!(this is Interface))
                                Pending = PendingImplementation.GetPendingImplementations (this);
                        
                        //
                        // Constructors are not in the defined_names array
                        //
                        if (instance_constructors != null)
                                DefineMembers (instance_constructors, null);
                
                        if (default_static_constructor != null)
                                default_static_constructor.Define (this);
                        
                        if (methods != null)
                                DefineMembers (methods, defined_names);

                        if (properties != null)
                                DefineMembers (properties, defined_names);

                        if (events != null)
                                DefineMembers (events, defined_names);

                        if (indexers != null)
                                DefineIndexers ();

                        if (operators != null){
                                DefineMembers (operators, null);

                                CheckPairedOperators ();
                        }

                        if (enums != null)
                                DefineMembers (enums, defined_names);
                        
                        if (delegates != null)
                                DefineMembers (delegates, defined_names);

#if CACHE
                        member_cache = new MemberCache (this);
#endif

                        
                        return true;
                }

                public override bool Define (TypeContainer container)
                {
                        if (interface_order != null){
                                foreach (Interface iface in interface_order)
                                        if ((iface.ModFlags & Modifiers.NEW) == 0)
                                                iface.Define (this);
                        }

                        return true;
                }

                /// <summary>
                ///   This function is based by a delegate to the FindMembers routine
                /// </summary>
                static bool AlwaysAccept (MemberInfo m, object filterCriteria)
                {
                        return true;
                }

                /// <summary>
                ///   This filter is used by FindMembers, and we just keep
                ///   a global for the filter to `AlwaysAccept'
                /// </summary>
                static MemberFilter accepting_filter;

                
                /// <summary>
                ///   A member comparission method based on name only
                /// </summary>
                static IComparer mif_compare;

                static TypeContainer ()
                {
                        accepting_filter = new MemberFilter (AlwaysAccept);
                        mif_compare = new MemberInfoCompare ();
                }

                public MethodInfo[] GetMethods ()
                {
                        ArrayList members = new ArrayList ();

                        DefineMembers (null);

                        if (methods != null) {
                                int len = methods.Count;
                                for (int i = 0; i < len; i++) {
                                        Method m = (Method) methods [i];

                                        members.Add (m.MethodBuilder);
                                }
                        }

                        if (operators != null) {
                                int len = operators.Count;
                                for (int i = 0; i < len; i++) {
                                        Operator o = (Operator) operators [i];

                                        members.Add (o.OperatorMethodBuilder);
                                }
                        }

                        if (properties != null) {
                                int len = properties.Count;
                                for (int i = 0; i < len; i++) {
                                        Property p = (Property) properties [i];

                                        if (p.GetBuilder != null)
                                                members.Add (p.GetBuilder);
                                        if (p.SetBuilder != null)
                                                members.Add (p.SetBuilder);
                                }
                        }
                                
                        if (indexers != null) {
                                int len = indexers.Count;
                                for (int i = 0; i < len; i++) {
                                        Indexer ix = (Indexer) indexers [i];

                                        if (ix.GetBuilder != null)
                                                members.Add (ix.GetBuilder);
                                        if (ix.SetBuilder != null)
                                                members.Add (ix.SetBuilder);
                                }
                        }

                        if (events != null) {
                                int len = events.Count;
                                for (int i = 0; i < len; i++) {
                                        Event e = (Event) events [i];

                                        if (e.AddBuilder != null)
                                                members.Add (e.AddBuilder);
                                        if (e.RemoveBuilder != null)
                                                members.Add (e.RemoveBuilder);
                                }
                        }

                        MethodInfo[] retMethods = new MethodInfo [members.Count];
                        members.CopyTo (retMethods, 0);
                        return retMethods;
                }
                
                /// <summary>
                ///   This method returns the members of this type just like Type.FindMembers would
                ///   Only, we need to use this for types which are _being_ defined because MS' 
                ///   implementation can't take care of that.
                /// </summary>
                //
                // FIXME: return an empty static array instead of null, that cleans up
                // some code and is consistent with some coding conventions I just found
                // out existed ;-)
                //
                //
                // Notice that in various cases we check if our field is non-null,
                // something that would normally mean that there was a bug elsewhere.
                //
                // The problem happens while we are defining p-invoke methods, as those
                // will trigger a FindMembers, but this happens before things are defined
                //
                // Since the whole process is a no-op, it is fine to check for null here.
                //
                public override MemberList FindMembers (MemberTypes mt, BindingFlags bf,
                                                        MemberFilter filter, object criteria)
                {
                        ArrayList members = null;

                        int modflags = 0;
                        if ((bf & BindingFlags.Public) != 0)
                                modflags |= Modifiers.PUBLIC | Modifiers.PROTECTED |
                                        Modifiers.INTERNAL;
                        if ((bf & BindingFlags.NonPublic) != 0)
                                modflags |= Modifiers.PRIVATE;

                        int static_mask = 0, static_flags = 0;
                        switch (bf & (BindingFlags.Static | BindingFlags.Instance)) {
                        case BindingFlags.Static:
                                static_mask = static_flags = Modifiers.STATIC;
                                break;

                        case BindingFlags.Instance:
                                static_mask = Modifiers.STATIC;
                                static_flags = 0;
                                break;

                        default:
                                static_mask = static_flags = 0;
                                break;
                        }

                        Timer.StartTimer (TimerType.TcFindMembers);

                        if (filter == null)
                                filter = accepting_filter; 

                        if ((mt & MemberTypes.Field) != 0) {
                                if (fields != null) {
                                        int len = fields.Count;
                                        for (int i = 0; i < len; i++) {
                                                Field f = (Field) fields [i];
                                                
                                                if ((f.ModFlags & modflags) == 0)
                                                        continue;
                                                if ((f.ModFlags & static_mask) != static_flags)
                                                        continue;

                                                FieldBuilder fb = f.FieldBuilder;
                                                if (fb != null && filter (fb, criteria) == true) {
                                                        if (members == null)
                                                                members = new ArrayList ();
                                                        
                                                        members.Add (fb);
                                                }
                                        }
                                }

                                if (constants != null) {
                                        int len = constants.Count;
                                        for (int i = 0; i < len; i++) {
                                                Const con = (Const) constants [i];
                                                
                                                if ((con.ModFlags & modflags) == 0)
                                                        continue;
                                                if ((con.ModFlags & static_mask) != static_flags)
                                                        continue;

                                                FieldBuilder fb = con.FieldBuilder;
                                                if (fb != null && filter (fb, criteria) == true) {
                                                        if (members == null)
                                                                members = new ArrayList ();
                                                        
                                                        members.Add (fb);
                                                }
                                        }
                                }
                        }

                        if ((mt & MemberTypes.Method) != 0) {
                                if (methods != null) {
                                        int len = methods.Count;
                                        for (int i = 0; i < len; i++) {
                                                Method m = (Method) methods [i];
                                                
                                                if ((m.ModFlags & modflags) == 0)
                                                        continue;
                                                if ((m.ModFlags & static_mask) != static_flags)
                                                        continue;
                                                
                                                MethodBuilder mb = m.MethodBuilder;

                                                if (mb != null && filter (mb, criteria) == true) {
                                                        if (members == null)
                                                                members = new ArrayList ();
                                                        
                                                        members.Add (mb);
                                                }
                                        }
                                }

                                if (operators != null) {
                                        int len = operators.Count;
                                        for (int i = 0; i < len; i++) {
                                                Operator o = (Operator) operators [i];
                                                
                                                if ((o.ModFlags & modflags) == 0)
                                                        continue;
                                                if ((o.ModFlags & static_mask) != static_flags)
                                                        continue;
                                                
                                                MethodBuilder ob = o.OperatorMethodBuilder;
                                                if (ob != null && filter (ob, criteria) == true) {
                                                        if (members == null)
                                                                members = new ArrayList ();
                                                        
                                                        members.Add (ob);
                                                }
                                        }
                                }

                                if (properties != null) {
                                        int len = properties.Count;
                                        for (int i = 0; i < len; i++) {
                                                Property p = (Property) properties [i];
                                                
                                                if ((p.ModFlags & modflags) == 0)
                                                        continue;
                                                if ((p.ModFlags & static_mask) != static_flags)
                                                        continue;
                                                
                                                MethodBuilder b;

                                                b = p.GetBuilder;
                                                if (b != null && filter (b, criteria) == true) {
                                                        if (members == null)
                                                                members = new ArrayList ();
                                                        
                                                        members.Add (b);
                                                }

                                                b = p.SetBuilder;
                                                if (b != null && filter (b, criteria) == true) {
                                                        if (members == null)
                                                                members = new ArrayList ();
                                                        
                                                        members.Add (b);
                                                }
                                        }
                                }
                                
                                if (indexers != null) {
                                        int len = indexers.Count;
                                        for (int i = 0; i < len; i++) {
                                                Indexer ix = (Indexer) indexers [i];
                                                
                                                if ((ix.ModFlags & modflags) == 0)
                                                        continue;
                                                if ((ix.ModFlags & static_mask) != static_flags)
                                                        continue;
                                                
                                                MethodBuilder b;

                                                b = ix.GetBuilder;
                                                if (b != null && filter (b, criteria) == true) {
                                                        if (members == null)
                                                                members = new ArrayList ();
                                                        
                                                        members.Add (b);
                                                }

                                                b = ix.SetBuilder;
                                                if (b != null && filter (b, criteria) == true) {
                                                        if (members == null)
                                                                members = new ArrayList ();
                                                        
                                                        members.Add (b);
                                                }
                                        }
                                }
                        }

                        if ((mt & MemberTypes.Event) != 0) {
                                if (events != null) {
                                        int len = events.Count;
                                        for (int i = 0; i < len; i++) {
                                                Event e = (Event) events [i];
                                                
                                                if ((e.ModFlags & modflags) == 0)
                                                        continue;
                                                if ((e.ModFlags & static_mask) != static_flags)
                                                        continue;

                                                MemberInfo eb = e.EventBuilder;
                                                if (eb != null && filter (eb, criteria) == true) {
                                                        if (members == null)
                                                                members = new ArrayList ();
                                                        
                                                        members.Add (e.EventBuilder);
                                                }
                                        }
                                }
                        }
                        
                        if ((mt & MemberTypes.Property) != 0){
                                if (properties != null) {
                                        int len = properties.Count;
                                        for (int i = 0; i < len; i++) {
                                                Property p = (Property) properties [i];
                                                
                                                if ((p.ModFlags & modflags) == 0)
                                                        continue;
                                                if ((p.ModFlags & static_mask) != static_flags)
                                                        continue;

                                                MemberInfo pb = p.PropertyBuilder;
                                                if (pb != null && filter (pb, criteria) == true) {
                                                        if (members == null)
                                                                members = new ArrayList ();
                                                        
                                                        members.Add (p.PropertyBuilder);
                                                }
                                        }
                                }

                                if (indexers != null) {
                                        int len = indexers.Count;
                                        for (int i = 0; i < len; i++) {
                                                Indexer ix = (Indexer) indexers [i];
                                                
                                                if ((ix.ModFlags & modflags) == 0)
                                                        continue;
                                                if ((ix.ModFlags & static_mask) != static_flags)
                                                        continue;

                                                MemberInfo ib = ix.PropertyBuilder;
                                                if (ib != null && filter (ib, criteria) == true) {
                                                        if (members == null)
                                                                members = new ArrayList ();
                                                        
                                                        members.Add (ix.PropertyBuilder);
                                                }
                                        }
                                }
                        }
                        
                        if ((mt & MemberTypes.NestedType) != 0) {
                                if (types != null) {
                                        int len = types.Count;
                                        for (int i = 0; i < len; i++) {
                                                TypeContainer t = (TypeContainer) types [i];
                                                
                                                if ((t.ModFlags & modflags) == 0)
                                                        continue;

                                                TypeBuilder tb = t.TypeBuilder;
                                                if (tb != null && (filter (tb, criteria) == true)) {
                                                        if (members == null)
                                                                members = new ArrayList ();
                                                        
                                                        members.Add (tb);
                                                }
                                        }
                                }

                                if (enums != null) {
                                        int len = enums.Count;
                                        for (int i = 0; i < len; i++) {
                                                Enum en = (Enum) enums [i];
                                                
                                                if ((en.ModFlags & modflags) == 0)
                                                        continue;

                                                TypeBuilder tb = en.TypeBuilder;
                                                if (tb != null && (filter (tb, criteria) == true)) {
                                                        if (members == null)
                                                                members = new ArrayList ();
                                                        
                                                        members.Add (tb);
                                                }
                                        }
                                }
                                
                                if (delegates != null) {
                                        int len = delegates.Count;
                                        for (int i = 0; i < len; i++) {
                                                Delegate d = (Delegate) delegates [i];
                                                
                                                if ((d.ModFlags & modflags) == 0)
                                                        continue;

                                                TypeBuilder tb = d.TypeBuilder;
                                                if (tb != null && (filter (tb, criteria) == true)) {
                                                        if (members == null)
                                                                members = new ArrayList ();
                                                        
                                                        members.Add (tb);
                                                }
                                        }
                                }

                                if (interfaces != null) {
                                        int len = interfaces.Count;
                                        for (int i = 0; i < len; i++) {
                                                Interface iface = (Interface) interfaces [i];
                                                
                                                if ((iface.ModFlags & modflags) == 0)
                                                        continue;

                                                TypeBuilder tb = iface.TypeBuilder;
                                                if (tb != null && (filter (tb, criteria) == true)) {
                                                        if (members == null)
                                                                members = new ArrayList ();
                                                        
                                                        members.Add (tb);
                                                }
                                        }
                                }
                        }

                        if ((mt & MemberTypes.Constructor) != 0){
                                if (((bf & BindingFlags.Instance) != 0) && (instance_constructors != null)){
                                        int len = instance_constructors.Count;
                                        for (int i = 0; i < len; i++) {
                                                Constructor c = (Constructor) instance_constructors [i];
                                                
                                                ConstructorBuilder cb = c.ConstructorBuilder;
                                                if (cb != null && filter (cb, criteria) == true) {
                                                        if (members == null)
                                                                members = new ArrayList ();
                                                        
                                                        members.Add (cb);
                                                }
                                        }
                                }

                                if (((bf & BindingFlags.Static) != 0) && (default_static_constructor != null)){
                                        ConstructorBuilder cb =
                                                default_static_constructor.ConstructorBuilder;
                                        
                                        if (cb != null && filter (cb, criteria) == true) {
                                                if (members == null)
                                                        members = new ArrayList ();
                                                
                                                members.Add (cb);
                                        }
                                }
                        }

                        //
                        // Lookup members in parent if requested.
                        //
                        if ((bf & BindingFlags.DeclaredOnly) == 0) {
                                if (TypeBuilder.BaseType != null) {
                                        MemberList list = FindMembers (TypeBuilder.BaseType, mt, bf, filter, criteria);
                                        if (list.Count > 0) {
                                                if (members == null)
                                                        members = new ArrayList ();
                                        
                                                members.AddRange (list);
                                        }
                                }
                                if (base_inteface_types != null) {
                                        foreach (Type base_type in base_inteface_types) {
                                                MemberList list = TypeContainer.FindMembers (base_type, mt, bf, filter, criteria);

                                                if (list.Count > 0) {
                                                        if (members == null)
                                                                members = new ArrayList ();
                                                        members.AddRange (list);
                                                }
                                        }
                                }
                        }

                        Timer.StopTimer (TimerType.TcFindMembers);

                        if (members == null)
                                return MemberList.Empty;
                        else
                                return new MemberList (members);
                }

                public override MemberCache MemberCache {
                        get {
                                return member_cache;
                        }
                }

                public static MemberList FindMembers (Type t, MemberTypes mt, BindingFlags bf,
                                                      MemberFilter filter, object criteria)
                {
                        DeclSpace ds = TypeManager.LookupDeclSpace (t);

                        if (ds != null)
                                return ds.FindMembers (mt, bf, filter, criteria);
                        else
                                return new MemberList (t.FindMembers (mt, bf, filter, criteria));
                        
                }

                //
                // FindMethods will look for methods not only in the type `t', but in
                // any interfaces implemented by the type.
                //
                public static MethodInfo [] FindMethods (Type t, BindingFlags bf,
                                                         MemberFilter filter, object criteria)
                {
                        return null;
                }

                /// <summary>
                ///   Emits the values for the constants
                /// </summary>
                public void EmitConstants ()
                {
                        if (constants != null)
                                foreach (Const con in constants)
                                        con.Emit (this);
                        return;
                }

                /// <summary>
                ///   Emits the code, this step is performed after all
                ///   the types, enumerations, constructors
                /// </summary>
                public void Emit ()
                {
                        Attribute.ApplyAttributes (ec, TypeBuilder, this, OptAttributes);

                        Emit (this);

                        if (instance_constructors != null) {
                                if (TypeBuilder.IsSubclassOf (TypeManager.attribute_type) && IsClsCompliaceRequired (this)) {
                                        bool has_compliant_args = false;

                                        foreach (Constructor c in instance_constructors) {
                                                c.Emit (this);

                                                if (has_compliant_args)
                                                        continue;

                                                has_compliant_args = c.HasCompliantArgs;
                                        }
                                        if (!has_compliant_args)
                                                Report.Error_T (3015, Location, GetSignatureForError ());
                                } else {
                                        foreach (Constructor c in instance_constructors)
                                                c.Emit (this);
                                }
                        }

                        if (default_static_constructor != null)
                                default_static_constructor.Emit (this);
                        
                        if (methods != null)
                                foreach (Method m in methods)
                                        m.Emit (this);

                        if (operators != null)
                                foreach (Operator o in operators)
                                        o.Emit (this);

                        if (properties != null)
                                foreach (Property p in properties)
                                        p.Emit (this);

                        if (indexers != null){
                                foreach (Indexer ix in indexers)
                                        ix.Emit (this);
                                if (IndexerName != null) {
                                        CustomAttributeBuilder cb = EmitDefaultMemberAttr ();
                                        TypeBuilder.SetCustomAttribute (cb);
                                }
                        }
                        
                        if (fields != null)
                                foreach (Field f in fields)
                                        f.Emit (this);

                        if (events != null){
                                foreach (Event e in Events)
                                        e.Emit (this);
                        }

                        if (delegates != null) {
                                foreach (Delegate d in Delegates) {
                                        d.Emit (this);
                                }
                        }

                        if (Pending != null)
                                if (Pending.VerifyPendingMethods ())
                                        return;
                        
                        //
                        // Check for internal or private fields that were never assigned
                        //
                        if (RootContext.WarningLevel >= 3) {
                                if (fields != null){
                                        foreach (Field f in fields) {
                                                if ((f.ModFlags & Modifiers.Accessibility) != Modifiers.PRIVATE)
                                                        continue;
                                                
                                                if ((f.status & Field.Status.USED) == 0){
                                                        Report.Warning (
                                                                169, f.Location, "Private field " +
                                                                MakeName (f.Name) + " is never used");
                                                        continue;
                                                }
                                                
                                                //
                                                // Only report 649 on level 4
                                                //
                                                if (RootContext.WarningLevel < 4)
                                                        continue;
                                                
                                                if ((f.status & Field.Status.ASSIGNED) != 0)
                                                        continue;
                                                
                                                Report.Warning (
                                                        649, f.Location,
                                                        "Field " + MakeName (f.Name) + " is never assigned " +
                                                        " to and will always have its default value");
                                        }
                                }

                                if (events != null){
                                        foreach (Event e in events){
                                                if (e.status == 0)
                                                        Report.Warning (67, "The event " + MakeName (e.Name) + " is never used");
                                        }
                                }
                        }
                        
//                      if (types != null)
//                              foreach (TypeContainer tc in types)
//                                      tc.Emit ();
                }

                CustomAttributeBuilder EmitDefaultMemberAttr ()
                {
                        EmitContext ec = new EmitContext (this, Location, null, null, ModFlags);

                        Expression ml = Expression.MemberLookup (ec, TypeManager.default_member_type,
                                                                 ".ctor", MemberTypes.Constructor,
                                                                 BindingFlags.Public | BindingFlags.Instance,
                                                                 Location.Null);
                        
                        MethodGroupExpr mg = (MethodGroupExpr) ml;

                        MethodBase constructor = mg.Methods [0];

                        string [] vals = { IndexerName };

                        CustomAttributeBuilder cb = null;
                        try {
                                cb = new CustomAttributeBuilder ((ConstructorInfo) constructor, vals);
                        } catch {
                                Report.Warning (-100, "Can not set the indexer default member attribute");
                        }

                        return cb;
                }

                public override void CloseType ()
                {
                        if ((caching_flags & Flags.CloseTypeCreated) != 0)
                                return;
                        
                        try {
                                caching_flags |= Flags.CloseTypeCreated;
                                TypeBuilder.CreateType ();
                        } catch (TypeLoadException){
                                //
                                // This is fine, the code still created the type
                                //
//                              Report.Warning (-20, "Exception while creating class: " + TypeBuilder.Name);
//                              Console.WriteLine (e.Message);
                        } catch {
                                Console.WriteLine ("In type: " + Name);
                                throw;
                        }
                        
                        if (Enums != null)
                                foreach (Enum en in Enums)
                                        en.CloseType ();

                        if (interface_order != null){
                                foreach (Interface iface in interface_order)
                                        iface.CloseType ();
                        }
                        
                        if (Types != null){
                                foreach (TypeContainer tc in Types)
                                        if (tc is Struct)
                                                tc.CloseType ();

                                foreach (TypeContainer tc in Types)
                                        if (!(tc is Struct))
                                                tc.CloseType ();
                        }

                        if (Delegates != null)
                                foreach (Delegate d in Delegates)
                                        d.CloseType ();
                        
                        types = null;
                        properties = null;
                        enums = null;
                        delegates = null;
                        fields = null;
                        initialized_fields = null;
                        initialized_static_fields = null;
                        constants = null;
                        interfaces = null;
                        interface_order = null;
                        methods = null;
                        events = null;
                        indexers = null;
                        operators = null;
                        ec = null;
                        default_constructor = null;
                        default_static_constructor = null;
                        type_bases = null;
                        OptAttributes = null;
                        ifaces = null;
                        parent_container = null;
                        member_cache = null;
                }

                public string MakeName (string n)
                {
                        return "`" + Name + "." + n + "'";
                }

                public void Warning_KeywordNewRequired (Location l, MemberInfo mi)
                {
                        Report.Warning (
                                108, l, "The keyword new is required on " + 
                                MakeName (mi.Name) + " because it hides `" +
                                mi.ReflectedType.Name + "." + mi.Name + "'");
                }

                public void Warning_KeywordNewNotRequired (Location l, MemberCore mc)
                {
                        Report.Warning (
                                109, l, "The member " + MakeName (mc.Name) + " does not hide an " +
                                "inherited member, the keyword new is not required");
                }

                public void Error_EventCanOnlyOverrideEvent (Location l, MemberInfo mi)
                {
                        Report.Error (
                                72, l, MakeName (mi.Name) + " : cannot override; `" +
                                mi.ReflectedType.Name + "." + mi.Name + "' is not an event");
                }
                
                public static int CheckMember (string name, MemberInfo mi, int ModFlags)
                {
                        return 0;
                }

                //
                // Performs the validation on a Method's modifiers (properties have
                // the same properties).
                //
                public bool MethodModifiersValid (int flags, string n, Location loc)
                {
                        const int vao = (Modifiers.VIRTUAL | Modifiers.ABSTRACT | Modifiers.OVERRIDE);
                        const int va = (Modifiers.VIRTUAL | Modifiers.ABSTRACT);
                        const int nv = (Modifiers.NEW | Modifiers.VIRTUAL);
                        bool ok = true;
                        
                        //
                        // At most one of static, virtual or override
                        //
                        if ((flags & Modifiers.STATIC) != 0){
                                if ((flags & vao) != 0){
                                        Report.Error (
                                                112, loc, "static method " + MakeName (n) + "can not be marked " +
                                                "as virtual, abstract or override");
                                        ok = false;
                                }
                        }

                        if (this is Struct){
                                if ((flags & va) != 0){
                                        Modifiers.Error_InvalidModifier (loc, "virtual or abstract");
                                        ok = false;
                                }
                        }

                        if ((flags & Modifiers.OVERRIDE) != 0 && (flags & nv) != 0){
                                Report.Error (
                                        113, loc, MakeName (n) +
                                        " marked as override cannot be marked as new or virtual");
                                ok = false;
                        }

                        //
                        // If the declaration includes the abstract modifier, then the
                        // declaration does not include static, virtual or extern
                        //
                        if ((flags & Modifiers.ABSTRACT) != 0){
                                if ((flags & Modifiers.EXTERN) != 0){
                                        Report.Error (
                                                180, loc, MakeName (n) + " can not be both abstract and extern");
                                        ok = false;
                                }

                                if ((flags & Modifiers.VIRTUAL) != 0){
                                        Report.Error (
                                                503, loc, MakeName (n) + " can not be both abstract and virtual");
                                        ok = false;
                                }

                                if ((ModFlags & Modifiers.ABSTRACT) == 0){
                                        Report.Error (
                                                513, loc, MakeName (n) +
                                                " is abstract but its container class is not");
                                        ok = false;

                                }
                        }

                        if ((flags & Modifiers.PRIVATE) != 0){
                                if ((flags & vao) != 0){
                                        Report.Error (
                                                621, loc, MakeName (n) +
                                                " virtual or abstract members can not be private");
                                        ok = false;
                                }
                        }

                        if ((flags & Modifiers.SEALED) != 0){
                                if ((flags & Modifiers.OVERRIDE) == 0){
                                        Report.Error (
                                                238, loc, MakeName (n) +
                                                " cannot be sealed because it is not an override");
                                        ok = false;
                                }
                        }

                        return ok;
                }

                Hashtable builder_and_args;
                
                public bool RegisterMethod (MethodBuilder mb, InternalParameters ip, Type [] args)
                {
                        if (builder_and_args == null)
                                builder_and_args = new Hashtable ();
                        return true;
                }

                protected override bool VerifyClsCompliance (DeclSpace ds)
                {
                        if (!base.VerifyClsCompliance (ds))
                                return false;

                        // parent_container is null for System.Object
                        if (parent_container != null && !AttributeTester.IsClsCompliant (parent_container.Type)) {
                                Report.Error_T (3009, Location, GetSignatureForError (),  TypeManager.CSharpName (parent_container.Type));
                        }
                        return true;
                }


                /// <summary>
                ///   Performs checks for an explicit interface implementation.  First it
                ///   checks whether the `interface_type' is a base inteface implementation.
                ///   Then it checks whether `name' exists in the interface type.
                /// </summary>
                public bool VerifyImplements (Type interface_type, string full, string name, Location loc)
                {
                        bool found = false;

                        if (ifaces != null){
                                foreach (TypeExpr t in ifaces){
                                        if (t.Type == interface_type){
                                                found = true;
                                                break;
                                        }
                                }
                        }
                        
                        if (!found){
                                Report.Error (540, "`" + full + "': containing class does not implement interface `" + interface_type.FullName + "'");
                                return false;
                        }

                        return true;
                }

                //
                // IMemberContainer
                //

                string IMemberContainer.Name {
                        get {
                                return Name;
                        }
                }

                Type IMemberContainer.Type {
                        get {
                                return TypeBuilder;
                        }
                }

                IMemberContainer IMemberContainer.Parent {
                        get {
                                return parent_container;
                        }
                }

                MemberCache IMemberContainer.MemberCache {
                        get {
                                return member_cache;
                        }
                }

                bool IMemberContainer.IsInterface {
                        get {
                                return this is Interface;
                        }
                }

                MemberList IMemberContainer.GetMembers (MemberTypes mt, BindingFlags bf)
                {
                        return FindMembers (mt, bf | BindingFlags.DeclaredOnly, null, null);
                }

                //
                // Operator pair checking
                //

                class OperatorEntry {
                        public int flags;
                        public Type ret_type;
                        public Type type1, type2;
                        public Operator op;
                        public Operator.OpType ot;
                        
                        public OperatorEntry (int f, Operator o)
                        {
                                flags = f;

                                ret_type = o.OperatorMethod.GetReturnType ();
                                Type [] pt = o.OperatorMethod.ParameterTypes;
                                type1 = pt [0];
                                type2 = pt [1];
                                op = o;
                                ot = o.OperatorType;
                        }

                        public override int GetHashCode ()
                        {       
                                return ret_type.GetHashCode ();
                        }

                        public override bool Equals (object o)
                        {
                                OperatorEntry other = (OperatorEntry) o;

                                if (other.ret_type != ret_type)
                                        return false;
                                if (other.type1 != type1)
                                        return false;
                                if (other.type2 != type2)
                                        return false;
                                return true;
                        }
                }
                                
                //
                // Checks that some operators come in pairs:
                //  == and !=
                // > and <
                // >= and <=
                // true and false
                //
                // They are matched based on the return type and the argument types
                //
                void CheckPairedOperators ()
                {
                        Hashtable pairs = new Hashtable (null, null);
                        Operator true_op = null;
                        Operator false_op = null;
                        bool has_equality_or_inequality = false;
                        
                        // Register all the operators we care about.
                        foreach (Operator op in operators){
                                int reg = 0;
                                
                                switch (op.OperatorType){
                                case Operator.OpType.Equality:
                                        reg = 1;
                                        has_equality_or_inequality = true;
                                        break;
                                case Operator.OpType.Inequality:
                                        reg = 2;
                                        has_equality_or_inequality = true;
                                        break;

                                case Operator.OpType.True:
                                        true_op = op;
                                        break;
                                case Operator.OpType.False:
                                        false_op = op;
                                        break;
                                        
                                case Operator.OpType.GreaterThan:
                                        reg = 1; break;
                                case Operator.OpType.LessThan:
                                        reg = 2; break;
                                        
                                case Operator.OpType.GreaterThanOrEqual:
                                        reg = 1; break;
                                case Operator.OpType.LessThanOrEqual:
                                        reg = 2; break;
                                }
                                if (reg == 0)
                                        continue;

                                OperatorEntry oe = new OperatorEntry (reg, op);

                                object o = pairs [oe];
                                if (o == null)
                                        pairs [oe] = oe;
                                else {
                                        oe = (OperatorEntry) o;
                                        oe.flags |= reg;
                                }
                        }

                        if (true_op != null){
                                if (false_op == null)
                                        Report.Error (216, true_op.Location, "operator true requires a matching operator false");
                        } else if (false_op != null)
                                Report.Error (216, false_op.Location, "operator false requires a matching operator true");
                        
                        //
                        // Look for the mistakes.
                        //
                        foreach (DictionaryEntry de in pairs){
                                OperatorEntry oe = (OperatorEntry) de.Key;

                                if (oe.flags == 3)
                                        continue;

                                string s = "";
                                switch (oe.ot){
                                case Operator.OpType.Equality:
                                        s = "!=";
                                        break;
                                case Operator.OpType.Inequality: 
                                        s = "==";
                                        break;
                                case Operator.OpType.GreaterThan: 
                                        s = "<";
                                        break;
                                case Operator.OpType.LessThan:
                                        s = ">";
                                        break;
                                case Operator.OpType.GreaterThanOrEqual:
                                        s = "<=";
                                        break;
                                case Operator.OpType.LessThanOrEqual:
                                        s = ">=";
                                        break;
                                }
                                Report.Error (216, oe.op.Location,
                                              "The operator `" + oe.op + "' requires a matching operator `" + s + "' to also be defined");
                        }

                        if ((has_equality_or_inequality) && (RootContext.WarningLevel >= 2)) {
                                MethodSignature equals_ms = new MethodSignature (
                                        "Equals", TypeManager.bool_type, new Type [] { TypeManager.object_type });
                                MethodSignature hash_ms = new MethodSignature (
                                        "GetHashCode", TypeManager.int32_type, new Type [0]);

                                MemberList equals_ml = FindMembers (MemberTypes.Method, BindingFlags.Public | BindingFlags.Instance |
                                                                    BindingFlags.DeclaredOnly, MethodSignature.method_signature_filter,
                                                                    equals_ms);
                                MemberList hash_ml = FindMembers (MemberTypes.Method, BindingFlags.Public | BindingFlags.Instance |
                                                                  BindingFlags.DeclaredOnly, MethodSignature.method_signature_filter,
                                                                  hash_ms);

                                bool equals_ok = false;
                                if ((equals_ml != null) && (equals_ml.Count == 1))
                                        equals_ok = equals_ml [0].DeclaringType == TypeBuilder;
                                bool hash_ok = false;
                                if ((hash_ml != null) && (hash_ml.Count == 1))
                                        hash_ok = hash_ml [0].DeclaringType == TypeBuilder;

                                if (!equals_ok)
                                        Report.Warning (660, Location, "`" + Name + "' defines operator == or operator != but does " +
                                                        "not override Object.Equals (object o)");
                                if (!hash_ok)
                                        Report.Warning (661, Location, "`" + Name + "' defines operator == or operator != but does " +
                                                        "not override Object.GetHashCode ()");
                        }
                }
                
                
        }

        public class Class : TypeContainer {
                // <summary>
                //   Modifiers allowed in a class declaration
                // </summary>
                public const int AllowedModifiers =
                        Modifiers.NEW |
                        Modifiers.PUBLIC |
                        Modifiers.PROTECTED |
                        Modifiers.INTERNAL |
                        Modifiers.PRIVATE |
                        Modifiers.ABSTRACT |
                        Modifiers.SEALED |
                        Modifiers.UNSAFE;

                public Class (NamespaceEntry ns, TypeContainer parent, string name, int mod,
                              Attributes attrs, Location l)
                        : base (ns, parent, name, attrs, l)
                {
                        int accmods;

                        if (parent.Parent == null)
                                accmods = Modifiers.INTERNAL;
                        else
                                accmods = Modifiers.PRIVATE;

                        this.ModFlags = Modifiers.Check (AllowedModifiers, mod, accmods, l);
                }

                //
                // FIXME: How do we deal with the user specifying a different
                // layout?
                //
                public override TypeAttributes TypeAttr {
                        get {
                                return base.TypeAttr | TypeAttributes.AutoLayout | TypeAttributes.Class;
                        }
                }
        }

        public class Struct : TypeContainer {
                // <summary>
                //   Modifiers allowed in a struct declaration
                // </summary>
                public const int AllowedModifiers =
                        Modifiers.NEW       |
                        Modifiers.PUBLIC    |
                        Modifiers.PROTECTED |
                        Modifiers.INTERNAL  |
                        Modifiers.UNSAFE    |
                        Modifiers.PRIVATE;

                public Struct (NamespaceEntry ns, TypeContainer parent, string name, int mod, Attributes attrs, Location l)
                        : base (ns, parent, name, attrs, l)
                {
                        int accmods;
                        
                        if (parent.Parent == null)
                                accmods = Modifiers.INTERNAL;
                        else
                                accmods = Modifiers.PRIVATE;
                        
                        this.ModFlags = Modifiers.Check (AllowedModifiers, mod, accmods, l);

                        this.ModFlags |= Modifiers.SEALED;
                }

                //
                // FIXME: Allow the user to specify a different set of attributes
                // in some cases (Sealed for example is mandatory for a class,
                // but what SequentialLayout can be changed
                //
                public override TypeAttributes TypeAttr {
                        get {
                                return base.TypeAttr |
                                        TypeAttributes.SequentialLayout |
                                        TypeAttributes.Sealed |
                                        TypeAttributes.BeforeFieldInit;
                        }
                }
        }

        /// <summary>
        ///   Interfaces
        /// </summary>
        public class Interface : TypeContainer, IMemberContainer {
                /// <summary>
                ///   Modifiers allowed in a class declaration
                /// </summary>
                public const int AllowedModifiers =
                        Modifiers.NEW       |
                        Modifiers.PUBLIC    |
                        Modifiers.PROTECTED |
                        Modifiers.INTERNAL  |
                        Modifiers.UNSAFE    |
                        Modifiers.PRIVATE;

                public Interface (NamespaceEntry ns, TypeContainer parent, string name, int mod,
                                  Attributes attrs, Location l)
                        : base (ns, parent, name, attrs, l)
                {
                        int accmods;

                        if (parent.Parent == null)
                                accmods = Modifiers.INTERNAL;
                        else
                                accmods = Modifiers.PRIVATE;

                        this.ModFlags = Modifiers.Check (AllowedModifiers, mod, accmods, l);
                }

                public override TypeAttributes TypeAttr {
                        get {
                                return base.TypeAttr |
                                        TypeAttributes.AutoLayout |
                                        TypeAttributes.Abstract |
                                        TypeAttributes.Interface;
                        }
                }
        }

        public abstract class MethodCore : MemberBase {
                public readonly Parameters Parameters;
                protected Block block;
                public DeclSpace ds;
                
                //
                // Parameters, cached for semantic analysis.
                //
                protected InternalParameters parameter_info;
                protected Type [] parameter_types;

                // <summary>
                //   This is set from TypeContainer.DefineMembers if this method overrides something.
                // </summary>
                public bool OverridesSomething;

                // Whether this is an operator method.
                public bool IsOperator;

                public MethodCore (DeclSpace ds, Expression type, int mod, int allowed_mod,
                                   bool is_interface, string name, Attributes attrs,
                                   Parameters parameters, Location loc)
                        : base (type, mod, allowed_mod, Modifiers.PRIVATE, name, attrs, loc)
                {
                        Parameters = parameters;
                        IsInterface = is_interface;
                        this.ds = ds;
                }
                
                //
                //  Returns the System.Type array for the parameters of this method
                //
                public Type [] ParameterTypes {
                        get {
                                return parameter_types;
                        }
                }

                public InternalParameters ParameterInfo
                {
                        get {
                                return parameter_info;
                        }
                }
                
                public Block Block {
                        get {
                                return block;
                        }

                        set {
                                block = value;
                        }
                }

                protected virtual bool DoDefineParameters ()
                {
                        // Check if arguments were correct
                        parameter_types = Parameters.GetParameterInfo (ds);
                        if ((parameter_types == null) || !CheckParameters (ds, parameter_types))
                                return false;

                        parameter_info = new InternalParameters (ds, Parameters);

                        Parameter array_param = Parameters.ArrayParameter;
                        if ((array_param != null) &&
                            (!array_param.ParameterType.IsArray ||
                             (array_param.ParameterType.GetArrayRank () != 1))) {
                                Report.Error (225, Location, "params parameter has to be a single dimensional array");
                                return false;
                        }

                        return true;
                }

                protected override bool VerifyClsCompliance (DeclSpace ds)
                {
                        if (!base.VerifyClsCompliance (ds)) {
                                if ((ModFlags & Modifiers.ABSTRACT) != 0 && IsExposedFromAssembly (ds) && ds.IsClsCompliaceRequired (ds)) {
                                        Report.Error_T (3011, Location, GetSignatureForError ());
                                }
                                return false;
                        }

                        AttributeTester.AreParametersCompliant (Parameters.FixedParameters, Location);

                        if (!AttributeTester.IsClsCompliant (MemberType)) {
                                Report.Error_T (3002, Location, GetSignatureForError ());
                        }

                        return true;
                }

                protected bool IsDuplicateImplementation (TypeContainer tc, MethodCore method)
                {
                        if ((method == this) || (method.Name != Name))
                                return false;

                        Type[] param_types = method.ParameterTypes;
                        if (param_types == null)
                                return false;

                        if (param_types.Length != ParameterTypes.Length)
                                return false;

                        for (int i = 0; i < param_types.Length; i++)
                                if (param_types [i] != ParameterTypes [i])
                                        return false;

                        //
                        // Try to report 663: method only differs on out/ref
                        //
                        ParameterData info = ParameterInfo;
                        ParameterData other_info = method.ParameterInfo;
                        for (int i = 0; i < info.Count; i++){
                                if (info.ParameterModifier (i) != other_info.ParameterModifier (i)){
                                        Report.Error (663, Location, "Overload method only differs in parameter modifier");
                                        return false;
                                }
                        }

                        Report.Error (111, Location, "Class `{0}' already defines a " +
                                      "member called `{1}' with the same parameter types",
                                      tc.Name, Name);
                        return true;
                }

                public CallingConventions GetCallingConvention (bool is_class)
                {
                        CallingConventions cc = 0;
                        
                        cc = Parameters.GetCallingConvention ();

                        if (is_class)
                                if ((ModFlags & Modifiers.STATIC) == 0)
                                        cc |= CallingConventions.HasThis;

                        // FIXME: How is `ExplicitThis' used in C#?
                        
                        return cc;
                }

                //
                // The method's attributes are passed in because we need to extract
                // the "return:" attribute from there to apply on the return type
                //
                static public void LabelParameters (EmitContext ec,
                                                    MethodBase builder,
                                                    Parameters parameters,
                                                    Attributes method_attrs,
                                                    Location loc)
                {
                        //
                        // Define each type attribute (in/out/ref) and
                        // the argument names.
                        //
                        Parameter [] p = parameters.FixedParameters;
                        int i = 0;
                        
                        MethodBuilder mb = null;
                        ConstructorBuilder cb = null;

                        if (builder is MethodBuilder)
                                mb = (MethodBuilder) builder;
                        else
                                cb = (ConstructorBuilder) builder;

                        if (p != null){
                                for (i = 0; i < p.Length; i++) {
                                        ParameterBuilder pb;
                                        ParameterAttributes par_attr = p [i].Attributes;
                                        
                                        if (mb == null)
                                                pb = cb.DefineParameter (
                                                        i + 1, par_attr, p [i].Name);
                                        else 
                                                pb = mb.DefineParameter (
                                                        i + 1, par_attr, p [i].Name);
                                        
                                        Attributes attr = p [i].OptAttributes;
                                        if (attr != null){
                                                Attribute.ApplyAttributes (ec, pb, pb, attr);

                                                if (par_attr == ParameterAttributes.Out){
                                                        if (attr.Contains (TypeManager.in_attribute_type))
                                                                Report.Error (36, loc,
                                                                    "Can not use [In] attribute on out parameter");
                                                }
                                        }
                                }
                        }

                        if (parameters.ArrayParameter != null){
                                ParameterBuilder pb;
                                Parameter array_param = parameters.ArrayParameter;

                                if (mb == null)
                                        pb = cb.DefineParameter (
                                                i + 1, array_param.Attributes,
                                                array_param.Name);
                                else
                                        pb = mb.DefineParameter (
                                                i + 1, array_param.Attributes,
                                                array_param.Name);
                                        
                                CustomAttributeBuilder a = new CustomAttributeBuilder (
                                        TypeManager.cons_param_array_attribute, new object [0]);
                                
                                pb.SetCustomAttribute (a);
                        }

                        //
                        // And now for the return type attribute decoration
                        //
                        ParameterBuilder ret_pb;
                        Attributes ret_attrs = null;
                                
                        if (mb == null || method_attrs == null)
                                return;

                        foreach (AttributeSection asec in method_attrs.AttributeSections) {

                                if (asec.Target != "return")
                                        continue;

                                if (ret_attrs == null)
                                        ret_attrs = new Attributes (asec);
                                else
                                        ret_attrs.AddAttributeSection (asec);
                        }

                        if (ret_attrs != null) {
                                try {
                                        ret_pb = mb.DefineParameter (0, ParameterAttributes.None, "");
                                        Attribute.ApplyAttributes (ec, ret_pb, ret_pb, ret_attrs);

                                } catch (ArgumentOutOfRangeException) {
                                        Report.Warning (
                                                -24, loc,
                                                ".NET SDK 1.0 does not permit setting custom attributes" +
                                                " on the return type of a method");
                                }
                        }
                }
        }

        public class Method : MethodCore, IIteratorContainer, IMethodData {
                public MethodBuilder MethodBuilder;
                public MethodData MethodData;

                /// <summary>
                ///   Modifiers allowed in a class declaration
                /// </summary>
                const int AllowedModifiers =
                        Modifiers.NEW |
                        Modifiers.PUBLIC |
                        Modifiers.PROTECTED |
                        Modifiers.INTERNAL |
                        Modifiers.PRIVATE |
                        Modifiers.STATIC |
                        Modifiers.VIRTUAL |
                        Modifiers.SEALED |
                        Modifiers.OVERRIDE |
                        Modifiers.ABSTRACT |
                        Modifiers.UNSAFE |
                        Modifiers.METHOD_YIELDS | 
                        Modifiers.EXTERN;

                const int AllowedInterfaceModifiers =
                        Modifiers.NEW;

                //
                // return_type can be "null" for VOID values.
                //
                public Method (DeclSpace ds, Expression return_type, int mod, bool is_iface,
                               string name, Parameters parameters, Attributes attrs, Location l)
                        : base (ds, return_type, mod,
                                is_iface ? AllowedInterfaceModifiers : AllowedModifiers,
                                is_iface, name, attrs, parameters, l)
                {
                }

                //
                // Returns the `System.Type' for the ReturnType of this
                // function.  Provides a nice cache.  (used between semantic analysis
                // and actual code generation
                //
                public Type GetReturnType ()
                {
                        return MemberType;
                }

                public override string GetSignatureForError()
                {
                        return TypeManager.CSharpSignature (MethodBuilder);
                }

                void DuplicateEntryPoint (MethodInfo b, Location location)
                {
                        Report.Error (
                                17, location,
                                "Program `" + CodeGen.FileName +
                                "'  has more than one entry point defined: `" +
                                TypeManager.CSharpSignature(b) + "'");
                }

                void Report28 (MethodInfo b)
                {
                        Report.Warning (
                                28, Location,
                                "`" + TypeManager.CSharpSignature(b) +
                                "' has the wrong signature to be an entry point");
                }

                public bool IsEntryPoint (MethodBuilder b, InternalParameters pinfo)
                {
                        if (b.ReturnType != TypeManager.void_type &&
                            b.ReturnType != TypeManager.int32_type)
                                return false;

                        if (pinfo.Count == 0)
                                return true;

                        if (pinfo.Count > 1)
                                return false;

                        Type t = pinfo.ParameterType(0);
                        if (t.IsArray &&
                            (t.GetArrayRank() == 1) &&
                            (TypeManager.GetElementType(t) == TypeManager.string_type) &&
                            (pinfo.ParameterModifier(0) == Parameter.Modifier.NONE))
                                return true;
                        else
                                return false;
                }

                //
                // Checks our base implementation if any
                //
                protected override bool CheckBase (TypeContainer container)
                {
                        base.CheckBase (container);
                        
                        // Check whether arguments were correct.
                        if (!DoDefineParameters ())
                                return false;

                        MethodSignature ms = new MethodSignature (Name, null, ParameterTypes);
                        if (IsOperator) {
                                flags |= MethodAttributes.SpecialName | MethodAttributes.HideBySig;
                        } else {
                                //
                                // Check in our class for dups
                                //
                                ArrayList ar = container.Methods;
                                if (ar != null) {
                                        int arLen = ar.Count;
                                        
                                        for (int i = 0; i < arLen; i++) {
                                                Method m = (Method) ar [i];
                                                if (IsDuplicateImplementation (container, m))
                                                        return false;
                                        }
                                }
                        }
                        

                        //
                        // Verify if the parent has a type with the same name, and then
                        // check whether we have to create a new slot for it or not.
                        //
                        Type ptype = container.TypeBuilder.BaseType;

                        // ptype is only null for System.Object while compiling corlib.
                        if (ptype != null) {
                                
                                //
                                // Explicit implementations do not have `parent' methods, however,
                                // the member cache stores them there. Without this check, we get
                                // an incorrect warning in corlib.
                                //
                                if (! IsExplicitImpl) {
                                        parent_method = (MethodInfo)((IMemberContainer)container).Parent.MemberCache.FindMemberToOverride (
                                                container.TypeBuilder, Name, ParameterTypes, false);
                                }
                                
                                if (parent_method != null) {
                                        string name = parent_method.DeclaringType.Name + "." +
                                                parent_method.Name;

                                        if (!CheckMethodAgainstBase (container, flags, parent_method, name))
                                                return false;

                                        if ((ModFlags & Modifiers.NEW) == 0) {
                                                Type parent_ret = TypeManager.TypeToCoreType (
                                                        parent_method.ReturnType);

                                                if (parent_ret != MemberType) {
                                                        Report.Error (
                                                                508, Location, container.MakeName (Name) + ": cannot " +
                                                                "change return type when overriding " +
                                                                "inherited member " + name);
                                                        return false;
                                                }
                                        }
                                } else {
                                        if (!OverridesSomething && ((ModFlags & Modifiers.NEW) != 0))
                                                WarningNotHiding (container);

                                        if ((ModFlags & Modifiers.OVERRIDE) != 0){
                                                Report.Error (115, Location,
                                                              container.MakeName (Name) +
                                                              " no suitable methods found to override");
                                        }
                                }
                        } else if ((ModFlags & Modifiers.NEW) != 0)
                                WarningNotHiding (container);

                        return true;
                }

                //
                // Creates the type
                //
                public override bool Define (TypeContainer container)
                {
                        if (!DoDefine (container))
                                return false;

                        if (!CheckBase (container))
                                return false;

                        MethodData = new MethodData (this, ParameterInfo, ModFlags, flags, true, this);

                        if (!MethodData.Define (container))
                                return false;

                        //
                        // Setup iterator if we are one
                        //
                        if ((ModFlags & Modifiers.METHOD_YIELDS) != 0){
                                IteratorHandler ih = new  IteratorHandler (
                                            Name, container, MemberType,
                                            ParameterTypes, ParameterInfo,
                                            ModFlags, Location);

                                Block new_block = ih.Setup (block);
                                if (new_block == null)
                                        return false;
                                block = new_block;
                        }

                        MethodBuilder = MethodData.MethodBuilder;
                        
                        //
                        // This is used to track the Entry Point,
                        //
                        if (Name == "Main" &&
                            ((ModFlags & Modifiers.STATIC) != 0) && RootContext.NeedsEntryPoint && 
                            (RootContext.MainClass == null ||
                             RootContext.MainClass == container.TypeBuilder.FullName)){
                                if (IsEntryPoint (MethodBuilder, ParameterInfo)) {
                                        if (RootContext.EntryPoint == null) {
                                                RootContext.EntryPoint = MethodBuilder;
                                                RootContext.EntryPointLocation = Location;
                                        } else {
                                                DuplicateEntryPoint (RootContext.EntryPoint, RootContext.EntryPointLocation);
                                                DuplicateEntryPoint (MethodBuilder, Location);
                                        }
                                } else                                  
                                        Report28(MethodBuilder);
                        }

                        return true;
                }

                //
                // Emits the code
                // 
                public override void Emit (TypeContainer container)
                {
                        MethodData.Emit (container, this);
                        base.Emit (container);
                        Block = null;
                        MethodData = null;
                }

                void IIteratorContainer.SetYields ()
                {
                        ModFlags |= Modifiers.METHOD_YIELDS;
                }
        
                protected override bool IsIdentifierClsCompliant (DeclSpace ds)
                {
                        return IsIdentifierAndParamClsCompliant (ds, Name, MethodBuilder, parameter_types);
                }

                #region IMethodData Members

                public CallingConventions CallingConventions {
                        get {
                                CallingConventions cc = Parameters.GetCallingConvention ();

                                if (!IsInterface)
                                        if ((ModFlags & Modifiers.STATIC) == 0)
                                                cc |= CallingConventions.HasThis;

                                // FIXME: How is `ExplicitThis' used in C#?
                        
                                return cc;
                        }
                }

                public Type ReturnType {
                        get {
                                return MemberType;
                        }
                }

                public string MethodName {
                        get {
                                return ShortName;
                        }
                }

                public new Location Location {
                        get {
                                return base.Location;
                        }
                }

                public EmitContext CreateEmitContext (TypeContainer tc, ILGenerator ig)
                {
                        return new EmitContext (tc, ds, Location, ig, ReturnType, ModFlags, false);
                }

                #endregion
        }

        public abstract class ConstructorInitializer {
                ArrayList argument_list;
                ConstructorInfo parent_constructor;
                Parameters parameters;
                Location loc;
                
                public ConstructorInitializer (ArrayList argument_list, Parameters parameters,
                                               Location loc)
                {
                        this.argument_list = argument_list;
                        this.parameters = parameters;
                        this.loc = loc;
                }

                public ArrayList Arguments {
                        get {
                                return argument_list;
                        }
                }

                public bool Resolve (ConstructorBuilder caller_builder, EmitContext ec)
                {
                        Expression parent_constructor_group;
                        Type t;

                        ec.CurrentBlock = new ToplevelBlock (Block.Flags.Implicit, parameters, loc);

                        if (argument_list != null){
                                foreach (Argument a in argument_list){
                                        if (!a.Resolve (ec, loc))
                                                return false;
                                }
                        }
                        ec.CurrentBlock = null;

                        if (this is ConstructorBaseInitializer) {
                                if (ec.ContainerType.BaseType == null)
                                        return true;

                                t = ec.ContainerType.BaseType;
                                if (ec.ContainerType.IsValueType) {
                                        Report.Error (522, loc,
                                                "structs cannot call base class constructors");
                                        return false;
                                }
                        } else
                                t = ec.ContainerType;

                        parent_constructor_group = Expression.MemberLookup (
                                ec, t, null, t, ".ctor", 
                                MemberTypes.Constructor,
                                BindingFlags.Public | BindingFlags.Instance | BindingFlags.DeclaredOnly,
                                loc);
                        
                        if (parent_constructor_group == null){
                                Report.Error (1501, loc,
                                       "Can not find a constructor for this argument list");
                                return false;
                        }
                        
                        parent_constructor = (ConstructorInfo) Invocation.OverloadResolve (ec, 
                                (MethodGroupExpr) parent_constructor_group, argument_list, loc);
                        
                        if (parent_constructor == null){
                                Report.Error (1501, loc,
                                       "Can not find a constructor for this argument list");
                                return false;
                        }

                        if (parent_constructor == caller_builder){
                                Report.Error (515, String.Format ("Constructor `{0}' can not call itself", TypeManager.CSharpSignature (caller_builder)));
                                return false;
                        }
                        
                        return true;
                }

                public void Emit (EmitContext ec)
                {
                        if (parent_constructor != null){
                                ec.Mark (loc, false);
                                if (ec.IsStatic)
                                        Invocation.EmitCall (ec, true, true, null, parent_constructor, argument_list, loc);
                                else
                                        Invocation.EmitCall (ec, true, false, ec.GetThis (loc), parent_constructor, argument_list, loc);
                        }
                }
        }

        public class ConstructorBaseInitializer : ConstructorInitializer {
                public ConstructorBaseInitializer (ArrayList argument_list, Parameters pars, Location l) :
                        base (argument_list, pars, l)
                {
                }
        }

        public class ConstructorThisInitializer : ConstructorInitializer {
                public ConstructorThisInitializer (ArrayList argument_list, Parameters pars, Location l) :
                        base (argument_list, pars, l)
                {
                }
        }
        
        public class Constructor : MethodCore {
                public ConstructorBuilder ConstructorBuilder;
                public ConstructorInitializer Initializer;

                // <summary>
                //   Modifiers allowed for a constructor.
                // </summary>
                public const int AllowedModifiers =
                        Modifiers.PUBLIC |
                        Modifiers.PROTECTED |
                        Modifiers.INTERNAL |
                        Modifiers.STATIC |
                        Modifiers.UNSAFE |
                        Modifiers.EXTERN |              
                        Modifiers.PRIVATE;

                bool has_compliant_args = false;
                //
                // The spec claims that static is not permitted, but
                // my very own code has static constructors.
                //
                public Constructor (DeclSpace ds, string name, int mod, Parameters args,
                                    ConstructorInitializer init, Location l)
                        : base (ds, null, mod, AllowedModifiers, false, name, null, args, l)
                {
                        Initializer = init;
                }

                public override string GetSignatureForError()
                {
                        return TypeManager.CSharpSignature (ConstructorBuilder);
                }

                public bool HasCompliantArgs {
                        get {
                                return has_compliant_args;
                        }
                }

                //
                // Returns true if this is a default constructor
                //
                public bool IsDefault ()
                {
                        if ((ModFlags & Modifiers.STATIC) != 0)
                                return  (Parameters.FixedParameters == null ? true : Parameters.Empty) &&
                                        (Parameters.ArrayParameter == null ? true : Parameters.Empty);
                        
                        else
                                return  (Parameters.FixedParameters == null ? true : Parameters.Empty) &&
                                        (Parameters.ArrayParameter == null ? true : Parameters.Empty) &&
                                        (Initializer is ConstructorBaseInitializer) &&
                                        (Initializer.Arguments == null);
                }
                
                protected override bool CheckBase (TypeContainer container)
                {
                        base.CheckBase (container);
                        
                        // Check whether arguments were correct.
                        if (!DoDefineParameters ())
                                return false;
                        
                        if ((ModFlags & Modifiers.STATIC) != 0)
                                return true;
                        
                        if (container is Struct && ParameterTypes.Length == 0) {
                                Report.Error (568, Location, 
                                        "Structs can not contain explicit parameterless " +
                                        "constructors");
                                return false;
                        }
                                
                        //
                        // Check in our class for dups
                        //
                        ArrayList ar = container.InstanceConstructors;
                        if (ar != null) {
                                int arLen = ar.Count;
                                        
                                for (int i = 0; i < arLen; i++) {
                                        Constructor m = (Constructor) ar [i];
                                        if (IsDuplicateImplementation (container, m))
                                                return false;
                                }
                        }
                        
                        return true;
                }
                
                //
                // Creates the ConstructorBuilder
                //
                public override bool Define (TypeContainer container)
                {
                        MethodAttributes ca = (MethodAttributes.RTSpecialName |
                                               MethodAttributes.SpecialName);
                        
                        if ((ModFlags & Modifiers.STATIC) != 0) {
                                ca |= MethodAttributes.Static | MethodAttributes.Private;
                        } else {
                                ca |= MethodAttributes.HideBySig;

                                if ((ModFlags & Modifiers.PUBLIC) != 0)
                                        ca |= MethodAttributes.Public;
                                else if ((ModFlags & Modifiers.PROTECTED) != 0){
                                        if ((ModFlags & Modifiers.INTERNAL) != 0)
                                                ca |= MethodAttributes.FamORAssem;
                                        else 
                                                ca |= MethodAttributes.Family;
                                } else if ((ModFlags & Modifiers.INTERNAL) != 0)
                                        ca |= MethodAttributes.Assembly;
                                else if (IsDefault ())
                                        ca |= MethodAttributes.Public;
                                else
                                        ca |= MethodAttributes.Private;
                        }
                        
                        // Check if arguments were correct.
                        if (!CheckBase (container))
                                return false;

                        ConstructorBuilder = container.TypeBuilder.DefineConstructor (
                                ca, GetCallingConvention (container is Class), ParameterTypes);

                        if ((ModFlags & Modifiers.UNSAFE) != 0)
                                ConstructorBuilder.InitLocals = false;
                        
                        //
                        // HACK because System.Reflection.Emit is lame
                        //
                        TypeManager.RegisterMethod (ConstructorBuilder, ParameterInfo, ParameterTypes);

                        return true;
                }

                //
                // Emits the code
                //
                public override void Emit (TypeContainer container)
                {
                        ILGenerator ig = ConstructorBuilder.GetILGenerator ();
                        EmitContext ec = new EmitContext (container, Location, ig, null, ModFlags, true);

                        //
                        // extern methods have no bodies
                        //
                        if ((ModFlags & Modifiers.EXTERN) != 0) {
                                if ((block != null) && ((ModFlags & Modifiers.EXTERN) != 0)) {
                                        Report.Error (
                                                179, Location, "External constructor `" +
                                                TypeManager.CSharpSignature (ConstructorBuilder) +
                                                "' can not have a body");
                                        return;
                                }
                        } else if (block == null) {
                                Report.Error (
                                        501, Location, "Constructor `" +
                                        TypeManager.CSharpSignature (ConstructorBuilder) +
                                        "' must declare a body since it is not marked extern");
                                return;
                        }

                        if ((ModFlags & Modifiers.STATIC) == 0){
                                if (container is Class && Initializer == null)
                                        Initializer = new ConstructorBaseInitializer (
                                                null, Parameters.EmptyReadOnlyParameters, Location);


                                //
                                // Spec mandates that Initializers will not have
                                // `this' access
                                //
                                ec.IsStatic = true;
                                if (Initializer != null && !Initializer.Resolve (ConstructorBuilder, ec))
                                        return;
                                ec.IsStatic = false;
                        }

                        MethodCore.LabelParameters (ec, ConstructorBuilder,
                                                    Parameters, OptAttributes, Location);
                        
                        SymbolWriter sw = CodeGen.SymbolWriter;
                        bool generate_debugging = false;

                        if ((sw != null) && (block != null) &&
                                !Location.IsNull (Location) &&
                                !Location.IsNull (block.EndLocation) &&
                                (Location.SymbolDocument != null)) {
                                sw.OpenMethod (container, ConstructorBuilder, Location, block.EndLocation);

                                generate_debugging = true;
                        }

                        //
                        // Classes can have base initializers and instance field initializers.
                        //
                        if (container is Class){
                                if ((ModFlags & Modifiers.STATIC) == 0){

                                        //
                                        // If we use a "this (...)" constructor initializer, then
                                        // do not emit field initializers, they are initialized in the other constructor
                                        //
                                        if (!(Initializer != null && Initializer is ConstructorThisInitializer))
                                                container.EmitFieldInitializers (ec);
                                }
                        }
                        if (Initializer != null)
                                Initializer.Emit (ec);
                        
                        if ((ModFlags & Modifiers.STATIC) != 0)
                                container.EmitFieldInitializers (ec);

                        Attribute.ApplyAttributes (ec, ConstructorBuilder, this, OptAttributes);

                        // If this is a non-static `struct' constructor and doesn't have any
                        // initializer, it must initialize all of the struct's fields.
                        if ((container is Struct) && ((ModFlags & Modifiers.STATIC) == 0) && (Initializer == null))
                                Block.AddThisVariable (container, Location);

                        ec.EmitTopBlock (block, ParameterInfo, Location);

                        if (generate_debugging)
                                sw.CloseMethod ();

                        base.Emit (container);

                        block = null;
                }

                // For constructors is needed to test only parameters
                protected override bool IsIdentifierClsCompliant (DeclSpace ds)
                {
                        if (parameter_types == null || parameter_types.Length == 0)
                                return true;

                        TypeContainer tc = ds as TypeContainer;

                        for (int i = 0; i < tc.InstanceConstructors.Count; i++) {
                                Constructor c = (Constructor) tc.InstanceConstructors [i];
                                                
                                if (c == this || c.ParameterTypes.Length == 0)
                                        continue;

                                if (!c.IsClsCompliaceRequired (ds))
                                        continue;
                                
                                if (!AttributeTester.AreOverloadedMethodParamsClsCompliant (parameter_types, c.ParameterTypes)) {
                                        Report.Error_T (3006, Location, GetSignatureForError ());
                                        return false;
                                }
                        }

                        if (tc.TypeBuilder.BaseType == null)
                                return true;

                        DeclSpace temp_ds = TypeManager.LookupDeclSpace (tc.TypeBuilder.BaseType);
                        if (temp_ds != null)
                                return IsIdentifierClsCompliant (temp_ds);

                        MemberInfo[] ml = tc.TypeBuilder.BaseType.FindMembers (MemberTypes.Constructor, BindingFlags.Public | BindingFlags.DeclaredOnly | BindingFlags.Instance, null, null);
                        // Skip parameter-less ctor
                        if (ml.Length < 2)
                                return true;

                        foreach (ConstructorInfo ci in ml) {
                                object[] cls_attribute = ci.GetCustomAttributes (TypeManager.cls_compliant_attribute_type, false);
                                if (cls_attribute.Length == 1 && (!((CLSCompliantAttribute)cls_attribute[0]).IsCompliant))
                                        continue;

                                if (!AttributeTester.AreOverloadedMethodParamsClsCompliant (parameter_types, TypeManager.GetArgumentTypes (ci))) {
                                        Report.Error_T (3006, Location, GetSignatureForError ());
                                        return false;
                                }
                        }
                        
                        return true;
                }

                protected override bool VerifyClsCompliance (DeclSpace ds)
                {
                        if (!base.VerifyClsCompliance (ds)) {
                                return false;
                        }
                        
                        if (ds.TypeBuilder.IsSubclassOf (TypeManager.attribute_type)) {
                                foreach (Type param in parameter_types) {
                                        if (param.IsArray) {
                                                return false;
                                        }
                                }
                        }
                        has_compliant_args = true;
                        return true;
                }

        }

        /// <summary>
        /// Interface for MethodData class. Holds links to parent members to avoid member duplication.
        /// </summary>
        public interface IMethodData
        {
                CallingConventions CallingConventions { get; }
                Location Location { get; }
                string MethodName { get; }
                Type[] ParameterTypes { get; }
                Type ReturnType { get; }

                Attributes OptAttributes { get; }
                Block Block { get; }

                EmitContext CreateEmitContext (TypeContainer tc, ILGenerator ig);
        }

        //
        // Encapsulates most of the Method's state
        //
        public class MethodData {

                readonly IMethodData method;

                //
                // The return type of this method
                //
                public readonly InternalParameters ParameterInfo;

                //
                // Are we implementing an interface ?
                //
                public bool IsImplementing = false;

                //
                // Protected data.
                //
                protected MemberBase member;
                protected int modifiers;
                protected MethodAttributes flags;
                protected bool is_method;

                //
                // It can either hold a string with the condition, or an arraylist of conditions.
                object conditionals;

                MethodBuilder builder = null;
                public MethodBuilder MethodBuilder {
                        get {
                                return builder;
                        }
                }

                public MethodData (MemberBase member, InternalParameters parameters,
                                   int modifiers, MethodAttributes flags, bool is_method, IMethodData method)
                {
                        this.member = member;
                        this.ParameterInfo = parameters;
                        this.modifiers = modifiers;
                        this.flags = flags;
                        this.is_method = is_method;
                        this.conditionals = null;

                        this.method = method;
                }

                //
                // Attributes.
                //
                Attribute dllimport_attribute = null;
                string obsolete = null;
                bool obsolete_error = false;

                public virtual bool ApplyAttributes (Attributes opt_attrs, bool is_method)
                {
                        if ((opt_attrs == null) || (opt_attrs.AttributeSections == null))
                                return true;

                        foreach (AttributeSection asec in opt_attrs.AttributeSections) {
                                if (asec.Attributes == null)
                                        continue;
                                        
                                foreach (Attribute a in asec.Attributes) {
                                        if (a.Name == "Conditional") {
                                                if (!ApplyConditionalAttribute (a))
                                                        return false;
                                        } else if (a.Name == "Obsolete") {
                                                if (!ApplyObsoleteAttribute (a))
                                                        return false;
                                        } else if (a.Name.IndexOf ("DllImport") != -1) {
                                                if (!is_method) {
                                                        a.Type = TypeManager.dllimport_type;
                                                        Attribute.Error_AttributeNotValidForElement (a, method.Location);
                                                        return false;
                                                }
                                                if (!ApplyDllImportAttribute (a))
                                                        return false;
                                        }
                                }
                        }

                        return true;
                }

                //
                // Applies the `DllImport' attribute to the method.
                //
                protected virtual bool ApplyDllImportAttribute (Attribute a)
                {
                        const int extern_static = Modifiers.EXTERN | Modifiers.STATIC;
                        if ((modifiers & extern_static) != extern_static) {
                                Report.Error (601, method.Location,
                                              "The DllImport attribute must be specified on a method " +
                                              "marked `static' and `extern'.");
                                return false;
                        }

                        flags |= MethodAttributes.PinvokeImpl;
                        dllimport_attribute = a;
                        return true;
                }

                //
                // Applies the `Obsolete' attribute to the method.
                //
                protected virtual bool ApplyObsoleteAttribute (Attribute a)
                {
                        if (obsolete != null) {
                                Report.Error (579, method.Location, "Duplicate `Obsolete' attribute");
                                return false;
                        }

                        obsolete = a.Obsolete_GetObsoleteMessage (out obsolete_error);
                        return obsolete != null;
                }

                //
                // Applies the `Conditional' attribute to the method.
                //
                protected virtual bool ApplyConditionalAttribute (Attribute a)
                {
                        // The Conditional attribute is only valid on methods.
                        if (!is_method) {
                                Attribute.Error_AttributeNotValidForElement (a, method.Location);
                                return false;
                        }

                        string condition = a.Conditional_GetConditionName ();

                        if (condition == null)
                                return false;

                        if (method.ReturnType != TypeManager.void_type) {
                                Report.Error (578, method.Location,
                                              "Conditional not valid on `" + member.Name + "' " +
                                              "because its return type is not void");
                                return false;
                        }

                        if ((modifiers & Modifiers.OVERRIDE) != 0) {
                                Report.Error (243, method.Location,
                                              "Conditional not valid on `" + member.Name + "' " +
                                              "because it is an override method");
                                return false;
                        }

                        if (member.IsExplicitImpl) {
                                Report.Error (577, method.Location,
                                              "Conditional not valid on `" + member.Name + "' " +
                                              "because it is an explicit interface implementation");
                                return false;
                        }

                        if (IsImplementing) {
                                Report.Error (623, method.Location,
                                              "Conditional not valid on `" + member.Name + "' " +
                                              "because it is an interface method");
                                return false;
                        }

                        //
                        // The likelyhood that the conditional will be more than 1 is very slim
                        //
                        if (conditionals == null)
                                conditionals = condition;
                        else if (conditionals is string){
                                string s = (string) conditionals;
                                conditionals = new ArrayList ();
                                ((ArrayList)conditionals).Add (s);
                        } else
                                ((ArrayList)conditionals).Add (condition);

                        return true;
                }

                //
                // Checks whether this method should be ignored due to its Conditional attributes.
                //
                bool ShouldIgnore (Location loc)
                {
                        // When we're overriding a virtual method, we implicitly inherit the
                        // Conditional attributes from our parent.
                        if (member.ParentMethod != null) {
                                TypeManager.MethodFlags flags = TypeManager.GetMethodFlags (
                                        member.ParentMethod, loc);

                                if ((flags & TypeManager.MethodFlags.ShouldIgnore) != 0)
                                        return true;
                        }

                        if (conditionals != null){
                                if (conditionals is string){
                                        if (RootContext.AllDefines [conditionals] == null)
                                                return true;
                                } else {
                                        foreach (string condition in (ArrayList) conditionals)
                                        if (RootContext.AllDefines [condition] == null)
                                                return true;
                                }
                        }
                        return false;
                }

                //
                // Returns the TypeManager.MethodFlags for this method.
                // This emits an error 619 / warning 618 if the method is obsolete.
                // In the former case, TypeManager.MethodFlags.IsObsoleteError is returned.
                //
                public virtual TypeManager.MethodFlags GetMethodFlags (Location loc)
                {
                        TypeManager.MethodFlags flags = 0;

                        if (obsolete != null) {
                                if (obsolete_error) {
                                        Report.Error (619, loc, "Method `" + member.Name +
                                                      "' is obsolete: `" + obsolete + "'");
                                        return TypeManager.MethodFlags.IsObsoleteError;
                                } else
                                        Report.Warning (618, loc, "Method `" + member.Name +
                                                        "' is obsolete: `" + obsolete + "'");

                                flags |= TypeManager.MethodFlags.IsObsolete;
                        }

                        if (ShouldIgnore (loc))
                                flags |= TypeManager.MethodFlags.ShouldIgnore;

                        return flags;
                }

                public bool Define (TypeContainer container)
                {
                        MethodInfo implementing = null;
                        string prefix;

                        if (method.OptAttributes != null)
                                if (!ApplyAttributes (method.OptAttributes, is_method))
                                        return false;

                        if (member.IsExplicitImpl)
                                prefix = member.InterfaceType.FullName + ".";
                        else
                                prefix = "";

                        string name = method.MethodName;
                        string method_name = prefix + name;
                        Type[] ParameterTypes = method.ParameterTypes;

                        if (container.Pending != null){
                                if (member is Indexer)
                                        implementing = container.Pending.IsInterfaceIndexer (
                                                member.InterfaceType, method.ReturnType, ParameterTypes);
                                else
                                        implementing = container.Pending.IsInterfaceMethod (
                                                member.InterfaceType, name, method.ReturnType, ParameterTypes);

                                if (member.InterfaceType != null && implementing == null){
                                        Report.Error (539, method.Location, "'{0}' in explicit interface declaration is not an interface", method_name);
                                        return false;
                                }
                        }

                        //
                        // For implicit implementations, make sure we are public, for
                        // explicit implementations, make sure we are private.
                        //
                        if (implementing != null){
                                //
                                // Setting null inside this block will trigger a more
                                // verbose error reporting for missing interface implementations
                                //
                                // The "candidate" function has been flagged already
                                // but it wont get cleared
                                //
                                if (member.IsExplicitImpl){
                                        if ((modifiers & (Modifiers.PUBLIC | Modifiers.ABSTRACT | Modifiers.VIRTUAL)) != 0){
                                                Modifiers.Error_InvalidModifier (method.Location, "public, virtual or abstract");
                                                implementing = null;
                                        }
                                } else if ((flags & MethodAttributes.MemberAccessMask) != MethodAttributes.Public){
                                        if (TypeManager.IsInterfaceType (implementing.DeclaringType)){
                                                //
                                                // If this is an interface method implementation,
                                                // check for public accessibility
                                                //
                                                implementing = null;
                                        } else if ((flags & MethodAttributes.MemberAccessMask) == MethodAttributes.Private){
                                                // We may never be private.
                                                implementing = null;
                                        } else if ((modifiers & Modifiers.OVERRIDE) == 0){
                                                //
                                                // We may be protected if we're overriding something.
                                                //
                                                implementing = null;
                                        }
                                } 
                                        
                                //
                                // Static is not allowed
                                //
                                if ((modifiers & Modifiers.STATIC) != 0){
                                        implementing = null;
                                        Modifiers.Error_InvalidModifier (method.Location, "static");
                                }
                        }
                        
                        //
                        // If implementing is still valid, set flags
                        //
                        if (implementing != null){
                                //
                                // When implementing interface methods, set NewSlot
                                // unless, we are overwriting a method.
                                //
                                if (implementing.DeclaringType.IsInterface){
                                        if ((modifiers & Modifiers.OVERRIDE) == 0)
                                                flags |= MethodAttributes.NewSlot;
                                }
                                flags |=
                                        MethodAttributes.Virtual |
                                        MethodAttributes.HideBySig;

                                // Set Final unless we're virtual, abstract or already overriding a method.
                                if ((modifiers & (Modifiers.VIRTUAL | Modifiers.ABSTRACT | Modifiers.OVERRIDE)) == 0)
                                        flags |= MethodAttributes.Final;

                                // Get the method name from the explicit interface.
                                if (member.InterfaceType != null) {
                                        name = implementing.Name;
                                        method_name = prefix + name;
                                }

                                IsImplementing = true;
                        }

                        //
                        // Create the MethodBuilder for the method
                        //
                        if ((flags & MethodAttributes.PinvokeImpl) != 0) {
                                if ((modifiers & Modifiers.STATIC) == 0) {
                                        Report.Error (601, method.Location,
                                                      "The DllImport attribute must be specified on " +
                                                      "a method marked 'static' and 'extern'.");
                                        return false;
                                }
                                
                                EmitContext ec = method.CreateEmitContext (container, null);
                                
                                builder = dllimport_attribute.DefinePInvokeMethod (
                                        ec, container.TypeBuilder, method_name, flags,
                                        method.ReturnType, ParameterTypes);
                        } else
                                builder = container.TypeBuilder.DefineMethod (
                                        method_name, flags, method.CallingConventions,
                                        method.ReturnType, ParameterTypes);

                        if (builder == null)
                                return false;

                        if ((modifiers & Modifiers.UNSAFE) != 0)
                                builder.InitLocals = false;

                        if (IsImplementing){
                                //
                                // clear the pending implemntation flag
                                //
                                if (member is Indexer) {
                                        container.Pending.ImplementIndexer (
                                                member.InterfaceType, builder, method.ReturnType,
                                                ParameterTypes, true);
                                } else
                                        container.Pending.ImplementMethod (
                                                member.InterfaceType, name, method.ReturnType,
                                                ParameterTypes, member.IsExplicitImpl);

                                if (member.IsExplicitImpl)
                                        container.TypeBuilder.DefineMethodOverride (
                                                builder, implementing);

                        }

                        if (!TypeManager.RegisterMethod (builder, ParameterInfo, ParameterTypes)) {
                                Report.Error (111, method.Location,
                                              "Class `" + container.Name +
                                              "' already contains a definition with the " +
                                              "same return value and parameter types as the " +
                                              "'get' method of property `" + member.Name + "'");
                                return false;
                        }

                        TypeManager.AddMethod (builder, this);

                        return true;
                }

                //
                // Emits the code
                // 
                public void Emit (TypeContainer container, object kind)
                {
                        EmitContext ec;

                        if ((flags & MethodAttributes.PinvokeImpl) == 0)
                                ec = method.CreateEmitContext (container, builder.GetILGenerator ());
                        else
                                ec = method.CreateEmitContext (container, null);

                        Location loc = method.Location;
                        Attributes OptAttributes = method.OptAttributes;

                        if (OptAttributes != null)
                                Attribute.ApplyAttributes (ec, builder, kind, OptAttributes);

                        if (member is MethodCore)
                                MethodCore.LabelParameters (ec, MethodBuilder,
                                                            ((MethodCore) member).Parameters,
                                                            OptAttributes,
                                                            loc);

                        SymbolWriter sw = CodeGen.SymbolWriter;
                        Block block = method.Block;
                        
                        //
                        // abstract or extern methods have no bodies
                        //
                        if ((modifiers & (Modifiers.ABSTRACT | Modifiers.EXTERN)) != 0){
                                if (block == null) {
                                        if ((sw != null) && ((modifiers & Modifiers.EXTERN) != 0) &&
                                            !Location.IsNull (loc) &&
                                            (method.Location.SymbolDocument != null)) {
                                                sw.OpenMethod (container, MethodBuilder, loc, loc);
                                                sw.CloseMethod ();
                                        }

                                        return;
                                }

                                //
                                // abstract or extern methods have no bodies.
                                //
                                if ((modifiers & Modifiers.ABSTRACT) != 0)
                                        Report.Error (
                                                500, method.Location, "Abstract method `" +
                                                TypeManager.CSharpSignature (builder) +
                                                "' can not have a body");

                                if ((modifiers & Modifiers.EXTERN) != 0)
                                        Report.Error (
                                                179, method.Location, "External method `" +
                                                TypeManager.CSharpSignature (builder) +
                                                "' can not have a body");

                                return;
                        }

                        //
                        // Methods must have a body unless they're extern or abstract
                        //
                        if (block == null) {
                                Report.Error (
                                        501, method.Location, "Method `" +
                                        TypeManager.CSharpSignature (builder) +
                                        "' must declare a body since it is not marked " +
                                        "abstract or extern");
                                return;
                        }

                        //
                        // Handle destructors specially
                        //
                        // FIXME: This code generates buggy code
                        //
                        if ((sw != null) && !Location.IsNull (loc) &&
                            !Location.IsNull (block.EndLocation) &&
                            (loc.SymbolDocument != null)) {
                                sw.OpenMethod (container, MethodBuilder, loc, block.EndLocation);

                                if (member is Destructor)
                                        EmitDestructor (ec, block);
                                else
                                        ec.EmitTopBlock (block, ParameterInfo, loc);

                                sw.CloseMethod ();
                        } else {
                                if (member is Destructor)
                                        EmitDestructor (ec, block);
                                else
                                        ec.EmitTopBlock (block, ParameterInfo, loc);
                        }
                }

                void EmitDestructor (EmitContext ec, Block block)
                {
                        ILGenerator ig = ec.ig;
                        
                        Label finish = ig.DefineLabel ();

                        block.SetDestructor ();
                        
                        ig.BeginExceptionBlock ();
                        ec.ReturnLabel = finish;
                        ec.HasReturnLabel = true;
                        ec.EmitTopBlock (block, null, method.Location);
                        
                        // ig.MarkLabel (finish);
                        ig.BeginFinallyBlock ();
                        
                        if (ec.ContainerType.BaseType != null) {
                                Expression member_lookup = Expression.MemberLookup (
                                        ec, ec.ContainerType.BaseType, null, ec.ContainerType.BaseType,
                                        "Finalize", MemberTypes.Method, Expression.AllBindingFlags, method.Location);

                                if (member_lookup != null){
                                        MethodGroupExpr parent_destructor = ((MethodGroupExpr) member_lookup);
                                
                                        ig.Emit (OpCodes.Ldarg_0);
                                        ig.Emit (OpCodes.Call, (MethodInfo) parent_destructor.Methods [0]);
                                }
                        }
                        
                        ig.EndExceptionBlock ();
                        //ig.MarkLabel (ec.ReturnLabel);
                        ig.Emit (OpCodes.Ret);
                }
        }

        public class Destructor : Method {

                public Destructor (DeclSpace ds, Expression return_type, int mod, string name,
                                   Parameters parameters, Attributes attrs, Location l)
                        : base (ds, return_type, mod, false, name, parameters, attrs, l)
                { }

        }
        
        abstract public class MemberBase : MemberCore {
                public Expression Type;

                public MethodAttributes flags;
                        
                protected readonly int explicit_mod_flags;

                //
                // The "short" name of this property / indexer / event.  This is the
                // name without the explicit interface.
                //
                public string ShortName;

                //
                // The type of this property / indexer / event
                //
                public Type MemberType;

                //
                // If true, this is an explicit interface implementation
                //
                public bool IsExplicitImpl = false;

                //
                // The name of the interface we are explicitly implementing
                //
                public string ExplicitInterfaceName = null;

                //
                // Whether this is an interface member.
                //
                public bool IsInterface;

                //
                // If true, the interface type we are explicitly implementing
                //
                public Type InterfaceType = null;

                //
                // The method we're overriding if this is an override method.
                //
                protected MethodInfo parent_method = null;
                public MethodInfo ParentMethod {
                        get {
                                return parent_method;
                        }
                }

                //
                // The constructor is only exposed to our children
                //
                protected MemberBase (Expression type, int mod, int allowed_mod, int def_mod, string name,
                                      Attributes attrs, Location loc)
                        : base (name, attrs, loc)
                {
                        explicit_mod_flags = mod;
                        Type = type;
                        ModFlags = Modifiers.Check (allowed_mod, mod, def_mod, loc);
                }

                protected virtual bool CheckBase (TypeContainer container)
                {
                        if ((container is Struct) || (RootContext.WarningLevel > 3)){
                                if ((ModFlags & Modifiers.PROTECTED) != 0 && (container.ModFlags & Modifiers.SEALED) != 0){
                                        if (container is Struct){
                                                Report.Error (666, Location, "Protected member in struct declaration");
                                                return false;
                                        } else
                                                Report.Warning (628, Location, "Member " + container.MakeName (Name) + " protected in sealed class");
                                }
                        }
                        return true;
                }

                protected void WarningNotHiding (TypeContainer parent)
                {
                        Report.Warning (
                                109, Location,
                                "The member " + parent.MakeName (Name) + " does not hide an " +
                                "inherited member.  The keyword new is not required");
                                                           
                }

                void Error_CannotChangeAccessModifiers (TypeContainer parent, MethodInfo parent_method,
                                                        string name)
                {
                        //
                        // FIXME: report the old/new permissions?
                        //
                        Report.Error (
                                507, Location, parent.MakeName (Name) +
                                ": can't change the access modifiers when overriding inherited " +
                                "member `" + name + "'");
                }
                
                //
                // Performs various checks on the MethodInfo `mb' regarding the modifier flags
                // that have been defined.
                //
                // `name' is the user visible name for reporting errors (this is used to
                // provide the right name regarding method names and properties)
                //
                protected bool CheckMethodAgainstBase (TypeContainer parent, MethodAttributes my_attrs,
                                                       MethodInfo mb, string name)
                {
                        bool ok = true;
                        
                        if ((ModFlags & Modifiers.OVERRIDE) != 0){
                                if (!(mb.IsAbstract || mb.IsVirtual)){
                                        Report.Error (
                                                506, Location, parent.MakeName (Name) +
                                                ": cannot override inherited member `" +
                                                name + "' because it is not " +
                                                "virtual, abstract or override");
                                        ok = false;
                                }
                                
                                // Now we check that the overriden method is not final
                                
                                if (mb.IsFinal) {
                                        // This happens when implementing interface methods.
                                        if (mb.IsHideBySig && mb.IsVirtual) {
                                                Report.Error (
                                                        506, Location, parent.MakeName (Name) +
                                                        ": cannot override inherited member `" +
                                                        name + "' because it is not " +
                                                        "virtual, abstract or override");
                                        } else
                                                Report.Error (239, Location, parent.MakeName (Name) + " : cannot " +
                                                              "override inherited member `" + name +
                                                              "' because it is sealed.");
                                        ok = false;
                                }
                                //
                                // Check that the permissions are not being changed
                                //
                                MethodAttributes thisp = my_attrs & MethodAttributes.MemberAccessMask;
                                MethodAttributes parentp = mb.Attributes & MethodAttributes.MemberAccessMask;

                                //
                                // special case for "protected internal"
                                //

                                if ((parentp & MethodAttributes.FamORAssem) == MethodAttributes.FamORAssem){
                                        //
                                        // when overriding protected internal, the method can be declared
                                        // protected internal only within the same assembly
                                        //

                                        if ((thisp & MethodAttributes.FamORAssem) == MethodAttributes.FamORAssem){
                                                if (parent.TypeBuilder.Assembly != mb.DeclaringType.Assembly){
                                                        //
                                                        // assemblies differ - report an error
                                                        //
                                                        
                                                        Error_CannotChangeAccessModifiers (parent, mb, name);
                                                    ok = false;
                                                } else if (thisp != parentp) {
                                                        //
                                                        // same assembly, but other attributes differ - report an error
                                                        //
                                                        
                                                        Error_CannotChangeAccessModifiers (parent, mb, name);
                                                        ok = false;
                                                };
                                        } else if ((thisp & MethodAttributes.Family) != MethodAttributes.Family) {
                                                //
                                                // if it's not "protected internal", it must be "protected"
                                                //

                                                Error_CannotChangeAccessModifiers (parent, mb, name);
                                                ok = false;
                                        } else if (parent.TypeBuilder.Assembly == mb.DeclaringType.Assembly) {
                                                //
                                                // protected within the same assembly - an error
                                                //
                                                Error_CannotChangeAccessModifiers (parent, mb, name);
                                                ok = false;
                                        } else if ((thisp & ~(MethodAttributes.Family | MethodAttributes.FamORAssem)) != 
                                                   (parentp & ~(MethodAttributes.Family | MethodAttributes.FamORAssem))) {
                                                //
                                                // protected ok, but other attributes differ - report an error
                                                //
                                                Error_CannotChangeAccessModifiers (parent, mb, name);
                                                ok = false;
                                        }
                                } else {
                                        if (thisp != parentp){
                                                Error_CannotChangeAccessModifiers (parent, mb, name);
                                                ok = false;
                                        }
                                }
                        }

                        if (mb.IsVirtual || mb.IsAbstract){
                                if ((ModFlags & (Modifiers.NEW | Modifiers.OVERRIDE)) == 0){
                                        if (Name != "Finalize"){
                                                Report.Warning (
                                                        114, 2, Location, parent.MakeName (Name) + 
                                                        " hides inherited member `" + name +
                                                        "'.  To make the current member override that " +
                                                        "implementation, add the override keyword, " +
                                                        "otherwise use the new keyword");
                                                ModFlags |= Modifiers.NEW;
                                        }
                                }
                        } else {
                                if ((ModFlags & (Modifiers.NEW | Modifiers.OVERRIDE)) == 0){
                                        if (Name != "Finalize"){
                                                Report.Warning (
                                                        108, 1, Location, "The keyword new is required on " +
                                                        parent.MakeName (Name) + " because it hides " +
                                                        "inherited member `" + name + "'");
                                                ModFlags |= Modifiers.NEW;
                                        }
                                }
                        }

                        return ok;
                }

                protected virtual bool CheckParameters (DeclSpace ds, Type [] parameters)
                {
                        bool error = false;

                        foreach (Type partype in parameters){
                                if (partype == TypeManager.void_type) {
                                        Report.Error (
                                                1547, Location, "Keyword 'void' cannot " +
                                                "be used in this context");
                                        return false;
                                }

                                if (partype.IsPointer){
                                        if (!UnsafeOK (ds))
                                                error = true;
                                        if (!TypeManager.VerifyUnManaged (TypeManager.GetElementType (partype), Location))
                                                error = true;
                                }

                                if (ds.AsAccessible (partype, ModFlags))
                                        continue;

                                if (this is Indexer)
                                        Report.Error (55, Location,
                                                      "Inconsistent accessibility: parameter type `" +
                                                      TypeManager.CSharpName (partype) + "' is less " +
                                                      "accessible than indexer `" + Name + "'");
                                else if ((this is Method) && ((Method) this).IsOperator)
                                        Report.Error (57, Location,
                                                      "Inconsistent accessibility: parameter type `" +
                                                      TypeManager.CSharpName (partype) + "' is less " +
                                                      "accessible than operator `" + Name + "'");
                                else
                                        Report.Error (51, Location,
                                                      "Inconsistent accessibility: parameter type `" +
                                                      TypeManager.CSharpName (partype) + "' is less " +
                                                      "accessible than method `" + Name + "'");
                                error = true;
                        }

                        return !error;
                }

                protected virtual bool DoDefine (TypeContainer container)
                {
                        if (Name == null)
                                Name = "this";

                        if (IsInterface) {
                                ModFlags = Modifiers.PUBLIC |
                                        Modifiers.ABSTRACT |
                                        Modifiers.VIRTUAL;

                                flags = MethodAttributes.Public |
                                        MethodAttributes.Abstract |
                                        MethodAttributes.HideBySig |
                                        MethodAttributes.NewSlot |
                                        MethodAttributes.Virtual;
                        } else {
                                if (!container.MethodModifiersValid (ModFlags, Name, Location))
                                        return false;

                                flags = Modifiers.MethodAttr (ModFlags);
                        }

                        // Lookup Type, verify validity
                        MemberType = container.ResolveType (Type, false, Location);
                        if (MemberType == null)
                                return false;

                        if ((container.ModFlags & Modifiers.SEALED) != 0){
                                if ((ModFlags & (Modifiers.VIRTUAL|Modifiers.ABSTRACT)) != 0){
                                        Report.Error (549, Location, "Virtual method can not be contained in sealed class");
                                        return false;
                                }
                        }
                        
                        // verify accessibility
                        if (!container.AsAccessible (MemberType, ModFlags)) {
                                if (this is Property)
                                        Report.Error (53, Location,
                                                      "Inconsistent accessibility: property type `" +
                                                      TypeManager.CSharpName (MemberType) + "' is less " +
                                                      "accessible than property `" + Name + "'");
                                else if (this is Indexer)
                                        Report.Error (54, Location,
                                                      "Inconsistent accessibility: indexer return type `" +
                                                      TypeManager.CSharpName (MemberType) + "' is less " +
                                                      "accessible than indexer `" + Name + "'");
                                else if (this is Method) {
                                        if (((Method) this).IsOperator)
                                                Report.Error (56, Location,
                                                              "Inconsistent accessibility: return type `" +
                                                              TypeManager.CSharpName (MemberType) + "' is less " +
                                                              "accessible than operator `" + Name + "'");
                                        else
                                                Report.Error (50, Location,
                                                              "Inconsistent accessibility: return type `" +
                                                              TypeManager.CSharpName (MemberType) + "' is less " +
                                                              "accessible than method `" + Name + "'");
                                } else
                                        Report.Error (52, Location,
                                                      "Inconsistent accessibility: field type `" +
                                                      TypeManager.CSharpName (MemberType) + "' is less " +
                                                      "accessible than field `" + Name + "'");
                                return false;
                        }

                        if (MemberType.IsPointer && !UnsafeOK (container))
                                return false;
                        
                        //
                        // Check for explicit interface implementation
                        //
                        if ((ExplicitInterfaceName == null) && (Name.IndexOf ('.') != -1)){
                                int pos = Name.LastIndexOf ('.');

                                ExplicitInterfaceName = Name.Substring (0, pos);
                                ShortName = Name.Substring (pos + 1);
                        } else
                                ShortName = Name;

                        if (ExplicitInterfaceName != null) {
                                InterfaceType  = RootContext.LookupType (
                                        container, ExplicitInterfaceName, false, Location);
                                if (InterfaceType == null)
                                        return false;

                                if (InterfaceType.IsClass) {
                                        Report.Error (538, Location, "'{0}' in explicit interface declaration is not an interface", ExplicitInterfaceName);
                                        return false;
                                }

                                // Compute the full name that we need to export.
                                Name = InterfaceType.FullName + "." + ShortName;
                                
                                if (!container.VerifyImplements (InterfaceType, ShortName, Name, Location))
                                        return false;
                                
                                Modifiers.Check (Modifiers.AllowedExplicitImplFlags, explicit_mod_flags, 0, Location);
                                
                                IsExplicitImpl = true;
                        } else
                                IsExplicitImpl = false;

                        return true;
                }

                protected override bool IsIdentifierClsCompliant (DeclSpace ds)
                {
                        return IsIdentifierAndParamClsCompliant (ds, Name, null, null);
                }

                protected override bool VerifyClsCompliance(DeclSpace ds)
                {
                        if (base.VerifyClsCompliance (ds)) {
                                return true;
                        }

                        if (IsInterface && HasClsCompliantAttribute (ds) && ds.IsClsCompliaceRequired (ds)) {
                                Report.Error_T (3010, Location, GetSignatureForError ());
                        }
                        return false;
                }


        }

        //
        // Fields and Events both generate FieldBuilders, we use this to share 
        // their common bits.  This is also used to flag usage of the field
        //
        abstract public class FieldBase : MemberBase {
                public FieldBuilder  FieldBuilder;
                public Status status;

                [Flags]
                public enum Status : byte { ASSIGNED = 1, USED = 2 }

                //
                // The constructor is only exposed to our children
                //
                protected FieldBase (Expression type, int mod, int allowed_mod, string name,
                                     object init, Attributes attrs, Location loc)
                        : base (type, mod, allowed_mod, Modifiers.PRIVATE, name, attrs, loc)
                {
                        this.init = init;
                }

                //
                // Whether this field has an initializer.
                //
                public bool HasInitializer {
                        get {
                                return init != null;
                        }
                }

                protected readonly Object init;
                // Private.
                Expression init_expr;
                bool init_expr_initialized = false;

                //
                // Resolves and returns the field initializer.
                //
                public Expression GetInitializerExpression (EmitContext ec)
                {
                        if (init_expr_initialized)
                                return init_expr;

                        Expression e;
                        if (init is Expression)
                                e = (Expression) init;
                        else
                                e = new ArrayCreation (Type, "", (ArrayList)init, Location);

                        ec.IsFieldInitializer = true;
                        e = e.DoResolve (ec);
                        ec.IsFieldInitializer = false;

                        init_expr = e;
                        init_expr_initialized = true;

                        return init_expr;
                }

                protected override bool DoDefine (TypeContainer container)
                {
                        if (!base.DoDefine (container))
                                return false;

                        if (MemberType == TypeManager.void_type) {
                                Report.Error (1547, Location,
                                              "Keyword 'void' cannot be used in this context");
                                return false;
                        }

                        return true;
                }

                public override string GetSignatureForError ()
                {
                        return TypeManager.GetFullNameSignature (FieldBuilder);
                }

                protected override bool VerifyClsCompliance (DeclSpace ds)
                {
                        if (!base.VerifyClsCompliance (ds))
                                return false;

                        if (FieldBuilder == null) {
                                return true;
                        }

                        if (!AttributeTester.IsClsCompliant (FieldBuilder.FieldType)) {
                                Report.Error_T (3003, Location, GetSignatureForError ());
                        }
                        return true;
                }


                public void SetAssigned ()
                {
                        status |= Status.ASSIGNED;
                }
        }

        //
        // The Field class is used to represents class/struct fields during parsing.
        //
        public class Field : FieldBase {
                // <summary>
                //   Modifiers allowed in a class declaration
                // </summary>
                const int AllowedModifiers =
                        Modifiers.NEW |
                        Modifiers.PUBLIC |
                        Modifiers.PROTECTED |
                        Modifiers.INTERNAL |
                        Modifiers.PRIVATE |
                        Modifiers.STATIC |
                        Modifiers.VOLATILE |
                        Modifiers.UNSAFE |
                        Modifiers.READONLY;

                public Field (Expression type, int mod, string name, Object expr_or_array_init,
                              Attributes attrs, Location loc)
                        : base (type, mod, AllowedModifiers, name, expr_or_array_init, attrs, loc)
                {
                }

                public override bool Define (TypeContainer container)
                {
                        Type t = container.ResolveType (Type, false, Location);
                        
                        if (t == null)
                                return false;

                        CheckBase (container);
                        
                        if (!container.AsAccessible (t, ModFlags)) {
                                Report.Error (52, Location,
                                              "Inconsistent accessibility: field type `" +
                                              TypeManager.CSharpName (t) + "' is less " +
                                              "accessible than field `" + Name + "'");
                                return false;
                        }

                        if (t.IsPointer && !UnsafeOK (container))
                                return false;
                        
                        if (RootContext.WarningLevel > 1){
                                Type ptype = container.TypeBuilder.BaseType;

                                // ptype is only null for System.Object while compiling corlib.
                                if (ptype != null){
                                        TypeContainer.FindMembers (
                                                ptype, MemberTypes.Method,
                                                BindingFlags.Public |
                                                BindingFlags.Static | BindingFlags.Instance,
                                                System.Type.FilterName, Name);
                                }
                        }

                        if ((ModFlags & Modifiers.VOLATILE) != 0){
                                if (!t.IsClass){
                                        Type vt = t;
                                        
                                        if (TypeManager.IsEnumType (vt))
                                                vt = TypeManager.EnumToUnderlying (t);

                                        if (!((vt == TypeManager.bool_type) ||
                                              (vt == TypeManager.sbyte_type) ||
                                              (vt == TypeManager.byte_type) ||
                                              (vt == TypeManager.short_type) ||    
                                              (vt == TypeManager.ushort_type) ||
                                              (vt == TypeManager.int32_type) ||    
                                              (vt == TypeManager.uint32_type) ||    
                                              (vt == TypeManager.char_type) ||    
                                              (vt == TypeManager.float_type))){
                                                Report.Error (
                                                        677, Location, container.MakeName (Name) +
                                                        " A volatile field can not be of type `" +
                                                        TypeManager.CSharpName (vt) + "'");
                                                return false;
                                        }
                                }

                                if ((ModFlags & Modifiers.READONLY) != 0){
                                        Report.Error (
                                                      678, Location,
                                                      "A field can not be both volatile and readonly");
                                        return false;
                                }
                        }

                        FieldAttributes fa = Modifiers.FieldAttr (ModFlags);

                        if (container is Struct && 
                            ((fa & FieldAttributes.Static) == 0) &&
                            t == container.TypeBuilder &&
                            !TypeManager.IsBuiltinType (t)){
                                Report.Error (523, Location, "Struct member `" + container.Name + "." + Name + 
                                              "' causes a cycle in the structure layout");
                                return false;
                        }

                        try {
                                FieldBuilder = container.TypeBuilder.DefineField (
                                        Name, t, Modifiers.FieldAttr (ModFlags));

                                TypeManager.RegisterFieldBase (FieldBuilder, this);
                        }
                        catch (ArgumentException) {
                                Report.Warning (-24, Location, "The Microsoft runtime is unable to use [void|void*] as a field type, try using the Mono runtime.");
                                return false;
                        }

                        return true;
                }

                public override void Emit (TypeContainer tc)
                {
                        if (OptAttributes != null) {
                                EmitContext ec = new EmitContext (tc, Location, null, FieldBuilder.FieldType, ModFlags);
                                Attribute.ApplyAttributes (ec, FieldBuilder, this, OptAttributes);
                        }

                        base.Emit (tc);
                }
        }

        //
        // `set' and `get' accessors are represented with an Accessor.
        // 
        public class Accessor {
                //
                // Null if the accessor is empty, or a Block if not
                //
                public Block Block;
                public Attributes OptAttributes;
                
                public Accessor (Block b, Attributes attrs)
                {
                        Block = b;
                        OptAttributes = attrs;
                }
        }

        //
        // Properties and Indexers both generate PropertyBuilders, we use this to share 
        // their common bits.
        //
        abstract public class PropertyBase : MethodCore {

                public class GetMethod: PropertyMethod
                {
                        public GetMethod (MethodCore method, Accessor accessor):
                                base (method, accessor)
                        {
                        }

                        public override MethodBuilder Define(TypeContainer container)
                        {
                                method_data = new MethodData (method, method.ParameterInfo, method.ModFlags, method.flags, false, this);

                                if (!method_data.Define (container))
                                        return null;

                                return method_data.MethodBuilder;
                        }

                        public override string MethodName {
                                get {
                                        return "get_" + method.ShortName;
                                }
                        }

                        public override Type ReturnType {
                                get {
                                        return method.MemberType;
                                }
                        }
                }

                public class SetMethod: PropertyMethod {
                        public SetMethod (MethodCore method, Accessor accessor):
                                base (method, accessor)
                        {
                        }

                        protected virtual InternalParameters GetParameterInfo (TypeContainer container)
                        {
                                Parameter [] parms = new Parameter [1];
                                parms [0] = new Parameter (method.Type, "value", Parameter.Modifier.NONE, null);
                                return new InternalParameters (
                                        container, new Parameters (parms, null, method.Location));
                        }

                        public override MethodBuilder Define(TypeContainer container)
                        {
                                method_data = new MethodData (method, GetParameterInfo (container), method.ModFlags, method.flags, false, this);

                                if (!method_data.Define (container))
                                        return null;

                                return method_data.MethodBuilder;
                        }

                        public override string MethodName {
                                get {
                                        return "set_" + method.ShortName;
                                }
                        }

                        public override Type[] ParameterTypes {
                                get {
                                        return new Type[] { method.MemberType };
                                }
                        }

                        public override Type ReturnType {
                                get {
                                        return TypeManager.void_type;
                                }
                        }
                }


                public abstract class PropertyMethod: IMethodData {
                        protected readonly MethodCore method;
                        public readonly Accessor Accessor;
                        protected MethodData method_data;

                        public PropertyMethod (MethodCore method, Accessor accessor)
                        {
                                this.method = method;
                                this.Accessor = accessor;
                        }

                        public InternalParameters ParameterInfo {
                                get {
                                        return method_data.ParameterInfo;
                                }
                        }

                        #region IMethodData Members

                        public Block Block {
                                get {
                                        return Accessor.Block;
                                }
                        }

                        public CallingConventions CallingConventions {
                                get {
                                        return CallingConventions.Standard;
                                }
                        }

                        public abstract MethodBuilder Define (TypeContainer container);

                        public void Emit (TypeContainer container)
                        {
                                method_data.Emit (container, Accessor);
                                Accessor.Block = null;
                        }

                        public Attributes OptAttributes {
                                get {
                                        return Accessor.OptAttributes;
                                }
                        }

                        public virtual Type[] ParameterTypes {
                                get {
                                        return TypeManager.NoTypes;
                                }
                        }

                        public abstract Type ReturnType { get; }

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

                        public abstract string MethodName { get; }

                        public EmitContext CreateEmitContext (TypeContainer tc, ILGenerator ig)
                        {
                                return new EmitContext (tc, method.ds, method.Location, ig, ReturnType, method.ModFlags, false);
                        }

                        #endregion
                }


                public PropertyMethod Get, Set;
                public PropertyBuilder PropertyBuilder;
                public MethodBuilder GetBuilder, SetBuilder;

                protected EmitContext ec;

                public PropertyBase (DeclSpace ds, Expression type, int mod_flags,
                                     int allowed_mod, bool is_iface, string name,
                                     Parameters parameters, Attributes attrs,
                                     Location loc)
                        : base (ds, type, mod_flags, allowed_mod, is_iface, name,
                                attrs, parameters, loc)
                {
                }

                protected override bool DoDefine (TypeContainer container)
                {
                        if (!base.DoDefine (container))
                                return false;

                        ec = new EmitContext (container, Location, null, MemberType, ModFlags);

                        return true;
                }

                public override string GetSignatureForError()
                {
                        return TypeManager.CSharpSignature (PropertyBuilder, false);
                }

                protected virtual string RealMethodName {
                        get {
                                return Name;
                        }
                }

                protected override bool IsIdentifierClsCompliant (DeclSpace ds)
                {
                        if (!IsIdentifierAndParamClsCompliant (ds, RealMethodName, null, null))
                                return false;

                        if (Get != null && !IsIdentifierAndParamClsCompliant (ds, "get_" + RealMethodName, null, null))
                                return false;

                        if (Set != null && !IsIdentifierAndParamClsCompliant (ds, "set_" + RealMethodName, null, null))
                                return false;

                        return true;
                }


                //
                // Checks our base implementation if any
                //
                protected override bool CheckBase (TypeContainer container)
                {
                        base.CheckBase (container);
                        
                        // Check whether arguments were correct.
                        if (!DoDefineParameters ())
                                return false;

                        if (IsExplicitImpl)
                                return true;

                        //
                        // Check in our class for dups
                        //
                        ArrayList ar = container.Properties;
                        if (ar != null) {
                                int arLen = ar.Count;
                                        
                                for (int i = 0; i < arLen; i++) {
                                        Property m = (Property) ar [i];
                                        if (IsDuplicateImplementation (container, m))
                                                return false;
                                }
                        }

                        if (IsInterface)
                                return true;

                        string report_name;
                        MethodSignature ms, base_ms;
                        if (this is Indexer) {
                                string name, base_name;

                                report_name = "this";
                                name = TypeManager.IndexerPropertyName (container.TypeBuilder);
                                ms = new MethodSignature (name, null, ParameterTypes);
                                base_name = TypeManager.IndexerPropertyName (container.TypeBuilder.BaseType);
                                base_ms = new MethodSignature (base_name, null, ParameterTypes);
                        } else {
                                report_name = Name;
                                ms = base_ms = new MethodSignature (Name, null, ParameterTypes);
                        }

                        //
                        // Verify if the parent has a type with the same name, and then
                        // check whether we have to create a new slot for it or not.
                        //
                        Type ptype = container.TypeBuilder.BaseType;

                        // ptype is only null for System.Object while compiling corlib.
                        if (ptype == null) {
                                if ((ModFlags & Modifiers.NEW) != 0)
                                        WarningNotHiding (container);

                                return true;
                        }

                        MemberInfo parent_member = null;
                        
                        //
                        // Explicit implementations do not have `parent' methods, however,
                        // the member cache stores them there. Without this check, we get
                        // an incorrect warning in corlib.
                        //
                        if (! IsExplicitImpl) {
                                parent_member = ((IMemberContainer)container).Parent.MemberCache.FindMemberToOverride (
                                        container.TypeBuilder, Name, ParameterTypes, true);
                        }

                        if (parent_member is PropertyInfo) {
                                PropertyInfo parent_property = (PropertyInfo)parent_member;

                                string name = parent_property.DeclaringType.Name + "." +
                                        parent_property.Name;

                                MethodInfo get, set, parent_method;
                                get = parent_property.GetGetMethod (true);
                                set = parent_property.GetSetMethod (true);

                                if (get != null)
                                        parent_method = get;
                                else if (set != null)
                                        parent_method = set;
                                else
                                        throw new Exception ("Internal error!");

                                if (!CheckMethodAgainstBase (container, flags, parent_method, name))
                                        return false;

                                if ((ModFlags & Modifiers.NEW) == 0) {
                                        Type parent_type = TypeManager.TypeToCoreType (
                                                parent_property.PropertyType);

                                        if (parent_type != MemberType) {
                                                Report.Error (
                                                        508, Location, container.MakeName (Name) + ": cannot " +
                                                        "change return type when overriding " +
                                                        "inherited member " + name);
                                                return false;
                                        }
                                }
                        } else if (parent_member == null){
                                if ((ModFlags & Modifiers.NEW) != 0)
                                        WarningNotHiding (container);

                                if ((ModFlags & Modifiers.OVERRIDE) != 0){
                                        if (this is Indexer)
                                                Report.Error (115, Location,
                                                              container.MakeName (Name) +
                                                              " no suitable indexers found to override");
                                        else
                                                Report.Error (115, Location,
                                                              container.MakeName (Name) +
                                                              " no suitable properties found to override");
                                        return false;
                                }
                        }
                        return true;
                }

                public override void Emit (TypeContainer tc)
                {
                        //
                        // The PropertyBuilder can be null for explicit implementations, in that
                        // case, we do not actually emit the ".property", so there is nowhere to
                        // put the attribute
                        //
                        if (PropertyBuilder != null)
                                Attribute.ApplyAttributes (ec, PropertyBuilder, this, OptAttributes);

                        if (Get != null)
                                Get.Emit (tc);

                        if (Set != null)
                                Set.Emit (tc);

                        base.Emit (tc);
                }
        }
                        
        public class Property : PropertyBase, IIteratorContainer {
                const int AllowedModifiers =
                        Modifiers.NEW |
                        Modifiers.PUBLIC |
                        Modifiers.PROTECTED |
                        Modifiers.INTERNAL |
                        Modifiers.PRIVATE |
                        Modifiers.STATIC |
                        Modifiers.SEALED |
                        Modifiers.OVERRIDE |
                        Modifiers.ABSTRACT |
                        Modifiers.UNSAFE |
                        Modifiers.EXTERN |
                        Modifiers.METHOD_YIELDS |
                        Modifiers.VIRTUAL;

                const int AllowedInterfaceModifiers =
                        Modifiers.NEW;

                public Property (DeclSpace ds, Expression type, int mod_flags, bool is_iface,
                                 string name, Attributes attrs, Accessor get_block,
                                 Accessor set_block, Location loc)
                        : base (ds, type, mod_flags,
                                is_iface ? AllowedInterfaceModifiers : AllowedModifiers,
                                is_iface, name, Parameters.EmptyReadOnlyParameters, attrs,
                                loc)
                {
                        if (get_block != null)
                                Get = new GetMethod (this, get_block);

                        if (set_block != null)
                                Set = new SetMethod (this, set_block);
                }

                public override bool Define (TypeContainer container)
                {
                        if (!DoDefine (container))
                                return false;

                        if (!CheckBase (container))
                                return false;

                        flags |= MethodAttributes.HideBySig | MethodAttributes.SpecialName;

                        if (Get != null) {

                                GetBuilder = Get.Define (container);
                                if (GetBuilder == null)
                                        return false;

                                //
                                // Setup iterator if we are one
                                //
                                if ((ModFlags & Modifiers.METHOD_YIELDS) != 0){
                                        IteratorHandler ih = new  IteratorHandler (
                                                                                   "get", container, MemberType,
                                                                                   TypeManager.NoTypes, Get.ParameterInfo, ModFlags, Location);
                                        
                                        Block new_block = ih.Setup (block);
                                        if (new_block == null)
                                                return false;
                                        block = new_block;
                                }
                        }

                        if (Set != null) {
                                SetBuilder = Set.Define (container);
                                if (SetBuilder == null)
                                        return false;

                                SetBuilder.DefineParameter (1, ParameterAttributes.None, "value"); 
                        }

                        // FIXME - PropertyAttributes.HasDefault ?
                        
                        PropertyAttributes prop_attr = PropertyAttributes.None;
                        if (!IsInterface)
                                prop_attr |= PropertyAttributes.RTSpecialName |
                                        PropertyAttributes.SpecialName;

                        if (!IsExplicitImpl){
                                PropertyBuilder = container.TypeBuilder.DefineProperty (
                                        Name, prop_attr, MemberType, null);
                                
                                if (Get != null)
                                        PropertyBuilder.SetGetMethod (GetBuilder);
                                
                                if (Set != null)
                                        PropertyBuilder.SetSetMethod (SetBuilder);

                                //
                                // HACK for the reasons exposed above
                                //
                                if (!TypeManager.RegisterProperty (PropertyBuilder, GetBuilder, SetBuilder)) {
                                        Report.Error (
                                                111, Location,
                                                "Class `" + container.Name +
                                                "' already contains a definition for the property `" +
                                                Name + "'");
                                        return false;
                                }
                        }
                        return true;
                }

                public void SetYields ()
                {
                        ModFlags |= Modifiers.METHOD_YIELDS;
                }
        }

        /// </summary>
        ///  Gigantic workaround  for lameness in SRE follows :
        ///  This class derives from EventInfo and attempts to basically
        ///  wrap around the EventBuilder so that FindMembers can quickly
        ///  return this in it search for members
        /// </summary>
        public class MyEventBuilder : EventInfo {
                
                //
                // We use this to "point" to our Builder which is
                // not really a MemberInfo
                //
                EventBuilder MyBuilder;
                
                //
                // We "catch" and wrap these methods
                //
                MethodInfo raise, remove, add;

                EventAttributes attributes;
                Type declaring_type, reflected_type, event_type;
                string name;

                Event my_event;

                public MyEventBuilder (Event ev, TypeBuilder type_builder, string name, EventAttributes event_attr, Type event_type)
                {
                        MyBuilder = type_builder.DefineEvent (name, event_attr, event_type);

                        // And now store the values in our own fields.
                        
                        declaring_type = type_builder;

                        reflected_type = type_builder;
                        
                        attributes = event_attr;
                        this.name = name;
                        my_event = ev;
                        this.event_type = event_type;
                }
                
                //
                // Methods that you have to override.  Note that you only need 
                // to "implement" the variants that take the argument (those are
                // the "abstract" methods, the others (GetAddMethod()) are 
                // regular.
                //
                public override MethodInfo GetAddMethod (bool nonPublic)
                {
                        return add;
                }
                
                public override MethodInfo GetRemoveMethod (bool nonPublic)
                {
                        return remove;
                }
                
                public override MethodInfo GetRaiseMethod (bool nonPublic)
                {
                        return raise;
                }
                
                //
                // These methods make "MyEventInfo" look like a Builder
                //
                public void SetRaiseMethod (MethodBuilder raiseMethod)
                {
                        raise = raiseMethod;
                        MyBuilder.SetRaiseMethod (raiseMethod);
                }

                public void SetRemoveOnMethod (MethodBuilder removeMethod)
                {
                        remove = removeMethod;
                        MyBuilder.SetRemoveOnMethod (removeMethod);
                }

                public void SetAddOnMethod (MethodBuilder addMethod)
                {
                        add = addMethod;
                        MyBuilder.SetAddOnMethod (addMethod);
                }

                public void SetCustomAttribute (CustomAttributeBuilder cb)
                {
                        MyBuilder.SetCustomAttribute (cb);
                }
                
                public override object [] GetCustomAttributes (bool inherit)
                {
                        // FIXME : There's nothing which can be seemingly done here because
                        // we have no way of getting at the custom attribute objects of the
                        // EventBuilder !
                        return null;
                }

                public override object [] GetCustomAttributes (Type t, bool inherit)
                {
                        // FIXME : Same here !
                        return null;
                }

                public override bool IsDefined (Type t, bool b)
                {
                        return true;
                }

                public override EventAttributes Attributes {
                        get {
                                return attributes;
                        }
                }

                public override string Name {
                        get {
                                return name;
                        }
                }

                public override Type DeclaringType {
                        get {
                                return declaring_type;
                        }
                }

                public override Type ReflectedType {
                        get {
                                return reflected_type;
                        }
                }

                public Type EventType {
                        get {
                                return event_type;
                        }
                }
                
                public void SetUsed ()
                {
                        if (my_event != null)
                                my_event.status = (FieldBase.Status.ASSIGNED | FieldBase.Status.USED);
                }
        }
        
        public class Event : FieldBase {

                sealed class AddDelegateMethod: DelegateMethod
                {
                        public AddDelegateMethod (Event method, Accessor accessor):
                                base (method, accessor)
                        {
                        }

                        public override string MethodName {
                                get {
                                        return "add_" + method.ShortName;
                                }
                        }

                        protected override MethodInfo DelegateMethodInfo {
                                get {
                                        return TypeManager.delegate_combine_delegate_delegate;
                                }
                        }

                }

                sealed class RemoveDelegateMethod: DelegateMethod
                {
                        public RemoveDelegateMethod (Event method, Accessor accessor):
                                base (method, accessor)
                        {
                        }

                        public override string MethodName {
                                get {
                                        return "remove_" + method.ShortName;
                                }
                        }

                        protected override MethodInfo DelegateMethodInfo {
                                get {
                                        return TypeManager.delegate_combine_delegate_delegate;
                                }
                        }

                }

                abstract class DelegateMethod: IMethodData
                {
                        protected readonly Event method;
                        public readonly Accessor Accessor;
                        protected MethodData method_data;

                        public DelegateMethod (Event method, Accessor accessor)
                        {
                                this.method = method;
                                this.Accessor = accessor;
                        }

                        public MethodBuilder Define (TypeContainer container, InternalParameters ip)
                        {
                                method_data = new MethodData (method, ip, method.ModFlags,
                                        method.flags | MethodAttributes.HideBySig | MethodAttributes.SpecialName, false, this);

                                if (!method_data.Define (container))
                                        return null;

                                MethodBuilder mb = method_data.MethodBuilder;
                                mb.DefineParameter (1, ParameterAttributes.None, "value");
                                return mb;
                        }

                        #region IMethodData Members

                        public Block Block {
                                get {
                                        return Accessor.Block;
                                }
                        }

                        public CallingConventions CallingConventions {
                                get {
                                        return CallingConventions.Standard;
                                }
                        }

                        public void Emit (TypeContainer tc)
                        {
                                if (Accessor != null) {
                                        method_data.Emit (tc, Accessor);
                                        Accessor.Block = null;
                                        return;
                                }

                                ILGenerator ig = method_data.MethodBuilder.GetILGenerator ();
                                EmitContext ec = CreateEmitContext (tc, ig);
                                FieldInfo field_info = (FieldInfo)method.FieldBuilder;

                                if ((method.ModFlags & Modifiers.STATIC) != 0) {
                                        ig.Emit (OpCodes.Ldsfld, field_info);
                                        ig.Emit (OpCodes.Ldarg_0);
                                        ig.Emit (OpCodes.Call, DelegateMethodInfo);
                                        ig.Emit (OpCodes.Castclass, method.MemberType);
                                        ig.Emit (OpCodes.Stsfld, field_info);
                                } else {
                                        ig.Emit (OpCodes.Ldarg_0);
                                        ig.Emit (OpCodes.Ldarg_0);
                                        ig.Emit (OpCodes.Ldfld, field_info);
                                        ig.Emit (OpCodes.Ldarg_1);
                                        ig.Emit (OpCodes.Call, DelegateMethodInfo);
                                        ig.Emit (OpCodes.Castclass, method.MemberType);
                                        ig.Emit (OpCodes.Stfld, field_info);
                                }
                                ig.Emit (OpCodes.Ret);
                        }

                        protected abstract MethodInfo DelegateMethodInfo { get; }

                        public Attributes OptAttributes {
                                get {
                                        return Accessor == null ? null : Accessor.OptAttributes;
                                }
                        }

                        public Type[] ParameterTypes {
                                get {
                                        return new Type[] { method.MemberType };
                                }
                        }

                        public Type ReturnType {
                                get {
                                        return TypeManager.void_type;
                                }
                        }

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

                        public EmitContext CreateEmitContext (TypeContainer tc, ILGenerator ig)
                        {
                                return new EmitContext (tc, method.ds, method.Location, ig, ReturnType, method.ModFlags, false);
                        }

                        public abstract string MethodName { get; }

                        #endregion

                }


                const int AllowedModifiers =
                        Modifiers.NEW |
                        Modifiers.PUBLIC |
                        Modifiers.PROTECTED |
                        Modifiers.INTERNAL |
                        Modifiers.PRIVATE |
                        Modifiers.STATIC |
                        Modifiers.VIRTUAL |
                        Modifiers.SEALED |
                        Modifiers.OVERRIDE |
                        Modifiers.UNSAFE |
                        Modifiers.ABSTRACT;

                const int AllowedInterfaceModifiers =
                        Modifiers.NEW;

                readonly DelegateMethod Add, Remove;
                public MyEventBuilder     EventBuilder;
                public MethodBuilder AddBuilder, RemoveBuilder;
                public DeclSpace ds;
                
                public Event (DeclSpace ds, Expression type, int mod_flags, bool is_iface, string name,
                              Object init, Attributes attrs, Accessor add, Accessor remove,
                              Location loc)
                        : base (type, mod_flags,
                                is_iface ? AllowedInterfaceModifiers : AllowedModifiers,
                                name, init, attrs, loc)
                {
                        Add = new AddDelegateMethod (this, add);
                        Remove = new RemoveDelegateMethod (this, remove);
                        IsInterface = is_iface;
                        this.ds = ds;
                }

                public override bool Define (TypeContainer container)
                {
                        EventAttributes e_attr = EventAttributes.RTSpecialName | EventAttributes.SpecialName;

                        if (!DoDefine (container))
                                return false;

                        if (init != null && ((ModFlags & Modifiers.ABSTRACT) != 0)){
                                Report.Error (74, Location, "'" + container.Name + "." + Name +
                                              "': abstract event can not have an initializer");
                                return false;
                        }
                        
                        if (!MemberType.IsSubclassOf (TypeManager.delegate_type)) {
                                Report.Error (66, Location, "'" + container.Name + "." + Name +
                                              "' : event must be of a delegate type");
                                return false;
                        }

                        Parameter [] parms = new Parameter [1];
                        parms [0] = new Parameter (Type, "value", Parameter.Modifier.NONE, null);
                        InternalParameters ip = new InternalParameters (
                                container, new Parameters (parms, null, Location)); 

                        if (!CheckBase (container))
                                return false;

                        //
                        // Now define the accessors
                        //

                        AddBuilder = Add.Define (container, ip);
                        if (AddBuilder == null)
                                return false;

                        RemoveBuilder = Remove.Define (container, ip);
                        if (RemoveBuilder == null)
                                return false;

                        if (!IsExplicitImpl){
                                EventBuilder = new MyEventBuilder (this,
                                        container.TypeBuilder, Name, e_attr, MemberType);
                                        
                                if (Add.Accessor == null && Remove.Accessor == null) {
                                        FieldBuilder = container.TypeBuilder.DefineField (
                                                Name, MemberType,
                                                FieldAttributes.Private | ((ModFlags & Modifiers.STATIC) != 0 ? FieldAttributes.Static : 0));
                                        TypeManager.RegisterPrivateFieldOfEvent (
                                                (EventInfo) EventBuilder, FieldBuilder);
                                        TypeManager.RegisterFieldBase (FieldBuilder, this);
                                }
                        
                                EventBuilder.SetAddOnMethod (AddBuilder);
                                EventBuilder.SetRemoveOnMethod (RemoveBuilder);

                                if (!TypeManager.RegisterEvent (EventBuilder, AddBuilder, RemoveBuilder)) {
                                        Report.Error (111, Location,
                                                      "Class `" + container.Name +
                                                      "' already contains a definition for the event `" +
                                                      Name + "'");
                                        return false;
                                }
                        }
                        
                        return true;
                }

                public override void Emit (TypeContainer tc)
                {
                        if (OptAttributes != null) {
                                EmitContext ec = new EmitContext (tc, Location, null, MemberType, ModFlags);
                                Attribute.ApplyAttributes (ec, EventBuilder, this, OptAttributes);
                        }

                        Add.Emit (tc);
                        Remove.Emit (tc);

                        base.Emit (tc);
                }
                
        }

        //
        // FIXME: This does not handle:
        //
        //   int INTERFACENAME [ args ]
        //   Does not 
        //
        // Only:
        // 
        // int this [ args ]
 
        public class Indexer : PropertyBase {

                class GetIndexerMethod: GetMethod
                {
                        public GetIndexerMethod (MethodCore method, Accessor accessor):
                                base (method, accessor)
                        {
                        }

                        public override Type[] ParameterTypes {
                                get {
                                        return method.ParameterTypes;
                                }
                        }
                }

                class SetIndexerMethod: SetMethod
                {
                        readonly Parameters parameters;

                        public SetIndexerMethod (MethodCore method, Parameters parameters, Accessor accessor):
                                base (method, accessor)
                        {
                                this.parameters = parameters;
                        }

                        public override Type[] ParameterTypes {
                                get {
                                        int top = method.ParameterTypes.Length;
                                        Type [] set_pars = new Type [top + 1];
                                        method.ParameterTypes.CopyTo (set_pars, 0);
                                        set_pars [top] = method.MemberType;
                                        return set_pars;
                                }
                        }

                        protected override InternalParameters GetParameterInfo (TypeContainer container)
                        {
                                Parameter [] fixed_parms = parameters.FixedParameters;

                                if (fixed_parms == null){
                                        throw new Exception ("We currently do not support only array arguments in an indexer at: " + method.Location);
                                        // BUG BUG BUG BUG BUG BUG BUG BUG BUG BUG
                                        // BUG BUG BUG BUG BUG BUG BUG BUG BUG BUG
                                        //
                                        // Here is the problem: the `value' parameter has
                                        // to come *after* the array parameter in the declaration
                                        // like this:
                                        // X (object [] x, Type value)
                                        // .param [0]
                                        //
                                        // BUG BUG BUG BUG BUG BUG BUG BUG BUG BUG
                                        // BUG BUG BUG BUG BUG BUG BUG BUG BUG BUG
                                        
                                }
                                
                                Parameter [] tmp = new Parameter [fixed_parms.Length + 1];

                                fixed_parms.CopyTo (tmp, 0);
                                tmp [fixed_parms.Length] = new Parameter (
                                        method.Type, "value", Parameter.Modifier.NONE, null);

                                Parameters set_formal_params = new Parameters (tmp, null, method.Location);
                                
                                return new InternalParameters (container, set_formal_params);
                        }

                }


                const int AllowedModifiers =
                        Modifiers.NEW |
                        Modifiers.PUBLIC |
                        Modifiers.PROTECTED |
                        Modifiers.INTERNAL |
                        Modifiers.PRIVATE |
                        Modifiers.VIRTUAL |
                        Modifiers.SEALED |
                        Modifiers.OVERRIDE |
                        Modifiers.UNSAFE |
                        Modifiers.EXTERN |
                        Modifiers.ABSTRACT;

                const int AllowedInterfaceModifiers =
                        Modifiers.NEW;

                public string IndexerName;
                public string InterfaceIndexerName;

                //
                // Are we implementing an interface ?
                //
                public Indexer (DeclSpace ds, Expression type, string int_type, int mod_flags,
                                bool is_iface, Parameters parameters, Attributes attrs,
                                Accessor get_block, Accessor set_block, Location loc)
                        : base (ds, type, mod_flags,
                                is_iface ? AllowedInterfaceModifiers : AllowedModifiers,
                                is_iface, "", parameters, attrs, loc)
                {
                        ExplicitInterfaceName = int_type;

                        if (get_block != null)
                                Get = new GetIndexerMethod (this, get_block);

                        if (set_block != null)
                                Set = new SetIndexerMethod (this, parameters, set_block);
                }
                       
                public override bool Define (TypeContainer container)
                {
                        PropertyAttributes prop_attr =
                                PropertyAttributes.RTSpecialName |
                                PropertyAttributes.SpecialName;
                        
                        if (!DoDefine (container))
                                return false;

                        IndexerName = Attribute.ScanForIndexerName (ec, OptAttributes);
                        if (IndexerName == null)
                                IndexerName = "Item";
                        else {
                                if (! Tokenizer.IsValidIdentifier (IndexerName)) {
                                        Report.Error (633, Location, "The IndexerName specified is an invalid identifier");
                                        return false;
                                }
                                
                                if (IsExplicitImpl) {
                                        Report.Error (592, Location,
                                                      "Attribute 'IndexerName' is not valid on explicit " +
                                                      "implementations.");
                                        
                                        return false;
                                }
                        }

                        ShortName = IndexerName;
                        if (IsExplicitImpl) {
                                InterfaceIndexerName = TypeManager.IndexerPropertyName (InterfaceType);
                                Name = InterfaceType.FullName + "." + IndexerName;
                        } else {
                                InterfaceIndexerName = IndexerName;
                                Name = ShortName;
                        }

                        if (!CheckNameCollision (container))
                                return false;

                        if (!CheckBase (container))
                                return false;

                        flags |= MethodAttributes.HideBySig | MethodAttributes.SpecialName;
                        if (Get != null){
                                GetBuilder = Get.Define (container);
                                if (GetBuilder == null)
                                        return false;
                        }
                        
                        if (Set != null){
                                SetBuilder = Set.Define (container);
                                if (SetBuilder == null)
                                        return false;
                        }

                        //
                        // Now name the parameters
                        //
                        Parameter [] p = Parameters.FixedParameters;
                        if (p != null) {
                                int i;
                                
                                for (i = 0; i < p.Length; ++i) {
                                        if (Get != null)
                                                GetBuilder.DefineParameter (
                                                        i + 1, p [i].Attributes, p [i].Name);

                                        if (Set != null)
                                                SetBuilder.DefineParameter (
                                                        i + 1, p [i].Attributes, p [i].Name);
                                }

                                if (Set != null)
                                        SetBuilder.DefineParameter (
                                                i + 1, ParameterAttributes.None, "value");
                                        
                                if (i != ParameterTypes.Length) {
                                        Parameter array_param = Parameters.ArrayParameter;

                                        SetBuilder.DefineParameter (
                                                i + 1, array_param.Attributes, array_param.Name);
                                }
                        }

                        //
                        // Define the PropertyBuilder if one of the following conditions are met:
                        // a) we're not implementing an interface indexer.
                        // b) the indexer has a different IndexerName and this is no
                        //    explicit interface implementation.
                        //
                        if (!IsExplicitImpl) {
                                PropertyBuilder = container.TypeBuilder.DefineProperty (
                                        IndexerName, prop_attr, MemberType, ParameterTypes);

                                if (Get != null)
                                        PropertyBuilder.SetGetMethod (GetBuilder);

                                if (Set != null)
                                        PropertyBuilder.SetSetMethod (SetBuilder);
                                
                                TypeManager.RegisterIndexer (PropertyBuilder, GetBuilder, SetBuilder,
                                                             ParameterTypes);
                        }

                        return true;
                }

                bool CheckNameCollision (TypeContainer container) {
                        switch (VerifyName (container)){
                                case DeclSpace.AdditionResult.NameExists:
                                        Report.Error (102, Location, "The container '{0}' already contains a definition for '{1}'", container.GetSignatureForError (), Name);
                                        return false;

                                case DeclSpace.AdditionResult.Success:
                                        return true;
                        }
                        throw new NotImplementedException ();
                }

                DeclSpace.AdditionResult VerifyName (TypeContainer container) {
                        if (!AddIndexer (container, container.Name + "." + Name))
                                return DeclSpace.AdditionResult.NameExists;

                        if (Get != null) {
                                if (!AddIndexer (container, container.Name + ".get_" + Name))
                                        return DeclSpace.AdditionResult.NameExists;
                        }

                        if (Set != null) {
                                if (!AddIndexer (container, container.Name + ".set_" + Name))
                                        return DeclSpace.AdditionResult.NameExists;
                        }
                        return DeclSpace.AdditionResult.Success;
                }

                bool AddIndexer (TypeContainer container, string fullname)
                {
                        object value = container.GetDefinition (fullname);

                        if (value != null) {
                                return value.GetType () != GetType () ? false : true;
                        }

                        container.DefineName (fullname, this);
                        return true;
                }

                public override string GetSignatureForError ()
                {
                        return TypeManager.CSharpSignature (PropertyBuilder, true);
                }

                protected override string RealMethodName {
                        get {
                                return IndexerName;
                        }
                }
        }

        public class Operator : MemberBase, IIteratorContainer {

                const int AllowedModifiers =
                        Modifiers.PUBLIC |
                        Modifiers.UNSAFE |
                        Modifiers.EXTERN |
                        Modifiers.STATIC;

                const int RequiredModifiers =
                        Modifiers.PUBLIC |
                        Modifiers.STATIC;

                public enum OpType : byte {

                        // Unary operators
                        LogicalNot,
                        OnesComplement,
                        Increment,
                        Decrement,
                        True,
                        False,

                        // Unary and Binary operators
                        Addition,
                        Subtraction,

                        UnaryPlus,
                        UnaryNegation,
                        
                        // Binary operators
                        Multiply,
                        Division,
                        Modulus,
                        BitwiseAnd,
                        BitwiseOr,
                        ExclusiveOr,
                        LeftShift,
                        RightShift,
                        Equality,
                        Inequality,
                        GreaterThan,
                        LessThan,
                        GreaterThanOrEqual,
                        LessThanOrEqual,

                        // Implicit and Explicit
                        Implicit,
                        Explicit
                };

                public readonly OpType OperatorType;
                public readonly Expression ReturnType;
                public readonly Expression FirstArgType, SecondArgType;
                public readonly string FirstArgName, SecondArgName;
                public Block           Block;
                public MethodBuilder   OperatorMethodBuilder;
                
                public string MethodName;
                public Method OperatorMethod;

                public Operator (OpType type, Expression ret_type, int mod_flags,
                                 Expression arg1type, string arg1name,
                                 Expression arg2type, string arg2name,
                                 Block block, Attributes attrs, Location loc)
                        : base (ret_type, mod_flags, AllowedModifiers, Modifiers.PUBLIC, "", attrs, loc)
                {
                        OperatorType = type;
                        Name = "op_" + OperatorType;
                        ReturnType = ret_type;
                        FirstArgType = arg1type;
                        FirstArgName = arg1name;
                        SecondArgType = arg2type;
                        SecondArgName = arg2name;
                        Block = block;
                }

                string Prototype (TypeContainer container)
                {
                        return container.Name + ".operator " + OperatorType + " (" + FirstArgType + "," +
                                SecondArgType + ")";
                }
                
                public override bool Define (TypeContainer container)
                {
                        int length = 1;
                        MethodName = "op_" + OperatorType;
                        
                        if (SecondArgType != null)
                                length = 2;
                        
                        Parameter [] param_list = new Parameter [length];

                        if ((ModFlags & RequiredModifiers) != RequiredModifiers){
                                Report.Error (
                                        558, Location, 
                                        "User defined operators `" +
                                        Prototype (container) +
                                        "' must be declared static and public");
                                return false;
                        }

                        param_list[0] = new Parameter (FirstArgType, FirstArgName,
                                                       Parameter.Modifier.NONE, null);
                        if (SecondArgType != null)
                                param_list[1] = new Parameter (SecondArgType, SecondArgName,
                                                               Parameter.Modifier.NONE, null);
                        
                        OperatorMethod = new Method (
                                container, ReturnType, ModFlags, false, MethodName,
                                new Parameters (param_list, null, Location),
                                OptAttributes, Location);

                        OperatorMethod.Block = Block;
                        OperatorMethod.IsOperator = true;                       
                        OperatorMethod.Define (container);

                        if (OperatorMethod.MethodBuilder == null)
                                return false;
                        
                        OperatorMethodBuilder = OperatorMethod.MethodBuilder;

                        Type [] param_types = OperatorMethod.ParameterTypes;
                        Type declaring_type = OperatorMethodBuilder.DeclaringType;
                        Type return_type = OperatorMethod.GetReturnType ();
                        Type first_arg_type = param_types [0];

                        // Rules for conversion operators
                        
                        if (OperatorType == OpType.Implicit || OperatorType == OpType.Explicit) {
                                if (first_arg_type == return_type && first_arg_type == declaring_type){
                                        Report.Error (
                                                555, Location,
                                                "User-defined conversion cannot take an object of the " +
                                                "enclosing type and convert to an object of the enclosing" +
                                                " type");
                                        return false;
                                }
                                
                                if (first_arg_type != declaring_type && return_type != declaring_type){
                                        Report.Error (
                                                556, Location, 
                                                "User-defined conversion must convert to or from the " +
                                                "enclosing type");
                                        return false;
                                }
                                
                                if (first_arg_type == TypeManager.object_type ||
                                    return_type == TypeManager.object_type){
                                        Report.Error (
                                                -8, Location,
                                                "User-defined conversion cannot convert to or from " +
                                                "object type");
                                        return false;
                                }

                                if (first_arg_type.IsInterface || return_type.IsInterface){
                                        Report.Error (
                                                552, Location,
                                                "User-defined conversion cannot convert to or from an " +
                                                "interface type");
                                        return false;
                                }
                                
                                if (first_arg_type.IsSubclassOf (return_type) ||
                                    return_type.IsSubclassOf (first_arg_type)){
                                        Report.Error (
                                                -10, Location,
                                                "User-defined conversion cannot convert between types " +
                                                "that derive from each other");
                                        return false;
                                }
                        } else if (SecondArgType == null) {
                                // Checks for Unary operators
                                
                                if (first_arg_type != declaring_type){
                                        Report.Error (
                                                562, Location,
                                                "The parameter of a unary operator must be the " +
                                                "containing type");
                                        return false;
                                }
                                
                                if (OperatorType == OpType.Increment || OperatorType == OpType.Decrement) {
                                        if (return_type != declaring_type){
                                                Report.Error (
                                                        559, Location,
                                                        "The parameter and return type for ++ and -- " +
                                                        "must be the containing type");
                                                return false;
                                        }
                                        
                                }
                                
                                if (OperatorType == OpType.True || OperatorType == OpType.False) {
                                        if (return_type != TypeManager.bool_type){
                                                Report.Error (
                                                        215, Location,
                                                        "The return type of operator True or False " +
                                                        "must be bool");
                                                return false;
                                        }
                                }
                                
                        } else {
                                // Checks for Binary operators
                                
                                if (first_arg_type != declaring_type &&
                                    param_types [1] != declaring_type){
                                        Report.Error (
                                                563, Location,
                                                "One of the parameters of a binary operator must " +
                                                "be the containing type");
                                        return false;
                                }
                        }

                        return true;
                }
                
                public override void Emit (TypeContainer container)
                {
                        //
                        // abstract or extern methods have no bodies
                        //
                        if ((ModFlags & (Modifiers.ABSTRACT | Modifiers.EXTERN)) != 0)
                                return;
                        
                        OperatorMethod.Emit (container);
                        Block = null;
                }

                public static string GetName (OpType ot)
                {
                        switch (ot){
                        case OpType.LogicalNot:
                                return "!";
                        case OpType.OnesComplement:
                                return "~";
                        case OpType.Increment:
                                return "++";
                        case OpType.Decrement:
                                return "--";
                        case OpType.True:
                                return "true";
                        case OpType.False:
                                return "false";
                        case OpType.Addition:
                                return "+";
                        case OpType.Subtraction:
                                return "-";
                        case OpType.UnaryPlus:
                                return "+";
                        case OpType.UnaryNegation:
                                return "-";
                        case OpType.Multiply:
                                return "*";
                        case OpType.Division:
                                return "/";
                        case OpType.Modulus:
                                return "%";
                        case OpType.BitwiseAnd:
                                return "&";
                        case OpType.BitwiseOr:
                                return "|";
                        case OpType.ExclusiveOr:
                                return "^";
                        case OpType.LeftShift:
                                return "<<";
                        case OpType.RightShift:
                                return ">>";
                        case OpType.Equality:
                                return "==";
                        case OpType.Inequality:
                                return "!=";
                        case OpType.GreaterThan:
                                return ">";
                        case OpType.LessThan:
                                return "<";
                        case OpType.GreaterThanOrEqual:
                                return ">=";
                        case OpType.LessThanOrEqual:
                                return "<=";
                        case OpType.Implicit:
                                return "implicit";
                        case OpType.Explicit:
                                return "explicit";
                        default: return "";
                        }
                }
                
                public override string ToString ()
                {
                        Type return_type = OperatorMethod.GetReturnType();
                        Type [] param_types = OperatorMethod.ParameterTypes;
                        
                        if (SecondArgType == null)
                                return String.Format (
                                        "{0} operator {1}({2})",
                                        TypeManager.CSharpName (return_type),
                                        GetName (OperatorType),
                                        param_types [0]);
                        else
                                return String.Format (
                                        "{0} operator {1}({2}, {3})",
                                        TypeManager.CSharpName (return_type),
                                        GetName (OperatorType),
                                        param_types [0], param_types [1]);
                }

                public void SetYields ()
                {
                        ModFlags |= Modifiers.METHOD_YIELDS;
                }
        }

        //
        // This is used to compare method signatures
        //
        struct MethodSignature {
                public string Name;
                public Type RetType;
                public Type [] Parameters;
                
                /// <summary>
                ///    This delegate is used to extract methods which have the
                ///    same signature as the argument
                /// </summary>
                public static MemberFilter method_signature_filter = new MemberFilter (MemberSignatureCompare);
                
                public MethodSignature (string name, Type ret_type, Type [] parameters)
                {
                        Name = name;
                        RetType = ret_type;

                        if (parameters == null)
                                Parameters = TypeManager.NoTypes;
                        else
                                Parameters = parameters;
                }

                public override string ToString ()
                {
                        string pars = "";
                        if (Parameters.Length != 0){
                                System.Text.StringBuilder sb = new System.Text.StringBuilder ();
                                for (int i = 0; i < Parameters.Length; i++){
                                        sb.Append (Parameters [i]);
                                        if (i+1 < Parameters.Length)
                                                sb.Append (", ");
                                }
                                pars = sb.ToString ();
                        }

                        return String.Format ("{0} {1} ({2})", RetType, Name, pars);
                }
                
                public override int GetHashCode ()
                {
                        return Name.GetHashCode ();
                }

                public override bool Equals (Object o)
                {
                        MethodSignature other = (MethodSignature) o;

                        if (other.Name != Name)
                                return false;

                        if (other.RetType != RetType)
                                return false;
                        
                        if (Parameters == null){
                                if (other.Parameters == null)
                                        return true;
                                return false;
                        }

                        if (other.Parameters == null)
                                return false;
                        
                        int c = Parameters.Length;
                        if (other.Parameters.Length != c)
                                return false;

                        for (int i = 0; i < c; i++)
                                if (other.Parameters [i] != Parameters [i])
                                        return false;

                        return true;
                }

                static bool MemberSignatureCompare (MemberInfo m, object filter_criteria)
                {
                        MethodSignature sig = (MethodSignature) filter_criteria;

                        if (m.Name != sig.Name)
                                return false;

                        Type ReturnType;
                        MethodInfo mi = m as MethodInfo;
                        PropertyInfo pi = m as PropertyInfo;

                        if (mi != null)
                                ReturnType = mi.ReturnType;
                        else if (pi != null)
                                ReturnType = pi.PropertyType;
                        else
                                return false;
                        
                        //
                        // we use sig.RetType == null to mean `do not check the
                        // method return value.  
                        //
                        if (sig.RetType != null)
                                if (ReturnType != sig.RetType)
                                        return false;

                        Type [] args;
                        if (mi != null)
                                args = TypeManager.GetArgumentTypes (mi);
                        else
                                args = TypeManager.GetArgumentTypes (pi);
                        Type [] sigp = sig.Parameters;

                        if (args.Length != sigp.Length)
                                return false;

                        for (int i = args.Length; i > 0; ){
                                i--;
                                if (args [i] != sigp [i])
                                        return false;
                        }
                        return true;
                }
        }
}