Merge pull request #1386 from Unity-Technologies/superluminal-support-staging

Superluminal support staging

Author: UnityAlex

mono/metadata/appdomain.h

@@ -27,6 +27,7 @@ typedef struct _MonoJitInfo MonoJitInfo;
 
 typedef void (*MonoDomainFunc) (MonoDomain *domain, void* user_data);
 typedef void (*MonoDomainAssemblyFunc) (MonoAssembly *assembly, void* user_data);
+typedef void (*MonoJitInfoFunc)(MonoDomain *domain, MonoMethod* method, MonoJitInfo* jinfo, void* user_data);
 typedef void (*MonoUnityExceptionFunc) (MonoObject* exc);
 
 MONO_API MonoDomain*
@@ -110,6 +111,9 @@ MONO_RT_EXTERNAL_ONLY
 MONO_API MonoDomain *
 mono_domain_from_appdomain (MonoAppDomain *appdomain);
 
+MONO_API void
+mono_domain_jit_foreach (MonoDomain *domain, MonoJitInfoFunc func, void *user_data);
+
 MONO_API void
 mono_domain_foreach        (MonoDomainFunc func, void* user_data);
 

mono/metadata/debug-mono-ppdb.c

@@ -54,6 +54,7 @@ typedef struct {
 	gint32 signature;
 	guint8 guid [16];
 	gint32 age;
+	char path [];
 } CodeviewDebugDirectory;
 
 typedef struct {
@@ -63,7 +64,7 @@ typedef struct {
 } PdbStreamHeader;
 
 static gboolean
-get_pe_debug_guid (MonoImage *image, guint8 *out_guid, gint32 *out_age, gint32 *out_timestamp)
+get_pe_debug_guid (MonoImage *image, const char** out_path, guint8 *out_guid, gint32 *out_age, gint32 *out_timestamp)
 {
 	MonoPEDirEntry *debug_dir_entry;
 	ImageDebugDirectory *debug_dir;
@@ -82,6 +83,11 @@ get_pe_debug_guid (MonoImage *image, guint8 *out_guid, gint32 *out_age, gint32 *
 			memcpy (out_guid, dir->guid, 16);
 			*out_age = dir->age;
 			*out_timestamp = debug_dir->time_date_stamp;
+
+			if (out_path != NULL) {
+				*out_path = g_strdup (dir->path);
+			}
+
 			return TRUE;
 		}
 	}
@@ -109,6 +115,12 @@ create_ppdb_file (MonoImage *ppdb_image)
 	return ppdb;
 }
 
+gboolean
+mono_ppdb_get_signature(MonoImage *image, const char** out_path, guint8 *out_guid, gint32 *out_age, gint32 *out_timestamp)
+{
+	return get_pe_debug_guid (image, out_path, out_guid, out_age, out_timestamp);
+}
+
 MonoPPDBFile*
 mono_ppdb_load_file (MonoImage *image, const guint8 *raw_contents, int size)
 {
@@ -126,7 +138,7 @@ mono_ppdb_load_file (MonoImage *image, const guint8 *raw_contents, int size)
 		return create_ppdb_file (image);
 	}
 
-	if (!get_pe_debug_guid (image, pe_guid, &pe_age, &pe_timestamp)) {
+	if (!get_pe_debug_guid (image, NULL, pe_guid, &pe_age, &pe_timestamp)) {
 		mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_ASSEMBLY, "Image '%s' has no debug directory.", image->name);
 		return NULL;
 	}

mono/metadata/debug-mono-ppdb.h

@@ -17,6 +17,9 @@
 #include <mono/metadata/metadata-internals.h>
 #include <mono/metadata/mono-debug.h>
 
+MONO_API gboolean
+mono_ppdb_get_signature (MonoImage *image, const char** out_path, guint8 *out_guid, gint32 *out_age, gint32 *out_timestamp);
+
 MonoPPDBFile*
 mono_ppdb_load_file (MonoImage *image, const guint8 *raw_contents, int size);
 

mono/metadata/domain-internals.h

@@ -491,6 +491,9 @@ mono_jit_info_table_free (MonoJitInfoTable *table);
 void
 mono_jit_info_table_add    (MonoDomain *domain, MonoJitInfo *ji);
 
+void
+mono_jit_info_table_foreach (MonoDomain *domain, MonoJitInfoFunc func, void *user_data);
+
 void
 mono_jit_info_table_remove (MonoDomain *domain, MonoJitInfo *ji);
 

mono/metadata/domain.c

@@ -986,6 +986,12 @@ mono_domain_foreach (MonoDomainFunc func, gpointer user_data)
 	gc_free_fixed_non_heap_list (copy);
 }
 
+MONO_API void
+mono_domain_jit_foreach (MonoDomain *domain, MonoJitInfoFunc func, void *user_data)
+{
+	mono_jit_info_table_foreach (domain, func, user_data);
+}
+
 MONO_API void
 mono_domain_assembly_foreach (MonoDomain* domain, MonoDomainAssemblyFunc func, void* user_data)
 {

mono/metadata/jit-info.c

@@ -750,6 +750,25 @@ mono_jit_info_table_remove (MonoDomain *domain, MonoJitInfo *ji)
 	mono_domain_unlock (domain);
 }
 
+void
+mono_jit_info_table_foreach (MonoDomain *domain, MonoJitInfoFunc func, void *user_data)
+{
+	mono_domain_lock (domain);
+
+	MonoJitInfoTable *table = domain->jit_info_table;
+	for (int chunk_index = 0; chunk_index < table->num_chunks; ++chunk_index) {
+		for (int info_index = 0; info_index < table->chunks[chunk_index]->num_elements; ++info_index) {
+			MonoJitInfo *ji = table->chunks[chunk_index]->data[info_index];
+			if (IS_JIT_INFO_TOMBSTONE (ji) || ji->is_trampoline)
+				continue;
+
+			func (domain, ji->d.method, ji, user_data);
+		}
+	}
+
+	mono_domain_unlock (domain);
+}
+
 void
 mono_jit_info_add_aot_module (MonoImage *image, gpointer start, gpointer end)
 {

mono/metadata/unity-utils.h

@@ -96,7 +96,7 @@ guint64 mono_unity_method_get_hash(MonoMethod *method, gboolean inflate);
 MonoMethod* mono_unity_method_get_aot_array_helper_from_wrapper(MonoMethod *method);
 MonoObject* mono_unity_method_convert_return_type_if_needed(MonoMethod *method, void *value);
 MONO_API gboolean unity_mono_method_is_inflated(MonoMethod* method);
-guint32 mono_unity_method_get_token(MonoMethod *method);
+MONO_API guint32 mono_unity_method_get_token(MonoMethod *method);
 
 //domain
 void mono_unity_domain_install_finalize_runtime_invoke(MonoDomain* domain, RuntimeInvokeFunction callback);