Changeset 388 for trunk/Include/Classes/System/Threading/WaitHandle.ab

Timestamp:

Nov 25, 2007, 4:31:35 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

Stringなどで例外を投げるようにした。
#147の解決。
CType ASCII文字判定関数群の追加。

File:

• trunk/Include/Classes/System/Threading/WaitHandle.ab (modified) (3 diffs)

trunk/Include/Classes/System/Threading/WaitHandle.ab

@@ -38 +38 @@
     End Sub
 
-    Override Sub Dispose()
+    Virtual Sub Dispose()
         Dim hDisposing = InterlockedExchangePointer(h, 0)
         If hDisposing <> 0 Then
@@ -49 +49 @@
     End Function
 
-    Function WaitOne(millisecondsTimeout As Long, exitContext As BOOL) As Boolean
+    Function WaitOne(millisecondsTimeout As Long, exitContext As Boolean) As Boolean
         Return WaitHandle.AfterWait(WaitForSingleObject(h, millisecondsTimeout As DWord), 1)
     End Function
@@ -80 +80 @@
 
 Public
-    Static Function SignalAndWait(toSignal As WaitHandle, toWaitOn As WaitHandle, millisecondsTimeout As Long, exitContext As BOOL) As Boolean
+    Static Function SignalAndWait(toSignal As WaitHandle, toWaitOn As WaitHandle, millisecondsTimeout As Long, exitContext As Boolean) As Boolean
         Dim pSignalObjectAndWait = GetProcAddress(GetModuleHandle("Kernel32.dll"), "SignalObjectAndWait") As Detail.PFNSignalObjectAndWait
         If pSignalObjectAndWait = 0 Then
-            ' PlatformNotSupportedException
-            Debug
-            ExitThread(-1)
+            Throw New PlatformNotSupportedException("WaitHandle.SignalAndWait: This platform doesn't supoort this operation.")
         End If
         Return WaitHandle.AfterWait(pSignalObjectAndWait(toSignal.Handle, toWaitOn.Handle, millisecondsTimeout As DWord, FALSE), 1)