From: Alexandre Rocha Lima e Marcondes <alexandre@mono-cvs.ximian.com>
Date: Tue, 8 Nov 2005 05:08:19 +0000 (-0000)
Subject: 2005-11-07 Maverson Eduardo Schulze Rosa <maverson@gmail.com>
X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=commitdiff_plain;h=9cf5fc9bf5df03ccd5c8fd35d4725e680a0702d2;p=mono.git

2005-11-07 Maverson Eduardo Schulze Rosa <maverson@gmail.com>
 	* LateBinding.cs: Revised patch from Tobias Käs <tobias.kaes@gmx.de>
 	for fixes data types conversions in LateSet.
        * Added TypeMemberY.vb testing bug #76453


svn path=/trunk/mcs/; revision=52685
---

diff --git a/mcs/class/Microsoft.VisualBasic/Microsoft.VisualBasic.CompilerServices/ChangeLog b/mcs/class/Microsoft.VisualBasic/Microsoft.VisualBasic.CompilerServices/ChangeLog
index 292f43d7829..f06fb4ac27a 100644
--- a/mcs/class/Microsoft.VisualBasic/Microsoft.VisualBasic.CompilerServices/ChangeLog
+++ b/mcs/class/Microsoft.VisualBasic/Microsoft.VisualBasic.CompilerServices/ChangeLog
@@ -1,3 +1,7 @@
+ 2005-11-07 Maverson Eduardo Schulze Rosa <maverson@gmail.com>
+ 	* LateBinding.cs: Revised patch from Tobias Käs <tobias.kaes@gmx.de>
+ 	for fixes data types conversions in LateSet.
+
 2005-11-06 Maverson Eduardo Schulze Rosa <maverson@gmail.com>
 	* LateBinding.cs : Calling 'LateIndexSet' if the member resolves to a
 	field, but arguments length are greater than one.
@@ -11,7 +15,6 @@
 		Modified the 'FromString' method to :
 		- Throw an InvalidCastException whenever 'Convert.ToDouble' throws a FormatException
 		- Support conversion of octal and hex literals to all numeric types.
-		
 
 2005-06-06  Rafael Teixeira <rafaelteixeirabr@hotmail.com>
 	* VBBinder.cs : Made it internal as it isn't public in 1.1 API
diff --git a/mcs/class/Microsoft.VisualBasic/Microsoft.VisualBasic.CompilerServices/LateBinding.cs b/mcs/class/Microsoft.VisualBasic/Microsoft.VisualBasic.CompilerServices/LateBinding.cs
index b5b69af698e..f4e35d4c59f 100644
--- a/mcs/class/Microsoft.VisualBasic/Microsoft.VisualBasic.CompilerServices/LateBinding.cs
+++ b/mcs/class/Microsoft.VisualBasic/Microsoft.VisualBasic.CompilerServices/LateBinding.cs
@@ -163,7 +163,7 @@ namespace Microsoft.VisualBasic.CompilerServices {
 					return;
 				}
 
-				fi.SetValue (o, value);
+				fi.SetValue (o, ObjectType.CTypeHelper(value, fi.FieldType));
 				return;
 			}
 
diff --git a/mcs/mbas/Test/tests/latebinding/Changelog b/mcs/mbas/Test/tests/latebinding/Changelog
index 2c4c1ced50a..df3f9b7754c 100644
--- a/mcs/mbas/Test/tests/latebinding/Changelog
+++ b/mcs/mbas/Test/tests/latebinding/Changelog
@@ -1,3 +1,6 @@
+2005-11-07 Maverson Eduardo Schulze Rosa (maverson@gmail.com)
+        * Added TypeMemberY.vb testing bug #76453
+
 2005-04-29 Satya Sudha K <ksathyasudha@novell.com>
 	* Some testcases for late binding
 
diff --git a/mcs/mbas/Test/tests/latebinding/TypeMembersY.vb b/mcs/mbas/Test/tests/latebinding/TypeMembersY.vb
new file mode 100644
index 00000000000..9de38810241
--- /dev/null
+++ b/mcs/mbas/Test/tests/latebinding/TypeMembersY.vb
@@ -0,0 +1,21 @@
+' Author:
+'   Maverson Eduardo Schulze Rosa (maverson@gmail.com)
+'
+' GrupoTIC - UFPR - Federal University of Paraná
+
+Imports System
+
+Module M
+	Class C
+		public b As Byte
+	end class
+	
+	Sub Main()
+		Dim o As Object = new C
+		o.b = 0
+
+                if o.b <> 0 then
+                        throw new System.Exception("LateBinding Not Working")
+                end if
+	end sub
+end module