Pass the --clr-memory-model flag on the command line instead of MONO_DEBUG so its...

[mono-project.git] / mono / metadata / class-init.c

/**
 * \file MonoClass construction and initialization
 *
 * Copyright 2001-2003 Ximian, Inc (http://www.ximian.com)
 * Copyright 2004-2009 Novell, Inc (http://www.novell.com)
 * Copyright 2012 Xamarin Inc (http://www.xamarin.com)
 * Copyright 2018 Microsoft
 * Licensed under the MIT license. See LICENSE file in the project root for full license information.
 */
#include <config.h>
#include <mono/metadata/class-init.h>
#include <mono/metadata/class-internals.h>
#include <mono/metadata/custom-attrs-internals.h>
#include <mono/metadata/debug-helpers.h>
#include <mono/metadata/exception-internals.h>
#include <mono/metadata/gc-internals.h>
#include <mono/metadata/object-internals.h>
#include <mono/metadata/profiler-private.h>
#include <mono/metadata/security-core-clr.h>
#include <mono/metadata/security-manager.h>
#include <mono/metadata/verify-internals.h>
#include <mono/metadata/abi-details.h>
#include <mono/utils/checked-build.h>
#include <mono/utils/mono-counters.h>
#include <mono/utils/mono-error-internals.h>
#include <mono/utils/mono-logger-internals.h>
#include <mono/utils/mono-memory-model.h>
#include <mono/utils/unlocked.h>
#ifdef MONO_CLASS_DEF_PRIVATE
/* Class initialization gets to see the fields of MonoClass */
#define REALLY_INCLUDE_CLASS_DEF 1
#include <mono/metadata/class-private-definition.h>
#undef REALLY_INCLUDE_CLASS_DEF
#endif


gboolean mono_print_vtable = FALSE;
gboolean mono_align_small_structs = FALSE;

/* Statistics */
static gint32 classes_size;
static gint32 inflated_classes_size;
gint32 mono_inflated_methods_size;
static gint32 class_def_count, class_gtd_count, class_ginst_count, class_gparam_count, class_array_count, class_pointer_count;

/* Low level lock which protects data structures in this module */
static mono_mutex_t classes_mutex;

static gboolean class_kind_may_contain_generic_instances (MonoTypeKind kind);
static int setup_interface_offsets (MonoClass *klass, int cur_slot, gboolean overwrite);
static void mono_class_setup_vtable_full (MonoClass *klass, GList *in_setup);
static void mono_generic_class_setup_parent (MonoClass *klass, MonoClass *gtd);
static int generic_array_methods (MonoClass *klass);
static void setup_generic_array_ifaces (MonoClass *klass, MonoClass *iface, MonoMethod **methods, int pos, GHashTable *cache);
static gboolean class_has_isbyreflike_attribute (MonoClass *klass);
static void mono_class_setup_interface_id_internal (MonoClass *klass);

/* This TLS variable points to a GSList of classes which have setup_fields () executing */
static MonoNativeTlsKey setup_fields_tls_id;

static MonoNativeTlsKey init_pending_tls_id;

static inline void
classes_lock (void)
{
        mono_locks_os_acquire (&classes_mutex, ClassesLock);
}

static inline void
classes_unlock (void)
{
        mono_locks_os_release (&classes_mutex, ClassesLock);
}

/*
We use gclass recording to allow recursive system f types to be referenced by a parent.

Given the following type hierarchy:

class TextBox : TextBoxBase<TextBox> {}
class TextBoxBase<T> : TextInput<TextBox> where T : TextBoxBase<T> {}
class TextInput<T> : Input<T> where T: TextInput<T> {}
class Input<T> {}

The runtime tries to load TextBoxBase<>.
To load TextBoxBase<> to do so it must resolve the parent which is TextInput<TextBox>.
To instantiate TextInput<TextBox> it must resolve TextInput<> and TextBox.
To load TextBox it must resolve the parent which is TextBoxBase<TextBox>.

At this point the runtime must instantiate TextBoxBase<TextBox>. Both types are partially loaded 
at this point, iow, both are registered in the type map and both and a NULL parent. This means
that the resulting generic instance will have a NULL parent, which is wrong and will cause breakage.

To fix that what we do is to record all generic instantes created while resolving the parent of
any generic type definition and, after resolved, correct the parent field if needed.

*/
static int record_gclass_instantiation;
static GSList *gclass_recorded_list;
typedef gboolean (*gclass_record_func) (MonoClass*, void*);

/* 
 * LOCKING: loader lock must be held until pairing disable_gclass_recording is called.
*/
static void
enable_gclass_recording (void)
{
        ++record_gclass_instantiation;
}

/* 
 * LOCKING: loader lock must be held since pairing enable_gclass_recording was called.
*/
static void
disable_gclass_recording (gclass_record_func func, void *user_data)
{
        GSList **head = &gclass_recorded_list;

        g_assert (record_gclass_instantiation > 0);
        --record_gclass_instantiation;

        while (*head) {
                GSList *node = *head;
                if (func ((MonoClass*)node->data, user_data)) {
                        *head = node->next;
                        g_slist_free_1 (node);
                } else {
                        head = &node->next;
                }
        }

        /* We automatically discard all recorded gclasses when disabled. */
        if (!record_gclass_instantiation && gclass_recorded_list) {
                g_slist_free (gclass_recorded_list);
                gclass_recorded_list = NULL;
        }
}

#define mono_class_new0(klass,struct_type, n_structs)           \
    ((struct_type *) mono_class_alloc0 ((klass), ((gsize) sizeof (struct_type)) * ((gsize) (n_structs))))

/**
 * mono_class_setup_basic_field_info:
 * \param class The class to initialize
 *
 * Initializes the following fields in MonoClass:
 * * klass->fields (only field->parent and field->name)
 * * klass->field.count
 * * klass->first_field_idx
 * LOCKING: Acquires the loader lock
 */
void
mono_class_setup_basic_field_info (MonoClass *klass)
{
        MonoGenericClass *gklass;
        MonoClassField *field;
        MonoClassField *fields;
        MonoClass *gtd;
        MonoImage *image;
        int i, top;

        if (klass->fields)
                return;

        gklass = mono_class_try_get_generic_class (klass);
        gtd = gklass ? mono_class_get_generic_type_definition (klass) : NULL;
        image = klass->image;


        if (gklass && image_is_dynamic (gklass->container_class->image) && !gklass->container_class->wastypebuilder) {
                /*
                 * This happens when a generic instance of an unfinished generic typebuilder
                 * is used as an element type for creating an array type. We can't initialize
                 * the fields of this class using the fields of gklass, since gklass is not
                 * finished yet, fields could be added to it later.
                 */
                return;
        }

        if (gtd) {
                mono_class_setup_basic_field_info (gtd);

                mono_loader_lock ();
                mono_class_set_field_count (klass, mono_class_get_field_count (gtd));
                mono_loader_unlock ();
        }

        top = mono_class_get_field_count (klass);

        fields = (MonoClassField *)mono_class_alloc0 (klass, sizeof (MonoClassField) * top);

        /*
         * Fetch all the field information.
         */
        int first_field_idx = mono_class_has_static_metadata (klass) ? mono_class_get_first_field_idx (klass) : 0;
        for (i = 0; i < top; i++) {
                field = &fields [i];
                field->parent = klass;

                if (gtd) {
                        field->name = mono_field_get_name (&gtd->fields [i]);
                } else {
                        int idx = first_field_idx + i;
                        /* first_field_idx and idx points into the fieldptr table */
                        guint32 name_idx = mono_metadata_decode_table_row_col (image, MONO_TABLE_FIELD, idx, MONO_FIELD_NAME);
                        /* The name is needed for fieldrefs */
                        field->name = mono_metadata_string_heap (image, name_idx);
                }
        }

        mono_memory_barrier ();

        mono_loader_lock ();
        if (!klass->fields)
                klass->fields = fields;
        mono_loader_unlock ();
}

/**
 * mono_class_setup_fields:
 * \p klass The class to initialize
 *
 * Initializes klass->fields, computes class layout and sizes.
 * typebuilder_setup_fields () is the corresponding function for dynamic classes.
 * Sets the following fields in \p klass:
 *  - all the fields initialized by mono_class_init_sizes ()
 *  - element_class/cast_class (for enums)
 *  - sizes:element_size (for arrays)
 *  - field->type/offset for all fields
 *  - fields_inited
 *
 * LOCKING: Acquires the loader lock.
 */
void
mono_class_setup_fields (MonoClass *klass)
{
        ERROR_DECL (error);
        MonoImage *m = klass->image;
        int top;
        guint32 layout = mono_class_get_flags (klass) & TYPE_ATTRIBUTE_LAYOUT_MASK;
        int i;
        guint32 real_size = 0;
        guint32 packing_size = 0;
        int instance_size;
        gboolean explicit_size;
        MonoClassField *field;
        MonoGenericClass *gklass = mono_class_try_get_generic_class (klass);
        MonoClass *gtd = gklass ? mono_class_get_generic_type_definition (klass) : NULL;

        if (klass->fields_inited)
                return;

        if (gklass && image_is_dynamic (gklass->container_class->image) && !gklass->container_class->wastypebuilder) {
                /*
                 * This happens when a generic instance of an unfinished generic typebuilder
                 * is used as an element type for creating an array type. We can't initialize
                 * the fields of this class using the fields of gklass, since gklass is not
                 * finished yet, fields could be added to it later.
                 */
                return;
        }

        mono_class_setup_basic_field_info (klass);
        top = mono_class_get_field_count (klass);

        if (gtd) {
                mono_class_setup_fields (gtd);
                if (mono_class_set_type_load_failure_causedby_class (klass, gtd, "Generic type definition failed"))
                        return;
        }

        instance_size = 0;
        if (klass->parent) {
                /* For generic instances, klass->parent might not have been initialized */
                mono_class_init_internal (klass->parent);
                mono_class_setup_fields (klass->parent);
                if (mono_class_set_type_load_failure_causedby_class (klass, klass->parent, "Could not set up parent class"))
                        return;
                instance_size = klass->parent->instance_size;
        } else {
                instance_size = MONO_ABI_SIZEOF (MonoObject);
        }

        /* Get the real size */
        explicit_size = mono_metadata_packing_from_typedef (klass->image, klass->type_token, &packing_size, &real_size);
        if (explicit_size)
                instance_size += real_size;

        /*
         * This function can recursively call itself.
         * Prevent infinite recursion by using a list in TLS.
         */
        GSList *init_list = (GSList *)mono_native_tls_get_value (setup_fields_tls_id);
        if (g_slist_find (init_list, klass))
                return;
        init_list = g_slist_prepend (init_list, klass);
        mono_native_tls_set_value (setup_fields_tls_id, init_list);

        /*
         * Fetch all the field information.
         */
        int first_field_idx = mono_class_has_static_metadata (klass) ? mono_class_get_first_field_idx (klass) : 0;
        for (i = 0; i < top; i++) {
                int idx = first_field_idx + i;
                field = &klass->fields [i];

                if (!field->type) {
                        mono_field_resolve_type (field, error);
                        if (!mono_error_ok (error)) {
                                /*mono_field_resolve_type already failed class*/
                                mono_error_cleanup (error);
                                break;
                        }
                        if (!field->type)
                                g_error ("could not resolve %s:%s\n", mono_type_get_full_name(klass), field->name);
                        g_assert (field->type);
                }

                if (!mono_type_get_underlying_type (field->type)) {
                        mono_class_set_type_load_failure (klass, "Field '%s' is an enum type with a bad underlying type", field->name);
                        break;
                }

                if (mono_field_is_deleted (field))
                        continue;
                if (layout == TYPE_ATTRIBUTE_EXPLICIT_LAYOUT) {
                        guint32 uoffset;
                        mono_metadata_field_info (m, idx, &uoffset, NULL, NULL);
                        int offset = uoffset;

                        if (offset == (guint32)-1 && !(field->type->attrs & FIELD_ATTRIBUTE_STATIC)) {
                                mono_class_set_type_load_failure (klass, "Missing field layout info for %s", field->name);
                                break;
                        }
                        if (offset < -1) { /*-1 is used to encode special static fields */
                                mono_class_set_type_load_failure (klass, "Field '%s' has a negative offset %d", field->name, offset);
                                break;
                        }
                        if (mono_class_is_gtd (klass)) {
                                mono_class_set_type_load_failure (klass, "Generic class cannot have explicit layout.");
                                break;
                        }
                }
                if (mono_type_has_exceptions (field->type)) {
                        char *class_name = mono_type_get_full_name (klass);
                        char *type_name = mono_type_full_name (field->type);

                        mono_class_set_type_load_failure (klass, "Invalid type %s for instance field %s:%s", type_name, class_name, field->name);
                        g_free (class_name);
                        g_free (type_name);
                        break;
                }
                /* The def_value of fields is compute lazily during vtable creation */
        }

        if (!mono_class_has_failure (klass)) {
                mono_loader_lock ();
                mono_class_layout_fields (klass, instance_size, packing_size, real_size, FALSE);
                mono_loader_unlock ();
        }

        init_list = g_slist_remove (init_list, klass);
        mono_native_tls_set_value (setup_fields_tls_id, init_list);
}

static gboolean
discard_gclass_due_to_failure (MonoClass *gclass, void *user_data)
{
        return mono_class_get_generic_class (gclass)->container_class == user_data;
}

static gboolean
fix_gclass_incomplete_instantiation (MonoClass *gclass, void *user_data)
{
        MonoClass *gtd = (MonoClass*)user_data;
        /* Only try to fix generic instances of @gtd */
        if (mono_class_get_generic_class (gclass)->container_class != gtd)
                return FALSE;

        /* Check if the generic instance has no parent. */
        if (gtd->parent && !gclass->parent)
                mono_generic_class_setup_parent (gclass, gtd);

        return TRUE;
}

static void
mono_class_set_failure_and_error (MonoClass *klass, MonoError *error, const char *msg)
{
        mono_class_set_type_load_failure (klass, "%s", msg);
        mono_error_set_type_load_class (error, klass, "%s", msg);
}

/**
 * mono_class_create_from_typedef:
 * \param image: image where the token is valid
 * \param type_token:  typedef token
 * \param error:  used to return any error found while creating the type
 *
 * Create the MonoClass* representing the specified type token.
 * \p type_token must be a TypeDef token.
 *
 * FIXME: don't return NULL on failure, just let the caller figure it out.
 */
MonoClass *
mono_class_create_from_typedef (MonoImage *image, guint32 type_token, MonoError *error)
{
        MonoTableInfo *tt = &image->tables [MONO_TABLE_TYPEDEF];
        MonoClass *klass, *parent = NULL;
        guint32 cols [MONO_TYPEDEF_SIZE];
        guint32 cols_next [MONO_TYPEDEF_SIZE];
        guint tidx = mono_metadata_token_index (type_token);
        MonoGenericContext *context = NULL;
        const char *name, *nspace;
        guint icount = 0; 
        MonoClass **interfaces;
        guint32 field_last, method_last;
        guint32 nesting_tokeen;

        error_init (error);

        if (mono_metadata_token_table (type_token) != MONO_TABLE_TYPEDEF || tidx > tt->rows) {
                mono_error_set_bad_image (error, image, "Invalid typedef token %x", type_token);
                return NULL;
        }

        mono_loader_lock ();

        if ((klass = (MonoClass *)mono_internal_hash_table_lookup (&image->class_cache, GUINT_TO_POINTER (type_token)))) {
                mono_loader_unlock ();
                return klass;
        }

        mono_metadata_decode_row (tt, tidx - 1, cols, MONO_TYPEDEF_SIZE);
        
        name = mono_metadata_string_heap (image, cols [MONO_TYPEDEF_NAME]);
        nspace = mono_metadata_string_heap (image, cols [MONO_TYPEDEF_NAMESPACE]);

        if (mono_metadata_has_generic_params (image, type_token)) {
                klass = (MonoClass*)mono_image_alloc0 (image, sizeof (MonoClassGtd));
                klass->class_kind = MONO_CLASS_GTD;
                UnlockedAdd (&classes_size, sizeof (MonoClassGtd));
                ++class_gtd_count;
        } else {
                klass = (MonoClass*)mono_image_alloc0 (image, sizeof (MonoClassDef));
                klass->class_kind = MONO_CLASS_DEF;
                UnlockedAdd (&classes_size, sizeof (MonoClassDef));
                ++class_def_count;
        }

        klass->name = name;
        klass->name_space = nspace;

        MONO_PROFILER_RAISE (class_loading, (klass));

        klass->image = image;
        klass->type_token = type_token;
        mono_class_set_flags (klass, cols [MONO_TYPEDEF_FLAGS]);

        mono_internal_hash_table_insert (&image->class_cache, GUINT_TO_POINTER (type_token), klass);

        /*
         * Check whether we're a generic type definition.
         */
        if (mono_class_is_gtd (klass)) {
                MonoGenericContainer *generic_container = mono_metadata_load_generic_params (image, klass->type_token, NULL, klass);
                context = &generic_container->context;
                mono_class_set_generic_container (klass, generic_container);
                MonoType *canonical_inst = &((MonoClassGtd*)klass)->canonical_inst;
                canonical_inst->type = MONO_TYPE_GENERICINST;
                canonical_inst->data.generic_class = mono_metadata_lookup_generic_class (klass, context->class_inst, FALSE);
                enable_gclass_recording ();
        }

        if (cols [MONO_TYPEDEF_EXTENDS]) {
                MonoClass *tmp;
                guint32 parent_token = mono_metadata_token_from_dor (cols [MONO_TYPEDEF_EXTENDS]);

                if (mono_metadata_token_table (parent_token) == MONO_TABLE_TYPESPEC) {
                        /*WARNING: this must satisfy mono_metadata_type_hash*/
                        klass->this_arg.byref = 1;
                        klass->this_arg.data.klass = klass;
                        klass->this_arg.type = MONO_TYPE_CLASS;
                        klass->_byval_arg.data.klass = klass;
                        klass->_byval_arg.type = MONO_TYPE_CLASS;
                }
                parent = mono_class_get_checked (image, parent_token, error);
                if (parent && context) /* Always inflate */
                        parent = mono_class_inflate_generic_class_checked (parent, context, error);

                if (parent == NULL) {
                        mono_class_set_type_load_failure (klass, "%s", mono_error_get_message (error));
                        goto parent_failure;
                }

                for (tmp = parent; tmp; tmp = tmp->parent) {
                        if (tmp == klass) {
                                mono_class_set_failure_and_error (klass, error, "Cycle found while resolving parent");
                                goto parent_failure;
                        }
                        if (mono_class_is_gtd (klass) && mono_class_is_ginst (tmp) && mono_class_get_generic_class (tmp)->container_class == klass) {
                                mono_class_set_failure_and_error (klass, error, "Parent extends generic instance of this type");
                                goto parent_failure;
                        }
                }
        }

        mono_class_setup_parent (klass, parent);

        /* uses ->valuetype, which is initialized by mono_class_setup_parent above */
        mono_class_setup_mono_type (klass);

        if (mono_class_is_gtd (klass))
                disable_gclass_recording (fix_gclass_incomplete_instantiation, klass);

        /* 
         * This might access klass->_byval_arg for recursion generated by generic constraints,
         * so it has to come after setup_mono_type ().
         */
        if ((nesting_tokeen = mono_metadata_nested_in_typedef (image, type_token))) {
                klass->nested_in = mono_class_create_from_typedef (image, nesting_tokeen, error);
                if (!mono_error_ok (error)) {
                        /*FIXME implement a mono_class_set_failure_from_mono_error */
                        mono_class_set_type_load_failure (klass, "%s",  mono_error_get_message (error));
                        mono_loader_unlock ();
                        MONO_PROFILER_RAISE (class_failed, (klass));
                        return NULL;
                }
        }

        if ((mono_class_get_flags (klass) & TYPE_ATTRIBUTE_STRING_FORMAT_MASK) == TYPE_ATTRIBUTE_UNICODE_CLASS)
                klass->unicode = 1;

#ifdef HOST_WIN32
        if ((mono_class_get_flags (klass) & TYPE_ATTRIBUTE_STRING_FORMAT_MASK) == TYPE_ATTRIBUTE_AUTO_CLASS)
                klass->unicode = 1;
#endif

        klass->cast_class = klass->element_class = klass;
        if (mono_is_corlib_image (klass->image)) {
                switch (m_class_get_byval_arg (klass)->type) {
                        case MONO_TYPE_I1:
                                if (mono_defaults.byte_class)
                                        klass->cast_class = mono_defaults.byte_class;
                                break;
                        case MONO_TYPE_U1:
                                if (mono_defaults.sbyte_class)
                                        mono_defaults.sbyte_class = klass;
                                break;
                        case MONO_TYPE_I2:
                                if (mono_defaults.uint16_class)
                                        mono_defaults.uint16_class = klass;
                                break;
                        case MONO_TYPE_U2:
                                if (mono_defaults.int16_class)
                                        klass->cast_class = mono_defaults.int16_class;
                                break;
                        case MONO_TYPE_I4:
                                if (mono_defaults.uint32_class)
                                        mono_defaults.uint32_class = klass;
                                break;
                        case MONO_TYPE_U4:
                                if (mono_defaults.int32_class)
                                        klass->cast_class = mono_defaults.int32_class;
                                break;
                        case MONO_TYPE_I8:
                                if (mono_defaults.uint64_class)
                                        mono_defaults.uint64_class = klass;
                                break;
                        case MONO_TYPE_U8:
                                if (mono_defaults.int64_class)
                                        klass->cast_class = mono_defaults.int64_class;
                                break;
                }
        }

        if (!klass->enumtype) {
                if (!mono_metadata_interfaces_from_typedef_full (
                            image, type_token, &interfaces, &icount, FALSE, context, error)){

                        mono_class_set_type_load_failure (klass, "%s", mono_error_get_message (error));
                        mono_loader_unlock ();
                        MONO_PROFILER_RAISE (class_failed, (klass));
                        return NULL;
                }

                /* This is required now that it is possible for more than 2^16 interfaces to exist. */
                g_assert(icount <= 65535);

                klass->interfaces = interfaces;
                klass->interface_count = icount;
                klass->interfaces_inited = 1;
        }

        /*g_print ("Load class %s\n", name);*/

        /*
         * Compute the field and method lists
         */
        int first_field_idx;
        first_field_idx = cols [MONO_TYPEDEF_FIELD_LIST] - 1;
        mono_class_set_first_field_idx (klass, first_field_idx);
        int first_method_idx;
        first_method_idx = cols [MONO_TYPEDEF_METHOD_LIST] - 1;
        mono_class_set_first_method_idx (klass, first_method_idx);

        if (tt->rows > tidx){           
                mono_metadata_decode_row (tt, tidx, cols_next, MONO_TYPEDEF_SIZE);
                field_last  = cols_next [MONO_TYPEDEF_FIELD_LIST] - 1;
                method_last = cols_next [MONO_TYPEDEF_METHOD_LIST] - 1;
        } else {
                field_last  = image->tables [MONO_TABLE_FIELD].rows;
                method_last = image->tables [MONO_TABLE_METHOD].rows;
        }

        if (cols [MONO_TYPEDEF_FIELD_LIST] && 
            cols [MONO_TYPEDEF_FIELD_LIST] <= image->tables [MONO_TABLE_FIELD].rows)
                mono_class_set_field_count (klass, field_last - first_field_idx);
        if (cols [MONO_TYPEDEF_METHOD_LIST] <= image->tables [MONO_TABLE_METHOD].rows)
                mono_class_set_method_count (klass, method_last - first_method_idx);

        /* reserve space to store vector pointer in arrays */
        if (mono_is_corlib_image (image) && !strcmp (nspace, "System") && !strcmp (name, "Array")) {
                klass->instance_size += 2 * TARGET_SIZEOF_VOID_P;
#ifndef ENABLE_NETCORE
                g_assert (mono_class_get_field_count (klass) == 0);
#else
                /* TODO: check that array has 0 non-const fields */
#endif
        }

        if (klass->enumtype) {
                MonoType *enum_basetype = mono_class_find_enum_basetype (klass, error);
                if (!enum_basetype) {
                        /*set it to a default value as the whole runtime can't handle this to be null*/
                        klass->cast_class = klass->element_class = mono_defaults.int32_class;
                        mono_class_set_type_load_failure (klass, "%s", mono_error_get_message (error));
                        mono_loader_unlock ();
                        MONO_PROFILER_RAISE (class_failed, (klass));
                        return NULL;
                }
                klass->cast_class = klass->element_class = mono_class_from_mono_type_internal (enum_basetype);
        }

        /*
         * If we're a generic type definition, load the constraints.
         * We must do this after the class has been constructed to make certain recursive scenarios
         * work.
         */
        if (mono_class_is_gtd (klass) && !mono_metadata_load_generic_param_constraints_checked (image, type_token, mono_class_get_generic_container (klass), error)) {
                mono_class_set_type_load_failure (klass, "Could not load generic parameter constrains due to %s", mono_error_get_message (error));
                mono_loader_unlock ();
                MONO_PROFILER_RAISE (class_failed, (klass));
                return NULL;
        }

        if (klass->image->assembly_name && !strcmp (klass->image->assembly_name, "Mono.Simd") && !strcmp (nspace, "Mono.Simd")) {
                if (!strncmp (name, "Vector", 6))
                        klass->simd_type = !strcmp (name + 6, "2d") || !strcmp (name + 6, "2ul") || !strcmp (name + 6, "2l") || !strcmp (name + 6, "4f") || !strcmp (name + 6, "4ui") || !strcmp (name + 6, "4i") || !strcmp (name + 6, "8s") || !strcmp (name + 6, "8us") || !strcmp (name + 6, "16b") || !strcmp (name + 6, "16sb");
        } else if (klass->image->assembly_name && !strcmp (klass->image->assembly_name, "System.Numerics") && !strcmp (nspace, "System.Numerics")) {
                /* The JIT can't handle SIMD types with != 16 size yet */
                //if (!strcmp (name, "Vector2") || !strcmp (name, "Vector3") || !strcmp (name, "Vector4"))
                if (!strcmp (name, "Vector4"))
                        klass->simd_type = 1;
        }

        // compute is_byreflike
        if (m_class_is_valuetype (klass))
                if (class_has_isbyreflike_attribute (klass))
                        klass->is_byreflike = 1; 
                
        mono_loader_unlock ();

        MONO_PROFILER_RAISE (class_loaded, (klass));

        return klass;

parent_failure:
        if (mono_class_is_gtd (klass))
                disable_gclass_recording (discard_gclass_due_to_failure, klass);

        mono_class_setup_mono_type (klass);
        mono_loader_unlock ();
        MONO_PROFILER_RAISE (class_failed, (klass));
        return NULL;
}


