[sgen] Untag the vtable during concurrent mark

[mono.git] / mcs / class / Microsoft.Build.Tasks / Microsoft.Build.Tasks / Vbc.cs

diff --git a/mcs/class/Microsoft.Build.Tasks/Microsoft.Build.Tasks/Vbc.cs b/mcs/class/Microsoft.Build.Tasks/Microsoft.Build.Tasks/Vbc.cs
index bc3a5fbd15e28492432797d72828bc09af43db7f..cf56b148f117e2427363568d8a2be911ea64e807 100644 (file)
--- a/mcs/class/Microsoft.Build.Tasks/Microsoft.Build.Tasks/Vbc.cs
+++ b/mcs/class/Microsoft.Build.Tasks/Microsoft.Build.Tasks/Vbc.cs
@@ -73,6 +73,8 @@ namespace Microsoft.Build.Tasks {
                        commandLine.AppendSwitchIfNotNull ("/main:", MainEntryPoint);
 
                        // NoStandardLib
+                       if (Bag ["NoStandardLib"] != null && NoStandardLib)
+                               commandLine.AppendSwitch ("/nostdlib");
                        
                        if (NoWarnings)
                                commandLine.AppendSwitch ("/nowarn");
@@ -91,6 +93,12 @@ namespace Microsoft.Build.Tasks {
                                else
                                        commandLine.AppendSwitch ("/optionstrict-");
 
+                       if (Bag ["OptionInfer"] != null)
+                               if (OptionInfer)
+                                       commandLine.AppendSwitch ("/optioninfer+");
+                               else
+                                       commandLine.AppendSwitch ("/optioninfer-");
+
                        // OptionStrictType
                        
                        // Platform
@@ -114,6 +122,9 @@ namespace Microsoft.Build.Tasks {
                        commandLine.AppendSwitchIfNotNull ("/sdkpath:", SdkPath);
 
                        // TargetCompactFramework
+
+                       if (String.Compare (VBRuntime, "Embed", StringComparison.OrdinalIgnoreCase) == 0) 
+                               commandLine.AppendSwitch ("/vbruntime*");
                        
                        // Verbosity
 
@@ -272,6 +283,12 @@ namespace Microsoft.Build.Tasks {
                        get { return (string) Bag ["OptionStrictType"]; }
                        set { Bag ["OptionStrictType"] = value; }
                }
+
+               [MonoTODO]
+               public bool OptionInfer {
+                       get { return GetBoolParameterWithDefault ("OptionInfer", false); }
+                       set { Bag ["OptionInfer"] = value; }
+               }
                
                [MonoTODO]
                public string Platform {
@@ -316,6 +333,12 @@ namespace Microsoft.Build.Tasks {
                        set { Bag ["UseHostCompilerIfAvailable"] = value; }
                }
 
+               [MonoTODO]
+               public string VBRuntime {
+                       get { return (string) Bag ["VBRuntime"]; }
+                       set { Bag ["VBRuntime"] = value; }
+               }
+
                [MonoTODO]
                public string Verbosity {
                        get { return (string) Bag ["Verbosity"]; }