Changeset 536 for trunk/ab5.0/ablib/src/Classes/System/Runtime/InteropServices/GCHandle.ab

Timestamp:

Jul 11, 2008, 1:24:57 AM (16 years ago)

Author:

イグトランス (egtra)

Message:

細かい修正。
Str$にStringを受け取る多重定義を追加した。
複数libを作るバッチで、コンパイルエラーが発生したら以後のビルドを行わないようにした。
Threadクラスの_beginthreadexをCreateThreadへ変更した。
ole2.abを全体が使える古い版へ戻した。
SendMessageCallback/SendMessageTimeoutを追加した。
GCHandleで登録が解除されない状態が起こる問題を直した。

File:

• trunk/ab5.0/ablib/src/Classes/System/Runtime/InteropServices/GCHandle.ab (modified) (1 diff)

trunk/ab5.0/ablib/src/Classes/System/Runtime/InteropServices/GCHandle.ab

@@ -8 +8 @@
 Public
     Function Target() As Object
-        Dim pobj = VarPtr(handle) As *Object
-        Return pobj[0]
+        Target = _System_PtrObj(handle)
     End Function
 
     Sub Target(obj As Object)
+        If handle <> 0 Then
+            Dim i = allocated.IndexOf(Target())
+            'assert(i <> -1)
+            allocated[i] = obj
+        End If
         allocated.Add(obj)
         handle = ObjPtr(obj)