Changeset 230 for Include/Classes

Timestamp:

May 5, 2007, 10:28:31 PM (18 years ago)

Author:

イグトランス (egtra)

Message:

GCHandleTestの追加、全てのテスト処理を関数に入れる

File:

• Include/Classes/System/Runtime/InteropServices/GCHandle.ab (modified) (1 diff)

Include/Classes/System/Runtime/InteropServices/GCHandle.ab

@@ -12 +12 @@
     Sub Target(obj As Object)
         allocated.Add(obj)
-        handle = GetPointer(VarPtr(obj))
+        handle = VarPtr(obj) 'ObjPtr
     End Sub