source: Include/system/interface.ab@ 288

Last change on this file since 288 was 288, checked in by dai, 17 years ago

いくつかタイプミスを修正。
エラーになるコードを排除、
enumクラスのビット演算メソッドをコメントアウト(仕様未確定なため)。

File size: 348 bytes
Line 
1Type InterfaceStructure
2 thisPtr As VoidPtr
3 vtblPtr As VoidPtr
4End Type
5
6Function CastToInterface( obj As Object, typeOfInterface As System.TypeInfo ) As InterfaceStructure
7 Dim interfaceStructure As InterfaceStructure
8 interfaceStructure.thisPtr = ObjPtr( obj )
9 interfaceStructure.vtblPtr = obj.GetVtbl( typeOfInterface )
10End Function
Note: See TracBrowser for help on using the repository browser.