-
//
// System.Reflection.Emit/MethodBuilder.cs
//
// (C) 2001 Ximian, Inc. http://www.ximian.com
//
+//
+// Copyright (C) 2004 Novell, Inc (http://www.novell.com)
+//
+// Permission is hereby granted, free of charge, to any person obtaining
+// a copy of this software and associated documentation files (the
+// "Software"), to deal in the Software without restriction, including
+// without limitation the rights to use, copy, modify, merge, publish,
+// distribute, sublicense, and/or sell copies of the Software, and to
+// permit persons to whom the Software is furnished to do so, subject to
+// the following conditions:
+//
+// The above copyright notice and this permission notice shall be
+// included in all copies or substantial portions of the Software.
+//
+// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+// EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+// MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+// NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+// LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+// OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+// WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+//
+
using System;
using System.Reflection;
using System.Reflection.Emit;
using System.Security.Permissions;
using System.Runtime.CompilerServices;
using System.Runtime.InteropServices;
+using System.Diagnostics.SymbolStore;
namespace System.Reflection.Emit {
-
- public sealed class MethodBuilder : MethodInfo {
+#if NET_2_0
+ [ComVisible (true)]
+ [ComDefaultInterface (typeof (_MethodBuilder))]
+#endif
+ [ClassInterface (ClassInterfaceType.None)]
+ public sealed class MethodBuilder : MethodInfo, _MethodBuilder {
private RuntimeMethodHandle mhandle;
private Type rtype;
private Type[] parameters;
private MethodInfo override_method;
private string pi_dll;
private string pi_entry;
- private CharSet ncharset;
+ private CharSet charset;
+ private uint extra_flags; /* this encodes set_last_error etc */
private CallingConvention native_cc;
private CallingConventions call_conv;
private bool init_locals = true;
- private MonoGenericParam[] generic_params;
+ private IntPtr generic_container;
+#if NET_2_0 || BOOTSTRAP_NET_2_0
+ private GenericTypeParameterBuilder[] generic_params;
+#else
+ private Object generic_params; /* so offsets are the same */
+#endif
private Type[] returnModReq;
private Type[] returnModOpt;
private Type[][] paramModReq;
if ((attributes & MethodAttributes.Static) == 0)
this.call_conv |= CallingConventions.HasThis;
if (parameterTypes != null) {
+ for (int i = 0; i < parameterTypes.Length; ++i)
+ if (parameterTypes [i] == null)
+ throw new ArgumentException ("Elements of the parameterTypes array cannot be null", "parameterTypes");
+
this.parameters = new Type [parameterTypes.Length];
System.Array.Copy (parameterTypes, this.parameters, parameterTypes.Length);
}
pi_dll = dllName;
pi_entry = entryName;
native_cc = nativeCConv;
- ncharset = nativeCharset;
+ charset = nativeCharset;
}
public bool InitLocals {
}
}
+ /* Used by mcs */
+ internal bool BestFitMapping {
+ set {
+ extra_flags = (uint) ((extra_flags & ~0x30) | (value ? 0x10 : 0x20));
+ }
+ }
+
+ /* Used by mcs */
+ internal bool ThrowOnUnmappableChar {
+ set {
+ extra_flags = (uint) ((extra_flags & ~0x3000) | (value ? 0x1000 : 0x2000));
+ }
+ }
+
+ /* Used by mcs */
+ internal bool ExactSpelling {
+ set {
+ extra_flags = (uint) ((extra_flags & ~0x01) | (value ? 0x01 : 0x00));
+ }
+ }
+
+ /* Used by mcs */
+ internal bool SetLastError {
+ set {
+ extra_flags = (uint) ((extra_flags & ~0x40) | (value ? 0x40 : 0x00));
+ }
+ }
+
public MethodToken GetToken() {
return new MethodToken(0x06000000 | table_idx);
}
return iattrs;
}
public override ParameterInfo[] GetParameters() {
+ if (!type.is_created)
+ throw NotSupported ();
if (parameters == null)
return null;
public void CreateMethodBody( byte[] il, int count) {
if ((il != null) && ((count < 0) || (count > il.Length)))
- throw new ArgumentException ("Index was out of range. Must be non-negative and less than the size of the collection.");
+ throw new ArgumentOutOfRangeException ("Index was out of range. Must be non-negative and less than the size of the collection.");
if ((code != null) || type.is_created)
throw new InvalidOperationException ("Type definition of the method is complete.");
throw NotSupported ();
}
public override object[] GetCustomAttributes( bool inherit) {
- throw NotSupported ();
+ /*
+ * On MS.NET, this always returns not_supported, but we can't do this
+ * since there would be no way to obtain custom attributes of
+ * dynamically created ctors.
+ */
+ if (type.is_created)
+ return MonoCustomAttrs.GetCustomAttributes (this, inherit);
+ else
+ throw NotSupported ();
}
+
public override object[] GetCustomAttributes( Type attributeType, bool inherit) {
- throw NotSupported ();
+ if (type.is_created)
+ return MonoCustomAttrs.GetCustomAttributes (this, attributeType, inherit);
+ else
+ throw NotSupported ();
}
+
public ILGenerator GetILGenerator () {
return GetILGenerator (64);
}
public ParameterBuilder DefineParameter (int position, ParameterAttributes attributes, string strParamName)
{
+ RejectIfCreated ();
+
//
// Extension: Mono allows position == 0 for the return attribute
//
if ((position < 0) || (position > parameters.Length))
throw new ArgumentOutOfRangeException ("position");
- RejectIfCreated ();
-
ParameterBuilder pb = new ParameterBuilder (this, position, attributes, strParamName);
if (pinfo == null)
pinfo = new ParameterBuilder [parameters.Length + 1];
}
internal void fixup () {
+ if (((attrs & (MethodAttributes.Abstract | MethodAttributes.PinvokeImpl)) == 0) && ((iattrs & (MethodImplAttributes.Runtime | MethodImplAttributes.InternalCall)) == 0)) {
+#if NET_2_0
+ // do not allow zero length method body on MS.NET 2.0 (and higher)
+ if (((ilgen == null) || (ILGenerator.Mono_GetCurrentOffset (ilgen) == 0)) && (code == null || code.Length == 0))
+#else
+ if (((ilgen == null) || (ILGenerator.Mono_GetCurrentOffset (ilgen) == 0)) && (code == null))
+#endif
+ throw new InvalidOperationException ("Method '" + Name + "' does not have a method body.");
+ }
if (ilgen != null)
ilgen.label_fixup ();
}
+
+ internal void GenerateDebugInfo (ISymbolWriter symbolWriter)
+ {
+ if (ilgen != null && ilgen.HasDebugInfo) {
+ SymbolToken token = new SymbolToken (GetToken().Token);
+ symbolWriter.OpenMethod (token);
+ symbolWriter.SetSymAttribute (token, "__name", System.Text.Encoding.UTF8.GetBytes (Name));
+ ilgen.GenerateDebugInfo (symbolWriter);
+ symbolWriter.CloseMethod ();
+ }
+ }
public void SetCustomAttribute( CustomAttributeBuilder customBuilder) {
if (customBuilder == null)
SetImplementationFlags ((MethodImplAttributes)impla);
return;
}
+ if (attrname == "System.Runtime.InteropServices.DllImportAttribute") {
+ CustomAttributeBuilder.CustomAttributeInfo attr = CustomAttributeBuilder.decode_cattr (customBuilder);
+ bool preserveSig = true;
+
+ /*
+ * It would be easier to construct a DllImportAttribute from
+ * the custom attribute builder, but the DllImportAttribute
+ * does not contain all the information required here, ie.
+ * - some parameters, like BestFitMapping has three values
+ * ("on", "off", "missing"), but DllImportAttribute only
+ * contains two (on/off).
+ * - PreserveSig is true by default, while it is false by
+ * default in DllImportAttribute.
+ */
+
+ pi_dll = (string)attr.ctorArgs [0];
+ native_cc = System.Runtime.InteropServices.CallingConvention.Winapi;
+
+ for (int i = 0; i < attr.namedParamNames.Length; ++i) {
+ string name = attr.namedParamNames [i];
+ object value = attr.namedParamValues [i];
+
+ if (name == "CallingConvention")
+ native_cc = (CallingConvention)value;
+ else if (name == "CharSet")
+ charset = (CharSet)value;
+ else if (name == "EntryPoint")
+ pi_entry = (string)value;
+ else if (name == "ExactSpelling")
+ ExactSpelling = (bool)value;
+ else if (name == "SetLastError")
+ SetLastError = (bool)value;
+ else if (name == "PreserveSig")
+ preserveSig = (bool)value;
+#if NET_1_1
+ else if (name == "BestFitMapping")
+ BestFitMapping = (bool)value;
+ else if (name == "ThrowOnUnmappableChar")
+ ThrowOnUnmappableChar = (bool)value;
+#endif
+ }
+#if NET_2_0
+ if (attrname == "System.Runtime.CompilerServices.SpecialNameAttribute") {
+ attrs |= MethodAttributes.SpecialName;
+ return;
+ }
+#endif
+
+ attrs |= MethodAttributes.PinvokeImpl;
+ if (preserveSig)
+ iattrs |= MethodImplAttributes.PreserveSig;
+ return;
+ }
if (cattrs != null) {
CustomAttributeBuilder[] new_array = new CustomAttributeBuilder [cattrs.Length + 1];
cattrs.CopyTo (new_array, 0);
cattrs [0] = customBuilder;
}
}
+
+#if NET_2_0
+ [ComVisible (true)]
+#endif
public void SetCustomAttribute( ConstructorInfo con, byte[] binaryAttribute) {
if (con == null)
throw new ArgumentNullException ("con");
attrs |= MethodAttributes.HasSecurity;
}
- [MonoTODO]
+#if NET_2_0
+ [Obsolete ("An alternate API is available: Emit the MarshalAs custom attribute instead.")]
+#endif
public void SetMarshal (UnmanagedMarshal unmanagedMarshal)
{
RejectIfCreated ();
throw new NotImplementedException ();
}
+ public override string ToString()
+ {
+ return "MethodBuilder [" + type.Name + "::" + name + "]";
+ }
+
+ [MonoTODO]
+ public override bool Equals (object obj)
+ {
+ return base.Equals (obj);
+ }
+
+ public override int GetHashCode ()
+ {
+ return name.GetHashCode ();
+ }
+
internal override int get_next_table_index (object obj, int table, bool inc) {
- return type.get_next_table_index (obj, table, inc);
+ return type.get_next_table_index (obj, table, inc);
}
internal void set_override (MethodInfo mdecl) {
return new NotSupportedException ("The invoked member is not supported in a dynamic module.");
}
-#if NET_1_2
+#if NET_2_0 || BOOTSTRAP_NET_2_0
[MethodImplAttribute(MethodImplOptions.InternalCall)]
- public override extern MethodInfo BindGenericParameters (Type [] types);
+ public override extern MethodInfo MakeGenericMethod (Type [] types);
- [MethodImplAttribute(MethodImplOptions.InternalCall)]
- private extern MonoGenericParam define_generic_parameter (string name, int index);
-
- public Type DefineGenericParameter (string name)
- {
- int index;
- if (generic_params != null) {
- MonoGenericParam[] new_generic_params = new MonoGenericParam [generic_params.Length+1];
- System.Array.Copy (generic_params, new_generic_params, generic_params.Length);
- index = generic_params.Length;
- generic_params = new_generic_params;
- } else {
- generic_params = new MonoGenericParam [1];
- index = 0;
- }
-
- generic_params [index] = define_generic_parameter (name, index);
- return generic_params [index];
- }
-
- public void SetGenericParameterConstraints (int index, Type[] constraints, bool has_ctor_constraint)
- {
- generic_params [index].SetConstraints (constraints, has_ctor_constraint);
- }
-
- public override bool Mono_IsInflatedMethod {
+ public override bool IsGenericMethodDefinition {
get {
- return false;
+ return generic_params != null;
}
}
- public override bool HasGenericParameters {
+ public override bool IsGenericMethod {
get {
return generic_params != null;
}
}
+ public override MethodInfo GetGenericMethodDefinition ()
+ {
+ if (!IsGenericMethodDefinition)
+ throw new InvalidOperationException ();
+
+ return this;
+ }
+
public override Type[] GetGenericArguments ()
{
if (generic_params == null)
return result;
}
+ public GenericTypeParameterBuilder[] DefineGenericParameters (params string[] names)
+ {
+ generic_params = new GenericTypeParameterBuilder [names.Length];
+ for (int i = 0; i < names.Length; i++)
+ generic_params [i] = new GenericTypeParameterBuilder (
+ type, this, names [i], i);
+
+ return generic_params;
+ }
+
public void SetGenericMethodSignature (MethodAttributes attributes, CallingConventions callingConvention, Type return_type, Type[] parameter_types)
{
RejectIfCreated ();
this.attrs = attributes;
this.call_conv = callingConvention;
if ((attributes & MethodAttributes.Static) == 0)
- this.call_conv |= CallingConventions.HasThis;
+ this.call_conv |= CallingConventions.HasThis;
this.rtype = return_type;
this.parameters = new Type [parameter_types.Length];
System.Array.Copy (parameter_types, this.parameters, parameter_types.Length);
}
+
+ public void SetReturnType (Type returnType)
+ {
+ rtype = returnType;
+ }
+
+ public void SetParameters (params Type[] parameterTypes)
+ {
+ if (parameterTypes != null) {
+ for (int i = 0; i < parameterTypes.Length; ++i)
+ if (parameterTypes [i] == null)
+ throw new ArgumentException ("Elements of the parameterTypes array cannot be null", "parameterTypes");
+
+ this.parameters = new Type [parameterTypes.Length];
+ System.Array.Copy (parameterTypes, this.parameters, parameterTypes.Length);
+ }
+ }
+
+ public void SetSignature (Type returnType, Type[] returnTypeRequiredCustomModifiers, Type[] returnTypeOptionalCustomModifiers, Type[] parameterTypes, Type[][] parameterTypeRequiredCustomModifiers, Type[][] parameterTypeOptionalCustomModifiers) {
+ SetReturnType (returnType);
+ SetParameters (parameterTypes);
+ this.returnModReq = returnTypeRequiredCustomModifiers;
+ this.returnModOpt = returnTypeOptionalCustomModifiers;
+ this.paramModReq = parameterTypeRequiredCustomModifiers;
+ this.paramModOpt = parameterTypeOptionalCustomModifiers;
+ }
+
+ public override Module Module {
+ get {
+ return base.Module;
+ }
+ }
#endif
+
+ void _MethodBuilder.GetIDsOfNames([In] ref Guid riid, IntPtr rgszNames, uint cNames, uint lcid, IntPtr rgDispId)
+ {
+ throw new NotImplementedException ();
+ }
+
+ void _MethodBuilder.GetTypeInfo (uint iTInfo, uint lcid, IntPtr ppTInfo)
+ {
+ throw new NotImplementedException ();
+ }
+
+ void _MethodBuilder.GetTypeInfoCount (out uint pcTInfo)
+ {
+ throw new NotImplementedException ();
+ }
+
+ void _MethodBuilder.Invoke (uint dispIdMember, [In] ref Guid riid, uint lcid, short wFlags, IntPtr pDispParams, IntPtr pVarResult, IntPtr pExcepInfo, IntPtr puArgErr)
+ {
+ throw new NotImplementedException ();
+ }
+
}
}
projects / mono.git / blobdiff