Merge pull request #409 from Alkarex/patch-1
[mono.git] / mcs / class / corlib / System.Reflection.Emit / DynamicMethod.cs
index aec540c881dbc3df66fa1e46a056961af81f547d..931573d5449459c3860e103b5dab2811d820ee2c 100644 (file)
@@ -1,5 +1,5 @@
 //
-// System.Reflection.Emit/DynamicMethod.cs
+// System.Reflection.Emit.DynamicMethod.cs
 //
 // Author:
 //   Paolo Molaro (lupus@ximian.com)
@@ -31,7 +31,7 @@
 // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 //
 
-#if NET_2_0 || BOOTSTRAP_NET_2_0
+#if !FULL_AOT_RUNTIME
 
 using System;
 using System.Reflection;
@@ -42,7 +42,11 @@ using System.Runtime.InteropServices;
 
 namespace System.Reflection.Emit {
 
+       [ComVisible (true)]
+       [StructLayout (LayoutKind.Sequential)]
        public sealed class DynamicMethod : MethodInfo {
+
+#pragma warning disable 169, 414, 649
                #region Sync with reflection.h
                private RuntimeMethodHandle mhandle;
                private string name;
@@ -56,10 +60,16 @@ namespace System.Reflection.Emit {
                private ILGenerator ilgen;
                private int nrefs;
                private object[] refs;
+               private IntPtr referenced_by;
+               private Type owner;
                #endregion
+#pragma warning restore 169, 414, 649
+               
                private Delegate deleg;
                private MonoMethod method;
                private ParameterBuilder[] pinfo;
+               internal bool creating;
+               private DynamicILInfo il_info;
 
                public DynamicMethod (string name, Type returnType, Type[] parameterTypes, Module m) : this (name, returnType, parameterTypes, m, false) {
                }
@@ -73,17 +83,28 @@ namespace System.Reflection.Emit {
                public DynamicMethod (string name, Type returnType, Type[] parameterTypes, Type owner, bool skipVisibility) : this (name, MethodAttributes.Public | MethodAttributes.Static, CallingConventions.Standard, returnType, parameterTypes, owner, skipVisibility) {
                }
 
-               public DynamicMethod (string name, MethodAttributes attributes, CallingConventions callingConvention, Type returnType, Type[] parameterTypes, Type owner, bool skipVisibility) : this (name, attributes, callingConvention, returnType, parameterTypes, owner.Module, skipVisibility) {
+               public DynamicMethod (string name, MethodAttributes attributes, CallingConventions callingConvention, Type returnType, Type[] parameterTypes, Type owner, bool skipVisibility) : this (name, attributes, callingConvention, returnType, parameterTypes, owner, owner.Module, skipVisibility, false) {
+               }
+
+               public DynamicMethod (string name, MethodAttributes attributes, CallingConventions callingConvention, Type returnType, Type[] parameterTypes, Module m, bool skipVisibility) : this (name, attributes, callingConvention, returnType, parameterTypes, null, m, skipVisibility, false) {
+               }
+
+               public DynamicMethod (string name, Type returnType, Type[] parameterTypes) : this (name, returnType, parameterTypes, false) {
                }
 
-               public DynamicMethod (string name, MethodAttributes attributes, CallingConventions callingConvention, Type returnType, Type[] parameterTypes, Module m, bool skipVisibility) {
+               [MonoTODO ("Visibility is not restricted")]
+               public DynamicMethod (string name, Type returnType, Type[] parameterTypes, bool restrictedSkipVisibility)
+                       : this (name, MethodAttributes.Public | MethodAttributes.Static, CallingConventions.Standard, returnType, parameterTypes, null, null, restrictedSkipVisibility, true)
+               {
+               }
+
+               DynamicMethod (string name, MethodAttributes attributes, CallingConventions callingConvention, Type returnType, Type [] parameterTypes, Type owner, Module m, bool skipVisibility, bool anonHosted)
+               {
                        if (name == null)
                                throw new ArgumentNullException ("name");
-                       if (name == String.Empty)
-                               throw new ArgumentException ("Name can't be empty", "name");
                        if (returnType == null)
-                               throw new ArgumentNullException ("returnType");
-                       if (m == null)
+                               returnType = typeof (void);
+                       if ((m == null) && !anonHosted)
                                throw new ArgumentNullException ("m");
                        if (returnType.IsByRef)
                                throw new ArgumentException ("Return type can't be a byref type", "returnType");
@@ -92,12 +113,19 @@ namespace System.Reflection.Emit {
                                        if (parameterTypes [i] == null)
                                                throw new ArgumentException ("Parameter " + i + " is null", "parameterTypes");
                        }
+                       if (owner != null && (owner.IsArray || owner.IsInterface)) {
+                               throw new ArgumentException ("Owner can't be an array or an interface.");
+                       }
+
+                       if (m == null)
+                               m = AnonHostModuleHolder.AnonHostModule;
 
                        this.name = name;
                        this.attributes = attributes | MethodAttributes.Static;
                        this.callingConvention = callingConvention;
                        this.returnType = returnType;
                        this.parameters = parameterTypes;
+                       this.owner = owner;
                        this.module = m;
                        this.skipVisibility = skipVisibility;
                }
@@ -106,10 +134,34 @@ namespace System.Reflection.Emit {
                private extern void create_dynamic_method (DynamicMethod m);
 
                private void CreateDynMethod () {
-                       if (mhandle.Value == IntPtr.Zero)
+                       if (mhandle.Value == IntPtr.Zero) {
+                               if (ilgen == null || ilgen.ILOffset == 0)
+                                       throw new InvalidOperationException ("Method '" + name + "' does not have a method body.");
+
+                               ilgen.label_fixup ();
+
+                               // Have to create all DynamicMethods referenced by this one
+                               try {
+                                       // Used to avoid cycles
+                                       creating = true;
+                                       if (refs != null) {
+                                               for (int i = 0; i < refs.Length; ++i) {
+                                                       if (refs [i] is DynamicMethod) {
+                                                               DynamicMethod m = (DynamicMethod)refs [i];
+                                                               if (!m.creating)
+                                                                       m.CreateDynMethod ();
+                                                       }
+                                               }
+                                       }
+                               } finally {
+                                       creating = false;
+                               }
+
                                create_dynamic_method (this);
+                       }
                }
 
+               [ComVisible (true)]
                public Delegate CreateDelegate (Type delegateType)
                {
                        if (delegateType == null)
@@ -123,21 +175,19 @@ namespace System.Reflection.Emit {
                        return deleg;
                }
 
+               [ComVisible (true)]
                public Delegate CreateDelegate (Type delegateType, object target)
                {
                        if (delegateType == null)
                                throw new ArgumentNullException ("delegateType");
-                       if (deleg != null)
-                               return deleg;
 
                        CreateDynMethod ();
 
-                       deleg = Delegate.CreateDelegate (delegateType, target, this);
-                       return deleg;
+                       /* Can't cache the delegate since it is different for each target */
+                       return Delegate.CreateDelegate (delegateType, target, this);
                }
                
-               [MonoTODO]
-               public ParameterBuilder DefineParameter (int position, ParameterAttributes attributes, string strParamName)
+               public ParameterBuilder DefineParameter (int position, ParameterAttributes attributes, string parameterName)
                {
                        //
                        // Extension: Mono allows position == 0 for the return attribute
@@ -147,29 +197,39 @@ namespace System.Reflection.Emit {
 
                        RejectIfCreated ();
 
-                       throw new NotImplementedException ();
+                       ParameterBuilder pb = new ParameterBuilder (this, position, attributes, parameterName);
+                       if (pinfo == null)
+                               pinfo = new ParameterBuilder [parameters.Length + 1];
+                       pinfo [position] = pb;
+                       return pb;
                }
 
                public override MethodInfo GetBaseDefinition () {
                        return this;
                }
 
-               [MonoTODO]
+               [MonoTODO("Not implemented")]
                public override object[] GetCustomAttributes (bool inherit) {
                        throw new NotImplementedException ();
                }
 
-               [MonoTODO]
+               [MonoTODO("Not implemented")]
                public override object[] GetCustomAttributes (Type attributeType,
                                                                                                          bool inherit) {
                        throw new NotImplementedException ();
                }
 
+               public DynamicILInfo GetDynamicILInfo () {
+                       if (il_info == null)
+                               il_info = new DynamicILInfo (this);
+                       return il_info;
+               }
+
                public ILGenerator GetILGenerator () {
                        return GetILGenerator (64);
                }
 
-               public ILGenerator GetILGenerator (int size) {
+               public ILGenerator GetILGenerator (int streamSize) {
                        if (((GetMethodImplementationFlags () & MethodImplAttributes.CodeTypeMask) != 
                                 MethodImplAttributes.IL) ||
                                ((GetMethodImplementationFlags () & MethodImplAttributes.ManagedMask) != 
@@ -177,7 +237,7 @@ namespace System.Reflection.Emit {
                                throw new InvalidOperationException ("Method body should not exist.");
                        if (ilgen != null)
                                return ilgen;
-                       ilgen = new ILGenerator (Module, new DynamicMethodTokenGenerator (this), size);
+                       ilgen = new ILGenerator (Module, new DynamicMethodTokenGenerator (this), streamSize);
                        return ilgen;
                }               
 
@@ -195,30 +255,48 @@ namespace System.Reflection.Emit {
                        }
                        return retval;
                }
+               
+               internal override int GetParameterCount ()
+               {
+                       return parameters == null ? 0 : parameters.Length;
+               }               
 
+               internal override Type GetParameterType (int pos) {
+                       return parameters [pos];
+               }
+
+               /*
                public override object Invoke (object obj, object[] parameters) {
                        CreateDynMethod ();
                        if (method == null)
                                method = new MonoMethod (mhandle);
                        return method.Invoke (obj, parameters);
                }
+               */
 
                public override object Invoke (object obj, BindingFlags invokeAttr,
                                                                           Binder binder, object[] parameters,
-                                                                          CultureInfo culture) {
-                       CreateDynMethod ();
-                       if (method == null)
-                               method = new MonoMethod (mhandle);
-                       return method.Invoke (obj, parameters);
+                                                                          CultureInfo culture)
+               {
+                       try {
+                               CreateDynMethod ();
+                               if (method == null)
+                                       method = new MonoMethod (mhandle);
+
+                               return method.Invoke (obj, parameters);
+                       }
+                       catch (MethodAccessException mae) {
+                               throw new TargetInvocationException ("Method cannot be invoked.", mae);
+                       }
                }
 
-               [MonoTODO]
+               [MonoTODO("Not implemented")]
                public override bool IsDefined (Type attributeType, bool inherit) {
                        throw new NotImplementedException ();
                }
 
                public override string ToString () {
-                       string parms = "";
+                       string parms = String.Empty;
                        ParameterInfo[] p = GetParameters ();
                        for (int i = 0; i < p.Length; ++i) {
                                if (i > 0)
@@ -279,8 +357,8 @@ namespace System.Reflection.Emit {
                        }
                }
 
-               [MonoTODO]
-               public ParameterInfo ReturnParameter {
+               [MonoTODO("Not implemented")]
+               public override ParameterInfo ReturnParameter {
                        get {
                                throw new NotImplementedException ();
                        }
@@ -292,39 +370,58 @@ namespace System.Reflection.Emit {
                        }
                }
 
-               [MonoTODO]
+               [MonoTODO("Not implemented")]
                public override ICustomAttributeProvider ReturnTypeCustomAttributes {
                        get {
                                throw new NotImplementedException ();
                        }
                }
 
+/*
                public override int MetadataToken {
                        get {
                                return 0;
                        }
                }
+*/
 
                private void RejectIfCreated () {
                        if (mhandle.Value != IntPtr.Zero)
                                throw new InvalidOperationException ("Type definition of the method is complete.");
                }
 
-               private Exception NotSupported () {
-                       return new NotSupportedException ("The invoked member is not supported on a dynamic method.");
-               }
-
                internal int AddRef (object reference) {
                        if (refs == null)
                                refs = new object [4];
-                       if (nrefs >= refs.Length) {
+                       if (nrefs >= refs.Length - 1) {
                                object [] new_refs = new object [refs.Length * 2];
                                System.Array.Copy (refs, new_refs, refs.Length);
                                refs = new_refs;
                        }
                        refs [nrefs] = reference;
-                       nrefs ++;
-                       return nrefs;
+                       /* Reserved by the runtime */
+                       refs [nrefs + 1] = null;
+                       nrefs += 2;
+                       return nrefs - 1;
+               }
+
+               // This class takes care of constructing the module in a thread safe manner
+               class AnonHostModuleHolder {
+                       public static Module anon_host_module;
+
+                       static AnonHostModuleHolder () {
+                               AssemblyName aname = new AssemblyName ();
+                               aname.Name = "Anonymously Hosted DynamicMethods Assembly";
+                               AssemblyBuilder ab = AppDomain.CurrentDomain.DefineDynamicAssembly (aname, AssemblyBuilderAccess.Run);
+
+                               anon_host_module = ab.GetManifestModule ();
+                       }
+
+                       public static Module AnonHostModule {
+                               get {
+                                       return anon_host_module;
+                               }
+                       }
                }
        }
 
@@ -344,7 +441,7 @@ namespace System.Reflection.Emit {
                        throw new InvalidOperationException ();
                }
 
-               public int GetToken (MemberInfo member) {
+               public int GetToken (MemberInfo member, bool create_open_instance) {
                        return m.AddRef (member);
                }