static void
mono_generic_class_setup_parent (MonoClass *klass, MonoClass *gtd)
{
        if (gtd->parent) {
                ERROR_DECL (error);
                MonoGenericClass *gclass = mono_class_get_generic_class (klass);

                klass->parent = mono_class_inflate_generic_class_checked (gtd->parent, mono_generic_class_get_context (gclass), error);
                if (!mono_error_ok (error)) {
                        /*Set parent to something safe as the runtime doesn't handle well this kind of failure.*/
                        klass->parent = mono_defaults.object_class;
                        mono_class_set_type_load_failure (klass, "Parent is a generic type instantiation that failed due to: %s", mono_error_get_message (error));
                        mono_error_cleanup (error);
                }
        }
        mono_loader_lock ();
        if (klass->parent)
                mono_class_setup_parent (klass, klass->parent);

        if (klass->enumtype) {
                klass->cast_class = gtd->cast_class;
                klass->element_class = gtd->element_class;
        }
        mono_loader_unlock ();
}

struct HasIsByrefLikeUD {
        gboolean has_isbyreflike;
};

static gboolean
has_isbyreflike_attribute_func (MonoImage *image, guint32 typeref_scope_token, const char *nspace, const char *name, guint32 method_token, gpointer user_data)
{
        struct HasIsByrefLikeUD *has_isbyreflike = (struct HasIsByrefLikeUD *)user_data;
        if (!strcmp (name, "IsByRefLikeAttribute") && !strcmp (nspace, "System.Runtime.CompilerServices")) {
                has_isbyreflike->has_isbyreflike = TRUE;
                return TRUE;
        }
        return FALSE;
}

static gboolean
class_has_isbyreflike_attribute (MonoClass *klass)
{
        struct HasIsByrefLikeUD has_isbyreflike;
        has_isbyreflike.has_isbyreflike = FALSE;
        mono_class_metadata_foreach_custom_attr (klass, has_isbyreflike_attribute_func, &has_isbyreflike);
        return has_isbyreflike.has_isbyreflike;
}


static gboolean
check_valid_generic_inst_arguments (MonoGenericInst *inst, MonoError *error)
{
        for (int i = 0; i < inst->type_argc; i++) {
                if (!mono_type_is_valid_generic_argument (inst->type_argv [i])) {
                        char *type_name = mono_type_full_name (inst->type_argv [i]);
                        mono_error_set_invalid_program (error, "generic type cannot be instantiated with type '%s'", type_name);
                        g_free (type_name);
                        return FALSE;
                }
        }
        return TRUE;
}

/*
 * Create the `MonoClass' for an instantiation of a generic type.
 * We only do this if we actually need it.
 */
MonoClass*
mono_class_create_generic_inst (MonoGenericClass *gclass)
{
        MonoClass *klass, *gklass;

        if (gclass->cached_class)
                return gclass->cached_class;

        klass = (MonoClass *)mono_image_set_alloc0 (gclass->owner, sizeof (MonoClassGenericInst));

        gklass = gclass->container_class;

        if (gklass->nested_in) {
                /* The nested_in type should not be inflated since it's possible to produce a nested type with less generic arguments*/
                klass->nested_in = gklass->nested_in;
        }

        klass->name = gklass->name;
        klass->name_space = gklass->name_space;
        
        klass->image = gklass->image;
        klass->type_token = gklass->type_token;

        klass->class_kind = MONO_CLASS_GINST;
        //FIXME add setter
        ((MonoClassGenericInst*)klass)->generic_class = gclass;

        klass->_byval_arg.type = MONO_TYPE_GENERICINST;
        klass->this_arg.type = m_class_get_byval_arg (klass)->type;
        klass->this_arg.data.generic_class = klass->_byval_arg.data.generic_class = gclass;
        klass->this_arg.byref = TRUE;
        klass->enumtype = gklass->enumtype;
        klass->valuetype = gklass->valuetype;


        if (gklass->image->assembly_name && !strcmp (gklass->image->assembly_name, "System.Numerics.Vectors") && !strcmp (gklass->name_space, "System.Numerics") && !strcmp (gklass->name, "Vector`1")) {
                g_assert (gclass->context.class_inst);
                g_assert (gclass->context.class_inst->type_argc > 0);
                if (mono_type_is_primitive (gclass->context.class_inst->type_argv [0]))
                        klass->simd_type = 1;
        }
        klass->is_array_special_interface = gklass->is_array_special_interface;

        klass->cast_class = klass->element_class = klass;

        if (m_class_is_valuetype (klass)) {
                klass->is_byreflike = gklass->is_byreflike;
        }

        if (gclass->is_dynamic) {
                /*
                 * We don't need to do any init workf with unbaked typebuilders. Generic instances created at this point will be later unregistered and/or fixed.
                 * This is to avoid work that would probably give wrong results as fields change as we build the TypeBuilder.
                 * See remove_instantiations_of_and_ensure_contents in reflection.c and its usage in reflection.c to understand the fixup stage of SRE banking.
                */
                if (!gklass->wastypebuilder)
                        klass->inited = 1;

                if (klass->enumtype) {
                        /*
                         * For enums, gklass->fields might not been set, but instance_size etc. is 
                         * already set in mono_reflection_create_internal_class (). For non-enums,
                         * these will be computed normally in mono_class_layout_fields ().
                         */
                        klass->instance_size = gklass->instance_size;
                        klass->sizes.class_size = gklass->sizes.class_size;
                        klass->size_inited = 1;
                }
        }

        {
                ERROR_DECL (error_inst);
                if (!check_valid_generic_inst_arguments (gclass->context.class_inst, error_inst)) {
                        char *gklass_name = mono_type_get_full_name (gklass);
                        mono_class_set_type_load_failure (klass, "Could not instantiate %s due to %s", gklass_name, mono_error_get_message (error_inst));
                        g_free (gklass_name);
                        mono_error_cleanup (error_inst);
                }
        }

        mono_loader_lock ();

        if (gclass->cached_class) {
                mono_loader_unlock ();
                return gclass->cached_class;
        }

        if (record_gclass_instantiation > 0)
                gclass_recorded_list = g_slist_append (gclass_recorded_list, klass);

        if (mono_class_is_nullable (klass))
                klass->cast_class = klass->element_class = mono_class_get_nullable_param_internal (klass);

        MONO_PROFILER_RAISE (class_loading, (klass));

        mono_generic_class_setup_parent (klass, gklass);

        if (gclass->is_dynamic)
                mono_class_setup_supertypes (klass);

        mono_memory_barrier ();
        gclass->cached_class = klass;

        MONO_PROFILER_RAISE (class_loaded, (klass));

        ++class_ginst_count;
        inflated_classes_size += sizeof (MonoClassGenericInst);
        
        mono_loader_unlock ();

        return klass;
}

static gboolean
class_kind_may_contain_generic_instances (MonoTypeKind kind)
{
        /* classes of type generic inst may contain generic arguments from other images,
         * as well as arrays and pointers whose element types (recursively) may be a generic inst */
        return (kind == MONO_CLASS_GINST || kind == MONO_CLASS_ARRAY || kind == MONO_CLASS_POINTER);
}

/**
 * mono_class_create_bounded_array:
 * \param element_class element class 
 * \param rank the dimension of the array class
 * \param bounded whenever the array has non-zero bounds
 * \returns A class object describing the array with element type \p element_type and 
 * dimension \p rank.
 */
MonoClass *
mono_class_create_bounded_array (MonoClass *eclass, guint32 rank, gboolean bounded)
{
        MonoImage *image;
        MonoClass *klass, *cached, *k;
        MonoClass *parent = NULL;
        GSList *list, *rootlist = NULL;
        int nsize;
        char *name;
        MonoImageSet* image_set;

        g_assert (rank <= 255);

        if (rank > 1)
                /* bounded only matters for one-dimensional arrays */
                bounded = FALSE;

        image = eclass->image;
        image_set = class_kind_may_contain_generic_instances ((MonoTypeKind)eclass->class_kind) ? mono_metadata_get_image_set_for_class (eclass) : NULL;

        /* Check cache */
        cached = NULL;
        if (rank == 1 && !bounded) {
                if (image_set) {
                        mono_image_set_lock (image_set);
                        cached = (MonoClass *)g_hash_table_lookup (image_set->szarray_cache, eclass);
                        mono_image_set_unlock (image_set);
                } else {
                        /*
                         * This case is very frequent not just during compilation because of calls
                         * from mono_class_from_mono_type_internal (), mono_array_new (),
                         * Array:CreateInstance (), etc, so use a separate cache + a separate lock.
                         */
                        mono_os_mutex_lock (&image->szarray_cache_lock);
                        if (!image->szarray_cache)
                                image->szarray_cache = g_hash_table_new (mono_aligned_addr_hash, NULL);
                        cached = (MonoClass *)g_hash_table_lookup (image->szarray_cache, eclass);
                        mono_os_mutex_unlock (&image->szarray_cache_lock);
                }
        } else {
                if (image_set) {
                        mono_image_set_lock (image_set);
                        rootlist = (GSList *)g_hash_table_lookup (image_set->array_cache, eclass);
                        for (list = rootlist; list; list = list->next) {
                                k = (MonoClass *)list->data;
                                if ((m_class_get_rank (k) == rank) && (m_class_get_byval_arg (k)->type == (((rank > 1) || bounded) ? MONO_TYPE_ARRAY : MONO_TYPE_SZARRAY))) {
                                        cached = k;
                                        break;
                                }
                        }
                        mono_image_set_unlock (image_set);
                } else {
                        mono_loader_lock ();
                        if (!image->array_cache)
                                image->array_cache = g_hash_table_new (mono_aligned_addr_hash, NULL);
                        rootlist = (GSList *)g_hash_table_lookup (image->array_cache, eclass);
                        for (list = rootlist; list; list = list->next) {
                                k = (MonoClass *)list->data;
                                if ((m_class_get_rank (k) == rank) && (m_class_get_byval_arg (k)->type == (((rank > 1) || bounded) ? MONO_TYPE_ARRAY : MONO_TYPE_SZARRAY))) {
                                        cached = k;
                                        break;
                                }
                        }
                        mono_loader_unlock ();
                }
        }
        if (cached)
                return cached;

        parent = mono_defaults.array_class;
        if (!parent->inited)
                mono_class_init_internal (parent);

        klass = image_set ? (MonoClass *)mono_image_set_alloc0 (image_set, sizeof (MonoClassArray)) : (MonoClass *)mono_image_alloc0 (image, sizeof (MonoClassArray));

        klass->image = image;
        klass->name_space = eclass->name_space;
        klass->class_kind = MONO_CLASS_ARRAY;

        nsize = strlen (eclass->name);
        name = (char *)g_malloc (nsize + 2 + rank + 1);
        memcpy (name, eclass->name, nsize);
        name [nsize] = '[';
        if (rank > 1)
                memset (name + nsize + 1, ',', rank - 1);
        if (bounded)
                name [nsize + rank] = '*';
        name [nsize + rank + bounded] = ']';
        name [nsize + rank + bounded + 1] = 0;
        klass->name = image_set ? mono_image_set_strdup (image_set, name) : mono_image_strdup (image, name);
        g_free (name);

        klass->type_token = 0;
        klass->parent = parent;
        klass->instance_size = mono_class_instance_size (klass->parent);

        if (m_class_get_byval_arg (eclass)->type == MONO_TYPE_TYPEDBYREF) {
                /*Arrays of those two types are invalid.*/
                ERROR_DECL (prepared_error);
                mono_error_set_invalid_program (prepared_error, "Arrays of System.TypedReference types are invalid.");
                mono_class_set_failure (klass, mono_error_box (prepared_error, klass->image));
                mono_error_cleanup (prepared_error);
        } else if (m_class_is_byreflike (eclass)) {
                /* .NET Core throws a type load exception: "Could not create array type 'fullname[]'" */
                char *full_name = mono_type_get_full_name (eclass);
                mono_class_set_type_load_failure (klass, "Could not create array type '%s[]'", full_name);
                g_free (full_name);
        } else if (eclass->enumtype && !mono_class_enum_basetype_internal (eclass)) {
                guint32 ref_info_handle = mono_class_get_ref_info_handle (eclass);
                if (!ref_info_handle || eclass->wastypebuilder) {
                        g_warning ("Only incomplete TypeBuilder objects are allowed to be an enum without base_type");
                        g_assert (ref_info_handle && !eclass->wastypebuilder);
                }
                /* element_size -1 is ok as this is not an instantitable type*/
                klass->sizes.element_size = -1;
        } else
                klass->sizes.element_size = -1;

        mono_class_setup_supertypes (klass);

        if (mono_class_is_ginst (eclass))
                mono_class_init_internal (eclass);
        if (!eclass->size_inited)
                mono_class_setup_fields (eclass);
        mono_class_set_type_load_failure_causedby_class (klass, eclass, "Could not load array element type");
        /*FIXME we fail the array type, but we have to let other fields be set.*/

        klass->has_references = MONO_TYPE_IS_REFERENCE (m_class_get_byval_arg (eclass)) || m_class_has_references (eclass)? TRUE: FALSE;

        klass->rank = rank;
        
        if (eclass->enumtype)
                klass->cast_class = eclass->element_class;
        else
                klass->cast_class = eclass;

        switch (m_class_get_byval_arg (m_class_get_cast_class (klass))->type) {
        case MONO_TYPE_I1:
                klass->cast_class = mono_defaults.byte_class;
                break;
        case MONO_TYPE_U2:
                klass->cast_class = mono_defaults.int16_class;
                break;
        case MONO_TYPE_U4:
#if TARGET_SIZEOF_VOID_P == 4
        case MONO_TYPE_I:
        case MONO_TYPE_U:
#endif
                klass->cast_class = mono_defaults.int32_class;
                break;
        case MONO_TYPE_U8:
#if TARGET_SIZEOF_VOID_P == 8
        case MONO_TYPE_I:
        case MONO_TYPE_U:
#endif
                klass->cast_class = mono_defaults.int64_class;
                break;
        default:
                break;
        }

        klass->element_class = eclass;

        if ((rank > 1) || bounded) {
                MonoArrayType *at = image_set ? (MonoArrayType *)mono_image_set_alloc0 (image_set, sizeof (MonoArrayType)) : (MonoArrayType *)mono_image_alloc0 (image, sizeof (MonoArrayType));
                klass->_byval_arg.type = MONO_TYPE_ARRAY;
                klass->_byval_arg.data.array = at;
                at->eklass = eclass;
                at->rank = rank;
                /* FIXME: complete.... */
        } else {
                klass->_byval_arg.type = MONO_TYPE_SZARRAY;
                klass->_byval_arg.data.klass = eclass;
        }
        klass->this_arg = klass->_byval_arg;
        klass->this_arg.byref = 1;

        if (rank > 32) {
                ERROR_DECL (prepared_error);
                name = mono_type_get_full_name (klass);
                mono_error_set_type_load_class (prepared_error, klass, "%s has too many dimensions.", name);
                mono_class_set_failure (klass, mono_error_box (prepared_error, klass->image));
                mono_error_cleanup (prepared_error);
                g_free (name);
        }

        mono_loader_lock ();

        /* Check cache again */
        cached = NULL;
        if (rank == 1 && !bounded) {
                if (image_set) {
                        mono_image_set_lock (image_set);
                        cached = (MonoClass *)g_hash_table_lookup (image_set->szarray_cache, eclass);
                        mono_image_set_unlock (image_set);
                } else {
                        mono_os_mutex_lock (&image->szarray_cache_lock);
                        cached = (MonoClass *)g_hash_table_lookup (image->szarray_cache, eclass);
                        mono_os_mutex_unlock (&image->szarray_cache_lock);
                }
        } else {
                if (image_set) {
                        mono_image_set_lock (image_set);
                        rootlist = (GSList *)g_hash_table_lookup (image_set->array_cache, eclass);
                        for (list = rootlist; list; list = list->next) {
                                k = (MonoClass *)list->data;
                                if ((m_class_get_rank (k) == rank) && (m_class_get_byval_arg (k)->type == (((rank > 1) || bounded) ? MONO_TYPE_ARRAY : MONO_TYPE_SZARRAY))) {
                                        cached = k;
                                        break;
                                }
                        }
                        mono_image_set_unlock (image_set);
                } else {
                        rootlist = (GSList *)g_hash_table_lookup (image->array_cache, eclass);
                        for (list = rootlist; list; list = list->next) {
                                k = (MonoClass *)list->data;
                                if ((m_class_get_rank (k) == rank) && (m_class_get_byval_arg (k)->type == (((rank > 1) || bounded) ? MONO_TYPE_ARRAY : MONO_TYPE_SZARRAY))) {
                                        cached = k;
                                        break;
                                }
                        }
                }
        }
        if (cached) {
                mono_loader_unlock ();
                return cached;
        }

        MONO_PROFILER_RAISE (class_loading, (klass));

        UnlockedAdd (&classes_size, sizeof (MonoClassArray));
        ++class_array_count;

        if (rank == 1 && !bounded) {
                if (image_set) {
                        mono_image_set_lock (image_set);
                        g_hash_table_insert (image_set->szarray_cache, eclass, klass);
                        mono_image_set_unlock (image_set);
                } else {
                        mono_os_mutex_lock (&image->szarray_cache_lock);
                        g_hash_table_insert (image->szarray_cache, eclass, klass);
                        mono_os_mutex_unlock (&image->szarray_cache_lock);
                }
        } else {
                if (image_set) {
                        mono_image_set_lock (image_set);
                        list = g_slist_append (rootlist, klass);
                        g_hash_table_insert (image_set->array_cache, eclass, list);
                        mono_image_set_unlock (image_set);
                } else {
                        list = g_slist_append (rootlist, klass);
                        g_hash_table_insert (image->array_cache, eclass, list);
                }
        }

        mono_loader_unlock ();

        MONO_PROFILER_RAISE (class_loaded, (klass));

        return klass;
}

/**
 * mono_class_create_array:
 * \param element_class element class 
 * \param rank the dimension of the array class
 * \returns A class object describing the array with element type \p element_type and 
 * dimension \p rank.
 */
MonoClass *
mono_class_create_array (MonoClass *eclass, guint32 rank)
{
        return mono_class_create_bounded_array (eclass, rank, FALSE);
}

// This is called by mono_class_create_generic_parameter when a new class must be created.
static MonoClass*
make_generic_param_class (MonoGenericParam *param)
{
        MonoClass *klass, **ptr;
        int count, pos, i;
        MonoGenericParamInfo *pinfo = mono_generic_param_info (param);
        MonoGenericContainer *container = mono_generic_param_owner (param);
        g_assert_checked (container);

        MonoImage *image = mono_get_image_for_generic_param (param);
        gboolean is_mvar = container->is_method;
        gboolean is_anonymous = container->is_anonymous;

        klass = (MonoClass *)mono_image_alloc0 (image, sizeof (MonoClassGenericParam));
        klass->class_kind = MONO_CLASS_GPARAM;
        UnlockedAdd (&classes_size, sizeof (MonoClassGenericParam));
        UnlockedIncrement (&class_gparam_count);

        if (!is_anonymous) {
                CHECKED_METADATA_WRITE_PTR_EXEMPT ( klass->name , pinfo->name );
        } else {
                int n = mono_generic_param_num (param);
                CHECKED_METADATA_WRITE_PTR_LOCAL ( klass->name , mono_make_generic_name_string (image, n) );
        }

        if (is_anonymous) {
                CHECKED_METADATA_WRITE_PTR_EXEMPT ( klass->name_space ,  "" );
        } else if (is_mvar) {
                MonoMethod *omethod = container->owner.method;
                CHECKED_METADATA_WRITE_PTR_EXEMPT ( klass->name_space , (omethod && omethod->klass) ? omethod->klass->name_space : "" );
        } else {
                MonoClass *oklass = container->owner.klass;
                CHECKED_METADATA_WRITE_PTR_EXEMPT ( klass->name_space , oklass ? oklass->name_space : "" );
        }

        MONO_PROFILER_RAISE (class_loading, (klass));

        // Count non-NULL items in pinfo->constraints
        count = 0;
        if (!is_anonymous)
                for (ptr = pinfo->constraints; ptr && *ptr; ptr++, count++)
                        ;

        pos = 0;
        if ((count > 0) && !MONO_CLASS_IS_INTERFACE_INTERNAL (pinfo->constraints [0])) {
                CHECKED_METADATA_WRITE_PTR ( klass->parent , pinfo->constraints [0] );
                pos++;
        } else if (pinfo && pinfo->flags & GENERIC_PARAMETER_ATTRIBUTE_VALUE_TYPE_CONSTRAINT) {
                CHECKED_METADATA_WRITE_PTR ( klass->parent , mono_class_load_from_name (mono_defaults.corlib, "System", "ValueType") );
        } else {
                CHECKED_METADATA_WRITE_PTR ( klass->parent , mono_defaults.object_class );
        }

        if (count - pos > 0) {
                klass->interface_count = count - pos;
                CHECKED_METADATA_WRITE_PTR_LOCAL ( klass->interfaces , (MonoClass **)mono_image_alloc0 (image, sizeof (MonoClass *) * (count - pos)) );
                klass->interfaces_inited = TRUE;
                for (i = pos; i < count; i++)
                        CHECKED_METADATA_WRITE_PTR ( klass->interfaces [i - pos] , pinfo->constraints [i] );
        }

        CHECKED_METADATA_WRITE_PTR_EXEMPT ( klass->image , image );

        klass->inited = TRUE;
        CHECKED_METADATA_WRITE_PTR_LOCAL ( klass->cast_class ,    klass );
        CHECKED_METADATA_WRITE_PTR_LOCAL ( klass->element_class , klass );

        MonoTypeEnum t = is_mvar ? MONO_TYPE_MVAR : MONO_TYPE_VAR;
        klass->_byval_arg.type = t;
        klass->this_arg.type = t;
        CHECKED_METADATA_WRITE_PTR ( klass->this_arg.data.generic_param ,  param );
        CHECKED_METADATA_WRITE_PTR ( klass->_byval_arg.data.generic_param , param );
        klass->this_arg.byref = TRUE;

        /* We don't use type_token for VAR since only classes can use it (not arrays, pointer, VARs, etc) */
        klass->sizes.generic_param_token = !is_anonymous ? pinfo->token : 0;

        /*Init these fields to sane values*/
        klass->min_align = 1;
        /*
         * This makes sure the the value size of this class is equal to the size of the types the gparam is
         * constrained to, the JIT depends on this.
         */
        klass->instance_size = MONO_ABI_SIZEOF (MonoObject) + mono_type_stack_size_internal (m_class_get_byval_arg (klass), NULL, TRUE);
        mono_memory_barrier ();
        klass->size_inited = 1;

        mono_class_setup_supertypes (klass);

        if (count - pos > 0) {
                mono_class_setup_vtable (klass->parent);
                if (mono_class_has_failure (klass->parent))
                        mono_class_set_type_load_failure (klass, "Failed to setup parent interfaces");
                else
                        setup_interface_offsets (klass, klass->parent->vtable_size, TRUE);
        }

        return klass;
}

/*
 * LOCKING: Acquires the image lock (@image).
 */
MonoClass *
mono_class_create_generic_parameter (MonoGenericParam *param)
{
        MonoImage *image = mono_get_image_for_generic_param (param);
        MonoGenericParamInfo *pinfo = mono_generic_param_info (param);
        MonoClass *klass, *klass2;

        // If a klass already exists for this object and is cached, return it.
        klass = pinfo->pklass;

        if (klass)
                return klass;

        // Create a new klass
        klass = make_generic_param_class (param);

        // Now we need to cache the klass we created.
        // But since we wait to grab the lock until after creating the klass, we need to check to make sure
        // another thread did not get in and cache a klass ahead of us. In that case, return their klass
        // and allow our newly-created klass object to just leak.
        mono_memory_barrier ();

        mono_image_lock (image);

        // Here "klass2" refers to the klass potentially created by the other thread.
        klass2 = pinfo->pklass;

        if (klass2) {
                klass = klass2;
        } else {
                pinfo->pklass = klass;
        }
        mono_image_unlock (image);

        /* FIXME: Should this go inside 'make_generic_param_klass'? */
        if (klass2)
                MONO_PROFILER_RAISE (class_failed, (klass2));
        else
                MONO_PROFILER_RAISE (class_loaded, (klass));

        return klass;
}

/**
 * mono_class_create_ptr:
 */
MonoClass *
mono_class_create_ptr (MonoType *type)
{
        MonoClass *result;
        MonoClass *el_class;
        MonoImage *image;
        char *name;
        MonoImageSet* image_set;

        el_class = mono_class_from_mono_type_internal (type);
        image = el_class->image;
        image_set = class_kind_may_contain_generic_instances ((MonoTypeKind)el_class->class_kind) ? mono_metadata_get_image_set_for_class (el_class) : NULL;

        if (image_set) {
                mono_image_set_lock (image_set);
                if (image_set->ptr_cache) {
                        if ((result = (MonoClass *)g_hash_table_lookup (image_set->ptr_cache, el_class))) {
                                mono_image_set_unlock (image_set);
                                return result;
                        }
                }
                mono_image_set_unlock (image_set);
        } else {
                mono_image_lock (image);
                if (image->ptr_cache) {
                        if ((result = (MonoClass *)g_hash_table_lookup (image->ptr_cache, el_class))) {
                                mono_image_unlock (image);
                                return result;
                        }
                }
                mono_image_unlock (image);
        }
        
        result = image_set ? (MonoClass *)mono_image_set_alloc0 (image_set, sizeof (MonoClassPointer)) : (MonoClass *)mono_image_alloc0 (image, sizeof (MonoClassPointer));

        UnlockedAdd (&classes_size, sizeof (MonoClassPointer));
        ++class_pointer_count;

        result->parent = NULL; /* no parent for PTR types */
        result->name_space = el_class->name_space;
        name = g_strdup_printf ("%s*", el_class->name);
        result->name = image_set ? mono_image_set_strdup (image_set, name) : mono_image_strdup (image, name);
        result->class_kind = MONO_CLASS_POINTER;
        g_free (name);

        MONO_PROFILER_RAISE (class_loading, (result));

        result->image = el_class->image;
        result->inited = TRUE;
        result->instance_size = MONO_ABI_SIZEOF (MonoObject) + MONO_ABI_SIZEOF (gpointer);
        result->min_align = sizeof (gpointer);
        result->cast_class = result->element_class = el_class;
        result->blittable = TRUE;

        result->this_arg.type = result->_byval_arg.type = MONO_TYPE_PTR;
        result->this_arg.data.type = result->_byval_arg.data.type = m_class_get_byval_arg (el_class);
        result->this_arg.byref = TRUE;

        mono_class_setup_supertypes (result);

        if (image_set) {
                mono_image_set_lock (image_set);
                if (image_set->ptr_cache) {
                        MonoClass *result2;
                        if ((result2 = (MonoClass *)g_hash_table_lookup (image_set->ptr_cache, el_class))) {
                                mono_image_set_unlock (image_set);
                                MONO_PROFILER_RAISE (class_failed, (result));
                                return result2;
                        }
                }
                else {
                        image_set->ptr_cache = g_hash_table_new (mono_aligned_addr_hash, NULL);
                }
                g_hash_table_insert (image_set->ptr_cache, el_class, result);
                mono_image_set_unlock (image_set);
        } else {
                mono_image_lock (image);
                if (image->ptr_cache) {
                        MonoClass *result2;
                        if ((result2 = (MonoClass *)g_hash_table_lookup (image->ptr_cache, el_class))) {
                                mono_image_unlock (image);
                                MONO_PROFILER_RAISE (class_failed, (result));
                                return result2;
                        }
                } else {
                        image->ptr_cache = g_hash_table_new (mono_aligned_addr_hash, NULL);
                }
                g_hash_table_insert (image->ptr_cache, el_class, result);
                mono_image_unlock (image);
        }

        MONO_PROFILER_RAISE (class_loaded, (result));

        return result;
}

