mcs/class/dlr/Runtime/Microsoft.Scripting.Core/Compiler/DelegateHelpers.cs

   1 /* ****************************************************************************
   2  *
   3  * Copyright (c) Microsoft Corporation.
   4  *
   5  * This source code is subject to terms and conditions of the Apache License, Version 2.0. A
   6  * copy of the license can be found in the License.html file at the root of this distribution. If
   7  * you cannot locate the  Apache License, Version 2.0, please send an email to
   8  * dlr@microsoft.com. By using this source code in any fashion, you are agreeing to be bound
   9  * by the terms of the Apache License, Version 2.0.
  10  *
  11  * You must not remove this notice, or any other, from this software.
  12  *
  13  *
  14  * ***************************************************************************/
  15
  16 using System;
  17 using System.Dynamic.Utils;
  18 using System.Reflection;
  19 using System.Reflection.Emit;
  20
  21 #if CLR2
  22 namespace Microsoft.Scripting.Ast.Compiler {
  23 #else
  24 namespace System.Linq.Expressions.Compiler {
  25 #endif
  26     internal static partial class DelegateHelpers {
  27         private const MethodAttributes CtorAttributes = MethodAttributes.RTSpecialName | MethodAttributes.HideBySig | MethodAttributes.Public;
  28         private const MethodImplAttributes ImplAttributes = MethodImplAttributes.Runtime | MethodImplAttributes.Managed;
  29         private const MethodAttributes InvokeAttributes = MethodAttributes.Public | MethodAttributes.HideBySig | MethodAttributes.NewSlot | MethodAttributes.Virtual;
  30         private static readonly Type[] _DelegateCtorSignature = new Type[] { typeof(object), typeof(IntPtr) };
  31
  32         private static Type MakeNewCustomDelegate(Type[] types) {
  33             Type returnType = types[types.Length - 1];
  34             Type[] parameters = types.RemoveLast();
  35
  36             TypeBuilder builder = AssemblyGen.DefineDelegateType("Delegate" + types.Length);
  37             builder.DefineConstructor(CtorAttributes, CallingConventions.Standard, _DelegateCtorSignature).SetImplementationFlags(ImplAttributes);
  38             builder.DefineMethod("Invoke", InvokeAttributes, returnType, parameters).SetImplementationFlags(ImplAttributes);
  39             return builder.CreateType();
  40         }
  41     }
  42 }