Ignore:
Timestamp:
Feb 8, 2015, 7:58:55 AM (5 years ago)
Author:
Maxim Reznik
Message:

Declare incomplete types. Add new tests

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ada-2012/src/asis/asis-extensions-flat_kinds.adb

    r391 r397  
    775775     (Self : in out Visiter;
    776776      Node : not null Gela.Elements.Incomplete_Type_Declarations.
    777         Incomplete_Type_Declaration_Access)
    778    is null;
     777        Incomplete_Type_Declaration_Access);
    779778
    780779   overriding procedure Incomplete_Type_Definition
    781780     (Self : in out Visiter;
    782781      Node : not null Gela.Elements.Incomplete_Type_Definitions.
    783         Incomplete_Type_Definition_Access)
    784    is null;
     782        Incomplete_Type_Definition_Access);
    785783
    786784   overriding procedure Interface_Type_Definition
     
    17561754   end If_Statement;
    17571755
     1756   overriding procedure Incomplete_Type_Declaration
     1757     (Self : in out Visiter;
     1758      Node : not null Gela.Elements.Incomplete_Type_Declarations.
     1759        Incomplete_Type_Declaration_Access)
     1760   is
     1761      pragma Unreferenced (Node);
     1762   begin
     1763      Self.Result := An_Incomplete_Type_Declaration;
     1764   end Incomplete_Type_Declaration;
     1765
     1766   overriding procedure Incomplete_Type_Definition
     1767     (Self : in out Visiter;
     1768      Node : not null Gela.Elements.Incomplete_Type_Definitions.
     1769        Incomplete_Type_Definition_Access)
     1770   is
     1771      pragma Unreferenced (Node);
     1772   begin
     1773      Self.Result := An_Incomplete_Type_Definition;
     1774   end Incomplete_Type_Definition;
     1775
    17581776   overriding procedure Known_Discriminant_Part
    17591777     (Self : in out Visiter;
Note: See TracChangeset for help on using the changeset viewer.