Changeset 569

Timestamp:

Jul 26, 2008, 7:29:57 AM (16 years ago)

Author:

dai

Message:

• #184への対応。ByRef引数を持つデリゲートを宣言するとコンパイルできないバグを修正（改修を裏付けるテストケースも作成）。
• オーバーロード用のパラメータ比較にByRef/ByValの相違を考慮するようにした。

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

Location:

trunk/ab5.0

Files:

• ablib/TestCase/SimpleTestCase/DelegateTest.ab (modified) (3 diffs)
• bin/x86/abc.exe (modified) ( previous)

trunk/ab5.0/ablib/TestCase/SimpleTestCase/DelegateTest.ab

@@ -14 +14 @@
 Delegate Sub Callback4( a As StringEx )
 Delegate Function Callback7( str As String ) As String
+Delegate Sub CallbackTicket184( ByRef a As Long )
 
 Class TestClass
@@ -90 +91 @@
         dg()
     End Sub
+
+    Sub Ticket184( ByRef a As Long )
+        a = &H184
+    End Sub
 End Class
 
@@ -116 +121 @@
     UnitTest( "Delegate2", dg7( "test value" ) = "Proc7 result[test value]" )
 
+    Dim dg184 = New CallbackTicket184( AddressOf( testObj.Ticket184 ) )
+    Dim temp184 As Long
+    dg184( temp184 )
+    UnitTest( "Delegate3", temp184 = &H184 )
+
 End Sub