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 292f43d7829d919a08730e9995cd99d72d212a5a..f06fb4ac27a4224fee557a25cc9f92b8a8837b7e 100644 (file)
--- 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 b5b69af698e21de6846c6c6291206d9bdf301d77..f4e35d4c59f3c7e5323bff1b08b1314ba64d2990 100644 (file)
--- 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 2c4c1ced50afbfe549b0815cf7c2b9bec7e29307..df3f9b7754cd48c6590960849ec893ac7c6a1848 100644 (file)
--- 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 (file)
index 0000000..9de3881
--- /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