MonoClass *
mono_class_create_fnptr (MonoMethodSignature *sig)
{
        MonoClass *result, *cached;
        static GHashTable *ptr_hash = NULL;

        /* FIXME: These should be allocate from a mempool as well, but which one ? */

        mono_loader_lock ();
        if (!ptr_hash)
                ptr_hash = g_hash_table_new (mono_aligned_addr_hash, NULL);
        cached = (MonoClass *)g_hash_table_lookup (ptr_hash, sig);
        mono_loader_unlock ();
        if (cached)
                return cached;

        result = g_new0 (MonoClass, 1);

        result->parent = NULL; /* no parent for PTR types */
        result->name_space = "System";
        result->name = "MonoFNPtrFakeClass";
        result->class_kind = MONO_CLASS_POINTER;

        result->image = mono_defaults.corlib; /* need to fix... */
        result->instance_size = MONO_ABI_SIZEOF (MonoObject) + MONO_ABI_SIZEOF (gpointer);
        result->min_align = sizeof (gpointer);
        result->cast_class = result->element_class = result;
        result->this_arg.type = result->_byval_arg.type = MONO_TYPE_FNPTR;
        result->this_arg.data.method = result->_byval_arg.data.method = sig;
        result->this_arg.byref = TRUE;
        result->blittable = TRUE;
        result->inited = TRUE;

        mono_class_setup_supertypes (result);

        mono_loader_lock ();

        cached = (MonoClass *)g_hash_table_lookup (ptr_hash, sig);
        if (cached) {
                g_free (result);
                mono_loader_unlock ();
                return cached;
        }

        MONO_PROFILER_RAISE (class_loading, (result));

        UnlockedAdd (&classes_size, sizeof (MonoClassPointer));
        ++class_pointer_count;

        g_hash_table_insert (ptr_hash, sig, result);

        mono_loader_unlock ();

        MONO_PROFILER_RAISE (class_loaded, (result));

        return result;
}


static void
print_implemented_interfaces (MonoClass *klass)
{
        char *name;
        ERROR_DECL (error);
        GPtrArray *ifaces = NULL;
        int i;
        int ancestor_level = 0;

        name = mono_type_get_full_name (klass);
        printf ("Packed interface table for class %s has size %d\n", name, klass->interface_offsets_count);
        g_free (name);

        for (i = 0; i < klass->interface_offsets_count; i++) {
                char *ic_name = mono_type_get_full_name (klass->interfaces_packed [i]);
                printf ("  [%03d][UUID %03d][SLOT %03d][SIZE  %03d] interface %s\n", i,
                                klass->interfaces_packed [i]->interface_id,
                                klass->interface_offsets_packed [i],
                                mono_class_get_method_count (klass->interfaces_packed [i]),
                                ic_name);
                g_free (ic_name);
        }
        printf ("Interface flags: ");
        for (i = 0; i <= klass->max_interface_id; i++)
                if (MONO_CLASS_IMPLEMENTS_INTERFACE (klass, i))
                        printf ("(%d,T)", i);
                else
                        printf ("(%d,F)", i);
        printf ("\n");
        printf ("Dump interface flags:");
#ifdef COMPRESSED_INTERFACE_BITMAP
        {
                const uint8_t* p = klass->interface_bitmap;
                i = klass->max_interface_id;
                while (i > 0) {
                        printf (" %d x 00 %02X", p [0], p [1]);
                        i -= p [0] * 8;
                        i -= 8;
                }
        }
#else
        for (i = 0; i < ((((klass->max_interface_id + 1) >> 3)) + (((klass->max_interface_id + 1) & 7)? 1 :0)); i++)
                printf (" %02X", klass->interface_bitmap [i]);
#endif
        printf ("\n");
        while (klass != NULL) {
                printf ("[LEVEL %d] Implemented interfaces by class %s:\n", ancestor_level, klass->name);
                ifaces = mono_class_get_implemented_interfaces (klass, error);
                if (!mono_error_ok (error)) {
                        printf ("  Type failed due to %s\n", mono_error_get_message (error));
                        mono_error_cleanup (error);
                } else if (ifaces) {
                        for (i = 0; i < ifaces->len; i++) {
                                MonoClass *ic = (MonoClass *)g_ptr_array_index (ifaces, i);
                                printf ("  [UIID %d] interface %s\n", ic->interface_id, ic->name);
                                printf ("  [%03d][UUID %03d][SLOT %03d][SIZE  %03d] interface %s.%s\n", i,
                                                ic->interface_id,
                                                mono_class_interface_offset (klass, ic),
                                                mono_class_get_method_count (ic),
                                                ic->name_space,
                                                ic->name );
                        }
                        g_ptr_array_free (ifaces, TRUE);
                }
                ancestor_level ++;
                klass = klass->parent;
        }
}

static gboolean 
method_is_reabstracted (guint16 flags)
{
        if ((flags & METHOD_ATTRIBUTE_ABSTRACT && flags & METHOD_ATTRIBUTE_FINAL))
                return TRUE;
        return FALSE;
}

/*
 * Return the number of virtual methods.
 * Even for interfaces we can't simply return the number of methods as all CLR types are allowed to have static methods.
 * Return -1 on failure.
 * FIXME It would be nice if this information could be cached somewhere.
 */
static int
count_virtual_methods (MonoClass *klass)
{
        int i, mcount, vcount = 0;
        guint32 flags;
        klass = mono_class_get_generic_type_definition (klass); /*We can find this information by looking at the GTD*/

        if (klass->methods || !MONO_CLASS_HAS_STATIC_METADATA (klass)) {
                mono_class_setup_methods (klass);
                if (mono_class_has_failure (klass))
                        return -1;

                mcount = mono_class_get_method_count (klass);
                for (i = 0; i < mcount; ++i) {
                        flags = klass->methods [i]->flags;
                        if ((flags & METHOD_ATTRIBUTE_VIRTUAL)) {
                                if (method_is_reabstracted (flags))
                                        continue;
                                ++vcount;
                        }
                }
        } else {
                int first_idx = mono_class_get_first_method_idx (klass);
                mcount = mono_class_get_method_count (klass);
                for (i = 0; i < mcount; ++i) {
                        flags = mono_metadata_decode_table_row_col (klass->image, MONO_TABLE_METHOD, first_idx + i, MONO_METHOD_FLAGS);

                        if ((flags & METHOD_ATTRIBUTE_VIRTUAL)) {
                                if (method_is_reabstracted (flags))
                                        continue;
                                ++vcount;
                        }
                }
        }
        return vcount;
}

static mono_bool
set_interface_and_offset (int num_ifaces, MonoClass **interfaces_full, int *interface_offsets_full, MonoClass *ic, int offset, mono_bool force_set)
{
        int i;
        for (i = 0; i < num_ifaces; ++i) {
                if (interfaces_full [i] && interfaces_full [i]->interface_id == ic->interface_id) {
                        if (!force_set)
                                return TRUE;
                        interface_offsets_full [i] = offset;
                        return FALSE;
                }
                if (interfaces_full [i])
                        continue;
                interfaces_full [i] = ic;
                interface_offsets_full [i] = offset;
                break;
        }
        return FALSE;
}

#ifdef COMPRESSED_INTERFACE_BITMAP

/*
 * Compressed interface bitmap design.
 *
 * Interface bitmaps take a large amount of memory, because their size is
 * linear with the maximum interface id assigned in the process (each interface
 * is assigned a unique id as it is loaded). The number of interface classes
 * is high because of the many implicit interfaces implemented by arrays (we'll
 * need to lazy-load them in the future).
 * Most classes implement a very small number of interfaces, so the bitmap is
 * sparse. This bitmap needs to be checked by interface casts, so access to the
 * needed bit must be fast and doable with few jit instructions.
 *
 * The current compression format is as follows:
 * *) it is a sequence of one or more two-byte elements
 * *) the first byte in the element is the count of empty bitmap bytes
 * at the current bitmap position
 * *) the second byte in the element is an actual bitmap byte at the current
 * bitmap position
 *
 * As an example, the following compressed bitmap bytes:
 *      0x07 0x01 0x00 0x7
 * correspond to the following bitmap:
 *      0x00 0x00 0x00 0x00 0x00 0x00 0x00 0x01 0x07
 *
 * Each two-byte element can represent up to 2048 bitmap bits, but as few as a single
 * bitmap byte for non-sparse sequences. In practice the interface bitmaps created
 * during a gmcs bootstrap are reduced to less tha 5% of the original size.
 */

/**
 * mono_compress_bitmap:
 * \param dest destination buffer
 * \param bitmap bitmap buffer
 * \param size size of \p bitmap in bytes
 *
 * This is a mono internal function.
 * The \p bitmap data is compressed into a format that is small but
 * still searchable in few instructions by the JIT and runtime.
 * The compressed data is stored in the buffer pointed to by the
 * \p dest array. Passing a NULL value for \p dest allows to just compute
 * the size of the buffer.
 * This compression algorithm assumes the bits set in the bitmap are
 * few and far between, like in interface bitmaps.
 * \returns The size of the compressed bitmap in bytes.
 */
int
mono_compress_bitmap (uint8_t *dest, const uint8_t *bitmap, int size)
{
        int numz = 0;
        int res = 0;
        const uint8_t *end = bitmap + size;
        while (bitmap < end) {
                if (*bitmap || numz == 255) {
                        if (dest) {
                                *dest++ = numz;
                                *dest++ = *bitmap;
                        }
                        res += 2;
                        numz = 0;
                        bitmap++;
                        continue;
                }
                bitmap++;
                numz++;
        }
        if (numz) {
                res += 2;
                if (dest) {
                        *dest++ = numz;
                        *dest++ = 0;
                }
        }
        return res;
}

/**
 * mono_class_interface_match:
 * \param bitmap a compressed bitmap buffer
 * \param id the index to check in the bitmap
 *
 * This is a mono internal function.
 * Checks if a bit is set in a compressed interface bitmap. \p id must
 * be already checked for being smaller than the maximum id encoded in the
 * bitmap.
 *
 * \returns A non-zero value if bit \p id is set in the bitmap \p bitmap,
 * FALSE otherwise.
 */
int
mono_class_interface_match (const uint8_t *bitmap, int id)
{
        while (TRUE) {
                id -= bitmap [0] * 8;
                if (id < 8) {
                        if (id < 0)
                                return 0;
                        return bitmap [1] & (1 << id);
                }
                bitmap += 2;
                id -= 8;
        }
}
#endif

typedef struct {
        MonoClass *ic;
        int offset;
        int insertion_order;
} ClassAndOffset;

static int
compare_by_interface_id (const void *a, const void *b)
{
        const ClassAndOffset *ca = (const ClassAndOffset*)a;
        const ClassAndOffset *cb = (const ClassAndOffset*)b;

        /* Sort on interface_id, but keep equal elements in the same relative
         * order. */
        int primary_order = ca->ic->interface_id - cb->ic->interface_id;
        if (primary_order != 0)
                return primary_order;
        else
                return ca->insertion_order - cb->insertion_order;
}

/*
 * Return -1 on failure and set klass->has_failure and store a MonoErrorBoxed with the details.
 * LOCKING: Acquires the loader lock.
 */
static int
setup_interface_offsets (MonoClass *klass, int cur_slot, gboolean overwrite)
{
        ERROR_DECL (error);
        MonoClass *k, *ic;
        int i, j, num_ifaces;
        guint32 max_iid;
        MonoClass **interfaces_full = NULL;
        int *interface_offsets_full = NULL;
        GPtrArray *ifaces;
        GPtrArray **ifaces_array = NULL;
        int interface_offsets_count;
        max_iid = 0;
        num_ifaces = interface_offsets_count = 0;

        mono_loader_lock ();

        mono_class_setup_supertypes (klass);

        if (mono_class_is_ginst (klass)) {
                MonoClass *gklass = mono_class_get_generic_class (klass)->container_class;

                interface_offsets_count = num_ifaces = gklass->interface_offsets_count;
                interfaces_full = (MonoClass **)g_malloc (sizeof (MonoClass*) * num_ifaces);
                interface_offsets_full = (int *)g_malloc (sizeof (int) * num_ifaces);

                cur_slot = 0;
                for (int i = 0; i < num_ifaces; ++i) {
                        MonoClass *gklass_ic = gklass->interfaces_packed [i];
                        MonoClass *inflated = mono_class_inflate_generic_class_checked (gklass_ic, mono_class_get_context(klass), error);
                        if (!is_ok (error)) {
                                char *name = mono_type_get_full_name (gklass_ic);
                                mono_class_set_type_load_failure (klass, "Error calculating interface offset of %s", name);
                                g_free (name);
                                cur_slot = -1;
                                goto end;
                        }

                        mono_class_setup_interface_id_internal (inflated);

                        interfaces_full [i] = inflated;
                        interface_offsets_full [i] = gklass->interface_offsets_packed [i];

                        int count = count_virtual_methods (inflated);
                        if (count == -1) {
                                char *name = mono_type_get_full_name (inflated);
                                mono_class_set_type_load_failure (klass, "Error calculating interface offset of %s", name);
                                g_free (name);
                                cur_slot = -1;
                                goto end;
                        }

                        cur_slot = MAX (cur_slot, interface_offsets_full [i] + count);
                        max_iid = MAX (max_iid, inflated->interface_id);
                }

                goto publish;
        }
        /* compute maximum number of slots and maximum interface id */
        max_iid = 0;
        num_ifaces = 0; /* this can include duplicated ones */
        ifaces_array = g_new0 (GPtrArray *, klass->idepth);
        for (j = 0; j < klass->idepth; j++) {
                k = klass->supertypes [j];
                g_assert (k);
                num_ifaces += k->interface_count;
                for (i = 0; i < k->interface_count; i++) {
                        ic = k->interfaces [i];

                        /* A gparam does not have any interface_id set. */
                        if (! mono_class_is_gparam (ic))
                                mono_class_setup_interface_id_internal (ic);

                        if (max_iid < ic->interface_id)
                                max_iid = ic->interface_id;
                }
                ifaces = mono_class_get_implemented_interfaces (k, error);
                if (!mono_error_ok (error)) {
                        char *name = mono_type_get_full_name (k);
                        mono_class_set_type_load_failure (klass, "Error getting the interfaces of %s due to %s", name, mono_error_get_message (error));
                        g_free (name);
                        mono_error_cleanup (error);
                        cur_slot = -1;
                        goto end;
                }
                if (ifaces) {
                        num_ifaces += ifaces->len;
                        for (i = 0; i < ifaces->len; ++i) {
                                ic = (MonoClass *)g_ptr_array_index (ifaces, i);
                                if (max_iid < ic->interface_id)
                                        max_iid = ic->interface_id;
                        }
                        ifaces_array [j] = ifaces;
                }
        }

        if (MONO_CLASS_IS_INTERFACE_INTERNAL (klass)) {
                num_ifaces++;
                if (max_iid < klass->interface_id)
                        max_iid = klass->interface_id;
        }

        /* compute vtable offset for interfaces */
        interfaces_full = (MonoClass **)g_malloc0 (sizeof (MonoClass*) * num_ifaces);
        interface_offsets_full = (int *)g_malloc (sizeof (int) * num_ifaces);

        for (i = 0; i < num_ifaces; i++)
                interface_offsets_full [i] = -1;

        /* skip the current class */
        for (j = 0; j < klass->idepth - 1; j++) {
                k = klass->supertypes [j];
                ifaces = ifaces_array [j];

                if (ifaces) {
                        for (i = 0; i < ifaces->len; ++i) {
                                int io;
                                ic = (MonoClass *)g_ptr_array_index (ifaces, i);
                                
                                /*Force the sharing of interface offsets between parent and subtypes.*/
                                io = mono_class_interface_offset (k, ic);
                                g_assertf (io >= 0, "class %s parent %s has no offset for iface %s",
                                        mono_type_get_full_name (klass),
                                        mono_type_get_full_name (k),
                                        mono_type_get_full_name (ic));

                                set_interface_and_offset (num_ifaces, interfaces_full, interface_offsets_full, ic, io, TRUE);
                        }
                }
        }

        g_assert (klass == klass->supertypes [klass->idepth - 1]);
        ifaces = ifaces_array [klass->idepth - 1];
        if (ifaces) {
                for (i = 0; i < ifaces->len; ++i) {
                        int count;
                        ic = (MonoClass *)g_ptr_array_index (ifaces, i);
                        if (set_interface_and_offset (num_ifaces, interfaces_full, interface_offsets_full, ic, cur_slot, FALSE))
                                continue;
                        count = count_virtual_methods (ic);
                        if (count == -1) {
                                char *name = mono_type_get_full_name (ic);
                                mono_class_set_type_load_failure (klass, "Error calculating interface offset of %s", name);
                                g_free (name);
                                cur_slot = -1;
                                goto end;
                        }
                        cur_slot += count;
                }
        }

        if (MONO_CLASS_IS_INTERFACE_INTERNAL (klass))
                set_interface_and_offset (num_ifaces, interfaces_full, interface_offsets_full, klass, cur_slot, TRUE);

        for (interface_offsets_count = 0, i = 0; i < num_ifaces; i++) {
                if (interface_offsets_full [i] != -1)
                        interface_offsets_count ++;
        }

publish:
        /* Publish the data */
        klass->max_interface_id = max_iid;
        /*
         * We might get called multiple times:
         * - mono_class_init_internal ()
         * - mono_class_setup_vtable ().
         * - mono_class_setup_interface_offsets ().
         * mono_class_setup_interface_offsets () passes 0 as CUR_SLOT, so the computed interface offsets will be invalid. This
         * means we have to overwrite those when called from other places (#4440).
         */
        if (klass->interfaces_packed) {
                if (!overwrite)
                        g_assert (klass->interface_offsets_count == interface_offsets_count);
        } else {
                uint8_t *bitmap;
                int bsize;
                klass->interface_offsets_count = interface_offsets_count;
                klass->interfaces_packed = (MonoClass **)mono_class_alloc (klass, sizeof (MonoClass*) * interface_offsets_count);
                klass->interface_offsets_packed = (guint16 *)mono_class_alloc (klass, sizeof (guint16) * interface_offsets_count);
                bsize = (sizeof (guint8) * ((max_iid + 1) >> 3)) + (((max_iid + 1) & 7)? 1 :0);
#ifdef COMPRESSED_INTERFACE_BITMAP
                bitmap = g_malloc0 (bsize);
#else
                bitmap = (uint8_t *)mono_class_alloc0 (klass, bsize);
#endif
                for (i = 0; i < interface_offsets_count; i++) {
                        guint32 id = interfaces_full [i]->interface_id;
                        bitmap [id >> 3] |= (1 << (id & 7));
                        klass->interfaces_packed [i] = interfaces_full [i];
                        klass->interface_offsets_packed [i] = interface_offsets_full [i];
                }
#ifdef COMPRESSED_INTERFACE_BITMAP
                i = mono_compress_bitmap (NULL, bitmap, bsize);
                klass->interface_bitmap = mono_class_alloc0 (klass, i);
                mono_compress_bitmap (klass->interface_bitmap, bitmap, bsize);
                g_free (bitmap);
#else
                klass->interface_bitmap = bitmap;
#endif
        }
end:
        mono_loader_unlock ();

        g_free (interfaces_full);
        g_free (interface_offsets_full);
        if (ifaces_array) {
                for (i = 0; i < klass->idepth; i++) {
                        ifaces = ifaces_array [i];
                        if (ifaces)
                                g_ptr_array_free (ifaces, TRUE);
                }
                g_free (ifaces_array);
        }
        
        //printf ("JUST DONE: ");
        //print_implemented_interfaces (klass);

        return cur_slot;
}

/*
 * Setup interface offsets for interfaces. 
 * Initializes:
 * - klass->max_interface_id
 * - klass->interface_offsets_count
 * - klass->interfaces_packed
 * - klass->interface_offsets_packed
 * - klass->interface_bitmap
 *
 * This function can fail @class.
 *
 */
void
mono_class_setup_interface_offsets (MonoClass *klass)
{
        /* NOTE: This function is only correct for interfaces.
         *
         * It assumes that klass's interfaces can be assigned offsets starting
         * from 0. That assumption is incorrect for classes and valuetypes.
         */
        g_assert (MONO_CLASS_IS_INTERFACE_INTERNAL (klass) && !mono_class_is_ginst (klass));
        setup_interface_offsets (klass, 0, FALSE);
}

#define DEBUG_INTERFACE_VTABLE_CODE 0
#define TRACE_INTERFACE_VTABLE_CODE 0
#define VERIFY_INTERFACE_VTABLE_CODE 0
#define VTABLE_SELECTOR (1)

#if (TRACE_INTERFACE_VTABLE_CODE|DEBUG_INTERFACE_VTABLE_CODE)
#define DEBUG_INTERFACE_VTABLE(stmt) do {\
        if (!(VTABLE_SELECTOR)) break; \
        stmt;\
} while (0)
#else
#define DEBUG_INTERFACE_VTABLE(stmt)
#endif

#if TRACE_INTERFACE_VTABLE_CODE
#define TRACE_INTERFACE_VTABLE(stmt) do {\
        if (!(VTABLE_SELECTOR)) break; \
        stmt;\
} while (0)
#else
#define TRACE_INTERFACE_VTABLE(stmt)
#endif

#if VERIFY_INTERFACE_VTABLE_CODE
#define VERIFY_INTERFACE_VTABLE(stmt) do {\
        if (!(VTABLE_SELECTOR)) break; \
        stmt;\
} while (0)
#else
#define VERIFY_INTERFACE_VTABLE(stmt)
#endif


#if (TRACE_INTERFACE_VTABLE_CODE|DEBUG_INTERFACE_VTABLE_CODE)
static char*
mono_signature_get_full_desc (MonoMethodSignature *sig, gboolean include_namespace)
{
        int i;
        char *result;
        GString *res = g_string_new ("");
        
        g_string_append_c (res, '(');
        for (i = 0; i < sig->param_count; ++i) {
                if (i > 0)
                        g_string_append_c (res, ',');
                mono_type_get_desc (res, sig->params [i], include_namespace);
        }
        g_string_append (res, ")=>");
        if (sig->ret != NULL) {
                mono_type_get_desc (res, sig->ret, include_namespace);
        } else {
                g_string_append (res, "NULL");
        }
        result = res->str;
        g_string_free (res, FALSE);
        return result;
}
static void
print_method_signatures (MonoMethod *im, MonoMethod *cm) {
        char *im_sig = mono_signature_get_full_desc (mono_method_signature_internal (im), TRUE);
        char *cm_sig = mono_signature_get_full_desc (mono_method_signature_internal (cm), TRUE);
        printf ("(IM \"%s\", CM \"%s\")", im_sig, cm_sig);
        g_free (im_sig);
        g_free (cm_sig);
        
}

#endif

static gboolean
is_wcf_hack_disabled (void)
{
        static char disabled;
        if (!disabled)
                disabled = g_hasenv ("MONO_DISABLE_WCF_HACK") ? 1 : 2;
        return disabled == 1;
}

