#include <mono/metadata/debug-helpers.h>
#include <mono/metadata/reflection.h>
#include <mono/utils/mono-logger.h>
+#include <mono/metadata/exception.h>
MonoDefaults mono_defaults;
loader_error_thread_id = TlsAlloc ();
}
+void
+mono_loader_cleanup (void)
+{
+ TlsFree (loader_error_thread_id);
+
+ DeleteCriticalSection (&loader_mutex);
+}
+
/*
* Handling of type load errors should be done as follows:
*
TlsSetValue (loader_error_thread_id, error);
}
-/*
+/**
+ * mono_loader_set_error_assembly_load:
+ *
+ * Set the loader error for this thread.
+ */
+void
+mono_loader_set_error_assembly_load (const char *assembly_name, gboolean ref_only)
+{
+ MonoLoaderError *error;
+
+ if (mono_loader_get_last_error ())
+ return;
+
+ error = g_new0 (MonoLoaderError, 1);
+ error->kind = MONO_LOADER_ERROR_ASSEMBLY;
+ error->assembly_name = g_strdup (assembly_name);
+ error->ref_only = ref_only;
+
+ /*
+ * This is not strictly needed, but some (most) of the loader code still
+ * can't deal with load errors, and this message is more helpful than an
+ * assert.
+ */
+ if (ref_only)
+ g_warning ("Cannot resolve dependency to assembly '%s' because it has not been preloaded. When using the ReflectionOnly APIs, dependent assemblies must be pre-loaded or loaded on demand through the ReflectionOnlyAssemblyResolve event.", assembly_name);
+ else
+ g_warning ("Could not load file or assembly '%s' or one of its dependencies.", assembly_name);
+
+ set_loader_error (error);
+}
+
+/**
* mono_loader_set_error_type_load:
*
- * Set the loader error for this thread. CLASS_NAME and ASSEMBLY_NAME should be
- * dynamically allocated strings whose ownership is passed to this function.
+ * Set the loader error for this thread.
*/
void
-mono_loader_set_error_type_load (char *class_name, char *assembly_name)
+mono_loader_set_error_type_load (const char *class_name, const char *assembly_name)
{
MonoLoaderError *error;
- if (mono_loader_get_last_error ()) {
- g_free (class_name);
- g_free (assembly_name);
+ if (mono_loader_get_last_error ())
return;
- }
error = g_new0 (MonoLoaderError, 1);
error->kind = MONO_LOADER_ERROR_TYPE;
- error->class_name = class_name;
- error->assembly_name = assembly_name;
+ error->class_name = g_strdup (class_name);
+ error->assembly_name = g_strdup (assembly_name);
/*
* This is not strictly needed, but some (most) of the loader code still
* inside metadata.
*/
void
-mono_loader_set_error_method_load (MonoClass *klass, const char *member_name)
+mono_loader_set_error_method_load (const char *class_name, const char *member_name)
{
MonoLoaderError *error;
error = g_new0 (MonoLoaderError, 1);
error->kind = MONO_LOADER_ERROR_METHOD;
- error->klass = klass;
+ error->class_name = g_strdup (class_name);
error->member_name = member_name;
set_loader_error (error);
/*
* mono_loader_set_error_field_load:
*
- * Set the loader error for this thread. MEMBER_NAME should point to a string
+ * Set the loader error for this thread. MEMBER_NAME should point to a string
* inside metadata.
*/
void
return (MonoLoaderError*)TlsGetValue (loader_error_thread_id);
}
+/**
+ * mono_loader_clear_error:
+ *
+ * Disposes any loader error messages on this thread
+ */
void
mono_loader_clear_error (void)
{
MonoLoaderError *ex = (MonoLoaderError*)TlsGetValue (loader_error_thread_id);
- g_assert (ex);
+ if (ex) {
+ g_free (ex->class_name);
+ g_free (ex->assembly_name);
+ g_free (ex);
+
+ TlsSetValue (loader_error_thread_id, NULL);
+ }
+}
- g_free (ex->class_name);
- g_free (ex->assembly_name);
- g_free (ex);
+/**
+ * mono_loader_error_prepare_exception:
+ * @error: The MonoLoaderError to turn into an exception
+ *
+ * This turns a MonoLoaderError into an exception that can be thrown
+ * and resets the Mono Loader Error state during this process.
+ *
+ */
+MonoException *
+mono_loader_error_prepare_exception (MonoLoaderError *error)
+{
+ MonoException *ex = NULL;
+
+ switch (error->kind) {
+ case MONO_LOADER_ERROR_TYPE: {
+ char *cname = g_strdup (error->class_name);
+ char *aname = g_strdup (error->assembly_name);
+ MonoString *class_name;
+
+ mono_loader_clear_error ();
+
+ class_name = mono_string_new (mono_domain_get (), cname);
+
+ ex = mono_get_exception_type_load (class_name, aname);
+ g_free (cname);
+ g_free (aname);
+ break;
+ }
+ case MONO_LOADER_ERROR_METHOD: {
+ char *cname = g_strdup (error->class_name);
+ char *aname = g_strdup (error->member_name);
+
+ mono_loader_clear_error ();
+ ex = mono_get_exception_missing_method (cname, aname);
+ g_free (cname);
+ g_free (aname);
+ break;
+ }
+
+ case MONO_LOADER_ERROR_FIELD: {
+ char *cnspace = g_strdup (*error->klass->name_space ? error->klass->name_space : "");
+ char *cname = g_strdup (error->klass->name);
+ char *cmembername = g_strdup (error->member_name);
+ char *class_name;
+
+ mono_loader_clear_error ();
+ class_name = g_strdup_printf ("%s%s%s", cnspace, cnspace ? "." : "", cname);
+
+ ex = mono_get_exception_missing_field (class_name, cmembername);
+ g_free (class_name);
+ g_free (cname);
+ g_free (cmembername);
+ g_free (cnspace);
+ break;
+ }
+
+ case MONO_LOADER_ERROR_ASSEMBLY: {
+ char *msg;
+
+ if (error->ref_only)
+ msg = g_strdup_printf ("Cannot resolve dependency to assembly '%s' because it has not been preloaded. When using the ReflectionOnly APIs, dependent assemblies must be pre-loaded or loaded on demand through the ReflectionOnlyAssemblyResolve event.", error->assembly_name);
+ else
+ msg = g_strdup_printf ("Could not load file or assembly '%s' or one of its dependencies.", error->assembly_name);
+
+ mono_loader_clear_error ();
+ ex = mono_get_exception_file_not_found2 (msg, mono_string_new (mono_domain_get (), error->assembly_name));
+ g_free (msg);
+ break;
+ }
+
+ default:
+ g_assert_not_reached ();
+ }
- TlsSetValue (loader_error_thread_id, NULL);
+ return ex;
}
static MonoClassField*
if (!klass) {
char *name = mono_class_name_from_token (image, MONO_TOKEN_TYPE_REF | nindex);
g_warning ("Missing method %s in assembly %s, type %s", mname, image->name, name);
+ mono_loader_set_error_method_load (name, mname);
g_free (name);
return NULL;
}
if (!klass) {
char *name = mono_class_name_from_token (image, MONO_TOKEN_TYPE_SPEC | nindex);
g_warning ("Missing method %s in assembly %s, type %s", mname, image->name, name);
+ mono_loader_set_error_method_load (name, mname);
g_free (name);
return NULL;
}
if (!klass) {
char *name = mono_class_name_from_token (image, MONO_TOKEN_TYPE_DEF | nindex);
g_warning ("Missing method %s in assembly %s, type %s", mname, image->name, name);
+ mono_loader_set_error_method_load (name, mname);
g_free (name);
return NULL;
}
break;
case MONO_MEMBERREF_PARENT_METHODDEF:
return mono_get_method (image, MONO_TOKEN_METHOD_DEF | nindex, NULL);
+
default:
- g_error ("Memberref parent unknown: class: %d, index %d", class, nindex);
- g_assert_not_reached ();
+ {
+ /* This message leaks */
+ char *message = g_strdup_printf ("Memberref parent unknown: class: %d, index %d", class, nindex);
+ mono_loader_set_error_method_load ("", message);
+ return NULL;
+ }
+
}
g_assert (klass);
mono_class_init (klass);
mono_metadata_decode_blob_size (ptr, &ptr);
sig = mono_metadata_parse_method_signature (image, 0, ptr, NULL);
+ if (sig == NULL)
+ return NULL;
switch (class) {
case MONO_MEMBERREF_PARENT_TYPEREF:
if (!method) {
char *msig = mono_signature_get_desc (sig, FALSE);
+ char * class_name = mono_type_get_name (&klass->byval_arg);
GString *s = g_string_new (mname);
if (sig->generic_param_count)
g_string_append_printf (s, "<[%d]>", sig->generic_param_count);
g_warning (
"Missing method %s::%s in assembly %s, referenced in assembly %s",
- mono_type_get_name (&klass->byval_arg), msig, klass->image->name, image->name);
+ class_name, msig, klass->image->name, image->name);
+ mono_loader_set_error_method_load (class_name, mname);
g_free (msig);
- mono_loader_set_error_method_load (klass, mname);
+ g_free (class_name);
}
mono_metadata_free_method_signature (sig);
if (!klass) {
guint32 type = mono_metadata_typedef_from_method (image, token);
klass = mono_class_get (image, MONO_TOKEN_TYPE_DEF | type);
+ if (klass == NULL)
+ return NULL;
}
result->slot = -1;
}
/* FIXME: lazyness for generics too, but how? */
- if (!result->klass->dummy && !(result->flags & METHOD_ATTRIBUTE_ABSTRACT) &&
+ if (!(result->flags & METHOD_ATTRIBUTE_ABSTRACT) &&
!(cols [1] & METHOD_IMPL_ATTRIBUTE_INTERNAL_CALL) &&
!(result->iflags & METHOD_IMPL_ATTRIBUTE_RUNTIME) && container) {
gpointer loc = mono_image_rva_map (image, cols [0]);
* locals are shared.
*/
/* mono_metadata_free_method_signature (method->signature); */
- g_free (method->signature);
+ /* g_free (method->signature); */
}
-
+
if (method->dynamic) {
MonoMethodWrapper *mw = (MonoMethodWrapper*)method;
-
+
g_free ((char*)method->name);
if (mw->method.header)
g_free ((char*)mw->method.header->code);
LeaveCriticalSection (&loader_mutex);
}
+/**
+ * mono_method_signature:
+ *
+ * Return the signature of the method M. On failure, returns NULL.
+ */
MonoMethodSignature*
mono_method_signature (MonoMethod *m)
{
size = mono_metadata_decode_blob_size (sig, &sig_body);
m->signature = mono_metadata_parse_method_signature_full (img, container, idx, sig_body, NULL);
+ if (!m->signature) {
+ mono_loader_unlock ();
+ return NULL;
+ }
if (can_cache_signature)
g_hash_table_insert (img->method_signatures, (gpointer)sig, m->signature);
gpointer loc;
MonoMethodNormal* mn = (MonoMethodNormal*) method;
- if (method->klass->dummy || (method->flags & METHOD_ATTRIBUTE_ABSTRACT) || (method->iflags & METHOD_IMPL_ATTRIBUTE_RUNTIME) || (method->iflags & METHOD_IMPL_ATTRIBUTE_INTERNAL_CALL) || (method->flags & METHOD_ATTRIBUTE_PINVOKE_IMPL))
+ if ((method->flags & METHOD_ATTRIBUTE_ABSTRACT) || (method->iflags & METHOD_IMPL_ATTRIBUTE_RUNTIME) || (method->iflags & METHOD_IMPL_ATTRIBUTE_INTERNAL_CALL) || (method->flags & METHOD_ATTRIBUTE_PINVOKE_IMPL))
return NULL;
#ifdef G_LIKELY