X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=mono%2Fmetadata%2Fdomain.c;h=76cfe9979db3b8498e9f195c71787832da9ed2d0;hb=2ba6bcbc48f8b4e145f9ad450fef8d411b728a8e;hp=26ee185cac717347684b88535fa54ccf7b13c3db;hpb=0007e99a87229eab592c179430c4fe3d885e1363;p=mono.git

diff --git a/mono/metadata/domain.c b/mono/metadata/domain.c
index 26ee185cac7..76cfe9979db 100644
--- 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;
+}