Changeset 2658

Timestamp:

08/16/08 15:01:36 (5 months ago)

Author:

maxr

Message:

ada: bugfix for missed formal types in overload resolution

Files:

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

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

@@ -1465 +1465 @@
-               when An_Ordinary_Type_Declaration
-                 | A_Private_Type_Declaration
+                 | A_Formal_Type_Declaration
-                 | A_Subtype_Declaration =>
-                  Tipe := Type_From_Declaration (Expression_Type, Place);