Changeset 374 for trunk/Include/Classes

Timestamp:

Nov 10, 2007, 11:20:01 AM (16 years ago)

Author:

dai

Message:

例外処理機構実装中
・Catchのオーバーロードに対応
・Finallyに対応
・Tryスコープの入れ子に対応
（※注意 … 現時点ではThrow→Catch間でパラメータの引渡しができません）

File:

• trunk/Include/Classes/System/Threading/Thread.ab (modified) (6 diffs)

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

@@ -28 +28 @@
     name As String
 
+    isThrowing As Boolean
+    throwingParamObject As Object
+
 Public
     Sub Thread()
@@ -37 +40 @@
 
         name = "sub thread"
+
+        isThrowing = False
+        throwingParamObject = Nothing
     End Sub
     Sub Thread(fp As PTHREAD_START_ROUTINE, args As VoidPtr)
@@ -47 +53 @@
 
         name = "sub thread"
+
+        isThrowing = False
+        throwingParamObject = Nothing
     End Sub
 
@@ -57 +66 @@
 
         name = "sub thread"
+
+        isThrowing = False
+        throwingParamObject = Nothing
     End Sub
 
@@ -64 +76 @@
 
         name = "sub thread"
+
+        isThrowing = False
+        throwingParamObject = Nothing
     End Sub
 
@@ -163 +178 @@
     Function __SetContext(ByRef Context As CONTEXT) As BOOL
         Return SetThreadContext(m_hThread,Context)
+    End Function
+
+    Sub __Throw( ex As Object )
+        isThrowing = True
+        throwingParamObject = ex
+    End Sub
+    Sub __Catched()
+        isThrowing = False
+        throwingParamObject = Nothing
+    End Sub
+    Function __IsThrowing() As Boolean
+        Return isThrowing
+    End Function
+    Function __GetThrowintParamObject() As Object
+        Return throwingParamObject
     End Function