Changeset 150 for Include/basic.sbp

Timestamp:

Mar 11, 2007, 1:11:46 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

参照型導入に備え、構造体 (Type)代わりにクラスを使っていた部分を構造体へ戻すほか

File:

• Include/basic.sbp (modified) (1 diff)

Include/basic.sbp

@@ -65 +65 @@
 #endif
 TypeDef DWORD_PTR = ULONG_PTR
+
+Sub SetPointer(pPtr As VoidPtr, p As VoidPtr)
+    Set_LONG_PTR(pPtr, p As LONG_PTR)
+End Sub
+
+Function GetPointer(pPtr As VoidPtr) As VoidPtr
+    GetPointer = Get_LONG_PTR(pPtr) As VoidPtr
+End Function
 
 Sub Set_LONG_PTR(pPtr As VoidPtr, lpData As LONG_PTR)