**** Merged from HEAD ****

[mono.git] / mcs / gmcs / 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
                //
                bool have_static_constructor = 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;

                // 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;

                // 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){
                                have_static_constructor = true;
                                if (default_static_constructor != null){
                                        Console.WriteLine ("I have a static constructor already");
                                        Console.WriteLine ("   " + default_static_constructor);
                                        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);

                                        //
                                        // We have not seen a static constructor,
                                        // but we will provide static initialization of fields
                                        //
                                        have_static_constructor = true;
                                } 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;
                        string basename = prop.Name;
                        string fullname = Name + "." + basename;

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

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

                        if (prop.Name.IndexOf ('.') != -1)
                                properties.Insert (0, prop);
                        else
                                properties.Add (prop);
                        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 AdditionResult AddIndexer (Indexer i)
                {
                        if (indexers == null)
                                indexers = new ArrayList ();

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

                        return AdditionResult.Success;
                }

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

                        operators.Add (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 bool HaveStaticConstructor {
                        get {
                                return have_static_constructor;
                        }
                }
                
                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;
                        int mods = 0;

                        c = new Constructor (this, Basename, Parameters.EmptyReadOnlyParameters,
                                             new ConstructorBaseInitializer (
                                                     null, Parameters.EmptyReadOnlyParameters,
                                                     Location),
                                             Location);
                        
                        if (is_static)
                                mods = Modifiers.STATIC;

                        //
                        // If the class is abstract, the default constructor is protected
                        //
                        if ((ModFlags & Modifiers.ABSTRACT) != 0)
                                mods |= Modifiers.PROTECTED;
                        
                        c.ModFlags = mods;

                        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");
                        }
                }

                void Error_TypeParameterAsBase (TypeParameterExpr e)
                {
                        Report.Error (
                              -216, e.Location,
                              String.Format ("Type parameter `{0}' can not be used t as a base class or interface", e.Name));
                }
                
                /// <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, out TypeExpr parent, out bool error)
                {
                        ArrayList bases = Bases;
                        int count;
                        int start, j, i;

                        error = false;

                        if (is_class)
                                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 is TypeParameterExpr){
                                        Error_TypeParameterAsBase ((TypeParameterExpr) name);
                                        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 == ifaces [x]) {
                                                Report.Error (528, "`" + name + "' is already listed in interface list");
                                                error = true;
                                                return null;
                                        }
                                }

                                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;

                        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 Class)
                                is_class = true;
                        else
                                is_class = false;

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

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

                        if (error)
                                return null;

                        if (IsGeneric) {
                                foreach (TypeParameter type_param in TypeParameters)
                                        if (!type_param.Resolve (this)) {
                                                error = true;
                                                return null;
                                        }
                        }
                        
                        if (!is_class && TypeManager.value_type == null)
                                throw new Exception ();

                        TypeAttributes type_attributes = TypeAttr;

                        Type ptype;
                        ConstructedType constructed = parent as ConstructedType;
                        if ((constructed == null) && (parent != null))
                                ptype = parent.ResolveType (ec);
                        else
                                ptype = null;

                        if (IsTopLevel){
                                if (TypeManager.NamespaceClash (Name, Location)) {
                                        error = true;
                                        return null;
                                }

                                ModuleBuilder builder = CodeGen.ModuleBuilder;
                                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);
                        }

                        if (IsGeneric) {
                                foreach (TypeParameter type_param in TypeParameters)
                                        type_param.Define (TypeBuilder);
                        }

                        if (constructed != null) {
                                ptype = constructed.ResolveType (ec);
                                if (ptype == null)
                                        return null;

                                TypeBuilder.SetParent (ptype);
                        }

                        if (IsGeneric) {
                                foreach (TypeParameter type_param in TypeParameters)
                                        type_param.DefineType (ec, TypeBuilder);
                        }

                        //
                        // 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 && !have_nonstatic_fields){
                                TypeBuilder.DefineField ("$PRIVATE$", TypeManager.byte_type,
                                                         FieldAttributes.Private);
                        }

                        // add interfaces that were not added at type creation
                        if (ifaces != null) {
                                foreach (TypeExpr iface in ifaces) {
                                        Type itype = iface.ResolveType (ec);
                                        TypeBuilder.AddInterfaceImplementation (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 consisten.  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 DefaultName 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.
                        //
                        ArrayList list = new ArrayList ();
                        foreach (Indexer i in Indexers){
                                if (i.ExplicitInterfaceName != null)
                                        list.Add (i);
                        }
                        foreach (Indexer i in Indexers){
                                if (i.ExplicitInterfaceName == null)
                                        list.Add (i);
                        }

                        foreach (Indexer i in list){
                                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 (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)
                {
                        MemberInfo [] defined_names = null;

                        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 ();
                        }

                        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 ();
                        } else
                                IndexerName = "Item";

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

                                CheckPairedOperators ();
                        }

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

#if CACHE
                        if (TypeBuilder.BaseType != null)
                                parent_container = TypeManager.LookupMemberContainer (TypeBuilder.BaseType);

                        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 ();
                }
                
                /// <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) && (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);
                        }
                        }

                        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.EmitConstant (this);
                        return;
                }

                /// <summary>
                ///   Emits the code, this step is performed after all
                ///   the types, enumerations, constructors
                /// </summary>
                public void Emit ()
                {
                        if (instance_constructors != null)
                                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);
                                
                                CustomAttributeBuilder cb = Interface.EmitDefaultMemberAttr (
                                        this, IndexerName, ModFlags, Location);
                                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 (Pending != null)
                                if (Pending.VerifyPendingMethods ())
                                        return;
                        
                        Attribute.ApplyAttributes (ec, TypeBuilder, this, OptAttributes);

                        //
                        // 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 ();
                }
                
                public override void CloseType ()
                {
                        if (Created)
                                return;
                        
                        try {
                                        Created = true;
                                        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;
                }

                /// <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 false;
                        }
                }

                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;
                        }
                }
        }

        public abstract class MethodCore : MemberBase {
                public readonly Parameters Parameters;
                protected Block block;
                protected 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;

                public MethodCore (DeclSpace ds, Expression type, int mod, int allowed_mod,
                                   string name, Attributes attrs, Parameters parameters, Location loc)
                        : base (type, mod, allowed_mod, Modifiers.PRIVATE, name, attrs, loc)
                {
                        Parameters = parameters;
                        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;
                }

                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 {
                public MethodBuilder MethodBuilder;
                public MethodData MethodData;
                public readonly GenericMethod GenericMethod;

                /// <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.EXTERN;

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

                public Method (GenericMethod generic, Expression return_type, int mod, string name,
                               Parameters parameters, Attributes attrs, Location l)
                        : base (generic, return_type, mod, AllowedModifiers, name, attrs, parameters, l)
                {
                        GenericMethod = generic;
                }

                //
                // 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;
                }

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

                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 {
                                MemberList mi_this;

                                mi_this = TypeContainer.FindMembers (
                                        container.TypeBuilder, MemberTypes.Method,
                                        BindingFlags.NonPublic | BindingFlags.Public |
                                        BindingFlags.Static | BindingFlags.Instance |
                                        BindingFlags.DeclaredOnly,
                                        MethodSignature.method_signature_filter, ms);

                                if (mi_this.Count > 0) {
                                        Report.Error (111, Location, "Class `" + container.Name + "' " +
                                                      "already defines a member called `" + Name + "' " +
                                                      "with the same parameter types");
                                        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){
                                MemberList mi, mi_static, mi_instance;

                                mi_instance = TypeContainer.FindMembers (
                                        ptype, MemberTypes.Method,
                                        BindingFlags.NonPublic | BindingFlags.Public | BindingFlags.Instance,
                                        MethodSignature.inheritable_method_signature_filter,
                                        ms);

                                if (mi_instance.Count > 0){
                                        mi = mi_instance;
                                } else {
                                        mi_static = TypeContainer.FindMembers (
                                                ptype, MemberTypes.Method,
                                                BindingFlags.NonPublic | BindingFlags.Public | BindingFlags.Static,
                                                MethodSignature.inheritable_method_signature_filter, ms);

                                        if (mi_static.Count > 0)
                                                mi = mi_static;
                                        else
                                                mi = null;
                                }

                                if (mi != null && mi.Count > 0){
                                        parent_method = (MethodInfo) mi [0];
                                        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;

                        MethodBuilder mb = null;
                        if (GenericMethod != null) {
                                mb = container.TypeBuilder.DefineGenericMethod (Name, flags);
                                if (!GenericMethod.Define (mb))
                                        return false;
                        }

                        if (!CheckBase (container))
                                return false;

                        CallingConventions cc = GetCallingConvention (container is Class);

                        MethodData = new MethodData (ds, this, null, MemberType,
                                                     ParameterTypes, ParameterInfo, cc,
                                                     OptAttributes, ModFlags, flags, true, mb);

                        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) {
                                                if (container.IsGeneric){
                                                        Report.Error (-201, Location,
                                                                      "Entry point can not be defined in a generic class");
                                                }
                                                
                                                RootContext.EntryPoint = MethodBuilder;
                                                RootContext.EntryPointLocation = Location;
                                        } else {
                                                DuplicateEntryPoint (RootContext.EntryPoint, RootContext.EntryPointLocation);
                                                DuplicateEntryPoint (MethodBuilder, Location);
                                        }
                                } else                                  
                                        Report28(MethodBuilder);
                        }

                        return true;
                }

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

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

        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 (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;
                        }
                        
                        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;

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

                //
                // 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);
                }

                //
                // Creates the ConstructorBuilder
                //
                public override bool Define (TypeContainer container)
                {
                        MethodAttributes ca = (MethodAttributes.RTSpecialName |
                                               MethodAttributes.SpecialName);

                        // Check if arguments were correct.
                        if (!DoDefineParameters ())
                                return false;

                        if ((ModFlags & Modifiers.STATIC) != 0){
                                ca |= MethodAttributes.Static | MethodAttributes.Private;
                        } else {
                                if (container is Struct && ParameterTypes.Length == 0){
                                        Report.Error (
                                                568, Location, 
                                                "Structs can not contain explicit parameterless " +
                                                "constructors");
                                        return false;
                                }
                                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;
                        }

                        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
                        //
                        if (!TypeManager.RegisterMethod (ConstructorBuilder, ParameterInfo, ParameterTypes)) {
                                Report.Error (
                                        111, Location,
                                        "Class `" +container.Name+ "' already contains a definition with the " +
                                        "same return value and parameter types for constructor `" + Name
                                        + "'");
                                return false;
                        }

                        return true;
                }

                //
                // Emits the code
                //
                public 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 (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)) {

                                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 ();

                        block = null;
                }
        }

        //
        // Encapsulates most of the Method's state
        //
        public class MethodData {
                //
                // The return type of this method
                //
                public readonly Type ReturnType;
                public readonly Type[] ParameterTypes;
                public readonly InternalParameters ParameterInfo;
                public readonly CallingConventions CallingConventions;
                public readonly Attributes OptAttributes;
                public readonly Location Location;

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

                //
                // Protected data.
                //
                protected DeclSpace ds;
                protected MemberBase member;
                protected int modifiers;
                protected MethodAttributes flags;
                protected bool is_method;
                protected string accessor_name;

                //
                // 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 (DeclSpace ds, MemberBase member, string name, Type return_type,
                                   Type [] parameter_types, InternalParameters parameters,
                                   CallingConventions cc, Attributes opt_attrs,
                                   int modifiers, MethodAttributes flags, bool is_method)
                {
                        this.ds = ds;
                        this.member = member;
                        this.accessor_name = name;
                        this.ReturnType = return_type;
                        this.ParameterTypes = parameter_types;
                        this.ParameterInfo = parameters;
                        this.CallingConventions = cc;
                        this.OptAttributes = opt_attrs;
                        this.modifiers = modifiers;
                        this.flags = flags;
                        this.is_method = is_method;
                        this.Location = member.Location;
                        this.conditionals = null;
                }

                public MethodData (DeclSpace ds, MemberBase member, string name, Type return_type,
                                   Type [] parameter_types, InternalParameters parameters,
                                   CallingConventions cc, Attributes opt_attrs,
                                   int modifiers, MethodAttributes flags, bool is_method,
                                   MethodBuilder builder)
                        : this (ds, member, name, return_type, parameter_types, parameters,
                                cc, opt_attrs, modifiers, flags, is_method)
                {
                        this.builder = builder;
                }

                //
                // 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, 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, 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, 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, Location);
                                return false;
                        }

                        string condition = a.Conditional_GetConditionName ();

                        if (condition == null)
                                return false;

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

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

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

                        if (IsImplementing) {
                                Report.Error (623, 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 virtual bool Define (TypeContainer container)
                {
                        MethodInfo implementing = null;
                        string method_name, name, prefix;

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

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

                        if (accessor_name != null)
                                name = accessor_name + "_" + member.ShortName;
                        else
                                name = member.ShortName;
                        method_name = prefix + name;

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

                                if (member.InterfaceType != null && implementing == null){
                                        Report.Error (539, 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 (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 (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, Location,
                                                      "The DllImport attribute must be specified on " +
                                                      "a method marked 'static' and 'extern'.");
                                        return false;
                                }
                                
                                EmitContext ec = new EmitContext (
                                        container, ds, Location, null, ReturnType, modifiers, false);
                                
                                builder = dllimport_attribute.DefinePInvokeMethod (
                                        ec, container.TypeBuilder, method_name, flags,
                                        ReturnType, ParameterTypes);
                        } else if (builder == null)
                                builder = container.TypeBuilder.DefineMethod (
                                        method_name, flags, CallingConventions,
                                        ReturnType, ParameterTypes);
                        else
                                builder.SetGenericMethodSignature (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, ReturnType,
                                                ParameterTypes, true);
                                } else
                                        container.Pending.ImplementMethod (
                                                member.InterfaceType, name, ReturnType,
                                                ParameterTypes, member.IsExplicitImpl);

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

                        }

                        if (!TypeManager.RegisterMethod (builder, ParameterInfo, ParameterTypes)) {
                                Report.Error (111, 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 virtual void Emit (TypeContainer container, Block block, object kind)
                {
                        ILGenerator ig;
                        EmitContext ec;

                        if ((flags & MethodAttributes.PinvokeImpl) == 0)
                                ig = builder.GetILGenerator ();
                        else
                                ig = null;

                        ec = new EmitContext (container, ds, Location, ig, ReturnType, modifiers, false);

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

                        if (member is MethodCore)
                                MethodCore.LabelParameters (ec, MethodBuilder,
                                                            ((MethodCore) member).Parameters,
                                                            OptAttributes,
                                                            Location);
                        
                        //
                        // abstract or extern methods have no bodies
                        //
                        if ((modifiers & (Modifiers.ABSTRACT | Modifiers.EXTERN)) != 0){
                                if (block == null) {
                                        SymbolWriter sw = CodeGen.SymbolWriter;

                                        if ((sw != null) && ((modifiers & Modifiers.EXTERN) != 0)) {
                                                sw.OpenMethod (container, MethodBuilder, Location, Location);
                                                sw.CloseMethod ();
                                        }

                                        return;
                                }

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

                                if ((modifiers & Modifiers.EXTERN) != 0)
                                        Report.Error (
                                                179, 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, 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 (member is Destructor)
                                EmitDestructor (ec, block);
                        else {
                                SymbolWriter sw = CodeGen.SymbolWriter;

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

                                        ec.EmitTopBlock (block, ParameterInfo, Location);

                                        sw.CloseMethod ();
                                } else
                                        ec.EmitTopBlock (block, ParameterInfo, Location);
                        }
                }

                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, 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, 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, name, parameters, attrs, l)
                { }

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

                protected 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;

                //
                // 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.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 (!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;
                }
        }

        //
        // 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;
                }

                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 void Emit (TypeContainer tc)
                {
                        EmitContext ec = new EmitContext (tc, Location, null,
                                                          FieldBuilder.FieldType, ModFlags);

                        Attribute.ApplyAttributes (ec, FieldBuilder, this, OptAttributes);
                }
        }

        //
        // `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 Accessor Get, Set;
                public PropertyBuilder PropertyBuilder;
                public MethodBuilder GetBuilder, SetBuilder;
                public MethodData GetData, SetData;

                protected EmitContext ec;

                public PropertyBase (DeclSpace ds, Expression type, string name, int mod_flags,
                                     int allowed_mod, Parameters parameters,
                                     Accessor get_block, Accessor set_block,
                                     Attributes attrs, Location loc)
                        : base (ds, type, mod_flags, allowed_mod, name, attrs, parameters, loc)
                {
                        Get = get_block;
                        Set = set_block;
                }

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

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

                        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;

                        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;
                        }

                        MemberList props_this;

                        props_this = TypeContainer.FindMembers (
                                container.TypeBuilder, MemberTypes.Property,
                                BindingFlags.NonPublic | BindingFlags.Public |
                                BindingFlags.Static | BindingFlags.Instance |
                                BindingFlags.DeclaredOnly,
                                MethodSignature.method_signature_filter, ms);

                        if (props_this.Count > 0) {
                                Report.Error (111, Location, "Class `" + container.Name + "' " +
                                              "already defines a member called `" + report_name + "' " +
                                              "with the same parameter types");
                                return false;
                        }

                        MemberList mi_props;

                        mi_props = TypeContainer.FindMembers (
                                ptype, MemberTypes.Property,
                                BindingFlags.NonPublic | BindingFlags.Public |
                                BindingFlags.Instance | BindingFlags.Static,
                                MethodSignature.inheritable_method_signature_filter, base_ms);

                        if (mi_props.Count > 0){
                                PropertyInfo parent_property = (PropertyInfo) mi_props [0];
                                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 ((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 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 (GetData != null) {
                                GetData.Emit (tc, Get.Block, Get);
                                Get.Block = null;
                        }

                        if (SetData != null) {
                                SetData.Emit (tc, Set.Block, Set);
                                Set.Block = null;
                        }
                }
        }
                        
        public class Property : PropertyBase {
                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.VIRTUAL;

                public Property (DeclSpace ds, Expression type, string name, int mod_flags,
                                 Accessor get_block, Accessor set_block,
                                 Attributes attrs, Location loc)
                        : base (ds, type, name, mod_flags, AllowedModifiers,
                                Parameters.EmptyReadOnlyParameters,
                                get_block, set_block, attrs, loc)
                {
                }

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

                        if (!CheckBase (container))
                                return false;

                        flags |= MethodAttributes.HideBySig | MethodAttributes.SpecialName;

                        if (Get != null) {
                                Type [] parameters = TypeManager.NoTypes;

                                InternalParameters ip = new InternalParameters (
                                        container, Parameters.EmptyReadOnlyParameters);

                                GetData = new MethodData (container, this, "get", MemberType,
                                                          parameters, ip, CallingConventions.Standard,
                                                          Get.OptAttributes, ModFlags, flags, false);

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

                                GetBuilder = GetData.MethodBuilder;
                        }

                        if (Set != null) {
                                Type [] parameters = new Type [1];
                                parameters [0] = MemberType;

                                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));

                                SetData = new MethodData (container, this, "set", TypeManager.void_type,
                                                          parameters, ip, CallingConventions.Standard,
                                                          Set.OptAttributes, ModFlags, flags, false);

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

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

                        // FIXME - PropertyAttributes.HasDefault ?
                        
                        PropertyAttributes 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;
                }
        }

        /// </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 {
                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;

                public readonly Accessor  Add;
                public readonly Accessor  Remove;
                public MyEventBuilder     EventBuilder;

                MethodBuilder AddBuilder, RemoveBuilder;
                MethodData AddData, RemoveData;
                
                public Event (Expression type, string name, Object init, int mod, Accessor add,
                              Accessor remove, Attributes attrs, Location loc)
                        : base (type, mod, AllowedModifiers, name, init, attrs, loc)
                {
                        Add = add;
                        Remove = remove;
                }

                public override bool Define (TypeContainer container)
                {
                        EventAttributes e_attr = EventAttributes.RTSpecialName | EventAttributes.SpecialName;
                        MethodAttributes m_attr = MethodAttributes.HideBySig | MethodAttributes.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;
                        }

                        Type [] parameter_types = new Type [1];
                        parameter_types [0] = MemberType;

                        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
                        //
                        AddData = new MethodData (container, this, "add", TypeManager.void_type,
                                                  parameter_types, ip, CallingConventions.Standard,
                                                  (Add != null) ? Add.OptAttributes : null,
                                                  ModFlags, flags | m_attr, false);

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

                        AddBuilder = AddData.MethodBuilder;
                        AddBuilder.DefineParameter (1, ParameterAttributes.None, "value");

                        RemoveData = new MethodData (container, this, "remove", TypeManager.void_type,
                                                     parameter_types, ip, CallingConventions.Standard,
                                                     (Remove != null) ? Remove.OptAttributes : null,
                                                     ModFlags, flags | m_attr, false);

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

                        RemoveBuilder = RemoveData.MethodBuilder;
                        RemoveBuilder.DefineParameter (1, ParameterAttributes.None, "value");

                        if (!IsExplicitImpl){
                                EventBuilder = new MyEventBuilder (this,
                                        container.TypeBuilder, Name, e_attr, MemberType);
                                        
                                if (Add == null && Remove == 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;
                }

                void EmitDefaultMethod (EmitContext ec, bool is_add)
                {
                        ILGenerator ig = ec.ig;
                        MethodInfo method = null;
                        
                        if (is_add)
                                method = TypeManager.delegate_combine_delegate_delegate;
                        else
                                method = TypeManager.delegate_remove_delegate_delegate;

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

                public void Emit (TypeContainer tc)
                {
                        EmitContext ec;

                        ec = new EmitContext (tc, Location, null, MemberType, ModFlags);
                        Attribute.ApplyAttributes (ec, EventBuilder, this, OptAttributes);

                        if (Add != null) {
                                AddData.Emit (tc, Add.Block, Add);
                                Add.Block = null;
                        } else {
                                ILGenerator ig = AddData.MethodBuilder.GetILGenerator ();
                                ec = new EmitContext (tc, Location, ig, TypeManager.void_type, ModFlags);
                                EmitDefaultMethod (ec, true);
                        }

                        if (Remove != null) {
                                RemoveData.Emit (tc, Remove.Block, Remove);
                                Remove.Block = null;
                        } else {
                                ILGenerator ig = RemoveData.MethodBuilder.GetILGenerator ();
                                ec = new EmitContext (tc, Location, ig, TypeManager.void_type, ModFlags);
                                EmitDefaultMethod (ec, false);
                        }
                }
                
        }

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

                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;

                public string IndexerName;
                public string InterfaceIndexerName;

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

                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 (IsExplicitImpl)
                                Report.Error (592, Location,
                                              "Attribute 'IndexerName' is not valid on this declaration " +
                                              "type. It is valid on `property' declarations only.");

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

                        if (!CheckBase (container))
                                return false;

                        flags |= MethodAttributes.HideBySig | MethodAttributes.SpecialName;
                        if (Get != null){
                                InternalParameters ip = new InternalParameters (container, Parameters);

                                GetData = new MethodData (container, this, "get", MemberType,
                                                          ParameterTypes, ip, CallingConventions.Standard,
                                                          Get.OptAttributes, ModFlags, flags, false);

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

                                GetBuilder = GetData.MethodBuilder;
                        }
                        
                        if (Set != null){
                                int top = ParameterTypes.Length;
                                Type [] set_pars = new Type [top + 1];
                                ParameterTypes.CopyTo (set_pars, 0);
                                set_pars [top] = MemberType;

                                Parameter [] fixed_parms = Parameters.FixedParameters;

                                if (fixed_parms == null){
                                        throw new Exception ("We currently do not support only array arguments in an indexer at: " + 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 (
                                        Type, "value", Parameter.Modifier.NONE, null);

                                Parameters set_formal_params = new Parameters (tmp, null, Location);
                                
                                InternalParameters ip = new InternalParameters (container, set_formal_params);

                                SetData = new MethodData (container, this, "set", TypeManager.void_type,
                                                          set_pars, ip, CallingConventions.Standard,
                                                          Set.OptAttributes, ModFlags, flags, false);

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

                                SetBuilder = SetData.MethodBuilder;
                        }

                        //
                        // 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 (GetData != null)
                                        PropertyBuilder.SetGetMethod (GetBuilder);

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

                        return true;
                }
        }

        public class Operator : MemberBase {

                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;
                        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, MethodName,
                                                     new Parameters (param_list, null, Location),
                                                     OptAttributes, Location);

                        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 void Emit (TypeContainer container)
                {
                        //
                        // abstract or extern methods have no bodies
                        //
                        if ((ModFlags & (Modifiers.ABSTRACT | Modifiers.EXTERN)) != 0)
                                return;
                        
                        OperatorMethod.Block = Block;
                        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]);
                }
        }

        //
        // 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;

                /// <summary>
                ///   This delegate is used to extract inheritable methods which
                ///   have the same signature as the argument.  By inheritable,
                ///   this means that we have permissions to override the method
                ///   from the current assembly and class
                /// </summary>
                public static MemberFilter inheritable_method_signature_filter;

                static MethodSignature ()
                {
                        method_signature_filter = new MemberFilter (MemberSignatureCompare);
                        inheritable_method_signature_filter = new MemberFilter (
                                InheritableMemberSignatureCompare);
                }
                
                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;
                }

                //
                // This filter should be used when we are requesting methods that
                // we want to override.
                //
                // This makes a number of assumptions, for example
                // that the methods being extracted are of a parent
                // class (this means we know implicitly that we are
                // being called to find out about members by a derived
                // class).
                // 
                static bool InheritableMemberSignatureCompare (MemberInfo m, object filter_criteria)
                {
                        MethodInfo mi;
                        PropertyInfo pi = m as PropertyInfo;

                        if (pi != null) {
                                mi = pi.GetGetMethod (true);
                                if (mi == null)
                                        mi = pi.GetSetMethod (true);
                        } else
                                mi = m as MethodInfo;

                        if (mi == null){
                                Console.WriteLine ("Nothing found");
                        }
                        
                        MethodAttributes prot = mi.Attributes & MethodAttributes.MemberAccessMask;

                        // If only accessible to the current class.
                        if (prot == MethodAttributes.Private)
                                return false;

                        if (!MemberSignatureCompare (m, filter_criteria))
                                return false;

                        // If only accessible to the defining assembly or 
                        if (prot == MethodAttributes.FamANDAssem ||
                            prot == MethodAttributes.Assembly){
                                if (m.DeclaringType.Assembly == CodeGen.AssemblyBuilder)
                                        return true;
                                else
                                        return false;
                        }

                        // Anything else (FamOrAssembly and Public) is fine
                        return true;
                }
        }
}