Changeset 2655

Timestamp:

08/16/08 14:05:02 (3 months ago)

Author:

maxr

Message:

ada: bugfix of overload resolution of qualified expr of array type

Files:

• trunk/tendra/src/producers/ada/asis/asis-gela-overloads-walk-up.adb (modified) (1 diff)

trunk/tendra/src/producers/ada/asis/asis-gela-overloads-walk-up.adb

@@ -1657 +1657 @@
-                  Add (Result, Up_Expression (Tipe));
-               elsif Item.Kind = A_Record_Aggregate
+                 or Item.Kind = An_Array_Aggregate
-                 or Item.Kind = A_String_Type
-               then