1 ------------------------------------------------------------------------------
3 -- GNAT COMPILER COMPONENTS --
9 -- Copyright (C) 1992-2013, Free Software Foundation, Inc. --
11 -- GNAT is free software; you can redistribute it and/or modify it under --
12 -- terms of the GNU General Public License as published by the Free Soft- --
13 -- ware Foundation; either version 3, or (at your option) any later ver- --
14 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
15 -- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
16 -- or FITNESS FOR A PARTICULAR PURPOSE. --
18 -- As a special exception under Section 7 of GPL version 3, you are granted --
19 -- additional permissions described in the GCC Runtime Library Exception, --
20 -- version 3.1, as published by the Free Software Foundation. --
22 -- You should have received a copy of the GNU General Public License and --
23 -- a copy of the GCC Runtime Library Exception along with this program; --
24 -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see --
25 -- <http://www.gnu.org/licenses/>. --
27 -- GNAT was originally developed by the GNAT team at New York University. --
28 -- Extensive contributions were provided by Ada Core Technologies Inc. --
30 ------------------------------------------------------------------------------
32 pragma Style_Checks (All_Checks);
33 -- Turn off subprogram ordering check for this package
35 -- WARNING: There is a C version of this package. Any changes to this source
36 -- file must be properly reflected in the file atree.h which is a C header
37 -- file containing equivalent definitions for use by gigi.
39 with Aspects; use Aspects;
40 with Debug; use Debug;
41 with Nlists; use Nlists;
42 with Output; use Output;
43 with Sinput; use Sinput;
44 with Tree_IO; use Tree_IO;
48 Reporting_Proc : Report_Proc := null;
49 -- Record argument to last call to Set_Reporting_Proc
55 -- Suppose you find that node 12345 is messed up. You might want to find
56 -- the code that created that node. There are two ways to do this:
58 -- One way is to set a conditional breakpoint on New_Node_Debugging_Output
60 -- break nnd if n = 12345
61 -- and run gnat1 again from the beginning.
63 -- The other way is to set a breakpoint near the beginning (e.g. on
64 -- gnat1drv), and run. Then set Watch_Node (nickname "ww") to 12345 in gdb:
66 -- and set a breakpoint on New_Node_Breakpoint (nickname "nn"). Continue.
68 -- Either way, gnat1 will stop when node 12345 is created
70 -- The second method is much faster
72 -- Similarly, rr and rrd allow breaking on rewriting of a given node
74 ww : Node_Id'Base := Node_Id'First - 1;
75 pragma Export (Ada, ww); -- trick the optimizer
76 Watch_Node : Node_Id'Base renames ww;
77 -- Node to "watch"; that is, whenever a node is created, we check if it
78 -- is equal to Watch_Node, and if so, call New_Node_Breakpoint. You have
79 -- presumably set a breakpoint on New_Node_Breakpoint. Note that the
80 -- initial value of Node_Id'First - 1 ensures that by default, no node
81 -- will be equal to Watch_Node.
84 pragma Export (Ada, nn);
85 procedure New_Node_Breakpoint renames nn;
86 -- This doesn't do anything interesting; it's just for setting breakpoint
87 -- on as explained above.
89 procedure nnd (N : Node_Id);
90 pragma Export (Ada, nnd);
91 procedure New_Node_Debugging_Output (N : Node_Id) renames nnd;
92 -- For debugging. If debugging is turned on, New_Node and New_Entity call
93 -- this. If debug flag N is turned on, this prints out the new node.
95 -- If Node = Watch_Node, this prints out the new node and calls
96 -- New_Node_Breakpoint. Otherwise, does nothing.
99 pragma Export (Ada, rr);
100 procedure Rewrite_Breakpoint renames rr;
101 -- This doesn't do anything interesting; it's just for setting breakpoint
102 -- on as explained above.
104 procedure rrd (Old_Node, New_Node : Node_Id);
105 pragma Export (Ada, rrd);
106 procedure Rewrite_Debugging_Output
107 (Old_Node, New_Node : Node_Id) renames rrd;
108 -- For debugging. If debugging is turned on, Rewrite calls this. If debug
109 -- flag N is turned on, this prints out the new node.
111 -- If Old_Node = Watch_Node, this prints out the old and new nodes and
112 -- calls Rewrite_Breakpoint. Otherwise, does nothing.
114 procedure Node_Debug_Output (Op : String; N : Node_Id);
115 -- Common code for nnd and rrd, writes Op followed by information about N
117 -----------------------------
118 -- Local Objects and Types --
119 -----------------------------
122 -- Count allocated nodes for Num_Nodes function
124 use Unchecked_Access;
125 -- We are allowed to see these from within our own body!
127 use Atree_Private_Part;
128 -- We are also allowed to see our private data structures!
130 -- Functions used to store Entity_Kind value in Nkind field
132 -- The following declarations are used to store flags 65-72 in the
133 -- Nkind field of the third component of an extended (entity) node.
135 type Flag_Byte is record
146 pragma Pack (Flag_Byte);
147 for Flag_Byte'Size use 8;
149 type Flag_Byte_Ptr is access all Flag_Byte;
150 type Node_Kind_Ptr is access all Node_Kind;
152 function To_Flag_Byte is new
153 Unchecked_Conversion (Node_Kind, Flag_Byte);
155 function To_Flag_Byte_Ptr is new
156 Unchecked_Conversion (Node_Kind_Ptr, Flag_Byte_Ptr);
158 -- The following declarations are used to store flags 239-246 in the
159 -- Nkind field of the fourth component of an extended (entity) node.
161 type Flag_Byte2 is record
172 pragma Pack (Flag_Byte2);
173 for Flag_Byte2'Size use 8;
175 type Flag_Byte2_Ptr is access all Flag_Byte2;
177 function To_Flag_Byte2 is new
178 Unchecked_Conversion (Node_Kind, Flag_Byte2);
180 function To_Flag_Byte2_Ptr is new
181 Unchecked_Conversion (Node_Kind_Ptr, Flag_Byte2_Ptr);
183 -- The following declarations are used to store flags 247-254 in the
184 -- Nkind field of the fifth component of an extended (entity) node.
186 type Flag_Byte3 is record
197 pragma Pack (Flag_Byte3);
198 for Flag_Byte3'Size use 8;
200 type Flag_Byte3_Ptr is access all Flag_Byte3;
202 function To_Flag_Byte3 is new
203 Unchecked_Conversion (Node_Kind, Flag_Byte3);
205 function To_Flag_Byte3_Ptr is new
206 Unchecked_Conversion (Node_Kind_Ptr, Flag_Byte3_Ptr);
208 -- The following declarations are used to store flags 310-317 in the
209 -- Nkind field of the sixth component of an extended (entity) node.
211 type Flag_Byte4 is record
222 pragma Pack (Flag_Byte4);
223 for Flag_Byte4'Size use 8;
225 type Flag_Byte4_Ptr is access all Flag_Byte4;
227 function To_Flag_Byte4 is new
228 Unchecked_Conversion (Node_Kind, Flag_Byte4);
230 function To_Flag_Byte4_Ptr is new
231 Unchecked_Conversion (Node_Kind_Ptr, Flag_Byte4_Ptr);
233 -- The following declarations are used to store flags 73-96 and the
234 -- Convention field in the Field12 field of the third component of an
235 -- extended (Entity) node.
237 type Flag_Word is record
265 Convention : Convention_Id;
268 pragma Pack (Flag_Word);
269 for Flag_Word'Size use 32;
270 for Flag_Word'Alignment use 4;
272 type Flag_Word_Ptr is access all Flag_Word;
273 type Union_Id_Ptr is access all Union_Id;
275 function To_Flag_Word is new
276 Unchecked_Conversion (Union_Id, Flag_Word);
278 function To_Flag_Word_Ptr is new
279 Unchecked_Conversion (Union_Id_Ptr, Flag_Word_Ptr);
281 -- The following declarations are used to store flags 97-128 in the
282 -- Field12 field of the fourth component of an extended (entity) node.
284 type Flag_Word2 is record
322 pragma Pack (Flag_Word2);
323 for Flag_Word2'Size use 32;
324 for Flag_Word2'Alignment use 4;
326 type Flag_Word2_Ptr is access all Flag_Word2;
328 function To_Flag_Word2 is new
329 Unchecked_Conversion (Union_Id, Flag_Word2);
331 function To_Flag_Word2_Ptr is new
332 Unchecked_Conversion (Union_Id_Ptr, Flag_Word2_Ptr);
334 -- The following declarations are used to store flags 152-183 in the
335 -- Field11 field of the fourth component of an extended (entity) node.
337 type Flag_Word3 is record
375 pragma Pack (Flag_Word3);
376 for Flag_Word3'Size use 32;
377 for Flag_Word3'Alignment use 4;
379 type Flag_Word3_Ptr is access all Flag_Word3;
381 function To_Flag_Word3 is new
382 Unchecked_Conversion (Union_Id, Flag_Word3);
384 function To_Flag_Word3_Ptr is new
385 Unchecked_Conversion (Union_Id_Ptr, Flag_Word3_Ptr);
387 -- The following declarations are used to store flags 184-215 in the
388 -- Field12 field of the fifth component of an extended (entity) node.
390 type Flag_Word4 is record
428 pragma Pack (Flag_Word4);
429 for Flag_Word4'Size use 32;
430 for Flag_Word4'Alignment use 4;
432 type Flag_Word4_Ptr is access all Flag_Word4;
434 function To_Flag_Word4 is new
435 Unchecked_Conversion (Union_Id, Flag_Word4);
437 function To_Flag_Word4_Ptr is new
438 Unchecked_Conversion (Union_Id_Ptr, Flag_Word4_Ptr);
440 -- The following declarations are used to store flags 255-286 in the
441 -- Field12 field of the sixth component of an extended (entity) node.
443 type Flag_Word5 is record
481 pragma Pack (Flag_Word5);
482 for Flag_Word5'Size use 32;
483 for Flag_Word5'Alignment use 4;
485 type Flag_Word5_Ptr is access all Flag_Word5;
487 function To_Flag_Word5 is new
488 Unchecked_Conversion (Union_Id, Flag_Word5);
490 function To_Flag_Word5_Ptr is new
491 Unchecked_Conversion (Union_Id_Ptr, Flag_Word5_Ptr);
493 --------------------------------------------------
494 -- Implementation of Tree Substitution Routines --
495 --------------------------------------------------
497 -- A separate table keeps track of the mapping between rewritten nodes
498 -- and their corresponding original tree nodes. Rewrite makes an entry
499 -- in this table for use by Original_Node. By default, if no call is
500 -- Rewrite, the entry in this table points to the original unwritten node.
502 -- Note: eventually, this should be a field in the Node directly, but
503 -- for now we do not want to disturb the efficiency of a power of 2
506 package Orig_Nodes is new Table.Table (
507 Table_Component_Type => Node_Id,
508 Table_Index_Type => Node_Id'Base,
509 Table_Low_Bound => First_Node_Id,
510 Table_Initial => Alloc.Orig_Nodes_Initial,
511 Table_Increment => Alloc.Orig_Nodes_Increment,
512 Table_Name => "Orig_Nodes");
514 --------------------------
515 -- Paren_Count Handling --
516 --------------------------
518 -- As noted in the spec, the paren count in a sub-expression node has
519 -- four possible values 0,1,2, and 3. The value 3 really means 3 or more,
520 -- and we use an auxiliary serially scanned table to record the actual
521 -- count. A serial search is fine, only pathological programs will use
522 -- entries in this table. Normal programs won't use it at all.
524 type Paren_Count_Entry is record
526 -- The node to which this count applies
528 Count : Nat range 3 .. Nat'Last;
529 -- The count of parentheses, which will be in the indicated range
532 package Paren_Counts is new Table.Table (
533 Table_Component_Type => Paren_Count_Entry,
534 Table_Index_Type => Int,
535 Table_Low_Bound => 0,
537 Table_Increment => 200,
538 Table_Name => "Paren_Counts");
540 -----------------------
541 -- Local Subprograms --
542 -----------------------
544 procedure Fix_Parents (Ref_Node, Fix_Node : Node_Id);
545 -- Fixup parent pointers for the syntactic children of Fix_Node after
546 -- a copy, setting them to Fix_Node when they pointed to Ref_Node.
548 function Allocate_Initialize_Node
550 With_Extension : Boolean) return Node_Id;
551 -- Allocate a new node or node extension. If Src is not empty, the
552 -- information for the newly-allocated node is copied from it.
554 ------------------------------
555 -- Allocate_Initialize_Node --
556 ------------------------------
558 function Allocate_Initialize_Node
560 With_Extension : Boolean) return Node_Id
566 and then not Has_Extension (Src)
567 and then With_Extension
568 and then Src = Nodes.Last
572 -- We are allocating a new node, or extending a node
573 -- other than Nodes.Last.
575 if Present (Src) then
576 Nodes.Append (Nodes.Table (Src));
578 Nodes.Append (Default_Node);
581 New_Id := Nodes.Last;
582 Orig_Nodes.Append (New_Id);
583 Node_Count := Node_Count + 1;
586 -- Specifically copy Paren_Count to deal with creating new table entry
587 -- if the parentheses count is at the maximum possible value already.
589 if Present (Src) and then Nkind (Src) in N_Subexpr then
590 Set_Paren_Count (New_Id, Paren_Count (Src));
593 -- Set extension nodes if required
595 if With_Extension then
596 if Present (Src) and then Has_Extension (Src) then
597 for J in 1 .. Num_Extension_Nodes loop
598 Nodes.Append (Nodes.Table (Src + Node_Id (J)));
601 for J in 1 .. Num_Extension_Nodes loop
602 Nodes.Append (Default_Node_Extension);
607 Orig_Nodes.Set_Last (Nodes.Last);
608 Allocate_List_Tables (Nodes.Last);
610 -- Invoke the reporting procedure (if available)
612 if Reporting_Proc /= null then
613 Reporting_Proc.all (Target => New_Id, Source => Src);
617 end Allocate_Initialize_Node;
623 function Analyzed (N : Node_Id) return Boolean is
625 pragma Assert (N <= Nodes.Last);
626 return Nodes.Table (N).Analyzed;
629 --------------------------
630 -- Basic_Set_Convention --
631 --------------------------
633 procedure Basic_Set_Convention (E : Entity_Id; Val : Convention_Id) is
635 pragma Assert (Nkind (E) in N_Entity);
638 (Nodes.Table (E + 2).Field12'Unrestricted_Access)).Convention := Val;
639 end Basic_Set_Convention;
641 --------------------------
642 -- Check_Error_Detected --
643 --------------------------
645 procedure Check_Error_Detected is
647 -- An anomaly has been detected which is assumed to be a consequence of
648 -- a previous serious error or configurable run time violation. Raise
649 -- an exception if no such error has been detected.
651 if Serious_Errors_Detected = 0
652 and then Configurable_Run_Time_Violations = 0
656 end Check_Error_Detected;
662 procedure Change_Node (N : Node_Id; New_Node_Kind : Node_Kind) is
663 Save_Sloc : constant Source_Ptr := Sloc (N);
664 Save_In_List : constant Boolean := Nodes.Table (N).In_List;
665 Save_Link : constant Union_Id := Nodes.Table (N).Link;
666 Save_CFS : constant Boolean := Nodes.Table (N).Comes_From_Source;
667 Save_Posted : constant Boolean := Nodes.Table (N).Error_Posted;
668 Par_Count : Nat := 0;
671 if Nkind (N) in N_Subexpr then
672 Par_Count := Paren_Count (N);
675 Nodes.Table (N) := Default_Node;
676 Nodes.Table (N).Sloc := Save_Sloc;
677 Nodes.Table (N).In_List := Save_In_List;
678 Nodes.Table (N).Link := Save_Link;
679 Nodes.Table (N).Comes_From_Source := Save_CFS;
680 Nodes.Table (N).Nkind := New_Node_Kind;
681 Nodes.Table (N).Error_Posted := Save_Posted;
683 if New_Node_Kind in N_Subexpr then
684 Set_Paren_Count (N, Par_Count);
688 -----------------------
689 -- Comes_From_Source --
690 -----------------------
692 function Comes_From_Source (N : Node_Id) return Boolean is
694 pragma Assert (N <= Nodes.Last);
695 return Nodes.Table (N).Comes_From_Source;
696 end Comes_From_Source;
702 function Convention (E : Entity_Id) return Convention_Id is
704 pragma Assert (Nkind (E) in N_Entity);
705 return To_Flag_Word (Nodes.Table (E + 2).Field12).Convention;
712 procedure Copy_Node (Source : Node_Id; Destination : Node_Id) is
713 Save_In_List : constant Boolean := Nodes.Table (Destination).In_List;
714 Save_Link : constant Union_Id := Nodes.Table (Destination).Link;
717 Nodes.Table (Destination) := Nodes.Table (Source);
718 Nodes.Table (Destination).In_List := Save_In_List;
719 Nodes.Table (Destination).Link := Save_Link;
721 -- Specifically set Paren_Count to make sure auxiliary table entry
722 -- gets correctly made if the parentheses count is at the max value.
724 if Nkind (Destination) in N_Subexpr then
725 Set_Paren_Count (Destination, Paren_Count (Source));
728 -- Deal with copying extension nodes if present
730 if Has_Extension (Source) then
731 pragma Assert (Has_Extension (Destination));
732 Nodes.Table (Destination + 1) := Nodes.Table (Source + 1);
733 Nodes.Table (Destination + 2) := Nodes.Table (Source + 2);
734 Nodes.Table (Destination + 3) := Nodes.Table (Source + 3);
735 Nodes.Table (Destination + 4) := Nodes.Table (Source + 4);
738 pragma Assert (not Has_Extension (Source));
743 ------------------------
744 -- Copy_Separate_List --
745 ------------------------
747 function Copy_Separate_List (Source : List_Id) return List_Id is
748 Result : constant List_Id := New_List;
752 Nod := First (Source);
753 while Present (Nod) loop
754 Append (Copy_Separate_Tree (Nod), Result);
759 end Copy_Separate_List;
761 ------------------------
762 -- Copy_Separate_Tree --
763 ------------------------
765 function Copy_Separate_Tree (Source : Node_Id) return Node_Id is
768 function Copy_Entity (E : Entity_Id) return Entity_Id;
769 -- Copy Entity, copying only the Ekind and Chars fields
771 function Copy_List (List : List_Id) return List_Id;
774 function Possible_Copy (Field : Union_Id) return Union_Id;
775 -- Given a field, returns a copy of the node or list if its parent
776 -- is the current source node, and otherwise returns the input
782 function Copy_Entity (E : Entity_Id) return Entity_Id is
786 case N_Entity (Nkind (E)) is
787 when N_Defining_Identifier =>
788 New_Ent := New_Entity (N_Defining_Identifier, Sloc (E));
790 when N_Defining_Character_Literal =>
791 New_Ent := New_Entity (N_Defining_Character_Literal, Sloc (E));
793 when N_Defining_Operator_Symbol =>
794 New_Ent := New_Entity (N_Defining_Operator_Symbol, Sloc (E));
797 Set_Chars (New_Ent, Chars (E));
805 function Copy_List (List : List_Id) return List_Id is
810 if List = No_List then
817 while Present (E) loop
818 if Has_Extension (E) then
819 Append (Copy_Entity (E), NL);
821 Append (Copy_Separate_Tree (E), NL);
835 function Possible_Copy (Field : Union_Id) return Union_Id is
839 if Field in Node_Range then
840 New_N := Union_Id (Copy_Separate_Tree (Node_Id (Field)));
842 if Parent (Node_Id (Field)) = Source then
843 Set_Parent (Node_Id (New_N), New_Id);
848 elsif Field in List_Range then
849 New_N := Union_Id (Copy_List (List_Id (Field)));
851 if Parent (List_Id (Field)) = Source then
852 Set_Parent (List_Id (New_N), New_Id);
862 -- Start of processing for Copy_Separate_Tree
865 if Source <= Empty_Or_Error then
868 elsif Has_Extension (Source) then
869 return Copy_Entity (Source);
872 New_Id := New_Copy (Source);
874 -- Recursively copy descendents
876 Set_Field1 (New_Id, Possible_Copy (Field1 (New_Id)));
877 Set_Field2 (New_Id, Possible_Copy (Field2 (New_Id)));
878 Set_Field3 (New_Id, Possible_Copy (Field3 (New_Id)));
879 Set_Field4 (New_Id, Possible_Copy (Field4 (New_Id)));
880 Set_Field5 (New_Id, Possible_Copy (Field5 (New_Id)));
882 -- Set Entity field to Empty to ensure that no entity references
883 -- are shared between the two, if the source is already analyzed.
885 if Nkind (New_Id) in N_Has_Entity
886 or else Nkind (New_Id) = N_Freeze_Entity
888 Set_Entity (New_Id, Empty);
891 -- All done, return copied node
895 end Copy_Separate_Tree;
901 function Ekind (E : Entity_Id) return Entity_Kind is
903 pragma Assert (Nkind (E) in N_Entity);
904 return N_To_E (Nodes.Table (E + 1).Nkind);
914 V2 : Entity_Kind) return Boolean
917 return T = V1 or else
925 V3 : Entity_Kind) return Boolean
928 return T = V1 or else
938 V4 : Entity_Kind) return Boolean
941 return T = V1 or else
953 V5 : Entity_Kind) return Boolean
956 return T = V1 or else
970 V6 : Entity_Kind) return Boolean
973 return T = V1 or else
984 V2 : Entity_Kind) return Boolean
987 return Ekind_In (Ekind (E), V1, V2);
994 V3 : Entity_Kind) return Boolean
997 return Ekind_In (Ekind (E), V1, V2, V3);
1005 V4 : Entity_Kind) return Boolean
1008 return Ekind_In (Ekind (E), V1, V2, V3, V4);
1017 V5 : Entity_Kind) return Boolean
1020 return Ekind_In (Ekind (E), V1, V2, V3, V4, V5);
1030 V6 : Entity_Kind) return Boolean
1033 return Ekind_In (Ekind (E), V1, V2, V3, V4, V5, V6);
1036 ------------------------
1037 -- Set_Reporting_Proc --
1038 ------------------------
1040 procedure Set_Reporting_Proc (P : Report_Proc) is
1042 pragma Assert (Reporting_Proc = null);
1043 Reporting_Proc := P;
1044 end Set_Reporting_Proc;
1050 function Error_Posted (N : Node_Id) return Boolean is
1052 pragma Assert (N <= Nodes.Last);
1053 return Nodes.Table (N).Error_Posted;
1056 -----------------------
1057 -- Exchange_Entities --
1058 -----------------------
1060 procedure Exchange_Entities (E1 : Entity_Id; E2 : Entity_Id) is
1061 Temp_Ent : Node_Record;
1064 pragma Assert (Has_Extension (E1)
1065 and then Has_Extension (E2)
1066 and then not Nodes.Table (E1).In_List
1067 and then not Nodes.Table (E2).In_List);
1069 -- Exchange the contents of the two entities
1071 Temp_Ent := Nodes.Table (E1);
1072 Nodes.Table (E1) := Nodes.Table (E2);
1073 Nodes.Table (E2) := Temp_Ent;
1074 Temp_Ent := Nodes.Table (E1 + 1);
1075 Nodes.Table (E1 + 1) := Nodes.Table (E2 + 1);
1076 Nodes.Table (E2 + 1) := Temp_Ent;
1077 Temp_Ent := Nodes.Table (E1 + 2);
1078 Nodes.Table (E1 + 2) := Nodes.Table (E2 + 2);
1079 Nodes.Table (E2 + 2) := Temp_Ent;
1080 Temp_Ent := Nodes.Table (E1 + 3);
1081 Nodes.Table (E1 + 3) := Nodes.Table (E2 + 3);
1082 Nodes.Table (E2 + 3) := Temp_Ent;
1083 Temp_Ent := Nodes.Table (E1 + 4);
1084 Nodes.Table (E1 + 4) := Nodes.Table (E2 + 4);
1085 Nodes.Table (E2 + 4) := Temp_Ent;
1087 -- That exchange exchanged the parent pointers as well, which is what
1088 -- we want, but we need to patch up the defining identifier pointers
1089 -- in the parent nodes (the child pointers) to match this switch
1090 -- unless for Implicit types entities which have no parent, in which
1091 -- case we don't do anything otherwise we won't be able to revert back
1092 -- to the original situation.
1094 -- Shouldn't this use Is_Itype instead of the Parent test
1096 if Present (Parent (E1)) and then Present (Parent (E2)) then
1097 Set_Defining_Identifier (Parent (E1), E1);
1098 Set_Defining_Identifier (Parent (E2), E2);
1100 end Exchange_Entities;
1106 function Extend_Node (Node : Node_Id) return Entity_Id is
1109 procedure Debug_Extend_Node;
1110 pragma Inline (Debug_Extend_Node);
1111 -- Debug routine for debug flag N
1113 -----------------------
1114 -- Debug_Extend_Node --
1115 -----------------------
1117 procedure Debug_Extend_Node is
1119 if Debug_Flag_N then
1120 Write_Str ("Extend node ");
1121 Write_Int (Int (Node));
1123 if Result = Node then
1124 Write_Str (" in place");
1126 Write_Str (" copied to ");
1127 Write_Int (Int (Result));
1132 end Debug_Extend_Node;
1134 -- Start of processing for Extend_Node
1137 pragma Assert (not (Has_Extension (Node)));
1138 Result := Allocate_Initialize_Node (Node, With_Extension => True);
1139 pragma Debug (Debug_Extend_Node);
1147 procedure Fix_Parents (Ref_Node, Fix_Node : Node_Id) is
1149 procedure Fix_Parent (Field : Union_Id);
1150 -- Fixup one parent pointer. Field is checked to see if it points to
1151 -- a node, list, or element list that has a parent that points to
1152 -- Ref_Node. If so, the parent is reset to point to Fix_Node.
1158 procedure Fix_Parent (Field : Union_Id) is
1160 -- Fix parent of node that is referenced by Field. Note that we must
1161 -- exclude the case where the node is a member of a list, because in
1162 -- this case the parent is the parent of the list.
1164 if Field in Node_Range
1165 and then Present (Node_Id (Field))
1166 and then not Nodes.Table (Node_Id (Field)).In_List
1167 and then Parent (Node_Id (Field)) = Ref_Node
1169 Set_Parent (Node_Id (Field), Fix_Node);
1171 -- Fix parent of list that is referenced by Field
1173 elsif Field in List_Range
1174 and then Present (List_Id (Field))
1175 and then Parent (List_Id (Field)) = Ref_Node
1177 Set_Parent (List_Id (Field), Fix_Node);
1181 -- Start of processing for Fix_Parents
1184 Fix_Parent (Field1 (Fix_Node));
1185 Fix_Parent (Field2 (Fix_Node));
1186 Fix_Parent (Field3 (Fix_Node));
1187 Fix_Parent (Field4 (Fix_Node));
1188 Fix_Parent (Field5 (Fix_Node));
1191 -----------------------------------
1192 -- Get_Comes_From_Source_Default --
1193 -----------------------------------
1195 function Get_Comes_From_Source_Default return Boolean is
1197 return Default_Node.Comes_From_Source;
1198 end Get_Comes_From_Source_Default;
1204 function Has_Aspects (N : Node_Id) return Boolean is
1206 pragma Assert (N <= Nodes.Last);
1207 return Nodes.Table (N).Has_Aspects;
1214 function Has_Extension (N : Node_Id) return Boolean is
1216 return N < Nodes.Last and then Nodes.Table (N + 1).Is_Extension;
1223 procedure Initialize is
1225 pragma Warnings (Off, Dummy);
1229 Atree_Private_Part.Nodes.Init;
1233 -- Allocate Empty node
1235 Dummy := New_Node (N_Empty, No_Location);
1236 Set_Name1 (Empty, No_Name);
1238 -- Allocate Error node, and set Error_Posted, since we certainly
1239 -- only generate an Error node if we do post some kind of error!
1241 Dummy := New_Node (N_Error, No_Location);
1242 Set_Name1 (Error, Error_Name);
1243 Set_Error_Posted (Error, True);
1246 --------------------------
1247 -- Is_Rewrite_Insertion --
1248 --------------------------
1250 function Is_Rewrite_Insertion (Node : Node_Id) return Boolean is
1252 return Nodes.Table (Node).Rewrite_Ins;
1253 end Is_Rewrite_Insertion;
1255 -----------------------------
1256 -- Is_Rewrite_Substitution --
1257 -----------------------------
1259 function Is_Rewrite_Substitution (Node : Node_Id) return Boolean is
1261 return Orig_Nodes.Table (Node) /= Node;
1262 end Is_Rewrite_Substitution;
1268 function Last_Node_Id return Node_Id is
1279 Nodes.Locked := True;
1280 Orig_Nodes.Locked := True;
1285 ----------------------------
1286 -- Mark_Rewrite_Insertion --
1287 ----------------------------
1289 procedure Mark_Rewrite_Insertion (New_Node : Node_Id) is
1291 Nodes.Table (New_Node).Rewrite_Ins := True;
1292 end Mark_Rewrite_Insertion;
1298 function New_Copy (Source : Node_Id) return Node_Id is
1299 New_Id : Node_Id := Source;
1302 if Source > Empty_Or_Error then
1303 New_Id := Allocate_Initialize_Node (Source, Has_Extension (Source));
1305 Nodes.Table (New_Id).Link := Empty_List_Or_Node;
1306 Nodes.Table (New_Id).In_List := False;
1308 -- If the original is marked as a rewrite insertion, then unmark the
1309 -- copy, since we inserted the original, not the copy.
1311 Nodes.Table (New_Id).Rewrite_Ins := False;
1312 pragma Debug (New_Node_Debugging_Output (New_Id));
1314 -- Clear Is_Overloaded since we cannot have semantic interpretations
1315 -- of this new node.
1317 if Nkind (Source) in N_Subexpr then
1318 Set_Is_Overloaded (New_Id, False);
1321 -- Always clear Has_Aspects, the caller must take care of copying
1322 -- aspects if this is required for the particular situation.
1324 Set_Has_Aspects (New_Id, False);
1335 (New_Node_Kind : Node_Kind;
1336 New_Sloc : Source_Ptr) return Entity_Id
1341 pragma Assert (New_Node_Kind in N_Entity);
1343 Ent := Allocate_Initialize_Node (Empty, With_Extension => True);
1345 -- If this is a node with a real location and we are generating
1346 -- source nodes, then reset Current_Error_Node. This is useful
1347 -- if we bomb during parsing to get a error location for the bomb.
1349 if Default_Node.Comes_From_Source and then New_Sloc > No_Location then
1350 Current_Error_Node := Ent;
1353 Nodes.Table (Ent).Nkind := New_Node_Kind;
1354 Nodes.Table (Ent).Sloc := New_Sloc;
1355 pragma Debug (New_Node_Debugging_Output (Ent));
1365 (New_Node_Kind : Node_Kind;
1366 New_Sloc : Source_Ptr) return Node_Id
1371 pragma Assert (New_Node_Kind not in N_Entity);
1372 Nod := Allocate_Initialize_Node (Empty, With_Extension => False);
1373 Nodes.Table (Nod).Nkind := New_Node_Kind;
1374 Nodes.Table (Nod).Sloc := New_Sloc;
1375 pragma Debug (New_Node_Debugging_Output (Nod));
1377 -- If this is a node with a real location and we are generating source
1378 -- nodes, then reset Current_Error_Node. This is useful if we bomb
1379 -- during parsing to get an error location for the bomb.
1381 if Default_Node.Comes_From_Source and then New_Sloc > No_Location then
1382 Current_Error_Node := Nod;
1388 -------------------------
1389 -- New_Node_Breakpoint --
1390 -------------------------
1394 Write_Str ("Watched node ");
1395 Write_Int (Int (Watch_Node));
1396 Write_Str (" created");
1400 -------------------------------
1401 -- New_Node_Debugging_Output --
1402 -------------------------------
1404 procedure nnd (N : Node_Id) is
1405 Node_Is_Watched : constant Boolean := N = Watch_Node;
1408 if Debug_Flag_N or else Node_Is_Watched then
1409 Node_Debug_Output ("Allocate", N);
1411 if Node_Is_Watched then
1412 New_Node_Breakpoint;
1421 function Nkind (N : Node_Id) return Node_Kind is
1423 return Nodes.Table (N).Nkind;
1433 V2 : Node_Kind) return Boolean
1436 return Nkind_In (Nkind (N), V1, V2);
1443 V3 : Node_Kind) return Boolean
1446 return Nkind_In (Nkind (N), V1, V2, V3);
1454 V4 : Node_Kind) return Boolean
1457 return Nkind_In (Nkind (N), V1, V2, V3, V4);
1466 V5 : Node_Kind) return Boolean
1469 return Nkind_In (Nkind (N), V1, V2, V3, V4, V5);
1479 V6 : Node_Kind) return Boolean
1482 return Nkind_In (Nkind (N), V1, V2, V3, V4, V5, V6);
1493 V7 : Node_Kind) return Boolean
1496 return Nkind_In (Nkind (N), V1, V2, V3, V4, V5, V6, V7);
1508 V8 : Node_Kind) return Boolean
1511 return Nkind_In (Nkind (N), V1, V2, V3, V4, V5, V6, V7, V8);
1524 V9 : Node_Kind) return Boolean
1527 return Nkind_In (Nkind (N), V1, V2, V3, V4, V5, V6, V7, V8, V9);
1534 function No (N : Node_Id) return Boolean is
1539 -----------------------
1540 -- Node_Debug_Output --
1541 -----------------------
1543 procedure Node_Debug_Output (Op : String; N : Node_Id) is
1547 if Nkind (N) in N_Entity then
1548 Write_Str (" entity");
1550 Write_Str (" node");
1553 Write_Str (" Id = ");
1554 Write_Int (Int (N));
1556 Write_Location (Sloc (N));
1558 Write_Str (Node_Kind'Image (Nkind (N)));
1560 end Node_Debug_Output;
1566 function Nodes_Address return System.Address is
1568 return Nodes.Table (First_Node_Id)'Address;
1575 function Num_Nodes return Nat is
1584 function Original_Node (Node : Node_Id) return Node_Id is
1586 return Orig_Nodes.Table (Node);
1593 function Paren_Count (N : Node_Id) return Nat is
1597 pragma Assert (N <= Nodes.Last);
1599 if Nodes.Table (N).Pflag1 then
1603 if Nodes.Table (N).Pflag2 then
1607 -- Value of 0,1,2 returned as is
1612 -- Value of 3 means we search the table, and we must find an entry
1615 for J in Paren_Counts.First .. Paren_Counts.Last loop
1616 if N = Paren_Counts.Table (J).Nod then
1617 return Paren_Counts.Table (J).Count;
1621 raise Program_Error;
1629 function Parent (N : Node_Id) return Node_Id is
1631 if Is_List_Member (N) then
1632 return Parent (List_Containing (N));
1634 return Node_Id (Nodes.Table (N).Link);
1642 function Present (N : Node_Id) return Boolean is
1647 --------------------------------
1648 -- Preserve_Comes_From_Source --
1649 --------------------------------
1651 procedure Preserve_Comes_From_Source (NewN, OldN : Node_Id) is
1653 Nodes.Table (NewN).Comes_From_Source :=
1654 Nodes.Table (OldN).Comes_From_Source;
1655 end Preserve_Comes_From_Source;
1661 function Relocate_Node (Source : Node_Id) return Node_Id is
1669 New_Node := New_Copy (Source);
1670 Fix_Parents (Ref_Node => Source, Fix_Node => New_Node);
1672 -- We now set the parent of the new node to be the same as the
1673 -- parent of the source. Almost always this parent will be
1674 -- replaced by a new value when the relocated node is reattached
1675 -- to the tree, but by doing it now, we ensure that this node is
1676 -- not even temporarily disconnected from the tree. Note that this
1677 -- does not happen free, because in the list case, the parent does
1680 Set_Parent (New_Node, Parent (Source));
1682 -- If the node being relocated was a rewriting of some original
1683 -- node, then the relocated node has the same original node.
1685 if Orig_Nodes.Table (Source) /= Source then
1686 Orig_Nodes.Table (New_Node) := Orig_Nodes.Table (Source);
1696 procedure Replace (Old_Node, New_Node : Node_Id) is
1697 Old_Post : constant Boolean := Nodes.Table (Old_Node).Error_Posted;
1698 Old_HasA : constant Boolean := Nodes.Table (Old_Node).Has_Aspects;
1699 Old_CFS : constant Boolean := Nodes.Table (Old_Node).Comes_From_Source;
1703 (not Has_Extension (Old_Node)
1704 and not Has_Extension (New_Node)
1705 and not Nodes.Table (New_Node).In_List);
1707 -- Do copy, preserving link and in list status and required flags
1709 Copy_Node (Source => New_Node, Destination => Old_Node);
1710 Nodes.Table (Old_Node).Comes_From_Source := Old_CFS;
1711 Nodes.Table (Old_Node).Error_Posted := Old_Post;
1712 Nodes.Table (Old_Node).Has_Aspects := Old_HasA;
1714 -- Fix parents of substituted node, since it has changed identity
1716 Fix_Parents (Ref_Node => New_Node, Fix_Node => Old_Node);
1718 -- Since we are doing a replace, we assume that the original node
1719 -- is intended to become the new replaced node. The call would be
1720 -- to Rewrite if there were an intention to save the original node.
1722 Orig_Nodes.Table (Old_Node) := Old_Node;
1724 -- Invoke the reporting procedure (if available)
1726 if Reporting_Proc /= null then
1727 Reporting_Proc.all (Target => Old_Node, Source => New_Node);
1735 procedure Rewrite (Old_Node, New_Node : Node_Id) is
1736 Old_Error_P : constant Boolean := Nodes.Table (Old_Node).Error_Posted;
1737 -- This field is always preserved in the new node
1739 Old_Has_Aspects : constant Boolean := Nodes.Table (Old_Node).Has_Aspects;
1740 -- This field is always preserved in the new node
1742 Old_Paren_Count : Nat;
1743 Old_Must_Not_Freeze : Boolean;
1744 -- These fields are preserved in the new node only if the new node
1745 -- and the old node are both subexpression nodes.
1747 -- Note: it is a violation of abstraction levels for Must_Not_Freeze
1748 -- to be referenced like this. ???
1754 (not Has_Extension (Old_Node)
1755 and not Has_Extension (New_Node)
1756 and not Nodes.Table (New_Node).In_List);
1757 pragma Debug (Rewrite_Debugging_Output (Old_Node, New_Node));
1759 if Nkind (Old_Node) in N_Subexpr then
1760 Old_Paren_Count := Paren_Count (Old_Node);
1761 Old_Must_Not_Freeze := Must_Not_Freeze (Old_Node);
1763 Old_Paren_Count := 0;
1764 Old_Must_Not_Freeze := False;
1767 -- Allocate a new node, to be used to preserve the original contents
1768 -- of the Old_Node, for possible later retrival by Original_Node and
1769 -- make an entry in the Orig_Nodes table. This is only done if we have
1770 -- not already rewritten the node, as indicated by an Orig_Nodes entry
1771 -- that does not reference the Old_Node.
1773 if Orig_Nodes.Table (Old_Node) = Old_Node then
1774 Sav_Node := New_Copy (Old_Node);
1775 Orig_Nodes.Table (Sav_Node) := Sav_Node;
1776 Orig_Nodes.Table (Old_Node) := Sav_Node;
1778 -- Both the old and new copies of the node will share the same list
1779 -- of aspect specifications if aspect specifications are present.
1781 if Has_Aspects (Sav_Node) then
1782 Set_Has_Aspects (Sav_Node, False);
1783 Set_Aspect_Specifications
1784 (Sav_Node, Aspect_Specifications (Old_Node));
1788 -- Copy substitute node into place, preserving old fields as required
1790 Copy_Node (Source => New_Node, Destination => Old_Node);
1791 Nodes.Table (Old_Node).Error_Posted := Old_Error_P;
1792 Nodes.Table (Old_Node).Has_Aspects := Old_Has_Aspects;
1794 if Nkind (New_Node) in N_Subexpr then
1795 Set_Paren_Count (Old_Node, Old_Paren_Count);
1796 Set_Must_Not_Freeze (Old_Node, Old_Must_Not_Freeze);
1799 Fix_Parents (Ref_Node => New_Node, Fix_Node => Old_Node);
1801 -- Invoke the reporting procedure (if available)
1803 if Reporting_Proc /= null then
1804 Reporting_Proc.all (Target => Old_Node, Source => New_Node);
1808 -------------------------
1809 -- Rewrite_Breakpoint --
1810 -------------------------
1814 Write_Str ("Watched node ");
1815 Write_Int (Int (Watch_Node));
1816 Write_Str (" rewritten");
1820 ------------------------------
1821 -- Rewrite_Debugging_Output --
1822 ------------------------------
1824 procedure rrd (Old_Node, New_Node : Node_Id) is
1825 Node_Is_Watched : constant Boolean := Old_Node = Watch_Node;
1828 if Debug_Flag_N or else Node_Is_Watched then
1829 Node_Debug_Output ("Rewrite", Old_Node);
1830 Node_Debug_Output ("into", New_Node);
1832 if Node_Is_Watched then
1842 procedure Set_Analyzed (N : Node_Id; Val : Boolean := True) is
1844 Nodes.Table (N).Analyzed := Val;
1847 ---------------------------
1848 -- Set_Comes_From_Source --
1849 ---------------------------
1851 procedure Set_Comes_From_Source (N : Node_Id; Val : Boolean) is
1853 pragma Assert (N <= Nodes.Last);
1854 Nodes.Table (N).Comes_From_Source := Val;
1855 end Set_Comes_From_Source;
1857 -----------------------------------
1858 -- Set_Comes_From_Source_Default --
1859 -----------------------------------
1861 procedure Set_Comes_From_Source_Default (Default : Boolean) is
1863 Default_Node.Comes_From_Source := Default;
1864 end Set_Comes_From_Source_Default;
1870 procedure Set_Ekind (E : Entity_Id; Val : Entity_Kind) is
1872 pragma Assert (Nkind (E) in N_Entity);
1873 Nodes.Table (E + 1).Nkind := E_To_N (Val);
1876 ----------------------
1877 -- Set_Error_Posted --
1878 ----------------------
1880 procedure Set_Error_Posted (N : Node_Id; Val : Boolean := True) is
1882 Nodes.Table (N).Error_Posted := Val;
1883 end Set_Error_Posted;
1885 ---------------------
1886 -- Set_Has_Aspects --
1887 ---------------------
1889 procedure Set_Has_Aspects (N : Node_Id; Val : Boolean := True) is
1891 pragma Assert (N <= Nodes.Last);
1892 Nodes.Table (N).Has_Aspects := Val;
1893 end Set_Has_Aspects;
1895 -----------------------
1896 -- Set_Original_Node --
1897 -----------------------
1899 procedure Set_Original_Node (N : Node_Id; Val : Node_Id) is
1901 Orig_Nodes.Table (N) := Val;
1902 end Set_Original_Node;
1904 ---------------------
1905 -- Set_Paren_Count --
1906 ---------------------
1908 procedure Set_Paren_Count (N : Node_Id; Val : Nat) is
1910 pragma Assert (Nkind (N) in N_Subexpr);
1912 -- Value of 0,1,2 stored as is
1915 Nodes.Table (N).Pflag1 := (Val mod 2 /= 0);
1916 Nodes.Table (N).Pflag2 := (Val = 2);
1918 -- Value of 3 or greater stores 3 in node and makes table entry
1921 Nodes.Table (N).Pflag1 := True;
1922 Nodes.Table (N).Pflag2 := True;
1924 for J in Paren_Counts.First .. Paren_Counts.Last loop
1925 if N = Paren_Counts.Table (J).Nod then
1926 Paren_Counts.Table (J).Count := Val;
1931 Paren_Counts.Append ((Nod => N, Count => Val));
1933 end Set_Paren_Count;
1939 procedure Set_Parent (N : Node_Id; Val : Node_Id) is
1941 pragma Assert (not Nodes.Table (N).In_List);
1942 Nodes.Table (N).Link := Union_Id (Val);
1949 procedure Set_Sloc (N : Node_Id; Val : Source_Ptr) is
1951 Nodes.Table (N).Sloc := Val;
1958 function Sloc (N : Node_Id) return Source_Ptr is
1960 return Nodes.Table (N).Sloc;
1967 function Traverse_Func (Node : Node_Id) return Traverse_Final_Result is
1969 function Traverse_Field
1972 FN : Field_Num) return Traverse_Final_Result;
1973 -- Fld is one of the fields of Nod. If the field points to syntactic
1974 -- node or list, then this node or list is traversed, and the result is
1975 -- the result of this traversal. Otherwise a value of True is returned
1976 -- with no processing. FN is the number of the field (1 .. 5).
1978 --------------------
1979 -- Traverse_Field --
1980 --------------------
1982 function Traverse_Field
1985 FN : Field_Num) return Traverse_Final_Result
1988 if Fld = Union_Id (Empty) then
1991 -- Descendent is a node
1993 elsif Fld in Node_Range then
1995 -- Traverse descendent that is syntactic subtree node
1997 if Is_Syntactic_Field (Nkind (Nod), FN) then
1998 return Traverse_Func (Node_Id (Fld));
2000 -- Node that is not a syntactic subtree
2006 -- Descendent is a list
2008 elsif Fld in List_Range then
2010 -- Traverse descendent that is a syntactic subtree list
2012 if Is_Syntactic_Field (Nkind (Nod), FN) then
2014 Elmt : Node_Id := First (List_Id (Fld));
2017 while Present (Elmt) loop
2018 if Traverse_Func (Elmt) = Abandon then
2028 -- List that is not a syntactic subtree
2034 -- Field was not a node or a list
2041 Cur_Node : Node_Id := Node;
2043 -- Start of processing for Traverse_Func
2046 -- We walk Field2 last, and if it is a node, we eliminate the tail
2047 -- recursion by jumping back to this label. This is because Field2 is
2048 -- where the Left_Opnd field of N_Op_Concat is stored, and in practice
2049 -- concatenations are sometimes deeply nested, as in X1&X2&...&XN. This
2050 -- trick prevents us from running out of memory in that case. We don't
2051 -- bother eliminating the tail recursion if Field2 is a list.
2055 case Process (Cur_Node) is
2066 Cur_Node := Original_Node (Cur_Node);
2069 if Traverse_Field (Cur_Node, Field1 (Cur_Node), 1) = Abandon
2070 or else -- skip Field2 here
2071 Traverse_Field (Cur_Node, Field3 (Cur_Node), 3) = Abandon
2073 Traverse_Field (Cur_Node, Field4 (Cur_Node), 4) = Abandon
2075 Traverse_Field (Cur_Node, Field5 (Cur_Node), 5) = Abandon
2080 if Field2 (Cur_Node) not in Node_Range then
2081 return Traverse_Field (Cur_Node, Field2 (Cur_Node), 2);
2083 elsif Is_Syntactic_Field (Nkind (Cur_Node), 2)
2084 and then Field2 (Cur_Node) /= Empty_List_Or_Node
2086 -- Here is the tail recursion step, we reset Cur_Node and jump back
2087 -- to the start of the procedure, which has the same semantic effect
2090 Cur_Node := Node_Id (Field2 (Cur_Node));
2101 procedure Traverse_Proc (Node : Node_Id) is
2102 function Traverse is new Traverse_Func (Process);
2103 Discard : Traverse_Final_Result;
2104 pragma Warnings (Off, Discard);
2106 Discard := Traverse (Node);
2113 procedure Tree_Read is
2115 Tree_Read_Int (Node_Count);
2117 Orig_Nodes.Tree_Read;
2118 Paren_Counts.Tree_Read;
2125 procedure Tree_Write is
2127 Tree_Write_Int (Node_Count);
2129 Orig_Nodes.Tree_Write;
2130 Paren_Counts.Tree_Write;
2133 ------------------------------
2134 -- Unchecked Access Package --
2135 ------------------------------
2137 package body Unchecked_Access is
2139 function Field1 (N : Node_Id) return Union_Id is
2141 pragma Assert (N <= Nodes.Last);
2142 return Nodes.Table (N).Field1;
2145 function Field2 (N : Node_Id) return Union_Id is
2147 pragma Assert (N <= Nodes.Last);
2148 return Nodes.Table (N).Field2;
2151 function Field3 (N : Node_Id) return Union_Id is
2153 pragma Assert (N <= Nodes.Last);
2154 return Nodes.Table (N).Field3;
2157 function Field4 (N : Node_Id) return Union_Id is
2159 pragma Assert (N <= Nodes.Last);
2160 return Nodes.Table (N).Field4;
2163 function Field5 (N : Node_Id) return Union_Id is
2165 pragma Assert (N <= Nodes.Last);
2166 return Nodes.Table (N).Field5;
2169 function Field6 (N : Node_Id) return Union_Id is
2171 pragma Assert (Nkind (N) in N_Entity);
2172 return Nodes.Table (N + 1).Field6;
2175 function Field7 (N : Node_Id) return Union_Id is
2177 pragma Assert (Nkind (N) in N_Entity);
2178 return Nodes.Table (N + 1).Field7;
2181 function Field8 (N : Node_Id) return Union_Id is
2183 pragma Assert (Nkind (N) in N_Entity);
2184 return Nodes.Table (N + 1).Field8;
2187 function Field9 (N : Node_Id) return Union_Id is
2189 pragma Assert (Nkind (N) in N_Entity);
2190 return Nodes.Table (N + 1).Field9;
2193 function Field10 (N : Node_Id) return Union_Id is
2195 pragma Assert (Nkind (N) in N_Entity);
2196 return Nodes.Table (N + 1).Field10;
2199 function Field11 (N : Node_Id) return Union_Id is
2201 pragma Assert (Nkind (N) in N_Entity);
2202 return Nodes.Table (N + 1).Field11;
2205 function Field12 (N : Node_Id) return Union_Id is
2207 pragma Assert (Nkind (N) in N_Entity);
2208 return Nodes.Table (N + 1).Field12;
2211 function Field13 (N : Node_Id) return Union_Id is
2213 pragma Assert (Nkind (N) in N_Entity);
2214 return Nodes.Table (N + 2).Field6;
2217 function Field14 (N : Node_Id) return Union_Id is
2219 pragma Assert (Nkind (N) in N_Entity);
2220 return Nodes.Table (N + 2).Field7;
2223 function Field15 (N : Node_Id) return Union_Id is
2225 pragma Assert (Nkind (N) in N_Entity);
2226 return Nodes.Table (N + 2).Field8;
2229 function Field16 (N : Node_Id) return Union_Id is
2231 pragma Assert (Nkind (N) in N_Entity);
2232 return Nodes.Table (N + 2).Field9;
2235 function Field17 (N : Node_Id) return Union_Id is
2237 pragma Assert (Nkind (N) in N_Entity);
2238 return Nodes.Table (N + 2).Field10;
2241 function Field18 (N : Node_Id) return Union_Id is
2243 pragma Assert (Nkind (N) in N_Entity);
2244 return Nodes.Table (N + 2).Field11;
2247 function Field19 (N : Node_Id) return Union_Id is
2249 pragma Assert (Nkind (N) in N_Entity);
2250 return Nodes.Table (N + 3).Field6;
2253 function Field20 (N : Node_Id) return Union_Id is
2255 pragma Assert (Nkind (N) in N_Entity);
2256 return Nodes.Table (N + 3).Field7;
2259 function Field21 (N : Node_Id) return Union_Id is
2261 pragma Assert (Nkind (N) in N_Entity);
2262 return Nodes.Table (N + 3).Field8;
2265 function Field22 (N : Node_Id) return Union_Id is
2267 pragma Assert (Nkind (N) in N_Entity);
2268 return Nodes.Table (N + 3).Field9;
2271 function Field23 (N : Node_Id) return Union_Id is
2273 pragma Assert (Nkind (N) in N_Entity);
2274 return Nodes.Table (N + 3).Field10;
2277 function Field24 (N : Node_Id) return Union_Id is
2279 pragma Assert (Nkind (N) in N_Entity);
2280 return Nodes.Table (N + 4).Field6;
2283 function Field25 (N : Node_Id) return Union_Id is
2285 pragma Assert (Nkind (N) in N_Entity);
2286 return Nodes.Table (N + 4).Field7;
2289 function Field26 (N : Node_Id) return Union_Id is
2291 pragma Assert (Nkind (N) in N_Entity);
2292 return Nodes.Table (N + 4).Field8;
2295 function Field27 (N : Node_Id) return Union_Id is
2297 pragma Assert (Nkind (N) in N_Entity);
2298 return Nodes.Table (N + 4).Field9;
2301 function Field28 (N : Node_Id) return Union_Id is
2303 pragma Assert (Nkind (N) in N_Entity);
2304 return Nodes.Table (N + 4).Field10;
2307 function Field29 (N : Node_Id) return Union_Id is
2309 pragma Assert (Nkind (N) in N_Entity);
2310 return Nodes.Table (N + 4).Field11;
2313 function Field30 (N : Node_Id) return Union_Id is
2315 pragma Assert (Nkind (N) in N_Entity);
2316 return Nodes.Table (N + 5).Field6;
2319 function Field31 (N : Node_Id) return Union_Id is
2321 pragma Assert (Nkind (N) in N_Entity);
2322 return Nodes.Table (N + 5).Field7;
2325 function Field32 (N : Node_Id) return Union_Id is
2327 pragma Assert (Nkind (N) in N_Entity);
2328 return Nodes.Table (N + 5).Field8;
2331 function Field33 (N : Node_Id) return Union_Id is
2333 pragma Assert (Nkind (N) in N_Entity);
2334 return Nodes.Table (N + 5).Field9;
2337 function Field34 (N : Node_Id) return Union_Id is
2339 pragma Assert (Nkind (N) in N_Entity);
2340 return Nodes.Table (N + 5).Field10;
2343 function Field35 (N : Node_Id) return Union_Id is
2345 pragma Assert (Nkind (N) in N_Entity);
2346 return Nodes.Table (N + 5).Field11;
2349 function Node1 (N : Node_Id) return Node_Id is
2351 pragma Assert (N <= Nodes.Last);
2352 return Node_Id (Nodes.Table (N).Field1);
2355 function Node2 (N : Node_Id) return Node_Id is
2357 pragma Assert (N <= Nodes.Last);
2358 return Node_Id (Nodes.Table (N).Field2);
2361 function Node3 (N : Node_Id) return Node_Id is
2363 pragma Assert (N <= Nodes.Last);
2364 return Node_Id (Nodes.Table (N).Field3);
2367 function Node4 (N : Node_Id) return Node_Id is
2369 pragma Assert (N <= Nodes.Last);
2370 return Node_Id (Nodes.Table (N).Field4);
2373 function Node5 (N : Node_Id) return Node_Id is
2375 pragma Assert (N <= Nodes.Last);
2376 return Node_Id (Nodes.Table (N).Field5);
2379 function Node6 (N : Node_Id) return Node_Id is
2381 pragma Assert (Nkind (N) in N_Entity);
2382 return Node_Id (Nodes.Table (N + 1).Field6);
2385 function Node7 (N : Node_Id) return Node_Id is
2387 pragma Assert (Nkind (N) in N_Entity);
2388 return Node_Id (Nodes.Table (N + 1).Field7);
2391 function Node8 (N : Node_Id) return Node_Id is
2393 pragma Assert (Nkind (N) in N_Entity);
2394 return Node_Id (Nodes.Table (N + 1).Field8);
2397 function Node9 (N : Node_Id) return Node_Id is
2399 pragma Assert (Nkind (N) in N_Entity);
2400 return Node_Id (Nodes.Table (N + 1).Field9);
2403 function Node10 (N : Node_Id) return Node_Id is
2405 pragma Assert (Nkind (N) in N_Entity);
2406 return Node_Id (Nodes.Table (N + 1).Field10);
2409 function Node11 (N : Node_Id) return Node_Id is
2411 pragma Assert (Nkind (N) in N_Entity);
2412 return Node_Id (Nodes.Table (N + 1).Field11);
2415 function Node12 (N : Node_Id) return Node_Id is
2417 pragma Assert (Nkind (N) in N_Entity);
2418 return Node_Id (Nodes.Table (N + 1).Field12);
2421 function Node13 (N : Node_Id) return Node_Id is
2423 pragma Assert (Nkind (N) in N_Entity);
2424 return Node_Id (Nodes.Table (N + 2).Field6);
2427 function Node14 (N : Node_Id) return Node_Id is
2429 pragma Assert (Nkind (N) in N_Entity);
2430 return Node_Id (Nodes.Table (N + 2).Field7);
2433 function Node15 (N : Node_Id) return Node_Id is
2435 pragma Assert (Nkind (N) in N_Entity);
2436 return Node_Id (Nodes.Table (N + 2).Field8);
2439 function Node16 (N : Node_Id) return Node_Id is
2441 pragma Assert (Nkind (N) in N_Entity);
2442 return Node_Id (Nodes.Table (N + 2).Field9);
2445 function Node17 (N : Node_Id) return Node_Id is
2447 pragma Assert (Nkind (N) in N_Entity);
2448 return Node_Id (Nodes.Table (N + 2).Field10);
2451 function Node18 (N : Node_Id) return Node_Id is
2453 pragma Assert (Nkind (N) in N_Entity);
2454 return Node_Id (Nodes.Table (N + 2).Field11);
2457 function Node19 (N : Node_Id) return Node_Id is
2459 pragma Assert (Nkind (N) in N_Entity);
2460 return Node_Id (Nodes.Table (N + 3).Field6);
2463 function Node20 (N : Node_Id) return Node_Id is
2465 pragma Assert (Nkind (N) in N_Entity);
2466 return Node_Id (Nodes.Table (N + 3).Field7);
2469 function Node21 (N : Node_Id) return Node_Id is
2471 pragma Assert (Nkind (N) in N_Entity);
2472 return Node_Id (Nodes.Table (N + 3).Field8);
2475 function Node22 (N : Node_Id) return Node_Id is
2477 pragma Assert (Nkind (N) in N_Entity);
2478 return Node_Id (Nodes.Table (N + 3).Field9);
2481 function Node23 (N : Node_Id) return Node_Id is
2483 pragma Assert (Nkind (N) in N_Entity);
2484 return Node_Id (Nodes.Table (N + 3).Field10);
2487 function Node24 (N : Node_Id) return Node_Id is
2489 pragma Assert (Nkind (N) in N_Entity);
2490 return Node_Id (Nodes.Table (N + 4).Field6);
2493 function Node25 (N : Node_Id) return Node_Id is
2495 pragma Assert (Nkind (N) in N_Entity);
2496 return Node_Id (Nodes.Table (N + 4).Field7);
2499 function Node26 (N : Node_Id) return Node_Id is
2501 pragma Assert (Nkind (N) in N_Entity);
2502 return Node_Id (Nodes.Table (N + 4).Field8);
2505 function Node27 (N : Node_Id) return Node_Id is
2507 pragma Assert (Nkind (N) in N_Entity);
2508 return Node_Id (Nodes.Table (N + 4).Field9);
2511 function Node28 (N : Node_Id) return Node_Id is
2513 pragma Assert (Nkind (N) in N_Entity);
2514 return Node_Id (Nodes.Table (N + 4).Field10);
2517 function Node29 (N : Node_Id) return Node_Id is
2519 pragma Assert (Nkind (N) in N_Entity);
2520 return Node_Id (Nodes.Table (N + 4).Field11);
2523 function Node30 (N : Node_Id) return Node_Id is
2525 pragma Assert (Nkind (N) in N_Entity);
2526 return Node_Id (Nodes.Table (N + 5).Field6);
2529 function Node31 (N : Node_Id) return Node_Id is
2531 pragma Assert (Nkind (N) in N_Entity);
2532 return Node_Id (Nodes.Table (N + 5).Field7);
2535 function List1 (N : Node_Id) return List_Id is
2537 pragma Assert (N <= Nodes.Last);
2538 return List_Id (Nodes.Table (N).Field1);
2541 function List2 (N : Node_Id) return List_Id is
2543 pragma Assert (N <= Nodes.Last);
2544 return List_Id (Nodes.Table (N).Field2);
2547 function List3 (N : Node_Id) return List_Id is
2549 pragma Assert (N <= Nodes.Last);
2550 return List_Id (Nodes.Table (N).Field3);
2553 function List4 (N : Node_Id) return List_Id is
2555 pragma Assert (N <= Nodes.Last);
2556 return List_Id (Nodes.Table (N).Field4);
2559 function List5 (N : Node_Id) return List_Id is
2561 pragma Assert (N <= Nodes.Last);
2562 return List_Id (Nodes.Table (N).Field5);
2565 function List10 (N : Node_Id) return List_Id is
2567 pragma Assert (Nkind (N) in N_Entity);
2568 return List_Id (Nodes.Table (N + 1).Field10);
2571 function List14 (N : Node_Id) return List_Id is
2573 pragma Assert (Nkind (N) in N_Entity);
2574 return List_Id (Nodes.Table (N + 2).Field7);
2577 function List25 (N : Node_Id) return List_Id is
2579 pragma Assert (Nkind (N) in N_Entity);
2580 return List_Id (Nodes.Table (N + 4).Field7);
2583 function Elist1 (N : Node_Id) return Elist_Id is
2584 pragma Assert (N <= Nodes.Last);
2585 Value : constant Union_Id := Nodes.Table (N).Field1;
2590 return Elist_Id (Value);
2594 function Elist2 (N : Node_Id) return Elist_Id is
2595 pragma Assert (N <= Nodes.Last);
2596 Value : constant Union_Id := Nodes.Table (N).Field2;
2601 return Elist_Id (Value);
2605 function Elist3 (N : Node_Id) return Elist_Id is
2606 pragma Assert (N <= Nodes.Last);
2607 Value : constant Union_Id := Nodes.Table (N).Field3;
2612 return Elist_Id (Value);
2616 function Elist4 (N : Node_Id) return Elist_Id is
2617 pragma Assert (N <= Nodes.Last);
2618 Value : constant Union_Id := Nodes.Table (N).Field4;
2623 return Elist_Id (Value);
2627 function Elist5 (N : Node_Id) return Elist_Id is
2628 pragma Assert (N <= Nodes.Last);
2629 Value : constant Union_Id := Nodes.Table (N).Field5;
2634 return Elist_Id (Value);
2638 function Elist8 (N : Node_Id) return Elist_Id is
2639 pragma Assert (Nkind (N) in N_Entity);
2640 Value : constant Union_Id := Nodes.Table (N + 1).Field8;
2645 return Elist_Id (Value);
2649 function Elist10 (N : Node_Id) return Elist_Id is
2650 pragma Assert (Nkind (N) in N_Entity);
2651 Value : constant Union_Id := Nodes.Table (N + 1).Field10;
2656 return Elist_Id (Value);
2660 function Elist13 (N : Node_Id) return Elist_Id is
2661 pragma Assert (Nkind (N) in N_Entity);
2662 Value : constant Union_Id := Nodes.Table (N + 2).Field6;
2667 return Elist_Id (Value);
2671 function Elist15 (N : Node_Id) return Elist_Id is
2672 pragma Assert (Nkind (N) in N_Entity);
2673 Value : constant Union_Id := Nodes.Table (N + 2).Field8;
2678 return Elist_Id (Value);
2682 function Elist16 (N : Node_Id) return Elist_Id is
2683 pragma Assert (Nkind (N) in N_Entity);
2684 Value : constant Union_Id := Nodes.Table (N + 2).Field9;
2689 return Elist_Id (Value);
2693 function Elist18 (N : Node_Id) return Elist_Id is
2694 pragma Assert (Nkind (N) in N_Entity);
2695 Value : constant Union_Id := Nodes.Table (N + 2).Field11;
2700 return Elist_Id (Value);
2704 function Elist21 (N : Node_Id) return Elist_Id is
2705 pragma Assert (Nkind (N) in N_Entity);
2706 Value : constant Union_Id := Nodes.Table (N + 3).Field8;
2711 return Elist_Id (Value);
2715 function Elist23 (N : Node_Id) return Elist_Id is
2716 pragma Assert (Nkind (N) in N_Entity);
2717 Value : constant Union_Id := Nodes.Table (N + 3).Field10;
2722 return Elist_Id (Value);
2726 function Elist24 (N : Node_Id) return Elist_Id is
2727 pragma Assert (Nkind (N) in N_Entity);
2728 Value : constant Union_Id := Nodes.Table (N + 4).Field6;
2733 return Elist_Id (Value);
2737 function Elist25 (N : Node_Id) return Elist_Id is
2738 pragma Assert (Nkind (N) in N_Entity);
2739 Value : constant Union_Id := Nodes.Table (N + 4).Field7;
2744 return Elist_Id (Value);
2748 function Elist26 (N : Node_Id) return Elist_Id is
2749 pragma Assert (Nkind (N) in N_Entity);
2750 Value : constant Union_Id := Nodes.Table (N + 4).Field8;
2755 return Elist_Id (Value);
2759 function Name1 (N : Node_Id) return Name_Id is
2761 pragma Assert (N <= Nodes.Last);
2762 return Name_Id (Nodes.Table (N).Field1);
2765 function Name2 (N : Node_Id) return Name_Id is
2767 pragma Assert (N <= Nodes.Last);
2768 return Name_Id (Nodes.Table (N).Field2);
2771 function Str3 (N : Node_Id) return String_Id is
2773 pragma Assert (N <= Nodes.Last);
2774 return String_Id (Nodes.Table (N).Field3);
2777 function Uint2 (N : Node_Id) return Uint is
2778 pragma Assert (N <= Nodes.Last);
2779 U : constant Union_Id := Nodes.Table (N).Field2;
2784 return From_Union (U);
2788 function Uint3 (N : Node_Id) return Uint is
2789 pragma Assert (N <= Nodes.Last);
2790 U : constant Union_Id := Nodes.Table (N).Field3;
2795 return From_Union (U);
2799 function Uint4 (N : Node_Id) return Uint is
2800 pragma Assert (N <= Nodes.Last);
2801 U : constant Union_Id := Nodes.Table (N).Field4;
2806 return From_Union (U);
2810 function Uint5 (N : Node_Id) return Uint is
2811 pragma Assert (N <= Nodes.Last);
2812 U : constant Union_Id := Nodes.Table (N).Field5;
2817 return From_Union (U);
2821 function Uint8 (N : Node_Id) return Uint is
2822 pragma Assert (Nkind (N) in N_Entity);
2823 U : constant Union_Id := Nodes.Table (N + 1).Field8;
2828 return From_Union (U);
2832 function Uint9 (N : Node_Id) return Uint is
2833 pragma Assert (Nkind (N) in N_Entity);
2834 U : constant Union_Id := Nodes.Table (N + 1).Field9;
2839 return From_Union (U);
2843 function Uint10 (N : Node_Id) return Uint is
2844 pragma Assert (Nkind (N) in N_Entity);
2845 U : constant Union_Id := Nodes.Table (N + 1).Field10;
2850 return From_Union (U);
2854 function Uint11 (N : Node_Id) return Uint is
2855 pragma Assert (Nkind (N) in N_Entity);
2856 U : constant Union_Id := Nodes.Table (N + 1).Field11;
2861 return From_Union (U);
2865 function Uint12 (N : Node_Id) return Uint is
2866 pragma Assert (Nkind (N) in N_Entity);
2867 U : constant Union_Id := Nodes.Table (N + 1).Field12;
2872 return From_Union (U);
2876 function Uint13 (N : Node_Id) return Uint is
2877 pragma Assert (Nkind (N) in N_Entity);
2878 U : constant Union_Id := Nodes.Table (N + 2).Field6;
2883 return From_Union (U);
2887 function Uint14 (N : Node_Id) return Uint is
2888 pragma Assert (Nkind (N) in N_Entity);
2889 U : constant Union_Id := Nodes.Table (N + 2).Field7;
2894 return From_Union (U);
2898 function Uint15 (N : Node_Id) return Uint is
2899 pragma Assert (Nkind (N) in N_Entity);
2900 U : constant Union_Id := Nodes.Table (N + 2).Field8;
2905 return From_Union (U);
2909 function Uint16 (N : Node_Id) return Uint is
2910 pragma Assert (Nkind (N) in N_Entity);
2911 U : constant Union_Id := Nodes.Table (N + 2).Field9;
2916 return From_Union (U);
2920 function Uint17 (N : Node_Id) return Uint is
2921 pragma Assert (Nkind (N) in N_Entity);
2922 U : constant Union_Id := Nodes.Table (N + 2).Field10;
2927 return From_Union (U);
2931 function Uint22 (N : Node_Id) return Uint is
2932 pragma Assert (Nkind (N) in N_Entity);
2933 U : constant Union_Id := Nodes.Table (N + 3).Field9;
2938 return From_Union (U);
2942 function Ureal3 (N : Node_Id) return Ureal is
2944 pragma Assert (N <= Nodes.Last);
2945 return From_Union (Nodes.Table (N).Field3);
2948 function Ureal18 (N : Node_Id) return Ureal is
2950 pragma Assert (Nkind (N) in N_Entity);
2951 return From_Union (Nodes.Table (N + 2).Field11);
2954 function Ureal21 (N : Node_Id) return Ureal is
2956 pragma Assert (Nkind (N) in N_Entity);
2957 return From_Union (Nodes.Table (N + 3).Field8);
2960 function Flag4 (N : Node_Id) return Boolean is
2962 pragma Assert (N <= Nodes.Last);
2963 return Nodes.Table (N).Flag4;
2966 function Flag5 (N : Node_Id) return Boolean is
2968 pragma Assert (N <= Nodes.Last);
2969 return Nodes.Table (N).Flag5;
2972 function Flag6 (N : Node_Id) return Boolean is
2974 pragma Assert (N <= Nodes.Last);
2975 return Nodes.Table (N).Flag6;
2978 function Flag7 (N : Node_Id) return Boolean is
2980 pragma Assert (N <= Nodes.Last);
2981 return Nodes.Table (N).Flag7;
2984 function Flag8 (N : Node_Id) return Boolean is
2986 pragma Assert (N <= Nodes.Last);
2987 return Nodes.Table (N).Flag8;
2990 function Flag9 (N : Node_Id) return Boolean is
2992 pragma Assert (N <= Nodes.Last);
2993 return Nodes.Table (N).Flag9;
2996 function Flag10 (N : Node_Id) return Boolean is
2998 pragma Assert (N <= Nodes.Last);
2999 return Nodes.Table (N).Flag10;
3002 function Flag11 (N : Node_Id) return Boolean is
3004 pragma Assert (N <= Nodes.Last);
3005 return Nodes.Table (N).Flag11;
3008 function Flag12 (N : Node_Id) return Boolean is
3010 pragma Assert (N <= Nodes.Last);
3011 return Nodes.Table (N).Flag12;
3014 function Flag13 (N : Node_Id) return Boolean is
3016 pragma Assert (N <= Nodes.Last);
3017 return Nodes.Table (N).Flag13;
3020 function Flag14 (N : Node_Id) return Boolean is
3022 pragma Assert (N <= Nodes.Last);
3023 return Nodes.Table (N).Flag14;
3026 function Flag15 (N : Node_Id) return Boolean is
3028 pragma Assert (N <= Nodes.Last);
3029 return Nodes.Table (N).Flag15;
3032 function Flag16 (N : Node_Id) return Boolean is
3034 pragma Assert (N <= Nodes.Last);
3035 return Nodes.Table (N).Flag16;
3038 function Flag17 (N : Node_Id) return Boolean is
3040 pragma Assert (N <= Nodes.Last);
3041 return Nodes.Table (N).Flag17;
3044 function Flag18 (N : Node_Id) return Boolean is
3046 pragma Assert (N <= Nodes.Last);
3047 return Nodes.Table (N).Flag18;
3050 function Flag19 (N : Node_Id) return Boolean is
3052 pragma Assert (Nkind (N) in N_Entity);
3053 return Nodes.Table (N + 1).In_List;
3056 function Flag20 (N : Node_Id) return Boolean is
3058 pragma Assert (Nkind (N) in N_Entity);
3059 return Nodes.Table (N + 1).Has_Aspects;
3062 function Flag21 (N : Node_Id) return Boolean is
3064 pragma Assert (Nkind (N) in N_Entity);
3065 return Nodes.Table (N + 1).Rewrite_Ins;
3068 function Flag22 (N : Node_Id) return Boolean is
3070 pragma Assert (Nkind (N) in N_Entity);
3071 return Nodes.Table (N + 1).Analyzed;
3074 function Flag23 (N : Node_Id) return Boolean is
3076 pragma Assert (Nkind (N) in N_Entity);
3077 return Nodes.Table (N + 1).Comes_From_Source;
3080 function Flag24 (N : Node_Id) return Boolean is
3082 pragma Assert (Nkind (N) in N_Entity);
3083 return Nodes.Table (N + 1).Error_Posted;
3086 function Flag25 (N : Node_Id) return Boolean is
3088 pragma Assert (Nkind (N) in N_Entity);
3089 return Nodes.Table (N + 1).Flag4;
3092 function Flag26 (N : Node_Id) return Boolean is
3094 pragma Assert (Nkind (N) in N_Entity);
3095 return Nodes.Table (N + 1).Flag5;
3098 function Flag27 (N : Node_Id) return Boolean is
3100 pragma Assert (Nkind (N) in N_Entity);
3101 return Nodes.Table (N + 1).Flag6;
3104 function Flag28 (N : Node_Id) return Boolean is
3106 pragma Assert (Nkind (N) in N_Entity);
3107 return Nodes.Table (N + 1).Flag7;
3110 function Flag29 (N : Node_Id) return Boolean is
3112 pragma Assert (Nkind (N) in N_Entity);
3113 return Nodes.Table (N + 1).Flag8;
3116 function Flag30 (N : Node_Id) return Boolean is
3118 pragma Assert (Nkind (N) in N_Entity);
3119 return Nodes.Table (N + 1).Flag9;
3122 function Flag31 (N : Node_Id) return Boolean is
3124 pragma Assert (Nkind (N) in N_Entity);
3125 return Nodes.Table (N + 1).Flag10;
3128 function Flag32 (N : Node_Id) return Boolean is
3130 pragma Assert (Nkind (N) in N_Entity);
3131 return Nodes.Table (N + 1).Flag11;
3134 function Flag33 (N : Node_Id) return Boolean is
3136 pragma Assert (Nkind (N) in N_Entity);
3137 return Nodes.Table (N + 1).Flag12;
3140 function Flag34 (N : Node_Id) return Boolean is
3142 pragma Assert (Nkind (N) in N_Entity);
3143 return Nodes.Table (N + 1).Flag13;
3146 function Flag35 (N : Node_Id) return Boolean is
3148 pragma Assert (Nkind (N) in N_Entity);
3149 return Nodes.Table (N + 1).Flag14;
3152 function Flag36 (N : Node_Id) return Boolean is
3154 pragma Assert (Nkind (N) in N_Entity);
3155 return Nodes.Table (N + 1).Flag15;
3158 function Flag37 (N : Node_Id) return Boolean is
3160 pragma Assert (Nkind (N) in N_Entity);
3161 return Nodes.Table (N + 1).Flag16;
3164 function Flag38 (N : Node_Id) return Boolean is
3166 pragma Assert (Nkind (N) in N_Entity);
3167 return Nodes.Table (N + 1).Flag17;
3170 function Flag39 (N : Node_Id) return Boolean is
3172 pragma Assert (Nkind (N) in N_Entity);
3173 return Nodes.Table (N + 1).Flag18;
3176 function Flag40 (N : Node_Id) return Boolean is
3178 pragma Assert (Nkind (N) in N_Entity);
3179 return Nodes.Table (N + 2).In_List;
3182 function Flag41 (N : Node_Id) return Boolean is
3184 pragma Assert (Nkind (N) in N_Entity);
3185 return Nodes.Table (N + 2).Has_Aspects;
3188 function Flag42 (N : Node_Id) return Boolean is
3190 pragma Assert (Nkind (N) in N_Entity);
3191 return Nodes.Table (N + 2).Rewrite_Ins;
3194 function Flag43 (N : Node_Id) return Boolean is
3196 pragma Assert (Nkind (N) in N_Entity);
3197 return Nodes.Table (N + 2).Analyzed;
3200 function Flag44 (N : Node_Id) return Boolean is
3202 pragma Assert (Nkind (N) in N_Entity);
3203 return Nodes.Table (N + 2).Comes_From_Source;
3206 function Flag45 (N : Node_Id) return Boolean is
3208 pragma Assert (Nkind (N) in N_Entity);
3209 return Nodes.Table (N + 2).Error_Posted;
3212 function Flag46 (N : Node_Id) return Boolean is
3214 pragma Assert (Nkind (N) in N_Entity);
3215 return Nodes.Table (N + 2).Flag4;
3218 function Flag47 (N : Node_Id) return Boolean is
3220 pragma Assert (Nkind (N) in N_Entity);
3221 return Nodes.Table (N + 2).Flag5;
3224 function Flag48 (N : Node_Id) return Boolean is
3226 pragma Assert (Nkind (N) in N_Entity);
3227 return Nodes.Table (N + 2).Flag6;
3230 function Flag49 (N : Node_Id) return Boolean is
3232 pragma Assert (Nkind (N) in N_Entity);
3233 return Nodes.Table (N + 2).Flag7;
3236 function Flag50 (N : Node_Id) return Boolean is
3238 pragma Assert (Nkind (N) in N_Entity);
3239 return Nodes.Table (N + 2).Flag8;
3242 function Flag51 (N : Node_Id) return Boolean is
3244 pragma Assert (Nkind (N) in N_Entity);
3245 return Nodes.Table (N + 2).Flag9;
3248 function Flag52 (N : Node_Id) return Boolean is
3250 pragma Assert (Nkind (N) in N_Entity);
3251 return Nodes.Table (N + 2).Flag10;
3254 function Flag53 (N : Node_Id) return Boolean is
3256 pragma Assert (Nkind (N) in N_Entity);
3257 return Nodes.Table (N + 2).Flag11;
3260 function Flag54 (N : Node_Id) return Boolean is
3262 pragma Assert (Nkind (N) in N_Entity);
3263 return Nodes.Table (N + 2).Flag12;
3266 function Flag55 (N : Node_Id) return Boolean is
3268 pragma Assert (Nkind (N) in N_Entity);
3269 return Nodes.Table (N + 2).Flag13;
3272 function Flag56 (N : Node_Id) return Boolean is
3274 pragma Assert (Nkind (N) in N_Entity);
3275 return Nodes.Table (N + 2).Flag14;
3278 function Flag57 (N : Node_Id) return Boolean is
3280 pragma Assert (Nkind (N) in N_Entity);
3281 return Nodes.Table (N + 2).Flag15;
3284 function Flag58 (N : Node_Id) return Boolean is
3286 pragma Assert (Nkind (N) in N_Entity);
3287 return Nodes.Table (N + 2).Flag16;
3290 function Flag59 (N : Node_Id) return Boolean is
3292 pragma Assert (Nkind (N) in N_Entity);
3293 return Nodes.Table (N + 2).Flag17;
3296 function Flag60 (N : Node_Id) return Boolean is
3298 pragma Assert (Nkind (N) in N_Entity);
3299 return Nodes.Table (N + 2).Flag18;
3302 function Flag61 (N : Node_Id) return Boolean is
3304 pragma Assert (Nkind (N) in N_Entity);
3305 return Nodes.Table (N + 1).Pflag1;
3308 function Flag62 (N : Node_Id) return Boolean is
3310 pragma Assert (Nkind (N) in N_Entity);
3311 return Nodes.Table (N + 1).Pflag2;
3314 function Flag63 (N : Node_Id) return Boolean is
3316 pragma Assert (Nkind (N) in N_Entity);
3317 return Nodes.Table (N + 2).Pflag1;
3320 function Flag64 (N : Node_Id) return Boolean is
3322 pragma Assert (Nkind (N) in N_Entity);
3323 return Nodes.Table (N + 2).Pflag2;
3326 function Flag65 (N : Node_Id) return Boolean is
3328 pragma Assert (Nkind (N) in N_Entity);
3329 return To_Flag_Byte (Nodes.Table (N + 2).Nkind).Flag65;
3332 function Flag66 (N : Node_Id) return Boolean is
3334 pragma Assert (Nkind (N) in N_Entity);
3335 return To_Flag_Byte (Nodes.Table (N + 2).Nkind).Flag66;
3338 function Flag67 (N : Node_Id) return Boolean is
3340 pragma Assert (Nkind (N) in N_Entity);
3341 return To_Flag_Byte (Nodes.Table (N + 2).Nkind).Flag67;
3344 function Flag68 (N : Node_Id) return Boolean is
3346 pragma Assert (Nkind (N) in N_Entity);
3347 return To_Flag_Byte (Nodes.Table (N + 2).Nkind).Flag68;
3350 function Flag69 (N : Node_Id) return Boolean is
3352 pragma Assert (Nkind (N) in N_Entity);
3353 return To_Flag_Byte (Nodes.Table (N + 2).Nkind).Flag69;
3356 function Flag70 (N : Node_Id) return Boolean is
3358 pragma Assert (Nkind (N) in N_Entity);
3359 return To_Flag_Byte (Nodes.Table (N + 2).Nkind).Flag70;
3362 function Flag71 (N : Node_Id) return Boolean is
3364 pragma Assert (Nkind (N) in N_Entity);
3365 return To_Flag_Byte (Nodes.Table (N + 2).Nkind).Flag71;
3368 function Flag72 (N : Node_Id) return Boolean is
3370 pragma Assert (Nkind (N) in N_Entity);
3371 return To_Flag_Byte (Nodes.Table (N + 2).Nkind).Flag72;
3374 function Flag73 (N : Node_Id) return Boolean is
3376 pragma Assert (Nkind (N) in N_Entity);
3377 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag73;
3380 function Flag74 (N : Node_Id) return Boolean is
3382 pragma Assert (Nkind (N) in N_Entity);
3383 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag74;
3386 function Flag75 (N : Node_Id) return Boolean is
3388 pragma Assert (Nkind (N) in N_Entity);
3389 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag75;
3392 function Flag76 (N : Node_Id) return Boolean is
3394 pragma Assert (Nkind (N) in N_Entity);
3395 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag76;
3398 function Flag77 (N : Node_Id) return Boolean is
3400 pragma Assert (Nkind (N) in N_Entity);
3401 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag77;
3404 function Flag78 (N : Node_Id) return Boolean is
3406 pragma Assert (Nkind (N) in N_Entity);
3407 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag78;
3410 function Flag79 (N : Node_Id) return Boolean is
3412 pragma Assert (Nkind (N) in N_Entity);
3413 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag79;
3416 function Flag80 (N : Node_Id) return Boolean is
3418 pragma Assert (Nkind (N) in N_Entity);
3419 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag80;
3422 function Flag81 (N : Node_Id) return Boolean is
3424 pragma Assert (Nkind (N) in N_Entity);
3425 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag81;
3428 function Flag82 (N : Node_Id) return Boolean is
3430 pragma Assert (Nkind (N) in N_Entity);
3431 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag82;
3434 function Flag83 (N : Node_Id) return Boolean is
3436 pragma Assert (Nkind (N) in N_Entity);
3437 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag83;
3440 function Flag84 (N : Node_Id) return Boolean is
3442 pragma Assert (Nkind (N) in N_Entity);
3443 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag84;
3446 function Flag85 (N : Node_Id) return Boolean is
3448 pragma Assert (Nkind (N) in N_Entity);
3449 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag85;
3452 function Flag86 (N : Node_Id) return Boolean is
3454 pragma Assert (Nkind (N) in N_Entity);
3455 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag86;
3458 function Flag87 (N : Node_Id) return Boolean is
3460 pragma Assert (Nkind (N) in N_Entity);
3461 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag87;
3464 function Flag88 (N : Node_Id) return Boolean is
3466 pragma Assert (Nkind (N) in N_Entity);
3467 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag88;
3470 function Flag89 (N : Node_Id) return Boolean is
3472 pragma Assert (Nkind (N) in N_Entity);
3473 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag89;
3476 function Flag90 (N : Node_Id) return Boolean is
3478 pragma Assert (Nkind (N) in N_Entity);
3479 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag90;
3482 function Flag91 (N : Node_Id) return Boolean is
3484 pragma Assert (Nkind (N) in N_Entity);
3485 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag91;
3488 function Flag92 (N : Node_Id) return Boolean is
3490 pragma Assert (Nkind (N) in N_Entity);
3491 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag92;
3494 function Flag93 (N : Node_Id) return Boolean is
3496 pragma Assert (Nkind (N) in N_Entity);
3497 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag93;
3500 function Flag94 (N : Node_Id) return Boolean is
3502 pragma Assert (Nkind (N) in N_Entity);
3503 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag94;
3506 function Flag95 (N : Node_Id) return Boolean is
3508 pragma Assert (Nkind (N) in N_Entity);
3509 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag95;
3512 function Flag96 (N : Node_Id) return Boolean is
3514 pragma Assert (Nkind (N) in N_Entity);
3515 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag96;
3518 function Flag97 (N : Node_Id) return Boolean is
3520 pragma Assert (Nkind (N) in N_Entity);
3521 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag97;
3524 function Flag98 (N : Node_Id) return Boolean is
3526 pragma Assert (Nkind (N) in N_Entity);
3527 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag98;
3530 function Flag99 (N : Node_Id) return Boolean is
3532 pragma Assert (Nkind (N) in N_Entity);
3533 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag99;
3536 function Flag100 (N : Node_Id) return Boolean is
3538 pragma Assert (Nkind (N) in N_Entity);
3539 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag100;
3542 function Flag101 (N : Node_Id) return Boolean is
3544 pragma Assert (Nkind (N) in N_Entity);
3545 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag101;
3548 function Flag102 (N : Node_Id) return Boolean is
3550 pragma Assert (Nkind (N) in N_Entity);
3551 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag102;
3554 function Flag103 (N : Node_Id) return Boolean is
3556 pragma Assert (Nkind (N) in N_Entity);
3557 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag103;
3560 function Flag104 (N : Node_Id) return Boolean is
3562 pragma Assert (Nkind (N) in N_Entity);
3563 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag104;
3566 function Flag105 (N : Node_Id) return Boolean is
3568 pragma Assert (Nkind (N) in N_Entity);
3569 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag105;
3572 function Flag106 (N : Node_Id) return Boolean is
3574 pragma Assert (Nkind (N) in N_Entity);
3575 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag106;
3578 function Flag107 (N : Node_Id) return Boolean is
3580 pragma Assert (Nkind (N) in N_Entity);
3581 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag107;
3584 function Flag108 (N : Node_Id) return Boolean is
3586 pragma Assert (Nkind (N) in N_Entity);
3587 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag108;
3590 function Flag109 (N : Node_Id) return Boolean is
3592 pragma Assert (Nkind (N) in N_Entity);
3593 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag109;
3596 function Flag110 (N : Node_Id) return Boolean is
3598 pragma Assert (Nkind (N) in N_Entity);
3599 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag110;
3602 function Flag111 (N : Node_Id) return Boolean is
3604 pragma Assert (Nkind (N) in N_Entity);
3605 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag111;
3608 function Flag112 (N : Node_Id) return Boolean is
3610 pragma Assert (Nkind (N) in N_Entity);
3611 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag112;
3614 function Flag113 (N : Node_Id) return Boolean is
3616 pragma Assert (Nkind (N) in N_Entity);
3617 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag113;
3620 function Flag114 (N : Node_Id) return Boolean is
3622 pragma Assert (Nkind (N) in N_Entity);
3623 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag114;
3626 function Flag115 (N : Node_Id) return Boolean is
3628 pragma Assert (Nkind (N) in N_Entity);
3629 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag115;
3632 function Flag116 (N : Node_Id) return Boolean is
3634 pragma Assert (Nkind (N) in N_Entity);
3635 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag116;
3638 function Flag117 (N : Node_Id) return Boolean is
3640 pragma Assert (Nkind (N) in N_Entity);
3641 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag117;
3644 function Flag118 (N : Node_Id) return Boolean is
3646 pragma Assert (Nkind (N) in N_Entity);
3647 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag118;
3650 function Flag119 (N : Node_Id) return Boolean is
3652 pragma Assert (Nkind (N) in N_Entity);
3653 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag119;
3656 function Flag120 (N : Node_Id) return Boolean is
3658 pragma Assert (Nkind (N) in N_Entity);
3659 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag120;
3662 function Flag121 (N : Node_Id) return Boolean is
3664 pragma Assert (Nkind (N) in N_Entity);
3665 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag121;
3668 function Flag122 (N : Node_Id) return Boolean is
3670 pragma Assert (Nkind (N) in N_Entity);
3671 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag122;
3674 function Flag123 (N : Node_Id) return Boolean is
3676 pragma Assert (Nkind (N) in N_Entity);
3677 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag123;
3680 function Flag124 (N : Node_Id) return Boolean is
3682 pragma Assert (Nkind (N) in N_Entity);
3683 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag124;
3686 function Flag125 (N : Node_Id) return Boolean is
3688 pragma Assert (Nkind (N) in N_Entity);
3689 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag125;
3692 function Flag126 (N : Node_Id) return Boolean is
3694 pragma Assert (Nkind (N) in N_Entity);
3695 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag126;
3698 function Flag127 (N : Node_Id) return Boolean is
3700 pragma Assert (Nkind (N) in N_Entity);
3701 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag127;
3704 function Flag128 (N : Node_Id) return Boolean is
3706 pragma Assert (Nkind (N) in N_Entity);
3707 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag128;
3710 function Flag129 (N : Node_Id) return Boolean is
3712 pragma Assert (Nkind (N) in N_Entity);
3713 return Nodes.Table (N + 3).In_List;
3716 function Flag130 (N : Node_Id) return Boolean is
3718 pragma Assert (Nkind (N) in N_Entity);
3719 return Nodes.Table (N + 3).Has_Aspects;
3722 function Flag131 (N : Node_Id) return Boolean is
3724 pragma Assert (Nkind (N) in N_Entity);
3725 return Nodes.Table (N + 3).Rewrite_Ins;
3728 function Flag132 (N : Node_Id) return Boolean is
3730 pragma Assert (Nkind (N) in N_Entity);
3731 return Nodes.Table (N + 3).Analyzed;
3734 function Flag133 (N : Node_Id) return Boolean is
3736 pragma Assert (Nkind (N) in N_Entity);
3737 return Nodes.Table (N + 3).Comes_From_Source;
3740 function Flag134 (N : Node_Id) return Boolean is
3742 pragma Assert (Nkind (N) in N_Entity);
3743 return Nodes.Table (N + 3).Error_Posted;
3746 function Flag135 (N : Node_Id) return Boolean is
3748 pragma Assert (Nkind (N) in N_Entity);
3749 return Nodes.Table (N + 3).Flag4;
3752 function Flag136 (N : Node_Id) return Boolean is
3754 pragma Assert (Nkind (N) in N_Entity);
3755 return Nodes.Table (N + 3).Flag5;
3758 function Flag137 (N : Node_Id) return Boolean is
3760 pragma Assert (Nkind (N) in N_Entity);
3761 return Nodes.Table (N + 3).Flag6;
3764 function Flag138 (N : Node_Id) return Boolean is
3766 pragma Assert (Nkind (N) in N_Entity);
3767 return Nodes.Table (N + 3).Flag7;
3770 function Flag139 (N : Node_Id) return Boolean is
3772 pragma Assert (Nkind (N) in N_Entity);
3773 return Nodes.Table (N + 3).Flag8;
3776 function Flag140 (N : Node_Id) return Boolean is
3778 pragma Assert (Nkind (N) in N_Entity);
3779 return Nodes.Table (N + 3).Flag9;
3782 function Flag141 (N : Node_Id) return Boolean is
3784 pragma Assert (Nkind (N) in N_Entity);
3785 return Nodes.Table (N + 3).Flag10;
3788 function Flag142 (N : Node_Id) return Boolean is
3790 pragma Assert (Nkind (N) in N_Entity);
3791 return Nodes.Table (N + 3).Flag11;
3794 function Flag143 (N : Node_Id) return Boolean is
3796 pragma Assert (Nkind (N) in N_Entity);
3797 return Nodes.Table (N + 3).Flag12;
3800 function Flag144 (N : Node_Id) return Boolean is
3802 pragma Assert (Nkind (N) in N_Entity);
3803 return Nodes.Table (N + 3).Flag13;
3806 function Flag145 (N : Node_Id) return Boolean is
3808 pragma Assert (Nkind (N) in N_Entity);
3809 return Nodes.Table (N + 3).Flag14;
3812 function Flag146 (N : Node_Id) return Boolean is
3814 pragma Assert (Nkind (N) in N_Entity);
3815 return Nodes.Table (N + 3).Flag15;
3818 function Flag147 (N : Node_Id) return Boolean is
3820 pragma Assert (Nkind (N) in N_Entity);
3821 return Nodes.Table (N + 3).Flag16;
3824 function Flag148 (N : Node_Id) return Boolean is
3826 pragma Assert (Nkind (N) in N_Entity);
3827 return Nodes.Table (N + 3).Flag17;
3830 function Flag149 (N : Node_Id) return Boolean is
3832 pragma Assert (Nkind (N) in N_Entity);
3833 return Nodes.Table (N + 3).Flag18;
3836 function Flag150 (N : Node_Id) return Boolean is
3838 pragma Assert (Nkind (N) in N_Entity);
3839 return Nodes.Table (N + 3).Pflag1;
3842 function Flag151 (N : Node_Id) return Boolean is
3844 pragma Assert (Nkind (N) in N_Entity);
3845 return Nodes.Table (N + 3).Pflag2;
3848 function Flag152 (N : Node_Id) return Boolean is
3850 pragma Assert (Nkind (N) in N_Entity);
3851 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag152;
3854 function Flag153 (N : Node_Id) return Boolean is
3856 pragma Assert (Nkind (N) in N_Entity);
3857 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag153;
3860 function Flag154 (N : Node_Id) return Boolean is
3862 pragma Assert (Nkind (N) in N_Entity);
3863 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag154;
3866 function Flag155 (N : Node_Id) return Boolean is
3868 pragma Assert (Nkind (N) in N_Entity);
3869 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag155;
3872 function Flag156 (N : Node_Id) return Boolean is
3874 pragma Assert (Nkind (N) in N_Entity);
3875 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag156;
3878 function Flag157 (N : Node_Id) return Boolean is
3880 pragma Assert (Nkind (N) in N_Entity);
3881 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag157;
3884 function Flag158 (N : Node_Id) return Boolean is
3886 pragma Assert (Nkind (N) in N_Entity);
3887 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag158;
3890 function Flag159 (N : Node_Id) return Boolean is
3892 pragma Assert (Nkind (N) in N_Entity);
3893 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag159;
3896 function Flag160 (N : Node_Id) return Boolean is
3898 pragma Assert (Nkind (N) in N_Entity);
3899 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag160;
3902 function Flag161 (N : Node_Id) return Boolean is
3904 pragma Assert (Nkind (N) in N_Entity);
3905 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag161;
3908 function Flag162 (N : Node_Id) return Boolean is
3910 pragma Assert (Nkind (N) in N_Entity);
3911 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag162;
3914 function Flag163 (N : Node_Id) return Boolean is
3916 pragma Assert (Nkind (N) in N_Entity);
3917 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag163;
3920 function Flag164 (N : Node_Id) return Boolean is
3922 pragma Assert (Nkind (N) in N_Entity);
3923 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag164;
3926 function Flag165 (N : Node_Id) return Boolean is
3928 pragma Assert (Nkind (N) in N_Entity);
3929 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag165;
3932 function Flag166 (N : Node_Id) return Boolean is
3934 pragma Assert (Nkind (N) in N_Entity);
3935 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag166;
3938 function Flag167 (N : Node_Id) return Boolean is
3940 pragma Assert (Nkind (N) in N_Entity);
3941 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag167;
3944 function Flag168 (N : Node_Id) return Boolean is
3946 pragma Assert (Nkind (N) in N_Entity);
3947 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag168;
3950 function Flag169 (N : Node_Id) return Boolean is
3952 pragma Assert (Nkind (N) in N_Entity);
3953 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag169;
3956 function Flag170 (N : Node_Id) return Boolean is
3958 pragma Assert (Nkind (N) in N_Entity);
3959 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag170;
3962 function Flag171 (N : Node_Id) return Boolean is
3964 pragma Assert (Nkind (N) in N_Entity);
3965 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag171;
3968 function Flag172 (N : Node_Id) return Boolean is
3970 pragma Assert (Nkind (N) in N_Entity);
3971 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag172;
3974 function Flag173 (N : Node_Id) return Boolean is
3976 pragma Assert (Nkind (N) in N_Entity);
3977 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag173;
3980 function Flag174 (N : Node_Id) return Boolean is
3982 pragma Assert (Nkind (N) in N_Entity);
3983 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag174;
3986 function Flag175 (N : Node_Id) return Boolean is
3988 pragma Assert (Nkind (N) in N_Entity);
3989 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag175;
3992 function Flag176 (N : Node_Id) return Boolean is
3994 pragma Assert (Nkind (N) in N_Entity);
3995 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag176;
3998 function Flag177 (N : Node_Id) return Boolean is
4000 pragma Assert (Nkind (N) in N_Entity);
4001 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag177;
4004 function Flag178 (N : Node_Id) return Boolean is
4006 pragma Assert (Nkind (N) in N_Entity);
4007 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag178;
4010 function Flag179 (N : Node_Id) return Boolean is
4012 pragma Assert (Nkind (N) in N_Entity);
4013 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag179;
4016 function Flag180 (N : Node_Id) return Boolean is
4018 pragma Assert (Nkind (N) in N_Entity);
4019 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag180;
4022 function Flag181 (N : Node_Id) return Boolean is
4024 pragma Assert (Nkind (N) in N_Entity);
4025 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag181;
4028 function Flag182 (N : Node_Id) return Boolean is
4030 pragma Assert (Nkind (N) in N_Entity);
4031 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag182;
4034 function Flag183 (N : Node_Id) return Boolean is
4036 pragma Assert (Nkind (N) in N_Entity);
4037 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag183;
4040 function Flag184 (N : Node_Id) return Boolean is
4042 pragma Assert (Nkind (N) in N_Entity);
4043 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag184;
4046 function Flag185 (N : Node_Id) return Boolean is
4048 pragma Assert (Nkind (N) in N_Entity);
4049 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag185;
4052 function Flag186 (N : Node_Id) return Boolean is
4054 pragma Assert (Nkind (N) in N_Entity);
4055 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag186;
4058 function Flag187 (N : Node_Id) return Boolean is
4060 pragma Assert (Nkind (N) in N_Entity);
4061 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag187;
4064 function Flag188 (N : Node_Id) return Boolean is
4066 pragma Assert (Nkind (N) in N_Entity);
4067 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag188;
4070 function Flag189 (N : Node_Id) return Boolean is
4072 pragma Assert (Nkind (N) in N_Entity);
4073 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag189;
4076 function Flag190 (N : Node_Id) return Boolean is
4078 pragma Assert (Nkind (N) in N_Entity);
4079 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag190;
4082 function Flag191 (N : Node_Id) return Boolean is
4084 pragma Assert (Nkind (N) in N_Entity);
4085 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag191;
4088 function Flag192 (N : Node_Id) return Boolean is
4090 pragma Assert (Nkind (N) in N_Entity);
4091 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag192;
4094 function Flag193 (N : Node_Id) return Boolean is
4096 pragma Assert (Nkind (N) in N_Entity);
4097 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag193;
4100 function Flag194 (N : Node_Id) return Boolean is
4102 pragma Assert (Nkind (N) in N_Entity);
4103 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag194;
4106 function Flag195 (N : Node_Id) return Boolean is
4108 pragma Assert (Nkind (N) in N_Entity);
4109 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag195;
4112 function Flag196 (N : Node_Id) return Boolean is
4114 pragma Assert (Nkind (N) in N_Entity);
4115 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag196;
4118 function Flag197 (N : Node_Id) return Boolean is
4120 pragma Assert (Nkind (N) in N_Entity);
4121 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag197;
4124 function Flag198 (N : Node_Id) return Boolean is
4126 pragma Assert (Nkind (N) in N_Entity);
4127 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag198;
4130 function Flag199 (N : Node_Id) return Boolean is
4132 pragma Assert (Nkind (N) in N_Entity);
4133 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag199;
4136 function Flag200 (N : Node_Id) return Boolean is
4138 pragma Assert (Nkind (N) in N_Entity);
4139 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag200;
4142 function Flag201 (N : Node_Id) return Boolean is
4144 pragma Assert (Nkind (N) in N_Entity);
4145 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag201;
4148 function Flag202 (N : Node_Id) return Boolean is
4150 pragma Assert (Nkind (N) in N_Entity);
4151 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag202;
4154 function Flag203 (N : Node_Id) return Boolean is
4156 pragma Assert (Nkind (N) in N_Entity);
4157 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag203;
4160 function Flag204 (N : Node_Id) return Boolean is
4162 pragma Assert (Nkind (N) in N_Entity);
4163 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag204;
4166 function Flag205 (N : Node_Id) return Boolean is
4168 pragma Assert (Nkind (N) in N_Entity);
4169 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag205;
4172 function Flag206 (N : Node_Id) return Boolean is
4174 pragma Assert (Nkind (N) in N_Entity);
4175 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag206;
4178 function Flag207 (N : Node_Id) return Boolean is
4180 pragma Assert (Nkind (N) in N_Entity);
4181 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag207;
4184 function Flag208 (N : Node_Id) return Boolean is
4186 pragma Assert (Nkind (N) in N_Entity);
4187 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag208;
4190 function Flag209 (N : Node_Id) return Boolean is
4192 pragma Assert (Nkind (N) in N_Entity);
4193 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag209;
4196 function Flag210 (N : Node_Id) return Boolean is
4198 pragma Assert (Nkind (N) in N_Entity);
4199 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag210;
4202 function Flag211 (N : Node_Id) return Boolean is
4204 pragma Assert (Nkind (N) in N_Entity);
4205 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag211;
4208 function Flag212 (N : Node_Id) return Boolean is
4210 pragma Assert (Nkind (N) in N_Entity);
4211 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag212;
4214 function Flag213 (N : Node_Id) return Boolean is
4216 pragma Assert (Nkind (N) in N_Entity);
4217 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag213;
4220 function Flag214 (N : Node_Id) return Boolean is
4222 pragma Assert (Nkind (N) in N_Entity);
4223 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag214;
4226 function Flag215 (N : Node_Id) return Boolean is
4228 pragma Assert (Nkind (N) in N_Entity);
4229 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag215;
4232 function Flag216 (N : Node_Id) return Boolean is
4234 pragma Assert (Nkind (N) in N_Entity);
4235 return Nodes.Table (N + 4).In_List;
4238 function Flag217 (N : Node_Id) return Boolean is
4240 pragma Assert (Nkind (N) in N_Entity);
4241 return Nodes.Table (N + 4).Has_Aspects;
4244 function Flag218 (N : Node_Id) return Boolean is
4246 pragma Assert (Nkind (N) in N_Entity);
4247 return Nodes.Table (N + 4).Rewrite_Ins;
4250 function Flag219 (N : Node_Id) return Boolean is
4252 pragma Assert (Nkind (N) in N_Entity);
4253 return Nodes.Table (N + 4).Analyzed;
4256 function Flag220 (N : Node_Id) return Boolean is
4258 pragma Assert (Nkind (N) in N_Entity);
4259 return Nodes.Table (N + 4).Comes_From_Source;
4262 function Flag221 (N : Node_Id) return Boolean is
4264 pragma Assert (Nkind (N) in N_Entity);
4265 return Nodes.Table (N + 4).Error_Posted;
4268 function Flag222 (N : Node_Id) return Boolean is
4270 pragma Assert (Nkind (N) in N_Entity);
4271 return Nodes.Table (N + 4).Flag4;
4274 function Flag223 (N : Node_Id) return Boolean is
4276 pragma Assert (Nkind (N) in N_Entity);
4277 return Nodes.Table (N + 4).Flag5;
4280 function Flag224 (N : Node_Id) return Boolean is
4282 pragma Assert (Nkind (N) in N_Entity);
4283 return Nodes.Table (N + 4).Flag6;
4286 function Flag225 (N : Node_Id) return Boolean is
4288 pragma Assert (Nkind (N) in N_Entity);
4289 return Nodes.Table (N + 4).Flag7;
4292 function Flag226 (N : Node_Id) return Boolean is
4294 pragma Assert (Nkind (N) in N_Entity);
4295 return Nodes.Table (N + 4).Flag8;
4298 function Flag227 (N : Node_Id) return Boolean is
4300 pragma Assert (Nkind (N) in N_Entity);
4301 return Nodes.Table (N + 4).Flag9;
4304 function Flag228 (N : Node_Id) return Boolean is
4306 pragma Assert (Nkind (N) in N_Entity);
4307 return Nodes.Table (N + 4).Flag10;
4310 function Flag229 (N : Node_Id) return Boolean is
4312 pragma Assert (Nkind (N) in N_Entity);
4313 return Nodes.Table (N + 4).Flag11;
4316 function Flag230 (N : Node_Id) return Boolean is
4318 pragma Assert (Nkind (N) in N_Entity);
4319 return Nodes.Table (N + 4).Flag12;
4322 function Flag231 (N : Node_Id) return Boolean is
4324 pragma Assert (Nkind (N) in N_Entity);
4325 return Nodes.Table (N + 4).Flag13;
4328 function Flag232 (N : Node_Id) return Boolean is
4330 pragma Assert (Nkind (N) in N_Entity);
4331 return Nodes.Table (N + 4).Flag14;
4334 function Flag233 (N : Node_Id) return Boolean is
4336 pragma Assert (Nkind (N) in N_Entity);
4337 return Nodes.Table (N + 4).Flag15;
4340 function Flag234 (N : Node_Id) return Boolean is
4342 pragma Assert (Nkind (N) in N_Entity);
4343 return Nodes.Table (N + 4).Flag16;
4346 function Flag235 (N : Node_Id) return Boolean is
4348 pragma Assert (Nkind (N) in N_Entity);
4349 return Nodes.Table (N + 4).Flag17;
4352 function Flag236 (N : Node_Id) return Boolean is
4354 pragma Assert (Nkind (N) in N_Entity);
4355 return Nodes.Table (N + 4).Flag18;
4358 function Flag237 (N : Node_Id) return Boolean is
4360 pragma Assert (Nkind (N) in N_Entity);
4361 return Nodes.Table (N + 4).Pflag1;
4364 function Flag238 (N : Node_Id) return Boolean is
4366 pragma Assert (Nkind (N) in N_Entity);
4367 return Nodes.Table (N + 4).Pflag2;
4370 function Flag239 (N : Node_Id) return Boolean is
4372 pragma Assert (Nkind (N) in N_Entity);
4373 return To_Flag_Byte2 (Nodes.Table (N + 3).Nkind).Flag239;
4376 function Flag240 (N : Node_Id) return Boolean is
4378 pragma Assert (Nkind (N) in N_Entity);
4379 return To_Flag_Byte2 (Nodes.Table (N + 3).Nkind).Flag240;
4382 function Flag241 (N : Node_Id) return Boolean is
4384 pragma Assert (Nkind (N) in N_Entity);
4385 return To_Flag_Byte2 (Nodes.Table (N + 3).Nkind).Flag241;
4388 function Flag242 (N : Node_Id) return Boolean is
4390 pragma Assert (Nkind (N) in N_Entity);
4391 return To_Flag_Byte2 (Nodes.Table (N + 3).Nkind).Flag242;
4394 function Flag243 (N : Node_Id) return Boolean is
4396 pragma Assert (Nkind (N) in N_Entity);
4397 return To_Flag_Byte2 (Nodes.Table (N + 3).Nkind).Flag243;
4400 function Flag244 (N : Node_Id) return Boolean is
4402 pragma Assert (Nkind (N) in N_Entity);
4403 return To_Flag_Byte2 (Nodes.Table (N + 3).Nkind).Flag244;
4406 function Flag245 (N : Node_Id) return Boolean is
4408 pragma Assert (Nkind (N) in N_Entity);
4409 return To_Flag_Byte2 (Nodes.Table (N + 3).Nkind).Flag245;
4412 function Flag246 (N : Node_Id) return Boolean is
4414 pragma Assert (Nkind (N) in N_Entity);
4415 return To_Flag_Byte2 (Nodes.Table (N + 3).Nkind).Flag246;
4418 function Flag247 (N : Node_Id) return Boolean is
4420 pragma Assert (Nkind (N) in N_Entity);
4421 return To_Flag_Byte3 (Nodes.Table (N + 4).Nkind).Flag247;
4424 function Flag248 (N : Node_Id) return Boolean is
4426 pragma Assert (Nkind (N) in N_Entity);
4427 return To_Flag_Byte3 (Nodes.Table (N + 4).Nkind).Flag248;
4430 function Flag249 (N : Node_Id) return Boolean is
4432 pragma Assert (Nkind (N) in N_Entity);
4433 return To_Flag_Byte3 (Nodes.Table (N + 4).Nkind).Flag249;
4436 function Flag250 (N : Node_Id) return Boolean is
4438 pragma Assert (Nkind (N) in N_Entity);
4439 return To_Flag_Byte3 (Nodes.Table (N + 4).Nkind).Flag250;
4442 function Flag251 (N : Node_Id) return Boolean is
4444 pragma Assert (Nkind (N) in N_Entity);
4445 return To_Flag_Byte3 (Nodes.Table (N + 4).Nkind).Flag251;
4448 function Flag252 (N : Node_Id) return Boolean is
4450 pragma Assert (Nkind (N) in N_Entity);
4451 return To_Flag_Byte3 (Nodes.Table (N + 4).Nkind).Flag252;
4454 function Flag253 (N : Node_Id) return Boolean is
4456 pragma Assert (Nkind (N) in N_Entity);
4457 return To_Flag_Byte3 (Nodes.Table (N + 4).Nkind).Flag253;
4460 function Flag254 (N : Node_Id) return Boolean is
4462 pragma Assert (Nkind (N) in N_Entity);
4463 return To_Flag_Byte3 (Nodes.Table (N + 4).Nkind).Flag254;
4466 function Flag255 (N : Node_Id) return Boolean is
4468 pragma Assert (Nkind (N) in N_Entity);
4469 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag255;
4472 function Flag256 (N : Node_Id) return Boolean is
4474 pragma Assert (Nkind (N) in N_Entity);
4475 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag256;
4478 function Flag257 (N : Node_Id) return Boolean is
4480 pragma Assert (Nkind (N) in N_Entity);
4481 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag257;
4484 function Flag258 (N : Node_Id) return Boolean is
4486 pragma Assert (Nkind (N) in N_Entity);
4487 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag258;
4490 function Flag259 (N : Node_Id) return Boolean is
4492 pragma Assert (Nkind (N) in N_Entity);
4493 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag259;
4496 function Flag260 (N : Node_Id) return Boolean is
4498 pragma Assert (Nkind (N) in N_Entity);
4499 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag260;
4502 function Flag261 (N : Node_Id) return Boolean is
4504 pragma Assert (Nkind (N) in N_Entity);
4505 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag261;
4508 function Flag262 (N : Node_Id) return Boolean is
4510 pragma Assert (Nkind (N) in N_Entity);
4511 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag262;
4514 function Flag263 (N : Node_Id) return Boolean is
4516 pragma Assert (Nkind (N) in N_Entity);
4517 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag263;
4520 function Flag264 (N : Node_Id) return Boolean is
4522 pragma Assert (Nkind (N) in N_Entity);
4523 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag264;
4526 function Flag265 (N : Node_Id) return Boolean is
4528 pragma Assert (Nkind (N) in N_Entity);
4529 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag265;
4532 function Flag266 (N : Node_Id) return Boolean is
4534 pragma Assert (Nkind (N) in N_Entity);
4535 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag266;
4538 function Flag267 (N : Node_Id) return Boolean is
4540 pragma Assert (Nkind (N) in N_Entity);
4541 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag267;
4544 function Flag268 (N : Node_Id) return Boolean is
4546 pragma Assert (Nkind (N) in N_Entity);
4547 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag268;
4550 function Flag269 (N : Node_Id) return Boolean is
4552 pragma Assert (Nkind (N) in N_Entity);
4553 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag269;
4556 function Flag270 (N : Node_Id) return Boolean is
4558 pragma Assert (Nkind (N) in N_Entity);
4559 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag270;
4562 function Flag271 (N : Node_Id) return Boolean is
4564 pragma Assert (Nkind (N) in N_Entity);
4565 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag271;
4568 function Flag272 (N : Node_Id) return Boolean is
4570 pragma Assert (Nkind (N) in N_Entity);
4571 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag272;
4574 function Flag273 (N : Node_Id) return Boolean is
4576 pragma Assert (Nkind (N) in N_Entity);
4577 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag273;
4580 function Flag274 (N : Node_Id) return Boolean is
4582 pragma Assert (Nkind (N) in N_Entity);
4583 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag274;
4586 function Flag275 (N : Node_Id) return Boolean is
4588 pragma Assert (Nkind (N) in N_Entity);
4589 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag275;
4592 function Flag276 (N : Node_Id) return Boolean is
4594 pragma Assert (Nkind (N) in N_Entity);
4595 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag276;
4598 function Flag277 (N : Node_Id) return Boolean is
4600 pragma Assert (Nkind (N) in N_Entity);
4601 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag277;
4604 function Flag278 (N : Node_Id) return Boolean is
4606 pragma Assert (Nkind (N) in N_Entity);
4607 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag278;
4610 function Flag279 (N : Node_Id) return Boolean is
4612 pragma Assert (Nkind (N) in N_Entity);
4613 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag279;
4616 function Flag280 (N : Node_Id) return Boolean is
4618 pragma Assert (Nkind (N) in N_Entity);
4619 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag280;
4622 function Flag281 (N : Node_Id) return Boolean is
4624 pragma Assert (Nkind (N) in N_Entity);
4625 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag281;
4628 function Flag282 (N : Node_Id) return Boolean is
4630 pragma Assert (Nkind (N) in N_Entity);
4631 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag282;
4634 function Flag283 (N : Node_Id) return Boolean is
4636 pragma Assert (Nkind (N) in N_Entity);
4637 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag283;
4640 function Flag284 (N : Node_Id) return Boolean is
4642 pragma Assert (Nkind (N) in N_Entity);
4643 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag284;
4646 function Flag285 (N : Node_Id) return Boolean is
4648 pragma Assert (Nkind (N) in N_Entity);
4649 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag285;
4652 function Flag286 (N : Node_Id) return Boolean is
4654 pragma Assert (Nkind (N) in N_Entity);
4655 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag286;
4658 function Flag287 (N : Node_Id) return Boolean is
4660 pragma Assert (Nkind (N) in N_Entity);
4661 return Nodes.Table (N + 5).In_List;
4664 function Flag288 (N : Node_Id) return Boolean is
4666 pragma Assert (Nkind (N) in N_Entity);
4667 return Nodes.Table (N + 5).Has_Aspects;
4670 function Flag289 (N : Node_Id) return Boolean is
4672 pragma Assert (Nkind (N) in N_Entity);
4673 return Nodes.Table (N + 5).Rewrite_Ins;
4676 function Flag290 (N : Node_Id) return Boolean is
4678 pragma Assert (Nkind (N) in N_Entity);
4679 return Nodes.Table (N + 5).Analyzed;
4682 function Flag291 (N : Node_Id) return Boolean is
4684 pragma Assert (Nkind (N) in N_Entity);
4685 return Nodes.Table (N + 5).Comes_From_Source;
4688 function Flag292 (N : Node_Id) return Boolean is
4690 pragma Assert (Nkind (N) in N_Entity);
4691 return Nodes.Table (N + 5).Error_Posted;
4694 function Flag293 (N : Node_Id) return Boolean is
4696 pragma Assert (Nkind (N) in N_Entity);
4697 return Nodes.Table (N + 5).Flag4;
4700 function Flag294 (N : Node_Id) return Boolean is
4702 pragma Assert (Nkind (N) in N_Entity);
4703 return Nodes.Table (N + 5).Flag5;
4706 function Flag295 (N : Node_Id) return Boolean is
4708 pragma Assert (Nkind (N) in N_Entity);
4709 return Nodes.Table (N + 5).Flag6;
4712 function Flag296 (N : Node_Id) return Boolean is
4714 pragma Assert (Nkind (N) in N_Entity);
4715 return Nodes.Table (N + 5).Flag7;
4718 function Flag297 (N : Node_Id) return Boolean is
4720 pragma Assert (Nkind (N) in N_Entity);
4721 return Nodes.Table (N + 5).Flag8;
4724 function Flag298 (N : Node_Id) return Boolean is
4726 pragma Assert (Nkind (N) in N_Entity);
4727 return Nodes.Table (N + 5).Flag9;
4730 function Flag299 (N : Node_Id) return Boolean is
4732 pragma Assert (Nkind (N) in N_Entity);
4733 return Nodes.Table (N + 5).Flag10;
4736 function Flag300 (N : Node_Id) return Boolean is
4738 pragma Assert (Nkind (N) in N_Entity);
4739 return Nodes.Table (N + 5).Flag11;
4742 function Flag301 (N : Node_Id) return Boolean is
4744 pragma Assert (Nkind (N) in N_Entity);
4745 return Nodes.Table (N + 5).Flag12;
4748 function Flag302 (N : Node_Id) return Boolean is
4750 pragma Assert (Nkind (N) in N_Entity);
4751 return Nodes.Table (N + 5).Flag13;
4754 function Flag303 (N : Node_Id) return Boolean is
4756 pragma Assert (Nkind (N) in N_Entity);
4757 return Nodes.Table (N + 5).Flag14;
4760 function Flag304 (N : Node_Id) return Boolean is
4762 pragma Assert (Nkind (N) in N_Entity);
4763 return Nodes.Table (N + 5).Flag15;
4766 function Flag305 (N : Node_Id) return Boolean is
4768 pragma Assert (Nkind (N) in N_Entity);
4769 return Nodes.Table (N + 5).Flag16;
4772 function Flag306 (N : Node_Id) return Boolean is
4774 pragma Assert (Nkind (N) in N_Entity);
4775 return Nodes.Table (N + 5).Flag17;
4778 function Flag307 (N : Node_Id) return Boolean is
4780 pragma Assert (Nkind (N) in N_Entity);
4781 return Nodes.Table (N + 5).Flag18;
4784 function Flag308 (N : Node_Id) return Boolean is
4786 pragma Assert (Nkind (N) in N_Entity);
4787 return Nodes.Table (N + 5).Pflag1;
4790 function Flag309 (N : Node_Id) return Boolean is
4792 pragma Assert (Nkind (N) in N_Entity);
4793 return Nodes.Table (N + 5).Pflag2;
4796 function Flag310 (N : Node_Id) return Boolean is
4798 pragma Assert (Nkind (N) in N_Entity);
4799 return To_Flag_Byte4 (Nodes.Table (N + 5).Nkind).Flag310;
4802 function Flag311 (N : Node_Id) return Boolean is
4804 pragma Assert (Nkind (N) in N_Entity);
4805 return To_Flag_Byte4 (Nodes.Table (N + 5).Nkind).Flag311;
4808 function Flag312 (N : Node_Id) return Boolean is
4810 pragma Assert (Nkind (N) in N_Entity);
4811 return To_Flag_Byte4 (Nodes.Table (N + 5).Nkind).Flag312;
4814 function Flag313 (N : Node_Id) return Boolean is
4816 pragma Assert (Nkind (N) in N_Entity);
4817 return To_Flag_Byte4 (Nodes.Table (N + 5).Nkind).Flag313;
4820 function Flag314 (N : Node_Id) return Boolean is
4822 pragma Assert (Nkind (N) in N_Entity);
4823 return To_Flag_Byte4 (Nodes.Table (N + 5).Nkind).Flag314;
4826 function Flag315 (N : Node_Id) return Boolean is
4828 pragma Assert (Nkind (N) in N_Entity);
4829 return To_Flag_Byte4 (Nodes.Table (N + 5).Nkind).Flag315;
4832 function Flag316 (N : Node_Id) return Boolean is
4834 pragma Assert (Nkind (N) in N_Entity);
4835 return To_Flag_Byte4 (Nodes.Table (N + 5).Nkind).Flag316;
4838 function Flag317 (N : Node_Id) return Boolean is
4840 pragma Assert (Nkind (N) in N_Entity);
4841 return To_Flag_Byte4 (Nodes.Table (N + 5).Nkind).Flag317;
4844 procedure Set_Nkind (N : Node_Id; Val : Node_Kind) is
4846 pragma Assert (N <= Nodes.Last);
4847 Nodes.Table (N).Nkind := Val;
4850 procedure Set_Field1 (N : Node_Id; Val : Union_Id) is
4852 pragma Assert (N <= Nodes.Last);
4853 Nodes.Table (N).Field1 := Val;
4856 procedure Set_Field2 (N : Node_Id; Val : Union_Id) is
4858 pragma Assert (N <= Nodes.Last);
4859 Nodes.Table (N).Field2 := Val;
4862 procedure Set_Field3 (N : Node_Id; Val : Union_Id) is
4864 pragma Assert (N <= Nodes.Last);
4865 Nodes.Table (N).Field3 := Val;
4868 procedure Set_Field4 (N : Node_Id; Val : Union_Id) is
4870 pragma Assert (N <= Nodes.Last);
4871 Nodes.Table (N).Field4 := Val;
4874 procedure Set_Field5 (N : Node_Id; Val : Union_Id) is
4876 pragma Assert (N <= Nodes.Last);
4877 Nodes.Table (N).Field5 := Val;
4880 procedure Set_Field6 (N : Node_Id; Val : Union_Id) is
4882 pragma Assert (Nkind (N) in N_Entity);
4883 Nodes.Table (N + 1).Field6 := Val;
4886 procedure Set_Field7 (N : Node_Id; Val : Union_Id) is
4888 pragma Assert (Nkind (N) in N_Entity);
4889 Nodes.Table (N + 1).Field7 := Val;
4892 procedure Set_Field8 (N : Node_Id; Val : Union_Id) is
4894 pragma Assert (Nkind (N) in N_Entity);
4895 Nodes.Table (N + 1).Field8 := Val;
4898 procedure Set_Field9 (N : Node_Id; Val : Union_Id) is
4900 pragma Assert (Nkind (N) in N_Entity);
4901 Nodes.Table (N + 1).Field9 := Val;
4904 procedure Set_Field10 (N : Node_Id; Val : Union_Id) is
4906 pragma Assert (Nkind (N) in N_Entity);
4907 Nodes.Table (N + 1).Field10 := Val;
4910 procedure Set_Field11 (N : Node_Id; Val : Union_Id) is
4912 pragma Assert (Nkind (N) in N_Entity);
4913 Nodes.Table (N + 1).Field11 := Val;
4916 procedure Set_Field12 (N : Node_Id; Val : Union_Id) is
4918 pragma Assert (Nkind (N) in N_Entity);
4919 Nodes.Table (N + 1).Field12 := Val;
4922 procedure Set_Field13 (N : Node_Id; Val : Union_Id) is
4924 pragma Assert (Nkind (N) in N_Entity);
4925 Nodes.Table (N + 2).Field6 := Val;
4928 procedure Set_Field14 (N : Node_Id; Val : Union_Id) is
4930 pragma Assert (Nkind (N) in N_Entity);
4931 Nodes.Table (N + 2).Field7 := Val;
4934 procedure Set_Field15 (N : Node_Id; Val : Union_Id) is
4936 pragma Assert (Nkind (N) in N_Entity);
4937 Nodes.Table (N + 2).Field8 := Val;
4940 procedure Set_Field16 (N : Node_Id; Val : Union_Id) is
4942 pragma Assert (Nkind (N) in N_Entity);
4943 Nodes.Table (N + 2).Field9 := Val;
4946 procedure Set_Field17 (N : Node_Id; Val : Union_Id) is
4948 pragma Assert (Nkind (N) in N_Entity);
4949 Nodes.Table (N + 2).Field10 := Val;
4952 procedure Set_Field18 (N : Node_Id; Val : Union_Id) is
4954 pragma Assert (Nkind (N) in N_Entity);
4955 Nodes.Table (N + 2).Field11 := Val;
4958 procedure Set_Field19 (N : Node_Id; Val : Union_Id) is
4960 pragma Assert (Nkind (N) in N_Entity);
4961 Nodes.Table (N + 3).Field6 := Val;
4964 procedure Set_Field20 (N : Node_Id; Val : Union_Id) is
4966 pragma Assert (Nkind (N) in N_Entity);
4967 Nodes.Table (N + 3).Field7 := Val;
4970 procedure Set_Field21 (N : Node_Id; Val : Union_Id) is
4972 pragma Assert (Nkind (N) in N_Entity);
4973 Nodes.Table (N + 3).Field8 := Val;
4976 procedure Set_Field22 (N : Node_Id; Val : Union_Id) is
4978 pragma Assert (Nkind (N) in N_Entity);
4979 Nodes.Table (N + 3).Field9 := Val;
4982 procedure Set_Field23 (N : Node_Id; Val : Union_Id) is
4984 pragma Assert (Nkind (N) in N_Entity);
4985 Nodes.Table (N + 3).Field10 := Val;
4988 procedure Set_Field24 (N : Node_Id; Val : Union_Id) is
4990 pragma Assert (Nkind (N) in N_Entity);
4991 Nodes.Table (N + 4).Field6 := Val;
4994 procedure Set_Field25 (N : Node_Id; Val : Union_Id) is
4996 pragma Assert (Nkind (N) in N_Entity);
4997 Nodes.Table (N + 4).Field7 := Val;
5000 procedure Set_Field26 (N : Node_Id; Val : Union_Id) is
5002 pragma Assert (Nkind (N) in N_Entity);
5003 Nodes.Table (N + 4).Field8 := Val;
5006 procedure Set_Field27 (N : Node_Id; Val : Union_Id) is
5008 pragma Assert (Nkind (N) in N_Entity);
5009 Nodes.Table (N + 4).Field9 := Val;
5012 procedure Set_Field28 (N : Node_Id; Val : Union_Id) is
5014 pragma Assert (Nkind (N) in N_Entity);
5015 Nodes.Table (N + 4).Field10 := Val;
5018 procedure Set_Field29 (N : Node_Id; Val : Union_Id) is
5020 pragma Assert (Nkind (N) in N_Entity);
5021 Nodes.Table (N + 4).Field11 := Val;
5024 procedure Set_Field30 (N : Node_Id; Val : Union_Id) is
5026 pragma Assert (Nkind (N) in N_Entity);
5027 Nodes.Table (N + 5).Field6 := Val;
5030 procedure Set_Field31 (N : Node_Id; Val : Union_Id) is
5032 pragma Assert (Nkind (N) in N_Entity);
5033 Nodes.Table (N + 5).Field7 := Val;
5036 procedure Set_Field32 (N : Node_Id; Val : Union_Id) is
5038 pragma Assert (Nkind (N) in N_Entity);
5039 Nodes.Table (N + 5).Field8 := Val;
5042 procedure Set_Field33 (N : Node_Id; Val : Union_Id) is
5044 pragma Assert (Nkind (N) in N_Entity);
5045 Nodes.Table (N + 5).Field9 := Val;
5048 procedure Set_Field34 (N : Node_Id; Val : Union_Id) is
5050 pragma Assert (Nkind (N) in N_Entity);
5051 Nodes.Table (N + 5).Field10 := Val;
5054 procedure Set_Field35 (N : Node_Id; Val : Union_Id) is
5056 pragma Assert (Nkind (N) in N_Entity);
5057 Nodes.Table (N + 5).Field11 := Val;
5060 procedure Set_Node1 (N : Node_Id; Val : Node_Id) is
5062 pragma Assert (N <= Nodes.Last);
5063 Nodes.Table (N).Field1 := Union_Id (Val);
5066 procedure Set_Node2 (N : Node_Id; Val : Node_Id) is
5068 pragma Assert (N <= Nodes.Last);
5069 Nodes.Table (N).Field2 := Union_Id (Val);
5072 procedure Set_Node3 (N : Node_Id; Val : Node_Id) is
5074 pragma Assert (N <= Nodes.Last);
5075 Nodes.Table (N).Field3 := Union_Id (Val);
5078 procedure Set_Node4 (N : Node_Id; Val : Node_Id) is
5080 pragma Assert (N <= Nodes.Last);
5081 Nodes.Table (N).Field4 := Union_Id (Val);
5084 procedure Set_Node5 (N : Node_Id; Val : Node_Id) is
5086 pragma Assert (N <= Nodes.Last);
5087 Nodes.Table (N).Field5 := Union_Id (Val);
5090 procedure Set_Node6 (N : Node_Id; Val : Node_Id) is
5092 pragma Assert (Nkind (N) in N_Entity);
5093 Nodes.Table (N + 1).Field6 := Union_Id (Val);
5096 procedure Set_Node7 (N : Node_Id; Val : Node_Id) is
5098 pragma Assert (Nkind (N) in N_Entity);
5099 Nodes.Table (N + 1).Field7 := Union_Id (Val);
5102 procedure Set_Node8 (N : Node_Id; Val : Node_Id) is
5104 pragma Assert (Nkind (N) in N_Entity);
5105 Nodes.Table (N + 1).Field8 := Union_Id (Val);
5108 procedure Set_Node9 (N : Node_Id; Val : Node_Id) is
5110 pragma Assert (Nkind (N) in N_Entity);
5111 Nodes.Table (N + 1).Field9 := Union_Id (Val);
5114 procedure Set_Node10 (N : Node_Id; Val : Node_Id) is
5116 pragma Assert (Nkind (N) in N_Entity);
5117 Nodes.Table (N + 1).Field10 := Union_Id (Val);
5120 procedure Set_Node11 (N : Node_Id; Val : Node_Id) is
5122 pragma Assert (Nkind (N) in N_Entity);
5123 Nodes.Table (N + 1).Field11 := Union_Id (Val);
5126 procedure Set_Node12 (N : Node_Id; Val : Node_Id) is
5128 pragma Assert (Nkind (N) in N_Entity);
5129 Nodes.Table (N + 1).Field12 := Union_Id (Val);
5132 procedure Set_Node13 (N : Node_Id; Val : Node_Id) is
5134 pragma Assert (Nkind (N) in N_Entity);
5135 Nodes.Table (N + 2).Field6 := Union_Id (Val);
5138 procedure Set_Node14 (N : Node_Id; Val : Node_Id) is
5140 pragma Assert (Nkind (N) in N_Entity);
5141 Nodes.Table (N + 2).Field7 := Union_Id (Val);
5144 procedure Set_Node15 (N : Node_Id; Val : Node_Id) is
5146 pragma Assert (Nkind (N) in N_Entity);
5147 Nodes.Table (N + 2).Field8 := Union_Id (Val);
5150 procedure Set_Node16 (N : Node_Id; Val : Node_Id) is
5152 pragma Assert (Nkind (N) in N_Entity);
5153 Nodes.Table (N + 2).Field9 := Union_Id (Val);
5156 procedure Set_Node17 (N : Node_Id; Val : Node_Id) is
5158 pragma Assert (Nkind (N) in N_Entity);
5159 Nodes.Table (N + 2).Field10 := Union_Id (Val);
5162 procedure Set_Node18 (N : Node_Id; Val : Node_Id) is
5164 pragma Assert (Nkind (N) in N_Entity);
5165 Nodes.Table (N + 2).Field11 := Union_Id (Val);
5168 procedure Set_Node19 (N : Node_Id; Val : Node_Id) is
5170 pragma Assert (Nkind (N) in N_Entity);
5171 Nodes.Table (N + 3).Field6 := Union_Id (Val);
5174 procedure Set_Node20 (N : Node_Id; Val : Node_Id) is
5176 pragma Assert (Nkind (N) in N_Entity);
5177 Nodes.Table (N + 3).Field7 := Union_Id (Val);
5180 procedure Set_Node21 (N : Node_Id; Val : Node_Id) is
5182 pragma Assert (Nkind (N) in N_Entity);
5183 Nodes.Table (N + 3).Field8 := Union_Id (Val);
5186 procedure Set_Node22 (N : Node_Id; Val : Node_Id) is
5188 pragma Assert (Nkind (N) in N_Entity);
5189 Nodes.Table (N + 3).Field9 := Union_Id (Val);
5192 procedure Set_Node23 (N : Node_Id; Val : Node_Id) is
5194 pragma Assert (Nkind (N) in N_Entity);
5195 Nodes.Table (N + 3).Field10 := Union_Id (Val);
5198 procedure Set_Node24 (N : Node_Id; Val : Node_Id) is
5200 pragma Assert (Nkind (N) in N_Entity);
5201 Nodes.Table (N + 4).Field6 := Union_Id (Val);
5204 procedure Set_Node25 (N : Node_Id; Val : Node_Id) is
5206 pragma Assert (Nkind (N) in N_Entity);
5207 Nodes.Table (N + 4).Field7 := Union_Id (Val);
5210 procedure Set_Node26 (N : Node_Id; Val : Node_Id) is
5212 pragma Assert (Nkind (N) in N_Entity);
5213 Nodes.Table (N + 4).Field8 := Union_Id (Val);
5216 procedure Set_Node27 (N : Node_Id; Val : Node_Id) is
5218 pragma Assert (Nkind (N) in N_Entity);
5219 Nodes.Table (N + 4).Field9 := Union_Id (Val);
5222 procedure Set_Node28 (N : Node_Id; Val : Node_Id) is
5224 pragma Assert (Nkind (N) in N_Entity);
5225 Nodes.Table (N + 4).Field10 := Union_Id (Val);
5228 procedure Set_Node29 (N : Node_Id; Val : Node_Id) is
5230 pragma Assert (Nkind (N) in N_Entity);
5231 Nodes.Table (N + 4).Field11 := Union_Id (Val);
5234 procedure Set_Node30 (N : Node_Id; Val : Node_Id) is
5236 pragma Assert (Nkind (N) in N_Entity);
5237 Nodes.Table (N + 5).Field6 := Union_Id (Val);
5240 procedure Set_Node31 (N : Node_Id; Val : Node_Id) is
5242 pragma Assert (Nkind (N) in N_Entity);
5243 Nodes.Table (N + 5).Field7 := Union_Id (Val);
5246 procedure Set_List1 (N : Node_Id; Val : List_Id) is
5248 pragma Assert (N <= Nodes.Last);
5249 Nodes.Table (N).Field1 := Union_Id (Val);
5252 procedure Set_List2 (N : Node_Id; Val : List_Id) is
5254 pragma Assert (N <= Nodes.Last);
5255 Nodes.Table (N).Field2 := Union_Id (Val);
5258 procedure Set_List3 (N : Node_Id; Val : List_Id) is
5260 pragma Assert (N <= Nodes.Last);
5261 Nodes.Table (N).Field3 := Union_Id (Val);
5264 procedure Set_List4 (N : Node_Id; Val : List_Id) is
5266 pragma Assert (N <= Nodes.Last);
5267 Nodes.Table (N).Field4 := Union_Id (Val);
5270 procedure Set_List5 (N : Node_Id; Val : List_Id) is
5272 pragma Assert (N <= Nodes.Last);
5273 Nodes.Table (N).Field5 := Union_Id (Val);
5276 procedure Set_List10 (N : Node_Id; Val : List_Id) is
5278 pragma Assert (Nkind (N) in N_Entity);
5279 Nodes.Table (N + 1).Field10 := Union_Id (Val);
5282 procedure Set_List14 (N : Node_Id; Val : List_Id) is
5284 pragma Assert (Nkind (N) in N_Entity);
5285 Nodes.Table (N + 2).Field7 := Union_Id (Val);
5288 procedure Set_List25 (N : Node_Id; Val : List_Id) is
5290 pragma Assert (Nkind (N) in N_Entity);
5291 Nodes.Table (N + 4).Field7 := Union_Id (Val);
5294 procedure Set_Elist1 (N : Node_Id; Val : Elist_Id) is
5296 Nodes.Table (N).Field1 := Union_Id (Val);
5299 procedure Set_Elist2 (N : Node_Id; Val : Elist_Id) is
5301 Nodes.Table (N).Field2 := Union_Id (Val);
5304 procedure Set_Elist3 (N : Node_Id; Val : Elist_Id) is
5306 Nodes.Table (N).Field3 := Union_Id (Val);
5309 procedure Set_Elist4 (N : Node_Id; Val : Elist_Id) is
5311 Nodes.Table (N).Field4 := Union_Id (Val);
5314 procedure Set_Elist5 (N : Node_Id; Val : Elist_Id) is
5316 Nodes.Table (N).Field5 := Union_Id (Val);
5319 procedure Set_Elist8 (N : Node_Id; Val : Elist_Id) is
5321 pragma Assert (Nkind (N) in N_Entity);
5322 Nodes.Table (N + 1).Field8 := Union_Id (Val);
5325 procedure Set_Elist10 (N : Node_Id; Val : Elist_Id) is
5327 pragma Assert (Nkind (N) in N_Entity);
5328 Nodes.Table (N + 1).Field10 := Union_Id (Val);
5331 procedure Set_Elist13 (N : Node_Id; Val : Elist_Id) is
5333 pragma Assert (Nkind (N) in N_Entity);
5334 Nodes.Table (N + 2).Field6 := Union_Id (Val);
5337 procedure Set_Elist15 (N : Node_Id; Val : Elist_Id) is
5339 pragma Assert (Nkind (N) in N_Entity);
5340 Nodes.Table (N + 2).Field8 := Union_Id (Val);
5343 procedure Set_Elist16 (N : Node_Id; Val : Elist_Id) is
5345 pragma Assert (Nkind (N) in N_Entity);
5346 Nodes.Table (N + 2).Field9 := Union_Id (Val);
5349 procedure Set_Elist18 (N : Node_Id; Val : Elist_Id) is
5351 pragma Assert (Nkind (N) in N_Entity);
5352 Nodes.Table (N + 2).Field11 := Union_Id (Val);
5355 procedure Set_Elist21 (N : Node_Id; Val : Elist_Id) is
5357 pragma Assert (Nkind (N) in N_Entity);
5358 Nodes.Table (N + 3).Field8 := Union_Id (Val);
5361 procedure Set_Elist23 (N : Node_Id; Val : Elist_Id) is
5363 pragma Assert (Nkind (N) in N_Entity);
5364 Nodes.Table (N + 3).Field10 := Union_Id (Val);
5367 procedure Set_Elist24 (N : Node_Id; Val : Elist_Id) is
5369 pragma Assert (Nkind (N) in N_Entity);
5370 Nodes.Table (N + 4).Field6 := Union_Id (Val);
5373 procedure Set_Elist25 (N : Node_Id; Val : Elist_Id) is
5375 pragma Assert (Nkind (N) in N_Entity);
5376 Nodes.Table (N + 4).Field7 := Union_Id (Val);
5379 procedure Set_Elist26 (N : Node_Id; Val : Elist_Id) is
5381 pragma Assert (Nkind (N) in N_Entity);
5382 Nodes.Table (N + 4).Field8 := Union_Id (Val);
5385 procedure Set_Name1 (N : Node_Id; Val : Name_Id) is
5387 pragma Assert (N <= Nodes.Last);
5388 Nodes.Table (N).Field1 := Union_Id (Val);
5391 procedure Set_Name2 (N : Node_Id; Val : Name_Id) is
5393 pragma Assert (N <= Nodes.Last);
5394 Nodes.Table (N).Field2 := Union_Id (Val);
5397 procedure Set_Str3 (N : Node_Id; Val : String_Id) is
5399 pragma Assert (N <= Nodes.Last);
5400 Nodes.Table (N).Field3 := Union_Id (Val);
5403 procedure Set_Uint2 (N : Node_Id; Val : Uint) is
5405 pragma Assert (N <= Nodes.Last);
5406 Nodes.Table (N).Field2 := To_Union (Val);
5409 procedure Set_Uint3 (N : Node_Id; Val : Uint) is
5411 pragma Assert (N <= Nodes.Last);
5412 Nodes.Table (N).Field3 := To_Union (Val);
5415 procedure Set_Uint4 (N : Node_Id; Val : Uint) is
5417 pragma Assert (N <= Nodes.Last);
5418 Nodes.Table (N).Field4 := To_Union (Val);
5421 procedure Set_Uint5 (N : Node_Id; Val : Uint) is
5423 pragma Assert (N <= Nodes.Last);
5424 Nodes.Table (N).Field5 := To_Union (Val);
5427 procedure Set_Uint8 (N : Node_Id; Val : Uint) is
5429 pragma Assert (Nkind (N) in N_Entity);
5430 Nodes.Table (N + 1).Field8 := To_Union (Val);
5433 procedure Set_Uint9 (N : Node_Id; Val : Uint) is
5435 pragma Assert (Nkind (N) in N_Entity);
5436 Nodes.Table (N + 1).Field9 := To_Union (Val);
5439 procedure Set_Uint10 (N : Node_Id; Val : Uint) is
5441 pragma Assert (Nkind (N) in N_Entity);
5442 Nodes.Table (N + 1).Field10 := To_Union (Val);
5445 procedure Set_Uint11 (N : Node_Id; Val : Uint) is
5447 pragma Assert (Nkind (N) in N_Entity);
5448 Nodes.Table (N + 1).Field11 := To_Union (Val);
5451 procedure Set_Uint12 (N : Node_Id; Val : Uint) is
5453 pragma Assert (Nkind (N) in N_Entity);
5454 Nodes.Table (N + 1).Field12 := To_Union (Val);
5457 procedure Set_Uint13 (N : Node_Id; Val : Uint) is
5459 pragma Assert (Nkind (N) in N_Entity);
5460 Nodes.Table (N + 2).Field6 := To_Union (Val);
5463 procedure Set_Uint14 (N : Node_Id; Val : Uint) is
5465 pragma Assert (Nkind (N) in N_Entity);
5466 Nodes.Table (N + 2).Field7 := To_Union (Val);
5469 procedure Set_Uint15 (N : Node_Id; Val : Uint) is
5471 pragma Assert (Nkind (N) in N_Entity);
5472 Nodes.Table (N + 2).Field8 := To_Union (Val);
5475 procedure Set_Uint16 (N : Node_Id; Val : Uint) is
5477 pragma Assert (Nkind (N) in N_Entity);
5478 Nodes.Table (N + 2).Field9 := To_Union (Val);
5481 procedure Set_Uint17 (N : Node_Id; Val : Uint) is
5483 pragma Assert (Nkind (N) in N_Entity);
5484 Nodes.Table (N + 2).Field10 := To_Union (Val);
5487 procedure Set_Uint22 (N : Node_Id; Val : Uint) is
5489 pragma Assert (Nkind (N) in N_Entity);
5490 Nodes.Table (N + 3).Field9 := To_Union (Val);
5493 procedure Set_Ureal3 (N : Node_Id; Val : Ureal) is
5495 pragma Assert (N <= Nodes.Last);
5496 Nodes.Table (N).Field3 := To_Union (Val);
5499 procedure Set_Ureal18 (N : Node_Id; Val : Ureal) is
5501 pragma Assert (Nkind (N) in N_Entity);
5502 Nodes.Table (N + 2).Field11 := To_Union (Val);
5505 procedure Set_Ureal21 (N : Node_Id; Val : Ureal) is
5507 pragma Assert (Nkind (N) in N_Entity);
5508 Nodes.Table (N + 3).Field8 := To_Union (Val);
5511 procedure Set_Flag4 (N : Node_Id; Val : Boolean) is
5513 pragma Assert (N <= Nodes.Last);
5514 Nodes.Table (N).Flag4 := Val;
5517 procedure Set_Flag5 (N : Node_Id; Val : Boolean) is
5519 pragma Assert (N <= Nodes.Last);
5520 Nodes.Table (N).Flag5 := Val;
5523 procedure Set_Flag6 (N : Node_Id; Val : Boolean) is
5525 pragma Assert (N <= Nodes.Last);
5526 Nodes.Table (N).Flag6 := Val;
5529 procedure Set_Flag7 (N : Node_Id; Val : Boolean) is
5531 pragma Assert (N <= Nodes.Last);
5532 Nodes.Table (N).Flag7 := Val;
5535 procedure Set_Flag8 (N : Node_Id; Val : Boolean) is
5537 pragma Assert (N <= Nodes.Last);
5538 Nodes.Table (N).Flag8 := Val;
5541 procedure Set_Flag9 (N : Node_Id; Val : Boolean) is
5543 pragma Assert (N <= Nodes.Last);
5544 Nodes.Table (N).Flag9 := Val;
5547 procedure Set_Flag10 (N : Node_Id; Val : Boolean) is
5549 pragma Assert (N <= Nodes.Last);
5550 Nodes.Table (N).Flag10 := Val;
5553 procedure Set_Flag11 (N : Node_Id; Val : Boolean) is
5555 pragma Assert (N <= Nodes.Last);
5556 Nodes.Table (N).Flag11 := Val;
5559 procedure Set_Flag12 (N : Node_Id; Val : Boolean) is
5561 pragma Assert (N <= Nodes.Last);
5562 Nodes.Table (N).Flag12 := Val;
5565 procedure Set_Flag13 (N : Node_Id; Val : Boolean) is
5567 pragma Assert (N <= Nodes.Last);
5568 Nodes.Table (N).Flag13 := Val;
5571 procedure Set_Flag14 (N : Node_Id; Val : Boolean) is
5573 pragma Assert (N <= Nodes.Last);
5574 Nodes.Table (N).Flag14 := Val;
5577 procedure Set_Flag15 (N : Node_Id; Val : Boolean) is
5579 pragma Assert (N <= Nodes.Last);
5580 Nodes.Table (N).Flag15 := Val;
5583 procedure Set_Flag16 (N : Node_Id; Val : Boolean) is
5585 pragma Assert (N <= Nodes.Last);
5586 Nodes.Table (N).Flag16 := Val;
5589 procedure Set_Flag17 (N : Node_Id; Val : Boolean) is
5591 pragma Assert (N <= Nodes.Last);
5592 Nodes.Table (N).Flag17 := Val;
5595 procedure Set_Flag18 (N : Node_Id; Val : Boolean) is
5597 pragma Assert (N <= Nodes.Last);
5598 Nodes.Table (N).Flag18 := Val;
5601 procedure Set_Flag19 (N : Node_Id; Val : Boolean) is
5603 pragma Assert (Nkind (N) in N_Entity);
5604 Nodes.Table (N + 1).In_List := Val;
5607 procedure Set_Flag20 (N : Node_Id; Val : Boolean) is
5609 pragma Assert (Nkind (N) in N_Entity);
5610 Nodes.Table (N + 1).Has_Aspects := Val;
5613 procedure Set_Flag21 (N : Node_Id; Val : Boolean) is
5615 pragma Assert (Nkind (N) in N_Entity);
5616 Nodes.Table (N + 1).Rewrite_Ins := Val;
5619 procedure Set_Flag22 (N : Node_Id; Val : Boolean) is
5621 pragma Assert (Nkind (N) in N_Entity);
5622 Nodes.Table (N + 1).Analyzed := Val;
5625 procedure Set_Flag23 (N : Node_Id; Val : Boolean) is
5627 pragma Assert (Nkind (N) in N_Entity);
5628 Nodes.Table (N + 1).Comes_From_Source := Val;
5631 procedure Set_Flag24 (N : Node_Id; Val : Boolean) is
5633 pragma Assert (Nkind (N) in N_Entity);
5634 Nodes.Table (N + 1).Error_Posted := Val;
5637 procedure Set_Flag25 (N : Node_Id; Val : Boolean) is
5639 pragma Assert (Nkind (N) in N_Entity);
5640 Nodes.Table (N + 1).Flag4 := Val;
5643 procedure Set_Flag26 (N : Node_Id; Val : Boolean) is
5645 pragma Assert (Nkind (N) in N_Entity);
5646 Nodes.Table (N + 1).Flag5 := Val;
5649 procedure Set_Flag27 (N : Node_Id; Val : Boolean) is
5651 pragma Assert (Nkind (N) in N_Entity);
5652 Nodes.Table (N + 1).Flag6 := Val;
5655 procedure Set_Flag28 (N : Node_Id; Val : Boolean) is
5657 pragma Assert (Nkind (N) in N_Entity);
5658 Nodes.Table (N + 1).Flag7 := Val;
5661 procedure Set_Flag29 (N : Node_Id; Val : Boolean) is
5663 pragma Assert (Nkind (N) in N_Entity);
5664 Nodes.Table (N + 1).Flag8 := Val;
5667 procedure Set_Flag30 (N : Node_Id; Val : Boolean) is
5669 pragma Assert (Nkind (N) in N_Entity);
5670 Nodes.Table (N + 1).Flag9 := Val;
5673 procedure Set_Flag31 (N : Node_Id; Val : Boolean) is
5675 pragma Assert (Nkind (N) in N_Entity);
5676 Nodes.Table (N + 1).Flag10 := Val;
5679 procedure Set_Flag32 (N : Node_Id; Val : Boolean) is
5681 pragma Assert (Nkind (N) in N_Entity);
5682 Nodes.Table (N + 1).Flag11 := Val;
5685 procedure Set_Flag33 (N : Node_Id; Val : Boolean) is
5687 pragma Assert (Nkind (N) in N_Entity);
5688 Nodes.Table (N + 1).Flag12 := Val;
5691 procedure Set_Flag34 (N : Node_Id; Val : Boolean) is
5693 pragma Assert (Nkind (N) in N_Entity);
5694 Nodes.Table (N + 1).Flag13 := Val;
5697 procedure Set_Flag35 (N : Node_Id; Val : Boolean) is
5699 pragma Assert (Nkind (N) in N_Entity);
5700 Nodes.Table (N + 1).Flag14 := Val;
5703 procedure Set_Flag36 (N : Node_Id; Val : Boolean) is
5705 pragma Assert (Nkind (N) in N_Entity);
5706 Nodes.Table (N + 1).Flag15 := Val;
5709 procedure Set_Flag37 (N : Node_Id; Val : Boolean) is
5711 pragma Assert (Nkind (N) in N_Entity);
5712 Nodes.Table (N + 1).Flag16 := Val;
5715 procedure Set_Flag38 (N : Node_Id; Val : Boolean) is
5717 pragma Assert (Nkind (N) in N_Entity);
5718 Nodes.Table (N + 1).Flag17 := Val;
5721 procedure Set_Flag39 (N : Node_Id; Val : Boolean) is
5723 pragma Assert (Nkind (N) in N_Entity);
5724 Nodes.Table (N + 1).Flag18 := Val;
5727 procedure Set_Flag40 (N : Node_Id; Val : Boolean) is
5729 pragma Assert (Nkind (N) in N_Entity);
5730 Nodes.Table (N + 2).In_List := Val;
5733 procedure Set_Flag41 (N : Node_Id; Val : Boolean) is
5735 pragma Assert (Nkind (N) in N_Entity);
5736 Nodes.Table (N + 2).Has_Aspects := Val;
5739 procedure Set_Flag42 (N : Node_Id; Val : Boolean) is
5741 pragma Assert (Nkind (N) in N_Entity);
5742 Nodes.Table (N + 2).Rewrite_Ins := Val;
5745 procedure Set_Flag43 (N : Node_Id; Val : Boolean) is
5747 pragma Assert (Nkind (N) in N_Entity);
5748 Nodes.Table (N + 2).Analyzed := Val;
5751 procedure Set_Flag44 (N : Node_Id; Val : Boolean) is
5753 pragma Assert (Nkind (N) in N_Entity);
5754 Nodes.Table (N + 2).Comes_From_Source := Val;
5757 procedure Set_Flag45 (N : Node_Id; Val : Boolean) is
5759 pragma Assert (Nkind (N) in N_Entity);
5760 Nodes.Table (N + 2).Error_Posted := Val;
5763 procedure Set_Flag46 (N : Node_Id; Val : Boolean) is
5765 pragma Assert (Nkind (N) in N_Entity);
5766 Nodes.Table (N + 2).Flag4 := Val;
5769 procedure Set_Flag47 (N : Node_Id; Val : Boolean) is
5771 pragma Assert (Nkind (N) in N_Entity);
5772 Nodes.Table (N + 2).Flag5 := Val;
5775 procedure Set_Flag48 (N : Node_Id; Val : Boolean) is
5777 pragma Assert (Nkind (N) in N_Entity);
5778 Nodes.Table (N + 2).Flag6 := Val;
5781 procedure Set_Flag49 (N : Node_Id; Val : Boolean) is
5783 pragma Assert (Nkind (N) in N_Entity);
5784 Nodes.Table (N + 2).Flag7 := Val;
5787 procedure Set_Flag50 (N : Node_Id; Val : Boolean) is
5789 pragma Assert (Nkind (N) in N_Entity);
5790 Nodes.Table (N + 2).Flag8 := Val;
5793 procedure Set_Flag51 (N : Node_Id; Val : Boolean) is
5795 pragma Assert (Nkind (N) in N_Entity);
5796 Nodes.Table (N + 2).Flag9 := Val;
5799 procedure Set_Flag52 (N : Node_Id; Val : Boolean) is
5801 pragma Assert (Nkind (N) in N_Entity);
5802 Nodes.Table (N + 2).Flag10 := Val;
5805 procedure Set_Flag53 (N : Node_Id; Val : Boolean) is
5807 pragma Assert (Nkind (N) in N_Entity);
5808 Nodes.Table (N + 2).Flag11 := Val;
5811 procedure Set_Flag54 (N : Node_Id; Val : Boolean) is
5813 pragma Assert (Nkind (N) in N_Entity);
5814 Nodes.Table (N + 2).Flag12 := Val;
5817 procedure Set_Flag55 (N : Node_Id; Val : Boolean) is
5819 pragma Assert (Nkind (N) in N_Entity);
5820 Nodes.Table (N + 2).Flag13 := Val;
5823 procedure Set_Flag56 (N : Node_Id; Val : Boolean) is
5825 pragma Assert (Nkind (N) in N_Entity);
5826 Nodes.Table (N + 2).Flag14 := Val;
5829 procedure Set_Flag57 (N : Node_Id; Val : Boolean) is
5831 pragma Assert (Nkind (N) in N_Entity);
5832 Nodes.Table (N + 2).Flag15 := Val;
5835 procedure Set_Flag58 (N : Node_Id; Val : Boolean) is
5837 pragma Assert (Nkind (N) in N_Entity);
5838 Nodes.Table (N + 2).Flag16 := Val;
5841 procedure Set_Flag59 (N : Node_Id; Val : Boolean) is
5843 pragma Assert (Nkind (N) in N_Entity);
5844 Nodes.Table (N + 2).Flag17 := Val;
5847 procedure Set_Flag60 (N : Node_Id; Val : Boolean) is
5849 pragma Assert (Nkind (N) in N_Entity);
5850 Nodes.Table (N + 2).Flag18 := Val;
5853 procedure Set_Flag61 (N : Node_Id; Val : Boolean) is
5855 pragma Assert (Nkind (N) in N_Entity);
5856 Nodes.Table (N + 1).Pflag1 := Val;
5859 procedure Set_Flag62 (N : Node_Id; Val : Boolean) is
5861 pragma Assert (Nkind (N) in N_Entity);
5862 Nodes.Table (N + 1).Pflag2 := Val;
5865 procedure Set_Flag63 (N : Node_Id; Val : Boolean) is
5867 pragma Assert (Nkind (N) in N_Entity);
5868 Nodes.Table (N + 2).Pflag1 := Val;
5871 procedure Set_Flag64 (N : Node_Id; Val : Boolean) is
5873 pragma Assert (Nkind (N) in N_Entity);
5874 Nodes.Table (N + 2).Pflag2 := Val;
5877 procedure Set_Flag65 (N : Node_Id; Val : Boolean) is
5879 pragma Assert (Nkind (N) in N_Entity);
5882 (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag65 := Val;
5885 procedure Set_Flag66 (N : Node_Id; Val : Boolean) is
5887 pragma Assert (Nkind (N) in N_Entity);
5890 (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag66 := Val;
5893 procedure Set_Flag67 (N : Node_Id; Val : Boolean) is
5895 pragma Assert (Nkind (N) in N_Entity);
5898 (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag67 := Val;
5901 procedure Set_Flag68 (N : Node_Id; Val : Boolean) is
5903 pragma Assert (Nkind (N) in N_Entity);
5906 (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag68 := Val;
5909 procedure Set_Flag69 (N : Node_Id; Val : Boolean) is
5911 pragma Assert (Nkind (N) in N_Entity);
5914 (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag69 := Val;
5917 procedure Set_Flag70 (N : Node_Id; Val : Boolean) is
5919 pragma Assert (Nkind (N) in N_Entity);
5922 (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag70 := Val;
5925 procedure Set_Flag71 (N : Node_Id; Val : Boolean) is
5927 pragma Assert (Nkind (N) in N_Entity);
5930 (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag71 := Val;
5933 procedure Set_Flag72 (N : Node_Id; Val : Boolean) is
5935 pragma Assert (Nkind (N) in N_Entity);
5938 (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag72 := Val;
5941 procedure Set_Flag73 (N : Node_Id; Val : Boolean) is
5943 pragma Assert (Nkind (N) in N_Entity);
5946 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag73 := Val;
5949 procedure Set_Flag74 (N : Node_Id; Val : Boolean) is
5951 pragma Assert (Nkind (N) in N_Entity);
5954 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag74 := Val;
5957 procedure Set_Flag75 (N : Node_Id; Val : Boolean) is
5959 pragma Assert (Nkind (N) in N_Entity);
5962 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag75 := Val;
5965 procedure Set_Flag76 (N : Node_Id; Val : Boolean) is
5967 pragma Assert (Nkind (N) in N_Entity);
5970 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag76 := Val;
5973 procedure Set_Flag77 (N : Node_Id; Val : Boolean) is
5975 pragma Assert (Nkind (N) in N_Entity);
5978 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag77 := Val;
5981 procedure Set_Flag78 (N : Node_Id; Val : Boolean) is
5983 pragma Assert (Nkind (N) in N_Entity);
5986 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag78 := Val;
5989 procedure Set_Flag79 (N : Node_Id; Val : Boolean) is
5991 pragma Assert (Nkind (N) in N_Entity);
5994 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag79 := Val;
5997 procedure Set_Flag80 (N : Node_Id; Val : Boolean) is
5999 pragma Assert (Nkind (N) in N_Entity);
6002 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag80 := Val;
6005 procedure Set_Flag81 (N : Node_Id; Val : Boolean) is
6007 pragma Assert (Nkind (N) in N_Entity);
6010 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag81 := Val;
6013 procedure Set_Flag82 (N : Node_Id; Val : Boolean) is
6015 pragma Assert (Nkind (N) in N_Entity);
6018 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag82 := Val;
6021 procedure Set_Flag83 (N : Node_Id; Val : Boolean) is
6023 pragma Assert (Nkind (N) in N_Entity);
6026 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag83 := Val;
6029 procedure Set_Flag84 (N : Node_Id; Val : Boolean) is
6031 pragma Assert (Nkind (N) in N_Entity);
6034 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag84 := Val;
6037 procedure Set_Flag85 (N : Node_Id; Val : Boolean) is
6039 pragma Assert (Nkind (N) in N_Entity);
6042 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag85 := Val;
6045 procedure Set_Flag86 (N : Node_Id; Val : Boolean) is
6047 pragma Assert (Nkind (N) in N_Entity);
6050 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag86 := Val;
6053 procedure Set_Flag87 (N : Node_Id; Val : Boolean) is
6055 pragma Assert (Nkind (N) in N_Entity);
6058 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag87 := Val;
6061 procedure Set_Flag88 (N : Node_Id; Val : Boolean) is
6063 pragma Assert (Nkind (N) in N_Entity);
6066 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag88 := Val;
6069 procedure Set_Flag89 (N : Node_Id; Val : Boolean) is
6071 pragma Assert (Nkind (N) in N_Entity);
6074 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag89 := Val;
6077 procedure Set_Flag90 (N : Node_Id; Val : Boolean) is
6079 pragma Assert (Nkind (N) in N_Entity);
6082 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag90 := Val;
6085 procedure Set_Flag91 (N : Node_Id; Val : Boolean) is
6087 pragma Assert (Nkind (N) in N_Entity);
6090 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag91 := Val;
6093 procedure Set_Flag92 (N : Node_Id; Val : Boolean) is
6095 pragma Assert (Nkind (N) in N_Entity);
6098 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag92 := Val;
6101 procedure Set_Flag93 (N : Node_Id; Val : Boolean) is
6103 pragma Assert (Nkind (N) in N_Entity);
6106 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag93 := Val;
6109 procedure Set_Flag94 (N : Node_Id; Val : Boolean) is
6111 pragma Assert (Nkind (N) in N_Entity);
6114 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag94 := Val;
6117 procedure Set_Flag95 (N : Node_Id; Val : Boolean) is
6119 pragma Assert (Nkind (N) in N_Entity);
6122 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag95 := Val;
6125 procedure Set_Flag96 (N : Node_Id; Val : Boolean) is
6127 pragma Assert (Nkind (N) in N_Entity);
6130 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag96 := Val;
6133 procedure Set_Flag97 (N : Node_Id; Val : Boolean) is
6135 pragma Assert (Nkind (N) in N_Entity);
6138 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag97 := Val;
6141 procedure Set_Flag98 (N : Node_Id; Val : Boolean) is
6143 pragma Assert (Nkind (N) in N_Entity);
6146 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag98 := Val;
6149 procedure Set_Flag99 (N : Node_Id; Val : Boolean) is
6151 pragma Assert (Nkind (N) in N_Entity);
6154 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag99 := Val;
6157 procedure Set_Flag100 (N : Node_Id; Val : Boolean) is
6159 pragma Assert (Nkind (N) in N_Entity);
6162 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag100 := Val;
6165 procedure Set_Flag101 (N : Node_Id; Val : Boolean) is
6167 pragma Assert (Nkind (N) in N_Entity);
6170 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag101 := Val;
6173 procedure Set_Flag102 (N : Node_Id; Val : Boolean) is
6175 pragma Assert (Nkind (N) in N_Entity);
6178 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag102 := Val;
6181 procedure Set_Flag103 (N : Node_Id; Val : Boolean) is
6183 pragma Assert (Nkind (N) in N_Entity);
6186 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag103 := Val;
6189 procedure Set_Flag104 (N : Node_Id; Val : Boolean) is
6191 pragma Assert (Nkind (N) in N_Entity);
6194 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag104 := Val;
6197 procedure Set_Flag105 (N : Node_Id; Val : Boolean) is
6199 pragma Assert (Nkind (N) in N_Entity);
6202 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag105 := Val;
6205 procedure Set_Flag106 (N : Node_Id; Val : Boolean) is
6207 pragma Assert (Nkind (N) in N_Entity);
6210 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag106 := Val;
6213 procedure Set_Flag107 (N : Node_Id; Val : Boolean) is
6215 pragma Assert (Nkind (N) in N_Entity);
6218 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag107 := Val;
6221 procedure Set_Flag108 (N : Node_Id; Val : Boolean) is
6223 pragma Assert (Nkind (N) in N_Entity);
6226 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag108 := Val;
6229 procedure Set_Flag109 (N : Node_Id; Val : Boolean) is
6231 pragma Assert (Nkind (N) in N_Entity);
6234 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag109 := Val;
6237 procedure Set_Flag110 (N : Node_Id; Val : Boolean) is
6239 pragma Assert (Nkind (N) in N_Entity);
6242 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag110 := Val;
6245 procedure Set_Flag111 (N : Node_Id; Val : Boolean) is
6247 pragma Assert (Nkind (N) in N_Entity);
6250 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag111 := Val;
6253 procedure Set_Flag112 (N : Node_Id; Val : Boolean) is
6255 pragma Assert (Nkind (N) in N_Entity);
6258 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag112 := Val;
6261 procedure Set_Flag113 (N : Node_Id; Val : Boolean) is
6263 pragma Assert (Nkind (N) in N_Entity);
6266 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag113 := Val;
6269 procedure Set_Flag114 (N : Node_Id; Val : Boolean) is
6271 pragma Assert (Nkind (N) in N_Entity);
6274 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag114 := Val;
6277 procedure Set_Flag115 (N : Node_Id; Val : Boolean) is
6279 pragma Assert (Nkind (N) in N_Entity);
6282 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag115 := Val;
6285 procedure Set_Flag116 (N : Node_Id; Val : Boolean) is
6287 pragma Assert (Nkind (N) in N_Entity);
6290 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag116 := Val;
6293 procedure Set_Flag117 (N : Node_Id; Val : Boolean) is
6295 pragma Assert (Nkind (N) in N_Entity);
6298 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag117 := Val;
6301 procedure Set_Flag118 (N : Node_Id; Val : Boolean) is
6303 pragma Assert (Nkind (N) in N_Entity);
6306 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag118 := Val;
6309 procedure Set_Flag119 (N : Node_Id; Val : Boolean) is
6311 pragma Assert (Nkind (N) in N_Entity);
6314 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag119 := Val;
6317 procedure Set_Flag120 (N : Node_Id; Val : Boolean) is
6319 pragma Assert (Nkind (N) in N_Entity);
6322 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag120 := Val;
6325 procedure Set_Flag121 (N : Node_Id; Val : Boolean) is
6327 pragma Assert (Nkind (N) in N_Entity);
6330 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag121 := Val;
6333 procedure Set_Flag122 (N : Node_Id; Val : Boolean) is
6335 pragma Assert (Nkind (N) in N_Entity);
6338 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag122 := Val;
6341 procedure Set_Flag123 (N : Node_Id; Val : Boolean) is
6343 pragma Assert (Nkind (N) in N_Entity);
6346 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag123 := Val;
6349 procedure Set_Flag124 (N : Node_Id; Val : Boolean) is
6351 pragma Assert (Nkind (N) in N_Entity);
6354 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag124 := Val;
6357 procedure Set_Flag125 (N : Node_Id; Val : Boolean) is
6359 pragma Assert (Nkind (N) in N_Entity);
6362 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag125 := Val;
6365 procedure Set_Flag126 (N : Node_Id; Val : Boolean) is
6367 pragma Assert (Nkind (N) in N_Entity);
6370 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag126 := Val;
6373 procedure Set_Flag127 (N : Node_Id; Val : Boolean) is
6375 pragma Assert (Nkind (N) in N_Entity);
6378 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag127 := Val;
6381 procedure Set_Flag128 (N : Node_Id; Val : Boolean) is
6383 pragma Assert (Nkind (N) in N_Entity);
6386 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag128 := Val;
6389 procedure Set_Flag129 (N : Node_Id; Val : Boolean) is
6391 pragma Assert (Nkind (N) in N_Entity);
6392 Nodes.Table (N + 3).In_List := Val;
6395 procedure Set_Flag130 (N : Node_Id; Val : Boolean) is
6397 pragma Assert (Nkind (N) in N_Entity);
6398 Nodes.Table (N + 3).Has_Aspects := Val;
6401 procedure Set_Flag131 (N : Node_Id; Val : Boolean) is
6403 pragma Assert (Nkind (N) in N_Entity);
6404 Nodes.Table (N + 3).Rewrite_Ins := Val;
6407 procedure Set_Flag132 (N : Node_Id; Val : Boolean) is
6409 pragma Assert (Nkind (N) in N_Entity);
6410 Nodes.Table (N + 3).Analyzed := Val;
6413 procedure Set_Flag133 (N : Node_Id; Val : Boolean) is
6415 pragma Assert (Nkind (N) in N_Entity);
6416 Nodes.Table (N + 3).Comes_From_Source := Val;
6419 procedure Set_Flag134 (N : Node_Id; Val : Boolean) is
6421 pragma Assert (Nkind (N) in N_Entity);
6422 Nodes.Table (N + 3).Error_Posted := Val;
6425 procedure Set_Flag135 (N : Node_Id; Val : Boolean) is
6427 pragma Assert (Nkind (N) in N_Entity);
6428 Nodes.Table (N + 3).Flag4 := Val;
6431 procedure Set_Flag136 (N : Node_Id; Val : Boolean) is
6433 pragma Assert (Nkind (N) in N_Entity);
6434 Nodes.Table (N + 3).Flag5 := Val;
6437 procedure Set_Flag137 (N : Node_Id; Val : Boolean) is
6439 pragma Assert (Nkind (N) in N_Entity);
6440 Nodes.Table (N + 3).Flag6 := Val;
6443 procedure Set_Flag138 (N : Node_Id; Val : Boolean) is
6445 pragma Assert (Nkind (N) in N_Entity);
6446 Nodes.Table (N + 3).Flag7 := Val;
6449 procedure Set_Flag139 (N : Node_Id; Val : Boolean) is
6451 pragma Assert (Nkind (N) in N_Entity);
6452 Nodes.Table (N + 3).Flag8 := Val;
6455 procedure Set_Flag140 (N : Node_Id; Val : Boolean) is
6457 pragma Assert (Nkind (N) in N_Entity);
6458 Nodes.Table (N + 3).Flag9 := Val;
6461 procedure Set_Flag141 (N : Node_Id; Val : Boolean) is
6463 pragma Assert (Nkind (N) in N_Entity);
6464 Nodes.Table (N + 3).Flag10 := Val;
6467 procedure Set_Flag142 (N : Node_Id; Val : Boolean) is
6469 pragma Assert (Nkind (N) in N_Entity);
6470 Nodes.Table (N + 3).Flag11 := Val;
6473 procedure Set_Flag143 (N : Node_Id; Val : Boolean) is
6475 pragma Assert (Nkind (N) in N_Entity);
6476 Nodes.Table (N + 3).Flag12 := Val;
6479 procedure Set_Flag144 (N : Node_Id; Val : Boolean) is
6481 pragma Assert (Nkind (N) in N_Entity);
6482 Nodes.Table (N + 3).Flag13 := Val;
6485 procedure Set_Flag145 (N : Node_Id; Val : Boolean) is
6487 pragma Assert (Nkind (N) in N_Entity);
6488 Nodes.Table (N + 3).Flag14 := Val;
6491 procedure Set_Flag146 (N : Node_Id; Val : Boolean) is
6493 pragma Assert (Nkind (N) in N_Entity);
6494 Nodes.Table (N + 3).Flag15 := Val;
6497 procedure Set_Flag147 (N : Node_Id; Val : Boolean) is
6499 pragma Assert (Nkind (N) in N_Entity);
6500 Nodes.Table (N + 3).Flag16 := Val;
6503 procedure Set_Flag148 (N : Node_Id; Val : Boolean) is
6505 pragma Assert (Nkind (N) in N_Entity);
6506 Nodes.Table (N + 3).Flag17 := Val;
6509 procedure Set_Flag149 (N : Node_Id; Val : Boolean) is
6511 pragma Assert (Nkind (N) in N_Entity);
6512 Nodes.Table (N + 3).Flag18 := Val;
6515 procedure Set_Flag150 (N : Node_Id; Val : Boolean) is
6517 pragma Assert (Nkind (N) in N_Entity);
6518 Nodes.Table (N + 3).Pflag1 := Val;
6521 procedure Set_Flag151 (N : Node_Id; Val : Boolean) is
6523 pragma Assert (Nkind (N) in N_Entity);
6524 Nodes.Table (N + 3).Pflag2 := Val;
6527 procedure Set_Flag152 (N : Node_Id; Val : Boolean) is
6529 pragma Assert (Nkind (N) in N_Entity);
6532 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag152 := Val;
6535 procedure Set_Flag153 (N : Node_Id; Val : Boolean) is
6537 pragma Assert (Nkind (N) in N_Entity);
6540 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag153 := Val;
6543 procedure Set_Flag154 (N : Node_Id; Val : Boolean) is
6545 pragma Assert (Nkind (N) in N_Entity);
6548 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag154 := Val;
6551 procedure Set_Flag155 (N : Node_Id; Val : Boolean) is
6553 pragma Assert (Nkind (N) in N_Entity);
6556 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag155 := Val;
6559 procedure Set_Flag156 (N : Node_Id; Val : Boolean) is
6561 pragma Assert (Nkind (N) in N_Entity);
6564 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag156 := Val;
6567 procedure Set_Flag157 (N : Node_Id; Val : Boolean) is
6569 pragma Assert (Nkind (N) in N_Entity);
6572 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag157 := Val;
6575 procedure Set_Flag158 (N : Node_Id; Val : Boolean) is
6577 pragma Assert (Nkind (N) in N_Entity);
6580 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag158 := Val;
6583 procedure Set_Flag159 (N : Node_Id; Val : Boolean) is
6585 pragma Assert (Nkind (N) in N_Entity);
6588 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag159 := Val;
6591 procedure Set_Flag160 (N : Node_Id; Val : Boolean) is
6593 pragma Assert (Nkind (N) in N_Entity);
6596 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag160 := Val;
6599 procedure Set_Flag161 (N : Node_Id; Val : Boolean) is
6601 pragma Assert (Nkind (N) in N_Entity);
6604 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag161 := Val;
6607 procedure Set_Flag162 (N : Node_Id; Val : Boolean) is
6609 pragma Assert (Nkind (N) in N_Entity);
6612 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag162 := Val;
6615 procedure Set_Flag163 (N : Node_Id; Val : Boolean) is
6617 pragma Assert (Nkind (N) in N_Entity);
6620 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag163 := Val;
6623 procedure Set_Flag164 (N : Node_Id; Val : Boolean) is
6625 pragma Assert (Nkind (N) in N_Entity);
6628 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag164 := Val;
6631 procedure Set_Flag165 (N : Node_Id; Val : Boolean) is
6633 pragma Assert (Nkind (N) in N_Entity);
6636 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag165 := Val;
6639 procedure Set_Flag166 (N : Node_Id; Val : Boolean) is
6641 pragma Assert (Nkind (N) in N_Entity);
6644 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag166 := Val;
6647 procedure Set_Flag167 (N : Node_Id; Val : Boolean) is
6649 pragma Assert (Nkind (N) in N_Entity);
6652 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag167 := Val;
6655 procedure Set_Flag168 (N : Node_Id; Val : Boolean) is
6657 pragma Assert (Nkind (N) in N_Entity);
6660 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag168 := Val;
6663 procedure Set_Flag169 (N : Node_Id; Val : Boolean) is
6665 pragma Assert (Nkind (N) in N_Entity);
6668 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag169 := Val;
6671 procedure Set_Flag170 (N : Node_Id; Val : Boolean) is
6673 pragma Assert (Nkind (N) in N_Entity);
6676 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag170 := Val;
6679 procedure Set_Flag171 (N : Node_Id; Val : Boolean) is
6681 pragma Assert (Nkind (N) in N_Entity);
6684 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag171 := Val;
6687 procedure Set_Flag172 (N : Node_Id; Val : Boolean) is
6689 pragma Assert (Nkind (N) in N_Entity);
6692 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag172 := Val;
6695 procedure Set_Flag173 (N : Node_Id; Val : Boolean) is
6697 pragma Assert (Nkind (N) in N_Entity);
6700 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag173 := Val;
6703 procedure Set_Flag174 (N : Node_Id; Val : Boolean) is
6705 pragma Assert (Nkind (N) in N_Entity);
6708 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag174 := Val;
6711 procedure Set_Flag175 (N : Node_Id; Val : Boolean) is
6713 pragma Assert (Nkind (N) in N_Entity);
6716 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag175 := Val;
6719 procedure Set_Flag176 (N : Node_Id; Val : Boolean) is
6721 pragma Assert (Nkind (N) in N_Entity);
6724 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag176 := Val;
6727 procedure Set_Flag177 (N : Node_Id; Val : Boolean) is
6729 pragma Assert (Nkind (N) in N_Entity);
6732 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag177 := Val;
6735 procedure Set_Flag178 (N : Node_Id; Val : Boolean) is
6737 pragma Assert (Nkind (N) in N_Entity);
6740 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag178 := Val;
6743 procedure Set_Flag179 (N : Node_Id; Val : Boolean) is
6745 pragma Assert (Nkind (N) in N_Entity);
6748 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag179 := Val;
6751 procedure Set_Flag180 (N : Node_Id; Val : Boolean) is
6753 pragma Assert (Nkind (N) in N_Entity);
6756 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag180 := Val;
6759 procedure Set_Flag181 (N : Node_Id; Val : Boolean) is
6761 pragma Assert (Nkind (N) in N_Entity);
6764 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag181 := Val;
6767 procedure Set_Flag182 (N : Node_Id; Val : Boolean) is
6769 pragma Assert (Nkind (N) in N_Entity);
6772 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag182 := Val;
6775 procedure Set_Flag183 (N : Node_Id; Val : Boolean) is
6777 pragma Assert (Nkind (N) in N_Entity);
6780 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag183 := Val;
6783 procedure Set_Flag184 (N : Node_Id; Val : Boolean) is
6785 pragma Assert (Nkind (N) in N_Entity);
6788 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag184 := Val;
6791 procedure Set_Flag185 (N : Node_Id; Val : Boolean) is
6793 pragma Assert (Nkind (N) in N_Entity);
6796 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag185 := Val;
6799 procedure Set_Flag186 (N : Node_Id; Val : Boolean) is
6801 pragma Assert (Nkind (N) in N_Entity);
6804 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag186 := Val;
6807 procedure Set_Flag187 (N : Node_Id; Val : Boolean) is
6809 pragma Assert (Nkind (N) in N_Entity);
6812 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag187 := Val;
6815 procedure Set_Flag188 (N : Node_Id; Val : Boolean) is
6817 pragma Assert (Nkind (N) in N_Entity);
6820 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag188 := Val;
6823 procedure Set_Flag189 (N : Node_Id; Val : Boolean) is
6825 pragma Assert (Nkind (N) in N_Entity);
6828 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag189 := Val;
6831 procedure Set_Flag190 (N : Node_Id; Val : Boolean) is
6833 pragma Assert (Nkind (N) in N_Entity);
6836 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag190 := Val;
6839 procedure Set_Flag191 (N : Node_Id; Val : Boolean) is
6841 pragma Assert (Nkind (N) in N_Entity);
6844 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag191 := Val;
6847 procedure Set_Flag192 (N : Node_Id; Val : Boolean) is
6849 pragma Assert (Nkind (N) in N_Entity);
6852 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag192 := Val;
6855 procedure Set_Flag193 (N : Node_Id; Val : Boolean) is
6857 pragma Assert (Nkind (N) in N_Entity);
6860 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag193 := Val;
6863 procedure Set_Flag194 (N : Node_Id; Val : Boolean) is
6865 pragma Assert (Nkind (N) in N_Entity);
6868 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag194 := Val;
6871 procedure Set_Flag195 (N : Node_Id; Val : Boolean) is
6873 pragma Assert (Nkind (N) in N_Entity);
6876 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag195 := Val;
6879 procedure Set_Flag196 (N : Node_Id; Val : Boolean) is
6881 pragma Assert (Nkind (N) in N_Entity);
6884 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag196 := Val;
6887 procedure Set_Flag197 (N : Node_Id; Val : Boolean) is
6889 pragma Assert (Nkind (N) in N_Entity);
6892 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag197 := Val;
6895 procedure Set_Flag198 (N : Node_Id; Val : Boolean) is
6897 pragma Assert (Nkind (N) in N_Entity);
6900 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag198 := Val;
6903 procedure Set_Flag199 (N : Node_Id; Val : Boolean) is
6905 pragma Assert (Nkind (N) in N_Entity);
6908 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag199 := Val;
6911 procedure Set_Flag200 (N : Node_Id; Val : Boolean) is
6913 pragma Assert (Nkind (N) in N_Entity);
6916 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag200 := Val;
6919 procedure Set_Flag201 (N : Node_Id; Val : Boolean) is
6921 pragma Assert (Nkind (N) in N_Entity);
6924 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag201 := Val;
6927 procedure Set_Flag202 (N : Node_Id; Val : Boolean) is
6929 pragma Assert (Nkind (N) in N_Entity);
6932 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag202 := Val;
6935 procedure Set_Flag203 (N : Node_Id; Val : Boolean) is
6937 pragma Assert (Nkind (N) in N_Entity);
6940 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag203 := Val;
6943 procedure Set_Flag204 (N : Node_Id; Val : Boolean) is
6945 pragma Assert (Nkind (N) in N_Entity);
6948 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag204 := Val;
6951 procedure Set_Flag205 (N : Node_Id; Val : Boolean) is
6953 pragma Assert (Nkind (N) in N_Entity);
6956 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag205 := Val;
6959 procedure Set_Flag206 (N : Node_Id; Val : Boolean) is
6961 pragma Assert (Nkind (N) in N_Entity);
6964 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag206 := Val;
6967 procedure Set_Flag207 (N : Node_Id; Val : Boolean) is
6969 pragma Assert (Nkind (N) in N_Entity);
6972 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag207 := Val;
6975 procedure Set_Flag208 (N : Node_Id; Val : Boolean) is
6977 pragma Assert (Nkind (N) in N_Entity);
6980 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag208 := Val;
6983 procedure Set_Flag209 (N : Node_Id; Val : Boolean) is
6985 pragma Assert (Nkind (N) in N_Entity);
6988 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag209 := Val;
6991 procedure Set_Flag210 (N : Node_Id; Val : Boolean) is
6993 pragma Assert (Nkind (N) in N_Entity);
6996 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag210 := Val;
6999 procedure Set_Flag211 (N : Node_Id; Val : Boolean) is
7001 pragma Assert (Nkind (N) in N_Entity);
7004 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag211 := Val;
7007 procedure Set_Flag212 (N : Node_Id; Val : Boolean) is
7009 pragma Assert (Nkind (N) in N_Entity);
7012 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag212 := Val;
7015 procedure Set_Flag213 (N : Node_Id; Val : Boolean) is
7017 pragma Assert (Nkind (N) in N_Entity);
7020 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag213 := Val;
7023 procedure Set_Flag214 (N : Node_Id; Val : Boolean) is
7025 pragma Assert (Nkind (N) in N_Entity);
7028 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag214 := Val;
7031 procedure Set_Flag215 (N : Node_Id; Val : Boolean) is
7033 pragma Assert (Nkind (N) in N_Entity);
7036 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag215 := Val;
7039 procedure Set_Flag216 (N : Node_Id; Val : Boolean) is
7041 pragma Assert (Nkind (N) in N_Entity);
7042 Nodes.Table (N + 4).In_List := Val;
7045 procedure Set_Flag217 (N : Node_Id; Val : Boolean) is
7047 pragma Assert (Nkind (N) in N_Entity);
7048 Nodes.Table (N + 4).Has_Aspects := Val;
7051 procedure Set_Flag218 (N : Node_Id; Val : Boolean) is
7053 pragma Assert (Nkind (N) in N_Entity);
7054 Nodes.Table (N + 4).Rewrite_Ins := Val;
7057 procedure Set_Flag219 (N : Node_Id; Val : Boolean) is
7059 pragma Assert (Nkind (N) in N_Entity);
7060 Nodes.Table (N + 4).Analyzed := Val;
7063 procedure Set_Flag220 (N : Node_Id; Val : Boolean) is
7065 pragma Assert (Nkind (N) in N_Entity);
7066 Nodes.Table (N + 4).Comes_From_Source := Val;
7069 procedure Set_Flag221 (N : Node_Id; Val : Boolean) is
7071 pragma Assert (Nkind (N) in N_Entity);
7072 Nodes.Table (N + 4).Error_Posted := Val;
7075 procedure Set_Flag222 (N : Node_Id; Val : Boolean) is
7077 pragma Assert (Nkind (N) in N_Entity);
7078 Nodes.Table (N + 4).Flag4 := Val;
7081 procedure Set_Flag223 (N : Node_Id; Val : Boolean) is
7083 pragma Assert (Nkind (N) in N_Entity);
7084 Nodes.Table (N + 4).Flag5 := Val;
7087 procedure Set_Flag224 (N : Node_Id; Val : Boolean) is
7089 pragma Assert (Nkind (N) in N_Entity);
7090 Nodes.Table (N + 4).Flag6 := Val;
7093 procedure Set_Flag225 (N : Node_Id; Val : Boolean) is
7095 pragma Assert (Nkind (N) in N_Entity);
7096 Nodes.Table (N + 4).Flag7 := Val;
7099 procedure Set_Flag226 (N : Node_Id; Val : Boolean) is
7101 pragma Assert (Nkind (N) in N_Entity);
7102 Nodes.Table (N + 4).Flag8 := Val;
7105 procedure Set_Flag227 (N : Node_Id; Val : Boolean) is
7107 pragma Assert (Nkind (N) in N_Entity);
7108 Nodes.Table (N + 4).Flag9 := Val;
7111 procedure Set_Flag228 (N : Node_Id; Val : Boolean) is
7113 pragma Assert (Nkind (N) in N_Entity);
7114 Nodes.Table (N + 4).Flag10 := Val;
7117 procedure Set_Flag229 (N : Node_Id; Val : Boolean) is
7119 pragma Assert (Nkind (N) in N_Entity);
7120 Nodes.Table (N + 4).Flag11 := Val;
7123 procedure Set_Flag230 (N : Node_Id; Val : Boolean) is
7125 pragma Assert (Nkind (N) in N_Entity);
7126 Nodes.Table (N + 4).Flag12 := Val;
7129 procedure Set_Flag231 (N : Node_Id; Val : Boolean) is
7131 pragma Assert (Nkind (N) in N_Entity);
7132 Nodes.Table (N + 4).Flag13 := Val;
7135 procedure Set_Flag232 (N : Node_Id; Val : Boolean) is
7137 pragma Assert (Nkind (N) in N_Entity);
7138 Nodes.Table (N + 4).Flag14 := Val;
7141 procedure Set_Flag233 (N : Node_Id; Val : Boolean) is
7143 pragma Assert (Nkind (N) in N_Entity);
7144 Nodes.Table (N + 4).Flag15 := Val;
7147 procedure Set_Flag234 (N : Node_Id; Val : Boolean) is
7149 pragma Assert (Nkind (N) in N_Entity);
7150 Nodes.Table (N + 4).Flag16 := Val;
7153 procedure Set_Flag235 (N : Node_Id; Val : Boolean) is
7155 pragma Assert (Nkind (N) in N_Entity);
7156 Nodes.Table (N + 4).Flag17 := Val;
7159 procedure Set_Flag236 (N : Node_Id; Val : Boolean) is
7161 pragma Assert (Nkind (N) in N_Entity);
7162 Nodes.Table (N + 4).Flag18 := Val;
7165 procedure Set_Flag237 (N : Node_Id; Val : Boolean) is
7167 pragma Assert (Nkind (N) in N_Entity);
7168 Nodes.Table (N + 4).Pflag1 := Val;
7171 procedure Set_Flag238 (N : Node_Id; Val : Boolean) is
7173 pragma Assert (Nkind (N) in N_Entity);
7174 Nodes.Table (N + 4).Pflag2 := Val;
7177 procedure Set_Flag239 (N : Node_Id; Val : Boolean) is
7179 pragma Assert (Nkind (N) in N_Entity);
7182 (Nodes.Table (N + 3).Nkind'Unrestricted_Access)).Flag239 := Val;
7185 procedure Set_Flag240 (N : Node_Id; Val : Boolean) is
7187 pragma Assert (Nkind (N) in N_Entity);
7190 (Nodes.Table (N + 3).Nkind'Unrestricted_Access)).Flag240 := Val;
7193 procedure Set_Flag241 (N : Node_Id; Val : Boolean) is
7195 pragma Assert (Nkind (N) in N_Entity);
7198 (Nodes.Table (N + 3).Nkind'Unrestricted_Access)).Flag241 := Val;
7201 procedure Set_Flag242 (N : Node_Id; Val : Boolean) is
7203 pragma Assert (Nkind (N) in N_Entity);
7206 (Nodes.Table (N + 3).Nkind'Unrestricted_Access)).Flag242 := Val;
7209 procedure Set_Flag243 (N : Node_Id; Val : Boolean) is
7211 pragma Assert (Nkind (N) in N_Entity);
7214 (Nodes.Table (N + 3).Nkind'Unrestricted_Access)).Flag243 := Val;
7217 procedure Set_Flag244 (N : Node_Id; Val : Boolean) is
7219 pragma Assert (Nkind (N) in N_Entity);
7222 (Nodes.Table (N + 3).Nkind'Unrestricted_Access)).Flag244 := Val;
7225 procedure Set_Flag245 (N : Node_Id; Val : Boolean) is
7227 pragma Assert (Nkind (N) in N_Entity);
7230 (Nodes.Table (N + 3).Nkind'Unrestricted_Access)).Flag245 := Val;
7233 procedure Set_Flag246 (N : Node_Id; Val : Boolean) is
7235 pragma Assert (Nkind (N) in N_Entity);
7238 (Nodes.Table (N + 3).Nkind'Unrestricted_Access)).Flag246 := Val;
7241 procedure Set_Flag247 (N : Node_Id; Val : Boolean) is
7243 pragma Assert (Nkind (N) in N_Entity);
7246 (Nodes.Table (N + 4).Nkind'Unrestricted_Access)).Flag247 := Val;
7249 procedure Set_Flag248 (N : Node_Id; Val : Boolean) is
7251 pragma Assert (Nkind (N) in N_Entity);
7254 (Nodes.Table (N + 4).Nkind'Unrestricted_Access)).Flag248 := Val;
7257 procedure Set_Flag249 (N : Node_Id; Val : Boolean) is
7259 pragma Assert (Nkind (N) in N_Entity);
7262 (Nodes.Table (N + 4).Nkind'Unrestricted_Access)).Flag249 := Val;
7265 procedure Set_Flag250 (N : Node_Id; Val : Boolean) is
7267 pragma Assert (Nkind (N) in N_Entity);
7270 (Nodes.Table (N + 4).Nkind'Unrestricted_Access)).Flag250 := Val;
7273 procedure Set_Flag251 (N : Node_Id; Val : Boolean) is
7275 pragma Assert (Nkind (N) in N_Entity);
7278 (Nodes.Table (N + 4).Nkind'Unrestricted_Access)).Flag251 := Val;
7281 procedure Set_Flag252 (N : Node_Id; Val : Boolean) is
7283 pragma Assert (Nkind (N) in N_Entity);
7286 (Nodes.Table (N + 4).Nkind'Unrestricted_Access)).Flag252 := Val;
7289 procedure Set_Flag253 (N : Node_Id; Val : Boolean) is
7291 pragma Assert (Nkind (N) in N_Entity);
7294 (Nodes.Table (N + 4).Nkind'Unrestricted_Access)).Flag253 := Val;
7297 procedure Set_Flag254 (N : Node_Id; Val : Boolean) is
7299 pragma Assert (Nkind (N) in N_Entity);
7302 (Nodes.Table (N + 4).Nkind'Unrestricted_Access)).Flag254 := Val;
7305 procedure Set_Flag255 (N : Node_Id; Val : Boolean) is
7307 pragma Assert (Nkind (N) in N_Entity);
7310 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag255 := Val;
7313 procedure Set_Flag256 (N : Node_Id; Val : Boolean) is
7315 pragma Assert (Nkind (N) in N_Entity);
7318 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag256 := Val;
7321 procedure Set_Flag257 (N : Node_Id; Val : Boolean) is
7323 pragma Assert (Nkind (N) in N_Entity);
7326 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag257 := Val;
7329 procedure Set_Flag258 (N : Node_Id; Val : Boolean) is
7331 pragma Assert (Nkind (N) in N_Entity);
7334 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag258 := Val;
7337 procedure Set_Flag259 (N : Node_Id; Val : Boolean) is
7339 pragma Assert (Nkind (N) in N_Entity);
7342 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag259 := Val;
7345 procedure Set_Flag260 (N : Node_Id; Val : Boolean) is
7347 pragma Assert (Nkind (N) in N_Entity);
7350 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag260 := Val;
7353 procedure Set_Flag261 (N : Node_Id; Val : Boolean) is
7355 pragma Assert (Nkind (N) in N_Entity);
7358 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag261 := Val;
7361 procedure Set_Flag262 (N : Node_Id; Val : Boolean) is
7363 pragma Assert (Nkind (N) in N_Entity);
7366 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag262 := Val;
7369 procedure Set_Flag263 (N : Node_Id; Val : Boolean) is
7371 pragma Assert (Nkind (N) in N_Entity);
7374 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag263 := Val;
7377 procedure Set_Flag264 (N : Node_Id; Val : Boolean) is
7379 pragma Assert (Nkind (N) in N_Entity);
7382 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag264 := Val;
7385 procedure Set_Flag265 (N : Node_Id; Val : Boolean) is
7387 pragma Assert (Nkind (N) in N_Entity);
7390 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag265 := Val;
7393 procedure Set_Flag266 (N : Node_Id; Val : Boolean) is
7395 pragma Assert (Nkind (N) in N_Entity);
7398 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag266 := Val;
7401 procedure Set_Flag267 (N : Node_Id; Val : Boolean) is
7403 pragma Assert (Nkind (N) in N_Entity);
7406 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag267 := Val;
7409 procedure Set_Flag268 (N : Node_Id; Val : Boolean) is
7411 pragma Assert (Nkind (N) in N_Entity);
7414 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag268 := Val;
7417 procedure Set_Flag269 (N : Node_Id; Val : Boolean) is
7419 pragma Assert (Nkind (N) in N_Entity);
7422 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag269 := Val;
7425 procedure Set_Flag270 (N : Node_Id; Val : Boolean) is
7427 pragma Assert (Nkind (N) in N_Entity);
7430 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag270 := Val;
7433 procedure Set_Flag271 (N : Node_Id; Val : Boolean) is
7435 pragma Assert (Nkind (N) in N_Entity);
7438 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag271 := Val;
7441 procedure Set_Flag272 (N : Node_Id; Val : Boolean) is
7443 pragma Assert (Nkind (N) in N_Entity);
7446 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag272 := Val;
7449 procedure Set_Flag273 (N : Node_Id; Val : Boolean) is
7451 pragma Assert (Nkind (N) in N_Entity);
7454 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag273 := Val;
7457 procedure Set_Flag274 (N : Node_Id; Val : Boolean) is
7459 pragma Assert (Nkind (N) in N_Entity);
7462 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag274 := Val;
7465 procedure Set_Flag275 (N : Node_Id; Val : Boolean) is
7467 pragma Assert (Nkind (N) in N_Entity);
7470 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag275 := Val;
7473 procedure Set_Flag276 (N : Node_Id; Val : Boolean) is
7475 pragma Assert (Nkind (N) in N_Entity);
7478 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag276 := Val;
7481 procedure Set_Flag277 (N : Node_Id; Val : Boolean) is
7483 pragma Assert (Nkind (N) in N_Entity);
7486 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag277 := Val;
7489 procedure Set_Flag278 (N : Node_Id; Val : Boolean) is
7491 pragma Assert (Nkind (N) in N_Entity);
7494 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag278 := Val;
7497 procedure Set_Flag279 (N : Node_Id; Val : Boolean) is
7499 pragma Assert (Nkind (N) in N_Entity);
7502 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag279 := Val;
7505 procedure Set_Flag280 (N : Node_Id; Val : Boolean) is
7507 pragma Assert (Nkind (N) in N_Entity);
7510 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag280 := Val;
7513 procedure Set_Flag281 (N : Node_Id; Val : Boolean) is
7515 pragma Assert (Nkind (N) in N_Entity);
7518 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag281 := Val;
7521 procedure Set_Flag282 (N : Node_Id; Val : Boolean) is
7523 pragma Assert (Nkind (N) in N_Entity);
7526 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag282 := Val;
7529 procedure Set_Flag283 (N : Node_Id; Val : Boolean) is
7531 pragma Assert (Nkind (N) in N_Entity);
7534 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag283 := Val;
7537 procedure Set_Flag284 (N : Node_Id; Val : Boolean) is
7539 pragma Assert (Nkind (N) in N_Entity);
7542 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag284 := Val;
7545 procedure Set_Flag285 (N : Node_Id; Val : Boolean) is
7547 pragma Assert (Nkind (N) in N_Entity);
7550 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag285 := Val;
7553 procedure Set_Flag286 (N : Node_Id; Val : Boolean) is
7555 pragma Assert (Nkind (N) in N_Entity);
7558 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag286 := Val;
7561 procedure Set_Flag287 (N : Node_Id; Val : Boolean) is
7563 pragma Assert (Nkind (N) in N_Entity);
7564 Nodes.Table (N + 5).In_List := Val;
7567 procedure Set_Flag288 (N : Node_Id; Val : Boolean) is
7569 pragma Assert (Nkind (N) in N_Entity);
7570 Nodes.Table (N + 5).Has_Aspects := Val;
7573 procedure Set_Flag289 (N : Node_Id; Val : Boolean) is
7575 pragma Assert (Nkind (N) in N_Entity);
7576 Nodes.Table (N + 5).Rewrite_Ins := Val;
7579 procedure Set_Flag290 (N : Node_Id; Val : Boolean) is
7581 pragma Assert (Nkind (N) in N_Entity);
7582 Nodes.Table (N + 5).Analyzed := Val;
7585 procedure Set_Flag291 (N : Node_Id; Val : Boolean) is
7587 pragma Assert (Nkind (N) in N_Entity);
7588 Nodes.Table (N + 5).Comes_From_Source := Val;
7591 procedure Set_Flag292 (N : Node_Id; Val : Boolean) is
7593 pragma Assert (Nkind (N) in N_Entity);
7594 Nodes.Table (N + 5).Error_Posted := Val;
7597 procedure Set_Flag293 (N : Node_Id; Val : Boolean) is
7599 pragma Assert (Nkind (N) in N_Entity);
7600 Nodes.Table (N + 5).Flag4 := Val;
7603 procedure Set_Flag294 (N : Node_Id; Val : Boolean) is
7605 pragma Assert (Nkind (N) in N_Entity);
7606 Nodes.Table (N + 5).Flag5 := Val;
7609 procedure Set_Flag295 (N : Node_Id; Val : Boolean) is
7611 pragma Assert (Nkind (N) in N_Entity);
7612 Nodes.Table (N + 5).Flag6 := Val;
7615 procedure Set_Flag296 (N : Node_Id; Val : Boolean) is
7617 pragma Assert (Nkind (N) in N_Entity);
7618 Nodes.Table (N + 5).Flag7 := Val;
7621 procedure Set_Flag297 (N : Node_Id; Val : Boolean) is
7623 pragma Assert (Nkind (N) in N_Entity);
7624 Nodes.Table (N + 5).Flag8 := Val;
7627 procedure Set_Flag298 (N : Node_Id; Val : Boolean) is
7629 pragma Assert (Nkind (N) in N_Entity);
7630 Nodes.Table (N + 5).Flag9 := Val;
7633 procedure Set_Flag299 (N : Node_Id; Val : Boolean) is
7635 pragma Assert (Nkind (N) in N_Entity);
7636 Nodes.Table (N + 5).Flag10 := Val;
7639 procedure Set_Flag300 (N : Node_Id; Val : Boolean) is
7641 pragma Assert (Nkind (N) in N_Entity);
7642 Nodes.Table (N + 5).Flag11 := Val;
7645 procedure Set_Flag301 (N : Node_Id; Val : Boolean) is
7647 pragma Assert (Nkind (N) in N_Entity);
7648 Nodes.Table (N + 5).Flag12 := Val;
7651 procedure Set_Flag302 (N : Node_Id; Val : Boolean) is
7653 pragma Assert (Nkind (N) in N_Entity);
7654 Nodes.Table (N + 5).Flag13 := Val;
7657 procedure Set_Flag303 (N : Node_Id; Val : Boolean) is
7659 pragma Assert (Nkind (N) in N_Entity);
7660 Nodes.Table (N + 5).Flag14 := Val;
7663 procedure Set_Flag304 (N : Node_Id; Val : Boolean) is
7665 pragma Assert (Nkind (N) in N_Entity);
7666 Nodes.Table (N + 5).Flag15 := Val;
7669 procedure Set_Flag305 (N : Node_Id; Val : Boolean) is
7671 pragma Assert (Nkind (N) in N_Entity);
7672 Nodes.Table (N + 5).Flag16 := Val;
7675 procedure Set_Flag306 (N : Node_Id; Val : Boolean) is
7677 pragma Assert (Nkind (N) in N_Entity);
7678 Nodes.Table (N + 5).Flag17 := Val;
7681 procedure Set_Flag307 (N : Node_Id; Val : Boolean) is
7683 pragma Assert (Nkind (N) in N_Entity);
7684 Nodes.Table (N + 5).Flag18 := Val;
7687 procedure Set_Flag308 (N : Node_Id; Val : Boolean) is
7689 pragma Assert (Nkind (N) in N_Entity);
7690 Nodes.Table (N + 5).Pflag1 := Val;
7693 procedure Set_Flag309 (N : Node_Id; Val : Boolean) is
7695 pragma Assert (Nkind (N) in N_Entity);
7696 Nodes.Table (N + 5).Pflag2 := Val;
7699 procedure Set_Flag310 (N : Node_Id; Val : Boolean) is
7701 pragma Assert (Nkind (N) in N_Entity);
7704 (Nodes.Table (N + 5).Nkind'Unrestricted_Access)).Flag310 := Val;
7707 procedure Set_Flag311 (N : Node_Id; Val : Boolean) is
7709 pragma Assert (Nkind (N) in N_Entity);
7712 (Nodes.Table (N + 5).Nkind'Unrestricted_Access)).Flag311 := Val;
7715 procedure Set_Flag312 (N : Node_Id; Val : Boolean) is
7717 pragma Assert (Nkind (N) in N_Entity);
7720 (Nodes.Table (N + 5).Nkind'Unrestricted_Access)).Flag312 := Val;
7723 procedure Set_Flag313 (N : Node_Id; Val : Boolean) is
7725 pragma Assert (Nkind (N) in N_Entity);
7728 (Nodes.Table (N + 5).Nkind'Unrestricted_Access)).Flag313 := Val;
7731 procedure Set_Flag314 (N : Node_Id; Val : Boolean) is
7733 pragma Assert (Nkind (N) in N_Entity);
7736 (Nodes.Table (N + 5).Nkind'Unrestricted_Access)).Flag314 := Val;
7739 procedure Set_Flag315 (N : Node_Id; Val : Boolean) is
7741 pragma Assert (Nkind (N) in N_Entity);
7744 (Nodes.Table (N + 5).Nkind'Unrestricted_Access)).Flag315 := Val;
7747 procedure Set_Flag316 (N : Node_Id; Val : Boolean) is
7749 pragma Assert (Nkind (N) in N_Entity);
7752 (Nodes.Table (N + 5).Nkind'Unrestricted_Access)).Flag316 := Val;
7755 procedure Set_Flag317 (N : Node_Id; Val : Boolean) is
7757 pragma Assert (Nkind (N) in N_Entity);
7760 (Nodes.Table (N + 5).Nkind'Unrestricted_Access)).Flag317 := Val;
7763 procedure Set_Node1_With_Parent (N : Node_Id; Val : Node_Id) is
7765 pragma Assert (N <= Nodes.Last);
7768 Set_Parent (N => Val, Val => N);
7772 end Set_Node1_With_Parent;
7774 procedure Set_Node2_With_Parent (N : Node_Id; Val : Node_Id) is
7776 pragma Assert (N <= Nodes.Last);
7779 Set_Parent (N => Val, Val => N);
7783 end Set_Node2_With_Parent;
7785 procedure Set_Node3_With_Parent (N : Node_Id; Val : Node_Id) is
7787 pragma Assert (N <= Nodes.Last);
7790 Set_Parent (N => Val, Val => N);
7794 end Set_Node3_With_Parent;
7796 procedure Set_Node4_With_Parent (N : Node_Id; Val : Node_Id) is
7798 pragma Assert (N <= Nodes.Last);
7801 Set_Parent (N => Val, Val => N);
7805 end Set_Node4_With_Parent;
7807 procedure Set_Node5_With_Parent (N : Node_Id; Val : Node_Id) is
7809 pragma Assert (N <= Nodes.Last);
7812 Set_Parent (N => Val, Val => N);
7816 end Set_Node5_With_Parent;
7818 procedure Set_List1_With_Parent (N : Node_Id; Val : List_Id) is
7820 pragma Assert (N <= Nodes.Last);
7821 if Val /= No_List and then Val /= Error_List then
7822 Set_Parent (Val, N);
7825 end Set_List1_With_Parent;
7827 procedure Set_List2_With_Parent (N : Node_Id; Val : List_Id) is
7829 pragma Assert (N <= Nodes.Last);
7830 if Val /= No_List and then Val /= Error_List then
7831 Set_Parent (Val, N);
7834 end Set_List2_With_Parent;
7836 procedure Set_List3_With_Parent (N : Node_Id; Val : List_Id) is
7838 pragma Assert (N <= Nodes.Last);
7839 if Val /= No_List and then Val /= Error_List then
7840 Set_Parent (Val, N);
7843 end Set_List3_With_Parent;
7845 procedure Set_List4_With_Parent (N : Node_Id; Val : List_Id) is
7847 pragma Assert (N <= Nodes.Last);
7848 if Val /= No_List and then Val /= Error_List then
7849 Set_Parent (Val, N);
7852 end Set_List4_With_Parent;
7854 procedure Set_List5_With_Parent (N : Node_Id; Val : List_Id) is
7856 pragma Assert (N <= Nodes.Last);
7857 if Val /= No_List and then Val /= Error_List then
7858 Set_Parent (Val, N);
7861 end Set_List5_With_Parent;
7863 end Unchecked_Access;
7871 Nodes.Locked := False;
7872 Orig_Nodes.Locked := False;