Changeset 2648

Timestamp:

05/06/08 14:35:34 (7 months ago)

Author:

maxr

Message:

ada: bugfix, anonnymous access type in component definition

Files:

• trunk/tendra/src/producers/ada/asis/asis-gela-classes.adb (modified) (2 diffs)

trunk/tendra/src/producers/ada/asis/asis-gela-classes.adb

@@ -162 +162 @@
-
-   function Destination_Type (Tipe : Type_Info) return Type_Info is
+      use Asis.Elements;
-      use Asis.Definitions;
-      use Asis.Declarations;
@@ -184 +185 @@
-            Def    := Object_Declaration_Subtype
-              (Elements.Enclosing_Element (Top.Object_Name));
+
+            if Definition_Kind (Def) = Asis.A_Component_Definition then
+               Def := Component_Subtype_Indication (Def);
+            end if;
+
-            Def    := Anonymous_Access_To_Object_Subtype_Mark (Def);
-            Result := Type_From_Subtype_Mark (Def, Tipe.Place);