Thisを使用してのデリゲートの作成がうまくいかない

[イグトランス (egtra)]

以下のコードでTest (This)とTest (Implicit This)のときにTarget()で出力されるObjPtr(This)とxの値がおかしい。

#console

Delegate Sub MyDelegate()

Class MyClass
Public
	Sub Test()
		Print "[Test] This: " + Hex$(ObjPtr(f))
		Print "[Test] x: " + Hex$(f.x)
		Print "----Test (This)----"
		Dim h = New MyDelegate(AddressOf(This.Target))
		h()
		Print "----Test (別オブジェクト)----"
		Dim r = This
		Dim i = New MyDelegate(AddressOf(r.Target))
		i()
		Print "----Test (Implicit This)----"
		Dim j = New MyDelegate(AddressOf(Target))
		j()
	End Sub

	Sub Target()
		Print "[Target] This: " + Hex$(ObjPtr(This))
		Print "[Target] x: " + Hex$(x)
	End Sub

	x As DWord
End Class


Dim f = New MyClass
f.x = &hc0ffee
f.Test()

Print "----Global----"
Dim h = New MyDelegate(AddressOf(f.Target))
h()

System.Console.ReadLine()

[dai]

32bit版のみ、[546]にて修正。x64版を後日修正すること。

[dai]

[548]にて64bit版の対応を行った。また、本チケットの不具合が生じないことを証明するためのテストケースを[549]にてコミットした。