Changeset 170 for Include/basic.sbp

Timestamp:

Mar 16, 2007, 10:01:14 AM (17 years ago)

Author:

イグトランス (egtra)

Message:

winnt.ab, windef.ab, guiddef.abを導入

File:

• Include/basic.sbp (modified) (4 diffs)

Include/basic.sbp

@@ -38 +38 @@
 TypeDef Int8 = SByte
 
-TypeDef BOOL = Long
-
-' Boolena型の定数
+' Boolean型の定数
 Const True = 1 As Boolean
 Const False = 0 As Boolean
+
+' BOOL型の定数（Booleanへの移行を推奨）
+Const _System_TRUE = -1
+Const _System_FALSE = 0
 
 ' 文字型
@@ -50 +52 @@
 TypeDef Char = SByte
 #endif
-
 
 
@@ -61 +62 @@
 TypeDef SinglePtr = *Single
 TypeDef DoublePtr = *Double
-
-#ifdef _WIN64
-TypeDef LONG_PTR =  Int64
-TypeDef ULONG_PTR = QWord
-TypeDef HALF_PTR = Long
-TypeDef UHALF_PTR = DWord
-#else
-TypeDef LONG_PTR = Long
-TypeDef ULONG_PTR = DWord
-TypeDef HALF_PTR = Integer
-TypeDef UHALF_PTR = Word
-#endif
-TypeDef DWORD_PTR = ULONG_PTR
 
 Sub SetPointer(pPtr As VoidPtr, p As VoidPtr)
@@ -106 +94 @@
     GetChar = p[0]
 End Function
-
-TypeDef SIZE_T = ULONG_PTR
-TypeDef SSIZE_T = LONG_PTR
-
-
 
 '--------------------------