[aot] Rewrite the AOT profiler. (#4176)

[mono.git] / mono / metadata / domain.c

diff --git a/mono/metadata/domain.c b/mono/metadata/domain.c
index 26ee185cac717347684b88535fa54ccf7b13c3db..76cfe9979db3b8498e9f195c71787832da9ed2d0 100644 (file)
--- a/mono/metadata/domain.c
+++ b/mono/metadata/domain.c
@@ -2013,3 +2013,24 @@ mono_domain_unlock (MonoDomain *domain)
 {
        mono_locks_coop_release (&domain->lock, DomainLock);
 }
+
+GPtrArray*
+mono_domain_get_assemblies (MonoDomain *domain, gboolean refonly)
+{
+       GSList *tmp;
+       GPtrArray *assemblies;
+       MonoAssembly *ass;
+
+       assemblies = g_ptr_array_new ();
+       mono_domain_assemblies_lock (domain);
+       for (tmp = domain->domain_assemblies; tmp; tmp = tmp->next) {
+               ass = (MonoAssembly *)tmp->data;
+               if (refonly != ass->ref_only)
+                       continue;
+               if (ass->corlib_internal)
+                       continue;
+               g_ptr_array_add (assemblies, ass);
+       }
+       mono_domain_assemblies_unlock (domain);
+       return assemblies;
+}