Changeset 223 for Include/Classes/System/Runtime/InteropServices

Timestamp:

Apr 30, 2007, 1:56:57 PM (18 years ago)

Author:

イグトランス (egtra)

Message:

Controlがコンパイルできるように修正

File:

• Include/Classes/System/Runtime/InteropServices/GCHandle.ab (modified) (3 diffs)

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

@@ -12 +12 @@
     Sub Target(obj As Object)
         allocated.Add(obj)
+        handle = GetPointer(VarPtr(obj))
     End Sub
 
@@ -24 +25 @@
 
     Sub Free()
-        Dim pobj = VarPtr(handle) As *Object
         allocated.Remove(Target)
         handle = 0
@@ -30 +30 @@
 
     Static Function ToIntPtr(h As GCHandle) As LONG_PTR
-        Return h.handle As LONG_PTR Xor &hffffffff As LONG_PTR
+        Return h.handle As LONG_PTR
     End Function
 
     Static Function FromIntPtr(ip As LONG_PTR) As GCHandle
         FromIntPtr = New GCHandle
-        FromIntPtr.handle = (ip Xor &hffffffff As LONG_PTR) As VoidPtr
+        FromIntPtr.handle = ip As VoidPtr
     End Function