Changeset 532


Ignore:
Timestamp:
Jun 29, 2008, 3:23:03 PM (14 years ago)
Author:
dai
Message:

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

Location:
trunk/ab5.0
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • trunk/ab5.0/ablib/src/Classes/System/Threading/Thread.ab

    r495 r532  
    316316        For i=0 To ELM(ThreadNum)
    317317            With collection[i]
    318                 If .thread Then
     318                If ActiveBasic.IsNothing( .thread ) Then
    319319                    .thread = Nothing
    320320                    .stackBase = 0
  • trunk/ab5.0/ablib/src/system/enum.sbp

    r475 r532  
    5555    End Function
    5656
    57     Function Operator or (enumObj As T) As Boolean
    58         Return ( This.value or enumObj.value ) <> 0
    59     End Function
    60 
    61     Function Operator and (enumObj As T) As Boolean
    62         Return ( This.value and enumObj.value ) <> 0
    63     End Function
    64 
    6557    Function Operator or (enumObj As T) As T
    6658        Return New EnumBase( This.value or enumObj.value, This.lpszName )
     
    7062        Return New EnumBase( This.value and enumObj.value, This.lpszName )
    7163    End Function
    72 /*
    73     Function Operator xor (enumBase As EnumBase) As EnumBase
    74         Return New EnumBase(This.value Xor enumBase.value)
    75     End Function
    76 */
    7764End Class
Note: See TracChangeset for help on using the changeset viewer.