Merge pull request #2718 from lambdageek/dev/monoerror-sre
[mono.git] / mcs / mcs / assembly.cs
index 6c99245480b93f6766af3adb8b86f5beddb78c0c..d69feb3de5b15bd0bd0c08a986db9865c0098104 100644 (file)
@@ -77,6 +77,7 @@ namespace Mono.CSharp
 
                // Win32 version info values
                string vi_product, vi_product_version, vi_company, vi_copyright, vi_trademark;
+               string pa_file_version, pa_assembly_version;
 
                protected AssemblyDefinition (ModuleContainer module, string name)
                {
@@ -207,7 +208,7 @@ namespace Mono.CSharp
                                        return;
 
                                if (Compiler.Settings.Target == Target.Exe) {
-                                       a.Error_AttributeEmitError ("The executables cannot be satelite assemblies, remove the attribute or keep it empty");
+                                       Report.Error (7059, a.Location, "Executables cannot be satellite assemblies. Remove the attribute or keep it empty");
                                        return;
                                }
 
@@ -231,7 +232,8 @@ namespace Mono.CSharp
 
                                var vinfo = IsValidAssemblyVersion (value, true);
                                if (vinfo == null) {
-                                       a.Error_AttributeEmitError (string.Format ("Specified version `{0}' is not valid", value));
+                                       Report.Error (7034, a.Location, "The specified version string `{0}' does not conform to the required format - major[.minor[.build[.revision]]]",
+                                               value);
                                        return;
                                }
 
@@ -239,6 +241,7 @@ namespace Mono.CSharp
                                        SetCustomAttribute (ctor, cdata);
                                } else {
                                        builder_extra.SetVersion (vinfo, a.Location);
+                                       pa_assembly_version = vinfo.ToString ();
                                }
 
                                return;
@@ -311,7 +314,7 @@ namespace Mono.CSharp
                                        return;
                                }
 
-                               builder_extra.AddTypeForwarder (t.GetDefinition (), a.Location);
+                               AddTypeForwarders (t, a.Location);
                                return;
                        }
 
