mono/tests/bug-575941.cs

   1 using System;
   2 using System.Threading;
   3 using System.Reflection;
   4 using System.Reflection.Emit;
   5
   6 public class Tests
   7 {
   8         public static int Main (String[] args) {
   9                 AssemblyName assemblyName = new AssemblyName ();
  10                 assemblyName.Name = "foo";
  11
  12                 AssemblyBuilder assembly =
  13                         Thread.GetDomain ().DefineDynamicAssembly (
  14                                                                                                            assemblyName, AssemblyBuilderAccess.RunAndSave);
  15
  16                 ModuleBuilder module = assembly.DefineDynamicModule ("foo.dll");
  17
  18                 TypeBuilder if_tb = module.DefineType ("IF`1", TypeAttributes.Public|TypeAttributes.Abstract|TypeAttributes.Interface);
  19
  20                 GenericTypeParameterBuilder [] typeParams = if_tb.DefineGenericParameters ("T");
  21
  22                 MethodBuilder if_mb = if_tb.DefineMethod ("foo", MethodAttributes.Public|MethodAttributes.Abstract|MethodAttributes.Virtual, typeParams [0], Type.EmptyTypes);
  23
  24
  25                 TypeBuilder tb = module.DefineType ("Foo`1", TypeAttributes.Public, typeof (object));
  26                 GenericTypeParameterBuilder [] tbTypeParams = tb.DefineGenericParameters ("T");
  27
  28
  29                 Type inst = if_tb.MakeGenericType (tbTypeParams [0]);
  30
  31                 tb.AddInterfaceImplementation (inst);
  32
  33                 var mb0 = tb.DefineMethod ("foo", MethodAttributes.Public|MethodAttributes.Virtual, typeParams [0], Type.EmptyTypes);
  34                 mb0.GetILGenerator ().Emit (OpCodes.Ret);
  35
  36                 var mb = tb.DefineMethod ("__foo", MethodAttributes.Public|MethodAttributes.Virtual, typeParams [0],Type.EmptyTypes);
  37                 var gen = mb.GetILGenerator ();
  38                 var local = gen.DeclareLocal (typeParams [0], false);
  39                 gen.Emit (OpCodes.Ldloca, local);
  40                 gen.Emit (OpCodes.Initobj, typeParams [0]);
  41                 gen.Emit (OpCodes.Ldloc, local);
  42                 gen.Emit (OpCodes.Ret);
  43
  44                 tb.DefineMethodOverride (mb, TypeBuilder.GetMethod (inst, if_mb));
  45
  46                 var k = if_tb.CreateType ();
  47
  48                 Type t = tb.CreateType ();
  49                 object obj = Activator.CreateInstance (t.MakeGenericType (new Type [] { typeof (string)}));
  50                 var info = k.MakeGenericType (new Type [] { typeof (string) }).GetMethod ("foo");
  51                 var res = info.Invoke (obj, null);
  52                 return res == null ? 0 : 1;
  53         }
  54 }
  55