* expression.cs:

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

diff --git a/mcs/mbas/tree.cs b/mcs/mbas/tree.cs
index 6ff1923dbe7bb234d1d77bc9212fdeaf2eaa2ac3..4f424cd820de88f5f8dbd6d2078c4fd3c7fa9c2a 100644 (file)
--- a/mcs/mbas/tree.cs
+++ b/mcs/mbas/tree.cs
@@ -45,7 +45,7 @@ namespace Mono.MonoBASIC
                
                public Tree ()
                {
-                       root_types = new TypeContainer (null, "", new Location (-1, 0));
+                       root_types = new TypeContainer (null, "", null, new Location (-1, 0));
 
                        decls = new Hashtable ();
                        namespaces = new Hashtable ();
@@ -55,7 +55,7 @@ namespace Mono.MonoBASIC
                {
                        if (decls.Contains (name)){
                                Report.Error (
-                                       101, ds.Location,
+                                       30179, ds.Location,
                                        "There is already a definition for `" + name + "'");
                                DeclSpace other = (DeclSpace) decls [name];
                                Report.Error (0,