Small correction in the Test case file : 'ImpConversionDatetoStringA.vb'

[mono.git] / mcs / mbas / module.cs

diff --git a/mcs/mbas/module.cs b/mcs/mbas/module.cs
index 7169921aaf5f2453e3f1cbb8e981d023458f52ac..7e59be90e3e86238efd819de22a5b5c341d1c8dd 100644 (file)
--- a/mcs/mbas/module.cs
+++ b/mcs/mbas/module.cs
@@ -13,7 +13,7 @@ using System.Diagnostics.SymbolStore;
 using System.Reflection;
 using System.Reflection.Emit;
 using System.Runtime.CompilerServices;
-using Mono.CSharp ;
+using Mono.MonoBASIC ;
 
 namespace Mono.MonoBASIC
 {
@@ -21,21 +21,20 @@ namespace Mono.MonoBASIC
        {
                public static void AddSpecializedAttribute(ref Attributes attrs, string attributeName, ArrayList args, Location loc)
                {
-                       Mono.CSharp.Attribute specialAttr = new Mono.CSharp.Attribute(attributeName, args, loc);
+                       Mono.MonoBASIC.Attribute specialAttr = new Mono.MonoBASIC.Attribute(attributeName, args, loc);
                        ArrayList al = new ArrayList();
                        al.Add(specialAttr);
-                       AttributeSection asec = new AttributeSection(null, al);
                        if (attrs == null)
-                               attrs = new Attributes(asec, loc);
+                               attrs = new Attributes(al);
                        else
-                               attrs.AddAttribute(asec);
+                               attrs.Add(al);
                }
        }
        
        /// <summary>
        /// Summary description for module.
        /// </summary>
-       public class Module : Mono.CSharp.Class 
+       public class Module : Mono.MonoBASIC.Class 
        {
                // <summary>
                //   Modifiers allowed in a class declaration
@@ -44,19 +43,19 @@ namespace Mono.MonoBASIC
                        Modifiers.PUBLIC |
                        Modifiers.INTERNAL
                        ;
-                       
+
                public Module(TypeContainer parent, string name, int mod, Attributes attrs, Location l)
-                       : base (parent, name, 0, null, l)
+                       : base (parent, name, 0, attrs, l)
                {
                        if (parent.Parent != null)
-                               Report.Error (30617, l, "'Module' statements can occur only at file or namespace level");
-                               
+                               Report.Error (30617, l,
+                                       "'Module' statements can occur only at file or namespace level");
+
                        // overwrite ModFlags
                        this.ModFlags = Modifiers.Check (AllowedModifiers, mod, Modifiers.INTERNAL, l);
 
                        // add specialized attribute
                        Utils.AddSpecializedAttribute(ref attrs, "Microsoft.VisualBasic.CompilerServices.StandardModuleAttribute", null, l);
-                       this.attributes = attrs;
                }
 
                //