Changeset 375 for trunk/Include/system/exception.ab

Timestamp:

Nov 11, 2007, 3:14:19 PM (17 years ago)

Author:

dai

Message:

Throw→Catch間のパラメータ引渡しに対応。
グローバル領域でのTryスコープを可能にした。これで例外処理機構実装完了。
エディタの補間機能にTry/Catch/Finally/EndTryを追加。

File:

• trunk/Include/system/exception.ab (modified) (1 diff)

trunk/Include/system/exception.ab

@@ -128 +128 @@
 
         Dim addressOfCatch = pTryLayer->ResolveCatchesOverload( ex ) As LONG_PTR
-        If addressOfCatch Then
-            ' スレッドへThrow処理が終了した（Catchされた）ことを通知
-            Thread.CurrentThread().__Catched()
-        Else
+        If addressOfCatch = NULL Then
             ' Catchが定義されていないときはFinallyへ誘導
             addressOfCatch = pTryLayer->addressOfFinally As LONG_PTR