static gboolean
check_interface_method_override (MonoClass *klass, MonoMethod *im, MonoMethod *cm, gboolean require_newslot, gboolean interface_is_explicitly_implemented_by_class, gboolean slot_is_empty)
{
        MonoMethodSignature *cmsig, *imsig;
        if (strcmp (im->name, cm->name) == 0) {
                if (! (cm->flags & METHOD_ATTRIBUTE_PUBLIC)) {
                        TRACE_INTERFACE_VTABLE (printf ("[PUBLIC CHECK FAILED]"));
                        return FALSE;
                }
                if (! slot_is_empty) {
                        if (require_newslot) {
                                if (! interface_is_explicitly_implemented_by_class) {
                                        TRACE_INTERFACE_VTABLE (printf ("[NOT EXPLICIT IMPLEMENTATION IN FULL SLOT REFUSED]"));
                                        return FALSE;
                                }
                                if (! (cm->flags & METHOD_ATTRIBUTE_NEW_SLOT)) {
                                        TRACE_INTERFACE_VTABLE (printf ("[NEWSLOT CHECK FAILED]"));
                                        return FALSE;
                                }
                        } else {
                                TRACE_INTERFACE_VTABLE (printf ("[FULL SLOT REFUSED]"));
                        }
                }
                cmsig = mono_method_signature_internal (cm);
                imsig = mono_method_signature_internal (im);
                if (!cmsig || !imsig) {
                        mono_class_set_type_load_failure (klass, "Could not resolve the signature of a virtual method");
                        return FALSE;
                }

                if (! mono_metadata_signature_equal (cmsig, imsig)) {
                        TRACE_INTERFACE_VTABLE (printf ("[SIGNATURE CHECK FAILED  "));
                        TRACE_INTERFACE_VTABLE (print_method_signatures (im, cm));
                        TRACE_INTERFACE_VTABLE (printf ("]"));
                        return FALSE;
                }
                TRACE_INTERFACE_VTABLE (printf ("[SECURITY CHECKS]"));
                if (mono_security_core_clr_enabled ())
                        mono_security_core_clr_check_override (klass, cm, im);

                TRACE_INTERFACE_VTABLE (printf ("[NAME CHECK OK]"));
                if (is_wcf_hack_disabled () && !mono_method_can_access_method_full (cm, im, NULL)) {
                        char *body_name = mono_method_full_name (cm, TRUE);
                        char *decl_name = mono_method_full_name (im, TRUE);
                        mono_class_set_type_load_failure (klass, "Method %s overrides method '%s' which is not accessible", body_name, decl_name);
                        g_free (body_name);
                        g_free (decl_name);
                        return FALSE;
                }

                return TRUE;
        } else {
                MonoClass *ic = im->klass;
                const char *ic_name_space = ic->name_space;
                const char *ic_name = ic->name;
                char *subname;
                
                if (! require_newslot) {
                        TRACE_INTERFACE_VTABLE (printf ("[INJECTED METHOD REFUSED]"));
                        return FALSE;
                }
                if (cm->klass->rank == 0) {
                        TRACE_INTERFACE_VTABLE (printf ("[RANK CHECK FAILED]"));
                        return FALSE;
                }
                cmsig = mono_method_signature_internal (cm);
                imsig = mono_method_signature_internal (im);
                if (!cmsig || !imsig) {
                        mono_class_set_type_load_failure (klass, "Could not resolve the signature of a virtual method");
                        return FALSE;
                }

                if (! mono_metadata_signature_equal (cmsig, imsig)) {
                        TRACE_INTERFACE_VTABLE (printf ("[(INJECTED) SIGNATURE CHECK FAILED  "));
                        TRACE_INTERFACE_VTABLE (print_method_signatures (im, cm));
                        TRACE_INTERFACE_VTABLE (printf ("]"));
                        return FALSE;
                }
                if (mono_class_get_image (ic) != mono_defaults.corlib) {
                        TRACE_INTERFACE_VTABLE (printf ("[INTERFACE CORLIB CHECK FAILED]"));
                        return FALSE;
                }
                if ((ic_name_space == NULL) || (strcmp (ic_name_space, "System.Collections.Generic") != 0)) {
                        TRACE_INTERFACE_VTABLE (printf ("[INTERFACE NAMESPACE CHECK FAILED]"));
                        return FALSE;
                }
                if ((ic_name == NULL) || ((strcmp (ic_name, "IEnumerable`1") != 0) && (strcmp (ic_name, "ICollection`1") != 0) && (strcmp (ic_name, "IList`1") != 0) && (strcmp (ic_name, "IReadOnlyList`1") != 0) && (strcmp (ic_name, "IReadOnlyCollection`1") != 0))) {
                        TRACE_INTERFACE_VTABLE (printf ("[INTERFACE NAME CHECK FAILED]"));
                        return FALSE;
                }
                
                subname = (char*)strstr (cm->name, ic_name_space);
                if (subname != cm->name) {
                        TRACE_INTERFACE_VTABLE (printf ("[ACTUAL NAMESPACE CHECK FAILED]"));
                        return FALSE;
                }
                subname += strlen (ic_name_space);
                if (subname [0] != '.') {
                        TRACE_INTERFACE_VTABLE (printf ("[FIRST DOT CHECK FAILED]"));
                        return FALSE;
                }
                subname ++;
                if (strstr (subname, ic_name) != subname) {
                        TRACE_INTERFACE_VTABLE (printf ("[ACTUAL CLASS NAME CHECK FAILED]"));
                        return FALSE;
                }
                subname += strlen (ic_name);
                if (subname [0] != '.') {
                        TRACE_INTERFACE_VTABLE (printf ("[SECOND DOT CHECK FAILED]"));
                        return FALSE;
                }
                subname ++;
                if (strcmp (subname, im->name) != 0) {
                        TRACE_INTERFACE_VTABLE (printf ("[METHOD NAME CHECK FAILED]"));
                        return FALSE;
                }
                
                TRACE_INTERFACE_VTABLE (printf ("[SECURITY CHECKS (INJECTED CASE)]"));
                if (mono_security_core_clr_enabled ())
                        mono_security_core_clr_check_override (klass, cm, im);

                TRACE_INTERFACE_VTABLE (printf ("[INJECTED INTERFACE CHECK OK]"));
                if (is_wcf_hack_disabled () && !mono_method_can_access_method_full (cm, im, NULL)) {
                        char *body_name = mono_method_full_name (cm, TRUE);
                        char *decl_name = mono_method_full_name (im, TRUE);
                        mono_class_set_type_load_failure (klass, "Method %s overrides method '%s' which is not accessible", body_name, decl_name);
                        g_free (body_name);
                        g_free (decl_name);
                        return FALSE;
                }
                
                return TRUE;
        }
}

#if (TRACE_INTERFACE_VTABLE_CODE|DEBUG_INTERFACE_VTABLE_CODE)
static void
foreach_override (gpointer key, gpointer value, gpointer user_data)
{
        MonoMethod *method = key;
        MonoMethod *override = value;

        char *method_name = mono_method_get_full_name (method);
        char *override_name = mono_method_get_full_name (override);
        printf ("  Method '%s' has override '%s'\n", method_name, override_name);
        g_free (method_name);
        g_free (override_name);
}

static void
print_overrides (GHashTable *override_map, const char *message)
{
        if (override_map) {
                printf ("Override map \"%s\" START:\n", message);
                g_hash_table_foreach (override_map, foreach_override, NULL);
                printf ("Override map \"%s\" END.\n", message);
        } else {
                printf ("Override map \"%s\" EMPTY.\n", message);
        }
}

static void
print_vtable_full (MonoClass *klass, MonoMethod** vtable, int size, int first_non_interface_slot, const char *message, gboolean print_interfaces)
{
        char *full_name = mono_type_full_name (m_class_get_byval_arg (klass));
        int i;
        int parent_size;
        
        printf ("*** Vtable for class '%s' at \"%s\" (size %d)\n", full_name, message, size);
        
        if (print_interfaces) {
                print_implemented_interfaces (klass);
                printf ("* Interfaces for class '%s' done.\nStarting vtable (size %d):\n", full_name, size);
        }
        
        if (klass->parent) {
                parent_size = klass->parent->vtable_size;
        } else {
                parent_size = 0;
        }
        for (i = 0; i < size; ++i) {
                MonoMethod *cm = vtable [i];
                char *cm_name = cm ? mono_method_full_name (cm, TRUE) : g_strdup ("nil");
                char newness = (i < parent_size) ? 'O' : ((i < first_non_interface_slot) ? 'I' : 'N');

                printf ("  [%c][%03d][INDEX %03d] %s [%p]\n", newness, i, cm ? cm->slot : - 1, cm_name, cm);
                g_free (cm_name);
        }

        g_free (full_name);
}
#endif

#if VERIFY_INTERFACE_VTABLE_CODE
static int
mono_method_try_get_vtable_index (MonoMethod *method)
{
        if (method->is_inflated && (method->flags & METHOD_ATTRIBUTE_VIRTUAL)) {
                MonoMethodInflated *imethod = (MonoMethodInflated*)method;
                if (imethod->declaring->is_generic)
                        return imethod->declaring->slot;
        }
        return method->slot;
}

static void
mono_class_verify_vtable (MonoClass *klass)
{
        int i, count;
        char *full_name = mono_type_full_name (m_class_get_byval_arg (klass));

        printf ("*** Verifying VTable of class '%s' \n", full_name);
        g_free (full_name);
        full_name = NULL;
        
        if (!klass->methods)
                return;

        count = mono_class_get_method_count (klass);
        for (i = 0; i < count; ++i) {
                MonoMethod *cm = klass->methods [i];
                int slot;

                if (!(cm->flags & METHOD_ATTRIBUTE_VIRTUAL))
                        continue;

                g_free (full_name);
                full_name = mono_method_full_name (cm, TRUE);

                slot = mono_method_try_get_vtable_index (cm);
                if (slot >= 0) {
                        if (slot >= klass->vtable_size) {
                                printf ("\tInvalid method %s at index %d with vtable of length %d\n", full_name, slot, klass->vtable_size);
                                continue;
                        }

                        if (slot >= 0 && klass->vtable [slot] != cm && (klass->vtable [slot])) {
                                char *other_name = klass->vtable [slot] ? mono_method_full_name (klass->vtable [slot], TRUE) : g_strdup ("[null value]");
                                printf ("\tMethod %s has slot %d but vtable has %s on it\n", full_name, slot, other_name);
                                g_free (other_name);
                        }
                } else
                        printf ("\tVirtual method %s does n't have an assigned slot\n", full_name);
        }
        g_free (full_name);
}
#endif

static MonoMethod*
mono_method_get_method_definition (MonoMethod *method)
{
        while (method->is_inflated)
                method = ((MonoMethodInflated*)method)->declaring;
        return method;
}

static gboolean
verify_class_overrides (MonoClass *klass, MonoMethod **overrides, int onum)
{
        int i;

        for (i = 0; i < onum; ++i) {
                MonoMethod *decl = overrides [i * 2];
                MonoMethod *body = overrides [i * 2 + 1];

                if (mono_class_get_generic_type_definition (body->klass) != mono_class_get_generic_type_definition (klass)) {
                        mono_class_set_type_load_failure (klass, "Method belongs to a different class than the declared one");
                        return FALSE;
                }

                if (!(body->flags & METHOD_ATTRIBUTE_VIRTUAL) || (body->flags & METHOD_ATTRIBUTE_STATIC)) {
                        if (body->flags & METHOD_ATTRIBUTE_STATIC)
                                mono_class_set_type_load_failure (klass, "Method must not be static to override a base type");
                        else
                                mono_class_set_type_load_failure (klass, "Method must be virtual to override a base type");
                        return FALSE;
                }

                if (!(decl->flags & METHOD_ATTRIBUTE_VIRTUAL) || (decl->flags & METHOD_ATTRIBUTE_STATIC)) {
                        if (body->flags & METHOD_ATTRIBUTE_STATIC)
                                mono_class_set_type_load_failure (klass, "Cannot override a static method in a base type");
                        else
                                mono_class_set_type_load_failure (klass, "Cannot override a non virtual method in a base type");
                        return FALSE;
                }

                if (!mono_class_is_assignable_from_slow (decl->klass, klass)) {
                        mono_class_set_type_load_failure (klass, "Method overrides a class or interface that is not extended or implemented by this type");
                        return FALSE;
                }

                body = mono_method_get_method_definition (body);
                decl = mono_method_get_method_definition (decl);

                if (is_wcf_hack_disabled () && !mono_method_can_access_method_full (body, decl, NULL)) {
                        char *body_name = mono_method_full_name (body, TRUE);
                        char *decl_name = mono_method_full_name (decl, TRUE);
                        mono_class_set_type_load_failure (klass, "Method %s overrides method '%s' which is not accessible", body_name, decl_name);
                        g_free (body_name);
                        g_free (decl_name);
                        return FALSE;
                }
        }
        return TRUE;
}

/*Checks if @klass has @parent as one of it's parents type gtd
 *
 * For example:
 *      Foo<T>
 *      Bar<T> : Foo<Bar<Bar<T>>>
 *
 */
static gboolean
mono_class_has_gtd_parent (MonoClass *klass, MonoClass *parent)
{
        klass = mono_class_get_generic_type_definition (klass);
        parent = mono_class_get_generic_type_definition (parent);
        mono_class_setup_supertypes (klass);
        mono_class_setup_supertypes (parent);

        return klass->idepth >= parent->idepth &&
                mono_class_get_generic_type_definition (klass->supertypes [parent->idepth - 1]) == parent;
}

gboolean
mono_class_check_vtable_constraints (MonoClass *klass, GList *in_setup)
{
        MonoGenericInst *ginst;
        int i;

        if (!mono_class_is_ginst (klass)) {
                mono_class_setup_vtable_full (klass, in_setup);
                return !mono_class_has_failure (klass);
        }

        mono_class_setup_vtable_full (mono_class_get_generic_type_definition (klass), in_setup);
        if (mono_class_set_type_load_failure_causedby_class (klass, mono_class_get_generic_class (klass)->container_class, "Failed to load generic definition vtable"))
                return FALSE;

        ginst = mono_class_get_generic_class (klass)->context.class_inst;
        for (i = 0; i < ginst->type_argc; ++i) {
                MonoClass *arg;
                if (ginst->type_argv [i]->type != MONO_TYPE_GENERICINST)
                        continue;
                arg = mono_class_from_mono_type_internal (ginst->type_argv [i]);
                /*Those 2 will be checked by mono_class_setup_vtable itself*/
                if (mono_class_has_gtd_parent (klass, arg) || mono_class_has_gtd_parent (arg, klass))
                        continue;
                if (!mono_class_check_vtable_constraints (arg, in_setup)) {
                        mono_class_set_type_load_failure (klass, "Failed to load generic parameter %d", i);
                        return FALSE;
                }
        }
        return TRUE;
}
 
/*
 * mono_class_setup_vtable:
 *
 *   Creates the generic vtable of CLASS.
 * Initializes the following fields in MonoClass:
 * - vtable
 * - vtable_size
 * Plus all the fields initialized by setup_interface_offsets ().
 * If there is an error during vtable construction, klass->has_failure
 * is set and details are stored in a MonoErrorBoxed.
 *
 * LOCKING: Acquires the loader lock.
 */
void
mono_class_setup_vtable (MonoClass *klass)
{
        mono_class_setup_vtable_full (klass, NULL);
}

static void
mono_class_setup_vtable_full (MonoClass *klass, GList *in_setup)
{
        ERROR_DECL (error);
        MonoMethod **overrides = NULL;
        MonoGenericContext *context;
        guint32 type_token;
        int onum = 0;

        if (klass->vtable)
                return;

        if (MONO_CLASS_IS_INTERFACE_INTERNAL (klass)) {
                /* This sets method->slot for all methods if this is an interface */
                mono_class_setup_methods (klass);
                return;
        }

        if (mono_class_has_failure (klass))
                return;

        if (g_list_find (in_setup, klass))
                return;

        mono_loader_lock ();

        if (klass->vtable) {
                mono_loader_unlock ();
                return;
        }

        UnlockedIncrement (&mono_stats.generic_vtable_count);
        in_setup = g_list_prepend (in_setup, klass);

        if (mono_class_is_ginst (klass)) {
                if (!mono_class_check_vtable_constraints (klass, in_setup)) {
                        mono_loader_unlock ();
                        g_list_remove (in_setup, klass);
                        return;
                }

                context = mono_class_get_context (klass);
                type_token = mono_class_get_generic_class (klass)->container_class->type_token;
        } else {
                context = (MonoGenericContext *) mono_class_try_get_generic_container (klass); //FIXME is this a case of a try?
                type_token = klass->type_token;
        }

        if (image_is_dynamic (klass->image)) {
                /* Generic instances can have zero method overrides without causing any harm.
                 * This is true since we don't do layout all over again for them, we simply inflate
                 * the layout of the parent.
                 */
                mono_reflection_get_dynamic_overrides (klass, &overrides, &onum, error);
                if (!is_ok (error)) {
                        mono_class_set_type_load_failure (klass, "Could not load list of method overrides due to %s", mono_error_get_message (error));
                        goto done;
                }
        } else {
                /* The following call fails if there are missing methods in the type */
                /* FIXME it's probably a good idea to avoid this for generic instances. */
                mono_class_get_overrides_full (klass->image, type_token, &overrides, &onum, context, error);
                if (!is_ok (error)) {
                        mono_class_set_type_load_failure (klass, "Could not load list of method overrides due to %s", mono_error_get_message (error));
                        goto done;
                }
        }

        mono_class_setup_vtable_general (klass, overrides, onum, in_setup);

done:
        g_free (overrides);
        mono_error_cleanup (error);

        mono_loader_unlock ();
        g_list_remove (in_setup, klass);

        return;
}

static gboolean
mono_class_need_stelemref_method (MonoClass *klass)
{
        return klass->rank == 1 && MONO_TYPE_IS_REFERENCE (m_class_get_byval_arg (m_class_get_element_class (klass)));
}

static int
apply_override (MonoClass *klass, MonoClass *override_class, MonoMethod **vtable, MonoMethod *decl, MonoMethod *override,
                                GHashTable **override_map, GHashTable **override_class_map, GHashTable **conflict_map)
{
        int dslot;
        dslot = mono_method_get_vtable_slot (decl);
        if (dslot == -1) {
                mono_class_set_type_load_failure (klass, "");
                return FALSE;
        }

        dslot += mono_class_interface_offset (klass, decl->klass);
        vtable [dslot] = override;
        if (!MONO_CLASS_IS_INTERFACE_INTERNAL (override->klass)) {
                /*
                 * If override from an interface, then it is an override of a default interface method,
                 * don't override its slot.
                 */
                vtable [dslot]->slot = dslot;
        }

        if (!*override_map) {
                *override_map = g_hash_table_new (mono_aligned_addr_hash, NULL);
                *override_class_map = g_hash_table_new (mono_aligned_addr_hash, NULL);
        }
        GHashTable *map = *override_map;
        GHashTable *class_map = *override_class_map;

        MonoMethod *prev_override = (MonoMethod*)g_hash_table_lookup (map, decl);
        MonoClass *prev_override_class = (MonoClass*)g_hash_table_lookup (class_map, decl);

        g_hash_table_insert (map, decl, override);
        g_hash_table_insert (class_map, decl, override_class);

        /* Collect potentially conflicting overrides which are introduced by default interface methods */
        if (prev_override) {
                ERROR_DECL (error);

                /*
                 * The override methods are part of the generic definition, need to inflate them so their
                 * parent class becomes the actual interface/class containing the override, i.e.
                 * IFace<T> in:
                 * class Foo<T> : IFace<T>
                 * This is needed so the mono_class_is_assignable_from_internal () calls in the
                 * conflict resolution work.
                 */
                if (mono_class_is_ginst (override_class)) {
                        override = mono_class_inflate_generic_method_checked (override, &mono_class_get_generic_class (override_class)->context, error);
                        mono_error_assert_ok (error);
                }

                if (mono_class_is_ginst (prev_override_class)) {
                        prev_override = mono_class_inflate_generic_method_checked (prev_override, &mono_class_get_generic_class (prev_override_class)->context, error);
                        mono_error_assert_ok (error);
                }

                if (!*conflict_map)
                        *conflict_map = g_hash_table_new (mono_aligned_addr_hash, NULL);
                GHashTable *cmap = *conflict_map;
                GSList *entries = (GSList*)g_hash_table_lookup (cmap, decl);
                if (!(decl->flags & METHOD_ATTRIBUTE_ABSTRACT))
                        entries = g_slist_prepend (entries, decl);
                entries = g_slist_prepend (entries, prev_override);
                entries = g_slist_prepend (entries, override);

                g_hash_table_insert (cmap, decl, entries);
        }

        return TRUE;
}

static void
handle_dim_conflicts (MonoMethod **vtable, MonoClass *klass, GHashTable *conflict_map)
{
        GHashTableIter iter;
        MonoMethod *decl;
        GSList *entries, *l, *l2;
        GSList *dim_conflicts = NULL;

        g_hash_table_iter_init (&iter, conflict_map);
        while (g_hash_table_iter_next (&iter, (gpointer*)&decl, (gpointer*)&entries)) {
                /*
                 * Iterate over the candidate methods, remove ones whose class is less concrete than the
                 * class of another one.
                 */
                /* This is O(n^2), but that shouldn't be a problem in practice */
                for (l = entries; l; l = l->next) {
                        for (l2 = entries; l2; l2 = l2->next) {
                                MonoMethod *m1 = (MonoMethod*)l->data;
                                MonoMethod *m2 = (MonoMethod*)l2->data;
                                if (!m1 || !m2 || m1 == m2)
                                        continue;
                                if (mono_class_is_assignable_from_internal (m1->klass, m2->klass))
                                        l->data = NULL;
                                else if (mono_class_is_assignable_from_internal (m2->klass, m1->klass))
                                        l2->data = NULL;
                        }
                }
                int nentries = 0;
                MonoMethod *impl = NULL;
                for (l = entries; l; l = l->next) {
                        if (l->data) {
                                nentries ++;
                                impl = (MonoMethod*)l->data;
                        }
                }
                if (nentries > 1) {
                        /* If more than one method is left, we have a conflict */
                        if (decl->is_inflated)
                                decl = ((MonoMethodInflated*)decl)->declaring;
                        dim_conflicts = g_slist_prepend (dim_conflicts, decl);
                        /*
                          for (l = entries; l; l = l->next) {
                          if (l->data)
                          printf ("%s %s %s\n", mono_class_full_name (klass), mono_method_full_name (decl, TRUE), mono_method_full_name (l->data, TRUE));
                          }
                        */
                } else {
                        /*
                         * Use the implementing method computed above instead of the already
                         * computed one, which depends on interface ordering.
                         */
                        int ic_offset = mono_class_interface_offset (klass, decl->klass);
                        int im_slot = ic_offset + decl->slot;
                        vtable [im_slot] = impl;
                }
                g_slist_free (entries);
        }
        if (dim_conflicts) {
                mono_loader_lock ();
                klass->has_dim_conflicts = 1;
                mono_loader_unlock ();

                /*
                 * Exceptions are thrown at method call time and only for the methods which have
                 * conflicts, so just save them in the class.
                 */

                /* Make a copy of the list from the class mempool */
                GSList *conflicts = (GSList*)mono_class_alloc0 (klass, g_slist_length (dim_conflicts) * sizeof (GSList));
                int i = 0;
                for (l = dim_conflicts; l; l = l->next) {
                        conflicts [i].data = l->data;
                        conflicts [i].next = &conflicts [i + 1];
                        i ++;
                }
                conflicts [i - 1].next = NULL;

                mono_class_set_dim_conflicts (klass, conflicts);
                g_slist_free (dim_conflicts);
        }
}

static void
print_unimplemented_interface_method_info (MonoClass *klass, MonoClass *ic, MonoMethod *im, int im_slot, MonoMethod **overrides, int onum)
{
        int index, mcount;
        char *method_signature;
        char *type_name;
        
        for (index = 0; index < onum; ++index) {
                mono_trace_warning (MONO_TRACE_TYPE, " at slot %d: %s (%d) overrides %s (%d)", im_slot, overrides [index*2+1]->name,
                         overrides [index*2+1]->slot, overrides [index*2]->name, overrides [index*2]->slot);
        }
        method_signature = mono_signature_get_desc (mono_method_signature_internal (im), FALSE);
        type_name = mono_type_full_name (m_class_get_byval_arg (klass));
        mono_trace_warning (MONO_TRACE_TYPE, "no implementation for interface method %s::%s(%s) in class %s",
                            mono_type_get_name (m_class_get_byval_arg (ic)), im->name, method_signature, type_name);
        g_free (method_signature);
        g_free (type_name);
        mono_class_setup_methods (klass);
        if (mono_class_has_failure (klass)) {
                char *name = mono_type_get_full_name (klass);
                mono_trace_warning (MONO_TRACE_TYPE, "CLASS %s failed to resolve methods", name);
                g_free (name);
                return;
        }
        mcount = mono_class_get_method_count (klass);
        for (index = 0; index < mcount; ++index) {
                MonoMethod *cm = klass->methods [index];
                method_signature = mono_signature_get_desc (mono_method_signature_internal (cm), TRUE);

                mono_trace_warning (MONO_TRACE_TYPE, "METHOD %s(%s)", cm->name, method_signature);
                g_free (method_signature);
        }
}

/*
 * mono_class_get_virtual_methods:
 *
 *   Iterate over the virtual methods of KLASS.
 *
 * LOCKING: Assumes the loader lock is held (because of the klass->methods check).
 */
static MonoMethod*
mono_class_get_virtual_methods (MonoClass* klass, gpointer *iter)
{
        gboolean static_iter = FALSE;

        if (!iter)
                return NULL;

        /*
         * If the lowest bit of the iterator is 1, this is an iterator for static metadata,
         * and the upper bits contain an index. Otherwise, the iterator is a pointer into
         * klass->methods.
         */
        if ((gsize)(*iter) & 1)
                static_iter = TRUE;
        /* Use the static metadata only if klass->methods is not yet initialized */
        if (!static_iter && !(klass->methods || !MONO_CLASS_HAS_STATIC_METADATA (klass)))
                static_iter = TRUE;

        if (!static_iter) {
                MonoMethod** methodptr;

                if (!*iter) {
                        mono_class_setup_methods (klass);
                        /*
                         * We can't fail lookup of methods otherwise the runtime will burst in flames on all sort of places.
                         * FIXME we should better report this error to the caller
                         */
                        if (!klass->methods)
                                return NULL;
                        /* start from the first */
                        methodptr = &klass->methods [0];
                } else {
                        methodptr = (MonoMethod **)*iter;
                        methodptr++;
                }
                if (*iter)
                        g_assert ((guint64)(*iter) > 0x100);
                int mcount = mono_class_get_method_count (klass);
                while (methodptr < &klass->methods [mcount]) {
                        if (*methodptr && ((*methodptr)->flags & METHOD_ATTRIBUTE_VIRTUAL))
                                break;
                        methodptr ++;
                }
                if (methodptr < &klass->methods [mcount]) {
                        *iter = methodptr;
                        return *methodptr;
                } else {
                        return NULL;
                }
        } else {
                /* Search directly in metadata to avoid calling setup_methods () */
                MonoMethod *res = NULL;
                int i, start_index;

                if (!*iter) {
                        start_index = 0;
                } else {
                        start_index = GPOINTER_TO_UINT (*iter) >> 1;
                }

                int first_idx = mono_class_get_first_method_idx (klass);
                int mcount = mono_class_get_method_count (klass);
                for (i = start_index; i < mcount; ++i) {
                        guint32 flags;

                        /* first_idx points into the methodptr table */
                        flags = mono_metadata_decode_table_row_col (klass->image, MONO_TABLE_METHOD, first_idx + i, MONO_METHOD_FLAGS);

                        if (flags & METHOD_ATTRIBUTE_VIRTUAL)
                                break;
                }

                if (i < mcount) {
                        ERROR_DECL (error);
                        res = mono_get_method_checked (klass->image, MONO_TOKEN_METHOD_DEF | (first_idx + i + 1), klass, NULL, error);
                        mono_error_cleanup (error); /* FIXME don't swallow the error */

                        /* Add 1 here so the if (*iter) check fails */
                        *iter  = GUINT_TO_POINTER (((i + 1) << 1) | 1);
                        return res;
                } else {
                        return NULL;
                }
        }
}

static void
print_vtable_layout_result (MonoClass *klass, MonoMethod **vtable, int cur_slot)
{
        int i, icount = 0;

        print_implemented_interfaces (klass);

        for (i = 0; i <= klass->max_interface_id; i++)
                if (MONO_CLASS_IMPLEMENTS_INTERFACE (klass, i))
                        icount++;

        printf ("VTable %s (vtable entries = %d, interfaces = %d)\n", mono_type_full_name (m_class_get_byval_arg (klass)),
                klass->vtable_size, icount);

        for (i = 0; i < cur_slot; ++i) {
                MonoMethod *cm;

                cm = vtable [i];
                if (cm) {
                        printf ("  slot assigned: %03d, slot index: %03d %s\n", i, cm->slot,
                                mono_method_get_full_name (cm));
                } else {
                        printf ("  slot assigned: %03d, <null>\n", i);
                }
        }


        if (icount) {
                printf ("Interfaces %s.%s (max_iid = %d)\n", klass->name_space,
                        klass->name, klass->max_interface_id);

                for (i = 0; i < klass->interface_count; i++) {
                        MonoClass *ic = klass->interfaces [i];
                        printf ("  slot offset: %03d, method count: %03d, iid: %03d %s\n",  
                                mono_class_interface_offset (klass, ic),
                                count_virtual_methods (ic), ic->interface_id, mono_type_full_name (m_class_get_byval_arg (ic)));
                }

                for (MonoClass *k = klass->parent; k ; k = k->parent) {
                        for (i = 0; i < k->interface_count; i++) {
                                MonoClass *ic = k->interfaces [i]; 
                                printf ("  parent slot offset: %03d, method count: %03d, iid: %03d %s\n",  
                                        mono_class_interface_offset (klass, ic),
                                        count_virtual_methods (ic), ic->interface_id, mono_type_full_name (m_class_get_byval_arg (ic)));
                        }
                }
        }
}

