Использование System.Reflection.Emit.ILGenerator для вызова Random в VB.Net?

Question

Я генерирую выходные данные для исполняемого файла.Net с моего собственного языка... код операции (называемый "Случайный"), который переводится с моего языка, должен создать случайное число в пределах определенного диапазона.

Цель моего кода - создать случайное число с помощью класса System.Reflection.Emit.ILGenerator... чтобы понять, как выглядит код CIL. Я создал некоторый код vb.net:

Sub Main()
    Dim A As Random

    A = New Random

    Console.WriteLine(A.Next(100))
End Sub

Какой ILDASM сообщает как:

.method public static void  Main() cil managed
{
  .entrypoint
  .custom instance void [mscorlib]System.STAThreadAttribute::.ctor() = ( 01 00 00 00 ) 
  // Code size       23 (0x17)
  .maxstack  2
  .locals init ([0] class [mscorlib]System.Random A)
  IL_0000:  nop
  IL_0001:  newobj     instance void [mscorlib]System.Random::.ctor()
  IL_0006:  stloc.0
  IL_0007:  ldloc.0
  IL_0008:  ldc.i4.s   100
  IL_000a:  callvirt   instance int32 [mscorlib]System.Random::Next(int32)
  IL_000f:  call       void [mscorlib]System.Console::WriteLine(int32)
  IL_0014:  nop
  IL_0015:  nop
  IL_0016:  ret
} // end of method Main::Main

Я могу воспроизвести все, используя метод ILGenerator.Emit; кроме строки IL_0001 ("экземпляр newobj void [mscorlib]System.Random::.ctor()")...

Надеюсь, я никого не завалил слишком большим количеством информации. Но я полагаю, что лучше быть многословным при описании проблемы, которая кажется мне сложной.

Наконец, у меня есть код, который я создал до сих пор:

 Sub EmitRandom()
    Dim NewRandom As New Random
    Dim stringtype As Type = GetType(System.Random)

    Dim paramtypes() As Type = {GetType(Integer)}, blankparams() As Type = {}
    'Dim RandomMethod = stringtype.GetMethod("New", paramtypes)

    m_ILGen.Emit(OpCodes.Newobj, New Random().GetType)

    EmitStoreInLocal(tempVariableRnd)
    EmitLoadLocal(tempVariableRnd)

    m_ILGen.Emit(OpCodes.Callvirt, stringtype.GetMethod("Next", paramtypes))
End Sub

Который выдает следующий код:

.
.
.
IL_0073:  newobj     [mscorlib]System.Random
IL_0078:  stloc.2
IL_0079:  ldloc.2
IL_007a:  callvirt   instance int32 [mscorlib]System.Random::Next(int32)
.
.
.

Вещи, которые я уже пробовал:

• Придумать способ указать IL_Gen.Emit(OpCodes.NewObj, ... ctor())... не могу понять, как.

• Придумать способ указать на New() - так как это, похоже, и есть.ctor ()... New не может использоваться как инициализатор.

• Просто отключив функцию Random, пока я не смогу придумать лучший способ излучения.

Проблема кажется мне сложной, но я знаю, что есть кто-то, кто понимает генерацию кода и MSIL легче, чем я, и кто готов указать на ответ.

Спасибо за ваше время,

Доминик

Answer 1

Вам нужно использовать ConstructorInfo:

 m_ILGen.Emit(OpCodes.Newobj, GetType(Random).GetConstructor(Type.EmptyTypes))

Кроме того - хранение и загрузка с локального компьютера не нужны. Вы действительно просто хотите получить эквивалент new Random().Next(100), верно?... в этом случае сохранение и загрузка из локального хранилища никогда не происходит.