Fri Feb 22 18:54:13 CET 2002 Paolo Molaro <lupus@ximian.com>

	* MonoField.cs: implement GetValue as an internalcall.
	Implemented ToString().

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

diff --git a/mcs/class/corlib/System.Reflection/ChangeLog b/mcs/class/corlib/System.Reflection/ChangeLog
index efabada4fd1db864da3faaede5d5e01d4cd1e956..2dbf11dad5e8fa6b9b05d778e1785ecfc1eb1d4b 100644 (file)
--- a/mcs/class/corlib/System.Reflection/ChangeLog
+++ b/mcs/class/corlib/System.Reflection/ChangeLog
@@ -1,4 +1,9 @@
 \r
+Fri Feb 22 18:54:13 CET 2002 Paolo Molaro <lupus@ximian.com>\r
+\r
+       * MonoField.cs: implement GetValue as an internalcall.\r
+       Implemented ToString().\r
+\r
 Tue Feb 19 20:36:04 CET 2002 Paolo Molaro <lupus@ximian.com>\r
 \r
        * Assembly.cs, Module.cs, MonoField.cs, MonoMethod.cs,\r

diff --git a/mcs/class/corlib/System.Reflection/MonoField.cs b/mcs/class/corlib/System.Reflection/MonoField.cs
index 807b5cee7f50f9b990e9cd7b0907dd5b979ca6bf..109d9e0041384195d08faf1b7b120a65b410b254 100755 (executable)
--- a/mcs/class/corlib/System.Reflection/MonoField.cs
+++ b/mcs/class/corlib/System.Reflection/MonoField.cs
@@ -82,9 +82,13 @@ namespace System.Reflection {
                        return MonoCustomAttrs.GetCustomAttributes (this, attributeType, inherit);
                }
 
-               public override object GetValue(object obj) {
-                       throw new NotImplementedException ("Field::GetValue");
-               }
+               [MethodImplAttribute(MethodImplOptions.InternalCall)]
+               public extern override object GetValue(object obj);
 
+               public override string ToString () {
+                       MonoFieldInfo info;
+                       MonoFieldInfo.get_field_info (this, out info);
+                       return String.Format ("{0} {1}", info.type, info.name);
+               }
        }
 }