[bcl] Remove NET_4_5 defines from class libs.
[mono.git] / mcs / class / corlib / System.Reflection.Emit / DynamicMethod.cs
1 //
2 // System.Reflection.Emit.DynamicMethod.cs
3 //
4 // Author:
5 //   Paolo Molaro (lupus@ximian.com)
6 //   Zoltan Varga (vargaz@freemail.hu)
7 //
8 // (C) 2003 Ximian, Inc.  http://www.ximian.com
9 //
10
11 //
12 // Copyright (C) 2004 Novell, Inc (http://www.novell.com)
13 //
14 // Permission is hereby granted, free of charge, to any person obtaining
15 // a copy of this software and associated documentation files (the
16 // "Software"), to deal in the Software without restriction, including
17 // without limitation the rights to use, copy, modify, merge, publish,
18 // distribute, sublicense, and/or sell copies of the Software, and to
19 // permit persons to whom the Software is furnished to do so, subject to
20 // the following conditions:
21 // 
22 // The above copyright notice and this permission notice shall be
23 // included in all copies or substantial portions of the Software.
24 // 
25 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
26 // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
27 // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
28 // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
29 // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
30 // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
31 // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
32 //
33
34 #if !FULL_AOT_RUNTIME
35
36 using System;
37 using System.Reflection;
38 using System.Reflection.Emit;
39 using System.Globalization;
40 using System.Runtime.CompilerServices;
41 using System.Runtime.InteropServices;
42
43 namespace System.Reflection.Emit {
44
45         [ComVisible (true)]
46         [StructLayout (LayoutKind.Sequential)]
47         public sealed class DynamicMethod : MethodInfo {
48
49 #pragma warning disable 169, 414, 649
50                 #region Sync with reflection.h
51                 private RuntimeMethodHandle mhandle;
52                 private string name;
53                 private Type returnType;
54                 private Type[] parameters;
55                 private MethodAttributes attributes;
56                 private CallingConventions callingConvention;
57                 private Module module;
58                 private bool skipVisibility;
59                 private bool init_locals = true;
60                 private ILGenerator ilgen;
61                 private int nrefs;
62                 private object[] refs;
63                 private IntPtr referenced_by;
64                 private Type owner;
65                 #endregion
66 #pragma warning restore 169, 414, 649
67                 
68                 private Delegate deleg;
69                 private MonoMethod method;
70                 private ParameterBuilder[] pinfo;
71                 internal bool creating;
72                 private DynamicILInfo il_info;
73
74                 public DynamicMethod (string name, Type returnType, Type[] parameterTypes, Module m) : this (name, returnType, parameterTypes, m, false) {
75                 }
76
77                 public DynamicMethod (string name, Type returnType, Type[] parameterTypes, Type owner) : this (name, returnType, parameterTypes, owner, false) {
78                 }
79
80                 public DynamicMethod (string name, Type returnType, Type[] parameterTypes, Module m, bool skipVisibility) : this (name, MethodAttributes.Public | MethodAttributes.Static, CallingConventions.Standard, returnType, parameterTypes, m, skipVisibility) {
81                 }
82
83                 public DynamicMethod (string name, Type returnType, Type[] parameterTypes, Type owner, bool skipVisibility) : this (name, MethodAttributes.Public | MethodAttributes.Static, CallingConventions.Standard, returnType, parameterTypes, owner, skipVisibility) {
84                 }
85
86                 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) {
87                 }
88
89                 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) {
90                 }
91
92                 public DynamicMethod (string name, Type returnType, Type[] parameterTypes) : this (name, returnType, parameterTypes, false) {
93                 }
94
95                 [MonoTODO ("Visibility is not restricted")]
96                 public DynamicMethod (string name, Type returnType, Type[] parameterTypes, bool restrictedSkipVisibility)
97                         : this (name, MethodAttributes.Public | MethodAttributes.Static, CallingConventions.Standard, returnType, parameterTypes, null, null, restrictedSkipVisibility, true)
98                 {
99                 }
100
101                 DynamicMethod (string name, MethodAttributes attributes, CallingConventions callingConvention, Type returnType, Type [] parameterTypes, Type owner, Module m, bool skipVisibility, bool anonHosted)
102                 {
103                         if (name == null)
104                                 throw new ArgumentNullException ("name");
105                         if (returnType == null)
106                                 returnType = typeof (void);
107                         if ((m == null) && !anonHosted)
108                                 throw new ArgumentNullException ("m");
109                         if (returnType.IsByRef)
110                                 throw new ArgumentException ("Return type can't be a byref type", "returnType");
111                         if (parameterTypes != null) {
112                                 for (int i = 0; i < parameterTypes.Length; ++i)
113                                         if (parameterTypes [i] == null)
114                                                 throw new ArgumentException ("Parameter " + i + " is null", "parameterTypes");
115                         }
116                         if (owner != null && (owner.IsArray || owner.IsInterface)) {
117                                 throw new ArgumentException ("Owner can't be an array or an interface.");
118                         }
119
120                         if (m == null)
121                                 m = AnonHostModuleHolder.AnonHostModule;
122
123                         this.name = name;
124                         this.attributes = attributes | MethodAttributes.Static;
125                         this.callingConvention = callingConvention;
126                         this.returnType = returnType;
127                         this.parameters = parameterTypes;
128                         this.owner = owner;
129                         this.module = m;
130                         this.skipVisibility = skipVisibility;
131                 }
132
133                 [MethodImplAttribute(MethodImplOptions.InternalCall)]
134                 private extern void create_dynamic_method (DynamicMethod m);
135
136                 private void CreateDynMethod () {
137                         if (mhandle.Value == IntPtr.Zero) {
138                                 if (ilgen == null || ilgen.ILOffset == 0)
139                                         throw new InvalidOperationException ("Method '" + name + "' does not have a method body.");
140
141                                 ilgen.label_fixup (this);
142
143                                 // Have to create all DynamicMethods referenced by this one
144                                 try {
145                                         // Used to avoid cycles
146                                         creating = true;
147                                         if (refs != null) {
148                                                 for (int i = 0; i < refs.Length; ++i) {
149                                                         if (refs [i] is DynamicMethod) {
150                                                                 DynamicMethod m = (DynamicMethod)refs [i];
151                                                                 if (!m.creating)
152                                                                         m.CreateDynMethod ();
153                                                         }
154                                                 }
155                                         }
156                                 } finally {
157                                         creating = false;
158                                 }
159
160                                 create_dynamic_method (this);
161                         }
162                 }
163
164                 [ComVisible (true)]
165                 sealed override
166                 public Delegate CreateDelegate (Type delegateType)
167                 {
168                         if (delegateType == null)
169                                 throw new ArgumentNullException ("delegateType");
170                         if (deleg != null)
171                                 return deleg;
172
173                         CreateDynMethod ();
174
175                         deleg = Delegate.CreateDelegate (delegateType, this);
176                         return deleg;
177                 }
178
179                 [ComVisible (true)]
180                 sealed override
181                 public Delegate CreateDelegate (Type delegateType, object target)
182                 {
183                         if (delegateType == null)
184                                 throw new ArgumentNullException ("delegateType");
185
186                         CreateDynMethod ();
187
188                         /* Can't cache the delegate since it is different for each target */
189                         return Delegate.CreateDelegate (delegateType, target, this);
190                 }
191                 
192                 public ParameterBuilder DefineParameter (int position, ParameterAttributes attributes, string parameterName)
193                 {
194                         //
195                         // Extension: Mono allows position == 0 for the return attribute
196                         //
197                         if ((position < 0) || (position > parameters.Length))
198                                 throw new ArgumentOutOfRangeException ("position");
199
200                         RejectIfCreated ();
201
202                         ParameterBuilder pb = new ParameterBuilder (this, position, attributes, parameterName);
203                         if (pinfo == null)
204                                 pinfo = new ParameterBuilder [parameters.Length + 1];
205                         pinfo [position] = pb;
206                         return pb;
207                 }
208
209                 public override MethodInfo GetBaseDefinition () {
210                         return this;
211                 }
212
213                 [MonoTODO("Not implemented")]
214                 public override object[] GetCustomAttributes (bool inherit) {
215                         throw new NotImplementedException ();
216                 }
217
218                 [MonoTODO("Not implemented")]
219                 public override object[] GetCustomAttributes (Type attributeType,
220                                                                                                           bool inherit) {
221                         throw new NotImplementedException ();
222                 }
223
224                 public DynamicILInfo GetDynamicILInfo () {
225                         if (il_info == null)
226                                 il_info = new DynamicILInfo (this);
227                         return il_info;
228                 }
229
230                 public ILGenerator GetILGenerator () {
231                         return GetILGenerator (64);
232                 }
233
234                 public ILGenerator GetILGenerator (int streamSize) {
235                         if (((GetMethodImplementationFlags () & MethodImplAttributes.CodeTypeMask) != 
236                                  MethodImplAttributes.IL) ||
237                                 ((GetMethodImplementationFlags () & MethodImplAttributes.ManagedMask) != 
238                                  MethodImplAttributes.Managed))
239                                 throw new InvalidOperationException ("Method body should not exist.");
240                         if (ilgen != null)
241                                 return ilgen;
242                         ilgen = new ILGenerator (Module, new DynamicMethodTokenGenerator (this), streamSize);
243                         return ilgen;
244                 }               
245
246                 public override MethodImplAttributes GetMethodImplementationFlags () {
247                         return MethodImplAttributes.IL | MethodImplAttributes.Managed;
248                 }
249
250                 public override ParameterInfo[] GetParameters ()
251                 {
252                         return GetParametersInternal ();
253                 }
254
255                 internal override ParameterInfo[] GetParametersInternal ()
256                 {
257                         if (parameters == null)
258                                 return EmptyArray<ParameterInfo>.Value;
259
260                         ParameterInfo[] retval = new ParameterInfo [parameters.Length];
261                         for (int i = 0; i < parameters.Length; i++) {
262                                 retval [i] = ParameterInfo.New (pinfo == null ? null : pinfo [i + 1], parameters [i], this, i + 1);
263                         }
264                         return retval;
265                 }
266                 
267                 internal override int GetParametersCount ()
268                 {
269                         return parameters == null ? 0 : parameters.Length;
270                 }               
271
272                 internal override Type GetParameterType (int pos) {
273                         return parameters [pos];
274                 }
275
276                 /*
277                 public override object Invoke (object obj, object[] parameters) {
278                         CreateDynMethod ();
279                         if (method == null)
280                                 method = new MonoMethod (mhandle);
281                         return method.Invoke (obj, parameters);
282                 }
283                 */
284
285                 public override object Invoke (object obj, BindingFlags invokeAttr,
286                                                                            Binder binder, object[] parameters,
287                                                                            CultureInfo culture)
288                 {
289                         try {
290                                 CreateDynMethod ();
291                                 if (method == null)
292                                         method = new MonoMethod (mhandle);
293
294                                 return method.Invoke (obj, parameters);
295                         }
296                         catch (MethodAccessException mae) {
297                                 throw new TargetInvocationException ("Method cannot be invoked.", mae);
298                         }
299                 }
300
301                 [MonoTODO("Not implemented")]
302                 public override bool IsDefined (Type attributeType, bool inherit) {
303                         throw new NotImplementedException ();
304                 }
305
306                 public override string ToString () {
307                         string parms = String.Empty;
308                         ParameterInfo[] p = GetParametersInternal ();
309                         for (int i = 0; i < p.Length; ++i) {
310                                 if (i > 0)
311                                         parms = parms + ", ";
312                                 parms = parms + p [i].ParameterType.Name;
313                         }
314                         return ReturnType.Name+" "+Name+"("+parms+")";
315                 }
316
317                 public override MethodAttributes Attributes {
318                         get {
319                                 return attributes;
320                         }
321                 }
322
323                 public override CallingConventions CallingConvention {
324                         get {
325                                 return callingConvention;
326                         }
327                 }
328
329                 public override Type DeclaringType {
330                         get {
331                                 return null;
332                         }
333                 }
334
335                 public bool InitLocals {
336                         get {
337                                 return init_locals;
338                         }
339                         set {
340                                 init_locals = value;
341                         }
342                 }
343
344                 public override RuntimeMethodHandle MethodHandle {
345                         get {
346                                 return mhandle;
347                         }
348                 }
349
350                 public override Module Module {
351                         get {
352                                 return module;
353                         }
354                 }
355
356                 public override string Name {
357                         get {
358                                 return name;
359                         }
360                 }
361
362                 public override Type ReflectedType {
363                         get {
364                                 return null;
365                         }
366                 }
367
368                 [MonoTODO("Not implemented")]
369                 public override ParameterInfo ReturnParameter {
370                         get {
371                                 throw new NotImplementedException ();
372                         }
373                 }
374
375                 public override Type ReturnType {
376                         get {
377                                 return returnType;
378                         }
379                 }
380
381                 [MonoTODO("Not implemented")]
382                 public override ICustomAttributeProvider ReturnTypeCustomAttributes {
383                         get {
384                                 throw new NotImplementedException ();
385                         }
386                 }
387
388 /*
389                 public override int MetadataToken {
390                         get {
391                                 return 0;
392                         }
393                 }
394 */
395
396                 private void RejectIfCreated () {
397                         if (mhandle.Value != IntPtr.Zero)
398                                 throw new InvalidOperationException ("Type definition of the method is complete.");
399                 }
400
401                 internal int AddRef (object reference) {
402                         if (refs == null)
403                                 refs = new object [4];
404                         if (nrefs >= refs.Length - 1) {
405                                 object [] new_refs = new object [refs.Length * 2];
406                                 System.Array.Copy (refs, new_refs, refs.Length);
407                                 refs = new_refs;
408                         }
409                         refs [nrefs] = reference;
410                         /* Reserved by the runtime */
411                         refs [nrefs + 1] = null;
412                         nrefs += 2;
413                         return nrefs - 1;
414                 }
415
416                 // This class takes care of constructing the module in a thread safe manner
417                 class AnonHostModuleHolder {
418                         public static Module anon_host_module;
419
420                         static AnonHostModuleHolder () {
421                                 AssemblyName aname = new AssemblyName ();
422                                 aname.Name = "Anonymously Hosted DynamicMethods Assembly";
423                                 AssemblyBuilder ab = AppDomain.CurrentDomain.DefineDynamicAssembly (aname, AssemblyBuilderAccess.Run);
424
425                                 anon_host_module = ab.GetManifestModule ();
426                         }
427
428                         public static Module AnonHostModule {
429                                 get {
430                                         return anon_host_module;
431                                 }
432                         }
433                 }
434         }
435
436         internal class DynamicMethodTokenGenerator : TokenGenerator {
437
438                 private DynamicMethod m;
439
440                 public DynamicMethodTokenGenerator (DynamicMethod m) {
441                         this.m = m;
442                 }
443
444                 public int GetToken (string str) {
445                         return m.AddRef (str);
446                 }
447
448                 public int GetToken (MethodBase method, Type[] opt_param_types) {
449                         throw new InvalidOperationException ();
450                 }
451
452                 public int GetToken (MemberInfo member, bool create_open_instance) {
453                         return m.AddRef (member);
454                 }
455
456                 public int GetToken (SignatureHelper helper) {
457                         return m.AddRef (helper);
458                 }
459         }
460 }
461
462 #endif