2004-09-28 Zoltan Varga <vargaz@freemail.hu>

	* Marshal.cs (GetFunctionPointerForDelegate): Implement.

svn path=/trunk/mcs/; revision=34497

diff --git a/mcs/class/corlib/System.Runtime.InteropServices/ChangeLog b/mcs/class/corlib/System.Runtime.InteropServices/ChangeLog
index b119d09075193aed70a82a0187384c62f8e6099a..2c4ddda9bbe39349d17a3f688d59e1533c636193 100644 (file)
--- a/mcs/class/corlib/System.Runtime.InteropServices/ChangeLog
+++ b/mcs/class/corlib/System.Runtime.InteropServices/ChangeLog
@@ -1,5 +1,7 @@
 2004-09-28  Zoltan Varga  <vargaz@freemail.hu>
 
+       * Marshal.cs (GetFunctionPointerForDelegate): Implement.
+       
        * Marshal.cs: Add stubs for missing 2.0 methods.
 
 2004-09-24  Zoltan Varga  <vargaz@freemail.hu>

diff --git a/mcs/class/corlib/System.Runtime.InteropServices/Marshal.cs b/mcs/class/corlib/System.Runtime.InteropServices/Marshal.cs
index 5b6de9a78105fc03b1741f89f93d7fc2a700b24f..0a430b7b908b0d48e1549d14335fc29ef1e1c44f 100644 (file)
--- a/mcs/class/corlib/System.Runtime.InteropServices/Marshal.cs
+++ b/mcs/class/corlib/System.Runtime.InteropServices/Marshal.cs
@@ -727,12 +727,14 @@ namespace System.Runtime.InteropServices
                        throw new NotImplementedException ();
                }
 
-               [MonoTODO]
+               [MethodImplAttribute(MethodImplOptions.InternalCall)]
+               public static extern IntPtr GetFunctionPointerForDelegateInternal (Delegate d);
+               
                public static IntPtr GetFunctionPointerForDelegate (Delegate d) {
                        if (d == null)
                                throw new ArgumentNullException ("d");
                        
-                       throw new NotImplementedException ();
+                       return GetFunctionPointerForDelegateInternal (d);
                }
 #endif
        }