//
// Only remove it if you need to debug locally on your tree.
//
-#define PRODUCTION
+//#define PRODUCTION
using System;
using System.IO;
static AppDomain current_domain;
public static AssemblyClass Assembly;
- public static ModuleClass Module;
static CodeGen ()
{
public static void Reset ()
{
Assembly = new AssemblyClass ();
- Module = new ModuleClass (RootContext.Unsafe);
}
public static string Basename (string name)
static public string FileName;
+#if MS_COMPATIBLE
+ const AssemblyBuilderAccess COMPILER_ACCESS = 0;
+#else
+ /* Keep this in sync with System.Reflection.Emit.AssemblyBuilder */
+ const AssemblyBuilderAccess COMPILER_ACCESS = (AssemblyBuilderAccess) 0x800;
+#endif
+
//
- // Initializes the symbol writer
+ // Initializes the code generator variables for interactive use (repl)
//
- static void InitializeSymbolWriter (string filename)
+ static public void InitDynamic (string name)
{
- if (!SymbolWriter.Initialize (Module.Builder, filename)) {
- Report.Warning (
- -18, 1, "Could not find the symbol writer assembly (Mono.CompilerServices.SymbolWriter.dll). This is normally an installation problem. Please make sure to compile and install the mcs/class/Mono.CompilerServices.SymbolWriter directory.");
- return;
- }
+ current_domain = AppDomain.CurrentDomain;
+ AssemblyName an = Assembly.GetAssemblyName (name, name);
+
+ Assembly.Builder = current_domain.DefineDynamicAssembly (an, AssemblyBuilderAccess.Run | COMPILER_ACCESS);
+ RootContext.ToplevelTypes = new ModuleContainer (true);
+ RootContext.ToplevelTypes.Builder = Assembly.Builder.DefineDynamicModule (Basename (name), false);
+ Assembly.Name = Assembly.Builder.GetName ();
}
-
+
//
// Initializes the code generator variables
//
if (an.KeyPair != null) {
// If we are going to strong name our assembly make
// sure all its refs are strong named
- foreach (Assembly a in RootNamespace.Global.Assemblies) {
+ foreach (Assembly a in GlobalRootNamespace.Instance.Assemblies) {
AssemblyName ref_name = a.GetName ();
byte [] b = ref_name.GetPublicKeyToken ();
if (b == null || b.Length == 0) {
current_domain = AppDomain.CurrentDomain;
try {
-#if MS_COMPATIBLE
- const AssemblyBuilderAccess COMPILER_ACCESS = 0;
-#else
- /* Keep this in sync with System.Reflection.Emit.AssemblyBuilder */
- const AssemblyBuilderAccess COMPILER_ACCESS = (AssemblyBuilderAccess) 0x800;
-#endif
-
Assembly.Builder = current_domain.DefineDynamicAssembly (an,
- AssemblyBuilderAccess.Save | COMPILER_ACCESS, Dirname (name));
+ AssemblyBuilderAccess.RunAndSave | COMPILER_ACCESS, Dirname (name));
}
catch (ArgumentException) {
// specified key may not be exportable outside it's container
return false;
}
-#if GMCS_SOURCE
// Get the complete AssemblyName from the builder
// (We need to get the public key and token)
Assembly.Name = Assembly.Builder.GetName ();
-#endif
//
// Pass a path-less name to DefineDynamicModule. Wonder how
// If the third argument is true, the ModuleBuilder will dynamically
// load the default symbol writer.
//
- Module.Builder = Assembly.Builder.DefineDynamicModule (
- Basename (name), Basename (output), false);
-
- if (want_debugging_support)
- InitializeSymbolWriter (output);
+ try {
+ RootContext.ToplevelTypes.Builder = Assembly.Builder.DefineDynamicModule (
+ Basename (name), Basename (output), want_debugging_support);
+
+#if !MS_COMPATIBLE
+ // TODO: We should use SymbolWriter from DefineDynamicModule
+ if (want_debugging_support && !SymbolWriter.Initialize (RootContext.ToplevelTypes.Builder, output)) {
+ Report.Error (40, "Unexpected debug information initialization error `{0}'",
+ "Could not find the symbol writer assembly (Mono.CompilerServices.SymbolWriter.dll)");
+ return false;
+ }
+#endif
+ } catch (ExecutionEngineException e) {
+ Report.Error (40, "Unexpected debug information initialization error `{0}'",
+ e.Message);
+ return false;
+ }
return true;
}
- static public void Save (string name)
+ static public void Save (string name, bool saveDebugInfo)
{
try {
Assembly.Builder.Save (Basename (name));
-
- SymbolWriter.WriteSymbolFile ();
}
catch (COMException) {
if ((RootContext.StrongNameKeyFile == null) || (!RootContext.StrongNameDelaySign))
}
catch (System.IO.IOException io) {
Report.Error (16, "Could not write to file `"+name+"', cause: " + io.Message);
+ return;
}
catch (System.UnauthorizedAccessException ua) {
Report.Error (16, "Could not write to file `"+name+"', cause: " + ua.Message);
+ return;
+ }
+
+ //
+ // Write debuger symbol file
+ //
+ if (saveDebugInfo)
+ SymbolWriter.WriteSymbolFile ();
}
- }
}
+ /// <summary>
+ /// An interface to hold all the information needed in the resolving phase.
+ /// </summary>
public interface IResolveContext
{
DeclSpace DeclContainer { get; }
/// So this reflects the low-level staticness of the method, while
/// IsStatic represents the semantic, high-level staticness.
/// </summary>
- public bool MethodIsStatic;
+ //public bool MethodIsStatic;
/// <summary>
/// The value that is allowed to be returned or NULL if there is no
/// </summary>
public bool HasReturnLabel;
- /// <summary>
- /// Whether we are inside an iterator block.
- /// </summary>
- public bool InIterator;
-
/// <summary>
/// Whether we are in a `fixed' initialization
/// </summary>
/// <summary>
/// Whether we are inside an anonymous method.
/// </summary>
- public AnonymousContainer CurrentAnonymousMethod;
+ public AnonymousExpression CurrentAnonymousMethod;
/// <summary>
/// Location for this EmitContext
if (return_type == null)
throw new ArgumentNullException ("return_type");
-#if GMCS_SOURCE
- if ((return_type is TypeBuilder) && return_type.IsGenericTypeDefinition)
- throw new InternalErrorException ();
-#endif
IsStatic = (code_flags & Modifiers.STATIC) != 0;
- MethodIsStatic = IsStatic;
- InIterator = (code_flags & Modifiers.METHOD_YIELDS) != 0;
ReturnType = return_type;
IsConstructor = is_constructor;
CurrentBlock = null;
{
}
+ // IResolveContext.DeclContainer
public DeclSpace DeclContainer {
get { return decl_space; }
set { decl_space = value; }
}
+ // IResolveContext.GenericDeclContainer
public DeclSpace GenericDeclContainer {
get { return DeclContainer; }
}
get { return (flags & Flags.InferReturnType) != 0; }
}
+ // IResolveContext.IsInObsoleteScope
public bool IsInObsoleteScope {
get {
// Disables obsolete checks when probing is on
get { return (flags & Flags.ProbingMode) != 0; }
}
+ // IResolveContext.IsInUnsafeScope
public bool IsInUnsafeScope {
get { return InUnsafe || ResolveContext.IsInUnsafeScope; }
}
public bool IsInCompoundAssignment {
get { return (flags & Flags.InCompoundAssignment) != 0; }
- }
+ }
+
+ public bool IsVariableCapturingRequired {
+ get {
+ return !IsInProbingMode && (CurrentBranching == null || !CurrentBranching.CurrentUsageVector.IsUnreachable);
+ }
+ }
public FlowBranching CurrentBranching {
get { return current_flow_branching; }
{
if (CurrentAnonymousMethod == null)
return false;
+
+ // FIXME: IsIterator is too aggressive, we should capture only if child
+ // block contains yield
if (CurrentAnonymousMethod.IsIterator)
return true;
+
return local.Block.Toplevel != CurrentBlock.Toplevel;
}
}
bool resolved;
-
+ bool unreachable;
+
public bool ResolveTopBlock (EmitContext anonymous_method_host, ToplevelBlock block,
- Parameters ip, IMethodData md, out bool unreachable)
+ ParametersCompiled ip, IMethodData md, out bool unreachable)
{
+ if (resolved) {
+ unreachable = this.unreachable;
+ return true;
+ }
+
current_phase = Phase.Resolving;
-
unreachable = false;
- if (resolved)
- return true;
-
if (!loc.IsNull)
CurrentFile = loc.File;
if (!block.ResolveMeta (this, ip))
return false;
- if ((md != null) && (md.Iterator != null)) {
- if (!md.Iterator.Define (this))
- return false;
- }
-
using (this.With (EmitContext.Flags.DoFlowAnalysis, true)) {
FlowBranchingToplevel top_level;
if (anonymous_method_host != null)
bool flow_unreachable = top_level.End ();
if (flow_unreachable)
- unreachable = true;
+ this.unreachable = unreachable = true;
}
#if PRODUCTION
} catch (Exception e) {
}
}
- if (!block.CompleteContexts (this))
- return false;
-
resolved = true;
return true;
}
// this case.
//
- bool in_iterator = (CurrentAnonymousMethod != null) &&
- CurrentAnonymousMethod.IsIterator && InIterator;
-
- if ((block != null) && block.IsDestructor) {
- // Nothing to do; S.R.E automatically emits a leave.
- } else if (HasReturnLabel || (!unreachable && !in_iterator)) {
+ if (HasReturnLabel || !unreachable) {
if (return_type != TypeManager.void_type)
ig.Emit (OpCodes.Ldloc, TemporaryReturn ());
ig.Emit (OpCodes.Ret);
/// This is called immediately before emitting an IL opcode to tell the symbol
/// writer to which source line this opcode belongs.
/// </summary>
- public void Mark (Location loc, bool check_file)
+ public void Mark (Location loc)
{
if (!SymbolWriter.HasSymbolWriter || OmitDebuggingInfo || loc.IsNull)
return;
- if (check_file && (CurrentFile != loc.File))
- return;
-
- SymbolWriter.MarkSequencePoint (ig, loc.Row, loc.Column);
+ SymbolWriter.MarkSequencePoint (ig, loc);
}
public void DefineLocalVariable (string name, LocalBuilder builder)
public void FreeTemporaryLocal (LocalBuilder b, Type t)
{
- Stack s;
-
if (temporary_storage == null) {
temporary_storage = new Hashtable ();
temporary_storage [t] = b;
temporary_storage [t] = b;
return;
}
- if (o is Stack) {
- s = (Stack) o;
- } else {
+ Stack s = o as Stack;
+ if (s == null) {
s = new Stack ();
s.Push (o);
temporary_storage [t] = s;
throw new Exception ("NeedReturnLabel called from Emit phase, should only be called during Resolve");
}
- if (!InIterator && !HasReturnLabel)
+ if (!HasReturnLabel)
HasReturnLabel = true;
}
OptAttributes.Emit ();
}
- protected Attribute ResolveAttribute (Type a_type)
+ protected Attribute ResolveAttribute (PredefinedAttribute a_type)
{
Attribute a = OptAttributes.Search (a_type);
if (a != null) {
public AssemblyBuilder Builder;
bool is_cls_compliant;
bool wrap_non_exception_throws;
- Type runtime_compatibility_attr_type;
public Attribute ClsCompliantAttribute;
ListDictionary declarative_security;
-#if GMCS_SOURCE
bool has_extension_method;
public AssemblyName Name;
MethodInfo add_type_forwarder;
ListDictionary emitted_forwarders;
-#endif
// Module is here just because of error messages
static string[] attribute_targets = new string [] { "assembly", "module" };
public AssemblyClass (): base ()
{
-#if GMCS_SOURCE
wrap_non_exception_throws = true;
-#endif
}
public bool HasExtensionMethods {
set {
-#if GMCS_SOURCE
has_extension_method = value;
-#endif
}
}
public void Resolve ()
{
- runtime_compatibility_attr_type = TypeManager.CoreLookupType (
- "System.Runtime.CompilerServices", "RuntimeCompatibilityAttribute", Kind.Class, false);
+ if (RootContext.Unsafe) {
+ //
+ // Emits [assembly: SecurityPermissionAttribute (SecurityAction.RequestMinimum, SkipVerification = true)]
+ // when -unsafe option was specified
+ //
+
+ Location loc = Location.Null;
+
+ MemberAccess system_security_permissions = new MemberAccess (new MemberAccess (
+ new QualifiedAliasMember (QualifiedAliasMember.GlobalAlias, "System", loc), "Security", loc), "Permissions", loc);
+
+ ArrayList pos = new ArrayList (1);
+ pos.Add (new Argument (new MemberAccess (new MemberAccess (system_security_permissions, "SecurityAction", loc), "RequestMinimum")));
+
+ ArrayList named = new ArrayList (1);
+ named.Add (new DictionaryEntry ("SkipVerification", new Argument (new BoolLiteral (true, loc))));
+
+ GlobalAttribute g = new GlobalAttribute (new NamespaceEntry (null, null, null), "assembly", system_security_permissions,
+ "SecurityPermissionAttribute", new object[] { pos, named }, loc, false);
+ g.AttachTo (this);
+
+ if (g.Resolve () != null) {
+ declarative_security = new ListDictionary ();
+ g.ExtractSecurityPermissionSet (declarative_security);
+ }
+ }
if (OptAttributes == null)
return;
if (!OptAttributes.CheckTargets())
return;
- if (TypeManager.cls_compliant_attribute_type != null)
- ClsCompliantAttribute = ResolveAttribute (TypeManager.cls_compliant_attribute_type);
+ ClsCompliantAttribute = ResolveAttribute (PredefinedAttributes.Get.CLSCompliant);
if (ClsCompliantAttribute != null) {
is_cls_compliant = ClsCompliantAttribute.GetClsCompliantAttributeValue ();
}
- if (runtime_compatibility_attr_type != null) {
- Attribute a = ResolveAttribute (runtime_compatibility_attr_type);
- if (a != null) {
- object val = a.GetPropertyValue ("WrapNonExceptionThrows");
- if (val != null)
- wrap_non_exception_throws = (bool) val;
- }
+ Attribute a = ResolveAttribute (PredefinedAttributes.Get.RuntimeCompatibility);
+ if (a != null) {
+ object val = a.GetPropertyValue ("WrapNonExceptionThrows");
+ if (val != null)
+ wrap_non_exception_throws = (bool) val;
}
}
// are loaded yet.
// TODO: Does not handle quoted attributes properly
switch (a.Name) {
- case "AssemblyKeyFile":
- case "AssemblyKeyFileAttribute":
- case "System.Reflection.AssemblyKeyFileAttribute":
- if (RootContext.StrongNameKeyFile != null) {
- Report.SymbolRelatedToPreviousError (a.Location, a.Name);
- Report.Warning (1616, 1, "Option `{0}' overrides attribute `{1}' given in a source file or added module",
- "keyfile", "System.Reflection.AssemblyKeyFileAttribute");
- }
- else {
- string value = a.GetString ();
- if (value.Length != 0)
- RootContext.StrongNameKeyFile = value;
- }
- break;
- case "AssemblyKeyName":
- case "AssemblyKeyNameAttribute":
- case "System.Reflection.AssemblyKeyNameAttribute":
- if (RootContext.StrongNameKeyContainer != null) {
- Report.SymbolRelatedToPreviousError (a.Location, a.Name);
- Report.Warning (1616, 1, "Option `{0}' overrides attribute `{1}' given in a source file or added module",
+ case "AssemblyKeyFile":
+ case "AssemblyKeyFileAttribute":
+ case "System.Reflection.AssemblyKeyFileAttribute":
+ if (RootContext.StrongNameKeyFile != null) {
+ Report.SymbolRelatedToPreviousError (a.Location, a.Name);
+ Report.Warning (1616, 1, "Option `{0}' overrides attribute `{1}' given in a source file or added module",
+ "keyfile", "System.Reflection.AssemblyKeyFileAttribute");
+ } else {
+ string value = a.GetString ();
+ if (value.Length != 0)
+ RootContext.StrongNameKeyFile = value;
+ }
+ break;
+ case "AssemblyKeyName":
+ case "AssemblyKeyNameAttribute":
+ case "System.Reflection.AssemblyKeyNameAttribute":
+ if (RootContext.StrongNameKeyContainer != null) {
+ Report.SymbolRelatedToPreviousError (a.Location, a.Name);
+ Report.Warning (1616, 1, "Option `{0}' overrides attribute `{1}' given in a source file or added module",
"keycontainer", "System.Reflection.AssemblyKeyNameAttribute");
- }
- else {
- string value = a.GetString ();
- if (value.Length != 0)
- RootContext.StrongNameKeyContainer = value;
- }
- break;
- case "AssemblyDelaySign":
- case "AssemblyDelaySignAttribute":
- case "System.Reflection.AssemblyDelaySignAttribute":
- RootContext.StrongNameDelaySign = a.GetBoolean ();
- break;
+ } else {
+ string value = a.GetString ();
+ if (value.Length != 0)
+ RootContext.StrongNameKeyContainer = value;
+ }
+ break;
+ case "AssemblyDelaySign":
+ case "AssemblyDelaySignAttribute":
+ case "System.Reflection.AssemblyDelaySignAttribute":
+ RootContext.StrongNameDelaySign = a.GetBoolean ();
+ break;
}
}
}
-
+
AssemblyName an = new AssemblyName ();
an.Name = Path.GetFileNameWithoutExtension (name);
Report.Error (1548, "Error during assembly signing. " + text);
}
-#if GMCS_SOURCE
bool CheckInternalsVisibleAttribute (Attribute a)
{
string assembly_name = a.GetString ();
AssemblyName aname = null;
try {
+#if GMCS_SOURCE
aname = new AssemblyName (assembly_name);
+#else
+ throw new NotSupportedException ();
+#endif
} catch (FileLoadException) {
} catch (ArgumentException) {
}
return true;
}
-#endif
static bool IsValidAssemblyVersion (string version)
{
return true;
}
- public override void ApplyAttributeBuilder (Attribute a, CustomAttributeBuilder customBuilder)
+ public override void ApplyAttributeBuilder (Attribute a, CustomAttributeBuilder cb, PredefinedAttributes pa)
{
if (a.IsValidSecurityAttribute ()) {
if (declarative_security == null)
return;
}
- if (a.Type == TypeManager.assembly_culture_attribute_type) {
+ if (a.Type == pa.AssemblyCulture) {
string value = a.GetString ();
if (value == null || value.Length == 0)
return;
}
}
- if (a.Type == TypeManager.assembly_version_attribute_type) {
+ if (a.Type == pa.AssemblyVersion) {
string value = a.GetString ();
if (value == null || value.Length == 0)
return;
}
}
-#if GMCS_SOURCE
- if (a.Type == TypeManager.internals_visible_attr_type && !CheckInternalsVisibleAttribute (a))
+ if (a.Type == pa.InternalsVisibleTo && !CheckInternalsVisibleAttribute (a))
return;
- if (a.Type == TypeManager.type_forwarder_attr_type) {
+ if (a.Type == pa.TypeForwarder) {
Type t = a.GetArgumentType ();
if (t == null || TypeManager.HasElementType (t)) {
Report.Error (735, a.Location, "Invalid type specified as an argument for TypeForwardedTo attribute");
return;
}
- if (t.IsNested) {
+ if (t.DeclaringType != null) {
Report.Error (730, a.Location, "Cannot forward type `{0}' because it is a nested type",
TypeManager.CSharpName (t));
return;
}
- if (t.IsGenericType) {
+ if (TypeManager.IsGenericType (t)) {
Report.Error (733, a.Location, "Cannot forward generic type `{0}'", TypeManager.CSharpName (t));
return;
}
return;
}
- if (a.Type == TypeManager.extension_attribute_type) {
+ if (a.Type == pa.Extension) {
a.Error_MisusedExtensionAttribute ();
return;
}
-#endif
- Builder.SetCustomAttribute (customBuilder);
+
+ Builder.SetCustomAttribute (cb);
}
public override void Emit (TypeContainer tc)
{
base.Emit (tc);
-#if GMCS_SOURCE
if (has_extension_method)
- Builder.SetCustomAttribute (TypeManager.extension_attribute_attr);
-#endif
-
- if (runtime_compatibility_attr_type != null) {
- // FIXME: Does this belong inside SRE.AssemblyBuilder instead?
- if (OptAttributes == null || !OptAttributes.Contains (runtime_compatibility_attr_type)) {
- ConstructorInfo ci = TypeManager.GetPredefinedConstructor (
- runtime_compatibility_attr_type, Location.Null, Type.EmptyTypes);
- PropertyInfo [] pis = new PropertyInfo [1];
- pis [0] = TypeManager.GetPredefinedProperty (runtime_compatibility_attr_type,
- "WrapNonExceptionThrows", Location.Null, TypeManager.bool_type);
- object [] pargs = new object [1];
- pargs [0] = true;
- Builder.SetCustomAttribute (new CustomAttributeBuilder (ci, new object [0], pis, pargs));
- }
+ PredefinedAttributes.Get.Extension.EmitAttribute (Builder);
+
+ // FIXME: Does this belong inside SRE.AssemblyBuilder instead?
+ PredefinedAttribute pa = PredefinedAttributes.Get.RuntimeCompatibility;
+ if (pa.IsDefined && (OptAttributes == null || !OptAttributes.Contains (pa))) {
+ ConstructorInfo ci = TypeManager.GetPredefinedConstructor (
+ pa.Type, Location.Null, Type.EmptyTypes);
+ PropertyInfo [] pis = new PropertyInfo [1];
+ pis [0] = TypeManager.GetPredefinedProperty (pa.Type,
+ "WrapNonExceptionThrows", Location.Null, TypeManager.bool_type);
+ object [] pargs = new object [1];
+ pargs [0] = true;
+ Builder.SetCustomAttribute (new CustomAttributeBuilder (ci, new object [0], pis, pargs));
}
if (declarative_security != null) {
}
}
}
-
- public class ModuleClass : CommonAssemblyModulClass {
- // TODO: make it private and move all builder based methods here
- public ModuleBuilder Builder;
- bool m_module_is_unsafe;
- bool has_default_charset;
-
- public CharSet DefaultCharSet = CharSet.Ansi;
- public TypeAttributes DefaultCharSetType = TypeAttributes.AnsiClass;
-
- static string[] attribute_targets = new string [] { "module" };
-
- public ModuleClass (bool is_unsafe)
- {
- m_module_is_unsafe = is_unsafe;
- }
-
- public override AttributeTargets AttributeTargets {
- get {
- return AttributeTargets.Module;
- }
- }
-
- public override bool IsClsComplianceRequired ()
- {
- return CodeGen.Assembly.IsClsCompliant;
- }
-
- public override void Emit (TypeContainer tc)
- {
- base.Emit (tc);
-
- if (m_module_is_unsafe) {
- Type t = TypeManager.CoreLookupType ("System.Security", "UnverifiableCodeAttribute", Kind.Class, true);
- if (t != null) {
- ConstructorInfo unverifiable_code_ctor = TypeManager.GetPredefinedConstructor (t, Location.Null, Type.EmptyTypes);
- if (unverifiable_code_ctor != null)
- Builder.SetCustomAttribute (new CustomAttributeBuilder (unverifiable_code_ctor, new object [0]));
- }
- }
- }
-
- public override void ApplyAttributeBuilder (Attribute a, CustomAttributeBuilder customBuilder)
- {
- if (a.Type == TypeManager.cls_compliant_attribute_type) {
- if (CodeGen.Assembly.ClsCompliantAttribute == null) {
- Report.Warning (3012, 1, a.Location, "You must specify the CLSCompliant attribute on the assembly, not the module, to enable CLS compliance checking");
- }
- else if (CodeGen.Assembly.IsClsCompliant != a.GetBoolean ()) {
- Report.SymbolRelatedToPreviousError (CodeGen.Assembly.ClsCompliantAttribute.Location, CodeGen.Assembly.ClsCompliantAttribute.GetSignatureForError ());
- Report.Error (3017, a.Location, "You cannot specify the CLSCompliant attribute on a module that differs from the CLSCompliant attribute on the assembly");
- return;
- }
- }
-
- Builder.SetCustomAttribute (customBuilder);
- }
-
- public bool HasDefaultCharSet {
- get {
- return has_default_charset;
- }
- }
-
- /// <summary>
- /// It is called very early therefore can resolve only predefined attributes
- /// </summary>
- public void Resolve ()
- {
-#if GMCS_SOURCE
- if (OptAttributes == null)
- return;
-
- if (!OptAttributes.CheckTargets())
- return;
-
- if (TypeManager.default_charset_type == null)
- return;
-
- Attribute a = ResolveAttribute (TypeManager.default_charset_type);
- if (a != null) {
- has_default_charset = true;
- DefaultCharSet = a.GetCharSetValue ();
- switch (DefaultCharSet) {
- case CharSet.Ansi:
- case CharSet.None:
- break;
- case CharSet.Auto:
- DefaultCharSetType = TypeAttributes.AutoClass;
- break;
- case CharSet.Unicode:
- DefaultCharSetType = TypeAttributes.UnicodeClass;
- break;
- default:
- Report.Error (1724, a.Location, "Value specified for the argument to 'System.Runtime.InteropServices.DefaultCharSetAttribute' is not valid");
- break;
- }
- }
-#endif
- }
-
- public override string[] ValidAttributeTargets {
- get {
- return attribute_targets;
- }
- }
- }
}
projects / mono.git / blobdiff