使用System.Reflection.Emit.ILGenerator在VB.Net中调用Random?

时间:2011-06-11 19:43:51

标签: cil reflection.emit ilgenerator

我正在使用我自己的语言为.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 instance 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()是......除了初始化程序之外,不能使用新的东西。

  • 只需禁用随机功能,直到我能想出更好的发射方式。

这个问题对我来说很难,但我知道有些人比我更容易理解代码生成和MSIL,并且愿意指出答案。

感谢您的时间,

多米尼克

1 个答案:

答案 0 :(得分:2)

您需要使用ConstructorInfo:

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

此外 - 不需要从本地存储和加载。你真的只想要相当于新的Random()。Next(100),对吗?...在​​这种情况下,从本地存储和加载永远不会发生。