/*
 * LOCKING: this is supposed to be called with the loader lock held.
 */
void
mono_class_setup_vtable_general (MonoClass *klass, MonoMethod **overrides, int onum, GList *in_setup)
{
        ERROR_DECL (error);
        MonoClass *k, *ic;
        MonoMethod **vtable = NULL;
        int i, max_vtsize = 0, cur_slot = 0;
        GPtrArray *ifaces = NULL;
        GHashTable *override_map = NULL;
        GHashTable *override_class_map = NULL;
        GHashTable *conflict_map = NULL;
        MonoMethod *cm;
#if (DEBUG_INTERFACE_VTABLE_CODE|TRACE_INTERFACE_VTABLE_CODE)
        int first_non_interface_slot;
#endif
        GSList *virt_methods = NULL, *l;
        int stelemref_slot = 0;

        error_init (error);

        if (klass->vtable)
                return;

        if (overrides && !verify_class_overrides (klass, overrides, onum))
                return;

        ifaces = mono_class_get_implemented_interfaces (klass, error);
        if (!mono_error_ok (error)) {
                char *name = mono_type_get_full_name (klass);
                mono_class_set_type_load_failure (klass, "Could not resolve %s interfaces due to %s", name, mono_error_get_message (error));
                g_free (name);
                mono_error_cleanup (error);
                return;
        } else if (ifaces) {
                for (i = 0; i < ifaces->len; i++) {
                        MonoClass *ic = (MonoClass *)g_ptr_array_index (ifaces, i);
                        max_vtsize += mono_class_get_method_count (ic);
                }
                g_ptr_array_free (ifaces, TRUE);
                ifaces = NULL;
        }
        
        if (klass->parent) {
                mono_class_init_internal (klass->parent);
                mono_class_setup_vtable_full (klass->parent, in_setup);

                if (mono_class_set_type_load_failure_causedby_class (klass, klass->parent, "Parent class failed to load"))
                        return;

                max_vtsize += klass->parent->vtable_size;
                cur_slot = klass->parent->vtable_size;
        }

        max_vtsize += mono_class_get_method_count (klass);

        /*Array have a slot for stelemref*/
        if (mono_class_need_stelemref_method (klass)) {
                stelemref_slot = cur_slot;
                ++max_vtsize;
                ++cur_slot;
        }

        /* printf ("METAINIT %s.%s\n", klass->name_space, klass->name); */

        cur_slot = setup_interface_offsets (klass, cur_slot, TRUE);
        if (cur_slot == -1) /*setup_interface_offsets fails the type.*/
                return;

        DEBUG_INTERFACE_VTABLE (first_non_interface_slot = cur_slot);

        /* Optimized version for generic instances */
        if (mono_class_is_ginst (klass)) {
                ERROR_DECL (error);
                MonoClass *gklass = mono_class_get_generic_class (klass)->container_class;
                MonoMethod **tmp;

                mono_class_setup_vtable_full (gklass, in_setup);
                if (mono_class_set_type_load_failure_causedby_class (klass, gklass, "Could not load generic definition"))
                        return;

                tmp = (MonoMethod **)mono_class_alloc0 (klass, sizeof (gpointer) * gklass->vtable_size);
                klass->vtable_size = gklass->vtable_size;
                for (i = 0; i < gklass->vtable_size; ++i)
                        if (gklass->vtable [i]) {
                                MonoMethod *inflated = mono_class_inflate_generic_method_full_checked (gklass->vtable [i], klass, mono_class_get_context (klass), error);
                                goto_if_nok (error, fail);
                                tmp [i] = inflated;
                                tmp [i]->slot = gklass->vtable [i]->slot;
                        }
                mono_memory_barrier ();
                klass->vtable = tmp;

                mono_loader_lock ();
                klass->has_dim_conflicts = gklass->has_dim_conflicts;
                mono_loader_unlock ();

                /* Have to set method->slot for abstract virtual methods */
                if (klass->methods && gklass->methods) {
                        int mcount = mono_class_get_method_count (klass);
                        for (i = 0; i < mcount; ++i)
                                if (klass->methods [i]->slot == -1)
                                        klass->methods [i]->slot = gklass->methods [i]->slot;
                }

                if (mono_print_vtable)
                        print_vtable_layout_result (klass, klass->vtable, gklass->vtable_size);

                return;
        }

        vtable = (MonoMethod **)g_malloc0 (sizeof (gpointer) * max_vtsize);

        if (klass->parent && klass->parent->vtable_size) {
                MonoClass *parent = klass->parent;
                int i;
                
                memcpy (vtable, parent->vtable,  sizeof (gpointer) * parent->vtable_size);
                
                // Also inherit parent interface vtables, just as a starting point.
                // This is needed otherwise bug-77127.exe fails when the property methods
                // have different names in the iterface and the class, because for child
                // classes the ".override" information is not used anymore.
                for (i = 0; i < parent->interface_offsets_count; i++) {
                        MonoClass *parent_interface = parent->interfaces_packed [i];
                        int interface_offset = mono_class_interface_offset (klass, parent_interface);
                        /*FIXME this is now dead code as this condition will never hold true.
                        Since interface offsets are inherited then the offset of an interface implemented
                        by a parent will never be the out of it's vtable boundary.
                        */
                        if (interface_offset >= parent->vtable_size) {
                                int parent_interface_offset = mono_class_interface_offset (parent, parent_interface);
                                int j;
                                
                                mono_class_setup_methods (parent_interface); /*FIXME Just kill this whole chunk of dead code*/
                                TRACE_INTERFACE_VTABLE (printf ("    +++ Inheriting interface %s.%s\n", parent_interface->name_space, parent_interface->name));
                                int mcount = mono_class_get_method_count (parent_interface);
                                for (j = 0; j < mcount && !mono_class_has_failure (klass); j++) {
                                        vtable [interface_offset + j] = parent->vtable [parent_interface_offset + j];
                                        TRACE_INTERFACE_VTABLE (printf ("    --- Inheriting: [%03d][(%03d)+(%03d)] => [%03d][(%03d)+(%03d)]\n",
                                                        parent_interface_offset + j, parent_interface_offset, j,
                                                        interface_offset + j, interface_offset, j));
                                }
                        }
                        
                }
        }

        /*Array have a slot for stelemref*/
        if (mono_class_need_stelemref_method (klass)) {
                MonoMethod *method = mono_marshal_get_virtual_stelemref (klass);
                if (!method->slot)
                        method->slot = stelemref_slot;
                else
                        g_assert (method->slot == stelemref_slot);

                vtable [stelemref_slot] = method;
        }

        TRACE_INTERFACE_VTABLE (print_vtable_full (klass, vtable, cur_slot, first_non_interface_slot, "AFTER INHERITING PARENT VTABLE", TRUE));

        /* Process overrides from interface default methods */
        // FIXME: Ordering between interfaces
        for (int ifindex = 0; ifindex < klass->interface_offsets_count; ifindex++) {
                ic = klass->interfaces_packed [ifindex];

                mono_class_setup_methods (ic);
                if (mono_class_has_failure (ic))
                        goto fail;

                MonoMethod **iface_overrides;
                int iface_onum;
                mono_class_get_overrides_full (ic->image, ic->type_token, &iface_overrides, &iface_onum, mono_class_get_context (ic), error);
                goto_if_nok (error, fail);
                for (int i = 0; i < iface_onum; i++) {
                        MonoMethod *decl = iface_overrides [i*2];
                        MonoMethod *override = iface_overrides [i*2 + 1];
                        if (decl->is_inflated) {
                                override = mono_class_inflate_generic_method_checked (override, mono_method_get_context (decl), error);
                                mono_error_assert_ok (error);
                        }
                        if (!apply_override (klass, ic, vtable, decl, override, &override_map, &override_class_map, &conflict_map))
                                goto fail;
                }
                g_free (iface_overrides);
        }

        /* override interface methods */
        for (i = 0; i < onum; i++) {
                MonoMethod *decl = overrides [i*2];
                MonoMethod *override = overrides [i*2 + 1];
                if (MONO_CLASS_IS_INTERFACE_INTERNAL (decl->klass)) {
                        if (!apply_override (klass, klass, vtable, decl, override, &override_map, &override_class_map, &conflict_map))
                                goto fail;
                }
        }

        TRACE_INTERFACE_VTABLE (print_overrides (override_map, "AFTER OVERRIDING INTERFACE METHODS"));
        TRACE_INTERFACE_VTABLE (print_vtable_full (klass, vtable, cur_slot, first_non_interface_slot, "AFTER OVERRIDING INTERFACE METHODS", FALSE));

        /*
         * Create a list of virtual methods to avoid calling 
         * mono_class_get_virtual_methods () which is slow because of the metadata
         * optimization.
         */
        {
                gpointer iter = NULL;
                MonoMethod *cm;

                virt_methods = NULL;
                while ((cm = mono_class_get_virtual_methods (klass, &iter))) {
                        virt_methods = g_slist_prepend (virt_methods, cm);
                }
                if (mono_class_has_failure (klass))
                        goto fail;
        }
        
        // Loop on all implemented interfaces...
        for (i = 0; i < klass->interface_offsets_count; i++) {
                MonoClass *parent = klass->parent;
                int ic_offset;
                gboolean interface_is_explicitly_implemented_by_class;
                int im_index;
                
                ic = klass->interfaces_packed [i];
                ic_offset = mono_class_interface_offset (klass, ic);

                mono_class_setup_methods (ic);
                if (mono_class_has_failure (ic))
                        goto fail;
                
                // Check if this interface is explicitly implemented (instead of just inherited)
                if (parent != NULL) {
                        int implemented_interfaces_index;
                        interface_is_explicitly_implemented_by_class = FALSE;
                        for (implemented_interfaces_index = 0; implemented_interfaces_index < klass->interface_count; implemented_interfaces_index++) {
                                if (ic == klass->interfaces [implemented_interfaces_index]) {
                                        interface_is_explicitly_implemented_by_class = TRUE;
                                        break;
                                }
                        }
                } else {
                        interface_is_explicitly_implemented_by_class = TRUE;
                }
                
                // Loop on all interface methods...
                int mcount = mono_class_get_method_count (ic);
                for (im_index = 0; im_index < mcount; im_index++) {
                        gboolean foundOverrideInClassOrParent = FALSE;
                        MonoMethod *im = ic->methods [im_index];
                        int im_slot = ic_offset + im->slot;
                        MonoMethod *override_im = (override_map != NULL) ? (MonoMethod *)g_hash_table_lookup (override_map, im) : NULL;
                        
                        if (im->flags & METHOD_ATTRIBUTE_STATIC)
                                continue;

                        TRACE_INTERFACE_VTABLE (printf ("\tchecking iface method %s\n", mono_method_full_name (im,1)));

                        int cm_index;
                        MonoMethod *cm;

                        // First look for a suitable method among the class methods
                        for (l = virt_methods; l; l = l->next) {
                                cm = (MonoMethod *)l->data;
                                TRACE_INTERFACE_VTABLE (printf ("    For slot %d ('%s'.'%s':'%s'), trying method '%s'.'%s':'%s'... [EXPLICIT IMPLEMENTATION = %d][SLOT IS NULL = %d]", im_slot, ic->name_space, ic->name, im->name, cm->klass->name_space, cm->klass->name, cm->name, interface_is_explicitly_implemented_by_class, (vtable [im_slot] == NULL)));
                                if (check_interface_method_override (klass, im, cm, TRUE, interface_is_explicitly_implemented_by_class, (vtable [im_slot] == NULL))) {
                                        TRACE_INTERFACE_VTABLE (printf ("[check ok]: ASSIGNING"));
                                        vtable [im_slot] = cm;
                                        foundOverrideInClassOrParent = TRUE;
                                        /* Why do we need this? */
                                        if (cm->slot < 0) {
                                                cm->slot = im_slot;
                                        }
                                        if (conflict_map)
                                                g_hash_table_remove(conflict_map, im);
                                }
                                TRACE_INTERFACE_VTABLE (printf ("\n"));
                                if (mono_class_has_failure (klass))  /*Might be set by check_interface_method_override*/
                                        goto fail;
                        }
                        
                        // If the slot is still empty, look in all the inherited virtual methods...
                        if ((vtable [im_slot] == NULL) && klass->parent != NULL) {
                                MonoClass *parent = klass->parent;
                                // Reverse order, so that last added methods are preferred
                                for (cm_index = parent->vtable_size - 1; cm_index >= 0; cm_index--) {
                                        cm = parent->vtable [cm_index];
                                        
                                        TRACE_INTERFACE_VTABLE ((cm != NULL) && printf ("    For slot %d ('%s'.'%s':'%s'), trying (ancestor) method '%s'.'%s':'%s'... ", im_slot, ic->name_space, ic->name, im->name, cm->klass->name_space, cm->klass->name, cm->name));
                                        if ((cm != NULL) && check_interface_method_override (klass, im, cm, FALSE, FALSE, TRUE)) {
                                                TRACE_INTERFACE_VTABLE (printf ("[everything ok]: ASSIGNING"));
                                                vtable [im_slot] = cm;
                                                foundOverrideInClassOrParent = TRUE;
                                                /* Why do we need this? */
                                                if (cm->slot < 0) {
                                                        cm->slot = im_slot;
                                                }
                                                if (conflict_map)
                                                        g_hash_table_remove(conflict_map, im);
                                                break;
                                        }
                                        TRACE_INTERFACE_VTABLE (printf ("\n"));
                                        if (mono_class_has_failure (klass))  /*Might be set by check_interface_method_override*/
                                                goto fail;
                                }
                        }

                        if (vtable [im_slot] == NULL) {
                                if (!(im->flags & METHOD_ATTRIBUTE_ABSTRACT)) {
                                        TRACE_INTERFACE_VTABLE (printf ("    Using default iface method %s.\n", mono_method_full_name (im, 1)));
                                        vtable [im_slot] = im;
                                }
                        }
                        
                        if (override_im != NULL && !foundOverrideInClassOrParent)
                                g_assert (vtable [im_slot] == override_im);
                }
        }
        
        // If the class is not abstract, check that all its interface slots are full.
        // The check is done here and not directly at the end of the loop above because
        // it can happen (for injected generic array interfaces) that the same slot is
        // processed multiple times (those interfaces have overlapping slots), and it
        // will not always be the first pass the one that fills the slot.
        // Now it is okay to implement a class that is not abstract and implements a interface that has an abstract method because it's reabstracted
        if (!mono_class_is_abstract (klass)) {
                for (i = 0; i < klass->interface_offsets_count; i++) {
                        int ic_offset;
                        int im_index;
                        
                        ic = klass->interfaces_packed [i];
                        ic_offset = mono_class_interface_offset (klass, ic);
                        
                        int mcount = mono_class_get_method_count (ic);
                        for (im_index = 0; im_index < mcount; im_index++) {
                                MonoMethod *im = ic->methods [im_index];
                                int im_slot = ic_offset + im->slot;
                                
                                if (im->flags & METHOD_ATTRIBUTE_STATIC)
                                        continue;
                                if (im->is_reabstracted == 1)
                                        continue;

                                TRACE_INTERFACE_VTABLE (printf ("      [class is not abstract, checking slot %d for interface '%s'.'%s', method %s, slot check is %d]\n",
                                                im_slot, ic->name_space, ic->name, im->name, (vtable [im_slot] == NULL)));
                                if (vtable [im_slot] == NULL) {
                                        print_unimplemented_interface_method_info (klass, ic, im, im_slot, overrides, onum);
                                        goto fail;
                                }
                        }
                }
        }

        TRACE_INTERFACE_VTABLE (print_vtable_full (klass, vtable, cur_slot, first_non_interface_slot, "AFTER SETTING UP INTERFACE METHODS", FALSE));
        for (l = virt_methods; l; l = l->next) {
                cm = (MonoMethod *)l->data;
                /*
                 * If the method is REUSE_SLOT, we must check in the
                 * base class for a method to override.
                 */
                if (!(cm->flags & METHOD_ATTRIBUTE_NEW_SLOT)) {
                        int slot = -1;
                        for (k = klass->parent; k ; k = k->parent) {
                                gpointer k_iter;
                                MonoMethod *m1;

                                k_iter = NULL;
                                while ((m1 = mono_class_get_virtual_methods (k, &k_iter))) {
                                        MonoMethodSignature *cmsig, *m1sig;

                                        cmsig = mono_method_signature_internal (cm);
                                        m1sig = mono_method_signature_internal (m1);

                                        if (!cmsig || !m1sig) /* FIXME proper error message, use signature_checked? */
                                                goto fail;

                                        if (!strcmp(cm->name, m1->name) && 
                                            mono_metadata_signature_equal (cmsig, m1sig)) {

                                                if (mono_security_core_clr_enabled ())
                                                        mono_security_core_clr_check_override (klass, cm, m1);

                                                slot = mono_method_get_vtable_slot (m1);
                                                if (slot == -1)
                                                        goto fail;

                                                if (is_wcf_hack_disabled () && !mono_method_can_access_method_full (cm, m1, NULL)) {
                                                        char *body_name = mono_method_full_name (cm, TRUE);
                                                        char *decl_name = mono_method_full_name (m1, TRUE);
                                                        mono_class_set_type_load_failure (klass, "Method %s overrides method '%s' which is not accessible", body_name, decl_name);
                                                        g_free (body_name);
                                                        g_free (decl_name);
                                                        goto fail;
                                                }

                                                g_assert (cm->slot < max_vtsize);
                                                if (!override_map)
                                                        override_map = g_hash_table_new (mono_aligned_addr_hash, NULL);
                                                TRACE_INTERFACE_VTABLE (printf ("adding iface override from %s [%p] to %s [%p]\n",
                                                        mono_method_full_name (m1, 1), m1,
                                                        mono_method_full_name (cm, 1), cm));
                                                g_hash_table_insert (override_map, m1, cm);
                                                break;
                                        }
                                }
                                if (mono_class_has_failure (k))
                                        goto fail;
                                
                                if (slot >= 0) 
                                        break;
                        }
                        if (slot >= 0)
                                cm->slot = slot;
                }

                /*Non final newslot methods must be given a non-interface vtable slot*/
                if ((cm->flags & METHOD_ATTRIBUTE_NEW_SLOT) && !(cm->flags & METHOD_ATTRIBUTE_FINAL) && cm->slot >= 0)
                        cm->slot = -1;

                if (cm->slot < 0)
                        cm->slot = cur_slot++;

                if (!(cm->flags & METHOD_ATTRIBUTE_ABSTRACT))
                        vtable [cm->slot] = cm;
        }

        /* override non interface methods */
        for (i = 0; i < onum; i++) {
                MonoMethod *decl = overrides [i*2];
                if (!MONO_CLASS_IS_INTERFACE_INTERNAL (decl->klass)) {
                        g_assert (decl->slot != -1);
                        vtable [decl->slot] = overrides [i*2 + 1];
                        overrides [i * 2 + 1]->slot = decl->slot;
                        if (!override_map)
                                override_map = g_hash_table_new (mono_aligned_addr_hash, NULL);
                        TRACE_INTERFACE_VTABLE (printf ("adding explicit override from %s [%p] to %s [%p]\n", 
                                mono_method_full_name (decl, 1), decl,
                                mono_method_full_name (overrides [i * 2 + 1], 1), overrides [i * 2 + 1]));
                        g_hash_table_insert (override_map, decl, overrides [i * 2 + 1]);

                        if (mono_security_core_clr_enabled ())
                                mono_security_core_clr_check_override (klass, vtable [decl->slot], decl);
                }
        }

        /*
         * If a method occupies more than one place in the vtable, and it is
         * overriden, then change the other occurances too.
         */
        if (override_map) {
                MonoMethod *cm;

                for (i = 0; i < max_vtsize; ++i)
                        if (vtable [i]) {
                                TRACE_INTERFACE_VTABLE (printf ("checking slot %d method %s[%p] for overrides\n", i, mono_method_full_name (vtable [i], 1), vtable [i]));

                                cm = (MonoMethod *)g_hash_table_lookup (override_map, vtable [i]);
                                if (cm)
                                        vtable [i] = cm;
                        }

                g_hash_table_destroy (override_map);
                override_map = NULL;
        }

        if (override_class_map)
                g_hash_table_destroy (override_class_map);

        if (conflict_map) {
                handle_dim_conflicts (vtable, klass, conflict_map);
                g_hash_table_destroy (conflict_map);
        }

        g_slist_free (virt_methods);
        virt_methods = NULL;

        g_assert (cur_slot <= max_vtsize);

        /* Ensure that all vtable slots are filled with concrete instance methods */
        // Now it is okay to implement a class that is not abstract and implements a interface that has an abstract method because it's reabstracted
        if (!mono_class_is_abstract (klass)) {
                for (i = 0; i < cur_slot; ++i) {
                        if (vtable [i] == NULL || (vtable [i]->flags & (METHOD_ATTRIBUTE_ABSTRACT | METHOD_ATTRIBUTE_STATIC))) {
                                if (vtable [i]->is_reabstracted == 1)
                                        continue;
                                char *type_name = mono_type_get_full_name (klass);
                                char *method_name = vtable [i] ? mono_method_full_name (vtable [i], TRUE) : g_strdup ("none");
                                mono_class_set_type_load_failure (klass, "Type %s has invalid vtable method slot %d with method %s", type_name, i, method_name);
                                g_free (type_name);
                                g_free (method_name);

                                if (mono_print_vtable)
                                        print_vtable_layout_result (klass, vtable, cur_slot);

                                g_free (vtable);
                                return;
                        }
                }
        }

        if (mono_class_is_ginst (klass)) {
                MonoClass *gklass = mono_class_get_generic_class (klass)->container_class;

                mono_class_init_internal (gklass);

                klass->vtable_size = MAX (gklass->vtable_size, cur_slot);
        } else {
                /* Check that the vtable_size value computed in mono_class_init_internal () is correct */
                if (klass->vtable_size)
                        g_assert (cur_slot == klass->vtable_size);
                klass->vtable_size = cur_slot;
        }

        /* Try to share the vtable with our parent. */
        if (klass->parent && (klass->parent->vtable_size == klass->vtable_size) && (memcmp (klass->parent->vtable, vtable, sizeof (gpointer) * klass->vtable_size) == 0)) {
                mono_memory_barrier ();
                klass->vtable = klass->parent->vtable;
        } else {
                MonoMethod **tmp = (MonoMethod **)mono_class_alloc0 (klass, sizeof (gpointer) * klass->vtable_size);
                memcpy (tmp, vtable,  sizeof (gpointer) * klass->vtable_size);
                mono_memory_barrier ();
                klass->vtable = tmp;
        }

        DEBUG_INTERFACE_VTABLE (print_vtable_full (klass, klass->vtable, klass->vtable_size, first_non_interface_slot, "FINALLY", FALSE));
        if (mono_print_vtable)
                print_vtable_layout_result (klass, vtable, cur_slot);

        g_free (vtable);

        VERIFY_INTERFACE_VTABLE (mono_class_verify_vtable (klass));
        return;

fail:
        {
        char *name = mono_type_get_full_name (klass);
        if (!is_ok (error))
                mono_class_set_type_load_failure (klass, "VTable setup of type %s failed due to: %s", name, mono_error_get_message (error));
        else
                mono_class_set_type_load_failure (klass, "VTable setup of type %s failed", name);
        mono_error_cleanup (error);
        g_free (name);
        if (mono_print_vtable)
                print_vtable_layout_result (klass, vtable, cur_slot);


        g_free (vtable);
        if (override_map)
                g_hash_table_destroy (override_map);
        if (virt_methods)
                g_slist_free (virt_methods);
        }
}

static char*
concat_two_strings_with_zero (MonoImage *image, const char *s1, const char *s2)
{
        int null_length = strlen ("(null)");
        int len = (s1 ? strlen (s1) : null_length) + (s2 ? strlen (s2) : null_length) + 2;
        char *s = (char *)mono_image_alloc (image, len);
        int result;

        result = g_snprintf (s, len, "%s%c%s", s1 ? s1 : "(null)", '\0', s2 ? s2 : "(null)");
        g_assert (result == len - 1);

        return s;
}


static void
init_sizes_with_info (MonoClass *klass, MonoCachedClassInfo *cached_info)
{
        if (cached_info) {
                mono_loader_lock ();
                klass->instance_size = cached_info->instance_size;
                klass->sizes.class_size = cached_info->class_size;
                klass->packing_size = cached_info->packing_size;
                klass->min_align = cached_info->min_align;
                klass->blittable = cached_info->blittable;
                klass->has_references = cached_info->has_references;
                klass->has_static_refs = cached_info->has_static_refs;
                klass->no_special_static_fields = cached_info->no_special_static_fields;
                klass->has_weak_fields = cached_info->has_weak_fields;
                mono_loader_unlock ();
        }
        else {
                if (!klass->size_inited)
                        mono_class_setup_fields (klass);
        }
}
/*

 * mono_class_init_sizes:
 *
 *   Initializes the size related fields of @klass without loading all field data if possible.
 * Sets the following fields in @klass:
 * - instance_size
 * - sizes.class_size
 * - packing_size
 * - min_align
 * - blittable
 * - has_references
 * - has_static_refs
 * - size_inited
 * Can fail the class.
 *
 * LOCKING: Acquires the loader lock.
 */
void
mono_class_init_sizes (MonoClass *klass)
{
        MonoCachedClassInfo cached_info;
        gboolean has_cached_info;

        if (klass->size_inited)
                return;

        has_cached_info = mono_class_get_cached_class_info (klass, &cached_info);

        init_sizes_with_info (klass, has_cached_info ? &cached_info : NULL);
}


static gboolean
class_has_references (MonoClass *klass)
{
        mono_class_init_sizes (klass);

        /*
         * has_references is not set if this is called recursively, but this is not a problem since this is only used
         * during field layout, and instance fields are initialized before static fields, and instance fields can't
         * embed themselves.
         */
        return klass->has_references;
}

static gboolean
type_has_references (MonoClass *klass, MonoType *ftype)
{
        if (MONO_TYPE_IS_REFERENCE (ftype) || IS_GC_REFERENCE (klass, ftype) || ((MONO_TYPE_ISSTRUCT (ftype) && class_has_references (mono_class_from_mono_type_internal (ftype)))))
                return TRUE;
        if (!ftype->byref && (ftype->type == MONO_TYPE_VAR || ftype->type == MONO_TYPE_MVAR)) {
                MonoGenericParam *gparam = ftype->data.generic_param;

                if (gparam->gshared_constraint)
                        return class_has_references (mono_class_from_mono_type_internal (gparam->gshared_constraint));
        }
        return FALSE;
}

