Changeset 560 for trunk/ab5.0/ablib/src/Classes/System/IO/Exception.ab

Timestamp:

Jul 21, 2008, 2:34:12 PM (16 years ago)

Author:

dai

Message:

#183への対応。コンストラクタ、デストラクタが直接呼び出された場合はエラーとして扱うようにした。
（64bit版は後ほどコミットします）

File:

• trunk/ab5.0/ablib/src/Classes/System/IO/Exception.ab (modified) (4 diffs)

trunk/ab5.0/ablib/src/Classes/System/IO/Exception.ab

@@ -25 +25 @@
     */
     Sub IOException()
-        Exception(GetType().FullName, Nothing)
+        SystemException(GetType().FullName)
         HResult = ActiveBasic.AB_E_IO
     End Sub
@@ -33 +33 @@
     */
     Sub IOException(message As String)
-        Exception(message, Nothing)
+        SystemException(message)
         HResult = ActiveBasic.AB_E_IO
     End Sub
@@ -42 +42 @@
     */
     Sub IOException(message As String, innerException As Exception)
-        Exception(message, innerException)
+        SystemException(message, innerException)
         HResult = ActiveBasic.AB_E_IO
     End Sub
@@ -51 +51 @@
     */
     Sub IOException(message As String, hr As HRESULT)
-        Exception(message, Nothing)
+        SystemException(message)
         HResult = hr
     End Sub