Author: rolf
Date: 2007-08-08 09:15:07 -0400 (Wed, 08 Aug 2007)
New Revision: 83667
Modified:
trunk/mono-basic/vbnc/vbnc/source/ChangeLog
trunk/mono-basic/vbnc/vbnc/source/Expressions/SimpleNameExpression.vb
Log:
* Expressions/SimpleNameExpression.vb: Implement imported fields from
modules.
Modified: trunk/mono-basic/vbnc/vbnc/source/ChangeLog
===================================================================
--- trunk/mono-basic/vbnc/vbnc/source/ChangeLog 2007-08-08 13:14:21 UTC (rev
83666)
+++ trunk/mono-basic/vbnc/vbnc/source/ChangeLog 2007-08-08 13:15:07 UTC (rev
83667)
@@ -1,5 +1,10 @@
2007-08-08 Rolf Bjarne Kvinge <[EMAIL PROTECTED]>
+ * Expressions/SimpleNameExpression.vb: Implement imported fields from
+ modules.
+
+2007-08-08 Rolf Bjarne Kvinge <[EMAIL PROTECTED]>
+
* Expressions/ArgumentList.vb: If a byref parameter's expression doesn't
match the parameters's type, create a temporary value (of the correct
type), and store/restore the value there.
Modified: trunk/mono-basic/vbnc/vbnc/source/Expressions/SimpleNameExpression.vb
===================================================================
--- trunk/mono-basic/vbnc/vbnc/source/Expressions/SimpleNameExpression.vb
2007-08-08 13:14:21 UTC (rev 83666)
+++ trunk/mono-basic/vbnc/vbnc/source/Expressions/SimpleNameExpression.vb
2007-08-08 13:15:07 UTC (rev 83667)
@@ -831,6 +831,10 @@
Classification = New TypeClassification(Me, impmembers(0))
Return True
End If
+ If Helper.IsFieldDeclaration(impmembers(0)) Then
+ Classification = New ValueClassification(Me,
DirectCast(impmembers(0), FieldInfo), Nothing)
+ Return True
+ End If
Helper.NotImplemented("Found " & impmembers.Count & " impmembers.")
End If
_______________________________________________
Mono-patches maillist - [email protected]
http://lists.ximian.com/mailman/listinfo/mono-patches
