Author: rolf
Date: 2007-05-13 04:44:07 -0400 (Sun, 13 May 2007)
New Revision: 77308
Modified:
trunk/mono-basic/vbnc/vbnc/source/ChangeLog
trunk/mono-basic/vbnc/vbnc/source/Expressions/GetRefExpression.vb
trunk/mono-basic/vbnc/vbnc/source/Expressions/MemberAccessExpression.vb
trunk/mono-basic/vbnc/vbnc/source/General/AssemblyInfo.vb
Log:
* vbnc.vbproj: Updated.
Modified: trunk/mono-basic/vbnc/vbnc/source/ChangeLog
===================================================================
--- trunk/mono-basic/vbnc/vbnc/source/ChangeLog 2007-05-13 08:08:14 UTC (rev
77307)
+++ trunk/mono-basic/vbnc/vbnc/source/ChangeLog 2007-05-13 08:44:07 UTC (rev
77308)
@@ -2,6 +2,10 @@
* vbnc.vbproj: Updated.
+2007-05-13 Rolf Bjarne Kvinge <[EMAIL PROTECTED]>
+
+ * vbnc.vbproj: Updated.
+
2007-05-12 Rolf Bjarne Kvinge <[EMAIL PROTECTED]>
* vbnc.vbproj: Updated.
Modified: trunk/mono-basic/vbnc/vbnc/source/Expressions/GetRefExpression.vb
===================================================================
--- trunk/mono-basic/vbnc/vbnc/source/Expressions/GetRefExpression.vb
2007-05-13 08:08:14 UTC (rev 77307)
+++ trunk/mono-basic/vbnc/vbnc/source/Expressions/GetRefExpression.vb
2007-05-13 08:44:07 UTC (rev 77308)
@@ -64,7 +64,8 @@
Dim varC As VariableClassification =
m_Expression.Classification.AsVariableClassification
If varC.InstanceExpression IsNot Nothing Then
- result = varC.InstanceExpression.GenerateCode(refInfo)
AndAlso result
+ result =
varC.InstanceExpression.GenerateCode(Info.Clone(varC.InstanceExpression.ExpressionType))
AndAlso result
+ 'result = varC.InstanceExpression.GenerateCode(refInfo)
AndAlso result
End If
If varC.LocalBuilder IsNot Nothing Then
Modified:
trunk/mono-basic/vbnc/vbnc/source/Expressions/MemberAccessExpression.vb
===================================================================
--- trunk/mono-basic/vbnc/vbnc/source/Expressions/MemberAccessExpression.vb
2007-05-13 08:08:14 UTC (rev 77307)
+++ trunk/mono-basic/vbnc/vbnc/source/Expressions/MemberAccessExpression.vb
2007-05-13 08:44:07 UTC (rev 77308)
@@ -201,7 +201,6 @@
'---------------------------------------------------------------------------------------------------------
Dim Name As String = m_Second.Name
- 'If Name = "IsNumeric" Then Stop
If m_First IsNot Nothing Then
result = m_First.ResolveExpression(Info) AndAlso result
@@ -548,6 +547,9 @@
Return True
ElseIf T.IsValueType Then
If m_First.Classification.IsVariableClassification Then
+ If Not TypeOf m_First Is InstanceExpression Then
+ m_First = m_First.GetObjectReference
+ End If
If fld.IsStatic Then
Classification = New
VariableClassification(Me, fld, Nothing)
Else
Modified: trunk/mono-basic/vbnc/vbnc/source/General/AssemblyInfo.vb
===================================================================
--- trunk/mono-basic/vbnc/vbnc/source/General/AssemblyInfo.vb 2007-05-13
08:08:14 UTC (rev 77307)
+++ trunk/mono-basic/vbnc/vbnc/source/General/AssemblyInfo.vb 2007-05-13
08:44:07 UTC (rev 77308)
@@ -49,4 +49,4 @@
' You can specify all the values or you can default the Build and Revision
Numbers
' by using the '*' as shown below:
-<Assembly: AssemblyVersion("0.0.0.5449")>
+<Assembly: AssemblyVersion("0.0.0.5456")>
_______________________________________________
Mono-patches maillist - [email protected]
http://lists.ximian.com/mailman/listinfo/mono-patches
