Changeset 390


Ignore:
Timestamp:
Jan 12, 2015, 5:21:08 AM (5 years ago)
Author:
Maxim Reznik
Message:

Implement more Flat_Kinds functions

File:
1 edited

Legend:

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

    r389 r390  
    210210   overriding procedure Accept_Statement
    211211     (Self : in out Visiter;
    212       Node : not null Gela.Elements.Accept_Statements.Accept_Statement_Access)
    213    is null;
     212      Node : not null Gela.Elements.Accept_Statements.Accept_Statement_Access);
    214213
    215214   overriding procedure Access_To_Function_Definition
     
    245244     (Self : in out Visiter;
    246245      Node : not null Gela.Elements.Anonymous_Access_To_Object_Definitions.
    247         Anonymous_Access_To_Object_Definition_Access)
    248    is null;
     246        Anonymous_Access_To_Object_Definition_Access);
    249247
    250248   overriding procedure Anonymous_Access_To_Procedure_Definition
     
    289287     (Self : in out Visiter;
    290288      Node : not null Gela.Elements.Attribute_References.
    291         Attribute_Reference_Access)
    292    is null;
     289        Attribute_Reference_Access);
    293290
    294291   overriding procedure Auxiliary_Apply
     
    298295   overriding procedure Block_Statement
    299296     (Self : in out Visiter;
    300       Node : not null Gela.Elements.Block_Statements.Block_Statement_Access)
    301    is null;
     297      Node : not null Gela.Elements.Block_Statements.Block_Statement_Access);
    302298
    303299   overriding procedure Box
     
    395391     (Self : in out Visiter;
    396392      Node : not null Gela.Elements.Defining_Expanded_Unit_Names.
    397         Defining_Expanded_Unit_Name_Access)
    398    is null;
     393        Defining_Expanded_Unit_Name_Access);
    399394
    400395   overriding procedure Defining_Identifier
     
    411406   overriding procedure Delay_Statement
    412407     (Self : in out Visiter;
    413       Node : not null Gela.Elements.Delay_Statements.Delay_Statement_Access)
    414    is null;
     408      Node : not null Gela.Elements.Delay_Statements.Delay_Statement_Access);
    415409
    416410   overriding procedure Delta_Constraint
     
    428422     (Self : in out Visiter;
    429423      Node : not null Gela.Elements.Derived_Type_Definitions.
    430         Derived_Type_Definition_Access)
    431    is null;
     424        Derived_Type_Definition_Access);
    432425
    433426   overriding procedure Digits_Constraint
     
    480473   overriding procedure Else_Path
    481474     (Self : in out Visiter;
    482       Node : not null Gela.Elements.Else_Paths.Else_Path_Access)
    483    is null;
     475      Node : not null Gela.Elements.Else_Paths.Else_Path_Access);
    484476
    485477   overriding procedure Elsif_Expression_Path
     
    496488   overriding procedure Entry_Body
    497489     (Self : in out Visiter;
     490      Node : not null Gela.Elements.Entry_Bodies.Entry_Body_Access);
     491
     492   overriding procedure Entry_Declaration
     493     (Self : in out Visiter;
     494      Node : not null Gela.Elements.Entry_Declarations.
     495        Entry_Declaration_Access);
     496
     497   overriding procedure Entry_Index_Specification
     498     (Self : in out Visiter;
     499      Node : not null Gela.Elements.Entry_Index_Specifications.
     500        Entry_Index_Specification_Access)
     501   is null;
     502
     503   overriding procedure Enumeration_Literal
     504     (Self : in out Visiter;
     505      Node : not null Gela.Elements.Enumeration_Literals.
     506        Enumeration_Literal_Access)
     507   is null;
     508
     509   overriding procedure Enumeration_Literal_Specification
     510     (Self : in out Visiter;
     511      Node : not null Gela.Elements.Enumeration_Literal_Specifications.
     512        Enumeration_Literal_Specification_Access);
     513
     514   overriding procedure Enumeration_Type_Definition
     515     (Self : in out Visiter;
     516      Node : not null Gela.Elements.Enumeration_Type_Definitions.
     517        Enumeration_Type_Definition_Access);
     518
     519   overriding procedure Exception_Declaration
     520     (Self : in out Visiter;
     521      Node : not null Gela.Elements.Exception_Declarations.
     522        Exception_Declaration_Access);
     523
     524   overriding procedure Exception_Handler
     525     (Self : in out Visiter;
     526      Node : not null Gela.Elements.Exception_Handlers.
     527        Exception_Handler_Access);
     528
     529   overriding procedure Exception_Renaming_Declaration
     530     (Self : in out Visiter;
     531      Node : not null Gela.Elements.Exception_Renaming_Declarations.
     532        Exception_Renaming_Declaration_Access)
     533   is null;
     534
     535   overriding procedure Exit_Statement
     536     (Self : in out Visiter;
     537      Node : not null Gela.Elements.Exit_Statements.Exit_Statement_Access);
     538
     539   overriding procedure Explicit_Dereference
     540     (Self : in out Visiter;
     541      Node : not null Gela.Elements.Explicit_Dereferences.
     542        Explicit_Dereference_Access);
     543
     544   overriding procedure Extended_Return_Statement
     545     (Self : in out Visiter;
     546      Node : not null Gela.Elements.Extended_Return_Statements.
     547        Extended_Return_Statement_Access)
     548   is null;
     549
     550   overriding procedure Extension_Aggregate
     551     (Self : in out Visiter;
     552      Node : not null Gela.Elements.Extension_Aggregates.
     553        Extension_Aggregate_Access)
     554   is null;
     555
     556   overriding procedure Floating_Point_Definition
     557     (Self : in out Visiter;
     558      Node : not null Gela.Elements.Floating_Point_Definitions.
     559        Floating_Point_Definition_Access)
     560   is null;
     561
     562   overriding procedure For_Loop_Statement
     563     (Self : in out Visiter;
     564      Node : not null Gela.Elements.For_Loop_Statements.
     565        For_Loop_Statement_Access)
     566   is null;
     567
     568   overriding procedure Formal_Access_To_Function_Definition
     569     (Self : in out Visiter;
     570      Node : not null Gela.Elements.Formal_Access_To_Function_Definitions.
     571        Formal_Access_To_Function_Definition_Access)
     572   is null;
     573
     574   overriding procedure Formal_Access_To_Object_Definition
     575     (Self : in out Visiter;
     576      Node : not null Gela.Elements.Formal_Access_To_Object_Definitions.
     577        Formal_Access_To_Object_Definition_Access)
     578   is null;
     579
     580   overriding procedure Formal_Access_To_Procedure_Definition
     581     (Self : in out Visiter;
     582      Node : not null Gela.Elements.Formal_Access_To_Procedure_Definitions.
     583        Formal_Access_To_Procedure_Definition_Access)
     584   is null;
     585
     586   overriding procedure Formal_Constrained_Array_Definition
     587     (Self : in out Visiter;
     588      Node : not null Gela.Elements.Formal_Constrained_Array_Definitions.
     589        Formal_Constrained_Array_Definition_Access)
     590   is null;
     591
     592   overriding procedure Formal_Decimal_Fixed_Point_Definition
     593     (Self : in out Visiter;
     594      Node : not null Gela.Elements.Formal_Decimal_Fixed_Point_Definitions.
     595        Formal_Decimal_Fixed_Point_Definition_Access)
     596   is null;
     597
     598   overriding procedure Formal_Derived_Type_Definition
     599     (Self : in out Visiter;
     600      Node : not null Gela.Elements.Formal_Derived_Type_Definitions.
     601        Formal_Derived_Type_Definition_Access);
     602
     603   overriding procedure Formal_Discrete_Type_Definition
     604     (Self : in out Visiter;
     605      Node : not null Gela.Elements.Formal_Discrete_Type_Definitions.
     606        Formal_Discrete_Type_Definition_Access)
     607   is null;
     608
     609   overriding procedure Formal_Floating_Point_Definition
     610     (Self : in out Visiter;
     611      Node : not null Gela.Elements.Formal_Floating_Point_Definitions.
     612        Formal_Floating_Point_Definition_Access)
     613   is null;
     614
     615   overriding procedure Formal_Function_Declaration
     616     (Self : in out Visiter;
     617      Node : not null Gela.Elements.Formal_Function_Declarations.
     618        Formal_Function_Declaration_Access)
     619   is null;
     620
     621   overriding procedure Formal_Incomplete_Type_Declaration
     622     (Self : in out Visiter;
     623      Node : not null Gela.Elements.Formal_Incomplete_Type_Declarations.
     624        Formal_Incomplete_Type_Declaration_Access)
     625   is null;
     626
     627   overriding procedure Formal_Interface_Type_Definition
     628     (Self : in out Visiter;
     629      Node : not null Gela.Elements.Formal_Interface_Type_Definitions.
     630        Formal_Interface_Type_Definition_Access)
     631   is null;
     632
     633   overriding procedure Formal_Modular_Type_Definition
     634     (Self : in out Visiter;
     635      Node : not null Gela.Elements.Formal_Modular_Type_Definitions.
     636        Formal_Modular_Type_Definition_Access)
     637   is null;
     638
     639   overriding procedure Formal_Object_Declaration
     640     (Self : in out Visiter;
     641      Node : not null Gela.Elements.Formal_Object_Declarations.
     642        Formal_Object_Declaration_Access)
     643   is null;
     644
     645   overriding procedure Formal_Ordinary_Fixed_Point_Definition
     646     (Self : in out Visiter;
     647      Node : not null Gela.Elements.Formal_Ordinary_Fixed_Point_Definitions.
     648        Formal_Ordinary_Fixed_Point_Definition_Access)
     649   is null;
     650
     651   overriding procedure Formal_Package_Declaration
     652     (Self : in out Visiter;
     653      Node : not null Gela.Elements.Formal_Package_Declarations.
     654        Formal_Package_Declaration_Access)
     655   is null;
     656
     657   overriding procedure Formal_Private_Type_Definition
     658     (Self : in out Visiter;
     659      Node : not null Gela.Elements.Formal_Private_Type_Definitions.
     660        Formal_Private_Type_Definition_Access)
     661   is null;
     662
     663   overriding procedure Formal_Procedure_Declaration
     664     (Self : in out Visiter;
     665      Node : not null Gela.Elements.Formal_Procedure_Declarations.
     666        Formal_Procedure_Declaration_Access)
     667   is null;
     668
     669   overriding procedure Formal_Signed_Integer_Type_Definition
     670     (Self : in out Visiter;
     671      Node : not null Gela.Elements.Formal_Signed_Integer_Type_Definitions.
     672        Formal_Signed_Integer_Type_Definition_Access)
     673   is null;
     674
     675   overriding procedure Formal_Type_Declaration
     676     (Self : in out Visiter;
     677      Node : not null Gela.Elements.Formal_Type_Declarations.
     678        Formal_Type_Declaration_Access);
     679
     680   overriding procedure Formal_Unconstrained_Array_Definition
     681     (Self : in out Visiter;
     682      Node : not null Gela.Elements.Formal_Unconstrained_Array_Definitions.
     683        Formal_Unconstrained_Array_Definition_Access)
     684   is null;
     685
     686   overriding procedure Full_Type_Declaration
     687     (Self : in out Visiter;
     688      Node : not null Gela.Elements.Full_Type_Declarations.
     689        Full_Type_Declaration_Access);
     690
     691   overriding procedure Function_Body
     692     (Self : in out Visiter;
     693      Node : not null Gela.Elements.Function_Bodies.Function_Body_Access);
     694
     695   overriding procedure Function_Declaration
     696     (Self : in out Visiter;
     697      Node : not null Gela.Elements.Function_Declarations.
     698        Function_Declaration_Access);
     699
     700   overriding procedure Function_Instantiation
     701     (Self : in out Visiter;
     702      Node : not null Gela.Elements.Function_Instantiations.
     703        Function_Instantiation_Access)
     704   is null;
     705
     706   overriding procedure Generalized_Iterator_Specification
     707     (Self : in out Visiter;
     708      Node : not null Gela.Elements.Generalized_Iterator_Specifications.
     709        Generalized_Iterator_Specification_Access)
     710   is null;
     711
     712   overriding procedure Generic_Association
     713     (Self : in out Visiter;
     714      Node : not null Gela.Elements.Generic_Associations.
     715        Generic_Association_Access);
     716
     717   overriding procedure Generic_Function_Declaration
     718     (Self : in out Visiter;
     719      Node : not null Gela.Elements.Generic_Function_Declarations.
     720        Generic_Function_Declaration_Access)
     721   is null;
     722
     723   overriding procedure Generic_Function_Renaming
     724     (Self : in out Visiter;
     725      Node : not null Gela.Elements.Generic_Function_Renamings.
     726        Generic_Function_Renaming_Access)
     727   is null;
     728
     729   overriding procedure Generic_Package_Declaration
     730     (Self : in out Visiter;
     731      Node : not null Gela.Elements.Generic_Package_Declarations.
     732        Generic_Package_Declaration_Access);
     733
     734   overriding procedure Generic_Package_Renaming
     735     (Self : in out Visiter;
     736      Node : not null Gela.Elements.Generic_Package_Renamings.
     737        Generic_Package_Renaming_Access)
     738   is null;
     739
     740   overriding procedure Generic_Procedure_Declaration
     741     (Self : in out Visiter;
     742      Node : not null Gela.Elements.Generic_Procedure_Declarations.
     743        Generic_Procedure_Declaration_Access)
     744   is null;
     745
     746   overriding procedure Generic_Procedure_Renaming
     747     (Self : in out Visiter;
     748      Node : not null Gela.Elements.Generic_Procedure_Renamings.
     749        Generic_Procedure_Renaming_Access)
     750   is null;
     751
     752   overriding procedure Goto_Statement
     753     (Self : in out Visiter;
     754      Node : not null Gela.Elements.Goto_Statements.Goto_Statement_Access)
     755   is null;
     756
     757   overriding procedure Identifier
     758     (Self : in out Visiter;
     759      Node : not null Gela.Elements.Identifiers.Identifier_Access);
     760
     761   overriding procedure If_Expression
     762     (Self : in out Visiter;
     763      Node : not null Gela.Elements.If_Expressions.If_Expression_Access)
     764   is null;
     765
     766   overriding procedure If_Expression_Path
     767     (Self : in out Visiter;
     768      Node : not null Gela.Elements.If_Expression_Paths.
     769        If_Expression_Path_Access)
     770   is null;
     771
     772   overriding procedure If_Path
     773     (Self : in out Visiter;
     774      Node : not null Gela.Elements.If_Paths.If_Path_Access);
     775
     776   overriding procedure If_Statement
     777     (Self : in out Visiter;
     778      Node : not null Gela.Elements.If_Statements.If_Statement_Access);
     779
     780   overriding procedure Incomplete_Type_Declaration
     781     (Self : in out Visiter;
     782      Node : not null Gela.Elements.Incomplete_Type_Declarations.
     783        Incomplete_Type_Declaration_Access)
     784   is null;
     785
     786   overriding procedure Incomplete_Type_Definition
     787     (Self : in out Visiter;
     788      Node : not null Gela.Elements.Incomplete_Type_Definitions.
     789        Incomplete_Type_Definition_Access)
     790   is null;
     791
     792   overriding procedure Interface_Type_Definition
     793     (Self : in out Visiter;
     794      Node : not null Gela.Elements.Interface_Type_Definitions.
     795        Interface_Type_Definition_Access)
     796   is null;
     797
     798   overriding procedure Known_Discriminant_Part
     799     (Self : in out Visiter;
     800      Node : not null Gela.Elements.Known_Discriminant_Parts.
     801        Known_Discriminant_Part_Access);
     802
     803   overriding procedure Label_Decorator
     804     (Self : in out Visiter;
     805      Node : not null Gela.Elements.Label_Decorators.Label_Decorator_Access)
     806   is null;
     807
     808   overriding procedure Loop_Parameter_Specification
     809     (Self : in out Visiter;
     810      Node : not null Gela.Elements.Loop_Parameter_Specifications.
     811        Loop_Parameter_Specification_Access)
     812   is null;
     813
     814   overriding procedure Loop_Statement
     815     (Self : in out Visiter;
     816      Node : not null Gela.Elements.Loop_Statements.Loop_Statement_Access);
     817
     818   overriding procedure Membership_Test
     819     (Self : in out Visiter;
     820      Node : not null Gela.Elements.Membership_Tests.Membership_Test_Access)
     821   is null;
     822
     823   overriding procedure Modular_Type_Definition
     824     (Self : in out Visiter;
     825      Node : not null Gela.Elements.Modular_Type_Definitions.
     826        Modular_Type_Definition_Access)
     827   is null;
     828
     829   overriding procedure Null_Component
     830     (Self : in out Visiter;
     831      Node : not null Gela.Elements.Null_Components.Null_Component_Access)
     832   is null;
     833
     834   overriding procedure Null_Literal
     835     (Self : in out Visiter;
     836      Node : not null Gela.Elements.Null_Literals.Null_Literal_Access)
     837   is null;
     838
     839   overriding procedure Null_Record_Definition
     840     (Self : in out Visiter;
     841      Node : not null Gela.Elements.Null_Record_Definitions.
     842        Null_Record_Definition_Access)
     843   is null;
     844
     845   overriding procedure Null_Statement
     846     (Self : in out Visiter;
     847      Node : not null Gela.Elements.Null_Statements.Null_Statement_Access);
     848
     849   overriding procedure Number_Declaration
     850     (Self : in out Visiter;
     851      Node : not null Gela.Elements.Number_Declarations.
     852        Number_Declaration_Access)
     853   is null;
     854
     855   overriding procedure Numeric_Literal
     856     (Self : in out Visiter;
     857      Node : not null Gela.Elements.Numeric_Literals.Numeric_Literal_Access);
     858
     859   overriding procedure Object_Declaration
     860     (Self : in out Visiter;
     861      Node : not null Gela.Elements.Object_Declarations.
     862        Object_Declaration_Access);
     863
     864   overriding procedure Object_Renaming_Declaration
     865     (Self : in out Visiter;
     866      Node : not null Gela.Elements.Object_Renaming_Declarations.
     867        Object_Renaming_Declaration_Access)
     868   is null;
     869
     870   overriding procedure Operator_Symbol
     871     (Self : in out Visiter;
     872      Node : not null Gela.Elements.Operator_Symbols.Operator_Symbol_Access);
     873
     874   overriding procedure Ordinary_Fixed_Point_Definition
     875     (Self : in out Visiter;
     876      Node : not null Gela.Elements.Ordinary_Fixed_Point_Definitions.
     877        Ordinary_Fixed_Point_Definition_Access)
     878   is null;
     879
     880   overriding procedure Others_Choice
     881     (Self : in out Visiter;
     882      Node : not null Gela.Elements.Others_Choices.Others_Choice_Access);
     883
     884   overriding procedure Package_Body
     885     (Self : in out Visiter;
     886      Node : not null Gela.Elements.Package_Bodies.Package_Body_Access);
     887
     888   overriding procedure Package_Body_Stub
     889     (Self : in out Visiter;
     890      Node : not null Gela.Elements.Package_Body_Stubs.
     891        Package_Body_Stub_Access)
     892   is null;
     893
     894   overriding procedure Package_Declaration
     895     (Self : in out Visiter;
     896      Node : not null Gela.Elements.Package_Declarations.
     897        Package_Declaration_Access);
     898
     899   overriding procedure Package_Instantiation
     900     (Self : in out Visiter;
     901      Node : not null Gela.Elements.Package_Instantiations.
     902        Package_Instantiation_Access);
     903
     904   overriding procedure Package_Renaming_Declaration
     905     (Self : in out Visiter;
     906      Node : not null Gela.Elements.Package_Renaming_Declarations.
     907        Package_Renaming_Declaration_Access)
     908   is null;
     909
     910   overriding procedure Parameter_Association
     911     (Self : in out Visiter;
     912      Node : not null Gela.Elements.Parameter_Associations.
     913        Parameter_Association_Access)
     914   is null;
     915
     916   overriding procedure Parameter_Specification
     917     (Self : in out Visiter;
     918      Node : not null Gela.Elements.Parameter_Specifications.
     919        Parameter_Specification_Access);
     920
     921   overriding procedure Pragma_Argument_Association
     922     (Self : in out Visiter;
     923      Node : not null Gela.Elements.Pragma_Argument_Associations.
     924        Pragma_Argument_Association_Access)
     925   is null;
     926
     927   overriding procedure Pragma_Node
     928     (Self : in out Visiter;
     929      Node : not null Gela.Elements.Pragma_Nodes.Pragma_Node_Access);
     930
     931   overriding procedure Private_Extension_Declaration
     932     (Self : in out Visiter;
     933      Node : not null Gela.Elements.Private_Extension_Declarations.
     934        Private_Extension_Declaration_Access)
     935   is null;
     936
     937   overriding procedure Private_Extension_Definition
     938     (Self : in out Visiter;
     939      Node : not null Gela.Elements.Private_Extension_Definitions.
     940        Private_Extension_Definition_Access)
     941   is null;
     942
     943   overriding procedure Private_Type_Declaration
     944     (Self : in out Visiter;
     945      Node : not null Gela.Elements.Private_Type_Declarations.
     946        Private_Type_Declaration_Access)
     947   is null;
     948
     949   overriding procedure Private_Type_Definition
     950     (Self : in out Visiter;
     951      Node : not null Gela.Elements.Private_Type_Definitions.
     952        Private_Type_Definition_Access)
     953   is null;
     954
     955   overriding procedure Procedure_Body
     956     (Self : in out Visiter;
     957      Node : not null Gela.Elements.Procedure_Bodies.Procedure_Body_Access);
     958
     959   overriding procedure Procedure_Call_Statement
     960     (Self : in out Visiter;
     961      Node : not null Gela.Elements.Procedure_Call_Statements.
     962        Procedure_Call_Statement_Access);
     963
     964   overriding procedure Procedure_Declaration
     965     (Self : in out Visiter;
     966      Node : not null Gela.Elements.Procedure_Declarations.
     967        Procedure_Declaration_Access);
     968
     969   overriding procedure Procedure_Instantiation
     970     (Self : in out Visiter;
     971      Node : not null Gela.Elements.Procedure_Instantiations.
     972        Procedure_Instantiation_Access)
     973   is null;
     974
     975   overriding procedure Protected_Body
     976     (Self : in out Visiter;
     977      Node : not null Gela.Elements.Protected_Bodies.Protected_Body_Access);
     978
     979   overriding procedure Protected_Body_Stub
     980     (Self : in out Visiter;
     981      Node : not null Gela.Elements.Protected_Body_Stubs.
     982        Protected_Body_Stub_Access)
     983   is null;
     984
     985   overriding procedure Protected_Definition
     986     (Self : in out Visiter;
     987      Node : not null Gela.Elements.Protected_Definitions.
     988        Protected_Definition_Access);
     989
     990   overriding procedure Protected_Type_Declaration
     991     (Self : in out Visiter;
     992      Node : not null Gela.Elements.Protected_Type_Declarations.
     993        Protected_Type_Declaration_Access)
     994   is null;
     995
     996   overriding procedure Qualified_Expression
     997     (Self : in out Visiter;
     998      Node : not null Gela.Elements.Qualified_Expressions.
     999        Qualified_Expression_Access)
     1000   is null;
     1001
     1002   overriding procedure Quantified_Expression
     1003     (Self : in out Visiter;
     1004      Node : not null Gela.Elements.Quantified_Expressions.
     1005        Quantified_Expression_Access)
     1006   is null;
     1007
     1008   overriding procedure Raise_Statement
     1009     (Self : in out Visiter;
     1010      Node : not null Gela.Elements.Raise_Statements.Raise_Statement_Access)
     1011   is null;
     1012
     1013   overriding procedure Range_Attribute_Reference
     1014     (Self : in out Visiter;
     1015      Node : not null Gela.Elements.Range_Attribute_References.
     1016        Range_Attribute_Reference_Access)
     1017   is null;
     1018
     1019   overriding procedure Range_Attribute_Reference_Dr
     1020     (Self : in out Visiter;
     1021      Node : not null Gela.Elements.Range_Attribute_Reference_Drs.
     1022        Range_Attribute_Reference_Dr_Access)
     1023   is null;
     1024
     1025   overriding procedure Record_Aggregate
     1026     (Self : in out Visiter;
     1027      Node : not null Gela.Elements.Record_Aggregates.
     1028        Record_Aggregate_Access);
     1029
     1030   overriding procedure Record_Definition
     1031     (Self : in out Visiter;
     1032      Node : not null Gela.Elements.Record_Definitions.
     1033        Record_Definition_Access);
     1034
     1035   overriding procedure Record_Representation_Clause
     1036     (Self : in out Visiter;
     1037      Node : not null Gela.Elements.Record_Representation_Clauses.
     1038        Record_Representation_Clause_Access)
     1039   is null;
     1040
     1041   overriding procedure Record_Type_Definition
     1042     (Self : in out Visiter;
     1043      Node : not null Gela.Elements.Record_Type_Definitions.
     1044        Record_Type_Definition_Access);
     1045
     1046   overriding procedure Requeue_Statement
     1047     (Self : in out Visiter;
     1048      Node : not null Gela.Elements.Requeue_Statements.
     1049        Requeue_Statement_Access);
     1050
     1051   overriding procedure Return_Object_Specification
     1052     (Self : in out Visiter;
     1053      Node : not null Gela.Elements.Return_Object_Specifications.
     1054        Return_Object_Specification_Access)
     1055   is null;
     1056
     1057   overriding procedure Select_Or_Path
     1058     (Self : in out Visiter;
     1059      Node : not null Gela.Elements.Select_Or_Paths.Select_Or_Path_Access);
     1060
     1061   overriding procedure Selected_Component
     1062     (Self : in out Visiter;
     1063      Node : not null Gela.Elements.Selected_Components.
     1064        Selected_Component_Access);
     1065
     1066   overriding procedure Selected_Identifier
     1067     (Self : in out Visiter;
     1068      Node : not null Gela.Elements.Selected_Identifiers.
     1069        Selected_Identifier_Access);
     1070
     1071   overriding procedure Selective_Accept
     1072     (Self : in out Visiter;
     1073      Node : not null Gela.Elements.Selective_Accepts.Selective_Accept_Access);
     1074
     1075   overriding procedure Short_Circuit
     1076     (Self : in out Visiter;
     1077      Node : not null Gela.Elements.Short_Circuits.Short_Circuit_Access)
     1078   is null;
     1079
     1080   overriding procedure Signed_Integer_Type_Definition
     1081     (Self : in out Visiter;
     1082      Node : not null Gela.Elements.Signed_Integer_Type_Definitions.
     1083        Signed_Integer_Type_Definition_Access);
     1084
     1085   overriding procedure Simple_Expression_Range
     1086     (Self : in out Visiter;
     1087      Node : not null Gela.Elements.Simple_Expression_Ranges.
     1088        Simple_Expression_Range_Access);
     1089
     1090   overriding procedure Simple_Expression_Range_Dr
     1091     (Self : in out Visiter;
     1092      Node : not null Gela.Elements.Simple_Expression_Range_Drs.
     1093        Simple_Expression_Range_Dr_Access);
     1094
     1095   overriding procedure Simple_Return_Statement
     1096     (Self : in out Visiter;
     1097      Node : not null Gela.Elements.Simple_Return_Statements.
     1098        Simple_Return_Statement_Access);
     1099
     1100   overriding procedure Single_Protected_Declaration
     1101     (Self : in out Visiter;
     1102      Node : not null Gela.Elements.Single_Protected_Declarations.
     1103        Single_Protected_Declaration_Access);
     1104
     1105   overriding procedure Single_Task_Declaration
     1106     (Self : in out Visiter;
     1107      Node : not null Gela.Elements.Single_Task_Declarations.
     1108        Single_Task_Declaration_Access);
     1109
     1110   overriding procedure String_Literal
     1111     (Self : in out Visiter;
     1112      Node : not null Gela.Elements.String_Literals.String_Literal_Access);
     1113
     1114   overriding procedure Subtype_Declaration
     1115     (Self : in out Visiter;
     1116      Node : not null Gela.Elements.Subtype_Declarations.
     1117        Subtype_Declaration_Access);
     1118
     1119   overriding procedure Subtype_Indication
     1120     (Self : in out Visiter;
     1121      Node : not null Gela.Elements.Subtype_Indications.
     1122        Subtype_Indication_Access);
     1123
     1124   overriding procedure Subunit
     1125     (Self : in out Visiter;
     1126      Node : not null Gela.Elements.Subunits.Subunit_Access)
     1127   is null;
     1128
     1129   overriding procedure Task_Body
     1130     (Self : in out Visiter;
     1131      Node : not null Gela.Elements.Task_Bodies.Task_Body_Access);
     1132
     1133   overriding procedure Task_Body_Stub
     1134     (Self : in out Visiter;
     1135      Node : not null Gela.Elements.Task_Body_Stubs.Task_Body_Stub_Access)
     1136   is null;
     1137
     1138   overriding procedure Task_Definition
     1139     (Self : in out Visiter;
     1140      Node : not null Gela.Elements.Task_Definitions.Task_Definition_Access);
     1141
     1142   overriding procedure Task_Type_Declaration
     1143     (Self : in out Visiter;
     1144      Node : not null Gela.Elements.Task_Type_Declarations.
     1145        Task_Type_Declaration_Access)
     1146   is null;
     1147
     1148   overriding procedure Terminate_Alternative_Statement
     1149     (Self : in out Visiter;
     1150      Node : not null Gela.Elements.Terminate_Alternative_Statements.
     1151        Terminate_Alternative_Statement_Access);
     1152
     1153   overriding procedure Then_Abort_Path
     1154     (Self : in out Visiter;
     1155      Node : not null Gela.Elements.Then_Abort_Paths.Then_Abort_Path_Access)
     1156   is null;
     1157
     1158   overriding procedure Unconstrained_Array_Definition
     1159     (Self : in out Visiter;
     1160      Node : not null Gela.Elements.Unconstrained_Array_Definitions.
     1161        Unconstrained_Array_Definition_Access)
     1162   is null;
     1163
     1164   overriding procedure Unknown_Discriminant_Part
     1165     (Self : in out Visiter;
     1166      Node : not null Gela.Elements.Unknown_Discriminant_Parts.
     1167        Unknown_Discriminant_Part_Access)
     1168   is null;
     1169
     1170   overriding procedure Use_Package_Clause
     1171     (Self : in out Visiter;
     1172      Node : not null Gela.Elements.Use_Package_Clauses.
     1173        Use_Package_Clause_Access);
     1174
     1175   overriding procedure Use_Type_Clause
     1176     (Self : in out Visiter;
     1177      Node : not null Gela.Elements.Use_Type_Clauses.Use_Type_Clause_Access);
     1178
     1179   overriding procedure Variant
     1180     (Self : in out Visiter;
     1181      Node : not null Gela.Elements.Variants.Variant_Access);
     1182
     1183   overriding procedure Variant_Part
     1184     (Self : in out Visiter;
     1185      Node : not null Gela.Elements.Variant_Parts.Variant_Part_Access);
     1186
     1187   overriding procedure While_Loop_Statement
     1188     (Self : in out Visiter;
     1189      Node : not null Gela.Elements.While_Loop_Statements.
     1190        While_Loop_Statement_Access)
     1191   is null;
     1192
     1193   overriding procedure With_Clause
     1194     (Self : in out Visiter;
     1195      Node : not null Gela.Elements.With_Clauses.With_Clause_Access);
     1196
     1197   overriding procedure Accept_Statement
     1198     (Self : in out Visiter;
     1199      Node : not null Gela.Elements.Accept_Statements.Accept_Statement_Access)
     1200   is
     1201      pragma Unreferenced (Node);
     1202   begin
     1203      Self.Result := An_Accept_Statement;
     1204   end Accept_Statement;
     1205
     1206   overriding procedure Anonymous_Access_To_Object_Definition
     1207     (Self : in out Visiter;
     1208      Node : not null Gela.Elements.Anonymous_Access_To_Object_Definitions.
     1209        Anonymous_Access_To_Object_Definition_Access)
     1210   is
     1211      use type Gela.Lexical_Types.Token_Count;
     1212   begin
     1213      if Node.Constant_Token = 0 then
     1214         Self.Result := An_Anonymous_Access_To_Variable;
     1215      else
     1216         Self.Result := An_Anonymous_Access_To_Constant;
     1217      end if;
     1218   end Anonymous_Access_To_Object_Definition;
     1219
     1220   overriding procedure Assignment_Statement
     1221     (Self : in out Visiter;
     1222      Node : not null Gela.Elements.Assignment_Statements.
     1223        Assignment_Statement_Access)
     1224   is
     1225      pragma Unreferenced (Node);
     1226   begin
     1227      Self.Result := An_Assignment_Statement;
     1228   end Assignment_Statement;
     1229
     1230   overriding procedure Association
     1231     (Self : in out Visiter;
     1232      Node : not null Gela.Elements.Associations.Association_Access)
     1233   is
     1234      pragma Unreferenced (Node);
     1235   begin
     1236      Self.Result := A_Parameter_Association;
     1237   end Association;
     1238
     1239   overriding procedure Attribute_Reference
     1240     (Self : in out Visiter;
     1241      Node : not null Gela.Elements.Attribute_References.
     1242        Attribute_Reference_Access)
     1243   is
     1244      package X renames Gela.Lexical_Types.Predefined_Symbols;
     1245
     1246      Id : constant Gela.Elements.Identifiers.Identifier_Access :=
     1247        Node.Attribute_Designator_Identifier;
     1248      Comp    : constant Gela.Compilations.Compilation_Access :=
     1249        Node.Enclosing_Compilation;
     1250      Token : constant Gela.Lexical_Types.Token :=
     1251        Comp.Get_Token (Id.Identifier_Token);
     1252      Map : constant array (Gela.Lexical_Types.Symbol range
     1253                              X.Access_Symbol .. X.Write) of Element_Flat_Kind
     1254        :=
     1255          (
     1256           X.Access_Symbol => An_Access_Attribute,
     1257           X.Address => An_Address_Attribute,
     1258           X.Adjacent => An_Adjacent_Attribute,
     1259           X.Aft => An_Aft_Attribute,
     1260           X.Alignment => An_Alignment_Attribute,
     1261           X.Base => A_Base_Attribute,
     1262           X.Bit_Order => A_Bit_Order_Attribute,
     1263           X.Body_Version => A_Body_Version_Attribute,
     1264           X.Callable => A_Callable_Attribute,
     1265           X.Caller => A_Caller_Attribute,
     1266           X.Ceiling => A_Ceiling_Attribute,
     1267           X.Class => A_Class_Attribute,
     1268           X.Component_Size => A_Component_Size_Attribute,
     1269           X.Compose => A_Compose_Attribute,
     1270           X.Constrained => A_Constrained_Attribute,
     1271           X.Copy_Sign => A_Copy_Sign_Attribute,
     1272           X.Count => A_Count_Attribute,
     1273           X.Definite => A_Definite_Attribute,
     1274           X.Delta_Symbol => A_Delta_Attribute,
     1275           X.Denorm => A_Denorm_Attribute,
     1276           X.Digits_Symbol => A_Digits_Attribute,
     1277           X.Exponent => An_Exponent_Attribute,
     1278           X.External_Tag => An_External_Tag_Attribute,
     1279           X.First => A_First_Attribute,
     1280           X.First_Bit => A_First_Bit_Attribute,
     1281           X.Floor => A_Floor_Attribute,
     1282           X.Fore => A_Fore_Attribute,
     1283           X.Fraction => A_Fraction_Attribute,
     1284           X.Identity => An_Identity_Attribute,
     1285           X.Image => An_Image_Attribute,
     1286           X.Input => An_Input_Attribute,
     1287           X.Last => A_Last_Attribute,
     1288           X.Last_Bit => A_Last_Bit_Attribute,
     1289           X.Leading_Part => A_Leading_Part_Attribute,
     1290           X.Length => A_Length_Attribute,
     1291           X.Machine => A_Machine_Attribute,
     1292           X.Machine_Emax => A_Machine_Emax_Attribute,
     1293           X.Machine_Emin => A_Machine_Emin_Attribute,
     1294           X.Machine_Mantissa => A_Machine_Mantissa_Attribute,
     1295           X.Machine_Overflows => A_Machine_Overflows_Attribute,
     1296           X.Machine_Radix => A_Machine_Radix_Attribute,
     1297           X.Machine_Rounding => A_Machine_Rounding_Attribute,
     1298           X.Machine_Rounds => A_Machine_Rounds_Attribute,
     1299           X.Max => A_Max_Attribute,
     1300           X.Max_Size_In_Storage_Elements =>
     1301             A_Max_Size_In_Storage_Elements_Attribute,
     1302           X.Min => A_Min_Attribute,
     1303           X.Mod_Symbol => A_Mod_Attribute,
     1304           X.Model => A_Model_Attribute,
     1305           X.Model_Emin => A_Model_Emin_Attribute,
     1306           X.Model_Epsilon => A_Model_Epsilon_Attribute,
     1307           X.Model_Mantissa => A_Model_Mantissa_Attribute,
     1308           X.Model_Small => A_Model_Small_Attribute,
     1309           X.Modulus => A_Modulus_Attribute,
     1310           X.Output => An_Output_Attribute,
     1311           X.Partition_ID => A_Partition_ID_Attribute,
     1312           X.Pos => A_Pos_Attribute,
     1313           X.Position => A_Position_Attribute,
     1314           X.Pred => A_Pred_Attribute,
     1315           X.Priority => A_Priority_Attribute,
     1316           X.Range_Symbol => A_Range_Attribute,
     1317           X.Read => A_Read_Attribute,
     1318           X.Remainder => A_Remainder_Attribute,
     1319           X.Round => A_Round_Attribute,
     1320           X.Rounding => A_Rounding_Attribute,
     1321           X.Safe_First => A_Safe_First_Attribute,
     1322           X.Safe_Last => A_Safe_Last_Attribute,
     1323           X.Scale => A_Scale_Attribute,
     1324           X.Scaling => A_Scaling_Attribute,
     1325           X.Signed_Zeros => A_Signed_Zeros_Attribute,
     1326           X.Size => A_Size_Attribute,
     1327           X.Small => A_Small_Attribute,
     1328           X.Storage_Pool => A_Storage_Pool_Attribute,
     1329           X.Storage_Size => A_Storage_Size_Attribute,
     1330           X.Stream_Size => A_Stream_Size_Attribute,
     1331           X.Succ => A_Succ_Attribute,
     1332           X.Tag => A_Tag_Attribute,
     1333           X.Terminated => A_Terminated_Attribute,
     1334           X.Truncation => A_Truncation_Attribute,
     1335           X.Unbiased_Rounding => An_Unbiased_Rounding_Attribute,
     1336           X.Unchecked_Access => An_Unchecked_Access_Attribute,
     1337           X.Val => A_Val_Attribute,
     1338           X.Valid => A_Valid_Attribute,
     1339           X.Value => A_Value_Attribute,
     1340           X.Version => A_Version_Attribute,
     1341           X.Wide_Image => A_Wide_Image_Attribute,
     1342           X.Wide_Value => A_Wide_Value_Attribute,
     1343           X.Wide_Wide_Image => A_Wide_Wide_Image_Attribute,
     1344           X.Wide_Wide_Value => A_Wide_Wide_Value_Attribute,
     1345           X.Wide_Wide_Width => A_Wide_Wide_Width_Attribute,
     1346           X.Wide_Width => A_Wide_Width_Attribute,
     1347           X.Width => A_Width_Attribute,
     1348           X.Write => A_Write_Attribute);
     1349   begin
     1350      if Token.Symbol in Map'Range then
     1351         Self.Result := Map (Token.Symbol);
     1352      end if;
     1353   end Attribute_Reference;
     1354
     1355   overriding procedure Auxiliary_Apply
     1356     (Self : in out Visiter;
     1357      Node : not null Gela.Elements.Auxiliary_Applies.Auxiliary_Apply_Access)
     1358   is
     1359      pragma Unreferenced (Node);
     1360   begin
     1361      Self.Result := A_Function_Call;
     1362   end Auxiliary_Apply;
     1363
     1364   overriding procedure Block_Statement
     1365     (Self : in out Visiter;
     1366      Node : not null Gela.Elements.Block_Statements.Block_Statement_Access)
     1367   is
     1368      pragma Unreferenced (Node);
     1369   begin
     1370      Self.Result := A_Block_Statement;
     1371   end Block_Statement;
     1372
     1373   overriding procedure Case_Path
     1374     (Self : in out Visiter;
     1375      Node : not null Gela.Elements.Case_Paths.Case_Path_Access)
     1376   is
     1377      pragma Unreferenced (Node);
     1378   begin
     1379      Self.Result := A_Case_Path;
     1380   end Case_Path;
     1381
     1382   overriding procedure Case_Statement
     1383     (Self : in out Visiter;
     1384      Node : not null Gela.Elements.Case_Statements.Case_Statement_Access)
     1385   is
     1386      pragma Unreferenced (Node);
     1387   begin
     1388      Self.Result := A_Case_Statement;
     1389   end Case_Statement;
     1390
     1391   overriding procedure Component_Declaration
     1392     (Self : in out Visiter;
     1393      Node : not null Gela.Elements.Component_Declarations.
     1394        Component_Declaration_Access)
     1395   is
     1396      pragma Unreferenced (Node);
     1397   begin
     1398      Self.Result := A_Component_Declaration;
     1399   end Component_Declaration;
     1400
     1401   overriding procedure Component_Definition
     1402     (Self : in out Visiter;
     1403      Node : not null Gela.Elements.Component_Definitions.
     1404        Component_Definition_Access)
     1405   is
     1406      pragma Unreferenced (Node);
     1407   begin
     1408      Self.Result := A_Component_Definition;
     1409   end Component_Definition;
     1410
     1411   overriding procedure Composite_Constraint
     1412     (Self : in out Visiter;
     1413      Node : not null Gela.Elements.Composite_Constraints.
     1414        Composite_Constraint_Access)
     1415   is
     1416      pragma Unreferenced (Node);
     1417   begin
     1418      Self.Result := An_Index_Constraint;  --  FIXME
     1419   end Composite_Constraint;
     1420
     1421   overriding procedure Defining_Enumeration_Literal
     1422     (Self : in out Visiter;
     1423      Node : not null Gela.Elements.Defining_Enumeration_Literals.
     1424        Defining_Enumeration_Literal_Access)
     1425   is
     1426      pragma Unreferenced (Node);
     1427   begin
     1428      Self.Result := A_Defining_Enumeration_Literal;
     1429   end Defining_Enumeration_Literal;
     1430
     1431   overriding procedure Defining_Expanded_Unit_Name
     1432     (Self : in out Visiter;
     1433      Node : not null Gela.Elements.Defining_Expanded_Unit_Names.
     1434        Defining_Expanded_Unit_Name_Access)
     1435   is
     1436      pragma Unreferenced (Node);
     1437   begin
     1438      Self.Result := A_Defining_Expanded_Name;
     1439   end Defining_Expanded_Unit_Name;
     1440
     1441   overriding procedure Defining_Identifier
     1442     (Self : in out Visiter;
     1443      Node : not null Gela.Elements.Defining_Identifiers.
     1444        Defining_Identifier_Access)
     1445   is
     1446      pragma Unreferenced (Node);
     1447   begin
     1448      Self.Result := A_Defining_Identifier;
     1449   end Defining_Identifier;
     1450
     1451   overriding procedure Delay_Statement
     1452     (Self : in out Visiter;
     1453      Node : not null Gela.Elements.Delay_Statements.Delay_Statement_Access)
     1454   is
     1455      use type Gela.Lexical_Types.Token_Index;
     1456   begin
     1457      if Node.Until_Token = 0 then
     1458         Self.Result := A_Delay_Relative_Statement;
     1459      else
     1460         Self.Result := A_Delay_Until_Statement;
     1461      end if;
     1462   end Delay_Statement;
     1463
     1464   overriding procedure Derived_Type_Definition
     1465     (Self : in out Visiter;
     1466      Node : not null Gela.Elements.Derived_Type_Definitions.
     1467        Derived_Type_Definition_Access)
     1468   is
     1469      pragma Unreferenced (Node);
     1470   begin
     1471      Self.Result := A_Derived_Type_Definition;
     1472   end Derived_Type_Definition;
     1473
     1474   overriding procedure Discriminant_Specification
     1475     (Self : in out Visiter;
     1476      Node : not null Gela.Elements.Discriminant_Specifications.
     1477        Discriminant_Specification_Access)
     1478   is
     1479      pragma Unreferenced (Node);
     1480   begin
     1481      Self.Result := A_Discriminant_Specification;
     1482   end Discriminant_Specification;
     1483
     1484   overriding procedure Else_Path
     1485     (Self : in out Visiter;
     1486      Node : not null Gela.Elements.Else_Paths.Else_Path_Access)
     1487   is
     1488      pragma Unreferenced (Node);
     1489   begin
     1490      Self.Result := An_Else_Path;
     1491   end Else_Path;
     1492
     1493   overriding procedure Entry_Body
     1494     (Self : in out Visiter;
    4981495      Node : not null Gela.Elements.Entry_Bodies.Entry_Body_Access)
    499    is null;
     1496   is
     1497      pragma Unreferenced (Node);
     1498   begin
     1499      Self.Result := An_Entry_Body_Declaration;
     1500   end Entry_Body;
    5001501
    5011502   overriding procedure Entry_Declaration
     
    5031504      Node : not null Gela.Elements.Entry_Declarations.
    5041505        Entry_Declaration_Access)
    505    is null;
    506 
    507    overriding procedure Entry_Index_Specification
    508      (Self : in out Visiter;
    509       Node : not null Gela.Elements.Entry_Index_Specifications.
    510         Entry_Index_Specification_Access)
    511    is null;
    512 
    513    overriding procedure Enumeration_Literal
    514      (Self : in out Visiter;
    515       Node : not null Gela.Elements.Enumeration_Literals.
    516         Enumeration_Literal_Access)
    517    is null;
     1506   is
     1507      pragma Unreferenced (Node);
     1508   begin
     1509      Self.Result := An_Entry_Declaration;
     1510   end Entry_Declaration;
    5181511
    5191512   overriding procedure Enumeration_Literal_Specification
    5201513     (Self : in out Visiter;
    5211514      Node : not null Gela.Elements.Enumeration_Literal_Specifications.
    522         Enumeration_Literal_Specification_Access);
     1515        Enumeration_Literal_Specification_Access)
     1516   is
     1517      pragma Unreferenced (Node);
     1518   begin
     1519      Self.Result := An_Enumeration_Literal_Specification;
     1520   end Enumeration_Literal_Specification;
    5231521
    5241522   overriding procedure Enumeration_Type_Definition
    5251523     (Self : in out Visiter;
    5261524      Node : not null Gela.Elements.Enumeration_Type_Definitions.
    527         Enumeration_Type_Definition_Access);
     1525        Enumeration_Type_Definition_Access)
     1526   is
     1527      pragma Unreferenced (Node);
     1528   begin
     1529      Self.Result := An_Enumeration_Type_Definition;
     1530   end Enumeration_Type_Definition;
    5281531
    5291532   overriding procedure Exception_Declaration
    5301533     (Self : in out Visiter;
    5311534      Node : not null Gela.Elements.Exception_Declarations.
    532         Exception_Declaration_Access);
     1535        Exception_Declaration_Access)
     1536   is
     1537      pragma Unreferenced (Node);
     1538   begin
     1539      Self.Result := An_Exception_Declaration;
     1540   end Exception_Declaration;
    5331541
    5341542   overriding procedure Exception_Handler
    5351543     (Self : in out Visiter;
    5361544      Node : not null Gela.Elements.Exception_Handlers.
    537         Exception_Handler_Access);
    538 
    539    overriding procedure Exception_Renaming_Declaration
    540      (Self : in out Visiter;
    541       Node : not null Gela.Elements.Exception_Renaming_Declarations.
    542         Exception_Renaming_Declaration_Access)
    543    is null;
     1545        Exception_Handler_Access)
     1546   is
     1547      pragma Unreferenced (Node);
     1548   begin
     1549      Self.Result := An_Exception_Handler;
     1550   end Exception_Handler;
    5441551
    5451552   overriding procedure Exit_Statement
    5461553     (Self : in out Visiter;
    5471554      Node : not null Gela.Elements.Exit_Statements.Exit_Statement_Access)
    548    is null;
     1555   is
     1556      pragma Unreferenced (Node);
     1557   begin
     1558      Self.Result := An_Exit_Statement;
     1559   end Exit_Statement;
    5491560
    5501561   overriding procedure Explicit_Dereference
     
    5521563      Node : not null Gela.Elements.Explicit_Dereferences.
    5531564        Explicit_Dereference_Access)
    554    is null;
    555 
    556    overriding procedure Extended_Return_Statement
    557      (Self : in out Visiter;
    558       Node : not null Gela.Elements.Extended_Return_Statements.
    559         Extended_Return_Statement_Access)
    560    is null;
    561 
    562    overriding procedure Extension_Aggregate
    563      (Self : in out Visiter;
    564       Node : not null Gela.Elements.Extension_Aggregates.
    565         Extension_Aggregate_Access)
    566    is null;
    567 
    568    overriding procedure Floating_Point_Definition
    569      (Self : in out Visiter;
    570       Node : not null Gela.Elements.Floating_Point_Definitions.
    571         Floating_Point_Definition_Access)
    572    is null;
    573 
    574    overriding procedure For_Loop_Statement
    575      (Self : in out Visiter;
    576       Node : not null Gela.Elements.For_Loop_Statements.
    577         For_Loop_Statement_Access)
    578    is null;
    579 
    580    overriding procedure Formal_Access_To_Function_Definition
    581      (Self : in out Visiter;
    582       Node : not null Gela.Elements.Formal_Access_To_Function_Definitions.
    583         Formal_Access_To_Function_Definition_Access)
    584    is null;
    585 
    586    overriding procedure Formal_Access_To_Object_Definition
    587      (Self : in out Visiter;
    588       Node : not null Gela.Elements.Formal_Access_To_Object_Definitions.
    589         Formal_Access_To_Object_Definition_Access)
    590    is null;
    591 
    592    overriding procedure Formal_Access_To_Procedure_Definition
    593      (Self : in out Visiter;
    594       Node : not null Gela.Elements.Formal_Access_To_Procedure_Definitions.
    595         Formal_Access_To_Procedure_Definition_Access)
    596    is null;
    597 
    598    overriding procedure Formal_Constrained_Array_Definition
    599      (Self : in out Visiter;
    600       Node : not null Gela.Elements.Formal_Constrained_Array_Definitions.
    601         Formal_Constrained_Array_Definition_Access)
    602    is null;
    603 
    604    overriding procedure Formal_Decimal_Fixed_Point_Definition
    605      (Self : in out Visiter;
    606       Node : not null Gela.Elements.Formal_Decimal_Fixed_Point_Definitions.
    607         Formal_Decimal_Fixed_Point_Definition_Access)
    608    is null;
     1565   is
     1566      pragma Unreferenced (Node);
     1567   begin
     1568      Self.Result := An_Explicit_Dereference;
     1569   end Explicit_Dereference;
    6091570
    6101571   overriding procedure Formal_Derived_Type_Definition
     
    6121573      Node : not null Gela.Elements.Formal_Derived_Type_Definitions.
    6131574        Formal_Derived_Type_Definition_Access)
    614    is null;
    615 
    616    overriding procedure Formal_Discrete_Type_Definition
    617      (Self : in out Visiter;
    618       Node : not null Gela.Elements.Formal_Discrete_Type_Definitions.
    619         Formal_Discrete_Type_Definition_Access)
    620    is null;
    621 
    622    overriding procedure Formal_Floating_Point_Definition
    623      (Self : in out Visiter;
    624       Node : not null Gela.Elements.Formal_Floating_Point_Definitions.
    625         Formal_Floating_Point_Definition_Access)
    626    is null;
    627 
    628    overriding procedure Formal_Function_Declaration
    629      (Self : in out Visiter;
    630       Node : not null Gela.Elements.Formal_Function_Declarations.
    631         Formal_Function_Declaration_Access)
    632    is null;
    633 
    634    overriding procedure Formal_Incomplete_Type_Declaration
    635      (Self : in out Visiter;
    636       Node : not null Gela.Elements.Formal_Incomplete_Type_Declarations.
    637         Formal_Incomplete_Type_Declaration_Access)
    638    is null;
    639 
    640    overriding procedure Formal_Interface_Type_Definition
    641      (Self : in out Visiter;
    642       Node : not null Gela.Elements.Formal_Interface_Type_Definitions.
    643         Formal_Interface_Type_Definition_Access)
    644    is null;
    645 
    646    overriding procedure Formal_Modular_Type_Definition
    647      (Self : in out Visiter;
    648       Node : not null Gela.Elements.Formal_Modular_Type_Definitions.
    649         Formal_Modular_Type_Definition_Access)
    650    is null;
    651 
    652    overriding procedure Formal_Object_Declaration
    653      (Self : in out Visiter;
    654       Node : not null Gela.Elements.Formal_Object_Declarations.
    655         Formal_Object_Declaration_Access)
    656    is null;
    657 
    658    overriding procedure Formal_Ordinary_Fixed_Point_Definition
    659      (Self : in out Visiter;
    660       Node : not null Gela.Elements.Formal_Ordinary_Fixed_Point_Definitions.
    661         Formal_Ordinary_Fixed_Point_Definition_Access)
    662    is null;
    663 
    664    overriding procedure Formal_Package_Declaration
    665      (Self : in out Visiter;
    666       Node : not null Gela.Elements.Formal_Package_Declarations.
    667         Formal_Package_Declaration_Access)
    668    is null;
    669 
    670    overriding procedure Formal_Private_Type_Definition
    671      (Self : in out Visiter;
    672       Node : not null Gela.Elements.Formal_Private_Type_Definitions.
    673         Formal_Private_Type_Definition_Access)
    674    is null;
    675 
    676    overriding procedure Formal_Procedure_Declaration
    677      (Self : in out Visiter;
    678       Node : not null Gela.Elements.Formal_Procedure_Declarations.
    679         Formal_Procedure_Declaration_Access)
    680    is null;
    681 
    682    overriding procedure Formal_Signed_Integer_Type_Definition
    683      (Self : in out Visiter;
    684       Node : not null Gela.Elements.Formal_Signed_Integer_Type_Definitions.
    685         Formal_Signed_Integer_Type_Definition_Access)
    686    is null;
     1575   is
     1576      pragma Unreferenced (Node);
     1577   begin
     1578      Self.Result := A_Formal_Derived_Type_Definition;
     1579   end Formal_Derived_Type_Definition;
    6871580
    6881581   overriding procedure Formal_Type_Declaration
     
    6901583      Node : not null Gela.Elements.Formal_Type_Declarations.
    6911584        Formal_Type_Declaration_Access)
    692    is null;
    693 
    694    overriding procedure Formal_Unconstrained_Array_Definition
    695      (Self : in out Visiter;
    696       Node : not null Gela.Elements.Formal_Unconstrained_Array_Definitions.
    697         Formal_Unconstrained_Array_Definition_Access)
    698    is null;
     1585   is
     1586      pragma Unreferenced (Node);
     1587   begin
     1588      Self.Result := A_Formal_Type_Declaration;
     1589   end Formal_Type_Declaration;
    6991590
    7001591   overriding procedure Full_Type_Declaration
    7011592     (Self : in out Visiter;
    7021593      Node : not null Gela.Elements.Full_Type_Declarations.
    703         Full_Type_Declaration_Access);
     1594        Full_Type_Declaration_Access)
     1595   is
     1596      pragma Unreferenced (Node);
     1597   begin
     1598      Self.Result := An_Ordinary_Type_Declaration;
     1599   end Full_Type_Declaration;
    7041600
    7051601   overriding procedure Function_Body
    7061602     (Self : in out Visiter;
    7071603      Node : not null Gela.Elements.Function_Bodies.Function_Body_Access)
    708    is null;
     1604   is
     1605      pragma Unreferenced (Node);
     1606   begin
     1607      Self.Result := A_Function_Body_Declaration;
     1608   end Function_Body;
    7091609
    7101610   overriding procedure Function_Declaration
    7111611     (Self : in out Visiter;
    7121612      Node : not null Gela.Elements.Function_Declarations.
    713         Function_Declaration_Access);
    714 
    715    overriding procedure Function_Instantiation
    716      (Self : in out Visiter;
    717       Node : not null Gela.Elements.Function_Instantiations.
    718         Function_Instantiation_Access)
    719    is null;
    720 
    721    overriding procedure Generalized_Iterator_Specification
    722      (Self : in out Visiter;
    723       Node : not null Gela.Elements.Generalized_Iterator_Specifications.
    724         Generalized_Iterator_Specification_Access)
    725    is null;
     1613        Function_Declaration_Access)
     1614   is
     1615      pragma Unreferenced (Node);
     1616   begin
     1617      Self.Result := A_Function_Declaration;
     1618   end Function_Declaration;
    7261619
    7271620   overriding procedure Generic_Association
     
    7291622      Node : not null Gela.Elements.Generic_Associations.
    7301623        Generic_Association_Access)
    731    is null;
    732 
    733    overriding procedure Generic_Function_Declaration
    734      (Self : in out Visiter;
    735       Node : not null Gela.Elements.Generic_Function_Declarations.
    736         Generic_Function_Declaration_Access)
    737    is null;
    738 
    739    overriding procedure Generic_Function_Renaming
    740      (Self : in out Visiter;
    741       Node : not null Gela.Elements.Generic_Function_Renamings.
    742         Generic_Function_Renaming_Access)
    743    is null;
     1624   is
     1625      pragma Unreferenced (Node);
     1626   begin
     1627      Self.Result := A_Generic_Association;
     1628   end Generic_Association;
    7441629
    7451630   overriding procedure Generic_Package_Declaration
     
    7471632      Node : not null Gela.Elements.Generic_Package_Declarations.
    7481633        Generic_Package_Declaration_Access)
    749    is null;
    750 
    751    overriding procedure Generic_Package_Renaming
    752      (Self : in out Visiter;
    753       Node : not null Gela.Elements.Generic_Package_Renamings.
    754         Generic_Package_Renaming_Access)
    755    is null;
    756 
    757    overriding procedure Generic_Procedure_Declaration
    758      (Self : in out Visiter;
    759       Node : not null Gela.Elements.Generic_Procedure_Declarations.
    760         Generic_Procedure_Declaration_Access)
    761    is null;
    762 
    763    overriding procedure Generic_Procedure_Renaming
    764      (Self : in out Visiter;
    765       Node : not null Gela.Elements.Generic_Procedure_Renamings.
    766         Generic_Procedure_Renaming_Access)
    767    is null;
    768 
    769    overriding procedure Goto_Statement
    770      (Self : in out Visiter;
    771       Node : not null Gela.Elements.Goto_Statements.Goto_Statement_Access)
    772    is null;
    773 
    774    overriding procedure Identifier
    775      (Self : in out Visiter;
    776       Node : not null Gela.Elements.Identifiers.Identifier_Access);
    777 
    778    overriding procedure If_Expression
    779      (Self : in out Visiter;
    780       Node : not null Gela.Elements.If_Expressions.If_Expression_Access)
    781    is null;
    782 
    783    overriding procedure If_Expression_Path
    784      (Self : in out Visiter;
    785       Node : not null Gela.Elements.If_Expression_Paths.
    786         If_Expression_Path_Access)
    787    is null;
    788 
    789    overriding procedure If_Path
    790      (Self : in out Visiter;
    791       Node : not null Gela.Elements.If_Paths.If_Path_Access)
    792    is null;
    793 
    794    overriding procedure If_Statement
    795      (Self : in out Visiter;
    796       Node : not null Gela.Elements.If_Statements.If_Statement_Access)
    797    is null;
    798 
    799    overriding procedure Incomplete_Type_Declaration
    800      (Self : in out Visiter;
    801       Node : not null Gela.Elements.Incomplete_Type_Declarations.
    802         Incomplete_Type_Declaration_Access)
    803    is null;
    804 
    805    overriding procedure Incomplete_Type_Definition
    806      (Self : in out Visiter;
    807       Node : not null Gela.Elements.Incomplete_Type_Definitions.
    808         Incomplete_Type_Definition_Access)
    809    is null;
    810 
    811    overriding procedure Interface_Type_Definition
    812      (Self : in out Visiter;
    813       Node : not null Gela.Elements.Interface_Type_Definitions.
    814         Interface_Type_Definition_Access)
    815    is null;
    816 
    817    overriding procedure Known_Discriminant_Part
    818      (Self : in out Visiter;
    819       Node : not null Gela.Elements.Known_Discriminant_Parts.
    820         Known_Discriminant_Part_Access);
    821 
    822    overriding procedure Label_Decorator
    823      (Self : in out Visiter;
    824       Node : not null Gela.Elements.Label_Decorators.Label_Decorator_Access)
    825    is null;
    826 
    827    overriding procedure Loop_Parameter_Specification
    828      (Self : in out Visiter;
    829       Node : not null Gela.Elements.Loop_Parameter_Specifications.
    830         Loop_Parameter_Specification_Access)
    831    is null;
    832 
    833    overriding procedure Loop_Statement
    834      (Self : in out Visiter;
    835       Node : not null Gela.Elements.Loop_Statements.Loop_Statement_Access)
    836    is null;
    837 
    838    overriding procedure Membership_Test
    839      (Self : in out Visiter;
    840       Node : not null Gela.Elements.Membership_Tests.Membership_Test_Access)
    841    is null;
    842 
    843    overriding procedure Modular_Type_Definition
    844      (Self : in out Visiter;
    845       Node : not null Gela.Elements.Modular_Type_Definitions.
    846         Modular_Type_Definition_Access)
    847    is null;
    848 
    849    overriding procedure Null_Component
    850      (Self : in out Visiter;
    851       Node : not null Gela.Elements.Null_Components.Null_Component_Access)
    852    is null;
    853 
    854    overriding procedure Null_Literal
    855      (Self : in out Visiter;
    856       Node : not null Gela.Elements.Null_Literals.Null_Literal_Access)
    857    is null;
    858 
    859    overriding procedure Null_Record_Definition
    860      (Self : in out Visiter;
    861       Node : not null Gela.Elements.Null_Record_Definitions.
    862         Null_Record_Definition_Access)
    863    is null;
    864 
    865    overriding procedure Null_Statement
    866      (Self : in out Visiter;
    867       Node : not null Gela.Elements.Null_Statements.Null_Statement_Access);
    868 
    869    overriding procedure Number_Declaration
    870      (Self : in out Visiter;
    871       Node : not null Gela.Elements.Number_Declarations.
    872         Number_Declaration_Access)
    873    is null;
    874 
    875    overriding procedure Numeric_Literal
    876      (Self : in out Visiter;
    877       Node : not null Gela.Elements.Numeric_Literals.Numeric_Literal_Access);
    878 
    879    overriding procedure Object_Declaration
    880      (Self : in out Visiter;
    881       Node : not null Gela.Elements.Object_Declarations.
    882         Object_Declaration_Access);
    883 
    884    overriding procedure Object_Renaming_Declaration
    885      (Self : in out Visiter;
    886       Node : not null Gela.Elements.Object_Renaming_Declarations.
    887         Object_Renaming_Declaration_Access)
    888    is null;
    889 
    890    overriding procedure Operator_Symbol
    891      (Self : in out Visiter;
    892       Node : not null Gela.Elements.Operator_Symbols.Operator_Symbol_Access);
    893 
    894    overriding procedure Ordinary_Fixed_Point_Definition
    895      (Self : in out Visiter;
    896       Node : not null Gela.Elements.Ordinary_Fixed_Point_Definitions.
    897         Ordinary_Fixed_Point_Definition_Access)
    898    is null;
    899 
    900    overriding procedure Others_Choice
    901      (Self : in out Visiter;
    902       Node : not null Gela.Elements.Others_Choices.Others_Choice_Access)
    903    is null;
    904 
    905    overriding procedure Package_Body
    906      (Self : in out Visiter;
    907       Node : not null Gela.Elements.Package_Bodies.Package_Body_Access)
    908    is null;
    909 
    910    overriding procedure Package_Body_Stub
    911      (Self : in out Visiter;
    912       Node : not null Gela.Elements.Package_Body_Stubs.
    913         Package_Body_Stub_Access)
    914    is null;
    915 
    916    overriding procedure Package_Declaration
    917      (Self : in out Visiter;
    918       Node : not null Gela.Elements.Package_Declarations.
    919         Package_Declaration_Access)
    920    is null;
    921 
    922    overriding procedure Package_Instantiation
    923      (Self : in out Visiter;
    924       Node : not null Gela.Elements.Package_Instantiations.
    925         Package_Instantiation_Access)
    926    is null;
    927 
    928    overriding procedure Package_Renaming_Declaration
    929      (Self : in out Visiter;
    930       Node : not null Gela.Elements.Package_Renaming_Declarations.
    931         Package_Renaming_Declaration_Access)
    932    is null;
    933 
    934    overriding procedure Parameter_Association
    935      (Self : in out Visiter;
    936       Node : not null Gela.Elements.Parameter_Associations.
    937         Parameter_Association_Access)
    938    is null;
    939 
    940    overriding procedure Parameter_Specification
    941      (Self : in out Visiter;
    942       Node : not null Gela.Elements.Parameter_Specifications.
    943         Parameter_Specification_Access)
    944    is null;
    945 
    946    overriding procedure Pragma_Argument_Association
    947      (Self : in out Visiter;
    948       Node : not null Gela.Elements.Pragma_Argument_Associations.
    949         Pragma_Argument_Association_Access)
    950    is null;
    951 
    952    overriding procedure Pragma_Node
    953      (Self : in out Visiter;
    954       Node : not null Gela.Elements.Pragma_Nodes.Pragma_Node_Access);
    955 
    956    overriding procedure Private_Extension_Declaration
    957      (Self : in out Visiter;
    958       Node : not null Gela.Elements.Private_Extension_Declarations.
    959         Private_Extension_Declaration_Access)
    960    is null;
    961 
    962    overriding procedure Private_Extension_Definition
    963      (Self : in out Visiter;
    964       Node : not null Gela.Elements.Private_Extension_Definitions.
    965         Private_Extension_Definition_Access)
    966    is null;
    967 
    968    overriding procedure Private_Type_Declaration
    969      (Self : in out Visiter;
    970       Node : not null Gela.Elements.Private_Type_Declarations.
    971         Private_Type_Declaration_Access)
    972    is null;
    973 
    974    overriding procedure Private_Type_Definition
    975      (Self : in out Visiter;
    976       Node : not null Gela.Elements.Private_Type_Definitions.
    977         Private_Type_Definition_Access)
    978    is null;
    979 
    980    overriding procedure Procedure_Body
    981      (Self : in out Visiter;
    982       Node : not null Gela.Elements.Procedure_Bodies.Procedure_Body_Access);
    983 
    984    overriding procedure Procedure_Call_Statement
    985      (Self : in out Visiter;
    986       Node : not null Gela.Elements.Procedure_Call_Statements.
    987         Procedure_Call_Statement_Access);
    988 
    989    overriding procedure Procedure_Declaration
    990      (Self : in out Visiter;
    991       Node : not null Gela.Elements.Procedure_Declarations.
    992         Procedure_Declaration_Access);
    993 
    994    overriding procedure Procedure_Instantiation
    995      (Self : in out Visiter;
    996       Node : not null Gela.Elements.Procedure_Instantiations.
    997         Procedure_Instantiation_Access)
    998    is null;
    999 
    1000    overriding procedure Protected_Body
    1001      (Self : in out Visiter;
    1002       Node : not null Gela.Elements.Protected_Bodies.Protected_Body_Access)
    1003    is null;
    1004 
    1005    overriding procedure Protected_Body_Stub
    1006      (Self : in out Visiter;
    1007       Node : not null Gela.Elements.Protected_Body_Stubs.
    1008         Protected_Body_Stub_Access)
    1009    is null;
    1010 
    1011    overriding procedure Protected_Definition
    1012      (Self : in out Visiter;
    1013       Node : not null Gela.Elements.Protected_Definitions.
    1014         Protected_Definition_Access)
    1015    is null;
    1016 
    1017    overriding procedure Protected_Type_Declaration
    1018      (Self : in out Visiter;
    1019       Node : not null Gela.Elements.Protected_Type_Declarations.
    1020         Protected_Type_Declaration_Access)
    1021    is null;
    1022 
    1023    overriding procedure Qualified_Expression
    1024      (Self : in out Visiter;
    1025       Node : not null Gela.Elements.Qualified_Expressions.
    1026         Qualified_Expression_Access)
    1027    is null;
    1028 
    1029    overriding procedure Quantified_Expression
    1030      (Self : in out Visiter;
    1031       Node : not null Gela.Elements.Quantified_Expressions.
    1032         Quantified_Expression_Access)
    1033    is null;
    1034 
    1035    overriding procedure Raise_Statement
    1036      (Self : in out Visiter;
    1037       Node : not null Gela.Elements.Raise_Statements.Raise_Statement_Access)
    1038    is null;
    1039 
    1040    overriding procedure Range_Attribute_Reference
    1041      (Self : in out Visiter;
    1042       Node : not null Gela.Elements.Range_Attribute_References.
    1043         Range_Attribute_Reference_Access)
    1044    is null;
    1045 
    1046    overriding procedure Range_Attribute_Reference_Dr
    1047      (Self : in out Visiter;
    1048       Node : not null Gela.Elements.Range_Attribute_Reference_Drs.
    1049         Range_Attribute_Reference_Dr_Access)
    1050    is null;
    1051 
    1052    overriding procedure Record_Aggregate
    1053      (Self : in out Visiter;
    1054       Node : not null Gela.Elements.Record_Aggregates.
    1055         Record_Aggregate_Access);
    1056 
    1057    overriding procedure Record_Definition
    1058      (Self : in out Visiter;
    1059       Node : not null Gela.Elements.Record_Definitions.
    1060         Record_Definition_Access);
    1061 
    1062    overriding procedure Record_Representation_Clause
    1063      (Self : in out Visiter;
    1064       Node : not null Gela.Elements.Record_Representation_Clauses.
    1065         Record_Representation_Clause_Access)
    1066    is null;
    1067 
    1068    overriding procedure Record_Type_Definition
    1069      (Self : in out Visiter;
    1070       Node : not null Gela.Elements.Record_Type_Definitions.
    1071         Record_Type_Definition_Access);
    1072 
    1073    overriding procedure Requeue_Statement
    1074      (Self : in out Visiter;
    1075       Node : not null Gela.Elements.Requeue_Statements.
    1076         Requeue_Statement_Access)
    1077    is null;
    1078 
    1079    overriding procedure Return_Object_Specification
    1080      (Self : in out Visiter;
    1081       Node : not null Gela.Elements.Return_Object_Specifications.
    1082         Return_Object_Specification_Access)
    1083    is null;
    1084 
    1085    overriding procedure Select_Or_Path
    1086      (Self : in out Visiter;
    1087       Node : not null Gela.Elements.Select_Or_Paths.Select_Or_Path_Access)
    1088    is null;
    1089 
    1090    overriding procedure Selected_Component
    1091      (Self : in out Visiter;
    1092       Node : not null Gela.Elements.Selected_Components.
    1093         Selected_Component_Access);
    1094 
    1095    overriding procedure Selected_Identifier
    1096      (Self : in out Visiter;
    1097       Node : not null Gela.Elements.Selected_Identifiers.
    1098         Selected_Identifier_Access);
    1099 
    1100    overriding procedure Selective_Accept
    1101      (Self : in out Visiter;
    1102       Node : not null Gela.Elements.Selective_Accepts.Selective_Accept_Access)
    1103    is null;
    1104 
    1105    overriding procedure Short_Circuit
    1106      (Self : in out Visiter;
    1107       Node : not null Gela.Elements.Short_Circuits.Short_Circuit_Access)
    1108    is null;
    1109 
    1110    overriding procedure Signed_Integer_Type_Definition
    1111      (Self : in out Visiter;
    1112       Node : not null Gela.Elements.Signed_Integer_Type_Definitions.
    1113         Signed_Integer_Type_Definition_Access)
    1114    is null;
    1115 
    1116    overriding procedure Simple_Expression_Range
    1117      (Self : in out Visiter;
    1118       Node : not null Gela.Elements.Simple_Expression_Ranges.
    1119         Simple_Expression_Range_Access)
    1120    is null;
    1121 
    1122    overriding procedure Simple_Expression_Range_Dr
    1123      (Self : in out Visiter;
    1124       Node : not null Gela.Elements.Simple_Expression_Range_Drs.
    1125         Simple_Expression_Range_Dr_Access);
    1126 
    1127    overriding procedure Simple_Return_Statement
    1128      (Self : in out Visiter;
    1129       Node : not null Gela.Elements.Simple_Return_Statements.
    1130         Simple_Return_Statement_Access)
    1131    is null;
    1132 
    1133    overriding procedure Single_Protected_Declaration
    1134      (Self : in out Visiter;
    1135       Node : not null Gela.Elements.Single_Protected_Declarations.
    1136         Single_Protected_Declaration_Access)
    1137    is null;
    1138 
    1139    overriding procedure Single_Task_Declaration
    1140      (Self : in out Visiter;
    1141       Node : not null Gela.Elements.Single_Task_Declarations.
    1142         Single_Task_Declaration_Access)
    1143    is null;
    1144 
    1145    overriding procedure String_Literal
    1146      (Self : in out Visiter;
    1147       Node : not null Gela.Elements.String_Literals.String_Literal_Access);
    1148 
    1149    overriding procedure Subtype_Declaration
    1150      (Self : in out Visiter;
    1151       Node : not null Gela.Elements.Subtype_Declarations.
    1152         Subtype_Declaration_Access);
    1153 
    1154    overriding procedure Subtype_Indication
    1155      (Self : in out Visiter;
    1156       Node : not null Gela.Elements.Subtype_Indications.
    1157         Subtype_Indication_Access);
    1158 
    1159    overriding procedure Subunit
    1160      (Self : in out Visiter;
    1161       Node : not null Gela.Elements.Subunits.Subunit_Access)
    1162    is null;
    1163 
    1164    overriding procedure Task_Body
    1165      (Self : in out Visiter;
    1166       Node : not null Gela.Elements.Task_Bodies.Task_Body_Access)
    1167    is null;
    1168 
    1169    overriding procedure Task_Body_Stub
    1170      (Self : in out Visiter;
    1171       Node : not null Gela.Elements.Task_Body_Stubs.Task_Body_Stub_Access)
    1172    is null;
    1173 
    1174    overriding procedure Task_Definition
    1175      (Self : in out Visiter;
    1176       Node : not null Gela.Elements.Task_Definitions.Task_Definition_Access)
    1177    is null;
    1178 
    1179    overriding procedure Task_Type_Declaration
    1180      (Self : in out Visiter;
    1181       Node : not null Gela.Elements.Task_Type_Declarations.
    1182         Task_Type_Declaration_Access)
    1183    is null;
    1184 
    1185    overriding procedure Terminate_Alternative_Statement
    1186      (Self : in out Visiter;
    1187       Node : not null Gela.Elements.Terminate_Alternative_Statements.
    1188         Terminate_Alternative_Statement_Access)
    1189    is null;
    1190 
    1191    overriding procedure Then_Abort_Path
    1192      (Self : in out Visiter;
    1193       Node : not null Gela.Elements.Then_Abort_Paths.Then_Abort_Path_Access)
    1194    is null;
    1195 
    1196    overriding procedure Unconstrained_Array_Definition
    1197      (Self : in out Visiter;
    1198       Node : not null Gela.Elements.Unconstrained_Array_Definitions.
    1199         Unconstrained_Array_Definition_Access)
    1200    is null;
    1201 
    1202    overriding procedure Unknown_Discriminant_Part
    1203      (Self : in out Visiter;
    1204       Node : not null Gela.Elements.Unknown_Discriminant_Parts.
    1205         Unknown_Discriminant_Part_Access)
    1206    is null;
    1207 
    1208    overriding procedure Use_Package_Clause
    1209      (Self : in out Visiter;
    1210       Node : not null Gela.Elements.Use_Package_Clauses.
    1211         Use_Package_Clause_Access);
    1212 
    1213    overriding procedure Use_Type_Clause
    1214      (Self : in out Visiter;
    1215       Node : not null Gela.Elements.Use_Type_Clauses.Use_Type_Clause_Access)
    1216    is null;
    1217 
    1218    overriding procedure Variant
    1219      (Self : in out Visiter;
    1220       Node : not null Gela.Elements.Variants.Variant_Access);
    1221 
    1222    overriding procedure Variant_Part
    1223      (Self : in out Visiter;
    1224       Node : not null Gela.Elements.Variant_Parts.Variant_Part_Access);
    1225 
    1226    overriding procedure While_Loop_Statement
    1227      (Self : in out Visiter;
    1228       Node : not null Gela.Elements.While_Loop_Statements.
    1229         While_Loop_Statement_Access)
    1230    is null;
    1231 
    1232    overriding procedure With_Clause
    1233      (Self : in out Visiter;
    1234       Node : not null Gela.Elements.With_Clauses.With_Clause_Access);
    1235 
    1236    overriding procedure Assignment_Statement
    1237      (Self : in out Visiter;
    1238       Node : not null Gela.Elements.Assignment_Statements.
    1239         Assignment_Statement_Access)
    1240    is
    1241       pragma Unreferenced (Node);
    1242    begin
    1243       Self.Result := An_Assignment_Statement;
    1244    end Assignment_Statement;
    1245 
    1246    overriding procedure Association
    1247      (Self : in out Visiter;
    1248       Node : not null Gela.Elements.Associations.Association_Access)
    1249    is
    1250       pragma Unreferenced (Node);
    1251    begin
    1252       Self.Result := A_Parameter_Association;
    1253    end Association;
    1254 
    1255    overriding procedure Auxiliary_Apply
    1256      (Self : in out Visiter;
    1257       Node : not null Gela.Elements.Auxiliary_Applies.Auxiliary_Apply_Access)
    1258    is
    1259       pragma Unreferenced (Node);
    1260    begin
    1261       Self.Result := A_Function_Call;
    1262    end Auxiliary_Apply;
    1263 
    1264    overriding procedure Case_Path
    1265      (Self : in out Visiter;
    1266       Node : not null Gela.Elements.Case_Paths.Case_Path_Access)
    1267    is
    1268       pragma Unreferenced (Node);
    1269    begin
    1270       Self.Result := A_Case_Path;
    1271    end Case_Path;
    1272 
    1273    overriding procedure Case_Statement
    1274      (Self : in out Visiter;
    1275       Node : not null Gela.Elements.Case_Statements.Case_Statement_Access)
    1276    is
    1277       pragma Unreferenced (Node);
    1278    begin
    1279       Self.Result := A_Case_Statement;
    1280    end Case_Statement;
    1281 
    1282    overriding procedure Component_Declaration
    1283      (Self : in out Visiter;
    1284       Node : not null Gela.Elements.Component_Declarations.
    1285         Component_Declaration_Access)
    1286    is
    1287       pragma Unreferenced (Node);
    1288    begin
    1289       Self.Result := A_Component_Declaration;
    1290    end Component_Declaration;
    1291 
    1292    overriding procedure Component_Definition
    1293      (Self : in out Visiter;
    1294       Node : not null Gela.Elements.Component_Definitions.
    1295         Component_Definition_Access)
    1296    is
    1297       pragma Unreferenced (Node);
    1298    begin
    1299       Self.Result := A_Component_Definition;
    1300    end Component_Definition;
    1301 
    1302    overriding procedure Composite_Constraint
    1303      (Self : in out Visiter;
    1304       Node : not null Gela.Elements.Composite_Constraints.
    1305         Composite_Constraint_Access)
    1306    is
    1307       pragma Unreferenced (Node);
    1308    begin
    1309       Self.Result := An_Index_Constraint;  --  FIXME
    1310    end Composite_Constraint;
    1311 
    1312    overriding procedure Defining_Enumeration_Literal
    1313      (Self : in out Visiter;
    1314       Node : not null Gela.Elements.Defining_Enumeration_Literals.
    1315         Defining_Enumeration_Literal_Access)
    1316    is
    1317       pragma Unreferenced (Node);
    1318    begin
    1319       Self.Result := A_Defining_Enumeration_Literal;
    1320    end Defining_Enumeration_Literal;
    1321 
    1322    overriding procedure Defining_Identifier
    1323      (Self : in out Visiter;
    1324       Node : not null Gela.Elements.Defining_Identifiers.
    1325         Defining_Identifier_Access)
    1326    is
    1327       pragma Unreferenced (Node);
    1328    begin
    1329       Self.Result := A_Defining_Identifier;
    1330    end Defining_Identifier;
    1331 
    1332    overriding procedure Discriminant_Specification
    1333      (Self : in out Visiter;
    1334       Node : not null Gela.Elements.Discriminant_Specifications.
    1335         Discriminant_Specification_Access)
    1336    is
    1337       pragma Unreferenced (Node);
    1338    begin
    1339       Self.Result := A_Discriminant_Specification;
    1340    end Discriminant_Specification;
    1341 
    1342    overriding procedure Enumeration_Literal_Specification
    1343      (Self : in out Visiter;
    1344       Node : not null Gela.Elements.Enumeration_Literal_Specifications.
    1345         Enumeration_Literal_Specification_Access)
    1346    is
    1347       pragma Unreferenced (Node);
    1348    begin
    1349       Self.Result := An_Enumeration_Literal_Specification;
    1350    end Enumeration_Literal_Specification;
    1351 
    1352    overriding procedure Enumeration_Type_Definition
    1353      (Self : in out Visiter;
    1354       Node : not null Gela.Elements.Enumeration_Type_Definitions.
    1355         Enumeration_Type_Definition_Access)
    1356    is
    1357       pragma Unreferenced (Node);
    1358    begin
    1359       Self.Result := An_Enumeration_Type_Definition;
    1360    end Enumeration_Type_Definition;
    1361 
    1362    overriding procedure Exception_Declaration
    1363      (Self : in out Visiter;
    1364       Node : not null Gela.Elements.Exception_Declarations.
    1365         Exception_Declaration_Access)
    1366    is
    1367       pragma Unreferenced (Node);
    1368    begin
    1369       Self.Result := An_Exception_Declaration;
    1370    end Exception_Declaration;
    1371 
    1372    overriding procedure Exception_Handler
    1373      (Self : in out Visiter;
    1374       Node : not null Gela.Elements.Exception_Handlers.
    1375         Exception_Handler_Access)
    1376    is
    1377       pragma Unreferenced (Node);
    1378    begin
    1379       Self.Result := An_Exception_Handler;
    1380    end Exception_Handler;
    1381 
    1382    overriding procedure Full_Type_Declaration
    1383      (Self : in out Visiter;
    1384       Node : not null Gela.Elements.Full_Type_Declarations.
    1385         Full_Type_Declaration_Access)
    1386    is
    1387       pragma Unreferenced (Node);
    1388    begin
    1389       Self.Result := An_Ordinary_Type_Declaration;
    1390    end Full_Type_Declaration;
    1391 
    1392    overriding procedure Function_Declaration
    1393      (Self : in out Visiter;
    1394       Node : not null Gela.Elements.Function_Declarations.
    1395         Function_Declaration_Access) is
    1396       pragma Unreferenced (Node);
    1397    begin
    1398       Self.Result := A_Function_Declaration;
    1399    end Function_Declaration;
    1400 
    1401    ----------------
    1402    -- Identifier --
    1403    ----------------
     1634   is
     1635      pragma Unreferenced (Node);
     1636   begin
     1637      Self.Result := A_Generic_Package_Declaration;
     1638   end Generic_Package_Declaration;
    14041639
    14051640   overriding procedure Identifier
     
    14121647   end Identifier;
    14131648
     1649   overriding procedure If_Path
     1650     (Self : in out Visiter;
     1651      Node : not null Gela.Elements.If_Paths.If_Path_Access)
     1652   is
     1653      pragma Unreferenced (Node);
     1654   begin
     1655      Self.Result := An_If_Path;
     1656   end If_Path;
     1657
     1658   overriding procedure If_Statement
     1659     (Self : in out Visiter;
     1660      Node : not null Gela.Elements.If_Statements.If_Statement_Access)
     1661   is
     1662      pragma Unreferenced (Node);
     1663   begin
     1664      Self.Result := An_If_Statement;
     1665   end If_Statement;
     1666
    14141667   overriding procedure Known_Discriminant_Part
    14151668     (Self : in out Visiter;
     
    14211674      Self.Result := A_Known_Discriminant_Part;
    14221675   end Known_Discriminant_Part;
     1676
     1677   overriding procedure Loop_Statement
     1678     (Self : in out Visiter;
     1679      Node : not null Gela.Elements.Loop_Statements.Loop_Statement_Access)
     1680   is
     1681      pragma Unreferenced (Node);
     1682   begin
     1683      Self.Result := A_Loop_Statement;
     1684   end Loop_Statement;
    14231685
    14241686   ---------------
     
    14901752      end if;
    14911753   end Operator_Symbol;
     1754
     1755   overriding procedure Others_Choice
     1756     (Self : in out Visiter;
     1757      Node : not null Gela.Elements.Others_Choices.Others_Choice_Access)
     1758   is
     1759      pragma Unreferenced (Node);
     1760   begin
     1761      Self.Result := An_Others_Choice;
     1762   end Others_Choice;
     1763
     1764   overriding procedure Package_Body
     1765     (Self : in out Visiter;
     1766      Node : not null Gela.Elements.Package_Bodies.Package_Body_Access)
     1767   is
     1768      pragma Unreferenced (Node);
     1769   begin
     1770      Self.Result := A_Package_Body_Declaration;
     1771   end Package_Body;
     1772
     1773   overriding procedure Package_Declaration
     1774     (Self : in out Visiter;
     1775      Node : not null Gela.Elements.Package_Declarations.
     1776        Package_Declaration_Access)
     1777   is
     1778      pragma Unreferenced (Node);
     1779   begin
     1780      Self.Result := A_Package_Declaration;
     1781   end Package_Declaration;
     1782
     1783   overriding procedure Package_Instantiation
     1784     (Self : in out Visiter;
     1785      Node : not null Gela.Elements.Package_Instantiations.
     1786        Package_Instantiation_Access)
     1787   is
     1788      pragma Unreferenced (Node);
     1789   begin
     1790      Self.Result := A_Package_Instantiation;
     1791   end Package_Instantiation;
     1792
     1793   overriding procedure Parameter_Specification
     1794     (Self : in out Visiter;
     1795      Node : not null Gela.Elements.Parameter_Specifications.
     1796        Parameter_Specification_Access)
     1797   is
     1798      pragma Unreferenced (Node);
     1799   begin
     1800      Self.Result := A_Parameter_Specification;
     1801   end Parameter_Specification;
    14921802
    14931803   overriding procedure Pragma_Node
     
    16031913   end Procedure_Declaration;
    16041914
     1915   overriding procedure Protected_Body
     1916     (Self : in out Visiter;
     1917      Node : not null Gela.Elements.Protected_Bodies.Protected_Body_Access)
     1918   is
     1919      pragma Unreferenced (Node);
     1920   begin
     1921      Self.Result := A_Protected_Body_Declaration;
     1922   end Protected_Body;
     1923
     1924   overriding procedure Protected_Definition
     1925     (Self : in out Visiter;
     1926      Node : not null Gela.Elements.Protected_Definitions.
     1927        Protected_Definition_Access)
     1928   is
     1929      pragma Unreferenced (Node);
     1930   begin
     1931      Self.Result := A_Protected_Definition;
     1932   end Protected_Definition;
     1933
    16051934   overriding procedure Record_Aggregate
    16061935     (Self : in out Visiter;
     
    16311960      Self.Result := A_Record_Type_Definition;
    16321961   end Record_Type_Definition;
     1962
     1963   overriding procedure Requeue_Statement
     1964     (Self : in out Visiter;
     1965      Node : not null Gela.Elements.Requeue_Statements.
     1966        Requeue_Statement_Access)
     1967   is
     1968      use type Gela.Lexical_Types.Token_Count;
     1969   begin
     1970      if Node.With_Token = 0 then
     1971         Self.Result := A_Requeue_Statement;
     1972      else
     1973         Self.Result := A_Requeue_Statement_With_Abort;
     1974      end if;
     1975   end Requeue_Statement;
     1976
     1977   overriding procedure Select_Or_Path
     1978     (Self : in out Visiter;
     1979      Node : not null Gela.Elements.Select_Or_Paths.Select_Or_Path_Access)
     1980   is
     1981      pragma Unreferenced (Node);
     1982   begin
     1983      Self.Result := An_Or_Path;
     1984   end Select_Or_Path;
    16331985
    16341986   ------------------------
     
    16602012   end Selected_Identifier;
    16612013
     2014   overriding procedure Selective_Accept
     2015     (Self : in out Visiter;
     2016      Node : not null Gela.Elements.Selective_Accepts.Selective_Accept_Access)
     2017   is
     2018      pragma Unreferenced (Node);
     2019   begin
     2020      Self.Result := A_Selective_Accept_Statement;
     2021   end Selective_Accept;
     2022
     2023   overriding procedure Signed_Integer_Type_Definition
     2024     (Self : in out Visiter;
     2025      Node : not null Gela.Elements.Signed_Integer_Type_Definitions.
     2026        Signed_Integer_Type_Definition_Access)
     2027   is
     2028      pragma Unreferenced (Node);
     2029   begin
     2030      Self.Result := A_Signed_Integer_Type_Definition;
     2031   end Signed_Integer_Type_Definition;
     2032
     2033   overriding procedure Simple_Expression_Range
     2034     (Self : in out Visiter;
     2035      Node : not null Gela.Elements.Simple_Expression_Ranges.
     2036        Simple_Expression_Range_Access)
     2037   is
     2038      pragma Unreferenced (Node);
     2039   begin
     2040      Self.Result := A_Discrete_Simple_Expression_Range;
     2041   end Simple_Expression_Range;
     2042
    16622043   overriding procedure Simple_Expression_Range_Dr
    16632044     (Self : in out Visiter;
     
    16692050      Self.Result := A_Discrete_Simple_Expression_Range_DR;
    16702051   end Simple_Expression_Range_Dr;
     2052
     2053   overriding procedure Simple_Return_Statement
     2054     (Self : in out Visiter;
     2055      Node : not null Gela.Elements.Simple_Return_Statements.
     2056        Simple_Return_Statement_Access)
     2057   is
     2058      pragma Unreferenced (Node);
     2059   begin
     2060      Self.Result := A_Simple_Return_Statement;
     2061   end Simple_Return_Statement;
     2062
     2063   overriding procedure Single_Protected_Declaration
     2064     (Self : in out Visiter;
     2065      Node : not null Gela.Elements.Single_Protected_Declarations.
     2066        Single_Protected_Declaration_Access)
     2067   is
     2068      pragma Unreferenced (Node);
     2069   begin
     2070      Self.Result := A_Single_Protected_Declaration;
     2071   end Single_Protected_Declaration;
     2072
     2073   overriding procedure Single_Task_Declaration
     2074     (Self : in out Visiter;
     2075      Node : not null Gela.Elements.Single_Task_Declarations.
     2076        Single_Task_Declaration_Access)
     2077   is
     2078      pragma Unreferenced (Node);
     2079   begin
     2080      Self.Result := A_Single_Task_Declaration;
     2081   end Single_Task_Declaration;
    16712082
    16722083   --------------------
     
    17032114   end Subtype_Indication;
    17042115
     2116   overriding procedure Task_Body
     2117     (Self : in out Visiter;
     2118      Node : not null Gela.Elements.Task_Bodies.Task_Body_Access)
     2119   is
     2120      pragma Unreferenced (Node);
     2121   begin
     2122      Self.Result := A_Task_Body_Declaration;
     2123   end Task_Body;
     2124
     2125   overriding procedure Task_Definition
     2126     (Self : in out Visiter;
     2127      Node : not null Gela.Elements.Task_Definitions.Task_Definition_Access)
     2128   is
     2129      pragma Unreferenced (Node);
     2130   begin
     2131      Self.Result := A_Task_Definition;
     2132   end Task_Definition;
     2133
     2134   overriding procedure Terminate_Alternative_Statement
     2135     (Self : in out Visiter;
     2136      Node : not null Gela.Elements.Terminate_Alternative_Statements.
     2137        Terminate_Alternative_Statement_Access)
     2138   is
     2139      pragma Unreferenced (Node);
     2140   begin
     2141      Self.Result := A_Terminate_Alternative_Statement;
     2142   end Terminate_Alternative_Statement;
     2143
    17052144   ------------------------
    17062145   -- Use_Package_Clause --
     
    17172156   end Use_Package_Clause;
    17182157
     2158   overriding procedure Use_Type_Clause
     2159     (Self : in out Visiter;
     2160      Node : not null Gela.Elements.Use_Type_Clauses.Use_Type_Clause_Access)
     2161   is
     2162      pragma Unreferenced (Node);
     2163   begin
     2164      Self.Result := A_Use_Type_Clause;
     2165   end Use_Type_Clause;
     2166
    17192167   overriding procedure Variant
    17202168     (Self : in out Visiter;
Note: See TracChangeset for help on using the changeset viewer.