@@ -322,13 +325,18 @@ namespace Mono.CSharp
 
                        if (a.Type == pa.InternalsVisibleTo) {
                                string assembly_name = a.GetString ();
+                               if (assembly_name == null) {
+                                       Report.Error (7030, a.Location, "Friend assembly reference cannot have `null' value");
+                                       return;
+                               }
+
                                if (assembly_name.Length == 0)
                                        return;
 #if STATIC
                                ParsedAssemblyName aname;
                                ParseAssemblyResult r = Fusion.ParseAssemblyName (assembly_name, out aname);
                                if (r != ParseAssemblyResult.OK) {
-                                       Report.Warning (1700, 3, a.Location, "Assembly reference `{0}' is invalid and cannot be resolved",
+                                       Report.Warning (1700, 3, a.Location, "Friend assembly reference `{0}' is invalid and cannot be resolved",
                                                assembly_name);
                                        return;
                                }
@@ -351,29 +359,56 @@ namespace Mono.CSharp
                        } else if (a.Type == pa.RuntimeCompatibility) {
                                wrap_non_exception_throws_custom = true;
                        } else if (a.Type == pa.AssemblyFileVersion) {
-                               vi_product_version = a.GetString ();
-                               if (string.IsNullOrEmpty (vi_product_version) || IsValidAssemblyVersion (vi_product_version, false) == null) {
-                                       Report.Warning (1607, 1, a.Location, "The version number `{0}' specified for `{1}' is invalid",
-                                               vi_product_version, a.Name);
+                               pa_file_version = a.GetString ();
+                               if (string.IsNullOrEmpty (pa_file_version) || IsValidAssemblyVersion (pa_file_version, false) == null) {
+                                       Report.Warning (7035, 1, a.Location, "The specified version string `{0}' does not conform to the recommended format major.minor.build.revision",
+                                                       pa_file_version, a.Name);
                                        return;
                                }
+
+                               // File version info decoding from blob is not supported
+                               var cab = new CustomAttributeBuilder ((ConstructorInfo)ctor.GetMetaInfo (), new object [] { pa_file_version });
+                               Builder.SetCustomAttribute (cab);
+                               return;
                        } else if (a.Type == pa.AssemblyProduct) {
                                vi_product = a.GetString ();
                        } else if (a.Type == pa.AssemblyCompany) {
                                vi_company = a.GetString ();
-                       } else if (a.Type == pa.AssemblyDescription) {
-                               // TODO: Needs extra api
                        } else if (a.Type == pa.AssemblyCopyright) {
                                vi_copyright = a.GetString ();
                        } else if (a.Type == pa.AssemblyTrademark) {
                                vi_trademark = a.GetString ();
                        } else if (a.Type == pa.Debuggable) {
                                has_user_debuggable = true;
+                       } else if (a.Type == pa.AssemblyInformationalVersion) {
+                               vi_product_version = a.GetString ();
                        }
 
+                       //
+                       // Win32 version info attributes AssemblyDescription and AssemblyTitle cannot be
+                       // set using public API and because we have blob like attributes we need to use
+                       // special option DecodeVersionInfoAttributeBlobs to support values extraction
+                       //
+
                        SetCustomAttribute (ctor, cdata);
                }
 
+               void AddTypeForwarders (TypeSpec type, Location loc)
+               {
+                       builder_extra.AddTypeForwarder (type.GetDefinition (), loc);
+
+                       var ntypes = MemberCache.GetDeclaredNestedTypes (type);
+                       if (ntypes == null)
+                               return;
+                       
+                       foreach (var nested in ntypes) {
+                               if (nested.IsPrivate)
+                                       continue;
+
+                               AddTypeForwarders (nested, loc);
+                       }
+               }
+
                //
                // When using assembly public key attributes InternalsVisibleTo key
                // was not checked, we have to do it later when we actually know what
@@ -381,34 +416,40 @@ namespace Mono.CSharp
                //
                void CheckReferencesPublicToken ()
                {
-                       // TODO: It should check only references assemblies but there is
-                       // no working SRE API
-                       foreach (var entry in Importer.Assemblies) {
-                               var a = entry as ImportedAssemblyDefinition;
-                               if (a == null || a.IsMissing)
-                                       continue;
-
-                               if (public_key != null && !a.HasStrongName) {
+                       foreach (var an in builder_extra.GetReferencedAssemblies ()) {
+                               if (public_key != null && an.GetPublicKey ().Length == 0) {
                                        Report.Error (1577, "Referenced assembly `{0}' does not have a strong name",
-                                               a.FullName);
+                                               an.FullName);
                                }
 
-                               var ci = a.Assembly.GetName ().CultureInfo;
-                               if (!ci.Equals (System.Globalization.CultureInfo.InvariantCulture)) {
-                                       Report.Warning (1607, 1, "Referenced assembly `{0}' has different culture setting of `{1}'",
-                                               a.Name, ci.Name);
+                               var ci = an.CultureInfo;
+                               if (!ci.Equals (CultureInfo.InvariantCulture)) {
+                                       Report.Warning (8009, 1, "Referenced assembly `{0}' has different culture setting of `{1}'",
+                                               an.Name, ci.Name);
                                }
 
-                               if (!a.IsFriendAssemblyTo (this))
+                               var ia = Importer.GetImportedAssemblyDefinition (an);
+                               if (ia == null)
                                        continue;
 
-                               var attr = a.GetAssemblyVisibleToName (this);
+                               var references = GetNotUnifiedReferences (an);
+                               if (references != null) {
+                                       foreach (var r in references) {
+                                               Report.SymbolRelatedToPreviousError ( r[0]);
+                                               Report.Error (1705, r [1]);
+                                       }
+                               }
+
+                               if (!ia.IsFriendAssemblyTo (this))
+                                       continue;
+                               
+                               var attr = ia.GetAssemblyVisibleToName (this);
                                var atoken = attr.GetPublicKeyToken ();
 
                                if (ArrayComparer.IsEqual (GetPublicKeyToken (), atoken))
                                        continue;
 
-                               Report.SymbolRelatedToPreviousError (a.Location);
+                               Report.SymbolRelatedToPreviousError (ia.Location);
                                Report.Error (281,
                                        "Friend access was granted to `{0}', but the output assembly is named `{1}'. Try adding a reference to `{0}' or change the output assembly name to match it",
                                        attr.FullName, FullName);
@@ -529,6 +570,11 @@ namespace Mono.CSharp
                        return public_key_token;
                }
 
+               protected virtual List<string[]> GetNotUnifiedReferences (AssemblyName assemblyName)
+               {
+                       return null;
+               }
+
                //
                // Either keyFile or keyContainer has to be non-null
                //
@@ -775,7 +821,11 @@ namespace Mono.CSharp
                        if (Compiler.Settings.Win32ResourceFile != null) {
                                Builder.DefineUnmanagedResource (Compiler.Settings.Win32ResourceFile);
                        } else {
-                               Builder.DefineVersionInfoResource (vi_product, vi_product_version, vi_company, vi_copyright, vi_trademark);
+                               Builder.DefineVersionInfoResource (vi_product, 
+                                                                  vi_product_version ?? pa_file_version ?? pa_assembly_version,
+                                                                  vi_company,
+                                                                  vi_copyright,
+                                                                  vi_trademark);
                        }
 
                        if (Compiler.Settings.Win32IconFile != null) {
@@ -858,8 +908,10 @@ namespace Mono.CSharp
                                } else {
                                        Builder.Save (module.Builder.ScopeName, pekind, machine);
                                }
+                       } catch (ArgumentOutOfRangeException) {
+                               Report.Error (16, "Output file `{0}' exceeds the 4GB limit");
                        } catch (Exception e) {
-                               Report.Error (16, "Could not write to file `" + name + "', cause: " + e.Message);
+                               Report.Error (16, "Could not write to file `{0}'. {1}", name, e.Message);
                        }
                        Compiler.TimeReporter.Stop (TimeReporter.TimerType.OutputSave);
 
@@ -1075,7 +1127,7 @@ namespace Mono.CSharp
        //
        public class AssemblyBuilderExtension
        {
-               readonly CompilerContext ctx;
+               protected readonly CompilerContext ctx;
 
                public AssemblyBuilderExtension (CompilerContext ctx)
                {
@@ -1103,6 +1155,11 @@ namespace Mono.CSharp
                        ctx.Report.RuntimeMissingSupport (Location.Null, "-win32icon");
                }
 
+               public virtual AssemblyName[] GetReferencedAssemblies ()
+               {
+                       return null;
+               }
+
                public virtual void SetAlgorithmId (uint value, Location loc)
                {
                        ctx.Report.RuntimeMissingSupport (loc, "AssemblyAlgorithmIdAttribute");