/*
 * mono_class_layout_fields:
 * @class: a class
 * @base_instance_size: base instance size
 * @packing_size:
 *
 * This contains the common code for computing the layout of classes and sizes.
 * This should only be called from mono_class_setup_fields () and
 * typebuilder_setup_fields ().
 *
 * LOCKING: Acquires the loader lock
 */
void
mono_class_layout_fields (MonoClass *klass, int base_instance_size, int packing_size, int explicit_size, gboolean sre)
{
        int i;
        const int top = mono_class_get_field_count (klass);
        guint32 layout = mono_class_get_flags (klass) & TYPE_ATTRIBUTE_LAYOUT_MASK;
        guint32 pass, passes, real_size;
        gboolean gc_aware_layout = FALSE;
        gboolean has_static_fields = FALSE;
        gboolean has_references = FALSE;
        gboolean has_static_refs = FALSE;
        MonoClassField *field;
        gboolean blittable;
        int instance_size = base_instance_size;
        int element_size = -1;
        int class_size, min_align;
        int *field_offsets;
        gboolean *fields_has_references;

        /*
         * We want to avoid doing complicated work inside locks, so we compute all the required
         * information and write it to @klass inside a lock.
         */
        if (klass->fields_inited)
                return;

        if ((packing_size & 0xffffff00) != 0) {
                mono_class_set_type_load_failure (klass, "Could not load struct '%s' with packing size %d >= 256", klass->name, packing_size);
                return;
        }

        if (klass->parent) {
                min_align = klass->parent->min_align;
                /* we use | since it may have been set already */
                has_references = klass->has_references | klass->parent->has_references;
        } else {
                min_align = 1;
        }
        /* We can't really enable 16 bytes alignment until the GC supports it.
        The whole layout/instance size code must be reviewed because we do alignment calculation in terms of the
        boxed instance, which leads to unexplainable holes at the beginning of an object embedding a simd type.
        Bug #506144 is an example of this issue.

         if (klass->simd_type)
                min_align = 16;
         */

        /*
         * When we do generic sharing we need to have layout
         * information for open generic classes (either with a generic
         * context containing type variables or with a generic
         * container), so we don't return in that case anymore.
         */

        if (klass->enumtype) {
                for (i = 0; i < top; i++) {
                        field = &klass->fields [i];
                        if (!(field->type->attrs & FIELD_ATTRIBUTE_STATIC)) {
                                klass->cast_class = klass->element_class = mono_class_from_mono_type_internal (field->type);
                                break;
                        }
                }

                if (!mono_class_enum_basetype_internal (klass)) {
                        mono_class_set_type_load_failure (klass, "The enumeration's base type is invalid.");
                        return;
                }
        }

        /*
         * Enable GC aware auto layout: in this mode, reference
         * fields are grouped together inside objects, increasing collector 
         * performance.
         * Requires that all classes whose layout is known to native code be annotated
         * with [StructLayout (LayoutKind.Sequential)]
         * Value types have gc_aware_layout disabled by default, as per
         * what the default is for other runtimes.
         */
         /* corlib is missing [StructLayout] directives in many places */
        if (layout == TYPE_ATTRIBUTE_AUTO_LAYOUT) {
                if (!klass->valuetype)
                        gc_aware_layout = TRUE;
        }

        /* Compute klass->blittable */
        blittable = TRUE;
        if (klass->parent)
                blittable = klass->parent->blittable;
        if (layout == TYPE_ATTRIBUTE_AUTO_LAYOUT && !(mono_is_corlib_image (klass->image) && !strcmp (klass->name_space, "System") && !strcmp (klass->name, "ValueType")) && top)
                blittable = FALSE;
        for (i = 0; i < top; i++) {
                field = &klass->fields [i];

                if (mono_field_is_deleted (field))
                        continue;
                if (field->type->attrs & FIELD_ATTRIBUTE_STATIC)
                        continue;
                if (blittable) {
                        if (field->type->byref || MONO_TYPE_IS_REFERENCE (field->type)) {
                                blittable = FALSE;
                        } else {
                                MonoClass *field_class = mono_class_from_mono_type_internal (field->type);
                                if (field_class) {
                                        mono_class_setup_fields (field_class);
                                        if (mono_class_has_failure (field_class)) {
                                                ERROR_DECL (field_error);
                                                mono_error_set_for_class_failure (field_error, field_class);
                                                mono_class_set_type_load_failure (klass, "Could not set up field '%s' due to: %s", field->name, mono_error_get_message (field_error));
                                                mono_error_cleanup (field_error);
                                                break;
                                        }
                                }
                                if (!field_class || !field_class->blittable)
                                        blittable = FALSE;
                        }
                }
                if (klass->enumtype)
                        blittable = klass->element_class->blittable;
        }
        if (mono_class_has_failure (klass))
                return;
        if (klass == mono_defaults.string_class)
                blittable = FALSE;

        /* Compute klass->has_references */
        /* 
         * Process non-static fields first, since static fields might recursively
         * refer to the class itself.
         */
        for (i = 0; i < top; i++) {
                MonoType *ftype;

                field = &klass->fields [i];

                if (!(field->type->attrs & FIELD_ATTRIBUTE_STATIC)) {
                        ftype = mono_type_get_underlying_type (field->type);
                        ftype = mono_type_get_basic_type_from_generic (ftype);
                        if (type_has_references (klass, ftype))
                                has_references = TRUE;
                }
        }

        /*
         * Compute field layout and total size (not considering static fields)
         */
        field_offsets = g_new0 (int, top);
        fields_has_references = g_new0 (gboolean, top);
        int first_field_idx = mono_class_has_static_metadata (klass) ? mono_class_get_first_field_idx (klass) : 0;
        switch (layout) {
        case TYPE_ATTRIBUTE_AUTO_LAYOUT:
        case TYPE_ATTRIBUTE_SEQUENTIAL_LAYOUT:
                if (gc_aware_layout)
                        passes = 2;
                else
                        passes = 1;

                if (layout != TYPE_ATTRIBUTE_AUTO_LAYOUT)
                        passes = 1;

                if (klass->parent) {
                        mono_class_setup_fields (klass->parent);
                        if (mono_class_set_type_load_failure_causedby_class (klass, klass->parent, "Cannot initialize parent class"))
                                return;
                        real_size = klass->parent->instance_size;
                } else {
                        real_size = MONO_ABI_SIZEOF (MonoObject);
                }

                for (pass = 0; pass < passes; ++pass) {
                        for (i = 0; i < top; i++){
                                gint32 align;
                                guint32 size;
                                MonoType *ftype;

                                field = &klass->fields [i];

                                if (mono_field_is_deleted (field))
                                        continue;
                                if (field->type->attrs & FIELD_ATTRIBUTE_STATIC)
                                        continue;

                                ftype = mono_type_get_underlying_type (field->type);
                                ftype = mono_type_get_basic_type_from_generic (ftype);
                                if (gc_aware_layout) {
                                        fields_has_references [i] = type_has_references (klass, ftype);
                                        if (fields_has_references [i]) {
                                                if (pass == 1)
                                                        continue;
                                        } else {
                                                if (pass == 0)
                                                        continue;
                                        }
                                }

                                if ((top == 1) && (instance_size == MONO_ABI_SIZEOF (MonoObject)) &&
                                        (strcmp (mono_field_get_name (field), "$PRIVATE$") == 0)) {
                                        /* This field is a hack inserted by MCS to empty structures */
                                        continue;
                                }

                                size = mono_type_size (field->type, &align);
                        
                                /* FIXME (LAMESPEC): should we also change the min alignment according to pack? */
                                align = packing_size ? MIN (packing_size, align): align;
                                /* if the field has managed references, we need to force-align it
                                 * see bug #77788
                                 */
                                if (type_has_references (klass, ftype))
                                        align = MAX (align, TARGET_SIZEOF_VOID_P);

                                min_align = MAX (align, min_align);
                                field_offsets [i] = real_size;
                                if (align) {
                                        field_offsets [i] += align - 1;
                                        field_offsets [i] &= ~(align - 1);
                                }
                                /*TypeBuilders produce all sort of weird things*/
                                g_assert (image_is_dynamic (klass->image) || field_offsets [i] > 0);
                                real_size = field_offsets [i] + size;
                        }

                        instance_size = MAX (real_size, instance_size);
       
                        if (instance_size & (min_align - 1)) {
                                instance_size += min_align - 1;
                                instance_size &= ~(min_align - 1);
                        }
                }
                break;
        case TYPE_ATTRIBUTE_EXPLICIT_LAYOUT: {
                guint8 *ref_bitmap;

                real_size = 0;
                for (i = 0; i < top; i++) {
                        gint32 align;
                        guint32 size;
                        MonoType *ftype;

                        field = &klass->fields [i];

                        /*
                         * There must be info about all the fields in a type if it
                         * uses explicit layout.
                         */
                        if (mono_field_is_deleted (field))
                                continue;
                        if (field->type->attrs & FIELD_ATTRIBUTE_STATIC)
                                continue;

                        size = mono_type_size (field->type, &align);
                        align = packing_size ? MIN (packing_size, align): align;
                        min_align = MAX (align, min_align);

                        if (sre) {
                                /* Already set by typebuilder_setup_fields () */
                                field_offsets [i] = field->offset + MONO_ABI_SIZEOF (MonoObject);
                        } else {
                                int idx = first_field_idx + i;
                                guint32 offset;
                                mono_metadata_field_info (klass->image, idx, &offset, NULL, NULL);
                                field_offsets [i] = offset + MONO_ABI_SIZEOF (MonoObject);
                        }
                        ftype = mono_type_get_underlying_type (field->type);
                        ftype = mono_type_get_basic_type_from_generic (ftype);
                        if (type_has_references (klass, ftype)) {
                                if (field_offsets [i] % TARGET_SIZEOF_VOID_P) {
                                        mono_class_set_type_load_failure (klass, "Reference typed field '%s' has explicit offset that is not pointer-size aligned.", field->name);
                                }
                        }

                        /*
                         * Calc max size.
                         */
                        real_size = MAX (real_size, size + field_offsets [i]);
                }

                if (klass->has_references) {
                        ref_bitmap = g_new0 (guint8, real_size / TARGET_SIZEOF_VOID_P);

                        /* Check for overlapping reference and non-reference fields */
                        for (i = 0; i < top; i++) {
                                MonoType *ftype;

                                field = &klass->fields [i];

                                if (mono_field_is_deleted (field))
                                        continue;
                                if (field->type->attrs & FIELD_ATTRIBUTE_STATIC)
                                        continue;
                                ftype = mono_type_get_underlying_type (field->type);
                                if (MONO_TYPE_IS_REFERENCE (ftype))
                                        ref_bitmap [field_offsets [i] / TARGET_SIZEOF_VOID_P] = 1;
                        }
                        for (i = 0; i < top; i++) {
                                field = &klass->fields [i];

                                if (mono_field_is_deleted (field))
                                        continue;
                                if (field->type->attrs & FIELD_ATTRIBUTE_STATIC)
                                        continue;

                                // FIXME: Too much code does this
#if 0
                                if (!MONO_TYPE_IS_REFERENCE (field->type) && ref_bitmap [field_offsets [i] / TARGET_SIZEOF_VOID_P]) {
                                        mono_class_set_type_load_failure (klass, "Could not load type '%s' because it contains an object field at offset %d that is incorrectly aligned or overlapped by a non-object field.", klass->name, field_offsets [i]);
                                }
#endif
                        }
                        g_free (ref_bitmap);
                }

                instance_size = MAX (real_size, instance_size);
                if (!((layout == TYPE_ATTRIBUTE_EXPLICIT_LAYOUT) && explicit_size)) {
                        if (instance_size & (min_align - 1)) {
                                instance_size += min_align - 1;
                                instance_size &= ~(min_align - 1);
                        }
                }
                break;
        }
        }

        if (layout != TYPE_ATTRIBUTE_EXPLICIT_LAYOUT) {
                /*
                 * This leads to all kinds of problems with nested structs, so only
                 * enable it when a MONO_DEBUG property is set.
                 *
                 * For small structs, set min_align to at least the struct size to improve
                 * performance, and since the JIT memset/memcpy code assumes this and generates 
                 * unaligned accesses otherwise. See #78990 for a testcase.
                 */
                if (mono_align_small_structs && top) {
                        if (instance_size <= MONO_ABI_SIZEOF (MonoObject) + MONO_ABI_SIZEOF (gpointer))
                                min_align = MAX (min_align, instance_size - MONO_ABI_SIZEOF (MonoObject));
                }
        }

        MonoType *klass_byval_arg = m_class_get_byval_arg (klass);
        if (klass_byval_arg->type == MONO_TYPE_VAR || klass_byval_arg->type == MONO_TYPE_MVAR)
                instance_size = MONO_ABI_SIZEOF (MonoObject) + mono_type_stack_size_internal (klass_byval_arg, NULL, TRUE);
        else if (klass_byval_arg->type == MONO_TYPE_PTR)
                instance_size = MONO_ABI_SIZEOF (MonoObject) + MONO_ABI_SIZEOF (gpointer);

        if (klass_byval_arg->type == MONO_TYPE_SZARRAY || klass_byval_arg->type == MONO_TYPE_ARRAY)
                element_size = mono_class_array_element_size (klass->element_class);

        /* Publish the data */
        mono_loader_lock ();
        if (klass->instance_size && !klass->image->dynamic) {
                /* Might be already set using cached info */
                if (klass->instance_size != instance_size) {
                        /* Emit info to help debugging */
                        g_print ("%s\n", mono_class_full_name (klass));
                        g_print ("%d %d %d %d\n", klass->instance_size, instance_size, klass->blittable, blittable);
                        g_print ("%d %d %d %d\n", klass->has_references, has_references, klass->packing_size, packing_size);
                        g_print ("%d %d\n", klass->min_align, min_align);
                        for (i = 0; i < top; ++i) {
                                field = &klass->fields [i];
                                if (!(field->type->attrs & FIELD_ATTRIBUTE_STATIC))
                                        printf ("  %s %d %d %d\n", klass->fields [i].name, klass->fields [i].offset, field_offsets [i], fields_has_references [i]);
                        }
                }
                g_assert (klass->instance_size == instance_size);
        } else {
                klass->instance_size = instance_size;
        }
        klass->blittable = blittable;
        klass->has_references = has_references;
        klass->packing_size = packing_size;
        klass->min_align = min_align;
        for (i = 0; i < top; ++i) {
                field = &klass->fields [i];
                if (!(field->type->attrs & FIELD_ATTRIBUTE_STATIC))
                        klass->fields [i].offset = field_offsets [i];
        }

        if (klass_byval_arg->type == MONO_TYPE_SZARRAY || klass_byval_arg->type == MONO_TYPE_ARRAY)
                klass->sizes.element_size = element_size;

        mono_memory_barrier ();
        klass->size_inited = 1;
        mono_loader_unlock ();

        /*
         * Compute static field layout and size
         * Static fields can reference the class itself, so this has to be
         * done after instance_size etc. are initialized.
         */
        class_size = 0;
        for (i = 0; i < top; i++) {
                gint32 align;
                guint32 size;

                field = &klass->fields [i];
                        
                if (!(field->type->attrs & FIELD_ATTRIBUTE_STATIC) || field->type->attrs & FIELD_ATTRIBUTE_LITERAL)
                        continue;
                if (mono_field_is_deleted (field))
                        continue;

                if (mono_type_has_exceptions (field->type)) {
                        mono_class_set_type_load_failure (klass, "Field '%s' has an invalid type.", field->name);
                        break;
                }

                has_static_fields = TRUE;

                size = mono_type_size (field->type, &align);
                field_offsets [i] = class_size;
                /*align is always non-zero here*/
                field_offsets [i] += align - 1;
                field_offsets [i] &= ~(align - 1);
                class_size = field_offsets [i] + size;
        }

        if (has_static_fields && class_size == 0)
                /* Simplify code which depends on class_size != 0 if the class has static fields */
                class_size = 8;

        /* Compute klass->has_static_refs */
        has_static_refs = FALSE;
        for (i = 0; i < top; i++) {
                MonoType *ftype;

                field = &klass->fields [i];

                if (field->type->attrs & FIELD_ATTRIBUTE_STATIC) {
                        ftype = mono_type_get_underlying_type (field->type);
                        ftype = mono_type_get_basic_type_from_generic (ftype);
                        if (type_has_references (klass, ftype))
                                has_static_refs = TRUE;
                }
        }

        /*valuetypes can't be neither bigger than 1Mb or empty. */
        if (klass->valuetype && (klass->instance_size <= 0 || klass->instance_size > (0x100000 + MONO_ABI_SIZEOF (MonoObject)))) {
                /* Special case compiler generated types */
                /* Hard to check for [CompilerGenerated] here */
                if (!strstr (klass->name, "StaticArrayInitTypeSize") && !strstr (klass->name, "$ArrayType"))
                        mono_class_set_type_load_failure (klass, "Value type instance size (%d) cannot be zero, negative, or bigger than 1Mb", klass->instance_size);
        }

        // Weak field support
        //
        // FIXME:
        // - generic instances
        // - Disallow on structs/static fields/nonref fields
        gboolean has_weak_fields = FALSE;

        if (mono_class_has_static_metadata (klass)) {
                for (MonoClass *p = klass; p != NULL; p = p->parent) {
                        gpointer iter = NULL;
                        guint32 first_field_idx = mono_class_get_first_field_idx (p);

                        while ((field = mono_class_get_fields_internal (p, &iter))) {
                                guint32 field_idx = first_field_idx + (field - p->fields);
                                if (MONO_TYPE_IS_REFERENCE (field->type) && mono_assembly_is_weak_field (p->image, field_idx + 1)) {
                                        has_weak_fields = TRUE;
                                        mono_trace_message (MONO_TRACE_TYPE, "Field %s:%s at offset %x is weak.", field->parent->name, field->name, field->offset);
                                }
                        }
                }
        }

        /*
         * Check that any fields of IsByRefLike type are instance
         * fields and only inside other IsByRefLike structs.
         *
         * (Has to be done late because we call
         * mono_class_from_mono_type_internal which may recursively
         * refer to the current class)
         */
        gboolean allow_isbyreflike_fields = m_class_is_byreflike (klass);
        for (i = 0; i < top; i++) {
                field = &klass->fields [i];

                if (mono_field_is_deleted (field))
                        continue;
                if ((field->type->attrs & FIELD_ATTRIBUTE_LITERAL))
                        continue;
                MonoClass *field_class = NULL;
                /* have to be careful not to recursively invoke mono_class_init on a static field.
                 * for example - if the field is an array of a subclass of klass, we can loop.
                 */
                switch (field->type->type) {
                case MONO_TYPE_TYPEDBYREF:
                case MONO_TYPE_VALUETYPE:
                case MONO_TYPE_GENERICINST:
                        field_class = mono_class_from_mono_type_internal (field->type);
                        break;
                default:
                        break;
                }
                if (!field_class || !m_class_is_byreflike (field_class))
                        continue;
                if ((field->type->attrs & FIELD_ATTRIBUTE_STATIC)) {
                        mono_class_set_type_load_failure (klass, "Static ByRefLike field '%s' is not allowed", field->name);
                        return;
                } else {
                        /* instance field */
                        if (allow_isbyreflike_fields)
                                continue;
                        mono_class_set_type_load_failure (klass, "Instance ByRefLike field '%s' not in a ref struct", field->name);
                        return;
                }
        }

        /* Publish the data */
        mono_loader_lock ();
        if (!klass->rank)
                klass->sizes.class_size = class_size;
        klass->has_static_refs = has_static_refs;
        klass->has_weak_fields = has_weak_fields;
        for (i = 0; i < top; ++i) {
                field = &klass->fields [i];

                if (field->type->attrs & FIELD_ATTRIBUTE_STATIC)
                        field->offset = field_offsets [i];
        }
        mono_memory_barrier ();
        klass->fields_inited = 1;
        mono_loader_unlock ();

        g_free (field_offsets);
        g_free (fields_has_references);
}

static MonoMethod *default_ghc = NULL;
static MonoMethod *default_finalize = NULL;
static int finalize_slot = -1;
static int ghc_slot = -1;

static void
initialize_object_slots (MonoClass *klass)
{
        int i;
        if (default_ghc)
                return;
        if (klass == mono_defaults.object_class) {
                mono_class_setup_vtable (klass);
                for (i = 0; i < klass->vtable_size; ++i) {
                        MonoMethod *cm = klass->vtable [i];
       
                        if (!strcmp (cm->name, "GetHashCode"))
                                ghc_slot = i;
                        else if (!strcmp (cm->name, "Finalize"))
                                finalize_slot = i;
                }

                g_assert (ghc_slot >= 0);
                default_ghc = klass->vtable [ghc_slot];

                g_assert (finalize_slot >= 0);
                default_finalize = klass->vtable [finalize_slot];
        }
}

int
mono_class_get_object_finalize_slot ()
{
        return finalize_slot;
}

MonoMethod *
mono_class_get_default_finalize_method ()
{
        return default_finalize;
}

typedef struct {
        MonoMethod *array_method;
        char *name;
} GenericArrayMethodInfo;

static int generic_array_method_num = 0;
static GenericArrayMethodInfo *generic_array_method_info = NULL;

static void
setup_generic_array_ifaces (MonoClass *klass, MonoClass *iface, MonoMethod **methods, int pos, GHashTable *cache)
{
        MonoGenericContext tmp_context;
        int i;

        tmp_context.class_inst = NULL;
        tmp_context.method_inst = mono_class_get_generic_class (iface)->context.class_inst;
        //g_print ("setting up array interface: %s\n", mono_type_get_name_full (m_class_get_byval_arg (iface), 0));

        for (i = 0; i < generic_array_method_num; i++) {
                ERROR_DECL (error);
                MonoMethod *m = generic_array_method_info [i].array_method;
                MonoMethod *inflated, *helper;

                inflated = mono_class_inflate_generic_method_checked (m, &tmp_context, error);
                mono_error_assert_ok (error);
                helper = (MonoMethod*)g_hash_table_lookup (cache, inflated);
                if (!helper) {
                        helper = mono_marshal_get_generic_array_helper (klass, generic_array_method_info [i].name, inflated);
                        g_hash_table_insert (cache, inflated, helper);
                }
                methods [pos ++] = helper;
        }
}

static int
generic_array_methods (MonoClass *klass)
{
        int i, count_generic = 0, mcount;
        GList *list = NULL, *tmp;
        if (generic_array_method_num)
                return generic_array_method_num;
        mono_class_setup_methods (klass->parent); /*This is setting up System.Array*/
        g_assert (!mono_class_has_failure (klass->parent)); /*So hitting this assert is a huge problem*/
        mcount = mono_class_get_method_count (klass->parent);
        for (i = 0; i < mcount; i++) {
                MonoMethod *m = klass->parent->methods [i];
                if (!strncmp (m->name, "InternalArray__", 15)) {
                        count_generic++;
                        list = g_list_prepend (list, m);
                }
        }
        list = g_list_reverse (list);
        generic_array_method_info = (GenericArrayMethodInfo *)mono_image_alloc (mono_defaults.corlib, sizeof (GenericArrayMethodInfo) * count_generic);
        i = 0;
        for (tmp = list; tmp; tmp = tmp->next) {
                const char *mname, *iname;
                gchar *name;
                MonoMethod *m = (MonoMethod *)tmp->data;
                const char *ireadonlylist_prefix = "InternalArray__IReadOnlyList_";
                const char *ireadonlycollection_prefix = "InternalArray__IReadOnlyCollection_";

                generic_array_method_info [i].array_method = m;
                if (!strncmp (m->name, "InternalArray__ICollection_", 27)) {
                        iname = "System.Collections.Generic.ICollection`1.";
                        mname = m->name + 27;
                } else if (!strncmp (m->name, "InternalArray__IEnumerable_", 27)) {
                        iname = "System.Collections.Generic.IEnumerable`1.";
                        mname = m->name + 27;
                } else if (!strncmp (m->name, ireadonlylist_prefix, strlen (ireadonlylist_prefix))) {
                        iname = "System.Collections.Generic.IReadOnlyList`1.";
                        mname = m->name + strlen (ireadonlylist_prefix);
                } else if (!strncmp (m->name, ireadonlycollection_prefix, strlen (ireadonlycollection_prefix))) {
                        iname = "System.Collections.Generic.IReadOnlyCollection`1.";
                        mname = m->name + strlen (ireadonlycollection_prefix);
                } else if (!strncmp (m->name, "InternalArray__", 15)) {
                        iname = "System.Collections.Generic.IList`1.";
                        mname = m->name + 15;
                } else {
                        g_assert_not_reached ();
                }

                name = (gchar *)mono_image_alloc (mono_defaults.corlib, strlen (iname) + strlen (mname) + 1);
                strcpy (name, iname);
                strcpy (name + strlen (iname), mname);
                generic_array_method_info [i].name = name;
                i++;
        }
        /*g_print ("array generic methods: %d\n", count_generic);*/

        generic_array_method_num = count_generic;
        g_list_free (list);
        return generic_array_method_num;
}

/*
 * Global pool of interface IDs, represented as a bitset.
 * LOCKING: Protected by the classes lock.
 */
static MonoBitSet *global_interface_bitset = NULL;

/*
 * mono_unload_interface_ids:
 * @bitset: bit set of interface IDs
 *
 * When an image is unloaded, the interface IDs associated with
 * the image are put back in the global pool of IDs so the numbers
 * can be reused.
 */
void
mono_unload_interface_ids (MonoBitSet *bitset)
{
        classes_lock ();
        mono_bitset_sub (global_interface_bitset, bitset);
        classes_unlock ();
}

void
mono_unload_interface_id (MonoClass *klass)
{
        if (global_interface_bitset && klass->interface_id) {
                classes_lock ();
                mono_bitset_clear (global_interface_bitset, klass->interface_id);
                classes_unlock ();
        }
}

/**
 * mono_get_unique_iid:
 * \param klass interface
 *
 * Assign a unique integer ID to the interface represented by \p klass.
 * The ID will positive and as small as possible.
 * LOCKING: Acquires the classes lock.
 * \returns The new ID.
 */
