Changeset 289 for Include/system
- Timestamp:
- Aug 15, 2007, 3:29:59 AM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Include/system/interface.ab
r288 r289 6 6 Function CastToInterface( obj As Object, typeOfInterface As System.TypeInfo ) As InterfaceStructure 7 7 Dim interfaceStructure As InterfaceStructure 8 interfaceStructure.thisPtr = ObjPtr( obj ) 9 interfaceStructure.vtblPtr = obj.GetVtbl( typeOfInterface ) 8 9 ' TODO: 実装 10 'interfaceStructure.thisPtr = ObjPtr( obj ) 11 'interfaceStructure.vtblPtr = obj.GetVtbl( typeOfInterface ) 10 12 End Function
Note:
See TracChangeset
for help on using the changeset viewer.