Author: rolf
Date: 2007-05-09 13:04:56 -0400 (Wed, 09 May 2007)
New Revision: 77040
Modified:
trunk/mono-basic/vbruntime/Microsoft.VisualBasic/Microsoft.VisualBasic/ChangeLog
trunk/mono-basic/vbruntime/Microsoft.VisualBasic/Microsoft.VisualBasic/Information.vb
Log:
* Information.vb: Fix type comparison.
Modified:
trunk/mono-basic/vbruntime/Microsoft.VisualBasic/Microsoft.VisualBasic/ChangeLog
===================================================================
---
trunk/mono-basic/vbruntime/Microsoft.VisualBasic/Microsoft.VisualBasic/ChangeLog
2007-05-09 17:03:54 UTC (rev 77039)
+++
trunk/mono-basic/vbruntime/Microsoft.VisualBasic/Microsoft.VisualBasic/ChangeLog
2007-05-09 17:04:56 UTC (rev 77040)
@@ -1,3 +1,7 @@
+2007-05-09 Rolf Bjarne Kvinge <[EMAIL PROTECTED]>
+
+ * Information.vb: Fix type comparison.
+
2007-04-24 Rolf Bjarne Kvinge <[EMAIL PROTECTED]>
* Conversion.vb: Build fix.
Modified:
trunk/mono-basic/vbruntime/Microsoft.VisualBasic/Microsoft.VisualBasic/Information.vb
===================================================================
---
trunk/mono-basic/vbruntime/Microsoft.VisualBasic/Microsoft.VisualBasic/Information.vb
2007-05-09 17:03:54 UTC (rev 77039)
+++
trunk/mono-basic/vbruntime/Microsoft.VisualBasic/Microsoft.VisualBasic/Information.vb
2007-05-09 17:04:56 UTC (rev 77040)
@@ -317,13 +317,12 @@
End If
End Select
- '' FIXME: on .NET 2 this doesn`t pass compilation
-#If Not NET_2_0 Then
+
'' Check If got Array Of Arrays then should return
VariantType.Array | VariantType.Object
- If (VarName.GetType.IsArray) And (TypeOf
VarName.GetType.GetElementType Is System.Array) Then
+ If (VarName.GetType.IsArray) AndAlso
VarName.GetType.GetElementType Is GetType(System.Array) Then
Return (VariantType.Array Or VariantType.Object)
End If
-#End If
+
If VarName.GetType.IsArray Then
Return (VariantType.Array Or tmpVar)
End If
_______________________________________________
Mono-patches maillist - [email protected]
http://lists.ximian.com/mailman/listinfo/mono-patches
