Changeset 173

Timestamp:

Mar 17, 2007, 5:56:56 PM (17 years ago)

Author:

dai

Message:

EnumBaseの=演算子オーバーロードのコードを排除。
その他タイプミスを修正。

Location:

Include

Files:

• Classes/System/Environment.ab (modified) (1 diff)
• Classes/System/OperatingSystem.ab (modified) (2 diffs)
• api_system.sbp (modified) (2 diffs)
• basic/command.sbp (modified) (1 diff)
• objidl.sbp (modified) (1 diff)
• system/enum.sbp (modified) (1 diff)

Include/Classes/System/Environment.ab

@@ -38 +38 @@
     End Sub
 
-    Static Sub HasShutdownStarted() As Boolean
+    Static Function HasShutdownStarted() As Boolean
         Return False
-    End Sub
+    End Function
 
     ' MachineName

Include/Classes/System/OperatingSystem.ab

@@ -13 +13 @@
     End Sub
 
-    Sub OperatingSystem(vi As OSVERSIONINFOA) As OperatingSystem
+    Sub OperatingSystem(vi As OSVERSIONINFOA)
         pf = vi.dwPlatformId As PlatformID,
         ver = New Version(vi.dwMajorVersion, vi.MinorVersion, vi.BuildNumber)
@@ -19 +19 @@
     End Sub
 
-    Sub OperatingSystem(vi As OSVERSIONINFOW) As OperatingSystem
+    Sub OperatingSystem(vi As OSVERSIONINFOW)
         pf = vi.dwPlatformId As PlatformID,
         ver = New Version(vi.dwMajorVersion, vi.MinorVersion, vi.BuildNumber)

Include/api_system.sbp

@@ -253 +253 @@
     ByRef hWritePipe As HANDLE,
     ByVal pPipeAttributes As *SECURITY_ATTRIBUTES,
-    ByVal nSize As DWORD) As Long
+    ByVal nSize As DWord) As Long
 Declare Function CreateSemaphore Lib "kernel32" Alias _FuncName_CreateSemaphore (pSemaphoreAttributes As *SECURITY_ATTRIBUTES, lInitialCount As Long, lMaximumCount As Long, pName As PCTSTR) As HANDLE
 
@@ -762 +762 @@
 
 Declare Function SetFileTime Lib "kernel32" (hFile As HANDLE, ByRef lpCreationTime As FILETIME, ByRef lpLastAccessTime As FILETIME, ByRef lpLastWriteTime As FILETIME) As BOOL
-Declare Function SetLastError Lib "kernel32" (dwErrCode As DWord)
-Declare Function SetLastErrorEx Lib "kernel32" (dwErrCode As DWord, dwType As DWord)
+Declare Sub SetLastError Lib "kernel32" (dwErrCode As DWord)
+Declare Sub SetLastErrorEx Lib "kernel32" (dwErrCode As DWord, dwType As DWord)
 Declare Function SetLocalTime Lib "kernel32" (ByRef lpSystemTime As SYSTEMTIME) As BOOL
 Declare Function SetPriorityClass Lib "kernel32" (hProcess As HANDLE, dwPriorityClass As DWord) As BOOL

Include/basic/command.sbp

@@ -93 +93 @@
         .fMask = MIIM_TYPE
 
-        If lpString.Length = 0 Then
+        If str.Length = 0 Then
             mii.fType = MFT_SEPARATOR
         Else

Include/objidl.sbp

@@ -283 +283 @@
     Function DAdvise(
         /* [in] */ ByRef pformatetc As FORMATETC,
-        /* [in] */ ByVal advf As DWORD,
+        /* [in] */ ByVal advf As DWord,
         /* [unique][in] */ ByVal pAdvSink As *IAdviseSink,
         /* [out] */ ByVal pdwConnection As *DWord) As HRESULT

Include/system/enum.sbp

@@ -13 +13 @@
     Sub Copy(ByRef obj As EnumBase)
         m_Value=obj.m_Value
-    End Sub
-
-    Sub Operator = (ByRef value As EnumBase) As EnumBase
-        m_Value = value.m_Value
     End Sub