Changeset 536 for trunk/ab5.0/ablib/src/Classes/System/Runtime
- Timestamp:
- Jul 11, 2008, 1:24:57 AM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ab5.0/ablib/src/Classes/System/Runtime/InteropServices/GCHandle.ab
r388 r536 8 8 Public 9 9 Function Target() As Object 10 Dim pobj = VarPtr(handle) As *Object 11 Return pobj[0] 10 Target = _System_PtrObj(handle) 12 11 End Function 13 12 14 13 Sub Target(obj As Object) 14 If handle <> 0 Then 15 Dim i = allocated.IndexOf(Target()) 16 'assert(i <> -1) 17 allocated[i] = obj 18 End If 15 19 allocated.Add(obj) 16 20 handle = ObjPtr(obj)
Note:
See TracChangeset
for help on using the changeset viewer.