Ignore:
Timestamp:
Feb 7, 2015, 12:15:18 PM (6 years ago)
Author:
Maxim Reznik
Message:

Add interpretation of record aggregate

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ada-2012/src/semantic/gela-plain_type_managers.adb

    r395 r396  
    1111with Gela.Plain_Type_Views;
    1212with Gela.Elements.Identifiers;
     13with Gela.Elements.Discriminant_Specifications;
     14with Gela.Elements.Subtype_Mark_Or_Access_Definitions;
     15with Gela.Elements.Component_Declarations;
     16with Gela.Elements.Component_Definitions;
     17with Gela.Elements.Subtype_Indication_Or_Access_Definitions;
    1318
    1419package body Gela.Plain_Type_Managers is
     
    291296         end record;
    292297
     298         overriding procedure Component_Declaration
     299           (Self : in out Visiter;
     300            Node : not null Gela.Elements.Component_Declarations.
     301              Component_Declaration_Access);
     302
     303         overriding procedure Component_Definition
     304           (Self : in out Visiter;
     305            Node : not null Gela.Elements.Component_Definitions.
     306              Component_Definition_Access);
     307
     308         overriding procedure Discriminant_Specification
     309           (Self : in out Visiter;
     310            Node : not null Gela.Elements.Discriminant_Specifications.
     311              Discriminant_Specification_Access);
     312
    293313         overriding procedure Object_Declaration
    294314           (Self : in out Visiter;
     
    304324
    305325      package body Visiters is
     326
     327         overriding procedure Component_Declaration
     328           (Self : in out Visiter;
     329            Node : not null Gela.Elements.Component_Declarations.
     330              Component_Declaration_Access)
     331         is
     332            X : constant Gela.Elements.Component_Definitions.
     333              Component_Definition_Access :=
     334                Node.Object_Declaration_Subtype;
     335         begin
     336            X.Visit (Self);
     337         end Component_Declaration;
     338
     339         overriding procedure Component_Definition
     340           (Self : in out Visiter;
     341            Node : not null Gela.Elements.Component_Definitions.
     342              Component_Definition_Access)
     343         is
     344            X : constant Gela.Elements.Subtype_Indication_Or_Access_Definitions
     345              .Subtype_Indication_Or_Access_Definition_Access :=
     346                Node.Component_Subtype_Indication;
     347         begin
     348            X.Visit (Self);
     349         end Component_Definition;
     350
     351         overriding procedure Discriminant_Specification
     352           (Self : in out Visiter;
     353            Node : not null Gela.Elements.Discriminant_Specifications.
     354              Discriminant_Specification_Access)
     355         is
     356            X : constant Gela.Elements.Subtype_Mark_Or_Access_Definitions.
     357              Subtype_Mark_Or_Access_Definition_Access :=
     358                Node.Object_Declaration_Subtype;
     359         begin
     360            X.Visit (Self);
     361         end Discriminant_Specification;
    306362
    307363         overriding procedure Object_Declaration
Note: See TracChangeset for help on using the changeset viewer.