1 ------------------------------------------------------------------------------
3 -- GNAT COMPILER COMPONENTS --
9 -- Generated by xtreeprs revision 1.1 using --
10 -- sinfo.ads revision 1.5 --
11 -- treeprs.adt revision 1.1 --
13 -- Copyright (C) 1992-1997 Free Software Foundation, Inc. --
15 -- GNAT is free software; you can redistribute it and/or modify it under --
16 -- terms of the GNU General Public License as published by the Free Soft- --
17 -- ware Foundation; either version 2, or (at your option) any later ver- --
18 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
19 -- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
20 -- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --
21 -- for more details. You should have received a copy of the GNU General --
22 -- Public License distributed with GNAT; see file COPYING. If not, write --
23 -- to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, --
24 -- MA 02111-1307, USA. --
26 -- GNAT was originally developed by the GNAT team at New York University. --
27 -- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). --
29 ------------------------------------------------------------------------------
32 -- This package contains the declaration of the string used by the Tree_Print
33 -- package. It must be updated whenever the arrangements of the field names
34 -- in package Sinfo is changed. The utility program XTREEPRS is used to
35 -- do this update correctly using the template treeprs.adt as input.
37 with Sinfo; use Sinfo;
41 --------------------------------
42 -- String Data for Node Print --
43 --------------------------------
45 -- String data for print out. The Pchars array is a long string with the
46 -- the entry for each node type consisting of a single blank, followed by
47 -- a series of entries, one for each Op or Flag field used for the node.
48 -- Each entry has a single character which identifies the field, followed
49 -- by the synonym name. The starting location for a given node type is
50 -- found from the corresponding entry in the Pchars_Pos_Array.
52 -- The following characters identify the field. These are characters
53 -- which could never occur in a field name, so they also mark the
54 -- end of the previous name.
56 subtype Fchar is Character range '#' .. '9';
58 F_Field1 : constant Fchar := '#'; -- Character'Val (16#23#)
59 F_Field2 : constant Fchar := '$'; -- Character'Val (16#24#)
60 F_Field3 : constant Fchar := '%'; -- Character'Val (16#25#)
61 F_Field4 : constant Fchar := '&'; -- Character'Val (16#26#)
62 F_Field5 : constant Fchar := '''; -- Character'Val (16#27#)
63 F_Flag1 : constant Fchar := '('; -- Character'Val (16#28#)
64 F_Flag2 : constant Fchar := ')'; -- Character'Val (16#29#)
65 F_Flag3 : constant Fchar := '*'; -- Character'Val (16#2A#)
66 F_Flag4 : constant Fchar := '+'; -- Character'Val (16#2B#)
67 F_Flag5 : constant Fchar := ','; -- Character'Val (16#2C#)
68 F_Flag6 : constant Fchar := '-'; -- Character'Val (16#2D#)
69 F_Flag7 : constant Fchar := '.'; -- Character'Val (16#2E#)
70 F_Flag8 : constant Fchar := '/'; -- Character'Val (16#2F#)
71 F_Flag9 : constant Fchar := '0'; -- Character'Val (16#30#)
72 F_Flag10 : constant Fchar := '1'; -- Character'Val (16#31#)
73 F_Flag11 : constant Fchar := '2'; -- Character'Val (16#32#)
74 F_Flag12 : constant Fchar := '3'; -- Character'Val (16#33#)
75 F_Flag13 : constant Fchar := '4'; -- Character'Val (16#34#)
76 F_Flag14 : constant Fchar := '5'; -- Character'Val (16#35#)
77 F_Flag15 : constant Fchar := '6'; -- Character'Val (16#36#)
78 F_Flag16 : constant Fchar := '7'; -- Character'Val (16#37#)
79 F_Flag17 : constant Fchar := '8'; -- Character'Val (16#38#)
80 F_Flag18 : constant Fchar := '9'; -- Character'Val (16#39#)
82 -- Note this table does not include entity field and flags whose access
83 -- functions are in Einfo (these are handled by the Print_Entity_Info
84 -- procedure in Treepr, which uses the routines in Einfo to get the
85 -- proper symbolic information). In addition, the following fields are
86 -- handled by Treepr, and do not appear in the Pchars array:
94 -- Is_Controlling_Actual
96 -- Is_Static_Expression
102 -- Raises_Constraint_Error
105 Pchars : constant String :=
109 "#Identifier%Expression" &
111 "#Component_Name$Position%First_Bit&Last_Bit" &
112 -- Enumeration_Representation_Clause
113 "#Identifier%Array_Aggregate&Next_Rep_Item" &
115 "%Expression&Pragmas_Before" &
116 -- Record_Representation_Clause
117 "#Identifier$Mod_Clause%Component_Clauses&Next_Rep_Item" &
118 -- Attribute_Definition_Clause
119 "$Name%Expression&Next_Rep_Item+From_At_Mod" &
123 "$Pragma_Argument_Associations%Debug_Statement&Next_Rep_Item" &
124 -- Pragma_Argument_Association
128 -- Defining_Character_Literal
129 "$Next_Entity%Scope" &
130 -- Defining_Identifier
131 "$Next_Entity%Scope" &
132 -- Defining_Operator_Symbol
133 "$Next_Entity%Scope" &
135 "%Prefix$Selector_Name&Entity&Associated_Node4Redundant_Use2Has_Privat" &
138 "&Entity&Associated_Node$Original_Discriminant4Redundant_Use2Has_Priva" &
141 "%Strval&Entity&Associated_Node2Has_Private_View" &
143 "$Char_Literal_Value&Entity&Associated_Node2Has_Private_View" &
147 "4Is_Component_Left_Opnd5Is_Component_Right_Opnd" &
149 "5Treat_Fixed_As_Integer4Do_Division_Check9Rounded_Result" &
151 "4Is_Power_Of_2_For_Shift" &
153 "5Treat_Fixed_As_Integer4Do_Division_Check" &
155 "5Treat_Fixed_As_Integer9Rounded_Result" &
157 "5Treat_Fixed_As_Integer4Do_Division_Check" &
186 -- Op_Shift_Right_Arithmetic
196 -- Attribute_Reference
197 "%Prefix$Attribute_Name#Expressions&Entity&Associated_Node2Do_Access_C" &
198 "heck8Do_Overflow_Check4Redundant_Use+OK_For_Stream" &
201 -- Conditional_Expression
202 "#Expressions$Then_Actions%Else_Actions" &
203 -- Explicit_Dereference
204 "%Prefix2Do_Access_Check" &
206 "$Name%Parameter_Associations&First_Named_Actual#Controlling_Argument4" &
207 "Do_Tag_Check8Parameter_List_Truncated9ABE_Is_Certain" &
211 "%Prefix#Expressions2Do_Access_Check" &
213 "%Intval4Print_In_Hex" &
220 -- Procedure_Call_Statement
221 "$Name%Parameter_Associations&First_Named_Actual#Controlling_Argument4" &
222 "Do_Tag_Check8Parameter_List_Truncated9ABE_Is_Certain" &
223 -- Qualified_Expression
224 "&Subtype_Mark%Expression" &
225 -- Raise_Constraint_Error
227 -- Raise_Program_Error
229 -- Raise_Storage_Error
232 "#Expressions$Component_Associations8Null_Record_Present%Aggregate_Bou" &
233 "nds&Associated_Node+Static_Processing_OK9Compile_Time_Known_Aggreg" &
234 "ate2Expansion_Delayed" &
236 "%Expression#Storage_Pool&Procedure_To_Call4No_Initialization8Do_Stora" &
238 -- Extension_Aggregate
239 "%Ancestor_Part&Associated_Node#Expressions$Component_Associations8Nul" &
240 "l_Record_Present2Expansion_Delayed" &
242 "#Low_Bound$High_Bound2Includes_Infinities" &
244 "%Realval&Corresponding_Integer_Value2Is_Machine_Number" &
247 -- Selected_Component
248 "%Prefix$Selector_Name&Associated_Node2Do_Access_Check4Do_Discriminant" &
251 "%Prefix&Discrete_Range2Do_Access_Check" &
253 "%Strval2Has_Wide_Character" &
257 "&Subtype_Mark%Expression8Do_Overflow_Check4Do_Tag_Check+Do_Length_Che" &
258 "ck2Float_Truncate9Rounded_Result5Conversion_OK" &
259 -- Unchecked_Expression
261 -- Unchecked_Type_Conversion
262 "&Subtype_Mark%Expression2Kill_Range_Check" &
263 -- Subtype_Indication
264 "&Subtype_Mark%Constraint/Must_Not_Freeze" &
265 -- Component_Declaration
266 "#Defining_Identifier+Aliased_Present'Subtype_Indication%Expression,Mo" &
269 "#Defining_Identifier&Discrete_Subtype_Definition%Parameter_Specificat" &
271 -- Formal_Object_Declaration
272 "#Defining_Identifier6In_Present8Out_Present&Subtype_Mark%Expression,M" &
274 -- Formal_Type_Declaration
275 "#Defining_Identifier%Formal_Type_Definition&Discriminant_Specificatio" &
276 "ns4Unknown_Discriminants_Present" &
277 -- Full_Type_Declaration
278 "#Defining_Identifier&Discriminant_Specifications%Type_Definition2Disc" &
279 "r_Check_Funcs_Built" &
280 -- Incomplete_Type_Declaration
281 "#Defining_Identifier&Discriminant_Specifications4Unknown_Discriminant" &
283 -- Loop_Parameter_Specification
284 "#Defining_Identifier6Reverse_Present&Discrete_Subtype_Definition" &
285 -- Object_Declaration
286 "#Defining_Identifier+Aliased_Present8Constant_Present&Object_Definiti" &
287 "on%Expression$Handler_List_Entry'Corresponding_Generic_Association" &
288 ",More_Ids-Prev_Ids4No_Initialization6Assignment_OK2Exception_Junk5" &
289 "Delay_Finalize_Attach7Is_Subprogram_Descriptor" &
290 -- Protected_Type_Declaration
291 "#Defining_Identifier&Discriminant_Specifications%Protected_Definition" &
292 "'Corresponding_Body" &
293 -- Private_Extension_Declaration
294 "#Defining_Identifier&Discriminant_Specifications4Unknown_Discriminant" &
295 "s_Present+Abstract_Present'Subtype_Indication" &
296 -- Private_Type_Declaration
297 "#Defining_Identifier&Discriminant_Specifications4Unknown_Discriminant" &
298 "s_Present+Abstract_Present6Tagged_Present8Limited_Present" &
299 -- Subtype_Declaration
300 "#Defining_Identifier'Subtype_Indication&Generic_Parent_Type2Exception" &
302 -- Function_Specification
303 "#Defining_Unit_Name$Elaboration_Boolean%Parameter_Specifications&Subt" &
304 "ype_Mark'Generic_Parent" &
305 -- Procedure_Specification
306 "#Defining_Unit_Name$Elaboration_Boolean%Parameter_Specifications'Gene" &
308 -- Entry_Index_Specification
309 "#Defining_Identifier&Discrete_Subtype_Definition" &
311 "&Entity$Access_Types_To_Process%TSS_Elist#Actions'First_Subtype_Link" &
312 -- Access_Function_Definition
313 "6Protected_Present%Parameter_Specifications&Subtype_Mark" &
314 -- Access_Procedure_Definition
315 "6Protected_Present%Parameter_Specifications" &
316 -- Task_Type_Declaration
317 "#Defining_Identifier$Task_Body_Procedure&Discriminant_Specifications%" &
318 "Task_Definition'Corresponding_Body" &
320 "#Defining_Identifier&Library_Unit'Corresponding_Body" &
321 -- Protected_Body_Stub
322 "#Defining_Identifier&Library_Unit'Corresponding_Body" &
323 -- Subprogram_Body_Stub
324 "#Specification&Library_Unit'Corresponding_Body" &
326 "#Defining_Identifier&Library_Unit'Corresponding_Body" &
327 -- Function_Instantiation
328 "#Defining_Unit_Name$Name%Generic_Associations&Parent_Spec'Instance_Sp" &
329 "ec9ABE_Is_Certain" &
330 -- Package_Instantiation
331 "#Defining_Unit_Name$Name%Generic_Associations&Parent_Spec'Instance_Sp" &
332 "ec9ABE_Is_Certain" &
333 -- Procedure_Instantiation
334 "#Defining_Unit_Name$Name&Parent_Spec%Generic_Associations'Instance_Sp" &
335 "ec9ABE_Is_Certain" &
337 "#Defining_Unit_Name$Declarations&Handled_Statement_Sequence'Correspon" &
338 "ding_Spec4Was_Originally_Stub" &
340 "#Specification$Declarations&Handled_Statement_Sequence%Activation_Cha" &
341 "in_Entity'Corresponding_Spec+Acts_As_Spec6Bad_Is_Detected8Do_Stora" &
342 "ge_Check-Has_Priority_Pragma.Is_Protected_Subprogram_Body,Is_Task_" &
343 "Master4Was_Originally_Stub" &
345 "#Defining_Identifier$Declarations&End_Label'Corresponding_Spec4Was_Or" &
348 "#Defining_Identifier$Declarations&Handled_Statement_Sequence,Is_Task_" &
349 "Master%Activation_Chain_Entity'Corresponding_Spec4Was_Originally_S" &
351 -- Implicit_Label_Declaration
352 "#Defining_Identifier$Label_Construct" &
353 -- Package_Declaration
354 "#Specification'Corresponding_Body&Parent_Spec%Activation_Chain_Entity" &
355 -- Single_Task_Declaration
356 "#Defining_Identifier%Task_Definition" &
357 -- Subprogram_Declaration
358 "#Specification%Body_To_Inline'Corresponding_Body&Parent_Spec" &
359 -- Use_Package_Clause
360 "$Names%Next_Use_Clause&Hidden_By_Use_Clause" &
361 -- Generic_Package_Declaration
362 "#Specification'Corresponding_Body$Generic_Formal_Declarations&Parent_" &
363 "Spec%Activation_Chain_Entity" &
364 -- Generic_Subprogram_Declaration
365 "#Specification'Corresponding_Body$Generic_Formal_Declarations&Parent_" &
367 -- Constrained_Array_Definition
368 "$Discrete_Subtype_Definitions+Aliased_Present'Subtype_Indication" &
369 -- Unconstrained_Array_Definition
370 "$Subtype_Marks+Aliased_Present'Subtype_Indication" &
371 -- Exception_Renaming_Declaration
372 "#Defining_Identifier$Name" &
373 -- Object_Renaming_Declaration
374 "#Defining_Identifier&Subtype_Mark$Name'Corresponding_Generic_Associat" &
376 -- Package_Renaming_Declaration
377 "#Defining_Unit_Name$Name&Parent_Spec" &
378 -- Subprogram_Renaming_Declaration
379 "#Specification$Name&Parent_Spec'Corresponding_Spec" &
380 -- Generic_Function_Renaming_Declaration
381 "#Defining_Unit_Name$Name&Parent_Spec" &
382 -- Generic_Package_Renaming_Declaration
383 "#Defining_Unit_Name$Name&Parent_Spec" &
384 -- Generic_Procedure_Renaming_Declaration
385 "#Defining_Unit_Name$Name&Parent_Spec" &
389 "#Entry_Direct_Name'Entry_Index%Parameter_Specifications&Handled_State" &
390 "ment_Sequence$Declarations" &
391 -- Assignment_Statement
392 "$Name%Expression4Do_Tag_Check+Do_Length_Check,Forwards_OK-Backwards_O" &
393 "K.No_Ctrl_Actions" &
394 -- Asynchronous_Select
395 "#Triggering_Alternative$Abortable_Part" &
397 "#Identifier$Declarations&Handled_Statement_Sequence,Is_Task_Master%Ac" &
398 "tivation_Chain_Entity6Has_Created_Identifier-Is_Task_Allocation_Bl" &
399 "ock.Is_Asynchronous_Call_Block" &
401 "%Expression&Alternatives'End_Span" &
404 -- Conditional_Entry_Call
405 "#Entry_Call_Alternative&Else_Statements" &
406 -- Delay_Relative_Statement
408 -- Delay_Until_Statement
410 -- Entry_Call_Statement
411 "$Name%Parameter_Associations&First_Named_Actual" &
413 "%Expression#Storage_Pool&Procedure_To_Call" &
415 "$Name2Exception_Junk" &
417 "#Identifier$Iteration_Scheme%Statements&End_Label6Has_Created_Identif" &
424 "$Name6Abort_Present" &
426 "%Expression#Storage_Pool&Procedure_To_Call4Do_Tag_Check$Return_Type,B" &
429 "#Select_Alternatives&Else_Statements" &
431 "#Entry_Call_Alternative&Delay_Alternative" &
435 "#Condition$Then_Statements%Elsif_Parts&Else_Statements'End_Span" &
436 -- Accept_Alternative
437 "$Accept_Statement#Condition%Statements&Pragmas_Before'Accept_Handler_" &
440 "$Delay_Statement#Condition%Statements&Pragmas_Before" &
442 "#Condition$Then_Statements%Condition_Actions" &
443 -- Entry_Body_Formal_Part
444 "&Entry_Index_Specification%Parameter_Specifications#Condition" &
446 "#Condition%Condition_Actions&Loop_Parameter_Specification" &
447 -- Terminate_Alternative
448 "#Condition&Pragmas_Before'Pragmas_After" &
451 -- Abstract_Subprogram_Declaration
455 -- Access_To_Object_Definition
456 "6All_Present'Subtype_Indication8Constant_Present" &
457 -- Case_Statement_Alternative
458 "&Discrete_Choices%Statements" &
460 "&Library_Unit#Context_Items6Private_Present$Unit'Aux_Decls_Node8Has_N" &
461 "o_Elaboration_Code4Body_Required+Acts_As_Spec%First_Inlined_Subpro" &
463 -- Compilation_Unit_Aux
464 "$Declarations#Actions'Pragmas_After" &
465 -- Component_Association
466 "#Choices$Loop_Actions%Expression" &
468 "%Component_Items&Variant_Part4Null_Present" &
469 -- Derived_Type_Definition
470 "+Abstract_Present'Subtype_Indication%Record_Extension_Part" &
471 -- Decimal_Fixed_Point_Definition
472 "%Delta_Expression$Digits_Expression&Real_Range_Specification" &
473 -- Defining_Program_Unit_Name
474 "$Name#Defining_Identifier" &
476 "%Delta_Expression&Range_Constraint" &
480 "$Digits_Expression&Range_Constraint" &
481 -- Discriminant_Association
482 "#Selector_Names%Expression" &
483 -- Discriminant_Specification
484 "#Defining_Identifier'Discriminant_Type%Expression,More_Ids-Prev_Ids" &
485 -- Enumeration_Type_Definition
488 "#Defining_Identifier'Entry_Body_Formal_Part$Declarations&Handled_Stat" &
489 "ement_Sequence%Activation_Chain_Entity" &
490 -- Entry_Call_Alternative
491 "#Entry_Call_Statement%Statements&Pragmas_Before" &
492 -- Exception_Declaration
493 "#Defining_Identifier%Expression,More_Ids-Prev_Ids" &
495 "$Choice_Parameter&Exception_Choices%Statements,Zero_Cost_Handling" &
496 -- Floating_Point_Definition
497 "$Digits_Expression&Real_Range_Specification" &
498 -- Formal_Decimal_Fixed_Point_Definition
500 -- Formal_Derived_Type_Definition
501 "&Subtype_Mark6Private_Present+Abstract_Present" &
502 -- Formal_Discrete_Type_Definition
504 -- Formal_Floating_Point_Definition
506 -- Formal_Modular_Type_Definition
508 -- Formal_Ordinary_Fixed_Point_Definition
510 -- Formal_Package_Declaration
511 "#Defining_Identifier$Name%Generic_Associations6Box_Present'Instance_S" &
512 "pec9ABE_Is_Certain" &
513 -- Formal_Private_Type_Definition
514 "+Abstract_Present6Tagged_Present8Limited_Present" &
515 -- Formal_Signed_Integer_Type_Definition
517 -- Formal_Subprogram_Declaration
518 "#Specification$Default_Name6Box_Present" &
519 -- Generic_Association
520 "$Selector_Name#Explicit_Generic_Actual_Parameter" &
521 -- Handled_Sequence_Of_Statements
522 "%Statements&End_Label'Exception_Handlers#At_End_Proc$First_Real_State" &
523 "ment,Zero_Cost_Handling" &
524 -- Index_Or_Discriminant_Constraint
529 "#Identifier2Exception_Junk" &
530 -- Modular_Type_Definition
532 -- Number_Declaration
533 "#Defining_Identifier%Expression,More_Ids-Prev_Ids" &
534 -- Ordinary_Fixed_Point_Definition
535 "%Delta_Expression&Real_Range_Specification" &
537 "#Others_Discrete_Choices2All_Others" &
538 -- Package_Specification
539 "#Defining_Unit_Name$Visible_Declarations%Private_Declarations&End_Lab" &
540 "el'Generic_Parent" &
541 -- Parameter_Association
542 "$Selector_Name%Explicit_Actual_Parameter&Next_Named_Actual" &
543 -- Parameter_Specification
544 "#Defining_Identifier6In_Present8Out_Present$Parameter_Type%Expression" &
545 "4Do_Accessibility_Check,More_Ids-Prev_Ids'Default_Expression" &
546 -- Protected_Definition
547 "$Visible_Declarations%Private_Declarations&End_Label-Has_Priority_Pra" &
550 "&Range_Expression" &
551 -- Real_Range_Specification
552 "#Low_Bound$High_Bound" &
554 "&End_Label+Abstract_Present6Tagged_Present8Limited_Present#Component_" &
555 "List4Null_Present" &
556 -- Signed_Integer_Type_Definition
557 "#Low_Bound$High_Bound" &
558 -- Single_Protected_Declaration
559 "#Defining_Identifier%Protected_Definition" &
561 "$Name#Proper_Body%Corresponding_Stub" &
563 "$Visible_Declarations%Private_Declarations&End_Label-Has_Priority_Pra" &
564 "gma,Has_Storage_Size_Pragma.Has_Task_Info_Pragma/Has_Task_Name_Pra" &
566 -- Triggering_Alternative
567 "#Triggering_Statement%Statements&Pragmas_Before" &
569 "$Subtype_Marks%Next_Use_Clause&Hidden_By_Use_Clause" &
570 -- Validate_Unchecked_Conversion
571 "#Source_Type$Target_Type" &
573 "&Discrete_Choices#Component_List$Enclosing_Variant%Present_Expr'Dchec" &
578 "$Name&Library_Unit'Corresponding_Spec,First_Name-Last_Name4Context_In" &
579 "stalled+Elaborate_Present6Elaborate_All_Present8Implicit_With.Unre" &
580 "ferenced_In_Spec/No_Entities_Ref_In_Spec" &
582 "$Name6Tagged_Present" &
586 type Pchar_Pos_Array is array (Node_Kind) of Positive;
587 Pchar_Pos : constant Pchar_Pos_Array := Pchar_Pos_Array'(
588 N_Unused_At_Start => 1,
590 N_Component_Clause => 23,
591 N_Enumeration_Representation_Clause => 66,
593 N_Record_Representation_Clause => 133,
594 N_Attribute_Definition_Clause => 187,
597 N_Pragma_Argument_Association => 288,
599 N_Defining_Character_Literal => 299,
600 N_Defining_Identifier => 317,
601 N_Defining_Operator_Symbol => 335,
602 N_Expanded_Name => 353,
604 N_Operator_Symbol => 504,
605 N_Character_Literal => 551,
611 N_Op_Multiply => 778,
613 N_Op_Subtract => 857,
623 N_Op_Rotate_Left => 905,
624 N_Op_Rotate_Right => 920,
625 N_Op_Shift_Left => 935,
626 N_Op_Shift_Right => 950,
627 N_Op_Shift_Right_Arithmetic => 965,
632 N_Attribute_Reference => 980,
634 N_Conditional_Expression => 1107,
635 N_Explicit_Dereference => 1145,
636 N_Function_Call => 1168,
638 N_Indexed_Component => 1289,
639 N_Integer_Literal => 1324,
643 N_Procedure_Call_Statement => 1352,
644 N_Qualified_Expression => 1473,
645 N_Raise_Constraint_Error => 1497,
646 N_Raise_Program_Error => 1507,
647 N_Raise_Storage_Error => 1517,
650 N_Extension_Aggregate => 1760,
652 N_Real_Literal => 1904,
654 N_Selected_Component => 1965,
656 N_String_Literal => 2078,
657 N_Subprogram_Info => 2104,
658 N_Type_Conversion => 2115,
659 N_Unchecked_Expression => 2230,
660 N_Unchecked_Type_Conversion => 2241,
661 N_Subtype_Indication => 2282,
662 N_Component_Declaration => 2322,
663 N_Entry_Declaration => 2406,
664 N_Formal_Object_Declaration => 2479,
665 N_Formal_Type_Declaration => 2564,
666 N_Full_Type_Declaration => 2665,
667 N_Incomplete_Type_Declaration => 2753,
668 N_Loop_Parameter_Specification => 2831,
669 N_Object_Declaration => 2895,
670 N_Protected_Type_Declaration => 3142,
671 N_Private_Extension_Declaration => 3230,
672 N_Private_Type_Declaration => 3344,
673 N_Subtype_Declaration => 3470,
674 N_Function_Specification => 3544,
675 N_Procedure_Specification => 3636,
676 N_Entry_Index_Specification => 3715,
677 N_Freeze_Entity => 3763,
678 N_Access_Function_Definition => 3831,
679 N_Access_Procedure_Definition => 3887,
680 N_Task_Type_Declaration => 3930,
681 N_Package_Body_Stub => 4033,
682 N_Protected_Body_Stub => 4085,
683 N_Subprogram_Body_Stub => 4137,
684 N_Task_Body_Stub => 4183,
685 N_Function_Instantiation => 4235,
686 N_Package_Instantiation => 4321,
687 N_Procedure_Instantiation => 4407,
688 N_Package_Body => 4493,
689 N_Subprogram_Body => 4591,
690 N_Protected_Body => 4818,
692 N_Implicit_Label_Declaration => 5038,
693 N_Package_Declaration => 5074,
694 N_Single_Task_Declaration => 5143,
695 N_Subprogram_Declaration => 5179,
696 N_Use_Package_Clause => 5239,
697 N_Generic_Package_Declaration => 5282,
698 N_Generic_Subprogram_Declaration => 5379,
699 N_Constrained_Array_Definition => 5452,
700 N_Unconstrained_Array_Definition => 5516,
701 N_Exception_Renaming_Declaration => 5565,
702 N_Object_Renaming_Declaration => 5590,
703 N_Package_Renaming_Declaration => 5662,
704 N_Subprogram_Renaming_Declaration => 5698,
705 N_Generic_Function_Renaming_Declaration => 5748,
706 N_Generic_Package_Renaming_Declaration => 5784,
707 N_Generic_Procedure_Renaming_Declaration => 5820,
708 N_Abort_Statement => 5856,
709 N_Accept_Statement => 5862,
710 N_Assignment_Statement => 5957,
711 N_Asynchronous_Select => 6043,
712 N_Block_Statement => 6081,
713 N_Case_Statement => 6246,
714 N_Code_Statement => 6279,
715 N_Conditional_Entry_Call => 6290,
716 N_Delay_Relative_Statement => 6329,
717 N_Delay_Until_Statement => 6340,
718 N_Entry_Call_Statement => 6351,
719 N_Free_Statement => 6398,
720 N_Goto_Statement => 6440,
721 N_Loop_Statement => 6460,
722 N_Null_Statement => 6532,
723 N_Raise_Statement => 6532,
724 N_Requeue_Statement => 6537,
725 N_Return_Statement => 6556,
726 N_Selective_Accept => 6630,
727 N_Timed_Entry_Call => 6666,
728 N_Exit_Statement => 6707,
729 N_If_Statement => 6722,
730 N_Accept_Alternative => 6785,
731 N_Delay_Alternative => 6861,
732 N_Elsif_Part => 6913,
733 N_Entry_Body_Formal_Part => 6957,
734 N_Iteration_Scheme => 7018,
735 N_Terminate_Alternative => 7075,
736 N_Abortable_Part => 7114,
737 N_Abstract_Subprogram_Declaration => 7125,
738 N_Access_Definition => 7139,
739 N_Access_To_Object_Definition => 7152,
740 N_Case_Statement_Alternative => 7200,
741 N_Compilation_Unit => 7228,
742 N_Compilation_Unit_Aux => 7367,
743 N_Component_Association => 7402,
744 N_Component_List => 7434,
745 N_Derived_Type_Definition => 7476,
746 N_Decimal_Fixed_Point_Definition => 7534,
747 N_Defining_Program_Unit_Name => 7594,
748 N_Delta_Constraint => 7619,
749 N_Designator => 7653,
750 N_Digits_Constraint => 7669,
751 N_Discriminant_Association => 7704,
752 N_Discriminant_Specification => 7730,
753 N_Enumeration_Type_Definition => 7797,
754 N_Entry_Body => 7806,
755 N_Entry_Call_Alternative => 7913,
756 N_Exception_Declaration => 7960,
757 N_Exception_Handler => 8009,
758 N_Floating_Point_Definition => 8074,
759 N_Formal_Decimal_Fixed_Point_Definition => 8117,
760 N_Formal_Derived_Type_Definition => 8117,
761 N_Formal_Discrete_Type_Definition => 8163,
762 N_Formal_Floating_Point_Definition => 8163,
763 N_Formal_Modular_Type_Definition => 8163,
764 N_Formal_Ordinary_Fixed_Point_Definition => 8163,
765 N_Formal_Package_Declaration => 8163,
766 N_Formal_Private_Type_Definition => 8250,
767 N_Formal_Signed_Integer_Type_Definition => 8298,
768 N_Formal_Subprogram_Declaration => 8298,
769 N_Generic_Association => 8337,
770 N_Handled_Sequence_Of_Statements => 8385,
771 N_Index_Or_Discriminant_Constraint => 8477,
772 N_Itype_Reference => 8489,
774 N_Modular_Type_Definition => 8521,
775 N_Number_Declaration => 8532,
776 N_Ordinary_Fixed_Point_Definition => 8581,
777 N_Others_Choice => 8623,
778 N_Package_Specification => 8658,
779 N_Parameter_Association => 8744,
780 N_Parameter_Specification => 8802,
781 N_Protected_Definition => 8931,
782 N_Range_Constraint => 9003,
783 N_Real_Range_Specification => 9020,
784 N_Record_Definition => 9041,
785 N_Signed_Integer_Type_Definition => 9127,
786 N_Single_Protected_Declaration => 9148,
788 N_Task_Definition => 9225,
789 N_Triggering_Alternative => 9363,
790 N_Use_Type_Clause => 9410,
791 N_Validate_Unchecked_Conversion => 9461,
793 N_Variant_Part => 9564,
794 N_With_Clause => 9578,
795 N_With_Type_Clause => 9753,
796 N_Unused_At_End => 9773);