Changeset 400 for trunk/Include/basic.sbp

Timestamp:

Jan 22, 2008, 9:19:59 PM (16 years ago)

Author:

イグトランス (egtra)

Message:

_System_CThreadCollectionでのクラスインスタンスへのポインタの使用を除去、参照変数構文へ。

File:

• trunk/Include/basic.sbp (modified) (2 diffs)

trunk/Include/basic.sbp

@@ -5 +5 @@
 ' Unicodeが不安定な間の暫定対応
 #define __STRING_IS_NOT_ALWAYS_UNICODE
-
 
 #ifndef _INC_BASIC
@@ -107 +106 @@
 End Function
 
-Sub SetChar(p As *Char, c As Char)
+Sub SetChar(p As *WCHAR, c As WCHAR)
     p[0] = c
 End Sub
 
-Function GetChar(p As *Char) As Char
+Function GetChar(p As *WCHAR) As WCHAR
+    GetChar = p[0]
+End Function
+
+Sub SetChar(p As *CHAR, c As CHAR)
+    p[0] = c
+End Sub
+
+Function GetChar(p As *CHAR) As CHAR
     GetChar = p[0]
 End Function