static guint32
mono_get_unique_iid (MonoClass *klass)
{
        int iid;
        
        g_assert (MONO_CLASS_IS_INTERFACE_INTERNAL (klass));

        classes_lock ();

        if (!global_interface_bitset) {
                global_interface_bitset = mono_bitset_new (128, 0);
                mono_bitset_set (global_interface_bitset, 0); //don't let 0 be a valid iid
        }

        iid = mono_bitset_find_first_unset (global_interface_bitset, -1);
        if (iid < 0) {
                int old_size = mono_bitset_size (global_interface_bitset);
                MonoBitSet *new_set = mono_bitset_clone (global_interface_bitset, old_size * 2);
                mono_bitset_free (global_interface_bitset);
                global_interface_bitset = new_set;
                iid = old_size;
        }
        mono_bitset_set (global_interface_bitset, iid);
        /* set the bit also in the per-image set */
        if (!mono_class_is_ginst (klass)) {
                if (klass->image->interface_bitset) {
                        if (iid >= mono_bitset_size (klass->image->interface_bitset)) {
                                MonoBitSet *new_set = mono_bitset_clone (klass->image->interface_bitset, iid + 1);
                                mono_bitset_free (klass->image->interface_bitset);
                                klass->image->interface_bitset = new_set;
                        }
                } else {
                        klass->image->interface_bitset = mono_bitset_new (iid + 1, 0);
                }
                mono_bitset_set (klass->image->interface_bitset, iid);
        }

        classes_unlock ();

#ifndef MONO_SMALL_CONFIG
        if (mono_print_vtable) {
                int generic_id;
                char *type_name = mono_type_full_name (m_class_get_byval_arg (klass));
                MonoGenericClass *gklass = mono_class_try_get_generic_class (klass);
                if (gklass && !gklass->context.class_inst->is_open) {
                        generic_id = gklass->context.class_inst->id;
                        g_assert (generic_id != 0);
                } else {
                        generic_id = 0;
                }
                printf ("Interface: assigned id %d to %s|%s|%d\n", iid, klass->image->assembly_name, type_name, generic_id);
                g_free (type_name);
        }
#endif

        /* I've confirmed iids safe past 16 bits, however bitset code uses a signed int while testing.
         * Once this changes, it should be safe for us to allow 2^32-1 interfaces, until then 2^31-2 is the max. */
        g_assert (iid < INT_MAX);
        return iid;
}

/**
 * mono_class_init_internal:
 * \param klass the class to initialize
 *
 * Compute the \c instance_size, \c class_size and other infos that cannot be 
 * computed at \c mono_class_get time. Also compute vtable_size if possible. 
 * Initializes the following fields in \p klass:
 * - all the fields initialized by \c mono_class_init_sizes
 * - has_cctor
 * - ghcimpl
 * - inited
 *
 * LOCKING: Acquires the loader lock.
 *
 * \returns TRUE on success or FALSE if there was a problem in loading
 * the type (incorrect assemblies, missing assemblies, methods, etc).
 */
gboolean
mono_class_init_internal (MonoClass *klass)
{
        int i, vtable_size = 0, array_method_count = 0;
        MonoCachedClassInfo cached_info;
        gboolean has_cached_info;
        gboolean locked = FALSE;
        gboolean ghcimpl = FALSE;
        gboolean has_cctor = FALSE;
        int first_iface_slot = 0;
        
        g_assert (klass);

        /* Double-checking locking pattern */
        if (klass->inited || mono_class_has_failure (klass))
                return !mono_class_has_failure (klass);

        /*g_print ("Init class %s\n", mono_type_get_full_name (klass));*/

        /*
         * This function can recursively call itself.
         */
        GSList *init_list = (GSList *)mono_native_tls_get_value (init_pending_tls_id);
        if (g_slist_find (init_list, klass)) {
                mono_class_set_type_load_failure (klass, "Recursive type definition detected %s.%s", klass->name_space, klass->name);
                goto leave_no_init_pending;
        }
        init_list = g_slist_prepend (init_list, klass);
        mono_native_tls_set_value (init_pending_tls_id, init_list);

        /*
         * We want to avoid doing complicated work inside locks, so we compute all the required
         * information and write it to @klass inside a lock.
         */

        if (mono_verifier_is_enabled_for_class (klass) && !mono_verifier_verify_class (klass)) {
                mono_class_set_type_load_failure (klass, "%s", concat_two_strings_with_zero (klass->image, klass->name, klass->image->assembly_name));
                goto leave;
        }

        MonoType *klass_byval_arg;
        klass_byval_arg = m_class_get_byval_arg (klass);
        if (klass_byval_arg->type == MONO_TYPE_ARRAY || klass_byval_arg->type == MONO_TYPE_SZARRAY) {
                MonoClass *element_class = klass->element_class;
                MonoClass *cast_class = klass->cast_class;

                if (!element_class->inited) 
                        mono_class_init_internal (element_class);
                if (mono_class_set_type_load_failure_causedby_class (klass, element_class, "Could not load array element class"))
                        goto leave;
                if (!cast_class->inited)
                        mono_class_init_internal (cast_class);
                if (mono_class_set_type_load_failure_causedby_class (klass, cast_class, "Could not load array cast class"))
                        goto leave;
        }

        UnlockedIncrement (&mono_stats.initialized_class_count);

        if (mono_class_is_ginst (klass) && !mono_class_get_generic_class (klass)->is_dynamic) {
                MonoClass *gklass = mono_class_get_generic_class (klass)->container_class;

                mono_class_init_internal (gklass);
                if (mono_class_set_type_load_failure_causedby_class (klass, gklass, "Generic Type Definition failed to init"))
                        goto leave;

                mono_loader_lock ();
                mono_class_setup_interface_id_internal (klass);
                mono_loader_unlock ();
        }

        if (klass->parent && !klass->parent->inited)
                mono_class_init_internal (klass->parent);

        has_cached_info = mono_class_get_cached_class_info (klass, &cached_info);

        /* Compute instance size etc. */
        init_sizes_with_info (klass, has_cached_info ? &cached_info : NULL);
        if (mono_class_has_failure (klass))
                goto leave;

        mono_class_setup_supertypes (klass);

        if (!default_ghc)
                initialize_object_slots (klass);

        /* 
         * Initialize the rest of the data without creating a generic vtable if possible.
         * If possible, also compute vtable_size, so mono_class_create_runtime_vtable () can
         * also avoid computing a generic vtable.
         */
        if (has_cached_info) {
                /* AOT case */
                vtable_size = cached_info.vtable_size;
                ghcimpl = cached_info.ghcimpl;
                has_cctor = cached_info.has_cctor;
        } else if (klass->rank == 1 && klass_byval_arg->type == MONO_TYPE_SZARRAY) {
                /* SZARRAY can have 3 vtable layouts, with and without the stelemref method and enum element type
                 * The first slot if for array with.
                 */
                static int szarray_vtable_size[3] = { 0 };

                int slot;

                if (MONO_TYPE_IS_REFERENCE (m_class_get_byval_arg (m_class_get_element_class (klass))))
                        slot = 0;
                else if (klass->element_class->enumtype)
                        slot = 1;
                else
                        slot = 2;

                /* SZARRAY case */
                if (!szarray_vtable_size [slot]) {
                        mono_class_setup_vtable (klass);
                        szarray_vtable_size [slot] = klass->vtable_size;
                        vtable_size = klass->vtable_size;
                } else {
                        vtable_size = szarray_vtable_size[slot];
                }
        } else if (mono_class_is_ginst (klass) && !MONO_CLASS_IS_INTERFACE_INTERNAL (klass)) {
                MonoClass *gklass = mono_class_get_generic_class (klass)->container_class;

                /* Generic instance case */
                ghcimpl = gklass->ghcimpl;
                has_cctor = gklass->has_cctor;

                mono_class_setup_vtable (gklass);
                if (mono_class_set_type_load_failure_causedby_class (klass, gklass, "Generic type definition failed to init"))
                        goto leave;

                vtable_size = gklass->vtable_size;
        } else {
                /* General case */

                /* ghcimpl is not currently used
                klass->ghcimpl = 1;
                if (klass->parent) {
                        MonoMethod *cmethod = klass->vtable [ghc_slot];
                        if (cmethod->is_inflated)
                                cmethod = ((MonoMethodInflated*)cmethod)->declaring;
                        if (cmethod == default_ghc) {
                                klass->ghcimpl = 0;
                        }
                }
                */

                /* C# doesn't allow interfaces to have cctors */
                if (!MONO_CLASS_IS_INTERFACE_INTERNAL (klass) || klass->image != mono_defaults.corlib) {
                        MonoMethod *cmethod = NULL;

                        if (mono_class_is_ginst (klass)) {
                                MonoClass *gklass = mono_class_get_generic_class (klass)->container_class;

                                /* Generic instance case */
                                ghcimpl = gklass->ghcimpl;
                                has_cctor = gklass->has_cctor;
                        } else if (klass->type_token && !image_is_dynamic(klass->image)) {
                                cmethod = mono_find_method_in_metadata (klass, ".cctor", 0, METHOD_ATTRIBUTE_SPECIAL_NAME);
                                /* The find_method function ignores the 'flags' argument */
                                if (cmethod && (cmethod->flags & METHOD_ATTRIBUTE_SPECIAL_NAME))
                                        has_cctor = 1;
                        } else {
                                mono_class_setup_methods (klass);
                                if (mono_class_has_failure (klass))
                                        goto leave;

                                int mcount = mono_class_get_method_count (klass);
                                for (i = 0; i < mcount; ++i) {
                                        MonoMethod *method = klass->methods [i];
                                        if ((method->flags & METHOD_ATTRIBUTE_SPECIAL_NAME) && 
                                                (strcmp (".cctor", method->name) == 0)) {
                                                has_cctor = 1;
                                                break;
                                        }
                                }
                        }
                }
        }

        if (klass->rank) {
                array_method_count = 3 + (klass->rank > 1? 2: 1);

                if (klass->interface_count) {
                        int count_generic = generic_array_methods (klass);
                        array_method_count += klass->interface_count * count_generic;
                }
        }

        if (klass->parent) {
                if (!klass->parent->vtable_size)
                        mono_class_setup_vtable (klass->parent);
                if (mono_class_set_type_load_failure_causedby_class (klass, klass->parent, "Parent class vtable failed to initialize"))
                        goto leave;
                g_assert (klass->parent->vtable_size);
                first_iface_slot = klass->parent->vtable_size;
                if (mono_class_need_stelemref_method (klass))
                        ++first_iface_slot;
        }

        /*
         * Do the actual changes to @klass inside the loader lock
         */
        mono_loader_lock ();
        locked = TRUE;

        if (klass->inited || mono_class_has_failure (klass)) {
                mono_loader_unlock ();
                /* Somebody might have gotten in before us */
                return !mono_class_has_failure (klass);
        }

        UnlockedIncrement (&mono_stats.initialized_class_count);

        if (mono_class_is_ginst (klass) && !mono_class_get_generic_class (klass)->is_dynamic)
                UnlockedIncrement (&mono_stats.generic_class_count);

        if (mono_class_is_ginst (klass) || image_is_dynamic (klass->image) || !klass->type_token || (has_cached_info && !cached_info.has_nested_classes))
                klass->nested_classes_inited = TRUE;
        klass->ghcimpl = ghcimpl;
        klass->has_cctor = has_cctor;
        if (vtable_size)
                klass->vtable_size = vtable_size;
        if (has_cached_info) {
                klass->has_finalize = cached_info.has_finalize;
                klass->has_finalize_inited = TRUE;
        }
        if (klass->rank)
                mono_class_set_method_count (klass, array_method_count);

        mono_loader_unlock ();
        locked = FALSE;

        setup_interface_offsets (klass, first_iface_slot, TRUE);

        if (mono_security_core_clr_enabled ())
                mono_security_core_clr_check_inheritance (klass);

        if (mono_class_is_ginst (klass) && !mono_verifier_class_is_valid_generic_instantiation (klass))
                mono_class_set_type_load_failure (klass, "Invalid generic instantiation");

        goto leave;

leave:
        init_list = (GSList*)mono_native_tls_get_value (init_pending_tls_id);
        init_list = g_slist_remove (init_list, klass);
        mono_native_tls_set_value (init_pending_tls_id, init_list);

leave_no_init_pending:
        if (locked)
                mono_loader_unlock ();

        /* Leave this for last */
        mono_loader_lock ();
        klass->inited = 1;
        mono_loader_unlock ();

        return !mono_class_has_failure (klass);
}

gboolean
mono_class_init_checked (MonoClass *klass, MonoError *error)
{
        error_init (error);
        gboolean const success = mono_class_init_internal (klass);
        if (!success)
                mono_error_set_for_class_failure (error, klass);
        return success;
}

#ifndef DISABLE_COM
/*
 * COM initialization is delayed until needed.
 * However when a [ComImport] attribute is present on a type it will trigger
 * the initialization. This is not a problem unless the BCL being executed 
 * lacks the types that COM depends on (e.g. Variant on Silverlight).
 */
static void
init_com_from_comimport (MonoClass *klass)
{
        /* we don't always allow COM initialization under the CoreCLR (e.g. Moonlight does not require it) */
        if (mono_security_core_clr_enabled ()) {
                /* but some other CoreCLR user could requires it for their platform (i.e. trusted) code */
                if (!mono_security_core_clr_determine_platform_image (klass->image)) {
                        /* but it can not be made available for application (i.e. user code) since all COM calls
                         * are considered native calls. In this case we fail with a TypeLoadException (just like
                         * Silverlight 2 does */
                        mono_class_set_type_load_failure (klass, "");
                        return;
                }
        }

        /* FIXME : we should add an extra checks to ensure COM can be initialized properly before continuing */
}
#endif /*DISABLE_COM*/

/*
 * LOCKING: this assumes the loader lock is held
 */
void
mono_class_setup_parent (MonoClass *klass, MonoClass *parent)
{
        gboolean system_namespace;
        gboolean is_corlib = mono_is_corlib_image (klass->image);

        system_namespace = !strcmp (klass->name_space, "System") && is_corlib;

        /* if root of the hierarchy */
        if (system_namespace && !strcmp (klass->name, "Object")) {
                klass->parent = NULL;
                klass->instance_size = MONO_ABI_SIZEOF (MonoObject);
                return;
        }
        if (!strcmp (klass->name, "<Module>")) {
                klass->parent = NULL;
                klass->instance_size = 0;
                return;
        }

        if (!MONO_CLASS_IS_INTERFACE_INTERNAL (klass)) {
                /* Imported COM Objects always derive from __ComObject. */
#ifndef DISABLE_COM
                if (MONO_CLASS_IS_IMPORT (klass)) {
                        init_com_from_comimport (klass);
                        if (parent == mono_defaults.object_class)
                                parent = mono_class_get_com_object_class ();
                }
#endif
                if (!parent) {
                        /* set the parent to something useful and safe, but mark the type as broken */
                        parent = mono_defaults.object_class;
                        mono_class_set_type_load_failure (klass, "");
                        g_assert (parent);
                }

                klass->parent = parent;

                if (mono_class_is_ginst (parent) && !parent->name) {
                        /*
                         * If the parent is a generic instance, we may get
                         * called before it is fully initialized, especially
                         * before it has its name.
                         */
                        return;
                }

#ifndef DISABLE_REMOTING
                klass->marshalbyref = parent->marshalbyref;
                klass->contextbound  = parent->contextbound;
#endif

                klass->delegate  = parent->delegate;

                if (MONO_CLASS_IS_IMPORT (klass) || mono_class_is_com_object (parent))
                        mono_class_set_is_com_object (klass);
                
                if (system_namespace) {
#ifndef DISABLE_REMOTING
                        if (klass->name [0] == 'M' && !strcmp (klass->name, "MarshalByRefObject"))
                                klass->marshalbyref = 1;

                        if (klass->name [0] == 'C' && !strcmp (klass->name, "ContextBoundObject")) 
                                klass->contextbound  = 1;
#endif
                        if (klass->name [0] == 'D' && !strcmp (klass->name, "Delegate")) 
                                klass->delegate  = 1;
                }

                if (klass->parent->enumtype || (mono_is_corlib_image (klass->parent->image) && (strcmp (klass->parent->name, "ValueType") == 0) && 
                                                (strcmp (klass->parent->name_space, "System") == 0)))
                        klass->valuetype = 1;
                if (mono_is_corlib_image (klass->parent->image) && ((strcmp (klass->parent->name, "Enum") == 0) && (strcmp (klass->parent->name_space, "System") == 0))) {
                        klass->valuetype = klass->enumtype = 1;
                }
                /*klass->enumtype = klass->parent->enumtype; */
        } else {
                /* initialize com types if COM interfaces are present */
#ifndef DISABLE_COM
                if (MONO_CLASS_IS_IMPORT (klass))
                        init_com_from_comimport (klass);
#endif
                klass->parent = NULL;
        }

}

/* Locking: must be called with the loader lock held. */
static void
mono_class_setup_interface_id_internal (MonoClass *klass)
{
        if (!MONO_CLASS_IS_INTERFACE_INTERNAL (klass) || klass->interface_id)
                return;
        klass->interface_id = mono_get_unique_iid (klass);

        if (mono_is_corlib_image (klass->image) && !strcmp (m_class_get_name_space (klass), "System.Collections.Generic")) {
                //FIXME IEnumerator needs to be special because GetEnumerator uses magic under the hood
            /* FIXME: System.Array/InternalEnumerator don't need all this interface fabrication machinery.
            * MS returns diferrent types based on which instance is called. For example:
            *   object obj = new byte[10][];
            *   Type a = ((IEnumerable<byte[]>)obj).GetEnumerator ().GetType ();
            *   Type b = ((IEnumerable<IList<byte>>)obj).GetEnumerator ().GetType ();
            *   a != b ==> true
                */
                const char *name = m_class_get_name (klass);
                if (!strcmp (name, "IList`1") || !strcmp (name, "ICollection`1") || !strcmp (name, "IEnumerable`1") || !strcmp (name, "IEnumerator`1"))
                        klass->is_array_special_interface = 1;
        }
}


/*
 * LOCKING: this assumes the loader lock is held
 */
void
mono_class_setup_mono_type (MonoClass *klass)
{
        const char *name = klass->name;
        const char *nspace = klass->name_space;
        gboolean is_corlib = mono_is_corlib_image (klass->image);

        klass->this_arg.byref = 1;
        klass->this_arg.data.klass = klass;
        klass->this_arg.type = MONO_TYPE_CLASS;
        klass->_byval_arg.data.klass = klass;
        klass->_byval_arg.type = MONO_TYPE_CLASS;

        if (is_corlib && !strcmp (nspace, "System")) {
                if (!strcmp (name, "ValueType")) {
                        /*
                         * do not set the valuetype bit for System.ValueType.
                         * klass->valuetype = 1;
                         */
                        klass->blittable = TRUE;
                } else if (!strcmp (name, "Enum")) {
                        /*
                         * do not set the valuetype bit for System.Enum.
                         * klass->valuetype = 1;
                         */
                        klass->valuetype = 0;
                        klass->enumtype = 0;
                } else if (!strcmp (name, "Object")) {
                        klass->_byval_arg.type = MONO_TYPE_OBJECT;
                        klass->this_arg.type = MONO_TYPE_OBJECT;
                } else if (!strcmp (name, "String")) {
                        klass->_byval_arg.type = MONO_TYPE_STRING;
                        klass->this_arg.type = MONO_TYPE_STRING;
                } else if (!strcmp (name, "TypedReference")) {
                        klass->_byval_arg.type = MONO_TYPE_TYPEDBYREF;
                        klass->this_arg.type = MONO_TYPE_TYPEDBYREF;
                }
        }

        if (klass->valuetype) {
                int t = MONO_TYPE_VALUETYPE;

                if (is_corlib && !strcmp (nspace, "System")) {
                        switch (*name) {
                        case 'B':
                                if (!strcmp (name, "Boolean")) {
                                        t = MONO_TYPE_BOOLEAN;
                                } else if (!strcmp(name, "Byte")) {
                                        t = MONO_TYPE_U1;
                                        klass->blittable = TRUE;                                                
                                }
                                break;
                        case 'C':
                                if (!strcmp (name, "Char")) {
                                        t = MONO_TYPE_CHAR;
                                }
                                break;
                        case 'D':
                                if (!strcmp (name, "Double")) {
                                        t = MONO_TYPE_R8;
                                        klass->blittable = TRUE;                                                
                                }
                                break;
                        case 'I':
                                if (!strcmp (name, "Int32")) {
                                        t = MONO_TYPE_I4;
                                        klass->blittable = TRUE;
                                } else if (!strcmp(name, "Int16")) {
                                        t = MONO_TYPE_I2;
                                        klass->blittable = TRUE;
                                } else if (!strcmp(name, "Int64")) {
                                        t = MONO_TYPE_I8;
                                        klass->blittable = TRUE;
                                } else if (!strcmp(name, "IntPtr")) {
                                        t = MONO_TYPE_I;
                                        klass->blittable = TRUE;
                                }
                                break;
                        case 'S':
                                if (!strcmp (name, "Single")) {
                                        t = MONO_TYPE_R4;
                                        klass->blittable = TRUE;                                                
                                } else if (!strcmp(name, "SByte")) {
                                        t = MONO_TYPE_I1;
                                        klass->blittable = TRUE;
                                }
                                break;
                        case 'U':
                                if (!strcmp (name, "UInt32")) {
                                        t = MONO_TYPE_U4;
                                        klass->blittable = TRUE;
                                } else if (!strcmp(name, "UInt16")) {
                                        t = MONO_TYPE_U2;
                                        klass->blittable = TRUE;
                                } else if (!strcmp(name, "UInt64")) {
                                        t = MONO_TYPE_U8;
                                        klass->blittable = TRUE;
                                } else if (!strcmp(name, "UIntPtr")) {
                                        t = MONO_TYPE_U;
                                        klass->blittable = TRUE;
                                }
                                break;
                        case 'T':
                                if (!strcmp (name, "TypedReference")) {
                                        t = MONO_TYPE_TYPEDBYREF;
                                        klass->blittable = TRUE;
                                }
                                break;
                        case 'V':
                                if (!strcmp (name, "Void")) {
                                        t = MONO_TYPE_VOID;
                                }
                                break;
                        default:
                                break;
                        }
                }
                klass->_byval_arg.type = (MonoTypeEnum)t;
                klass->this_arg.type = (MonoTypeEnum)t;
        }

        mono_class_setup_interface_id_internal (klass);
}

static MonoMethod*
create_array_method (MonoClass *klass, const char *name, MonoMethodSignature *sig)
{
        MonoMethod *method;

        method = (MonoMethod *) mono_image_alloc0 (klass->image, sizeof (MonoMethodPInvoke));
        method->klass = klass;
        method->flags = METHOD_ATTRIBUTE_PUBLIC;
        method->iflags = METHOD_IMPL_ATTRIBUTE_INTERNAL_CALL;
        method->signature = sig;
        method->name = name;
        method->slot = -1;
        /* .ctor */
        if (name [0] == '.') {
                method->flags |= METHOD_ATTRIBUTE_RT_SPECIAL_NAME | METHOD_ATTRIBUTE_SPECIAL_NAME;
        } else {
                method->iflags |= METHOD_IMPL_ATTRIBUTE_RUNTIME;
        }
        return method;
}

/*
 * mono_class_setup_methods:
 * @class: a class
 *
 *   Initializes the 'methods' array in CLASS.
 * Calling this method should be avoided if possible since it allocates a lot 
 * of long-living MonoMethod structures.
 * Methods belonging to an interface are assigned a sequential slot starting
 * from 0.
 *
 * On failure this function sets klass->has_failure and stores a MonoErrorBoxed with details
 */
void
mono_class_setup_methods (MonoClass *klass)
{
        int i, count;
        MonoMethod **methods;

        if (klass->methods)
                return;

        if (mono_class_is_ginst (klass)) {
                ERROR_DECL (error);
                MonoClass *gklass = mono_class_get_generic_class (klass)->container_class;

                mono_class_init_internal (gklass);
                if (!mono_class_has_failure (gklass))
                        mono_class_setup_methods (gklass);
                if (mono_class_set_type_load_failure_causedby_class (klass, gklass, "Generic type definition failed to load"))
                        return;

                /* The + 1 makes this always non-NULL to pass the check in mono_class_setup_methods () */
                count = mono_class_get_method_count (gklass);
                methods = (MonoMethod **)mono_class_alloc0 (klass, sizeof (MonoMethod*) * (count + 1));

                for (i = 0; i < count; i++) {
                        methods [i] = mono_class_inflate_generic_method_full_checked (
                                gklass->methods [i], klass, mono_class_get_context (klass), error);
                        if (!mono_error_ok (error)) {
                                char *method = mono_method_full_name (gklass->methods [i], TRUE);
                                mono_class_set_type_load_failure (klass, "Could not inflate method %s due to %s", method, mono_error_get_message (error));

                                g_free (method);
                                mono_error_cleanup (error);
                                return;                         
                        }
                }
        } else if (klass->rank) {
                ERROR_DECL (error);
                MonoMethod *amethod;
                MonoMethodSignature *sig;
                int count_generic = 0, first_generic = 0;
                int method_num = 0;
                gboolean jagged_ctor = FALSE;

                count = 3 + (klass->rank > 1? 2: 1);

                mono_class_setup_interfaces (klass, error);
                g_assert (mono_error_ok (error)); /*FIXME can this fail for array types?*/

                if (klass->rank == 1 && klass->element_class->rank) {
                        jagged_ctor = TRUE;
                        count ++;
                }

                if (klass->interface_count) {
                        count_generic = generic_array_methods (klass);
                        first_generic = count;
                        count += klass->interface_count * count_generic;
                }

                methods = (MonoMethod **)mono_class_alloc0 (klass, sizeof (MonoMethod*) * count);

                sig = mono_metadata_signature_alloc (klass->image, klass->rank);
                sig->ret = mono_get_void_type ();
                sig->pinvoke = TRUE;
                sig->hasthis = TRUE;
                for (i = 0; i < klass->rank; ++i)
                        sig->params [i] = mono_get_int32_type ();

                amethod = create_array_method (klass, ".ctor", sig);
                methods [method_num++] = amethod;
                if (klass->rank > 1) {
                        sig = mono_metadata_signature_alloc (klass->image, klass->rank * 2);
                        sig->ret = mono_get_void_type ();
                        sig->pinvoke = TRUE;
                        sig->hasthis = TRUE;
                        for (i = 0; i < klass->rank * 2; ++i)
                                sig->params [i] = mono_get_int32_type ();

                        amethod = create_array_method (klass, ".ctor", sig);
                        methods [method_num++] = amethod;
                }

                if (jagged_ctor) {
                        /* Jagged arrays have an extra ctor in .net which creates an array of arrays */
                        sig = mono_metadata_signature_alloc (klass->image, klass->rank + 1);
                        sig->ret = mono_get_void_type ();
                        sig->pinvoke = TRUE;
                        sig->hasthis = TRUE;
                        for (i = 0; i < klass->rank + 1; ++i)
                                sig->params [i] = mono_get_int32_type ();
                        amethod = create_array_method (klass, ".ctor", sig);
                        methods [method_num++] = amethod;
                }

                /* element Get (idx11, [idx2, ...]) */
                sig = mono_metadata_signature_alloc (klass->image, klass->rank);
                sig->ret = m_class_get_byval_arg (m_class_get_element_class (klass));
                sig->pinvoke = TRUE;
                sig->hasthis = TRUE;
                for (i = 0; i < klass->rank; ++i)
                        sig->params [i] = mono_get_int32_type ();
                amethod = create_array_method (klass, "Get", sig);
                methods [method_num++] = amethod;
                /* element& Address (idx11, [idx2, ...]) */
                sig = mono_metadata_signature_alloc (klass->image, klass->rank);
                sig->ret = &klass->element_class->this_arg;
                sig->pinvoke = TRUE;
                sig->hasthis = TRUE;
                for (i = 0; i < klass->rank; ++i)
                        sig->params [i] = mono_get_int32_type ();
                amethod = create_array_method (klass, "Address", sig);
                methods [method_num++] = amethod;
                /* void Set (idx11, [idx2, ...], element) */
                sig = mono_metadata_signature_alloc (klass->image, klass->rank + 1);
                sig->ret = mono_get_void_type ();
                sig->pinvoke = TRUE;
                sig->hasthis = TRUE;
                for (i = 0; i < klass->rank; ++i)
                        sig->params [i] = mono_get_int32_type ();
                sig->params [i] = m_class_get_byval_arg (m_class_get_element_class (klass));
                amethod = create_array_method (klass, "Set", sig);
                methods [method_num++] = amethod;

                GHashTable *cache = g_hash_table_new (NULL, NULL);
                for (i = 0; i < klass->interface_count; i++)
                        setup_generic_array_ifaces (klass, klass->interfaces [i], methods, first_generic + i * count_generic, cache);
                g_hash_table_destroy (cache);
        } else if (mono_class_has_static_metadata (klass)) {
                ERROR_DECL (error);
                int first_idx = mono_class_get_first_method_idx (klass);

                count = mono_class_get_method_count (klass);
                methods = (MonoMethod **)mono_class_alloc (klass, sizeof (MonoMethod*) * count);
                for (i = 0; i < count; ++i) {
                        int idx = mono_metadata_translate_token_index (klass->image, MONO_TABLE_METHOD, first_idx + i + 1);
                        methods [i] = mono_get_method_checked (klass->image, MONO_TOKEN_METHOD_DEF | idx, klass, NULL, error);
                        if (!methods [i]) {
                                mono_class_set_type_load_failure (klass, "Could not load method %d due to %s", i, mono_error_get_message (error));
                                mono_error_cleanup (error);
                        }
                }
        } else {
                methods = (MonoMethod **)mono_class_alloc (klass, sizeof (MonoMethod*) * 1);
                count = 0;
        }

        if (MONO_CLASS_IS_INTERFACE_INTERNAL (klass)) {
                int slot = 0;
                /*Only assign slots to virtual methods as interfaces are allowed to have static methods.*/
                for (i = 0; i < count; ++i) {
                        if (methods [i]->flags & METHOD_ATTRIBUTE_VIRTUAL)
                        {
                                if (method_is_reabstracted (methods[i]->flags)) {
                                        methods [i]->is_reabstracted = 1;
                                        continue;
                                }
                                methods [i]->slot = slot++;
                        }
                }
        }

        mono_image_lock (klass->image);

        if (!klass->methods) {
                mono_class_set_method_count (klass, count);

                /* Needed because of the double-checking locking pattern */
                mono_memory_barrier ();

                klass->methods = methods;
        }

        mono_image_unlock (klass->image);
}

