Changeset 532

Timestamp:

Jun 29, 2008, 3:23:03 PM (16 years ago)

Author:

dai

Message:

・If/While/Doなどのステートメントに引き渡す式の戻り値がクラス型の場合はBoolean型へのキャストを試みるようにした。
・キャスト演算子が存在せずに型変換できなかった場合のエラーメッセージを変更した。
・オーバーロード解決時、戻り値に型パラメータだった場合に型解決されずに、正しいオーバーロード解決が行われない不具合を修正。
・演算子メソッドの戻り値が型パラメータだったとき、型解決が行われない不具合を修正。

Location:

trunk/ab5.0

Files:

• ablib/src/Classes/System/Threading/Thread.ab (modified) (1 diff)
• ablib/src/system/enum.sbp (modified) (2 diffs)
• bin/x64/abc.exe (modified) ( previous)
• bin/x86/abc.exe (modified) ( previous)

trunk/ab5.0/ablib/src/Classes/System/Threading/Thread.ab

@@ -316 +316 @@
         For i=0 To ELM(ThreadNum)
             With collection[i]
-                If .thread Then
+                If ActiveBasic.IsNothing( .thread ) Then
                     .thread = Nothing
                     .stackBase = 0

trunk/ab5.0/ablib/src/system/enum.sbp

@@ -55 +55 @@
     End Function
 
-    Function Operator or (enumObj As T) As Boolean
-        Return ( This.value or enumObj.value ) <> 0
-    End Function
-
-    Function Operator and (enumObj As T) As Boolean
-        Return ( This.value and enumObj.value ) <> 0
-    End Function
-
     Function Operator or (enumObj As T) As T
         Return New EnumBase( This.value or enumObj.value, This.lpszName )
@@ -70 +62 @@
         Return New EnumBase( This.value and enumObj.value, This.lpszName )
     End Function
-/*
-    Function Operator xor (enumBase As EnumBase) As EnumBase
-        Return New EnumBase(This.value Xor enumBase.value)
-    End Function
-*/
 End Class