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 49216e3794c00356c7ef9b48ceea5009b13a188e..b5424a1e718dd24c6714c747f334c7d53ab0371c 100644 (file)
--- 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 b6aafc0c33b46bffcba9673e89f6db4c2e08a9ca..1af311cf49fc4588a2290c6ff28bf5759068e1d4 100644 (file)
--- 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.