/*
 * mono_class_setup_properties:
 *
 *   Initialize klass->ext.property and klass->ext.properties.
 *
 * This method can fail the class.
 */
void
mono_class_setup_properties (MonoClass *klass)
{
        guint startm, endm, i, j;
        guint32 cols [MONO_PROPERTY_SIZE];
        MonoTableInfo *msemt = &klass->image->tables [MONO_TABLE_METHODSEMANTICS];
        MonoProperty *properties;
        guint32 last;
        int first, count;
        MonoClassPropertyInfo *info;

        info = mono_class_get_property_info (klass);
        if (info)
                return;

        if (mono_class_is_ginst (klass)) {
                MonoClass *gklass = mono_class_get_generic_class (klass)->container_class;

                mono_class_init_internal (gklass);
                mono_class_setup_properties (gklass);
                if (mono_class_set_type_load_failure_causedby_class (klass, gklass, "Generic type definition failed to load"))
                        return;

                MonoClassPropertyInfo *ginfo = mono_class_get_property_info (gklass);
                properties = mono_class_new0 (klass, MonoProperty, ginfo->count + 1);

                for (i = 0; i < ginfo->count; i++) {
                        ERROR_DECL (error);
                        MonoProperty *prop = &properties [i];

                        *prop = ginfo->properties [i];

                        if (prop->get)
                                prop->get = mono_class_inflate_generic_method_full_checked (
                                        prop->get, klass, mono_class_get_context (klass), error);
                        if (prop->set)
                                prop->set = mono_class_inflate_generic_method_full_checked (
                                        prop->set, klass, mono_class_get_context (klass), error);

                        g_assert (mono_error_ok (error)); /*FIXME proper error handling*/
                        prop->parent = klass;
                }

                first = ginfo->first;
                count = ginfo->count;
        } else {
                first = mono_metadata_properties_from_typedef (klass->image, mono_metadata_token_index (klass->type_token) - 1, &last);
                count = last - first;

                if (count) {
                        mono_class_setup_methods (klass);
                        if (mono_class_has_failure (klass))
                                return;
                }

                properties = (MonoProperty *)mono_class_alloc0 (klass, sizeof (MonoProperty) * count);
                for (i = first; i < last; ++i) {
                        mono_metadata_decode_table_row (klass->image, MONO_TABLE_PROPERTY, i, cols, MONO_PROPERTY_SIZE);
                        properties [i - first].parent = klass;
                        properties [i - first].attrs = cols [MONO_PROPERTY_FLAGS];
                        properties [i - first].name = mono_metadata_string_heap (klass->image, cols [MONO_PROPERTY_NAME]);

                        startm = mono_metadata_methods_from_property (klass->image, i, &endm);
                        int first_idx = mono_class_get_first_method_idx (klass);
                        for (j = startm; j < endm; ++j) {
                                MonoMethod *method;

                                mono_metadata_decode_row (msemt, j, cols, MONO_METHOD_SEMA_SIZE);

                                if (klass->image->uncompressed_metadata) {
                                        ERROR_DECL (error);
                                        /* It seems like the MONO_METHOD_SEMA_METHOD column needs no remapping */
                                        method = mono_get_method_checked (klass->image, MONO_TOKEN_METHOD_DEF | cols [MONO_METHOD_SEMA_METHOD], klass, NULL, error);
                                        mono_error_cleanup (error); /* FIXME don't swallow this error */
                                } else {
                                        method = klass->methods [cols [MONO_METHOD_SEMA_METHOD] - 1 - first_idx];
                                }

                                switch (cols [MONO_METHOD_SEMA_SEMANTICS]) {
                                case METHOD_SEMANTIC_SETTER:
                                        properties [i - first].set = method;
                                        break;
                                case METHOD_SEMANTIC_GETTER:
                                        properties [i - first].get = method;
                                        break;
                                default:
                                        break;
                                }
                        }
                }
        }

        info = (MonoClassPropertyInfo*)mono_class_alloc0 (klass, sizeof (MonoClassPropertyInfo));
        info->first = first;
        info->count = count;
        info->properties = properties;
        mono_memory_barrier ();

        /* This might leak 'info' which was allocated from the image mempool */
        mono_class_set_property_info (klass, info);
}

static MonoMethod**
inflate_method_listz (MonoMethod **methods, MonoClass *klass, MonoGenericContext *context)
{
        MonoMethod **om, **retval;
        int count;

        for (om = methods, count = 0; *om; ++om, ++count)
                ;

        retval = g_new0 (MonoMethod*, count + 1);
        count = 0;
        for (om = methods, count = 0; *om; ++om, ++count) {
                ERROR_DECL (error);
                retval [count] = mono_class_inflate_generic_method_full_checked (*om, klass, context, error);
                g_assert (mono_error_ok (error)); /*FIXME proper error handling*/
        }

        return retval;
}

/*This method can fail the class.*/
void
mono_class_setup_events (MonoClass *klass)
{
        int first, count;
        guint startm, endm, i, j;
        guint32 cols [MONO_EVENT_SIZE];
        MonoTableInfo *msemt = &klass->image->tables [MONO_TABLE_METHODSEMANTICS];
        guint32 last;
        MonoEvent *events;

        MonoClassEventInfo *info = mono_class_get_event_info (klass);
        if (info)
                return;

        if (mono_class_is_ginst (klass)) {
                MonoClass *gklass = mono_class_get_generic_class (klass)->container_class;
                MonoGenericContext *context = NULL;

                mono_class_setup_events (gklass);
                if (mono_class_set_type_load_failure_causedby_class (klass, gklass, "Generic type definition failed to load"))
                        return;

                MonoClassEventInfo *ginfo = mono_class_get_event_info (gklass);
                first = ginfo->first;
                count = ginfo->count;

                events = mono_class_new0 (klass, MonoEvent, count);

                if (count)
                        context = mono_class_get_context (klass);

                for (i = 0; i < count; i++) {
                        ERROR_DECL (error);
                        MonoEvent *event = &events [i];
                        MonoEvent *gevent = &ginfo->events [i];

                        error_init (error); //since we do conditional calls, we must ensure the default value is ok

                        event->parent = klass;
                        event->name = gevent->name;
                        event->add = gevent->add ? mono_class_inflate_generic_method_full_checked (gevent->add, klass, context, error) : NULL;
                        g_assert (mono_error_ok (error)); /*FIXME proper error handling*/
                        event->remove = gevent->remove ? mono_class_inflate_generic_method_full_checked (gevent->remove, klass, context, error) : NULL;
                        g_assert (mono_error_ok (error)); /*FIXME proper error handling*/
                        event->raise = gevent->raise ? mono_class_inflate_generic_method_full_checked (gevent->raise, klass, context, error) : NULL;
                        g_assert (mono_error_ok (error)); /*FIXME proper error handling*/

#ifndef MONO_SMALL_CONFIG
                        event->other = gevent->other ? inflate_method_listz (gevent->other, klass, context) : NULL;
#endif
                        event->attrs = gevent->attrs;
                }
        } else {
                first = mono_metadata_events_from_typedef (klass->image, mono_metadata_token_index (klass->type_token) - 1, &last);
                count = last - first;

                if (count) {
                        mono_class_setup_methods (klass);
                        if (mono_class_has_failure (klass)) {
                                return;
                        }
                }

                events = (MonoEvent *)mono_class_alloc0 (klass, sizeof (MonoEvent) * count);
                for (i = first; i < last; ++i) {
                        MonoEvent *event = &events [i - first];

                        mono_metadata_decode_table_row (klass->image, MONO_TABLE_EVENT, i, cols, MONO_EVENT_SIZE);
                        event->parent = klass;
                        event->attrs = cols [MONO_EVENT_FLAGS];
                        event->name = mono_metadata_string_heap (klass->image, cols [MONO_EVENT_NAME]);

                        startm = mono_metadata_methods_from_event (klass->image, i, &endm);
                        int first_idx = mono_class_get_first_method_idx (klass);
                        for (j = startm; j < endm; ++j) {
                                MonoMethod *method;

                                mono_metadata_decode_row (msemt, j, cols, MONO_METHOD_SEMA_SIZE);

                                if (klass->image->uncompressed_metadata) {
                                        ERROR_DECL (error);
                                        /* It seems like the MONO_METHOD_SEMA_METHOD column needs no remapping */
                                        method = mono_get_method_checked (klass->image, MONO_TOKEN_METHOD_DEF | cols [MONO_METHOD_SEMA_METHOD], klass, NULL, error);
                                        mono_error_cleanup (error); /* FIXME don't swallow this error */
                                } else {
                                        method = klass->methods [cols [MONO_METHOD_SEMA_METHOD] - 1 - first_idx];
                                }

                                switch (cols [MONO_METHOD_SEMA_SEMANTICS]) {
                                case METHOD_SEMANTIC_ADD_ON:
                                        event->add = method;
                                        break;
                                case METHOD_SEMANTIC_REMOVE_ON:
                                        event->remove = method;
                                        break;
                                case METHOD_SEMANTIC_FIRE:
                                        event->raise = method;
                                        break;
                                case METHOD_SEMANTIC_OTHER: {
#ifndef MONO_SMALL_CONFIG
                                        int n = 0;

                                        if (event->other == NULL) {
                                                event->other = g_new0 (MonoMethod*, 2);
                                        } else {
                                                while (event->other [n])
                                                        n++;
                                                event->other = (MonoMethod **)g_realloc (event->other, (n + 2) * sizeof (MonoMethod*));
                                        }
                                        event->other [n] = method;
                                        /* NULL terminated */
                                        event->other [n + 1] = NULL;
#endif
                                        break;
                                }
                                default:
                                        break;
                                }
                        }
                }
        }

        info = (MonoClassEventInfo*)mono_class_alloc0 (klass, sizeof (MonoClassEventInfo));
        info->events = events;
        info->first = first;
        info->count = count;

        mono_memory_barrier ();

        mono_class_set_event_info (klass, info);
}


/*
 * mono_class_setup_interface_id:
 *
 * Initializes MonoClass::interface_id if required.
 *
 * LOCKING: Acquires the loader lock.
 */
void
mono_class_setup_interface_id (MonoClass *klass)
{
        g_assert (MONO_CLASS_IS_INTERFACE_INTERNAL (klass));
        mono_loader_lock ();
        mono_class_setup_interface_id_internal (klass);
        mono_loader_unlock ();
}

/*
 * mono_class_setup_interfaces:
 *
 *   Initialize klass->interfaces/interfaces_count.
 * LOCKING: Acquires the loader lock.
 * This function can fail the type.
 */
void
mono_class_setup_interfaces (MonoClass *klass, MonoError *error)
{
        int i, interface_count;
        MonoClass **interfaces;

        error_init (error);

        if (klass->interfaces_inited)
                return;

        if (klass->rank == 1 && m_class_get_byval_arg (klass)->type != MONO_TYPE_ARRAY) {
                MonoType *args [1];

                /* IList and IReadOnlyList -> 2x if enum*/
                interface_count = klass->element_class->enumtype ? 4 : 2;
                interfaces = (MonoClass **)mono_image_alloc0 (klass->image, sizeof (MonoClass*) * interface_count);

                args [0] = m_class_get_byval_arg (m_class_get_element_class (klass));
                interfaces [0] = mono_class_bind_generic_parameters (
                        mono_defaults.generic_ilist_class, 1, args, FALSE);
                interfaces [1] = mono_class_bind_generic_parameters (
                           mono_defaults.generic_ireadonlylist_class, 1, args, FALSE);
                if (klass->element_class->enumtype) {
                        args [0] = mono_class_enum_basetype_internal (klass->element_class);
                        interfaces [2] = mono_class_bind_generic_parameters (
                                mono_defaults.generic_ilist_class, 1, args, FALSE);
                        interfaces [3] = mono_class_bind_generic_parameters (
                                   mono_defaults.generic_ireadonlylist_class, 1, args, FALSE);
                }
        } else if (mono_class_is_ginst (klass)) {
                MonoClass *gklass = mono_class_get_generic_class (klass)->container_class;

                mono_class_setup_interfaces (gklass, error);
                if (!mono_error_ok (error)) {
                        mono_class_set_type_load_failure (klass, "Could not setup the interfaces");
                        return;
                }

                interface_count = gklass->interface_count;
                interfaces = mono_class_new0 (klass, MonoClass *, interface_count);
                for (i = 0; i < interface_count; i++) {
                        interfaces [i] = mono_class_inflate_generic_class_checked (gklass->interfaces [i], mono_generic_class_get_context (mono_class_get_generic_class (klass)), error);
                        if (!mono_error_ok (error)) {
                                mono_class_set_type_load_failure (klass, "Could not setup the interfaces");
                                return;
                        }
                }
        } else {
                interface_count = 0;
                interfaces = NULL;
        }

        mono_loader_lock ();
        if (!klass->interfaces_inited) {
                klass->interface_count = interface_count;
                klass->interfaces = interfaces;

                mono_memory_barrier ();

                klass->interfaces_inited = TRUE;
        }
        mono_loader_unlock ();
}


/*
 * mono_class_setup_has_finalizer:
 *
 *   Initialize klass->has_finalizer if it isn't already initialized.
 *
 * LOCKING: Acquires the loader lock.
 */
void
mono_class_setup_has_finalizer (MonoClass *klass)
{
        gboolean has_finalize = FALSE;

        if (m_class_is_has_finalize_inited (klass))
                return;

        /* Interfaces and valuetypes are not supposed to have finalizers */
        if (!(MONO_CLASS_IS_INTERFACE_INTERNAL (klass) || m_class_is_valuetype (klass))) {
                MonoMethod *cmethod = NULL;

                if (m_class_get_rank (klass) == 1 && m_class_get_byval_arg (klass)->type == MONO_TYPE_SZARRAY) {
                } else if (mono_class_is_ginst (klass)) {
                        MonoClass *gklass = mono_class_get_generic_class (klass)->container_class;

                        has_finalize = mono_class_has_finalizer (gklass);
                } else if (m_class_get_parent (klass) && m_class_has_finalize (m_class_get_parent (klass))) {
                        has_finalize = TRUE;
                } else {
                        if (m_class_get_parent (klass)) {
                                /*
                                 * Can't search in metadata for a method named Finalize, because that
                                 * ignores overrides.
                                 */
                                mono_class_setup_vtable (klass);
                                if (mono_class_has_failure (klass))
                                        cmethod = NULL;
                                else
                                        cmethod = m_class_get_vtable (klass) [mono_class_get_object_finalize_slot ()];
                        }

                        if (cmethod) {
                                g_assert (m_class_get_vtable_size (klass) > mono_class_get_object_finalize_slot ());

                                if (m_class_get_parent (klass)) {
                                        if (cmethod->is_inflated)
                                                cmethod = ((MonoMethodInflated*)cmethod)->declaring;
                                        if (cmethod != mono_class_get_default_finalize_method ())
                                                has_finalize = TRUE;
                                }
                        }
                }
        }

        mono_loader_lock ();
        if (!m_class_is_has_finalize_inited (klass)) {
                klass->has_finalize = has_finalize ? 1 : 0;

                mono_memory_barrier ();
                klass->has_finalize_inited = TRUE;
        }
        mono_loader_unlock ();
}

/*
 * mono_class_setup_supertypes:
 * @class: a class
 *
 * Build the data structure needed to make fast type checks work.
 * This currently sets two fields in @class:
 *  - idepth: distance between @class and System.Object in the type
 *    hierarchy + 1
 *  - supertypes: array of classes: each element has a class in the hierarchy
 *    starting from @class up to System.Object
 * 
 * LOCKING: Acquires the loader lock.
 */
void
mono_class_setup_supertypes (MonoClass *klass)
{
        int ms, idepth;
        MonoClass **supertypes;

        mono_atomic_load_acquire (supertypes, MonoClass **, &klass->supertypes);
        if (supertypes)
                return;

        if (klass->parent && !klass->parent->supertypes)
                mono_class_setup_supertypes (klass->parent);
        if (klass->parent)
                idepth = klass->parent->idepth + 1;
        else
                idepth = 1;

        ms = MAX (MONO_DEFAULT_SUPERTABLE_SIZE, idepth);
        supertypes = (MonoClass **)mono_class_alloc0 (klass, sizeof (MonoClass *) * ms);

        if (klass->parent) {
                CHECKED_METADATA_WRITE_PTR ( supertypes [idepth - 1] , klass );

                int supertype_idx;
                for (supertype_idx = 0; supertype_idx < klass->parent->idepth; supertype_idx++)
                        CHECKED_METADATA_WRITE_PTR ( supertypes [supertype_idx] , klass->parent->supertypes [supertype_idx] );
        } else {
                CHECKED_METADATA_WRITE_PTR ( supertypes [0] , klass );
        }

        mono_memory_barrier ();

        mono_loader_lock ();
        klass->idepth = idepth;
        /* Needed so idepth is visible before supertypes is set */
        mono_memory_barrier ();
        klass->supertypes = supertypes;
        mono_loader_unlock ();
}

/* mono_class_setup_nested_types:
 *
 * Initialize the nested_classes property for the given MonoClass if it hasn't already been initialized.
 *
 * LOCKING: Acquires the loader lock.
 */
void
mono_class_setup_nested_types (MonoClass *klass)
{
        ERROR_DECL (error);
        GList *classes, *nested_classes, *l;
        int i;

        if (klass->nested_classes_inited)
                return;

        if (!klass->type_token) {
                mono_loader_lock ();
                klass->nested_classes_inited = TRUE;
                mono_loader_unlock ();
                return;
        }

        i = mono_metadata_nesting_typedef (klass->image, klass->type_token, 1);
        classes = NULL;
        while (i) {
                MonoClass* nclass;
                guint32 cols [MONO_NESTED_CLASS_SIZE];
                mono_metadata_decode_row (&klass->image->tables [MONO_TABLE_NESTEDCLASS], i - 1, cols, MONO_NESTED_CLASS_SIZE);
                nclass = mono_class_create_from_typedef (klass->image, MONO_TOKEN_TYPE_DEF | cols [MONO_NESTED_CLASS_NESTED], error);
                if (!mono_error_ok (error)) {
                        /*FIXME don't swallow the error message*/
                        mono_error_cleanup (error);

                        i = mono_metadata_nesting_typedef (klass->image, klass->type_token, i + 1);
                        continue;
                }

                classes = g_list_prepend (classes, nclass);

                i = mono_metadata_nesting_typedef (klass->image, klass->type_token, i + 1);
        }

        nested_classes = NULL;
        for (l = classes; l; l = l->next)
                nested_classes = mono_g_list_prepend_image (klass->image, nested_classes, l->data);
        g_list_free (classes);

        mono_loader_lock ();
        if (!klass->nested_classes_inited) {
                mono_class_set_nested_classes_property (klass, nested_classes);
                mono_memory_barrier ();
                klass->nested_classes_inited = TRUE;
        }
        mono_loader_unlock ();
}

/**
 * mono_class_setup_runtime_info:
 * \param klass the class to setup
 * \param domain the domain of the \p vtable
 * \param vtable
 *
 * Store \p vtable in \c klass->runtime_info.
 *
 * Sets the following field in MonoClass:
 *   -   runtime_info
 *
 * LOCKING: domain lock and loaderlock must be held.
 */
void
mono_class_setup_runtime_info (MonoClass *klass, MonoDomain *domain, MonoVTable *vtable)
{
        MonoClassRuntimeInfo *old_info = m_class_get_runtime_info (klass);
        if (old_info && old_info->max_domain >= domain->domain_id) {
                /* someone already created a large enough runtime info */
                old_info->domain_vtables [domain->domain_id] = vtable;
        } else {
                int new_size = domain->domain_id;
                if (old_info)
                        new_size = MAX (new_size, old_info->max_domain);
                new_size++;
                /* make the new size a power of two */
                int i = 2;
                while (new_size > i)
                        i <<= 1;
                new_size = i;
                /* this is a bounded memory retention issue: may want to 
                 * handle it differently when we'll have a rcu-like system.
                 */
                MonoClassRuntimeInfo *runtime_info = (MonoClassRuntimeInfo *)mono_image_alloc0 (m_class_get_image (klass), MONO_SIZEOF_CLASS_RUNTIME_INFO + new_size * sizeof (gpointer));
                runtime_info->max_domain = new_size - 1;
                /* copy the stuff from the older info */
                if (old_info) {
                        memcpy (runtime_info->domain_vtables, old_info->domain_vtables, (old_info->max_domain + 1) * sizeof (gpointer));
                }
                runtime_info->domain_vtables [domain->domain_id] = vtable;
                /* keep this last*/
                mono_memory_barrier ();
                klass->runtime_info = runtime_info;
        }
}

/**
 * mono_class_create_array_fill_type:
 *
 * Returns a \c MonoClass that is used by SGen to fill out nursery fragments before a collection.
 */
MonoClass *
mono_class_create_array_fill_type (void)
{
        static MonoClass klass;

        klass.element_class = mono_defaults.int64_class;
        klass.rank = 1;
        klass.instance_size = MONO_SIZEOF_MONO_ARRAY;
        klass.sizes.element_size = 8;
        klass.size_inited = 1;
        klass.name = "array_filler_type";

        return &klass;
}

/**
 * mono_classes_init:
 *
 * Initialize the resources used by this module.
 * Known racy counters: `class_gparam_count`, `classes_size` and `mono_inflated_methods_size`
 */
MONO_NO_SANITIZE_THREAD
void
mono_classes_init (void)
{
        mono_os_mutex_init (&classes_mutex);

        mono_native_tls_alloc (&setup_fields_tls_id, NULL);
        mono_native_tls_alloc (&init_pending_tls_id, NULL);

        mono_counters_register ("MonoClassDef count",
                                                        MONO_COUNTER_METADATA | MONO_COUNTER_INT, &class_def_count);
        mono_counters_register ("MonoClassGtd count",
                                                        MONO_COUNTER_METADATA | MONO_COUNTER_INT, &class_gtd_count);
        mono_counters_register ("MonoClassGenericInst count",
                                                        MONO_COUNTER_METADATA | MONO_COUNTER_INT, &class_ginst_count);
        mono_counters_register ("MonoClassGenericParam count",
                                                        MONO_COUNTER_METADATA | MONO_COUNTER_INT, &class_gparam_count);
        mono_counters_register ("MonoClassArray count",
                                                        MONO_COUNTER_METADATA | MONO_COUNTER_INT, &class_array_count);
        mono_counters_register ("MonoClassPointer count",
                                                        MONO_COUNTER_METADATA | MONO_COUNTER_INT, &class_pointer_count);
        mono_counters_register ("Inflated methods size",
                                                        MONO_COUNTER_GENERICS | MONO_COUNTER_INT, &mono_inflated_methods_size);
        mono_counters_register ("Inflated classes size",
                                                        MONO_COUNTER_GENERICS | MONO_COUNTER_INT, &inflated_classes_size);
        mono_counters_register ("MonoClass size",
                                                        MONO_COUNTER_METADATA | MONO_COUNTER_INT, &classes_size);
}

/**
 * mono_classes_cleanup:
 *
 * Free the resources used by this module.
 */
void
mono_classes_cleanup (void)
{
        mono_native_tls_free (setup_fields_tls_id);
        mono_native_tls_free (init_pending_tls_id);

        if (global_interface_bitset)
                mono_bitset_free (global_interface_bitset);
        global_interface_bitset = NULL;
        mono_os_mutex_destroy (&classes_mutex);
}