static void
set_loader_error (MonoLoaderError *error)
{
+ mono_loader_clear_error ();
mono_native_tls_set_value (loader_error_thread_id, error);
}
}
case MONO_EXCEPTION_MISSING_FIELD: {
- char *cnspace = g_strdup ((error->klass && *error->klass->name_space) ? error->klass->name_space : "");
- char *cname = g_strdup (error->klass ? error->klass->name : "");
+ char *class_name;
char *cmembername = g_strdup (error->member_name);
- char *class_name;
+ if (error->klass)
+ class_name = mono_type_get_full_name (error->klass);
+ else
+ class_name = g_strdup ("");
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;
}
return result;
}
- mono_loader_lock ();
+ mono_image_lock (image);
if ((field = g_hash_table_lookup (image->field_cache, GUINT_TO_POINTER (token)))) {
*retklass = field->parent;
- mono_loader_unlock ();
+ mono_image_unlock (image);
return field;
}
- mono_loader_unlock ();
+ mono_image_unlock (image);
if (mono_metadata_token_table (token) == MONO_TABLE_MEMBERREF)
field = field_from_memberref (image, token, retklass, context);
field = mono_class_get_field (k, token);
}
- mono_loader_lock ();
+ mono_image_lock (image);
if (field && field->parent && !field->parent->generic_class && !field->parent->generic_container)
g_hash_table_insert (image->field_cache, GUINT_TO_POINTER (token), field);
- mono_loader_unlock ();
+ mono_image_unlock (image);
return field;
}
return NULL;
}
+/*
+ * mono_inflate_generic_signature:
+ *
+ * Inflate SIG with CONTEXT, and return a canonical copy. On error, set ERROR, and return NULL.
+ */
+MonoMethodSignature*
+mono_inflate_generic_signature (MonoMethodSignature *sig, MonoGenericContext *context, MonoError *error)
+{
+ MonoMethodSignature *res, *cached;
+
+ res = inflate_generic_signature_checked (NULL, sig, context, error);
+ if (!mono_error_ok (error))
+ return NULL;
+ cached = mono_metadata_get_inflated_signature (res, context);
+ if (cached != res)
+ mono_metadata_free_inflated_signature (res);
+ return cached;
+}
+
static MonoMethodHeader*
inflate_generic_header (MonoMethodHeader *header, MonoGenericContext *context)
{
if (method->klass->generic_class)
return mono_method_signature (method);
+#ifndef DISABLE_REFLECTION_EMIT
if (image->dynamic) {
sig = mono_reflection_lookup_signature (image, method, token);
} else {
+#endif
mono_metadata_decode_row (&image->tables [MONO_TABLE_MEMBERREF], idx-1, cols, MONO_MEMBERREF_SIZE);
sig_idx = cols [MONO_MEMBERREF_SIGNATURE];
mono_loader_set_error_bad_image (g_strdup_printf ("Incompatible method signature class token 0x%08x field name %s token 0x%08x on image %s", class, fname, token, image->name));
return NULL;
}
+#ifndef DISABLE_REFLECTION_EMIT
}
+#endif
if (context) {
return mono_dllmap_lookup_list (global_dll_map, dll, func, rdll, rfunc);
}
-/*
+/**
* mono_dllmap_insert:
+ * @assembly: if NULL, this is a global mapping, otherwise the remapping of the dynamic library will only apply to the specified assembly
+ * @dll: The name of the external library, as it would be found in the DllImport declaration. If prefixed with 'i:' the matching of the library name is done without case sensitivity
+ * @func: if not null, the mapping will only applied to the named function (the value of EntryPoint)
+ * @tdll: The name of the library to map the specified @dll if it matches.
+ * @tfunc: if func is not NULL, the name of the function that replaces the invocation
*
* LOCKING: Acquires the loader lock.
*
+ * This function is used to programatically add DllImport remapping in either
+ * a specific assembly, or as a global remapping. This is done by remapping
+ * references in a DllImport attribute from the @dll library name into the @tdll
+ * name. If the @dll name contains the prefix "i:", the comparison of the
+ * library name is done without case sensitivity.
+ *
+ * If you pass @func, this is the name of the EntryPoint in a DllImport if specified
+ * or the name of the function as determined by DllImport. If you pass @func, you
+ * must also pass @tfunc which is the name of the target function to invoke on a match.
+ *
+ * Example:
+ * mono_dllmap_insert (NULL, "i:libdemo.dll", NULL, relocated_demo_path, NULL);
+ *
+ * The above will remap DllImport statments for "libdemo.dll" and "LIBDEMO.DLL" to
+ * the contents of relocated_demo_path for all assemblies in the Mono process.
+ *
* NOTE: This can be called before the runtime is initialized, for example from
* mono_config_parse ().
*/
return res;
}
+static MonoDl *internal_module;
+
+static gboolean
+is_absolute_path (const char *path)
+{
+#ifdef PLATFORM_MACOSX
+ if (!strncmp (path, "@executable_path/", 17) || !strncmp (path, "@loader_path/", 13) ||
+ !strncmp (path, "@rpath/", 7))
+ return TRUE;
+#endif
+ return g_path_is_absolute (path);
+}
+
gpointer
mono_lookup_pinvoke_call (MonoMethod *method, const char **exc_class, const char **exc_arg)
{
const char *orig_scope;
const char *new_scope;
char *error_msg;
- char *full_name, *file_name;
+ char *full_name, *file_name, *found_name = NULL;
int i;
MonoDl *module = NULL;
+ gboolean cached = FALSE;
g_assert (method->flags & METHOD_ATTRIBUTE_PINVOKE_IMPL);
mono_dllmap_lookup (image, orig_scope, import, &new_scope, &import);
- mono_trace (G_LOG_LEVEL_INFO, MONO_TRACE_DLLIMPORT,
- "DllImport attempting to load: '%s'.", new_scope);
+ if (!module) {
+ mono_loader_lock ();
+ if (!image->pinvoke_scopes) {
+ image->pinvoke_scopes = g_hash_table_new_full (g_str_hash, g_str_equal, g_free, NULL);
+ image->pinvoke_scope_filenames = g_hash_table_new_full (g_str_hash, g_str_equal, g_free, g_free);
+ }
+ module = g_hash_table_lookup (image->pinvoke_scopes, new_scope);
+ found_name = g_hash_table_lookup (image->pinvoke_scope_filenames, new_scope);
+ mono_loader_unlock ();
+ if (module)
+ cached = TRUE;
+ if (found_name)
+ found_name = g_strdup (found_name);
+ }
- /* we allow a special name to dlopen from the running process namespace */
- if (strcmp (new_scope, "__Internal") == 0)
- module = mono_dl_open (NULL, MONO_DL_LAZY, &error_msg);
+ if (!module) {
+ mono_trace (G_LOG_LEVEL_INFO, MONO_TRACE_DLLIMPORT,
+ "DllImport attempting to load: '%s'.", new_scope);
+
+ /* we allow a special name to dlopen from the running process namespace */
+ if (strcmp (new_scope, "__Internal") == 0){
+ if (internal_module == NULL)
+ internal_module = mono_dl_open (NULL, MONO_DL_LAZY, &error_msg);
+ module = internal_module;
+ }
+ }
/*
* Try loading the module using a variety of names
*/
for (i = 0; i < 4; ++i) {
+ char *base_name = NULL, *dir_name = NULL;
+ gboolean is_absolute = is_absolute_path (new_scope);
+
switch (i) {
case 0:
/* Try the original name */
continue;
break;
case 2:
- if (strstr (new_scope, "lib") != new_scope) {
+ if (is_absolute) {
+ dir_name = g_path_get_dirname (new_scope);
+ base_name = g_path_get_basename (new_scope);
+ if (strstr (base_name, "lib") != base_name) {
+ char *tmp = g_strdup_printf ("lib%s", base_name);
+ g_free (base_name);
+ base_name = tmp;
+ file_name = g_strdup_printf ("%s%s%s", dir_name, G_DIR_SEPARATOR_S, base_name);
+ break;
+ }
+ } else if (strstr (new_scope, "lib") != new_scope) {
file_name = g_strdup_printf ("lib%s", new_scope);
+ break;
}
- else
- continue;
- break;
+ continue;
default:
#ifndef TARGET_WIN32
if (!g_ascii_strcasecmp ("user32.dll", new_scope) ||
break;
#endif
}
+
+ if (is_absolute) {
+ if (!dir_name)
+ dir_name = g_path_get_dirname (file_name);
+ if (!base_name)
+ base_name = g_path_get_basename (file_name);
+ }
+
+ if (!module && is_absolute) {
+ module = cached_module_load (file_name, MONO_DL_LAZY, &error_msg);
+ if (!module) {
+ mono_trace (G_LOG_LEVEL_INFO, MONO_TRACE_DLLIMPORT,
+ "DllImport error loading library '%s': '%s'.",
+ file_name, error_msg);
+ g_free (error_msg);
+ } else {
+ found_name = g_strdup (file_name);
+ }
+ }
- if (!module) {
+ if (!module && !is_absolute) {
void *iter = NULL;
char *mdirname = g_path_get_dirname (image->name);
while ((full_name = mono_dl_build_path (mdirname, file_name, &iter))) {
- mono_trace (G_LOG_LEVEL_INFO, MONO_TRACE_DLLIMPORT,
- "DllImport loading library: '%s'.", full_name);
module = cached_module_load (full_name, MONO_DL_LAZY, &error_msg);
if (!module) {
mono_trace (G_LOG_LEVEL_INFO, MONO_TRACE_DLLIMPORT,
- "DllImport error loading library '%s'.",
- error_msg);
+ "DllImport error loading library '%s': '%s'.",
+ full_name, error_msg);
g_free (error_msg);
+ } else {
+ found_name = g_strdup (full_name);
}
g_free (full_name);
if (module)
if (!module) {
void *iter = NULL;
- while ((full_name = mono_dl_build_path (NULL, file_name, &iter))) {
- mono_trace (G_LOG_LEVEL_INFO, MONO_TRACE_DLLIMPORT,
- "DllImport loading location: '%s'.", full_name);
+ char *file_or_base = is_absolute ? base_name : file_name;
+ while ((full_name = mono_dl_build_path (dir_name, file_or_base, &iter))) {
module = cached_module_load (full_name, MONO_DL_LAZY, &error_msg);
if (!module) {
mono_trace (G_LOG_LEVEL_INFO, MONO_TRACE_DLLIMPORT,
- "DllImport error loading library: '%s'.",
- error_msg);
+ "DllImport error loading library '%s': '%s'.",
+ full_name, error_msg);
g_free (error_msg);
+ } else {
+ found_name = g_strdup (full_name);
}
g_free (full_name);
if (module)
}
if (!module) {
- mono_trace (G_LOG_LEVEL_INFO, MONO_TRACE_DLLIMPORT,
- "DllImport loading: '%s'.", file_name);
module = cached_module_load (file_name, MONO_DL_LAZY, &error_msg);
if (!module) {
mono_trace (G_LOG_LEVEL_INFO, MONO_TRACE_DLLIMPORT,
- "DllImport error loading library '%s'.",
- error_msg);
+ "DllImport error loading library '%s': '%s'.",
+ file_name, error_msg);
+ } else {
+ found_name = g_strdup (file_name);
}
}
g_free (file_name);
+ if (is_absolute) {
+ g_free (base_name);
+ g_free (dir_name);
+ }
if (module)
break;
return NULL;
}
+ if (!cached) {
+ mono_trace (G_LOG_LEVEL_INFO, MONO_TRACE_DLLIMPORT,
+ "DllImport loaded library '%s'.", found_name);
+ mono_loader_lock ();
+ if (!g_hash_table_lookup (image->pinvoke_scopes, new_scope)) {
+ g_hash_table_insert (image->pinvoke_scopes, g_strdup (new_scope), module);
+ g_hash_table_insert (image->pinvoke_scope_filenames, g_strdup (new_scope), g_strdup (found_name));
+ }
+ mono_loader_unlock ();
+ }
+
+ mono_trace (G_LOG_LEVEL_INFO, MONO_TRACE_DLLIMPORT,
+ "DllImport searching in: '%s' ('%s').", new_scope, found_name);
+ g_free (found_name);
+
#ifdef TARGET_WIN32
if (import && import [0] == '#' && isdigit (import [1])) {
char *end;
mono_get_method_full (MonoImage *image, guint32 token, MonoClass *klass,
MonoGenericContext *context)
{
- MonoMethod *result;
+ MonoMethod *result = NULL;
gboolean used_context = FALSE;
/* We do everything inside the lock to prevent creation races */
if (!image->method_cache)
image->method_cache = g_hash_table_new (NULL, NULL);
result = g_hash_table_lookup (image->method_cache, GINT_TO_POINTER (mono_metadata_token_index (token)));
- } else {
+ } else if (!image->dynamic) {
if (!image->methodref_cache)
image->methodref_cache = g_hash_table_new (NULL, NULL);
result = g_hash_table_lookup (image->methodref_cache, GINT_TO_POINTER (token));
if (result)
return result;
+
result = mono_get_method_from_token (image, token, klass, context, &used_context);
if (!result)
return NULL;
mono_image_lock (image);
if (!used_context && !result->is_inflated) {
- MonoMethod *result2;
+ MonoMethod *result2 = NULL;
+
if (mono_metadata_token_table (token) == MONO_TABLE_METHOD)
result2 = g_hash_table_lookup (image->method_cache, GINT_TO_POINTER (mono_metadata_token_index (token)));
- else
+ else if (!image->dynamic)
result2 = g_hash_table_lookup (image->methodref_cache, GINT_TO_POINTER (token));
if (result2) {
if (mono_metadata_token_table (token) == MONO_TABLE_METHOD)
g_hash_table_insert (image->method_cache, GINT_TO_POINTER (mono_metadata_token_index (token)), result);
- else
+ else if (!image->dynamic)
g_hash_table_insert (image->methodref_cache, GINT_TO_POINTER (token), result);
}
return FALSE;
case FRAME_TYPE_MANAGED:
g_assert (frame->ji);
- return d->func (frame->ji->method, frame->native_offset, frame->il_offset, frame->managed, d->user_data);
+ return d->func (mono_jit_info_get_method (frame->ji), frame->native_offset, frame->il_offset, frame->managed, d->user_data);
break;
default:
g_assert_not_reached ();
signature = mono_metadata_parse_method_signature_full (img, container, idx, sig_body, NULL);
if (!signature) {
- mono_loader_clear_error ();
+ mono_error_set_from_loader_error (error);
mono_loader_unlock ();
- mono_error_set_method_load (error, m->klass, m->name, "");
return NULL;
}