2005-01-26 Martin Baulig <martin@ximian.com>

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

diff --git a/mcs/mbas/const.cs b/mcs/mbas/const.cs
index 9e197c55642ba293f8b0d497c0ce99ddfc55e2bb..09282a89d9dc61b2bae309b39a44477773a03145 100644 (file)
--- a/mcs/mbas/const.cs
+++ b/mcs/mbas/const.cs
@@ -28,7 +28,6 @@ namespace Mono.MonoBASIC {
        public class Const : MemberCore {
                public Expression ConstantType;
                public Expression Expr;
-               public Attributes  OptAttributes;
                public FieldBuilder FieldBuilder;
 
                object ConstantValue = null;
@@ -45,13 +44,18 @@ namespace Mono.MonoBASIC {
 
                public Const (Expression constant_type, string name, Expression expr, int mod_flags,
                              Attributes attrs, Location loc)
-                       : base (name, loc)
+                       : base (name, attrs, loc)
                {
                        ConstantType = constant_type;
                        Name = name;
                        Expr = expr;
                        ModFlags = Modifiers.Check (AllowedModifiers, mod_flags, Modifiers.PRIVATE, loc);
-                       OptAttributes = attrs;
+               }
+
+               public override AttributeTargets AttributeTargets {
+                       get {
+                               return AttributeTargets.Field;
+                       }
                }
 
                public FieldAttributes FieldAttr {
@@ -200,7 +204,7 @@ namespace Mono.MonoBASIC {
                                        Expr = un_expr.Expr;
                                else if ((ch_expr != null) && (ch_expr.Expr is Constant))
                                        Expr = ch_expr.Expr;
-                               else \r
+                               else 
                                {
                                        Report.Error (30059, Location, "A constant value is expected");
                                        return null;
@@ -279,5 +283,11 @@ namespace Mono.MonoBASIC {
                        
                        return;
                }
+               
+               public override void ApplyAttributeBuilder (Attribute a, CustomAttributeBuilder cb)
+               {
+                       FieldBuilder.SetCustomAttribute (cb);
+               }
+               
        }
 }