From: Zoltan Varga <vargaz@gmail.com>
Date: Tue, 10 Jun 2003 09:57:22 +0000 (-0000)
Subject: 2003-06-10  Zoltan Varga  <vargaz@freemail.hu>
X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=commitdiff_plain;ds=sidebyside;h=576b6ce71454eb81da7fe7d878243813a4c06874;p=mono.git

2003-06-10  Zoltan Varga  <vargaz@freemail.hu>

	* icall.c (ves_icall_System_Reflection_Module_GetGuidInternal):
	New icall to return the GUID of a module.

svn path=/trunk/mono/; revision=15273
---

diff --git a/mono/metadata/ChangeLog b/mono/metadata/ChangeLog
index 49216e3794c..b5424a1e718 100644
--- a/mono/metadata/ChangeLog
+++ b/mono/metadata/ChangeLog
@@ -1,3 +1,7 @@
+2003-06-10  Zoltan Varga  <vargaz@freemail.hu>
+
+	* icall.c (ves_icall_System_Reflection_Module_GetGuidInternal): 
+	New icall to return the GUID of a module.
 
 Mon Jun 9 19:33:51 CEST 2003 Paolo Molaro <lupus@ximian.com>
 
diff --git a/mono/metadata/icall.c b/mono/metadata/icall.c
index b6aafc0c33b..1af311cf49f 100644
--- a/mono/metadata/icall.c
+++ b/mono/metadata/icall.c
@@ -2678,6 +2678,17 @@ ves_icall_System_Reflection_Module_GetGlobalType (MonoReflectionModule *module)
 	return mono_type_get_object (domain, &klass->byval_arg);
 }
 
+static MonoString*
+ves_icall_System_Reflection_Module_GetGuidInternal (MonoReflectionModule *module)
+{
+	MonoDomain *domain = mono_object_domain (module); 
+
+	MONO_ARCH_SAVE_REGS;
+
+	g_assert (module->image);
+	return mono_string_new (domain, module->image->guid);
+}
+
 static MonoReflectionType*
 ves_icall_ModuleBuilder_create_modified_type (MonoReflectionTypeBuilder *tb, MonoString *smodifiers)
 {
@@ -3841,6 +3852,7 @@ static gconstpointer icall_map [] = {
 	 * System.Reflection.Module
 	 */
 	"System.Reflection.Module::GetGlobalType", ves_icall_System_Reflection_Module_GetGlobalType,
+	"System.Reflection.Module::GetGuidInternal", ves_icall_System_Reflection_Module_GetGuidInternal,
 
 	/*
 	 * System.MonoType.