Changeset 569 for trunk


Ignore:
Timestamp:
Jul 26, 2008, 7:29:57 AM (16 years ago)
Author:
dai
Message:
  • #184への対応。ByRef引数を持つデリゲートを宣言するとコンパイルできないバグを修正(改修を裏付けるテストケースも作成)。
  • オーバーロード用のパラメータ比較にByRef/ByValの相違を考慮するようにした。

(後ほど64bit版もコミットします)

Location:
trunk/ab5.0
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/ab5.0/ablib/TestCase/SimpleTestCase/DelegateTest.ab

    r549 r569  
    1414Delegate Sub Callback4( a As StringEx )
    1515Delegate Function Callback7( str As String ) As String
     16Delegate Sub CallbackTicket184( ByRef a As Long )
    1617
    1718Class TestClass
     
    9091        dg()
    9192    End Sub
     93
     94    Sub Ticket184( ByRef a As Long )
     95        a = &H184
     96    End Sub
    9297End Class
    9398
     
    116121    UnitTest( "Delegate2", dg7( "test value" ) = "Proc7 result[test value]" )
    117122
     123    Dim dg184 = New CallbackTicket184( AddressOf( testObj.Ticket184 ) )
     124    Dim temp184 As Long
     125    dg184( temp184 )
     126    UnitTest( "Delegate3", temp184 = &H184 )
     127
    118128End Sub
    119129
Note: See TracChangeset for help on using the changeset viewer.