2005-01-26 Rafael Teixeira <rafaelteixeirabr@hotmail.com>

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

diff --git a/mcs/mbas/class.cs b/mcs/mbas/class.cs
index 82a432770ee608ea0fe621cfb507b9cc9d4d18d3..0c715930afd7b03620ce72473e3db3cd8784f785 100644 (file)
--- a/mcs/mbas/class.cs
+++ b/mcs/mbas/class.cs
@@ -823,7 +823,7 @@ namespace Mono.MonoBASIC {
                                        "declared as 'Protected'");
 
                        if ((Parent is Struct) && ((ModFlags & Modifiers.PROTECTED) != 0))
-                               Report.Error (30435, Location,
+                               Report.Error (31047, Location,
                                        "'Type' inside a 'Structure' can not be " +
                                        "declared as 'Protected'");
                        
@@ -1641,7 +1641,7 @@ namespace Mono.MonoBASIC {
                        if ((flags & Modifiers.PRIVATE) != 0){
                                if ((flags & vao) != 0){
                                        Report.Error (
-                                               31408, loc, name +
+                                               30266, loc, name +
                                                ": Members marked as Overridable or Overrides can not be Private");
                                        ok = false;
                                }
@@ -3331,7 +3331,7 @@ namespace Mono.MonoBASIC {
                                                      TypeManager.MonoBASIC_Name (MemberType) + "' is less " +
                                                      "accessible than property `" + Name + "'");
                                else if (this is Method)
-                                       Report.Error (50, Location,
+                                       Report.Error (30508, Location,
                                                      "Inconsistent accessibility: return type `" +
                                                      TypeManager.MonoBASIC_Name (MemberType) + "' is less " +
                                                      "accessible than method `" + Name + "'");
@@ -3509,7 +3509,7 @@ namespace Mono.MonoBASIC {
                        }
                        
                        if ((parent is Struct) && ((ModFlags & Modifiers.PROTECTED) != 0))
-                               Report.Error (30435, Location,
+                               Report.Error (31047, Location,
                                        "'Variable' inside a 'Structure' can not be " +
                                        "declared as 'Protected'");