1 ------------------------------------------------------------------------------
3 -- GNAT COMPILER COMPONENTS --
9 -- Copyright (C) 1992-2016, 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;
43 with Output; use Output;
44 with Sinput; use Sinput;
45 with Tree_IO; use Tree_IO;
47 with GNAT.Heap_Sort_G;
51 Reporting_Proc : Report_Proc := null;
52 -- Record argument to last call to Set_Reporting_Proc
58 -- Suppose you find that node 12345 is messed up. You might want to find
59 -- the code that created that node. There are two ways to do this:
61 -- One way is to set a conditional breakpoint on New_Node_Debugging_Output
63 -- break nnd if n = 12345
64 -- and run gnat1 again from the beginning.
66 -- The other way is to set a breakpoint near the beginning (e.g. on
67 -- gnat1drv), and run. Then set Watch_Node (nickname "ww") to 12345 in gdb:
69 -- and set a breakpoint on New_Node_Breakpoint (nickname "nn"). Continue.
71 -- Either way, gnat1 will stop when node 12345 is created
73 -- The second method is much faster
75 -- Similarly, rr and rrd allow breaking on rewriting of a given node
77 ww : Node_Id'Base := Node_Id'First - 1;
78 pragma Export (Ada, ww); -- trick the optimizer
79 Watch_Node : Node_Id'Base renames ww;
80 -- Node to "watch"; that is, whenever a node is created, we check if it
81 -- is equal to Watch_Node, and if so, call New_Node_Breakpoint. You have
82 -- presumably set a breakpoint on New_Node_Breakpoint. Note that the
83 -- initial value of Node_Id'First - 1 ensures that by default, no node
84 -- will be equal to Watch_Node.
87 pragma Export (Ada, nn);
88 procedure New_Node_Breakpoint renames nn;
89 -- This doesn't do anything interesting; it's just for setting breakpoint
90 -- on as explained above.
92 procedure nnd (N : Node_Id);
93 pragma Export (Ada, nnd);
94 procedure New_Node_Debugging_Output (N : Node_Id) renames nnd;
95 -- For debugging. If debugging is turned on, New_Node and New_Entity call
96 -- this. If debug flag N is turned on, this prints out the new node.
98 -- If Node = Watch_Node, this prints out the new node and calls
99 -- New_Node_Breakpoint. Otherwise, does nothing.
102 pragma Export (Ada, rr);
103 procedure Rewrite_Breakpoint renames rr;
104 -- This doesn't do anything interesting; it's just for setting breakpoint
105 -- on as explained above.
107 procedure rrd (Old_Node, New_Node : Node_Id);
108 pragma Export (Ada, rrd);
109 procedure Rewrite_Debugging_Output
110 (Old_Node, New_Node : Node_Id) renames rrd;
111 -- For debugging. If debugging is turned on, Rewrite calls this. If debug
112 -- flag N is turned on, this prints out the new node.
114 -- If Old_Node = Watch_Node, this prints out the old and new nodes and
115 -- calls Rewrite_Breakpoint. Otherwise, does nothing.
117 procedure Node_Debug_Output (Op : String; N : Node_Id);
118 -- Common code for nnd and rrd, writes Op followed by information about N
120 procedure Print_Statistics;
121 pragma Export (Ada, Print_Statistics);
122 -- Print various statistics on the tables maintained by the package
124 -----------------------------
125 -- Local Objects and Types --
126 -----------------------------
129 -- Count allocated nodes for Num_Nodes function
131 use Unchecked_Access;
132 -- We are allowed to see these from within our own body
134 use Atree_Private_Part;
135 -- We are also allowed to see our private data structures
137 -- Functions used to store Entity_Kind value in Nkind field
139 -- The following declarations are used to store flags 65-72 in the
140 -- Nkind field of the third component of an extended (entity) node.
142 type Flag_Byte is record
153 pragma Pack (Flag_Byte);
154 for Flag_Byte'Size use 8;
156 type Flag_Byte_Ptr is access all Flag_Byte;
157 type Node_Kind_Ptr is access all Node_Kind;
159 function To_Flag_Byte is new
160 Unchecked_Conversion (Node_Kind, Flag_Byte);
162 function To_Flag_Byte_Ptr is new
163 Unchecked_Conversion (Node_Kind_Ptr, Flag_Byte_Ptr);
165 -- The following declarations are used to store flags 239-246 in the
166 -- Nkind field of the fourth component of an extended (entity) node.
168 type Flag_Byte2 is record
179 pragma Pack (Flag_Byte2);
180 for Flag_Byte2'Size use 8;
182 type Flag_Byte2_Ptr is access all Flag_Byte2;
184 function To_Flag_Byte2 is new
185 Unchecked_Conversion (Node_Kind, Flag_Byte2);
187 function To_Flag_Byte2_Ptr is new
188 Unchecked_Conversion (Node_Kind_Ptr, Flag_Byte2_Ptr);
190 -- The following declarations are used to store flags 247-254 in the
191 -- Nkind field of the fifth component of an extended (entity) node.
193 type Flag_Byte3 is record
204 pragma Pack (Flag_Byte3);
205 for Flag_Byte3'Size use 8;
207 type Flag_Byte3_Ptr is access all Flag_Byte3;
209 function To_Flag_Byte3 is new
210 Unchecked_Conversion (Node_Kind, Flag_Byte3);
212 function To_Flag_Byte3_Ptr is new
213 Unchecked_Conversion (Node_Kind_Ptr, Flag_Byte3_Ptr);
215 -- The following declarations are used to store flags 310-317 in the
216 -- Nkind field of the sixth component of an extended (entity) node.
218 type Flag_Byte4 is record
229 pragma Pack (Flag_Byte4);
230 for Flag_Byte4'Size use 8;
232 type Flag_Byte4_Ptr is access all Flag_Byte4;
234 function To_Flag_Byte4 is new
235 Unchecked_Conversion (Node_Kind, Flag_Byte4);
237 function To_Flag_Byte4_Ptr is new
238 Unchecked_Conversion (Node_Kind_Ptr, Flag_Byte4_Ptr);
240 -- The following declarations are used to store flags 73-96 and the
241 -- Convention field in the Field12 field of the third component of an
242 -- extended (Entity) node.
244 type Flag_Word is record
272 Convention : Convention_Id;
275 pragma Pack (Flag_Word);
276 for Flag_Word'Size use 32;
277 for Flag_Word'Alignment use 4;
279 type Flag_Word_Ptr is access all Flag_Word;
280 type Union_Id_Ptr is access all Union_Id;
282 function To_Flag_Word is new
283 Unchecked_Conversion (Union_Id, Flag_Word);
285 function To_Flag_Word_Ptr is new
286 Unchecked_Conversion (Union_Id_Ptr, Flag_Word_Ptr);
288 -- The following declarations are used to store flags 97-128 in the
289 -- Field12 field of the fourth component of an extended (entity) node.
291 type Flag_Word2 is record
329 pragma Pack (Flag_Word2);
330 for Flag_Word2'Size use 32;
331 for Flag_Word2'Alignment use 4;
333 type Flag_Word2_Ptr is access all Flag_Word2;
335 function To_Flag_Word2 is new
336 Unchecked_Conversion (Union_Id, Flag_Word2);
338 function To_Flag_Word2_Ptr is new
339 Unchecked_Conversion (Union_Id_Ptr, Flag_Word2_Ptr);
341 -- The following declarations are used to store flags 152-183 in the
342 -- Field11 field of the fourth component of an extended (entity) node.
344 type Flag_Word3 is record
382 pragma Pack (Flag_Word3);
383 for Flag_Word3'Size use 32;
384 for Flag_Word3'Alignment use 4;
386 type Flag_Word3_Ptr is access all Flag_Word3;
388 function To_Flag_Word3 is new
389 Unchecked_Conversion (Union_Id, Flag_Word3);
391 function To_Flag_Word3_Ptr is new
392 Unchecked_Conversion (Union_Id_Ptr, Flag_Word3_Ptr);
394 -- The following declarations are used to store flags 184-215 in the
395 -- Field12 field of the fifth component of an extended (entity) node.
397 type Flag_Word4 is record
435 pragma Pack (Flag_Word4);
436 for Flag_Word4'Size use 32;
437 for Flag_Word4'Alignment use 4;
439 type Flag_Word4_Ptr is access all Flag_Word4;
441 function To_Flag_Word4 is new
442 Unchecked_Conversion (Union_Id, Flag_Word4);
444 function To_Flag_Word4_Ptr is new
445 Unchecked_Conversion (Union_Id_Ptr, Flag_Word4_Ptr);
447 -- The following declarations are used to store flags 255-286 in the
448 -- Field12 field of the sixth component of an extended (entity) node.
450 type Flag_Word5 is record
488 pragma Pack (Flag_Word5);
489 for Flag_Word5'Size use 32;
490 for Flag_Word5'Alignment use 4;
492 type Flag_Word5_Ptr is access all Flag_Word5;
494 function To_Flag_Word5 is new
495 Unchecked_Conversion (Union_Id, Flag_Word5);
497 function To_Flag_Word5_Ptr is new
498 Unchecked_Conversion (Union_Id_Ptr, Flag_Word5_Ptr);
500 --------------------------------------------------
501 -- Implementation of Tree Substitution Routines --
502 --------------------------------------------------
504 -- A separate table keeps track of the mapping between rewritten nodes
505 -- and their corresponding original tree nodes. Rewrite makes an entry
506 -- in this table for use by Original_Node. By default, if no call is
507 -- Rewrite, the entry in this table points to the original unwritten node.
509 -- Note: eventually, this should be a field in the Node directly, but
510 -- for now we do not want to disturb the efficiency of a power of 2
513 package Orig_Nodes is new Table.Table (
514 Table_Component_Type => Node_Id,
515 Table_Index_Type => Node_Id'Base,
516 Table_Low_Bound => First_Node_Id,
517 Table_Initial => Alloc.Orig_Nodes_Initial,
518 Table_Increment => Alloc.Orig_Nodes_Increment,
519 Table_Name => "Orig_Nodes");
521 --------------------------
522 -- Paren_Count Handling --
523 --------------------------
525 -- As noted in the spec, the paren count in a sub-expression node has
526 -- four possible values 0,1,2, and 3. The value 3 really means 3 or more,
527 -- and we use an auxiliary serially scanned table to record the actual
528 -- count. A serial search is fine, only pathological programs will use
529 -- entries in this table. Normal programs won't use it at all.
531 type Paren_Count_Entry is record
533 -- The node to which this count applies
535 Count : Nat range 3 .. Nat'Last;
536 -- The count of parentheses, which will be in the indicated range
539 package Paren_Counts is new Table.Table (
540 Table_Component_Type => Paren_Count_Entry,
541 Table_Index_Type => Int,
542 Table_Low_Bound => 0,
544 Table_Increment => 200,
545 Table_Name => "Paren_Counts");
547 -----------------------
548 -- Local Subprograms --
549 -----------------------
551 procedure Fix_Parents (Ref_Node, Fix_Node : Node_Id);
552 -- Fixup parent pointers for the syntactic children of Fix_Node after
553 -- a copy, setting them to Fix_Node when they pointed to Ref_Node.
555 function Allocate_Initialize_Node
557 With_Extension : Boolean) return Node_Id;
558 -- Allocate a new node or node extension. If Src is not empty, the
559 -- information for the newly-allocated node is copied from it.
561 ------------------------------
562 -- Allocate_Initialize_Node --
563 ------------------------------
565 function Allocate_Initialize_Node
567 With_Extension : Boolean) return Node_Id
573 and then not Has_Extension (Src)
574 and then With_Extension
575 and then Src = Nodes.Last
579 -- We are allocating a new node, or extending a node other than
583 if Present (Src) then
584 Nodes.Append (Nodes.Table (Src));
585 Flags.Append (Flags.Table (Src));
587 Nodes.Append (Default_Node);
588 Flags.Append (Default_Flags);
591 New_Id := Nodes.Last;
592 Orig_Nodes.Append (New_Id);
593 Node_Count := Node_Count + 1;
596 -- Mark the node as ignored Ghost if it is created in an ignored Ghost
599 if Ghost_Mode = Ignore then
600 Set_Is_Ignored_Ghost_Node (New_Id);
603 -- Clear Check_Actuals to False
605 Set_Check_Actuals (New_Id, False);
607 -- Specifically copy Paren_Count to deal with creating new table entry
608 -- if the parentheses count is at the maximum possible value already.
610 if Present (Src) and then Nkind (Src) in N_Subexpr then
611 Set_Paren_Count (New_Id, Paren_Count (Src));
614 -- Set extension nodes if required
616 if With_Extension then
617 if Present (Src) and then Has_Extension (Src) then
618 for J in 1 .. Num_Extension_Nodes loop
619 Nodes.Append (Nodes.Table (Src + J));
620 Flags.Append (Flags.Table (Src + J));
623 for J in 1 .. Num_Extension_Nodes loop
624 Nodes.Append (Default_Node_Extension);
625 Flags.Append (Default_Flags);
630 Orig_Nodes.Set_Last (Nodes.Last);
631 Allocate_List_Tables (Nodes.Last);
633 -- Invoke the reporting procedure (if available)
635 if Reporting_Proc /= null then
636 Reporting_Proc.all (Target => New_Id, Source => Src);
640 end Allocate_Initialize_Node;
646 function Analyzed (N : Node_Id) return Boolean is
648 pragma Assert (N <= Nodes.Last);
649 return Nodes.Table (N).Analyzed;
652 --------------------------
653 -- Basic_Set_Convention --
654 --------------------------
656 procedure Basic_Set_Convention (E : Entity_Id; Val : Convention_Id) is
658 pragma Assert (Nkind (E) in N_Entity);
661 (Nodes.Table (E + 2).Field12'Unrestricted_Access)).Convention := Val;
662 end Basic_Set_Convention;
668 function Check_Actuals (N : Node_Id) return Boolean is
670 return Flags.Table (N).Check_Actuals;
673 --------------------------
674 -- Check_Error_Detected --
675 --------------------------
677 procedure Check_Error_Detected is
679 -- An anomaly has been detected which is assumed to be a consequence of
680 -- a previous serious error or configurable run time violation. Raise
681 -- an exception if no such error has been detected.
683 if Serious_Errors_Detected = 0
684 and then Configurable_Run_Time_Violations = 0
688 end Check_Error_Detected;
694 procedure Change_Node (N : Node_Id; New_Node_Kind : Node_Kind) is
695 Save_Sloc : constant Source_Ptr := Sloc (N);
696 Save_In_List : constant Boolean := Nodes.Table (N).In_List;
697 Save_Link : constant Union_Id := Nodes.Table (N).Link;
698 Save_CFS : constant Boolean := Nodes.Table (N).Comes_From_Source;
699 Save_Posted : constant Boolean := Nodes.Table (N).Error_Posted;
700 Par_Count : Nat := 0;
703 if Nkind (N) in N_Subexpr then
704 Par_Count := Paren_Count (N);
707 Nodes.Table (N) := Default_Node;
708 Nodes.Table (N).Sloc := Save_Sloc;
709 Nodes.Table (N).In_List := Save_In_List;
710 Nodes.Table (N).Link := Save_Link;
711 Nodes.Table (N).Comes_From_Source := Save_CFS;
712 Nodes.Table (N).Nkind := New_Node_Kind;
713 Nodes.Table (N).Error_Posted := Save_Posted;
715 Flags.Table (N) := Default_Flags;
717 if New_Node_Kind in N_Subexpr then
718 Set_Paren_Count (N, Par_Count);
722 -----------------------
723 -- Comes_From_Source --
724 -----------------------
726 function Comes_From_Source (N : Node_Id) return Boolean is
728 pragma Assert (N <= Nodes.Last);
729 return Nodes.Table (N).Comes_From_Source;
730 end Comes_From_Source;
736 function Convention (E : Entity_Id) return Convention_Id is
738 pragma Assert (Nkind (E) in N_Entity);
739 return To_Flag_Word (Nodes.Table (E + 2).Field12).Convention;
746 procedure Copy_Node (Source : Node_Id; Destination : Node_Id) is
747 Save_In_List : constant Boolean := Nodes.Table (Destination).In_List;
748 Save_Link : constant Union_Id := Nodes.Table (Destination).Link;
751 Nodes.Table (Destination) := Nodes.Table (Source);
752 Nodes.Table (Destination).In_List := Save_In_List;
753 Nodes.Table (Destination).Link := Save_Link;
755 Flags.Table (Destination) := Flags.Table (Source);
757 -- Specifically set Paren_Count to make sure auxiliary table entry
758 -- gets correctly made if the parentheses count is at the max value.
760 if Nkind (Destination) in N_Subexpr then
761 Set_Paren_Count (Destination, Paren_Count (Source));
764 -- Deal with copying extension nodes if present. No need to copy flags
765 -- table entries, since they are always zero for extending components.
767 if Has_Extension (Source) then
768 pragma Assert (Has_Extension (Destination));
770 for J in 1 .. Num_Extension_Nodes loop
771 Nodes.Table (Destination + J) := Nodes.Table (Source + J);
775 pragma Assert (not Has_Extension (Source));
780 ------------------------
781 -- Copy_Separate_List --
782 ------------------------
784 function Copy_Separate_List (Source : List_Id) return List_Id is
785 Result : constant List_Id := New_List;
789 Nod := First (Source);
790 while Present (Nod) loop
791 Append (Copy_Separate_Tree (Nod), Result);
796 end Copy_Separate_List;
798 ------------------------
799 -- Copy_Separate_Tree --
800 ------------------------
802 function Copy_Separate_Tree (Source : Node_Id) return Node_Id is
805 function Copy_Entity (E : Entity_Id) return Entity_Id;
806 -- Copy Entity, copying only the Ekind and Chars fields
808 function Copy_List (List : List_Id) return List_Id;
811 function Possible_Copy (Field : Union_Id) return Union_Id;
812 -- Given a field, returns a copy of the node or list if its parent is
813 -- the current source node, and otherwise returns the input.
819 function Copy_Entity (E : Entity_Id) return Entity_Id is
823 -- Build appropriate node
825 case N_Entity (Nkind (E)) is
826 when N_Defining_Identifier =>
827 New_Ent := New_Entity (N_Defining_Identifier, Sloc (E));
829 when N_Defining_Character_Literal =>
830 New_Ent := New_Entity (N_Defining_Character_Literal, Sloc (E));
832 when N_Defining_Operator_Symbol =>
833 New_Ent := New_Entity (N_Defining_Operator_Symbol, Sloc (E));
836 Set_Chars (New_Ent, Chars (E));
837 -- Set_Comes_From_Source (New_Ent, Comes_From_Source (E));
845 function Copy_List (List : List_Id) return List_Id is
850 if List = No_List then
857 while Present (E) loop
858 if Has_Extension (E) then
859 Append (Copy_Entity (E), NL);
861 Append (Copy_Separate_Tree (E), NL);
875 function Possible_Copy (Field : Union_Id) return Union_Id is
879 if Field in Node_Range then
880 New_N := Union_Id (Copy_Separate_Tree (Node_Id (Field)));
882 if Parent (Node_Id (Field)) = Source then
883 Set_Parent (Node_Id (New_N), New_Id);
888 elsif Field in List_Range then
889 New_N := Union_Id (Copy_List (List_Id (Field)));
891 if Parent (List_Id (Field)) = Source then
892 Set_Parent (List_Id (New_N), New_Id);
902 -- Start of processing for Copy_Separate_Tree
905 if Source <= Empty_Or_Error then
908 elsif Has_Extension (Source) then
909 return Copy_Entity (Source);
912 New_Id := New_Copy (Source);
914 -- Recursively copy descendants
916 Set_Field1 (New_Id, Possible_Copy (Field1 (New_Id)));
917 Set_Field2 (New_Id, Possible_Copy (Field2 (New_Id)));
918 Set_Field3 (New_Id, Possible_Copy (Field3 (New_Id)));
919 Set_Field4 (New_Id, Possible_Copy (Field4 (New_Id)));
920 Set_Field5 (New_Id, Possible_Copy (Field5 (New_Id)));
922 -- Explicitly copy the aspect specifications as those do not reside
925 if Permits_Aspect_Specifications (Source)
926 and then Has_Aspects (Source)
928 Set_Aspect_Specifications
929 (New_Id, Copy_List (Aspect_Specifications (Source)));
932 -- Set Entity field to Empty to ensure that no entity references
933 -- are shared between the two, if the source is already analyzed.
935 if Nkind (New_Id) in N_Has_Entity
936 or else Nkind (New_Id) = N_Freeze_Entity
938 Set_Entity (New_Id, Empty);
941 -- Reset all Etype fields and Analyzed flags, because input tree may
942 -- have been fully or partially analyzed.
944 if Nkind (New_Id) in N_Has_Etype then
945 Set_Etype (New_Id, Empty);
948 Set_Analyzed (New_Id, False);
950 -- Rather special case, if we have an expanded name, then change
951 -- it back into a selected component, so that the tree looks the
952 -- way it did coming out of the parser. This will change back
953 -- when we analyze the selected component node.
955 if Nkind (New_Id) = N_Expanded_Name then
957 -- The following code is a bit kludgy. It would be cleaner to
958 -- Add an entry Change_Expanded_Name_To_Selected_Component to
959 -- Sinfo.CN, but that's an earthquake, because it has the wrong
960 -- license, and Atree is used outside the compiler, e.g. in the
961 -- binder and in ASIS, so we don't want to add that dependency.
963 -- Consequently we have no choice but to hold our noses and do
964 -- the change manually. At least we are Atree, so this odd use
965 -- of Atree.Unchecked_Access is at least all in the family.
967 -- Change the node type
969 Atree.Unchecked_Access.Set_Nkind (New_Id, N_Selected_Component);
971 -- Clear the Chars field which is not present in a selected
972 -- component node, so we don't want a junk value around.
974 Set_Node1 (New_Id, Empty);
977 -- All done, return copied node
981 end Copy_Separate_Tree;
987 function Ekind (E : Entity_Id) return Entity_Kind is
989 pragma Assert (Nkind (E) in N_Entity);
990 return N_To_E (Nodes.Table (E + 1).Nkind);
1000 V2 : Entity_Kind) return Boolean
1003 return T = V1 or else
1011 V3 : Entity_Kind) return Boolean
1014 return T = V1 or else
1024 V4 : Entity_Kind) return Boolean
1027 return T = V1 or else
1039 V5 : Entity_Kind) return Boolean
1042 return T = V1 or else
1056 V6 : Entity_Kind) return Boolean
1059 return T = V1 or else
1075 V7 : Entity_Kind) return Boolean
1078 return T = V1 or else
1096 V8 : Entity_Kind) return Boolean
1099 return T = V1 or else
1119 V9 : Entity_Kind) return Boolean
1122 return T = V1 or else
1144 V10 : Entity_Kind) return Boolean
1147 return T = V1 or else
1171 V11 : Entity_Kind) return Boolean
1174 return T = V1 or else
1190 V2 : Entity_Kind) return Boolean
1193 return Ekind_In (Ekind (E), V1, V2);
1200 V3 : Entity_Kind) return Boolean
1203 return Ekind_In (Ekind (E), V1, V2, V3);
1211 V4 : Entity_Kind) return Boolean
1214 return Ekind_In (Ekind (E), V1, V2, V3, V4);
1223 V5 : Entity_Kind) return Boolean
1226 return Ekind_In (Ekind (E), V1, V2, V3, V4, V5);
1236 V6 : Entity_Kind) return Boolean
1239 return Ekind_In (Ekind (E), V1, V2, V3, V4, V5, V6);
1250 V7 : Entity_Kind) return Boolean
1253 return Ekind_In (Ekind (E), V1, V2, V3, V4, V5, V6, V7);
1265 V8 : Entity_Kind) return Boolean
1268 return Ekind_In (Ekind (E), V1, V2, V3, V4, V5, V6, V7, V8);
1281 V9 : Entity_Kind) return Boolean
1284 return Ekind_In (Ekind (E), V1, V2, V3, V4, V5, V6, V7, V8, V9);
1298 V10 : Entity_Kind) return Boolean
1301 return Ekind_In (Ekind (E), V1, V2, V3, V4, V5, V6, V7, V8, V9, V10);
1316 V11 : Entity_Kind) return Boolean
1320 Ekind_In (Ekind (E), V1, V2, V3, V4, V5, V6, V7, V8, V9, V10, V11);
1323 ------------------------
1324 -- Set_Reporting_Proc --
1325 ------------------------
1327 procedure Set_Reporting_Proc (P : Report_Proc) is
1329 pragma Assert (Reporting_Proc = null);
1330 Reporting_Proc := P;
1331 end Set_Reporting_Proc;
1337 function Error_Posted (N : Node_Id) return Boolean is
1339 pragma Assert (N <= Nodes.Last);
1340 return Nodes.Table (N).Error_Posted;
1343 -----------------------
1344 -- Exchange_Entities --
1345 -----------------------
1347 procedure Exchange_Entities (E1 : Entity_Id; E2 : Entity_Id) is
1348 Temp_Ent : Node_Record;
1349 Temp_Flg : Flags_Byte;
1353 and then Has_Extension (E1)
1354 and then Has_Extension (E2)
1355 and then not Nodes.Table (E1).In_List
1356 and then not Nodes.Table (E2).In_List);
1358 -- Exchange the contents of the two entities
1360 for J in 0 .. Num_Extension_Nodes loop
1361 Temp_Ent := Nodes.Table (E1 + J);
1362 Nodes.Table (E1 + J) := Nodes.Table (E2 + J);
1363 Nodes.Table (E2 + J) := Temp_Ent;
1366 -- Exchange flag bytes for first component. No need to do the exchange
1367 -- for the other components, since the flag bytes are always zero.
1369 Temp_Flg := Flags.Table (E1);
1370 Flags.Table (E1) := Flags.Table (E2);
1371 Flags.Table (E2) := Temp_Flg;
1373 -- That exchange exchanged the parent pointers as well, which is what
1374 -- we want, but we need to patch up the defining identifier pointers
1375 -- in the parent nodes (the child pointers) to match this switch
1376 -- unless for Implicit types entities which have no parent, in which
1377 -- case we don't do anything otherwise we won't be able to revert back
1378 -- to the original situation.
1380 -- Shouldn't this use Is_Itype instead of the Parent test
1382 if Present (Parent (E1)) and then Present (Parent (E2)) then
1383 Set_Defining_Identifier (Parent (E1), E1);
1384 Set_Defining_Identifier (Parent (E2), E2);
1386 end Exchange_Entities;
1392 function Extend_Node (Node : Node_Id) return Entity_Id is
1395 procedure Debug_Extend_Node;
1396 pragma Inline (Debug_Extend_Node);
1397 -- Debug routine for debug flag N
1399 -----------------------
1400 -- Debug_Extend_Node --
1401 -----------------------
1403 procedure Debug_Extend_Node is
1405 if Debug_Flag_N then
1406 Write_Str ("Extend node ");
1407 Write_Int (Int (Node));
1409 if Result = Node then
1410 Write_Str (" in place");
1412 Write_Str (" copied to ");
1413 Write_Int (Int (Result));
1418 end Debug_Extend_Node;
1420 -- Start of processing for Extend_Node
1423 pragma Assert (not (Has_Extension (Node)));
1424 Result := Allocate_Initialize_Node (Node, With_Extension => True);
1425 pragma Debug (Debug_Extend_Node);
1433 procedure Fix_Parents (Ref_Node, Fix_Node : Node_Id) is
1435 procedure Fix_Parent (Field : Union_Id);
1436 -- Fixup one parent pointer. Field is checked to see if it points to
1437 -- a node, list, or element list that has a parent that points to
1438 -- Ref_Node. If so, the parent is reset to point to Fix_Node.
1444 procedure Fix_Parent (Field : Union_Id) is
1446 -- Fix parent of node that is referenced by Field. Note that we must
1447 -- exclude the case where the node is a member of a list, because in
1448 -- this case the parent is the parent of the list.
1450 if Field in Node_Range
1451 and then Present (Node_Id (Field))
1452 and then not Nodes.Table (Node_Id (Field)).In_List
1453 and then Parent (Node_Id (Field)) = Ref_Node
1455 Set_Parent (Node_Id (Field), Fix_Node);
1457 -- Fix parent of list that is referenced by Field
1459 elsif Field in List_Range
1460 and then Present (List_Id (Field))
1461 and then Parent (List_Id (Field)) = Ref_Node
1463 Set_Parent (List_Id (Field), Fix_Node);
1467 -- Start of processing for Fix_Parents
1470 Fix_Parent (Field1 (Fix_Node));
1471 Fix_Parent (Field2 (Fix_Node));
1472 Fix_Parent (Field3 (Fix_Node));
1473 Fix_Parent (Field4 (Fix_Node));
1474 Fix_Parent (Field5 (Fix_Node));
1481 function Flags_Address return System.Address is
1483 return Flags.Table (First_Node_Id)'Address;
1486 -----------------------------------
1487 -- Get_Comes_From_Source_Default --
1488 -----------------------------------
1490 function Get_Comes_From_Source_Default return Boolean is
1492 return Default_Node.Comes_From_Source;
1493 end Get_Comes_From_Source_Default;
1499 function Has_Aspects (N : Node_Id) return Boolean is
1501 pragma Assert (N <= Nodes.Last);
1502 return Nodes.Table (N).Has_Aspects;
1509 function Has_Extension (N : Node_Id) return Boolean is
1511 return N < Nodes.Last and then Nodes.Table (N + 1).Is_Extension;
1518 procedure Initialize is
1520 pragma Warnings (Off, Dummy);
1524 Atree_Private_Part.Nodes.Init;
1525 Atree_Private_Part.Flags.Init;
1529 -- Allocate Empty node
1531 Dummy := New_Node (N_Empty, No_Location);
1532 Set_Name1 (Empty, No_Name);
1534 -- Allocate Error node, and set Error_Posted, since we certainly
1535 -- only generate an Error node if we do post some kind of error.
1537 Dummy := New_Node (N_Error, No_Location);
1538 Set_Name1 (Error, Error_Name);
1539 Set_Error_Posted (Error, True);
1542 ---------------------------
1543 -- Is_Ignored_Ghost_Node --
1544 ---------------------------
1546 function Is_Ignored_Ghost_Node (N : Node_Id) return Boolean is
1548 return Flags.Table (N).Is_Ignored_Ghost_Node;
1549 end Is_Ignored_Ghost_Node;
1551 --------------------------
1552 -- Is_Rewrite_Insertion --
1553 --------------------------
1555 function Is_Rewrite_Insertion (Node : Node_Id) return Boolean is
1557 return Nodes.Table (Node).Rewrite_Ins;
1558 end Is_Rewrite_Insertion;
1560 -----------------------------
1561 -- Is_Rewrite_Substitution --
1562 -----------------------------
1564 function Is_Rewrite_Substitution (Node : Node_Id) return Boolean is
1566 return Orig_Nodes.Table (Node) /= Node;
1567 end Is_Rewrite_Substitution;
1573 function Last_Node_Id return Node_Id is
1584 Nodes.Locked := True;
1585 Flags.Locked := True;
1586 Orig_Nodes.Locked := True;
1592 ----------------------------
1593 -- Mark_Rewrite_Insertion --
1594 ----------------------------
1596 procedure Mark_Rewrite_Insertion (New_Node : Node_Id) is
1598 Nodes.Table (New_Node).Rewrite_Ins := True;
1599 end Mark_Rewrite_Insertion;
1605 function New_Copy (Source : Node_Id) return Node_Id is
1606 New_Id : Node_Id := Source;
1609 if Source > Empty_Or_Error then
1610 New_Id := Allocate_Initialize_Node (Source, Has_Extension (Source));
1612 Nodes.Table (New_Id).Link := Empty_List_Or_Node;
1613 Nodes.Table (New_Id).In_List := False;
1615 -- If the original is marked as a rewrite insertion, then unmark the
1616 -- copy, since we inserted the original, not the copy.
1618 Nodes.Table (New_Id).Rewrite_Ins := False;
1619 pragma Debug (New_Node_Debugging_Output (New_Id));
1621 -- Clear Is_Overloaded since we cannot have semantic interpretations
1622 -- of this new node.
1624 if Nkind (Source) in N_Subexpr then
1625 Set_Is_Overloaded (New_Id, False);
1628 -- Always clear Has_Aspects, the caller must take care of copying
1629 -- aspects if this is required for the particular situation.
1631 Set_Has_Aspects (New_Id, False);
1642 (New_Node_Kind : Node_Kind;
1643 New_Sloc : Source_Ptr) return Entity_Id
1648 pragma Assert (New_Node_Kind in N_Entity);
1650 Ent := Allocate_Initialize_Node (Empty, With_Extension => True);
1652 -- If this is a node with a real location and we are generating
1653 -- source nodes, then reset Current_Error_Node. This is useful
1654 -- if we bomb during parsing to get a error location for the bomb.
1656 if Default_Node.Comes_From_Source and then New_Sloc > No_Location then
1657 Current_Error_Node := Ent;
1660 Nodes.Table (Ent).Nkind := New_Node_Kind;
1661 Nodes.Table (Ent).Sloc := New_Sloc;
1662 pragma Debug (New_Node_Debugging_Output (Ent));
1672 (New_Node_Kind : Node_Kind;
1673 New_Sloc : Source_Ptr) return Node_Id
1678 pragma Assert (New_Node_Kind not in N_Entity);
1679 Nod := Allocate_Initialize_Node (Empty, With_Extension => False);
1680 Nodes.Table (Nod).Nkind := New_Node_Kind;
1681 Nodes.Table (Nod).Sloc := New_Sloc;
1682 pragma Debug (New_Node_Debugging_Output (Nod));
1684 -- If this is a node with a real location and we are generating source
1685 -- nodes, then reset Current_Error_Node. This is useful if we bomb
1686 -- during parsing to get an error location for the bomb.
1688 if Default_Node.Comes_From_Source and then New_Sloc > No_Location then
1689 Current_Error_Node := Nod;
1695 -------------------------
1696 -- New_Node_Breakpoint --
1697 -------------------------
1701 Write_Str ("Watched node ");
1702 Write_Int (Int (Watch_Node));
1703 Write_Str (" created");
1707 -------------------------------
1708 -- New_Node_Debugging_Output --
1709 -------------------------------
1711 procedure nnd (N : Node_Id) is
1712 Node_Is_Watched : constant Boolean := N = Watch_Node;
1715 if Debug_Flag_N or else Node_Is_Watched then
1716 Node_Debug_Output ("Allocate", N);
1718 if Node_Is_Watched then
1719 New_Node_Breakpoint;
1728 function Nkind (N : Node_Id) return Node_Kind is
1730 return Nodes.Table (N).Nkind;
1740 V2 : Node_Kind) return Boolean
1743 return Nkind_In (Nkind (N), V1, V2);
1750 V3 : Node_Kind) return Boolean
1753 return Nkind_In (Nkind (N), V1, V2, V3);
1761 V4 : Node_Kind) return Boolean
1764 return Nkind_In (Nkind (N), V1, V2, V3, V4);
1773 V5 : Node_Kind) return Boolean
1776 return Nkind_In (Nkind (N), V1, V2, V3, V4, V5);
1786 V6 : Node_Kind) return Boolean
1789 return Nkind_In (Nkind (N), V1, V2, V3, V4, V5, V6);
1800 V7 : Node_Kind) return Boolean
1803 return Nkind_In (Nkind (N), V1, V2, V3, V4, V5, V6, V7);
1815 V8 : Node_Kind) return Boolean
1818 return Nkind_In (Nkind (N), V1, V2, V3, V4, V5, V6, V7, V8);
1831 V9 : Node_Kind) return Boolean
1834 return Nkind_In (Nkind (N), V1, V2, V3, V4, V5, V6, V7, V8, V9);
1841 function No (N : Node_Id) return Boolean is
1846 -----------------------
1847 -- Node_Debug_Output --
1848 -----------------------
1850 procedure Node_Debug_Output (Op : String; N : Node_Id) is
1854 if Nkind (N) in N_Entity then
1855 Write_Str (" entity");
1857 Write_Str (" node");
1860 Write_Str (" Id = ");
1861 Write_Int (Int (N));
1863 Write_Location (Sloc (N));
1865 Write_Str (Node_Kind'Image (Nkind (N)));
1867 end Node_Debug_Output;
1873 function Nodes_Address return System.Address is
1875 return Nodes.Table (First_Node_Id)'Address;
1882 function Num_Nodes return Nat is
1891 function Original_Node (Node : Node_Id) return Node_Id is
1893 return Orig_Nodes.Table (Node);
1900 function Paren_Count (N : Node_Id) return Nat is
1904 pragma Assert (N <= Nodes.Last);
1906 if Nodes.Table (N).Pflag1 then
1910 if Nodes.Table (N).Pflag2 then
1914 -- Value of 0,1,2 returned as is
1919 -- Value of 3 means we search the table, and we must find an entry
1922 for J in Paren_Counts.First .. Paren_Counts.Last loop
1923 if N = Paren_Counts.Table (J).Nod then
1924 return Paren_Counts.Table (J).Count;
1928 raise Program_Error;
1936 function Parent (N : Node_Id) return Node_Id is
1938 if Is_List_Member (N) then
1939 return Parent (List_Containing (N));
1941 return Node_Id (Nodes.Table (N).Link);
1949 function Present (N : Node_Id) return Boolean is
1954 --------------------------------
1955 -- Preserve_Comes_From_Source --
1956 --------------------------------
1958 procedure Preserve_Comes_From_Source (NewN, OldN : Node_Id) is
1960 Nodes.Table (NewN).Comes_From_Source :=
1961 Nodes.Table (OldN).Comes_From_Source;
1962 end Preserve_Comes_From_Source;
1964 ----------------------
1965 -- Print_Statistics --
1966 ----------------------
1968 procedure Print_Statistics is
1969 N_Count : constant Natural := Natural (Nodes.Last - First_Node_Id + 1);
1970 E_Count : Natural := 0;
1973 Write_Str ("Number of entities: ");
1977 function CP_Lt (Op1, Op2 : Natural) return Boolean;
1978 -- Compare routine for Sort
1980 procedure CP_Move (From : Natural; To : Natural);
1981 -- Move routine for Sort
1983 Kind_Count : array (Node_Kind) of Natural := (others => 0);
1984 -- Array of occurrence count per node kind
1986 Kind_Max : constant Natural := Node_Kind'Pos (N_Unused_At_End) - 1;
1987 -- The index of the largest (interesting) node kind
1989 Ranking : array (0 .. Kind_Max) of Node_Kind;
1990 -- Ranking array for node kinds (index 0 is used for the temporary)
1992 package Sorting is new GNAT.Heap_Sort_G (CP_Move, CP_Lt);
1994 function CP_Lt (Op1, Op2 : Natural) return Boolean is
1996 return Kind_Count (Ranking (Op2)) < Kind_Count (Ranking (Op1));
1999 procedure CP_Move (From : Natural; To : Natural) is
2001 Ranking (To) := Ranking (From);
2005 -- Count the number of occurrences of each node kind
2007 for I in First_Node_Id .. Nodes.Last loop
2009 Nkind : constant Node_Kind := Nodes.Table (I).Nkind;
2011 if not Nodes.Table (I).Is_Extension then
2012 Kind_Count (Nkind) := Kind_Count (Nkind) + 1;
2017 -- Sort the node kinds by number of occurrences
2019 for N in 1 .. Kind_Max loop
2020 Ranking (N) := Node_Kind'Val (N);
2023 Sorting.Sort (Kind_Max);
2025 -- Print the list in descending order
2027 for N in 1 .. Kind_Max loop
2029 Count : constant Natural := Kind_Count (Ranking (N));
2033 Write_Str (Node_Kind'Image (Ranking (N)));
2035 Write_Int (Int (Count));
2038 E_Count := E_Count + Count;
2044 Write_Str ("Total number of entities: ");
2045 Write_Int (Int (E_Count));
2048 Write_Str ("Maximum number of nodes per entity: ");
2049 Write_Int (Int (Num_Extension_Nodes + 1));
2052 Write_Str ("Number of allocated nodes: ");
2053 Write_Int (Int (N_Count));
2056 Write_Str ("Ratio allocated nodes/entities: ");
2057 Write_Int (Int (Long_Long_Integer (N_Count) * 100 /
2058 Long_Long_Integer (E_Count)));
2062 Write_Str ("Size of a node in bytes: ");
2063 Write_Int (Int (Node_Record'Size) / Storage_Unit);
2066 Write_Str ("Memory consumption in bytes: ");
2067 Write_Int (Int (Long_Long_Integer (N_Count) *
2068 (Node_Record'Size / Storage_Unit)));
2070 end Print_Statistics;
2076 function Relocate_Node (Source : Node_Id) return Node_Id is
2084 New_Node := New_Copy (Source);
2085 Fix_Parents (Ref_Node => Source, Fix_Node => New_Node);
2087 -- We now set the parent of the new node to be the same as the parent of
2088 -- the source. Almost always this parent will be replaced by a new value
2089 -- when the relocated node is reattached to the tree, but by doing it
2090 -- now, we ensure that this node is not even temporarily disconnected
2091 -- from the tree. Note that this does not happen free, because in the
2092 -- list case, the parent does not get set.
2094 Set_Parent (New_Node, Parent (Source));
2096 -- If the node being relocated was a rewriting of some original node,
2097 -- then the relocated node has the same original node.
2099 if Orig_Nodes.Table (Source) /= Source then
2100 Orig_Nodes.Table (New_Node) := Orig_Nodes.Table (Source);
2110 procedure Replace (Old_Node, New_Node : Node_Id) is
2111 Old_Post : constant Boolean := Nodes.Table (Old_Node).Error_Posted;
2112 Old_HasA : constant Boolean := Nodes.Table (Old_Node).Has_Aspects;
2113 Old_CFS : constant Boolean := Nodes.Table (Old_Node).Comes_From_Source;
2117 (not Has_Extension (Old_Node)
2118 and not Has_Extension (New_Node)
2119 and not Nodes.Table (New_Node).In_List);
2121 -- Do copy, preserving link and in list status and required flags
2123 Copy_Node (Source => New_Node, Destination => Old_Node);
2124 Nodes.Table (Old_Node).Comes_From_Source := Old_CFS;
2125 Nodes.Table (Old_Node).Error_Posted := Old_Post;
2126 Nodes.Table (Old_Node).Has_Aspects := Old_HasA;
2128 -- Fix parents of substituted node, since it has changed identity
2130 Fix_Parents (Ref_Node => New_Node, Fix_Node => Old_Node);
2132 -- Since we are doing a replace, we assume that the original node
2133 -- is intended to become the new replaced node. The call would be
2134 -- to Rewrite if there were an intention to save the original node.
2136 Orig_Nodes.Table (Old_Node) := Old_Node;
2138 -- Invoke the reporting procedure (if available)
2140 if Reporting_Proc /= null then
2141 Reporting_Proc.all (Target => Old_Node, Source => New_Node);
2149 procedure Rewrite (Old_Node, New_Node : Node_Id) is
2150 Old_Error_P : constant Boolean := Nodes.Table (Old_Node).Error_Posted;
2151 -- This field is always preserved in the new node
2153 Old_Has_Aspects : constant Boolean := Nodes.Table (Old_Node).Has_Aspects;
2154 -- This field is always preserved in the new node
2156 Old_Paren_Count : Nat;
2157 Old_Must_Not_Freeze : Boolean;
2158 -- These fields are preserved in the new node only if the new node
2159 -- and the old node are both subexpression nodes.
2161 -- Note: it is a violation of abstraction levels for Must_Not_Freeze
2162 -- to be referenced like this. ???
2168 (not Has_Extension (Old_Node)
2169 and not Has_Extension (New_Node)
2170 and not Nodes.Table (New_Node).In_List);
2171 pragma Debug (Rewrite_Debugging_Output (Old_Node, New_Node));
2173 if Nkind (Old_Node) in N_Subexpr then
2174 Old_Paren_Count := Paren_Count (Old_Node);
2175 Old_Must_Not_Freeze := Must_Not_Freeze (Old_Node);
2177 Old_Paren_Count := 0;
2178 Old_Must_Not_Freeze := False;
2181 -- Allocate a new node, to be used to preserve the original contents
2182 -- of the Old_Node, for possible later retrival by Original_Node and
2183 -- make an entry in the Orig_Nodes table. This is only done if we have
2184 -- not already rewritten the node, as indicated by an Orig_Nodes entry
2185 -- that does not reference the Old_Node.
2187 if Orig_Nodes.Table (Old_Node) = Old_Node then
2188 Sav_Node := New_Copy (Old_Node);
2189 Orig_Nodes.Table (Sav_Node) := Sav_Node;
2190 Orig_Nodes.Table (Old_Node) := Sav_Node;
2192 -- Both the old and new copies of the node will share the same list
2193 -- of aspect specifications if aspect specifications are present.
2195 if Old_Has_Aspects then
2196 Set_Aspect_Specifications
2197 (Sav_Node, Aspect_Specifications (Old_Node));
2201 -- Copy substitute node into place, preserving old fields as required
2203 Copy_Node (Source => New_Node, Destination => Old_Node);
2204 Nodes.Table (Old_Node).Error_Posted := Old_Error_P;
2205 Nodes.Table (Old_Node).Has_Aspects := Old_Has_Aspects;
2207 if Nkind (New_Node) in N_Subexpr then
2208 Set_Paren_Count (Old_Node, Old_Paren_Count);
2209 Set_Must_Not_Freeze (Old_Node, Old_Must_Not_Freeze);
2212 Fix_Parents (Ref_Node => New_Node, Fix_Node => Old_Node);
2214 -- Invoke the reporting procedure (if available)
2216 if Reporting_Proc /= null then
2217 Reporting_Proc.all (Target => Old_Node, Source => New_Node);
2221 -------------------------
2222 -- Rewrite_Breakpoint --
2223 -------------------------
2227 Write_Str ("Watched node ");
2228 Write_Int (Int (Watch_Node));
2229 Write_Str (" rewritten");
2233 ------------------------------
2234 -- Rewrite_Debugging_Output --
2235 ------------------------------
2237 procedure rrd (Old_Node, New_Node : Node_Id) is
2238 Node_Is_Watched : constant Boolean := Old_Node = Watch_Node;
2241 if Debug_Flag_N or else Node_Is_Watched then
2242 Node_Debug_Output ("Rewrite", Old_Node);
2243 Node_Debug_Output ("into", New_Node);
2245 if Node_Is_Watched then
2255 procedure Set_Analyzed (N : Node_Id; Val : Boolean := True) is
2257 Nodes.Table (N).Analyzed := Val;
2260 -----------------------
2261 -- Set_Check_Actuals --
2262 -----------------------
2264 procedure Set_Check_Actuals (N : Node_Id; Val : Boolean := True) is
2266 Flags.Table (N).Check_Actuals := Val;
2267 end Set_Check_Actuals;
2269 ---------------------------
2270 -- Set_Comes_From_Source --
2271 ---------------------------
2273 procedure Set_Comes_From_Source (N : Node_Id; Val : Boolean) is
2275 pragma Assert (N <= Nodes.Last);
2276 Nodes.Table (N).Comes_From_Source := Val;
2277 end Set_Comes_From_Source;
2279 -----------------------------------
2280 -- Set_Comes_From_Source_Default --
2281 -----------------------------------
2283 procedure Set_Comes_From_Source_Default (Default : Boolean) is
2285 Default_Node.Comes_From_Source := Default;
2286 end Set_Comes_From_Source_Default;
2292 procedure Set_Ekind (E : Entity_Id; Val : Entity_Kind) is
2294 pragma Assert (Nkind (E) in N_Entity);
2295 Nodes.Table (E + 1).Nkind := E_To_N (Val);
2298 ----------------------
2299 -- Set_Error_Posted --
2300 ----------------------
2302 procedure Set_Error_Posted (N : Node_Id; Val : Boolean := True) is
2304 Nodes.Table (N).Error_Posted := Val;
2305 end Set_Error_Posted;
2307 ---------------------
2308 -- Set_Has_Aspects --
2309 ---------------------
2311 procedure Set_Has_Aspects (N : Node_Id; Val : Boolean := True) is
2313 pragma Assert (N <= Nodes.Last);
2314 Nodes.Table (N).Has_Aspects := Val;
2315 end Set_Has_Aspects;
2317 -------------------------------
2318 -- Set_Is_Ignored_Ghost_Node --
2319 -------------------------------
2321 procedure Set_Is_Ignored_Ghost_Node (N : Node_Id; Val : Boolean := True) is
2323 Flags.Table (N).Is_Ignored_Ghost_Node := Val;
2324 end Set_Is_Ignored_Ghost_Node;
2326 -----------------------
2327 -- Set_Original_Node --
2328 -----------------------
2330 procedure Set_Original_Node (N : Node_Id; Val : Node_Id) is
2332 Orig_Nodes.Table (N) := Val;
2333 end Set_Original_Node;
2335 ---------------------
2336 -- Set_Paren_Count --
2337 ---------------------
2339 procedure Set_Paren_Count (N : Node_Id; Val : Nat) is
2341 pragma Assert (Nkind (N) in N_Subexpr);
2343 -- Value of 0,1,2 stored as is
2346 Nodes.Table (N).Pflag1 := (Val mod 2 /= 0);
2347 Nodes.Table (N).Pflag2 := (Val = 2);
2349 -- Value of 3 or greater stores 3 in node and makes table entry
2352 Nodes.Table (N).Pflag1 := True;
2353 Nodes.Table (N).Pflag2 := True;
2355 for J in Paren_Counts.First .. Paren_Counts.Last loop
2356 if N = Paren_Counts.Table (J).Nod then
2357 Paren_Counts.Table (J).Count := Val;
2362 Paren_Counts.Append ((Nod => N, Count => Val));
2364 end Set_Paren_Count;
2370 procedure Set_Parent (N : Node_Id; Val : Node_Id) is
2372 pragma Assert (not Nodes.Table (N).In_List);
2373 Nodes.Table (N).Link := Union_Id (Val);
2380 procedure Set_Sloc (N : Node_Id; Val : Source_Ptr) is
2382 Nodes.Table (N).Sloc := Val;
2389 function Sloc (N : Node_Id) return Source_Ptr is
2391 return Nodes.Table (N).Sloc;
2398 function Traverse_Func (Node : Node_Id) return Traverse_Final_Result is
2400 function Traverse_Field
2403 FN : Field_Num) return Traverse_Final_Result;
2404 -- Fld is one of the fields of Nod. If the field points to syntactic
2405 -- node or list, then this node or list is traversed, and the result is
2406 -- the result of this traversal. Otherwise a value of True is returned
2407 -- with no processing. FN is the number of the field (1 .. 5).
2409 --------------------
2410 -- Traverse_Field --
2411 --------------------
2413 function Traverse_Field
2416 FN : Field_Num) return Traverse_Final_Result
2419 if Fld = Union_Id (Empty) then
2422 -- Descendant is a node
2424 elsif Fld in Node_Range then
2426 -- Traverse descendant that is syntactic subtree node
2428 if Is_Syntactic_Field (Nkind (Nod), FN) then
2429 return Traverse_Func (Node_Id (Fld));
2431 -- Node that is not a syntactic subtree
2437 -- Descendant is a list
2439 elsif Fld in List_Range then
2441 -- Traverse descendant that is a syntactic subtree list
2443 if Is_Syntactic_Field (Nkind (Nod), FN) then
2445 Elmt : Node_Id := First (List_Id (Fld));
2448 while Present (Elmt) loop
2449 if Traverse_Func (Elmt) = Abandon then
2459 -- List that is not a syntactic subtree
2465 -- Field was not a node or a list
2472 Cur_Node : Node_Id := Node;
2474 -- Start of processing for Traverse_Func
2477 -- We walk Field2 last, and if it is a node, we eliminate the tail
2478 -- recursion by jumping back to this label. This is because Field2 is
2479 -- where the Left_Opnd field of N_Op_Concat is stored, and in practice
2480 -- concatenations are sometimes deeply nested, as in X1&X2&...&XN. This
2481 -- trick prevents us from running out of memory in that case. We don't
2482 -- bother eliminating the tail recursion if Field2 is a list.
2486 case Process (Cur_Node) is
2497 Cur_Node := Original_Node (Cur_Node);
2500 if Traverse_Field (Cur_Node, Field1 (Cur_Node), 1) = Abandon
2501 or else -- skip Field2 here
2502 Traverse_Field (Cur_Node, Field3 (Cur_Node), 3) = Abandon
2504 Traverse_Field (Cur_Node, Field4 (Cur_Node), 4) = Abandon
2506 Traverse_Field (Cur_Node, Field5 (Cur_Node), 5) = Abandon
2511 if Field2 (Cur_Node) not in Node_Range then
2512 return Traverse_Field (Cur_Node, Field2 (Cur_Node), 2);
2514 elsif Is_Syntactic_Field (Nkind (Cur_Node), 2)
2515 and then Field2 (Cur_Node) /= Empty_List_Or_Node
2517 -- Here is the tail recursion step, we reset Cur_Node and jump back
2518 -- to the start of the procedure, which has the same semantic effect
2521 Cur_Node := Node_Id (Field2 (Cur_Node));
2532 procedure Traverse_Proc (Node : Node_Id) is
2533 function Traverse is new Traverse_Func (Process);
2534 Discard : Traverse_Final_Result;
2535 pragma Warnings (Off, Discard);
2537 Discard := Traverse (Node);
2544 procedure Tree_Read is
2546 Tree_Read_Int (Node_Count);
2549 Orig_Nodes.Tree_Read;
2550 Paren_Counts.Tree_Read;
2557 procedure Tree_Write is
2559 Tree_Write_Int (Node_Count);
2562 Orig_Nodes.Tree_Write;
2563 Paren_Counts.Tree_Write;
2566 ------------------------------
2567 -- Unchecked Access Package --
2568 ------------------------------
2570 package body Unchecked_Access is
2572 function Field1 (N : Node_Id) return Union_Id is
2574 pragma Assert (N <= Nodes.Last);
2575 return Nodes.Table (N).Field1;
2578 function Field2 (N : Node_Id) return Union_Id is
2580 pragma Assert (N <= Nodes.Last);
2581 return Nodes.Table (N).Field2;
2584 function Field3 (N : Node_Id) return Union_Id is
2586 pragma Assert (N <= Nodes.Last);
2587 return Nodes.Table (N).Field3;
2590 function Field4 (N : Node_Id) return Union_Id is
2592 pragma Assert (N <= Nodes.Last);
2593 return Nodes.Table (N).Field4;
2596 function Field5 (N : Node_Id) return Union_Id is
2598 pragma Assert (N <= Nodes.Last);
2599 return Nodes.Table (N).Field5;
2602 function Field6 (N : Node_Id) return Union_Id is
2604 pragma Assert (Nkind (N) in N_Entity);
2605 return Nodes.Table (N + 1).Field6;
2608 function Field7 (N : Node_Id) return Union_Id is
2610 pragma Assert (Nkind (N) in N_Entity);
2611 return Nodes.Table (N + 1).Field7;
2614 function Field8 (N : Node_Id) return Union_Id is
2616 pragma Assert (Nkind (N) in N_Entity);
2617 return Nodes.Table (N + 1).Field8;
2620 function Field9 (N : Node_Id) return Union_Id is
2622 pragma Assert (Nkind (N) in N_Entity);
2623 return Nodes.Table (N + 1).Field9;
2626 function Field10 (N : Node_Id) return Union_Id is
2628 pragma Assert (Nkind (N) in N_Entity);
2629 return Nodes.Table (N + 1).Field10;
2632 function Field11 (N : Node_Id) return Union_Id is
2634 pragma Assert (Nkind (N) in N_Entity);
2635 return Nodes.Table (N + 1).Field11;
2638 function Field12 (N : Node_Id) return Union_Id is
2640 pragma Assert (Nkind (N) in N_Entity);
2641 return Nodes.Table (N + 1).Field12;
2644 function Field13 (N : Node_Id) return Union_Id is
2646 pragma Assert (Nkind (N) in N_Entity);
2647 return Nodes.Table (N + 2).Field6;
2650 function Field14 (N : Node_Id) return Union_Id is
2652 pragma Assert (Nkind (N) in N_Entity);
2653 return Nodes.Table (N + 2).Field7;
2656 function Field15 (N : Node_Id) return Union_Id is
2658 pragma Assert (Nkind (N) in N_Entity);
2659 return Nodes.Table (N + 2).Field8;
2662 function Field16 (N : Node_Id) return Union_Id is
2664 pragma Assert (Nkind (N) in N_Entity);
2665 return Nodes.Table (N + 2).Field9;
2668 function Field17 (N : Node_Id) return Union_Id is
2670 pragma Assert (Nkind (N) in N_Entity);
2671 return Nodes.Table (N + 2).Field10;
2674 function Field18 (N : Node_Id) return Union_Id is
2676 pragma Assert (Nkind (N) in N_Entity);
2677 return Nodes.Table (N + 2).Field11;
2680 function Field19 (N : Node_Id) return Union_Id is
2682 pragma Assert (Nkind (N) in N_Entity);
2683 return Nodes.Table (N + 3).Field6;
2686 function Field20 (N : Node_Id) return Union_Id is
2688 pragma Assert (Nkind (N) in N_Entity);
2689 return Nodes.Table (N + 3).Field7;
2692 function Field21 (N : Node_Id) return Union_Id is
2694 pragma Assert (Nkind (N) in N_Entity);
2695 return Nodes.Table (N + 3).Field8;
2698 function Field22 (N : Node_Id) return Union_Id is
2700 pragma Assert (Nkind (N) in N_Entity);
2701 return Nodes.Table (N + 3).Field9;
2704 function Field23 (N : Node_Id) return Union_Id is
2706 pragma Assert (Nkind (N) in N_Entity);
2707 return Nodes.Table (N + 3).Field10;
2710 function Field24 (N : Node_Id) return Union_Id is
2712 pragma Assert (Nkind (N) in N_Entity);
2713 return Nodes.Table (N + 4).Field6;
2716 function Field25 (N : Node_Id) return Union_Id is
2718 pragma Assert (Nkind (N) in N_Entity);
2719 return Nodes.Table (N + 4).Field7;
2722 function Field26 (N : Node_Id) return Union_Id is
2724 pragma Assert (Nkind (N) in N_Entity);
2725 return Nodes.Table (N + 4).Field8;
2728 function Field27 (N : Node_Id) return Union_Id is
2730 pragma Assert (Nkind (N) in N_Entity);
2731 return Nodes.Table (N + 4).Field9;
2734 function Field28 (N : Node_Id) return Union_Id is
2736 pragma Assert (Nkind (N) in N_Entity);
2737 return Nodes.Table (N + 4).Field10;
2740 function Field29 (N : Node_Id) return Union_Id is
2742 pragma Assert (Nkind (N) in N_Entity);
2743 return Nodes.Table (N + 4).Field11;
2746 function Field30 (N : Node_Id) return Union_Id is
2748 pragma Assert (Nkind (N) in N_Entity);
2749 return Nodes.Table (N + 5).Field6;
2752 function Field31 (N : Node_Id) return Union_Id is
2754 pragma Assert (Nkind (N) in N_Entity);
2755 return Nodes.Table (N + 5).Field7;
2758 function Field32 (N : Node_Id) return Union_Id is
2760 pragma Assert (Nkind (N) in N_Entity);
2761 return Nodes.Table (N + 5).Field8;
2764 function Field33 (N : Node_Id) return Union_Id is
2766 pragma Assert (Nkind (N) in N_Entity);
2767 return Nodes.Table (N + 5).Field9;
2770 function Field34 (N : Node_Id) return Union_Id is
2772 pragma Assert (Nkind (N) in N_Entity);
2773 return Nodes.Table (N + 5).Field10;
2776 function Field35 (N : Node_Id) return Union_Id is
2778 pragma Assert (Nkind (N) in N_Entity);
2779 return Nodes.Table (N + 5).Field11;
2782 function Field36 (N : Node_Id) return Union_Id is
2784 pragma Assert (Nkind (N) in N_Entity);
2785 return Nodes.Table (N + 6).Field6;
2788 function Field37 (N : Node_Id) return Union_Id is
2790 pragma Assert (Nkind (N) in N_Entity);
2791 return Nodes.Table (N + 6).Field7;
2794 function Field38 (N : Node_Id) return Union_Id is
2796 pragma Assert (Nkind (N) in N_Entity);
2797 return Nodes.Table (N + 6).Field8;
2800 function Field39 (N : Node_Id) return Union_Id is
2802 pragma Assert (Nkind (N) in N_Entity);
2803 return Nodes.Table (N + 6).Field9;
2806 function Field40 (N : Node_Id) return Union_Id is
2808 pragma Assert (Nkind (N) in N_Entity);
2809 return Nodes.Table (N + 6).Field10;
2812 function Field41 (N : Node_Id) return Union_Id is
2814 pragma Assert (Nkind (N) in N_Entity);
2815 return Nodes.Table (N + 6).Field11;
2818 function Node1 (N : Node_Id) return Node_Id is
2820 pragma Assert (N <= Nodes.Last);
2821 return Node_Id (Nodes.Table (N).Field1);
2824 function Node2 (N : Node_Id) return Node_Id is
2826 pragma Assert (N <= Nodes.Last);
2827 return Node_Id (Nodes.Table (N).Field2);
2830 function Node3 (N : Node_Id) return Node_Id is
2832 pragma Assert (N <= Nodes.Last);
2833 return Node_Id (Nodes.Table (N).Field3);
2836 function Node4 (N : Node_Id) return Node_Id is
2838 pragma Assert (N <= Nodes.Last);
2839 return Node_Id (Nodes.Table (N).Field4);
2842 function Node5 (N : Node_Id) return Node_Id is
2844 pragma Assert (N <= Nodes.Last);
2845 return Node_Id (Nodes.Table (N).Field5);
2848 function Node6 (N : Node_Id) return Node_Id is
2850 pragma Assert (Nkind (N) in N_Entity);
2851 return Node_Id (Nodes.Table (N + 1).Field6);
2854 function Node7 (N : Node_Id) return Node_Id is
2856 pragma Assert (Nkind (N) in N_Entity);
2857 return Node_Id (Nodes.Table (N + 1).Field7);
2860 function Node8 (N : Node_Id) return Node_Id is
2862 pragma Assert (Nkind (N) in N_Entity);
2863 return Node_Id (Nodes.Table (N + 1).Field8);
2866 function Node9 (N : Node_Id) return Node_Id is
2868 pragma Assert (Nkind (N) in N_Entity);
2869 return Node_Id (Nodes.Table (N + 1).Field9);
2872 function Node10 (N : Node_Id) return Node_Id is
2874 pragma Assert (Nkind (N) in N_Entity);
2875 return Node_Id (Nodes.Table (N + 1).Field10);
2878 function Node11 (N : Node_Id) return Node_Id is
2880 pragma Assert (Nkind (N) in N_Entity);
2881 return Node_Id (Nodes.Table (N + 1).Field11);
2884 function Node12 (N : Node_Id) return Node_Id is
2886 pragma Assert (Nkind (N) in N_Entity);
2887 return Node_Id (Nodes.Table (N + 1).Field12);
2890 function Node13 (N : Node_Id) return Node_Id is
2892 pragma Assert (Nkind (N) in N_Entity);
2893 return Node_Id (Nodes.Table (N + 2).Field6);
2896 function Node14 (N : Node_Id) return Node_Id is
2898 pragma Assert (Nkind (N) in N_Entity);
2899 return Node_Id (Nodes.Table (N + 2).Field7);
2902 function Node15 (N : Node_Id) return Node_Id is
2904 pragma Assert (Nkind (N) in N_Entity);
2905 return Node_Id (Nodes.Table (N + 2).Field8);
2908 function Node16 (N : Node_Id) return Node_Id is
2910 pragma Assert (Nkind (N) in N_Entity);
2911 return Node_Id (Nodes.Table (N + 2).Field9);
2914 function Node17 (N : Node_Id) return Node_Id is
2916 pragma Assert (Nkind (N) in N_Entity);
2917 return Node_Id (Nodes.Table (N + 2).Field10);
2920 function Node18 (N : Node_Id) return Node_Id is
2922 pragma Assert (Nkind (N) in N_Entity);
2923 return Node_Id (Nodes.Table (N + 2).Field11);
2926 function Node19 (N : Node_Id) return Node_Id is
2928 pragma Assert (Nkind (N) in N_Entity);
2929 return Node_Id (Nodes.Table (N + 3).Field6);
2932 function Node20 (N : Node_Id) return Node_Id is
2934 pragma Assert (Nkind (N) in N_Entity);
2935 return Node_Id (Nodes.Table (N + 3).Field7);
2938 function Node21 (N : Node_Id) return Node_Id is
2940 pragma Assert (Nkind (N) in N_Entity);
2941 return Node_Id (Nodes.Table (N + 3).Field8);
2944 function Node22 (N : Node_Id) return Node_Id is
2946 pragma Assert (Nkind (N) in N_Entity);
2947 return Node_Id (Nodes.Table (N + 3).Field9);
2950 function Node23 (N : Node_Id) return Node_Id is
2952 pragma Assert (Nkind (N) in N_Entity);
2953 return Node_Id (Nodes.Table (N + 3).Field10);
2956 function Node24 (N : Node_Id) return Node_Id is
2958 pragma Assert (Nkind (N) in N_Entity);
2959 return Node_Id (Nodes.Table (N + 4).Field6);
2962 function Node25 (N : Node_Id) return Node_Id is
2964 pragma Assert (Nkind (N) in N_Entity);
2965 return Node_Id (Nodes.Table (N + 4).Field7);
2968 function Node26 (N : Node_Id) return Node_Id is
2970 pragma Assert (Nkind (N) in N_Entity);
2971 return Node_Id (Nodes.Table (N + 4).Field8);
2974 function Node27 (N : Node_Id) return Node_Id is
2976 pragma Assert (Nkind (N) in N_Entity);
2977 return Node_Id (Nodes.Table (N + 4).Field9);
2980 function Node28 (N : Node_Id) return Node_Id is
2982 pragma Assert (Nkind (N) in N_Entity);
2983 return Node_Id (Nodes.Table (N + 4).Field10);
2986 function Node29 (N : Node_Id) return Node_Id is
2988 pragma Assert (Nkind (N) in N_Entity);
2989 return Node_Id (Nodes.Table (N + 4).Field11);
2992 function Node30 (N : Node_Id) return Node_Id is
2994 pragma Assert (Nkind (N) in N_Entity);
2995 return Node_Id (Nodes.Table (N + 5).Field6);
2998 function Node31 (N : Node_Id) return Node_Id is
3000 pragma Assert (Nkind (N) in N_Entity);
3001 return Node_Id (Nodes.Table (N + 5).Field7);
3004 function Node32 (N : Node_Id) return Node_Id is
3006 pragma Assert (Nkind (N) in N_Entity);
3007 return Node_Id (Nodes.Table (N + 5).Field8);
3010 function Node33 (N : Node_Id) return Node_Id is
3012 pragma Assert (Nkind (N) in N_Entity);
3013 return Node_Id (Nodes.Table (N + 5).Field9);
3016 function Node34 (N : Node_Id) return Node_Id is
3018 pragma Assert (Nkind (N) in N_Entity);
3019 return Node_Id (Nodes.Table (N + 5).Field10);
3022 function Node35 (N : Node_Id) return Node_Id is
3024 pragma Assert (Nkind (N) in N_Entity);
3025 return Node_Id (Nodes.Table (N + 5).Field11);
3028 function Node36 (N : Node_Id) return Node_Id is
3030 pragma Assert (Nkind (N) in N_Entity);
3031 return Node_Id (Nodes.Table (N + 6).Field6);
3034 function Node37 (N : Node_Id) return Node_Id is
3036 pragma Assert (Nkind (N) in N_Entity);
3037 return Node_Id (Nodes.Table (N + 6).Field7);
3040 function Node38 (N : Node_Id) return Node_Id is
3042 pragma Assert (Nkind (N) in N_Entity);
3043 return Node_Id (Nodes.Table (N + 6).Field8);
3046 function Node39 (N : Node_Id) return Node_Id is
3048 pragma Assert (Nkind (N) in N_Entity);
3049 return Node_Id (Nodes.Table (N + 6).Field9);
3052 function Node40 (N : Node_Id) return Node_Id is
3054 pragma Assert (Nkind (N) in N_Entity);
3055 return Node_Id (Nodes.Table (N + 6).Field10);
3058 function Node41 (N : Node_Id) return Node_Id is
3060 pragma Assert (Nkind (N) in N_Entity);
3061 return Node_Id (Nodes.Table (N + 6).Field11);
3064 function List1 (N : Node_Id) return List_Id is
3066 pragma Assert (N <= Nodes.Last);
3067 return List_Id (Nodes.Table (N).Field1);
3070 function List2 (N : Node_Id) return List_Id is
3072 pragma Assert (N <= Nodes.Last);
3073 return List_Id (Nodes.Table (N).Field2);
3076 function List3 (N : Node_Id) return List_Id is
3078 pragma Assert (N <= Nodes.Last);
3079 return List_Id (Nodes.Table (N).Field3);
3082 function List4 (N : Node_Id) return List_Id is
3084 pragma Assert (N <= Nodes.Last);
3085 return List_Id (Nodes.Table (N).Field4);
3088 function List5 (N : Node_Id) return List_Id is
3090 pragma Assert (N <= Nodes.Last);
3091 return List_Id (Nodes.Table (N).Field5);
3094 function List10 (N : Node_Id) return List_Id is
3096 pragma Assert (Nkind (N) in N_Entity);
3097 return List_Id (Nodes.Table (N + 1).Field10);
3100 function List14 (N : Node_Id) return List_Id is
3102 pragma Assert (Nkind (N) in N_Entity);
3103 return List_Id (Nodes.Table (N + 2).Field7);
3106 function List25 (N : Node_Id) return List_Id is
3108 pragma Assert (Nkind (N) in N_Entity);
3109 return List_Id (Nodes.Table (N + 4).Field7);
3112 function List38 (N : Node_Id) return List_Id is
3114 return List_Id (Nodes.Table (N + 6).Field8);
3117 function List39 (N : Node_Id) return List_Id is
3119 return List_Id (Nodes.Table (N + 6).Field9);
3122 function Elist1 (N : Node_Id) return Elist_Id is
3123 pragma Assert (N <= Nodes.Last);
3124 Value : constant Union_Id := Nodes.Table (N).Field1;
3129 return Elist_Id (Value);
3133 function Elist2 (N : Node_Id) return Elist_Id is
3134 pragma Assert (N <= Nodes.Last);
3135 Value : constant Union_Id := Nodes.Table (N).Field2;
3140 return Elist_Id (Value);
3144 function Elist3 (N : Node_Id) return Elist_Id is
3145 pragma Assert (N <= Nodes.Last);
3146 Value : constant Union_Id := Nodes.Table (N).Field3;
3151 return Elist_Id (Value);
3155 function Elist4 (N : Node_Id) return Elist_Id is
3156 pragma Assert (N <= Nodes.Last);
3157 Value : constant Union_Id := Nodes.Table (N).Field4;
3162 return Elist_Id (Value);
3166 function Elist5 (N : Node_Id) return Elist_Id is
3167 pragma Assert (N <= Nodes.Last);
3168 Value : constant Union_Id := Nodes.Table (N).Field5;
3173 return Elist_Id (Value);
3177 function Elist8 (N : Node_Id) return Elist_Id is
3178 pragma Assert (Nkind (N) in N_Entity);
3179 Value : constant Union_Id := Nodes.Table (N + 1).Field8;
3184 return Elist_Id (Value);
3188 function Elist9 (N : Node_Id) return Elist_Id is
3189 pragma Assert (Nkind (N) in N_Entity);
3190 Value : constant Union_Id := Nodes.Table (N + 1).Field9;
3195 return Elist_Id (Value);
3199 function Elist10 (N : Node_Id) return Elist_Id is
3200 pragma Assert (Nkind (N) in N_Entity);
3201 Value : constant Union_Id := Nodes.Table (N + 1).Field10;
3206 return Elist_Id (Value);
3210 function Elist11 (N : Node_Id) return Elist_Id is
3211 pragma Assert (Nkind (N) in N_Entity);
3212 Value : constant Union_Id := Nodes.Table (N + 1).Field11;
3217 return Elist_Id (Value);
3221 function Elist13 (N : Node_Id) return Elist_Id is
3222 pragma Assert (Nkind (N) in N_Entity);
3223 Value : constant Union_Id := Nodes.Table (N + 2).Field6;
3228 return Elist_Id (Value);
3232 function Elist15 (N : Node_Id) return Elist_Id is
3233 pragma Assert (Nkind (N) in N_Entity);
3234 Value : constant Union_Id := Nodes.Table (N + 2).Field8;
3239 return Elist_Id (Value);
3243 function Elist16 (N : Node_Id) return Elist_Id is
3244 pragma Assert (Nkind (N) in N_Entity);
3245 Value : constant Union_Id := Nodes.Table (N + 2).Field9;
3250 return Elist_Id (Value);
3254 function Elist18 (N : Node_Id) return Elist_Id is
3255 pragma Assert (Nkind (N) in N_Entity);
3256 Value : constant Union_Id := Nodes.Table (N + 2).Field11;
3261 return Elist_Id (Value);
3265 function Elist21 (N : Node_Id) return Elist_Id is
3266 pragma Assert (Nkind (N) in N_Entity);
3267 Value : constant Union_Id := Nodes.Table (N + 3).Field8;
3272 return Elist_Id (Value);
3276 function Elist23 (N : Node_Id) return Elist_Id is
3277 pragma Assert (Nkind (N) in N_Entity);
3278 Value : constant Union_Id := Nodes.Table (N + 3).Field10;
3283 return Elist_Id (Value);
3287 function Elist24 (N : Node_Id) return Elist_Id is
3288 pragma Assert (Nkind (N) in N_Entity);
3289 Value : constant Union_Id := Nodes.Table (N + 4).Field6;
3294 return Elist_Id (Value);
3298 function Elist25 (N : Node_Id) return Elist_Id is
3299 pragma Assert (Nkind (N) in N_Entity);
3300 Value : constant Union_Id := Nodes.Table (N + 4).Field7;
3305 return Elist_Id (Value);
3309 function Elist26 (N : Node_Id) return Elist_Id is
3310 pragma Assert (Nkind (N) in N_Entity);
3311 Value : constant Union_Id := Nodes.Table (N + 4).Field8;
3316 return Elist_Id (Value);
3320 function Elist29 (N : Node_Id) return Elist_Id is
3321 pragma Assert (Nkind (N) in N_Entity);
3322 Value : constant Union_Id := Nodes.Table (N + 4).Field11;
3327 return Elist_Id (Value);
3331 function Elist36 (N : Node_Id) return Elist_Id is
3332 pragma Assert (Nkind (N) in N_Entity);
3333 Value : constant Union_Id := Nodes.Table (N + 6).Field6;
3338 return Elist_Id (Value);
3342 function Name1 (N : Node_Id) return Name_Id is
3344 pragma Assert (N <= Nodes.Last);
3345 return Name_Id (Nodes.Table (N).Field1);
3348 function Name2 (N : Node_Id) return Name_Id is
3350 pragma Assert (N <= Nodes.Last);
3351 return Name_Id (Nodes.Table (N).Field2);
3354 function Str3 (N : Node_Id) return String_Id is
3356 pragma Assert (N <= Nodes.Last);
3357 return String_Id (Nodes.Table (N).Field3);
3360 function Uint2 (N : Node_Id) return Uint is
3361 pragma Assert (N <= Nodes.Last);
3362 U : constant Union_Id := Nodes.Table (N).Field2;
3367 return From_Union (U);
3371 function Uint3 (N : Node_Id) return Uint is
3372 pragma Assert (N <= Nodes.Last);
3373 U : constant Union_Id := Nodes.Table (N).Field3;
3378 return From_Union (U);
3382 function Uint4 (N : Node_Id) return Uint is
3383 pragma Assert (N <= Nodes.Last);
3384 U : constant Union_Id := Nodes.Table (N).Field4;
3389 return From_Union (U);
3393 function Uint5 (N : Node_Id) return Uint is
3394 pragma Assert (N <= Nodes.Last);
3395 U : constant Union_Id := Nodes.Table (N).Field5;
3400 return From_Union (U);
3404 function Uint8 (N : Node_Id) return Uint is
3405 pragma Assert (Nkind (N) in N_Entity);
3406 U : constant Union_Id := Nodes.Table (N + 1).Field8;
3411 return From_Union (U);
3415 function Uint9 (N : Node_Id) return Uint is
3416 pragma Assert (Nkind (N) in N_Entity);
3417 U : constant Union_Id := Nodes.Table (N + 1).Field9;
3422 return From_Union (U);
3426 function Uint10 (N : Node_Id) return Uint is
3427 pragma Assert (Nkind (N) in N_Entity);
3428 U : constant Union_Id := Nodes.Table (N + 1).Field10;
3433 return From_Union (U);
3437 function Uint11 (N : Node_Id) return Uint is
3438 pragma Assert (Nkind (N) in N_Entity);
3439 U : constant Union_Id := Nodes.Table (N + 1).Field11;
3444 return From_Union (U);
3448 function Uint12 (N : Node_Id) return Uint is
3449 pragma Assert (Nkind (N) in N_Entity);
3450 U : constant Union_Id := Nodes.Table (N + 1).Field12;
3455 return From_Union (U);
3459 function Uint13 (N : Node_Id) return Uint is
3460 pragma Assert (Nkind (N) in N_Entity);
3461 U : constant Union_Id := Nodes.Table (N + 2).Field6;
3466 return From_Union (U);
3470 function Uint14 (N : Node_Id) return Uint is
3471 pragma Assert (Nkind (N) in N_Entity);
3472 U : constant Union_Id := Nodes.Table (N + 2).Field7;
3477 return From_Union (U);
3481 function Uint15 (N : Node_Id) return Uint is
3482 pragma Assert (Nkind (N) in N_Entity);
3483 U : constant Union_Id := Nodes.Table (N + 2).Field8;
3488 return From_Union (U);
3492 function Uint16 (N : Node_Id) return Uint is
3493 pragma Assert (Nkind (N) in N_Entity);
3494 U : constant Union_Id := Nodes.Table (N + 2).Field9;
3499 return From_Union (U);
3503 function Uint17 (N : Node_Id) return Uint is
3504 pragma Assert (Nkind (N) in N_Entity);
3505 U : constant Union_Id := Nodes.Table (N + 2).Field10;
3510 return From_Union (U);
3514 function Uint22 (N : Node_Id) return Uint is
3515 pragma Assert (Nkind (N) in N_Entity);
3516 U : constant Union_Id := Nodes.Table (N + 3).Field9;
3521 return From_Union (U);
3525 function Uint24 (N : Node_Id) return Uint is
3526 pragma Assert (Nkind (N) in N_Entity);
3527 U : constant Union_Id := Nodes.Table (N + 4).Field6;
3532 return From_Union (U);
3536 function Ureal3 (N : Node_Id) return Ureal is
3538 pragma Assert (N <= Nodes.Last);
3539 return From_Union (Nodes.Table (N).Field3);
3542 function Ureal18 (N : Node_Id) return Ureal is
3544 pragma Assert (Nkind (N) in N_Entity);
3545 return From_Union (Nodes.Table (N + 2).Field11);
3548 function Ureal21 (N : Node_Id) return Ureal is
3550 pragma Assert (Nkind (N) in N_Entity);
3551 return From_Union (Nodes.Table (N + 3).Field8);
3554 function Flag0 (N : Node_Id) return Boolean is
3556 pragma Assert (N <= Nodes.Last);
3557 return Flags.Table (N).Flag0;
3560 function Flag1 (N : Node_Id) return Boolean is
3562 pragma Assert (N <= Nodes.Last);
3563 return Flags.Table (N).Flag1;
3566 function Flag2 (N : Node_Id) return Boolean is
3568 pragma Assert (N <= Nodes.Last);
3569 return Flags.Table (N).Flag2;
3572 function Flag3 (N : Node_Id) return Boolean is
3574 pragma Assert (N <= Nodes.Last);
3575 return Flags.Table (N).Flag3;
3578 function Flag4 (N : Node_Id) return Boolean is
3580 pragma Assert (N <= Nodes.Last);
3581 return Nodes.Table (N).Flag4;
3584 function Flag5 (N : Node_Id) return Boolean is
3586 pragma Assert (N <= Nodes.Last);
3587 return Nodes.Table (N).Flag5;
3590 function Flag6 (N : Node_Id) return Boolean is
3592 pragma Assert (N <= Nodes.Last);
3593 return Nodes.Table (N).Flag6;
3596 function Flag7 (N : Node_Id) return Boolean is
3598 pragma Assert (N <= Nodes.Last);
3599 return Nodes.Table (N).Flag7;
3602 function Flag8 (N : Node_Id) return Boolean is
3604 pragma Assert (N <= Nodes.Last);
3605 return Nodes.Table (N).Flag8;
3608 function Flag9 (N : Node_Id) return Boolean is
3610 pragma Assert (N <= Nodes.Last);
3611 return Nodes.Table (N).Flag9;
3614 function Flag10 (N : Node_Id) return Boolean is
3616 pragma Assert (N <= Nodes.Last);
3617 return Nodes.Table (N).Flag10;
3620 function Flag11 (N : Node_Id) return Boolean is
3622 pragma Assert (N <= Nodes.Last);
3623 return Nodes.Table (N).Flag11;
3626 function Flag12 (N : Node_Id) return Boolean is
3628 pragma Assert (N <= Nodes.Last);
3629 return Nodes.Table (N).Flag12;
3632 function Flag13 (N : Node_Id) return Boolean is
3634 pragma Assert (N <= Nodes.Last);
3635 return Nodes.Table (N).Flag13;
3638 function Flag14 (N : Node_Id) return Boolean is
3640 pragma Assert (N <= Nodes.Last);
3641 return Nodes.Table (N).Flag14;
3644 function Flag15 (N : Node_Id) return Boolean is
3646 pragma Assert (N <= Nodes.Last);
3647 return Nodes.Table (N).Flag15;
3650 function Flag16 (N : Node_Id) return Boolean is
3652 pragma Assert (N <= Nodes.Last);
3653 return Nodes.Table (N).Flag16;
3656 function Flag17 (N : Node_Id) return Boolean is
3658 pragma Assert (N <= Nodes.Last);
3659 return Nodes.Table (N).Flag17;
3662 function Flag18 (N : Node_Id) return Boolean is
3664 pragma Assert (N <= Nodes.Last);
3665 return Nodes.Table (N).Flag18;
3668 function Flag19 (N : Node_Id) return Boolean is
3670 pragma Assert (Nkind (N) in N_Entity);
3671 return Nodes.Table (N + 1).In_List;
3674 function Flag20 (N : Node_Id) return Boolean is
3676 pragma Assert (Nkind (N) in N_Entity);
3677 return Nodes.Table (N + 1).Has_Aspects;
3680 function Flag21 (N : Node_Id) return Boolean is
3682 pragma Assert (Nkind (N) in N_Entity);
3683 return Nodes.Table (N + 1).Rewrite_Ins;
3686 function Flag22 (N : Node_Id) return Boolean is
3688 pragma Assert (Nkind (N) in N_Entity);
3689 return Nodes.Table (N + 1).Analyzed;
3692 function Flag23 (N : Node_Id) return Boolean is
3694 pragma Assert (Nkind (N) in N_Entity);
3695 return Nodes.Table (N + 1).Comes_From_Source;
3698 function Flag24 (N : Node_Id) return Boolean is
3700 pragma Assert (Nkind (N) in N_Entity);
3701 return Nodes.Table (N + 1).Error_Posted;
3704 function Flag25 (N : Node_Id) return Boolean is
3706 pragma Assert (Nkind (N) in N_Entity);
3707 return Nodes.Table (N + 1).Flag4;
3710 function Flag26 (N : Node_Id) return Boolean is
3712 pragma Assert (Nkind (N) in N_Entity);
3713 return Nodes.Table (N + 1).Flag5;
3716 function Flag27 (N : Node_Id) return Boolean is
3718 pragma Assert (Nkind (N) in N_Entity);
3719 return Nodes.Table (N + 1).Flag6;
3722 function Flag28 (N : Node_Id) return Boolean is
3724 pragma Assert (Nkind (N) in N_Entity);
3725 return Nodes.Table (N + 1).Flag7;
3728 function Flag29 (N : Node_Id) return Boolean is
3730 pragma Assert (Nkind (N) in N_Entity);
3731 return Nodes.Table (N + 1).Flag8;
3734 function Flag30 (N : Node_Id) return Boolean is
3736 pragma Assert (Nkind (N) in N_Entity);
3737 return Nodes.Table (N + 1).Flag9;
3740 function Flag31 (N : Node_Id) return Boolean is
3742 pragma Assert (Nkind (N) in N_Entity);
3743 return Nodes.Table (N + 1).Flag10;
3746 function Flag32 (N : Node_Id) return Boolean is
3748 pragma Assert (Nkind (N) in N_Entity);
3749 return Nodes.Table (N + 1).Flag11;
3752 function Flag33 (N : Node_Id) return Boolean is
3754 pragma Assert (Nkind (N) in N_Entity);
3755 return Nodes.Table (N + 1).Flag12;
3758 function Flag34 (N : Node_Id) return Boolean is
3760 pragma Assert (Nkind (N) in N_Entity);
3761 return Nodes.Table (N + 1).Flag13;
3764 function Flag35 (N : Node_Id) return Boolean is
3766 pragma Assert (Nkind (N) in N_Entity);
3767 return Nodes.Table (N + 1).Flag14;
3770 function Flag36 (N : Node_Id) return Boolean is
3772 pragma Assert (Nkind (N) in N_Entity);
3773 return Nodes.Table (N + 1).Flag15;
3776 function Flag37 (N : Node_Id) return Boolean is
3778 pragma Assert (Nkind (N) in N_Entity);
3779 return Nodes.Table (N + 1).Flag16;
3782 function Flag38 (N : Node_Id) return Boolean is
3784 pragma Assert (Nkind (N) in N_Entity);
3785 return Nodes.Table (N + 1).Flag17;
3788 function Flag39 (N : Node_Id) return Boolean is
3790 pragma Assert (Nkind (N) in N_Entity);
3791 return Nodes.Table (N + 1).Flag18;
3794 function Flag40 (N : Node_Id) return Boolean is
3796 pragma Assert (Nkind (N) in N_Entity);
3797 return Nodes.Table (N + 2).In_List;
3800 function Flag41 (N : Node_Id) return Boolean is
3802 pragma Assert (Nkind (N) in N_Entity);
3803 return Nodes.Table (N + 2).Has_Aspects;
3806 function Flag42 (N : Node_Id) return Boolean is
3808 pragma Assert (Nkind (N) in N_Entity);
3809 return Nodes.Table (N + 2).Rewrite_Ins;
3812 function Flag43 (N : Node_Id) return Boolean is
3814 pragma Assert (Nkind (N) in N_Entity);
3815 return Nodes.Table (N + 2).Analyzed;
3818 function Flag44 (N : Node_Id) return Boolean is
3820 pragma Assert (Nkind (N) in N_Entity);
3821 return Nodes.Table (N + 2).Comes_From_Source;
3824 function Flag45 (N : Node_Id) return Boolean is
3826 pragma Assert (Nkind (N) in N_Entity);
3827 return Nodes.Table (N + 2).Error_Posted;
3830 function Flag46 (N : Node_Id) return Boolean is
3832 pragma Assert (Nkind (N) in N_Entity);
3833 return Nodes.Table (N + 2).Flag4;
3836 function Flag47 (N : Node_Id) return Boolean is
3838 pragma Assert (Nkind (N) in N_Entity);
3839 return Nodes.Table (N + 2).Flag5;
3842 function Flag48 (N : Node_Id) return Boolean is
3844 pragma Assert (Nkind (N) in N_Entity);
3845 return Nodes.Table (N + 2).Flag6;
3848 function Flag49 (N : Node_Id) return Boolean is
3850 pragma Assert (Nkind (N) in N_Entity);
3851 return Nodes.Table (N + 2).Flag7;
3854 function Flag50 (N : Node_Id) return Boolean is
3856 pragma Assert (Nkind (N) in N_Entity);
3857 return Nodes.Table (N + 2).Flag8;
3860 function Flag51 (N : Node_Id) return Boolean is
3862 pragma Assert (Nkind (N) in N_Entity);
3863 return Nodes.Table (N + 2).Flag9;
3866 function Flag52 (N : Node_Id) return Boolean is
3868 pragma Assert (Nkind (N) in N_Entity);
3869 return Nodes.Table (N + 2).Flag10;
3872 function Flag53 (N : Node_Id) return Boolean is
3874 pragma Assert (Nkind (N) in N_Entity);
3875 return Nodes.Table (N + 2).Flag11;
3878 function Flag54 (N : Node_Id) return Boolean is
3880 pragma Assert (Nkind (N) in N_Entity);
3881 return Nodes.Table (N + 2).Flag12;
3884 function Flag55 (N : Node_Id) return Boolean is
3886 pragma Assert (Nkind (N) in N_Entity);
3887 return Nodes.Table (N + 2).Flag13;
3890 function Flag56 (N : Node_Id) return Boolean is
3892 pragma Assert (Nkind (N) in N_Entity);
3893 return Nodes.Table (N + 2).Flag14;
3896 function Flag57 (N : Node_Id) return Boolean is
3898 pragma Assert (Nkind (N) in N_Entity);
3899 return Nodes.Table (N + 2).Flag15;
3902 function Flag58 (N : Node_Id) return Boolean is
3904 pragma Assert (Nkind (N) in N_Entity);
3905 return Nodes.Table (N + 2).Flag16;
3908 function Flag59 (N : Node_Id) return Boolean is
3910 pragma Assert (Nkind (N) in N_Entity);
3911 return Nodes.Table (N + 2).Flag17;
3914 function Flag60 (N : Node_Id) return Boolean is
3916 pragma Assert (Nkind (N) in N_Entity);
3917 return Nodes.Table (N + 2).Flag18;
3920 function Flag61 (N : Node_Id) return Boolean is
3922 pragma Assert (Nkind (N) in N_Entity);
3923 return Nodes.Table (N + 1).Pflag1;
3926 function Flag62 (N : Node_Id) return Boolean is
3928 pragma Assert (Nkind (N) in N_Entity);
3929 return Nodes.Table (N + 1).Pflag2;
3932 function Flag63 (N : Node_Id) return Boolean is
3934 pragma Assert (Nkind (N) in N_Entity);
3935 return Nodes.Table (N + 2).Pflag1;
3938 function Flag64 (N : Node_Id) return Boolean is
3940 pragma Assert (Nkind (N) in N_Entity);
3941 return Nodes.Table (N + 2).Pflag2;
3944 function Flag65 (N : Node_Id) return Boolean is
3946 pragma Assert (Nkind (N) in N_Entity);
3947 return To_Flag_Byte (Nodes.Table (N + 2).Nkind).Flag65;
3950 function Flag66 (N : Node_Id) return Boolean is
3952 pragma Assert (Nkind (N) in N_Entity);
3953 return To_Flag_Byte (Nodes.Table (N + 2).Nkind).Flag66;
3956 function Flag67 (N : Node_Id) return Boolean is
3958 pragma Assert (Nkind (N) in N_Entity);
3959 return To_Flag_Byte (Nodes.Table (N + 2).Nkind).Flag67;
3962 function Flag68 (N : Node_Id) return Boolean is
3964 pragma Assert (Nkind (N) in N_Entity);
3965 return To_Flag_Byte (Nodes.Table (N + 2).Nkind).Flag68;
3968 function Flag69 (N : Node_Id) return Boolean is
3970 pragma Assert (Nkind (N) in N_Entity);
3971 return To_Flag_Byte (Nodes.Table (N + 2).Nkind).Flag69;
3974 function Flag70 (N : Node_Id) return Boolean is
3976 pragma Assert (Nkind (N) in N_Entity);
3977 return To_Flag_Byte (Nodes.Table (N + 2).Nkind).Flag70;
3980 function Flag71 (N : Node_Id) return Boolean is
3982 pragma Assert (Nkind (N) in N_Entity);
3983 return To_Flag_Byte (Nodes.Table (N + 2).Nkind).Flag71;
3986 function Flag72 (N : Node_Id) return Boolean is
3988 pragma Assert (Nkind (N) in N_Entity);
3989 return To_Flag_Byte (Nodes.Table (N + 2).Nkind).Flag72;
3992 function Flag73 (N : Node_Id) return Boolean is
3994 pragma Assert (Nkind (N) in N_Entity);
3995 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag73;
3998 function Flag74 (N : Node_Id) return Boolean is
4000 pragma Assert (Nkind (N) in N_Entity);
4001 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag74;
4004 function Flag75 (N : Node_Id) return Boolean is
4006 pragma Assert (Nkind (N) in N_Entity);
4007 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag75;
4010 function Flag76 (N : Node_Id) return Boolean is
4012 pragma Assert (Nkind (N) in N_Entity);
4013 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag76;
4016 function Flag77 (N : Node_Id) return Boolean is
4018 pragma Assert (Nkind (N) in N_Entity);
4019 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag77;
4022 function Flag78 (N : Node_Id) return Boolean is
4024 pragma Assert (Nkind (N) in N_Entity);
4025 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag78;
4028 function Flag79 (N : Node_Id) return Boolean is
4030 pragma Assert (Nkind (N) in N_Entity);
4031 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag79;
4034 function Flag80 (N : Node_Id) return Boolean is
4036 pragma Assert (Nkind (N) in N_Entity);
4037 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag80;
4040 function Flag81 (N : Node_Id) return Boolean is
4042 pragma Assert (Nkind (N) in N_Entity);
4043 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag81;
4046 function Flag82 (N : Node_Id) return Boolean is
4048 pragma Assert (Nkind (N) in N_Entity);
4049 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag82;
4052 function Flag83 (N : Node_Id) return Boolean is
4054 pragma Assert (Nkind (N) in N_Entity);
4055 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag83;
4058 function Flag84 (N : Node_Id) return Boolean is
4060 pragma Assert (Nkind (N) in N_Entity);
4061 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag84;
4064 function Flag85 (N : Node_Id) return Boolean is
4066 pragma Assert (Nkind (N) in N_Entity);
4067 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag85;
4070 function Flag86 (N : Node_Id) return Boolean is
4072 pragma Assert (Nkind (N) in N_Entity);
4073 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag86;
4076 function Flag87 (N : Node_Id) return Boolean is
4078 pragma Assert (Nkind (N) in N_Entity);
4079 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag87;
4082 function Flag88 (N : Node_Id) return Boolean is
4084 pragma Assert (Nkind (N) in N_Entity);
4085 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag88;
4088 function Flag89 (N : Node_Id) return Boolean is
4090 pragma Assert (Nkind (N) in N_Entity);
4091 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag89;
4094 function Flag90 (N : Node_Id) return Boolean is
4096 pragma Assert (Nkind (N) in N_Entity);
4097 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag90;
4100 function Flag91 (N : Node_Id) return Boolean is
4102 pragma Assert (Nkind (N) in N_Entity);
4103 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag91;
4106 function Flag92 (N : Node_Id) return Boolean is
4108 pragma Assert (Nkind (N) in N_Entity);
4109 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag92;
4112 function Flag93 (N : Node_Id) return Boolean is
4114 pragma Assert (Nkind (N) in N_Entity);
4115 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag93;
4118 function Flag94 (N : Node_Id) return Boolean is
4120 pragma Assert (Nkind (N) in N_Entity);
4121 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag94;
4124 function Flag95 (N : Node_Id) return Boolean is
4126 pragma Assert (Nkind (N) in N_Entity);
4127 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag95;
4130 function Flag96 (N : Node_Id) return Boolean is
4132 pragma Assert (Nkind (N) in N_Entity);
4133 return To_Flag_Word (Nodes.Table (N + 2).Field12).Flag96;
4136 function Flag97 (N : Node_Id) return Boolean is
4138 pragma Assert (Nkind (N) in N_Entity);
4139 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag97;
4142 function Flag98 (N : Node_Id) return Boolean is
4144 pragma Assert (Nkind (N) in N_Entity);
4145 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag98;
4148 function Flag99 (N : Node_Id) return Boolean is
4150 pragma Assert (Nkind (N) in N_Entity);
4151 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag99;
4154 function Flag100 (N : Node_Id) return Boolean is
4156 pragma Assert (Nkind (N) in N_Entity);
4157 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag100;
4160 function Flag101 (N : Node_Id) return Boolean is
4162 pragma Assert (Nkind (N) in N_Entity);
4163 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag101;
4166 function Flag102 (N : Node_Id) return Boolean is
4168 pragma Assert (Nkind (N) in N_Entity);
4169 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag102;
4172 function Flag103 (N : Node_Id) return Boolean is
4174 pragma Assert (Nkind (N) in N_Entity);
4175 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag103;
4178 function Flag104 (N : Node_Id) return Boolean is
4180 pragma Assert (Nkind (N) in N_Entity);
4181 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag104;
4184 function Flag105 (N : Node_Id) return Boolean is
4186 pragma Assert (Nkind (N) in N_Entity);
4187 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag105;
4190 function Flag106 (N : Node_Id) return Boolean is
4192 pragma Assert (Nkind (N) in N_Entity);
4193 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag106;
4196 function Flag107 (N : Node_Id) return Boolean is
4198 pragma Assert (Nkind (N) in N_Entity);
4199 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag107;
4202 function Flag108 (N : Node_Id) return Boolean is
4204 pragma Assert (Nkind (N) in N_Entity);
4205 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag108;
4208 function Flag109 (N : Node_Id) return Boolean is
4210 pragma Assert (Nkind (N) in N_Entity);
4211 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag109;
4214 function Flag110 (N : Node_Id) return Boolean is
4216 pragma Assert (Nkind (N) in N_Entity);
4217 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag110;
4220 function Flag111 (N : Node_Id) return Boolean is
4222 pragma Assert (Nkind (N) in N_Entity);
4223 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag111;
4226 function Flag112 (N : Node_Id) return Boolean is
4228 pragma Assert (Nkind (N) in N_Entity);
4229 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag112;
4232 function Flag113 (N : Node_Id) return Boolean is
4234 pragma Assert (Nkind (N) in N_Entity);
4235 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag113;
4238 function Flag114 (N : Node_Id) return Boolean is
4240 pragma Assert (Nkind (N) in N_Entity);
4241 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag114;
4244 function Flag115 (N : Node_Id) return Boolean is
4246 pragma Assert (Nkind (N) in N_Entity);
4247 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag115;
4250 function Flag116 (N : Node_Id) return Boolean is
4252 pragma Assert (Nkind (N) in N_Entity);
4253 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag116;
4256 function Flag117 (N : Node_Id) return Boolean is
4258 pragma Assert (Nkind (N) in N_Entity);
4259 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag117;
4262 function Flag118 (N : Node_Id) return Boolean is
4264 pragma Assert (Nkind (N) in N_Entity);
4265 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag118;
4268 function Flag119 (N : Node_Id) return Boolean is
4270 pragma Assert (Nkind (N) in N_Entity);
4271 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag119;
4274 function Flag120 (N : Node_Id) return Boolean is
4276 pragma Assert (Nkind (N) in N_Entity);
4277 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag120;
4280 function Flag121 (N : Node_Id) return Boolean is
4282 pragma Assert (Nkind (N) in N_Entity);
4283 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag121;
4286 function Flag122 (N : Node_Id) return Boolean is
4288 pragma Assert (Nkind (N) in N_Entity);
4289 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag122;
4292 function Flag123 (N : Node_Id) return Boolean is
4294 pragma Assert (Nkind (N) in N_Entity);
4295 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag123;
4298 function Flag124 (N : Node_Id) return Boolean is
4300 pragma Assert (Nkind (N) in N_Entity);
4301 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag124;
4304 function Flag125 (N : Node_Id) return Boolean is
4306 pragma Assert (Nkind (N) in N_Entity);
4307 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag125;
4310 function Flag126 (N : Node_Id) return Boolean is
4312 pragma Assert (Nkind (N) in N_Entity);
4313 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag126;
4316 function Flag127 (N : Node_Id) return Boolean is
4318 pragma Assert (Nkind (N) in N_Entity);
4319 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag127;
4322 function Flag128 (N : Node_Id) return Boolean is
4324 pragma Assert (Nkind (N) in N_Entity);
4325 return To_Flag_Word2 (Nodes.Table (N + 3).Field12).Flag128;
4328 function Flag129 (N : Node_Id) return Boolean is
4330 pragma Assert (Nkind (N) in N_Entity);
4331 return Nodes.Table (N + 3).In_List;
4334 function Flag130 (N : Node_Id) return Boolean is
4336 pragma Assert (Nkind (N) in N_Entity);
4337 return Nodes.Table (N + 3).Has_Aspects;
4340 function Flag131 (N : Node_Id) return Boolean is
4342 pragma Assert (Nkind (N) in N_Entity);
4343 return Nodes.Table (N + 3).Rewrite_Ins;
4346 function Flag132 (N : Node_Id) return Boolean is
4348 pragma Assert (Nkind (N) in N_Entity);
4349 return Nodes.Table (N + 3).Analyzed;
4352 function Flag133 (N : Node_Id) return Boolean is
4354 pragma Assert (Nkind (N) in N_Entity);
4355 return Nodes.Table (N + 3).Comes_From_Source;
4358 function Flag134 (N : Node_Id) return Boolean is
4360 pragma Assert (Nkind (N) in N_Entity);
4361 return Nodes.Table (N + 3).Error_Posted;
4364 function Flag135 (N : Node_Id) return Boolean is
4366 pragma Assert (Nkind (N) in N_Entity);
4367 return Nodes.Table (N + 3).Flag4;
4370 function Flag136 (N : Node_Id) return Boolean is
4372 pragma Assert (Nkind (N) in N_Entity);
4373 return Nodes.Table (N + 3).Flag5;
4376 function Flag137 (N : Node_Id) return Boolean is
4378 pragma Assert (Nkind (N) in N_Entity);
4379 return Nodes.Table (N + 3).Flag6;
4382 function Flag138 (N : Node_Id) return Boolean is
4384 pragma Assert (Nkind (N) in N_Entity);
4385 return Nodes.Table (N + 3).Flag7;
4388 function Flag139 (N : Node_Id) return Boolean is
4390 pragma Assert (Nkind (N) in N_Entity);
4391 return Nodes.Table (N + 3).Flag8;
4394 function Flag140 (N : Node_Id) return Boolean is
4396 pragma Assert (Nkind (N) in N_Entity);
4397 return Nodes.Table (N + 3).Flag9;
4400 function Flag141 (N : Node_Id) return Boolean is
4402 pragma Assert (Nkind (N) in N_Entity);
4403 return Nodes.Table (N + 3).Flag10;
4406 function Flag142 (N : Node_Id) return Boolean is
4408 pragma Assert (Nkind (N) in N_Entity);
4409 return Nodes.Table (N + 3).Flag11;
4412 function Flag143 (N : Node_Id) return Boolean is
4414 pragma Assert (Nkind (N) in N_Entity);
4415 return Nodes.Table (N + 3).Flag12;
4418 function Flag144 (N : Node_Id) return Boolean is
4420 pragma Assert (Nkind (N) in N_Entity);
4421 return Nodes.Table (N + 3).Flag13;
4424 function Flag145 (N : Node_Id) return Boolean is
4426 pragma Assert (Nkind (N) in N_Entity);
4427 return Nodes.Table (N + 3).Flag14;
4430 function Flag146 (N : Node_Id) return Boolean is
4432 pragma Assert (Nkind (N) in N_Entity);
4433 return Nodes.Table (N + 3).Flag15;
4436 function Flag147 (N : Node_Id) return Boolean is
4438 pragma Assert (Nkind (N) in N_Entity);
4439 return Nodes.Table (N + 3).Flag16;
4442 function Flag148 (N : Node_Id) return Boolean is
4444 pragma Assert (Nkind (N) in N_Entity);
4445 return Nodes.Table (N + 3).Flag17;
4448 function Flag149 (N : Node_Id) return Boolean is
4450 pragma Assert (Nkind (N) in N_Entity);
4451 return Nodes.Table (N + 3).Flag18;
4454 function Flag150 (N : Node_Id) return Boolean is
4456 pragma Assert (Nkind (N) in N_Entity);
4457 return Nodes.Table (N + 3).Pflag1;
4460 function Flag151 (N : Node_Id) return Boolean is
4462 pragma Assert (Nkind (N) in N_Entity);
4463 return Nodes.Table (N + 3).Pflag2;
4466 function Flag152 (N : Node_Id) return Boolean is
4468 pragma Assert (Nkind (N) in N_Entity);
4469 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag152;
4472 function Flag153 (N : Node_Id) return Boolean is
4474 pragma Assert (Nkind (N) in N_Entity);
4475 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag153;
4478 function Flag154 (N : Node_Id) return Boolean is
4480 pragma Assert (Nkind (N) in N_Entity);
4481 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag154;
4484 function Flag155 (N : Node_Id) return Boolean is
4486 pragma Assert (Nkind (N) in N_Entity);
4487 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag155;
4490 function Flag156 (N : Node_Id) return Boolean is
4492 pragma Assert (Nkind (N) in N_Entity);
4493 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag156;
4496 function Flag157 (N : Node_Id) return Boolean is
4498 pragma Assert (Nkind (N) in N_Entity);
4499 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag157;
4502 function Flag158 (N : Node_Id) return Boolean is
4504 pragma Assert (Nkind (N) in N_Entity);
4505 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag158;
4508 function Flag159 (N : Node_Id) return Boolean is
4510 pragma Assert (Nkind (N) in N_Entity);
4511 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag159;
4514 function Flag160 (N : Node_Id) return Boolean is
4516 pragma Assert (Nkind (N) in N_Entity);
4517 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag160;
4520 function Flag161 (N : Node_Id) return Boolean is
4522 pragma Assert (Nkind (N) in N_Entity);
4523 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag161;
4526 function Flag162 (N : Node_Id) return Boolean is
4528 pragma Assert (Nkind (N) in N_Entity);
4529 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag162;
4532 function Flag163 (N : Node_Id) return Boolean is
4534 pragma Assert (Nkind (N) in N_Entity);
4535 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag163;
4538 function Flag164 (N : Node_Id) return Boolean is
4540 pragma Assert (Nkind (N) in N_Entity);
4541 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag164;
4544 function Flag165 (N : Node_Id) return Boolean is
4546 pragma Assert (Nkind (N) in N_Entity);
4547 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag165;
4550 function Flag166 (N : Node_Id) return Boolean is
4552 pragma Assert (Nkind (N) in N_Entity);
4553 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag166;
4556 function Flag167 (N : Node_Id) return Boolean is
4558 pragma Assert (Nkind (N) in N_Entity);
4559 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag167;
4562 function Flag168 (N : Node_Id) return Boolean is
4564 pragma Assert (Nkind (N) in N_Entity);
4565 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag168;
4568 function Flag169 (N : Node_Id) return Boolean is
4570 pragma Assert (Nkind (N) in N_Entity);
4571 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag169;
4574 function Flag170 (N : Node_Id) return Boolean is
4576 pragma Assert (Nkind (N) in N_Entity);
4577 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag170;
4580 function Flag171 (N : Node_Id) return Boolean is
4582 pragma Assert (Nkind (N) in N_Entity);
4583 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag171;
4586 function Flag172 (N : Node_Id) return Boolean is
4588 pragma Assert (Nkind (N) in N_Entity);
4589 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag172;
4592 function Flag173 (N : Node_Id) return Boolean is
4594 pragma Assert (Nkind (N) in N_Entity);
4595 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag173;
4598 function Flag174 (N : Node_Id) return Boolean is
4600 pragma Assert (Nkind (N) in N_Entity);
4601 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag174;
4604 function Flag175 (N : Node_Id) return Boolean is
4606 pragma Assert (Nkind (N) in N_Entity);
4607 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag175;
4610 function Flag176 (N : Node_Id) return Boolean is
4612 pragma Assert (Nkind (N) in N_Entity);
4613 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag176;
4616 function Flag177 (N : Node_Id) return Boolean is
4618 pragma Assert (Nkind (N) in N_Entity);
4619 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag177;
4622 function Flag178 (N : Node_Id) return Boolean is
4624 pragma Assert (Nkind (N) in N_Entity);
4625 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag178;
4628 function Flag179 (N : Node_Id) return Boolean is
4630 pragma Assert (Nkind (N) in N_Entity);
4631 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag179;
4634 function Flag180 (N : Node_Id) return Boolean is
4636 pragma Assert (Nkind (N) in N_Entity);
4637 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag180;
4640 function Flag181 (N : Node_Id) return Boolean is
4642 pragma Assert (Nkind (N) in N_Entity);
4643 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag181;
4646 function Flag182 (N : Node_Id) return Boolean is
4648 pragma Assert (Nkind (N) in N_Entity);
4649 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag182;
4652 function Flag183 (N : Node_Id) return Boolean is
4654 pragma Assert (Nkind (N) in N_Entity);
4655 return To_Flag_Word3 (Nodes.Table (N + 3).Field11).Flag183;
4658 function Flag184 (N : Node_Id) return Boolean is
4660 pragma Assert (Nkind (N) in N_Entity);
4661 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag184;
4664 function Flag185 (N : Node_Id) return Boolean is
4666 pragma Assert (Nkind (N) in N_Entity);
4667 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag185;
4670 function Flag186 (N : Node_Id) return Boolean is
4672 pragma Assert (Nkind (N) in N_Entity);
4673 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag186;
4676 function Flag187 (N : Node_Id) return Boolean is
4678 pragma Assert (Nkind (N) in N_Entity);
4679 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag187;
4682 function Flag188 (N : Node_Id) return Boolean is
4684 pragma Assert (Nkind (N) in N_Entity);
4685 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag188;
4688 function Flag189 (N : Node_Id) return Boolean is
4690 pragma Assert (Nkind (N) in N_Entity);
4691 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag189;
4694 function Flag190 (N : Node_Id) return Boolean is
4696 pragma Assert (Nkind (N) in N_Entity);
4697 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag190;
4700 function Flag191 (N : Node_Id) return Boolean is
4702 pragma Assert (Nkind (N) in N_Entity);
4703 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag191;
4706 function Flag192 (N : Node_Id) return Boolean is
4708 pragma Assert (Nkind (N) in N_Entity);
4709 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag192;
4712 function Flag193 (N : Node_Id) return Boolean is
4714 pragma Assert (Nkind (N) in N_Entity);
4715 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag193;
4718 function Flag194 (N : Node_Id) return Boolean is
4720 pragma Assert (Nkind (N) in N_Entity);
4721 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag194;
4724 function Flag195 (N : Node_Id) return Boolean is
4726 pragma Assert (Nkind (N) in N_Entity);
4727 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag195;
4730 function Flag196 (N : Node_Id) return Boolean is
4732 pragma Assert (Nkind (N) in N_Entity);
4733 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag196;
4736 function Flag197 (N : Node_Id) return Boolean is
4738 pragma Assert (Nkind (N) in N_Entity);
4739 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag197;
4742 function Flag198 (N : Node_Id) return Boolean is
4744 pragma Assert (Nkind (N) in N_Entity);
4745 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag198;
4748 function Flag199 (N : Node_Id) return Boolean is
4750 pragma Assert (Nkind (N) in N_Entity);
4751 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag199;
4754 function Flag200 (N : Node_Id) return Boolean is
4756 pragma Assert (Nkind (N) in N_Entity);
4757 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag200;
4760 function Flag201 (N : Node_Id) return Boolean is
4762 pragma Assert (Nkind (N) in N_Entity);
4763 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag201;
4766 function Flag202 (N : Node_Id) return Boolean is
4768 pragma Assert (Nkind (N) in N_Entity);
4769 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag202;
4772 function Flag203 (N : Node_Id) return Boolean is
4774 pragma Assert (Nkind (N) in N_Entity);
4775 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag203;
4778 function Flag204 (N : Node_Id) return Boolean is
4780 pragma Assert (Nkind (N) in N_Entity);
4781 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag204;
4784 function Flag205 (N : Node_Id) return Boolean is
4786 pragma Assert (Nkind (N) in N_Entity);
4787 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag205;
4790 function Flag206 (N : Node_Id) return Boolean is
4792 pragma Assert (Nkind (N) in N_Entity);
4793 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag206;
4796 function Flag207 (N : Node_Id) return Boolean is
4798 pragma Assert (Nkind (N) in N_Entity);
4799 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag207;
4802 function Flag208 (N : Node_Id) return Boolean is
4804 pragma Assert (Nkind (N) in N_Entity);
4805 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag208;
4808 function Flag209 (N : Node_Id) return Boolean is
4810 pragma Assert (Nkind (N) in N_Entity);
4811 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag209;
4814 function Flag210 (N : Node_Id) return Boolean is
4816 pragma Assert (Nkind (N) in N_Entity);
4817 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag210;
4820 function Flag211 (N : Node_Id) return Boolean is
4822 pragma Assert (Nkind (N) in N_Entity);
4823 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag211;
4826 function Flag212 (N : Node_Id) return Boolean is
4828 pragma Assert (Nkind (N) in N_Entity);
4829 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag212;
4832 function Flag213 (N : Node_Id) return Boolean is
4834 pragma Assert (Nkind (N) in N_Entity);
4835 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag213;
4838 function Flag214 (N : Node_Id) return Boolean is
4840 pragma Assert (Nkind (N) in N_Entity);
4841 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag214;
4844 function Flag215 (N : Node_Id) return Boolean is
4846 pragma Assert (Nkind (N) in N_Entity);
4847 return To_Flag_Word4 (Nodes.Table (N + 4).Field12).Flag215;
4850 function Flag216 (N : Node_Id) return Boolean is
4852 pragma Assert (Nkind (N) in N_Entity);
4853 return Nodes.Table (N + 4).In_List;
4856 function Flag217 (N : Node_Id) return Boolean is
4858 pragma Assert (Nkind (N) in N_Entity);
4859 return Nodes.Table (N + 4).Has_Aspects;
4862 function Flag218 (N : Node_Id) return Boolean is
4864 pragma Assert (Nkind (N) in N_Entity);
4865 return Nodes.Table (N + 4).Rewrite_Ins;
4868 function Flag219 (N : Node_Id) return Boolean is
4870 pragma Assert (Nkind (N) in N_Entity);
4871 return Nodes.Table (N + 4).Analyzed;
4874 function Flag220 (N : Node_Id) return Boolean is
4876 pragma Assert (Nkind (N) in N_Entity);
4877 return Nodes.Table (N + 4).Comes_From_Source;
4880 function Flag221 (N : Node_Id) return Boolean is
4882 pragma Assert (Nkind (N) in N_Entity);
4883 return Nodes.Table (N + 4).Error_Posted;
4886 function Flag222 (N : Node_Id) return Boolean is
4888 pragma Assert (Nkind (N) in N_Entity);
4889 return Nodes.Table (N + 4).Flag4;
4892 function Flag223 (N : Node_Id) return Boolean is
4894 pragma Assert (Nkind (N) in N_Entity);
4895 return Nodes.Table (N + 4).Flag5;
4898 function Flag224 (N : Node_Id) return Boolean is
4900 pragma Assert (Nkind (N) in N_Entity);
4901 return Nodes.Table (N + 4).Flag6;
4904 function Flag225 (N : Node_Id) return Boolean is
4906 pragma Assert (Nkind (N) in N_Entity);
4907 return Nodes.Table (N + 4).Flag7;
4910 function Flag226 (N : Node_Id) return Boolean is
4912 pragma Assert (Nkind (N) in N_Entity);
4913 return Nodes.Table (N + 4).Flag8;
4916 function Flag227 (N : Node_Id) return Boolean is
4918 pragma Assert (Nkind (N) in N_Entity);
4919 return Nodes.Table (N + 4).Flag9;
4922 function Flag228 (N : Node_Id) return Boolean is
4924 pragma Assert (Nkind (N) in N_Entity);
4925 return Nodes.Table (N + 4).Flag10;
4928 function Flag229 (N : Node_Id) return Boolean is
4930 pragma Assert (Nkind (N) in N_Entity);
4931 return Nodes.Table (N + 4).Flag11;
4934 function Flag230 (N : Node_Id) return Boolean is
4936 pragma Assert (Nkind (N) in N_Entity);
4937 return Nodes.Table (N + 4).Flag12;
4940 function Flag231 (N : Node_Id) return Boolean is
4942 pragma Assert (Nkind (N) in N_Entity);
4943 return Nodes.Table (N + 4).Flag13;
4946 function Flag232 (N : Node_Id) return Boolean is
4948 pragma Assert (Nkind (N) in N_Entity);
4949 return Nodes.Table (N + 4).Flag14;
4952 function Flag233 (N : Node_Id) return Boolean is
4954 pragma Assert (Nkind (N) in N_Entity);
4955 return Nodes.Table (N + 4).Flag15;
4958 function Flag234 (N : Node_Id) return Boolean is
4960 pragma Assert (Nkind (N) in N_Entity);
4961 return Nodes.Table (N + 4).Flag16;
4964 function Flag235 (N : Node_Id) return Boolean is
4966 pragma Assert (Nkind (N) in N_Entity);
4967 return Nodes.Table (N + 4).Flag17;
4970 function Flag236 (N : Node_Id) return Boolean is
4972 pragma Assert (Nkind (N) in N_Entity);
4973 return Nodes.Table (N + 4).Flag18;
4976 function Flag237 (N : Node_Id) return Boolean is
4978 pragma Assert (Nkind (N) in N_Entity);
4979 return Nodes.Table (N + 4).Pflag1;
4982 function Flag238 (N : Node_Id) return Boolean is
4984 pragma Assert (Nkind (N) in N_Entity);
4985 return Nodes.Table (N + 4).Pflag2;
4988 function Flag239 (N : Node_Id) return Boolean is
4990 pragma Assert (Nkind (N) in N_Entity);
4991 return To_Flag_Byte2 (Nodes.Table (N + 3).Nkind).Flag239;
4994 function Flag240 (N : Node_Id) return Boolean is
4996 pragma Assert (Nkind (N) in N_Entity);
4997 return To_Flag_Byte2 (Nodes.Table (N + 3).Nkind).Flag240;
5000 function Flag241 (N : Node_Id) return Boolean is
5002 pragma Assert (Nkind (N) in N_Entity);
5003 return To_Flag_Byte2 (Nodes.Table (N + 3).Nkind).Flag241;
5006 function Flag242 (N : Node_Id) return Boolean is
5008 pragma Assert (Nkind (N) in N_Entity);
5009 return To_Flag_Byte2 (Nodes.Table (N + 3).Nkind).Flag242;
5012 function Flag243 (N : Node_Id) return Boolean is
5014 pragma Assert (Nkind (N) in N_Entity);
5015 return To_Flag_Byte2 (Nodes.Table (N + 3).Nkind).Flag243;
5018 function Flag244 (N : Node_Id) return Boolean is
5020 pragma Assert (Nkind (N) in N_Entity);
5021 return To_Flag_Byte2 (Nodes.Table (N + 3).Nkind).Flag244;
5024 function Flag245 (N : Node_Id) return Boolean is
5026 pragma Assert (Nkind (N) in N_Entity);
5027 return To_Flag_Byte2 (Nodes.Table (N + 3).Nkind).Flag245;
5030 function Flag246 (N : Node_Id) return Boolean is
5032 pragma Assert (Nkind (N) in N_Entity);
5033 return To_Flag_Byte2 (Nodes.Table (N + 3).Nkind).Flag246;
5036 function Flag247 (N : Node_Id) return Boolean is
5038 pragma Assert (Nkind (N) in N_Entity);
5039 return To_Flag_Byte3 (Nodes.Table (N + 4).Nkind).Flag247;
5042 function Flag248 (N : Node_Id) return Boolean is
5044 pragma Assert (Nkind (N) in N_Entity);
5045 return To_Flag_Byte3 (Nodes.Table (N + 4).Nkind).Flag248;
5048 function Flag249 (N : Node_Id) return Boolean is
5050 pragma Assert (Nkind (N) in N_Entity);
5051 return To_Flag_Byte3 (Nodes.Table (N + 4).Nkind).Flag249;
5054 function Flag250 (N : Node_Id) return Boolean is
5056 pragma Assert (Nkind (N) in N_Entity);
5057 return To_Flag_Byte3 (Nodes.Table (N + 4).Nkind).Flag250;
5060 function Flag251 (N : Node_Id) return Boolean is
5062 pragma Assert (Nkind (N) in N_Entity);
5063 return To_Flag_Byte3 (Nodes.Table (N + 4).Nkind).Flag251;
5066 function Flag252 (N : Node_Id) return Boolean is
5068 pragma Assert (Nkind (N) in N_Entity);
5069 return To_Flag_Byte3 (Nodes.Table (N + 4).Nkind).Flag252;
5072 function Flag253 (N : Node_Id) return Boolean is
5074 pragma Assert (Nkind (N) in N_Entity);
5075 return To_Flag_Byte3 (Nodes.Table (N + 4).Nkind).Flag253;
5078 function Flag254 (N : Node_Id) return Boolean is
5080 pragma Assert (Nkind (N) in N_Entity);
5081 return To_Flag_Byte3 (Nodes.Table (N + 4).Nkind).Flag254;
5084 function Flag255 (N : Node_Id) return Boolean is
5086 pragma Assert (Nkind (N) in N_Entity);
5087 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag255;
5090 function Flag256 (N : Node_Id) return Boolean is
5092 pragma Assert (Nkind (N) in N_Entity);
5093 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag256;
5096 function Flag257 (N : Node_Id) return Boolean is
5098 pragma Assert (Nkind (N) in N_Entity);
5099 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag257;
5102 function Flag258 (N : Node_Id) return Boolean is
5104 pragma Assert (Nkind (N) in N_Entity);
5105 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag258;
5108 function Flag259 (N : Node_Id) return Boolean is
5110 pragma Assert (Nkind (N) in N_Entity);
5111 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag259;
5114 function Flag260 (N : Node_Id) return Boolean is
5116 pragma Assert (Nkind (N) in N_Entity);
5117 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag260;
5120 function Flag261 (N : Node_Id) return Boolean is
5122 pragma Assert (Nkind (N) in N_Entity);
5123 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag261;
5126 function Flag262 (N : Node_Id) return Boolean is
5128 pragma Assert (Nkind (N) in N_Entity);
5129 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag262;
5132 function Flag263 (N : Node_Id) return Boolean is
5134 pragma Assert (Nkind (N) in N_Entity);
5135 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag263;
5138 function Flag264 (N : Node_Id) return Boolean is
5140 pragma Assert (Nkind (N) in N_Entity);
5141 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag264;
5144 function Flag265 (N : Node_Id) return Boolean is
5146 pragma Assert (Nkind (N) in N_Entity);
5147 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag265;
5150 function Flag266 (N : Node_Id) return Boolean is
5152 pragma Assert (Nkind (N) in N_Entity);
5153 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag266;
5156 function Flag267 (N : Node_Id) return Boolean is
5158 pragma Assert (Nkind (N) in N_Entity);
5159 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag267;
5162 function Flag268 (N : Node_Id) return Boolean is
5164 pragma Assert (Nkind (N) in N_Entity);
5165 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag268;
5168 function Flag269 (N : Node_Id) return Boolean is
5170 pragma Assert (Nkind (N) in N_Entity);
5171 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag269;
5174 function Flag270 (N : Node_Id) return Boolean is
5176 pragma Assert (Nkind (N) in N_Entity);
5177 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag270;
5180 function Flag271 (N : Node_Id) return Boolean is
5182 pragma Assert (Nkind (N) in N_Entity);
5183 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag271;
5186 function Flag272 (N : Node_Id) return Boolean is
5188 pragma Assert (Nkind (N) in N_Entity);
5189 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag272;
5192 function Flag273 (N : Node_Id) return Boolean is
5194 pragma Assert (Nkind (N) in N_Entity);
5195 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag273;
5198 function Flag274 (N : Node_Id) return Boolean is
5200 pragma Assert (Nkind (N) in N_Entity);
5201 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag274;
5204 function Flag275 (N : Node_Id) return Boolean is
5206 pragma Assert (Nkind (N) in N_Entity);
5207 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag275;
5210 function Flag276 (N : Node_Id) return Boolean is
5212 pragma Assert (Nkind (N) in N_Entity);
5213 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag276;
5216 function Flag277 (N : Node_Id) return Boolean is
5218 pragma Assert (Nkind (N) in N_Entity);
5219 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag277;
5222 function Flag278 (N : Node_Id) return Boolean is
5224 pragma Assert (Nkind (N) in N_Entity);
5225 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag278;
5228 function Flag279 (N : Node_Id) return Boolean is
5230 pragma Assert (Nkind (N) in N_Entity);
5231 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag279;
5234 function Flag280 (N : Node_Id) return Boolean is
5236 pragma Assert (Nkind (N) in N_Entity);
5237 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag280;
5240 function Flag281 (N : Node_Id) return Boolean is
5242 pragma Assert (Nkind (N) in N_Entity);
5243 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag281;
5246 function Flag282 (N : Node_Id) return Boolean is
5248 pragma Assert (Nkind (N) in N_Entity);
5249 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag282;
5252 function Flag283 (N : Node_Id) return Boolean is
5254 pragma Assert (Nkind (N) in N_Entity);
5255 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag283;
5258 function Flag284 (N : Node_Id) return Boolean is
5260 pragma Assert (Nkind (N) in N_Entity);
5261 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag284;
5264 function Flag285 (N : Node_Id) return Boolean is
5266 pragma Assert (Nkind (N) in N_Entity);
5267 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag285;
5270 function Flag286 (N : Node_Id) return Boolean is
5272 pragma Assert (Nkind (N) in N_Entity);
5273 return To_Flag_Word5 (Nodes.Table (N + 5).Field12).Flag286;
5276 function Flag287 (N : Node_Id) return Boolean is
5278 pragma Assert (Nkind (N) in N_Entity);
5279 return Nodes.Table (N + 5).In_List;
5282 function Flag288 (N : Node_Id) return Boolean is
5284 pragma Assert (Nkind (N) in N_Entity);
5285 return Nodes.Table (N + 5).Has_Aspects;
5288 function Flag289 (N : Node_Id) return Boolean is
5290 pragma Assert (Nkind (N) in N_Entity);
5291 return Nodes.Table (N + 5).Rewrite_Ins;
5294 function Flag290 (N : Node_Id) return Boolean is
5296 pragma Assert (Nkind (N) in N_Entity);
5297 return Nodes.Table (N + 5).Analyzed;
5300 function Flag291 (N : Node_Id) return Boolean is
5302 pragma Assert (Nkind (N) in N_Entity);
5303 return Nodes.Table (N + 5).Comes_From_Source;
5306 function Flag292 (N : Node_Id) return Boolean is
5308 pragma Assert (Nkind (N) in N_Entity);
5309 return Nodes.Table (N + 5).Error_Posted;
5312 function Flag293 (N : Node_Id) return Boolean is
5314 pragma Assert (Nkind (N) in N_Entity);
5315 return Nodes.Table (N + 5).Flag4;
5318 function Flag294 (N : Node_Id) return Boolean is
5320 pragma Assert (Nkind (N) in N_Entity);
5321 return Nodes.Table (N + 5).Flag5;
5324 function Flag295 (N : Node_Id) return Boolean is
5326 pragma Assert (Nkind (N) in N_Entity);
5327 return Nodes.Table (N + 5).Flag6;
5330 function Flag296 (N : Node_Id) return Boolean is
5332 pragma Assert (Nkind (N) in N_Entity);
5333 return Nodes.Table (N + 5).Flag7;
5336 function Flag297 (N : Node_Id) return Boolean is
5338 pragma Assert (Nkind (N) in N_Entity);
5339 return Nodes.Table (N + 5).Flag8;
5342 function Flag298 (N : Node_Id) return Boolean is
5344 pragma Assert (Nkind (N) in N_Entity);
5345 return Nodes.Table (N + 5).Flag9;
5348 function Flag299 (N : Node_Id) return Boolean is
5350 pragma Assert (Nkind (N) in N_Entity);
5351 return Nodes.Table (N + 5).Flag10;
5354 function Flag300 (N : Node_Id) return Boolean is
5356 pragma Assert (Nkind (N) in N_Entity);
5357 return Nodes.Table (N + 5).Flag11;
5360 function Flag301 (N : Node_Id) return Boolean is
5362 pragma Assert (Nkind (N) in N_Entity);
5363 return Nodes.Table (N + 5).Flag12;
5366 function Flag302 (N : Node_Id) return Boolean is
5368 pragma Assert (Nkind (N) in N_Entity);
5369 return Nodes.Table (N + 5).Flag13;
5372 function Flag303 (N : Node_Id) return Boolean is
5374 pragma Assert (Nkind (N) in N_Entity);
5375 return Nodes.Table (N + 5).Flag14;
5378 function Flag304 (N : Node_Id) return Boolean is
5380 pragma Assert (Nkind (N) in N_Entity);
5381 return Nodes.Table (N + 5).Flag15;
5384 function Flag305 (N : Node_Id) return Boolean is
5386 pragma Assert (Nkind (N) in N_Entity);
5387 return Nodes.Table (N + 5).Flag16;
5390 function Flag306 (N : Node_Id) return Boolean is
5392 pragma Assert (Nkind (N) in N_Entity);
5393 return Nodes.Table (N + 5).Flag17;
5396 function Flag307 (N : Node_Id) return Boolean is
5398 pragma Assert (Nkind (N) in N_Entity);
5399 return Nodes.Table (N + 5).Flag18;
5402 function Flag308 (N : Node_Id) return Boolean is
5404 pragma Assert (Nkind (N) in N_Entity);
5405 return Nodes.Table (N + 5).Pflag1;
5408 function Flag309 (N : Node_Id) return Boolean is
5410 pragma Assert (Nkind (N) in N_Entity);
5411 return Nodes.Table (N + 5).Pflag2;
5414 function Flag310 (N : Node_Id) return Boolean is
5416 pragma Assert (Nkind (N) in N_Entity);
5417 return To_Flag_Byte4 (Nodes.Table (N + 5).Nkind).Flag310;
5420 function Flag311 (N : Node_Id) return Boolean is
5422 pragma Assert (Nkind (N) in N_Entity);
5423 return To_Flag_Byte4 (Nodes.Table (N + 5).Nkind).Flag311;
5426 function Flag312 (N : Node_Id) return Boolean is
5428 pragma Assert (Nkind (N) in N_Entity);
5429 return To_Flag_Byte4 (Nodes.Table (N + 5).Nkind).Flag312;
5432 function Flag313 (N : Node_Id) return Boolean is
5434 pragma Assert (Nkind (N) in N_Entity);
5435 return To_Flag_Byte4 (Nodes.Table (N + 5).Nkind).Flag313;
5438 function Flag314 (N : Node_Id) return Boolean is
5440 pragma Assert (Nkind (N) in N_Entity);
5441 return To_Flag_Byte4 (Nodes.Table (N + 5).Nkind).Flag314;
5444 function Flag315 (N : Node_Id) return Boolean is
5446 pragma Assert (Nkind (N) in N_Entity);
5447 return To_Flag_Byte4 (Nodes.Table (N + 5).Nkind).Flag315;
5450 function Flag316 (N : Node_Id) return Boolean is
5452 pragma Assert (Nkind (N) in N_Entity);
5453 return To_Flag_Byte4 (Nodes.Table (N + 5).Nkind).Flag316;
5456 function Flag317 (N : Node_Id) return Boolean is
5458 pragma Assert (Nkind (N) in N_Entity);
5459 return To_Flag_Byte4 (Nodes.Table (N + 5).Nkind).Flag317;
5462 procedure Set_Nkind (N : Node_Id; Val : Node_Kind) is
5464 pragma Assert (N <= Nodes.Last);
5465 Nodes.Table (N).Nkind := Val;
5468 procedure Set_Field1 (N : Node_Id; Val : Union_Id) is
5470 pragma Assert (N <= Nodes.Last);
5471 Nodes.Table (N).Field1 := Val;
5474 procedure Set_Field2 (N : Node_Id; Val : Union_Id) is
5476 pragma Assert (N <= Nodes.Last);
5477 Nodes.Table (N).Field2 := Val;
5480 procedure Set_Field3 (N : Node_Id; Val : Union_Id) is
5482 pragma Assert (N <= Nodes.Last);
5483 Nodes.Table (N).Field3 := Val;
5486 procedure Set_Field4 (N : Node_Id; Val : Union_Id) is
5488 pragma Assert (N <= Nodes.Last);
5489 Nodes.Table (N).Field4 := Val;
5492 procedure Set_Field5 (N : Node_Id; Val : Union_Id) is
5494 pragma Assert (N <= Nodes.Last);
5495 Nodes.Table (N).Field5 := Val;
5498 procedure Set_Field6 (N : Node_Id; Val : Union_Id) is
5500 pragma Assert (Nkind (N) in N_Entity);
5501 Nodes.Table (N + 1).Field6 := Val;
5504 procedure Set_Field7 (N : Node_Id; Val : Union_Id) is
5506 pragma Assert (Nkind (N) in N_Entity);
5507 Nodes.Table (N + 1).Field7 := Val;
5510 procedure Set_Field8 (N : Node_Id; Val : Union_Id) is
5512 pragma Assert (Nkind (N) in N_Entity);
5513 Nodes.Table (N + 1).Field8 := Val;
5516 procedure Set_Field9 (N : Node_Id; Val : Union_Id) is
5518 pragma Assert (Nkind (N) in N_Entity);
5519 Nodes.Table (N + 1).Field9 := Val;
5522 procedure Set_Field10 (N : Node_Id; Val : Union_Id) is
5524 pragma Assert (Nkind (N) in N_Entity);
5525 Nodes.Table (N + 1).Field10 := Val;
5528 procedure Set_Field11 (N : Node_Id; Val : Union_Id) is
5530 pragma Assert (Nkind (N) in N_Entity);
5531 Nodes.Table (N + 1).Field11 := Val;
5534 procedure Set_Field12 (N : Node_Id; Val : Union_Id) is
5536 pragma Assert (Nkind (N) in N_Entity);
5537 Nodes.Table (N + 1).Field12 := Val;
5540 procedure Set_Field13 (N : Node_Id; Val : Union_Id) is
5542 pragma Assert (Nkind (N) in N_Entity);
5543 Nodes.Table (N + 2).Field6 := Val;
5546 procedure Set_Field14 (N : Node_Id; Val : Union_Id) is
5548 pragma Assert (Nkind (N) in N_Entity);
5549 Nodes.Table (N + 2).Field7 := Val;
5552 procedure Set_Field15 (N : Node_Id; Val : Union_Id) is
5554 pragma Assert (Nkind (N) in N_Entity);
5555 Nodes.Table (N + 2).Field8 := Val;
5558 procedure Set_Field16 (N : Node_Id; Val : Union_Id) is
5560 pragma Assert (Nkind (N) in N_Entity);
5561 Nodes.Table (N + 2).Field9 := Val;
5564 procedure Set_Field17 (N : Node_Id; Val : Union_Id) is
5566 pragma Assert (Nkind (N) in N_Entity);
5567 Nodes.Table (N + 2).Field10 := Val;
5570 procedure Set_Field18 (N : Node_Id; Val : Union_Id) is
5572 pragma Assert (Nkind (N) in N_Entity);
5573 Nodes.Table (N + 2).Field11 := Val;
5576 procedure Set_Field19 (N : Node_Id; Val : Union_Id) is
5578 pragma Assert (Nkind (N) in N_Entity);
5579 Nodes.Table (N + 3).Field6 := Val;
5582 procedure Set_Field20 (N : Node_Id; Val : Union_Id) is
5584 pragma Assert (Nkind (N) in N_Entity);
5585 Nodes.Table (N + 3).Field7 := Val;
5588 procedure Set_Field21 (N : Node_Id; Val : Union_Id) is
5590 pragma Assert (Nkind (N) in N_Entity);
5591 Nodes.Table (N + 3).Field8 := Val;
5594 procedure Set_Field22 (N : Node_Id; Val : Union_Id) is
5596 pragma Assert (Nkind (N) in N_Entity);
5597 Nodes.Table (N + 3).Field9 := Val;
5600 procedure Set_Field23 (N : Node_Id; Val : Union_Id) is
5602 pragma Assert (Nkind (N) in N_Entity);
5603 Nodes.Table (N + 3).Field10 := Val;
5606 procedure Set_Field24 (N : Node_Id; Val : Union_Id) is
5608 pragma Assert (Nkind (N) in N_Entity);
5609 Nodes.Table (N + 4).Field6 := Val;
5612 procedure Set_Field25 (N : Node_Id; Val : Union_Id) is
5614 pragma Assert (Nkind (N) in N_Entity);
5615 Nodes.Table (N + 4).Field7 := Val;
5618 procedure Set_Field26 (N : Node_Id; Val : Union_Id) is
5620 pragma Assert (Nkind (N) in N_Entity);
5621 Nodes.Table (N + 4).Field8 := Val;
5624 procedure Set_Field27 (N : Node_Id; Val : Union_Id) is
5626 pragma Assert (Nkind (N) in N_Entity);
5627 Nodes.Table (N + 4).Field9 := Val;
5630 procedure Set_Field28 (N : Node_Id; Val : Union_Id) is
5632 pragma Assert (Nkind (N) in N_Entity);
5633 Nodes.Table (N + 4).Field10 := Val;
5636 procedure Set_Field29 (N : Node_Id; Val : Union_Id) is
5638 pragma Assert (Nkind (N) in N_Entity);
5639 Nodes.Table (N + 4).Field11 := Val;
5642 procedure Set_Field30 (N : Node_Id; Val : Union_Id) is
5644 pragma Assert (Nkind (N) in N_Entity);
5645 Nodes.Table (N + 5).Field6 := Val;
5648 procedure Set_Field31 (N : Node_Id; Val : Union_Id) is
5650 pragma Assert (Nkind (N) in N_Entity);
5651 Nodes.Table (N + 5).Field7 := Val;
5654 procedure Set_Field32 (N : Node_Id; Val : Union_Id) is
5656 pragma Assert (Nkind (N) in N_Entity);
5657 Nodes.Table (N + 5).Field8 := Val;
5660 procedure Set_Field33 (N : Node_Id; Val : Union_Id) is
5662 pragma Assert (Nkind (N) in N_Entity);
5663 Nodes.Table (N + 5).Field9 := Val;
5666 procedure Set_Field34 (N : Node_Id; Val : Union_Id) is
5668 pragma Assert (Nkind (N) in N_Entity);
5669 Nodes.Table (N + 5).Field10 := Val;
5672 procedure Set_Field35 (N : Node_Id; Val : Union_Id) is
5674 pragma Assert (Nkind (N) in N_Entity);
5675 Nodes.Table (N + 5).Field11 := Val;
5678 procedure Set_Field36 (N : Node_Id; Val : Union_Id) is
5680 pragma Assert (Nkind (N) in N_Entity);
5681 Nodes.Table (N + 6).Field6 := Val;
5684 procedure Set_Field37 (N : Node_Id; Val : Union_Id) is
5686 pragma Assert (Nkind (N) in N_Entity);
5687 Nodes.Table (N + 6).Field7 := Val;
5690 procedure Set_Field38 (N : Node_Id; Val : Union_Id) is
5692 pragma Assert (Nkind (N) in N_Entity);
5693 Nodes.Table (N + 6).Field8 := Val;
5696 procedure Set_Field39 (N : Node_Id; Val : Union_Id) is
5698 pragma Assert (Nkind (N) in N_Entity);
5699 Nodes.Table (N + 6).Field9 := Val;
5702 procedure Set_Field40 (N : Node_Id; Val : Union_Id) is
5704 pragma Assert (Nkind (N) in N_Entity);
5705 Nodes.Table (N + 6).Field10 := Val;
5708 procedure Set_Field41 (N : Node_Id; Val : Union_Id) is
5710 pragma Assert (Nkind (N) in N_Entity);
5711 Nodes.Table (N + 6).Field11 := Val;
5714 procedure Set_Node1 (N : Node_Id; Val : Node_Id) is
5716 pragma Assert (N <= Nodes.Last);
5717 Nodes.Table (N).Field1 := Union_Id (Val);
5720 procedure Set_Node2 (N : Node_Id; Val : Node_Id) is
5722 pragma Assert (N <= Nodes.Last);
5723 Nodes.Table (N).Field2 := Union_Id (Val);
5726 procedure Set_Node3 (N : Node_Id; Val : Node_Id) is
5728 pragma Assert (N <= Nodes.Last);
5729 Nodes.Table (N).Field3 := Union_Id (Val);
5732 procedure Set_Node4 (N : Node_Id; Val : Node_Id) is
5734 pragma Assert (N <= Nodes.Last);
5735 Nodes.Table (N).Field4 := Union_Id (Val);
5738 procedure Set_Node5 (N : Node_Id; Val : Node_Id) is
5740 pragma Assert (N <= Nodes.Last);
5741 Nodes.Table (N).Field5 := Union_Id (Val);
5744 procedure Set_Node6 (N : Node_Id; Val : Node_Id) is
5746 pragma Assert (Nkind (N) in N_Entity);
5747 Nodes.Table (N + 1).Field6 := Union_Id (Val);
5750 procedure Set_Node7 (N : Node_Id; Val : Node_Id) is
5752 pragma Assert (Nkind (N) in N_Entity);
5753 Nodes.Table (N + 1).Field7 := Union_Id (Val);
5756 procedure Set_Node8 (N : Node_Id; Val : Node_Id) is
5758 pragma Assert (Nkind (N) in N_Entity);
5759 Nodes.Table (N + 1).Field8 := Union_Id (Val);
5762 procedure Set_Node9 (N : Node_Id; Val : Node_Id) is
5764 pragma Assert (Nkind (N) in N_Entity);
5765 Nodes.Table (N + 1).Field9 := Union_Id (Val);
5768 procedure Set_Node10 (N : Node_Id; Val : Node_Id) is
5770 pragma Assert (Nkind (N) in N_Entity);
5771 Nodes.Table (N + 1).Field10 := Union_Id (Val);
5774 procedure Set_Node11 (N : Node_Id; Val : Node_Id) is
5776 pragma Assert (Nkind (N) in N_Entity);
5777 Nodes.Table (N + 1).Field11 := Union_Id (Val);
5780 procedure Set_Node12 (N : Node_Id; Val : Node_Id) is
5782 pragma Assert (Nkind (N) in N_Entity);
5783 Nodes.Table (N + 1).Field12 := Union_Id (Val);
5786 procedure Set_Node13 (N : Node_Id; Val : Node_Id) is
5788 pragma Assert (Nkind (N) in N_Entity);
5789 Nodes.Table (N + 2).Field6 := Union_Id (Val);
5792 procedure Set_Node14 (N : Node_Id; Val : Node_Id) is
5794 pragma Assert (Nkind (N) in N_Entity);
5795 Nodes.Table (N + 2).Field7 := Union_Id (Val);
5798 procedure Set_Node15 (N : Node_Id; Val : Node_Id) is
5800 pragma Assert (Nkind (N) in N_Entity);
5801 Nodes.Table (N + 2).Field8 := Union_Id (Val);
5804 procedure Set_Node16 (N : Node_Id; Val : Node_Id) is
5806 pragma Assert (Nkind (N) in N_Entity);
5807 Nodes.Table (N + 2).Field9 := Union_Id (Val);
5810 procedure Set_Node17 (N : Node_Id; Val : Node_Id) is
5812 pragma Assert (Nkind (N) in N_Entity);
5813 Nodes.Table (N + 2).Field10 := Union_Id (Val);
5816 procedure Set_Node18 (N : Node_Id; Val : Node_Id) is
5818 pragma Assert (Nkind (N) in N_Entity);
5819 Nodes.Table (N + 2).Field11 := Union_Id (Val);
5822 procedure Set_Node19 (N : Node_Id; Val : Node_Id) is
5824 pragma Assert (Nkind (N) in N_Entity);
5825 Nodes.Table (N + 3).Field6 := Union_Id (Val);
5828 procedure Set_Node20 (N : Node_Id; Val : Node_Id) is
5830 pragma Assert (Nkind (N) in N_Entity);
5831 Nodes.Table (N + 3).Field7 := Union_Id (Val);
5834 procedure Set_Node21 (N : Node_Id; Val : Node_Id) is
5836 pragma Assert (Nkind (N) in N_Entity);
5837 Nodes.Table (N + 3).Field8 := Union_Id (Val);
5840 procedure Set_Node22 (N : Node_Id; Val : Node_Id) is
5842 pragma Assert (Nkind (N) in N_Entity);
5843 Nodes.Table (N + 3).Field9 := Union_Id (Val);
5846 procedure Set_Node23 (N : Node_Id; Val : Node_Id) is
5848 pragma Assert (Nkind (N) in N_Entity);
5849 Nodes.Table (N + 3).Field10 := Union_Id (Val);
5852 procedure Set_Node24 (N : Node_Id; Val : Node_Id) is
5854 pragma Assert (Nkind (N) in N_Entity);
5855 Nodes.Table (N + 4).Field6 := Union_Id (Val);
5858 procedure Set_Node25 (N : Node_Id; Val : Node_Id) is
5860 pragma Assert (Nkind (N) in N_Entity);
5861 Nodes.Table (N + 4).Field7 := Union_Id (Val);
5864 procedure Set_Node26 (N : Node_Id; Val : Node_Id) is
5866 pragma Assert (Nkind (N) in N_Entity);
5867 Nodes.Table (N + 4).Field8 := Union_Id (Val);
5870 procedure Set_Node27 (N : Node_Id; Val : Node_Id) is
5872 pragma Assert (Nkind (N) in N_Entity);
5873 Nodes.Table (N + 4).Field9 := Union_Id (Val);
5876 procedure Set_Node28 (N : Node_Id; Val : Node_Id) is
5878 pragma Assert (Nkind (N) in N_Entity);
5879 Nodes.Table (N + 4).Field10 := Union_Id (Val);
5882 procedure Set_Node29 (N : Node_Id; Val : Node_Id) is
5884 pragma Assert (Nkind (N) in N_Entity);
5885 Nodes.Table (N + 4).Field11 := Union_Id (Val);
5888 procedure Set_Node30 (N : Node_Id; Val : Node_Id) is
5890 pragma Assert (Nkind (N) in N_Entity);
5891 Nodes.Table (N + 5).Field6 := Union_Id (Val);
5894 procedure Set_Node31 (N : Node_Id; Val : Node_Id) is
5896 pragma Assert (Nkind (N) in N_Entity);
5897 Nodes.Table (N + 5).Field7 := Union_Id (Val);
5900 procedure Set_Node32 (N : Node_Id; Val : Node_Id) is
5902 pragma Assert (Nkind (N) in N_Entity);
5903 Nodes.Table (N + 5).Field8 := Union_Id (Val);
5906 procedure Set_Node33 (N : Node_Id; Val : Node_Id) is
5908 pragma Assert (Nkind (N) in N_Entity);
5909 Nodes.Table (N + 5).Field9 := Union_Id (Val);
5912 procedure Set_Node34 (N : Node_Id; Val : Node_Id) is
5914 pragma Assert (Nkind (N) in N_Entity);
5915 Nodes.Table (N + 5).Field10 := Union_Id (Val);
5918 procedure Set_Node35 (N : Node_Id; Val : Node_Id) is
5920 pragma Assert (Nkind (N) in N_Entity);
5921 Nodes.Table (N + 5).Field11 := Union_Id (Val);
5924 procedure Set_Node36 (N : Node_Id; Val : Node_Id) is
5926 pragma Assert (Nkind (N) in N_Entity);
5927 Nodes.Table (N + 6).Field6 := Union_Id (Val);
5930 procedure Set_Node37 (N : Node_Id; Val : Node_Id) is
5932 pragma Assert (Nkind (N) in N_Entity);
5933 Nodes.Table (N + 6).Field7 := Union_Id (Val);
5936 procedure Set_Node38 (N : Node_Id; Val : Node_Id) is
5938 pragma Assert (Nkind (N) in N_Entity);
5939 Nodes.Table (N + 6).Field8 := Union_Id (Val);
5942 procedure Set_Node39 (N : Node_Id; Val : Node_Id) is
5944 pragma Assert (Nkind (N) in N_Entity);
5945 Nodes.Table (N + 6).Field9 := Union_Id (Val);
5948 procedure Set_Node40 (N : Node_Id; Val : Node_Id) is
5950 pragma Assert (Nkind (N) in N_Entity);
5951 Nodes.Table (N + 6).Field10 := Union_Id (Val);
5954 procedure Set_Node41 (N : Node_Id; Val : Node_Id) is
5956 pragma Assert (Nkind (N) in N_Entity);
5957 Nodes.Table (N + 6).Field11 := Union_Id (Val);
5960 procedure Set_List1 (N : Node_Id; Val : List_Id) is
5962 pragma Assert (N <= Nodes.Last);
5963 Nodes.Table (N).Field1 := Union_Id (Val);
5966 procedure Set_List2 (N : Node_Id; Val : List_Id) is
5968 pragma Assert (N <= Nodes.Last);
5969 Nodes.Table (N).Field2 := Union_Id (Val);
5972 procedure Set_List3 (N : Node_Id; Val : List_Id) is
5974 pragma Assert (N <= Nodes.Last);
5975 Nodes.Table (N).Field3 := Union_Id (Val);
5978 procedure Set_List4 (N : Node_Id; Val : List_Id) is
5980 pragma Assert (N <= Nodes.Last);
5981 Nodes.Table (N).Field4 := Union_Id (Val);
5984 procedure Set_List5 (N : Node_Id; Val : List_Id) is
5986 pragma Assert (N <= Nodes.Last);
5987 Nodes.Table (N).Field5 := Union_Id (Val);
5990 procedure Set_List10 (N : Node_Id; Val : List_Id) is
5992 pragma Assert (Nkind (N) in N_Entity);
5993 Nodes.Table (N + 1).Field10 := Union_Id (Val);
5996 procedure Set_List14 (N : Node_Id; Val : List_Id) is
5998 pragma Assert (Nkind (N) in N_Entity);
5999 Nodes.Table (N + 2).Field7 := Union_Id (Val);
6002 procedure Set_List25 (N : Node_Id; Val : List_Id) is
6004 pragma Assert (Nkind (N) in N_Entity);
6005 Nodes.Table (N + 4).Field7 := Union_Id (Val);
6008 procedure Set_List38 (N : Node_Id; Val : List_Id) is
6010 pragma Assert (Nkind (N) in N_Entity);
6011 Nodes.Table (N + 6).Field8 := Union_Id (Val);
6014 procedure Set_List39 (N : Node_Id; Val : List_Id) is
6016 pragma Assert (Nkind (N) in N_Entity);
6017 Nodes.Table (N + 6).Field9 := Union_Id (Val);
6020 procedure Set_Elist1 (N : Node_Id; Val : Elist_Id) is
6022 Nodes.Table (N).Field1 := Union_Id (Val);
6025 procedure Set_Elist2 (N : Node_Id; Val : Elist_Id) is
6027 Nodes.Table (N).Field2 := Union_Id (Val);
6030 procedure Set_Elist3 (N : Node_Id; Val : Elist_Id) is
6032 Nodes.Table (N).Field3 := Union_Id (Val);
6035 procedure Set_Elist4 (N : Node_Id; Val : Elist_Id) is
6037 Nodes.Table (N).Field4 := Union_Id (Val);
6040 procedure Set_Elist5 (N : Node_Id; Val : Elist_Id) is
6042 Nodes.Table (N).Field5 := Union_Id (Val);
6045 procedure Set_Elist8 (N : Node_Id; Val : Elist_Id) is
6047 pragma Assert (Nkind (N) in N_Entity);
6048 Nodes.Table (N + 1).Field8 := Union_Id (Val);
6051 procedure Set_Elist9 (N : Node_Id; Val : Elist_Id) is
6053 pragma Assert (Nkind (N) in N_Entity);
6054 Nodes.Table (N + 1).Field9 := Union_Id (Val);
6057 procedure Set_Elist10 (N : Node_Id; Val : Elist_Id) is
6059 pragma Assert (Nkind (N) in N_Entity);
6060 Nodes.Table (N + 1).Field10 := Union_Id (Val);
6063 procedure Set_Elist11 (N : Node_Id; Val : Elist_Id) is
6065 pragma Assert (Nkind (N) in N_Entity);
6066 Nodes.Table (N + 1).Field11 := Union_Id (Val);
6069 procedure Set_Elist13 (N : Node_Id; Val : Elist_Id) is
6071 pragma Assert (Nkind (N) in N_Entity);
6072 Nodes.Table (N + 2).Field6 := Union_Id (Val);
6075 procedure Set_Elist15 (N : Node_Id; Val : Elist_Id) is
6077 pragma Assert (Nkind (N) in N_Entity);
6078 Nodes.Table (N + 2).Field8 := Union_Id (Val);
6081 procedure Set_Elist16 (N : Node_Id; Val : Elist_Id) is
6083 pragma Assert (Nkind (N) in N_Entity);
6084 Nodes.Table (N + 2).Field9 := Union_Id (Val);
6087 procedure Set_Elist18 (N : Node_Id; Val : Elist_Id) is
6089 pragma Assert (Nkind (N) in N_Entity);
6090 Nodes.Table (N + 2).Field11 := Union_Id (Val);
6093 procedure Set_Elist21 (N : Node_Id; Val : Elist_Id) is
6095 pragma Assert (Nkind (N) in N_Entity);
6096 Nodes.Table (N + 3).Field8 := Union_Id (Val);
6099 procedure Set_Elist23 (N : Node_Id; Val : Elist_Id) is
6101 pragma Assert (Nkind (N) in N_Entity);
6102 Nodes.Table (N + 3).Field10 := Union_Id (Val);
6105 procedure Set_Elist24 (N : Node_Id; Val : Elist_Id) is
6107 pragma Assert (Nkind (N) in N_Entity);
6108 Nodes.Table (N + 4).Field6 := Union_Id (Val);
6111 procedure Set_Elist25 (N : Node_Id; Val : Elist_Id) is
6113 pragma Assert (Nkind (N) in N_Entity);
6114 Nodes.Table (N + 4).Field7 := Union_Id (Val);
6117 procedure Set_Elist26 (N : Node_Id; Val : Elist_Id) is
6119 pragma Assert (Nkind (N) in N_Entity);
6120 Nodes.Table (N + 4).Field8 := Union_Id (Val);
6123 procedure Set_Elist29 (N : Node_Id; Val : Elist_Id) is
6125 pragma Assert (Nkind (N) in N_Entity);
6126 Nodes.Table (N + 4).Field11 := Union_Id (Val);
6129 procedure Set_Elist36 (N : Node_Id; Val : Elist_Id) is
6131 pragma Assert (Nkind (N) in N_Entity);
6132 Nodes.Table (N + 6).Field6 := Union_Id (Val);
6135 procedure Set_Name1 (N : Node_Id; Val : Name_Id) is
6137 pragma Assert (N <= Nodes.Last);
6138 Nodes.Table (N).Field1 := Union_Id (Val);
6141 procedure Set_Name2 (N : Node_Id; Val : Name_Id) is
6143 pragma Assert (N <= Nodes.Last);
6144 Nodes.Table (N).Field2 := Union_Id (Val);
6147 procedure Set_Str3 (N : Node_Id; Val : String_Id) is
6149 pragma Assert (N <= Nodes.Last);
6150 Nodes.Table (N).Field3 := Union_Id (Val);
6153 procedure Set_Uint2 (N : Node_Id; Val : Uint) is
6155 pragma Assert (N <= Nodes.Last);
6156 Nodes.Table (N).Field2 := To_Union (Val);
6159 procedure Set_Uint3 (N : Node_Id; Val : Uint) is
6161 pragma Assert (N <= Nodes.Last);
6162 Nodes.Table (N).Field3 := To_Union (Val);
6165 procedure Set_Uint4 (N : Node_Id; Val : Uint) is
6167 pragma Assert (N <= Nodes.Last);
6168 Nodes.Table (N).Field4 := To_Union (Val);
6171 procedure Set_Uint5 (N : Node_Id; Val : Uint) is
6173 pragma Assert (N <= Nodes.Last);
6174 Nodes.Table (N).Field5 := To_Union (Val);
6177 procedure Set_Uint8 (N : Node_Id; Val : Uint) is
6179 pragma Assert (Nkind (N) in N_Entity);
6180 Nodes.Table (N + 1).Field8 := To_Union (Val);
6183 procedure Set_Uint9 (N : Node_Id; Val : Uint) is
6185 pragma Assert (Nkind (N) in N_Entity);
6186 Nodes.Table (N + 1).Field9 := To_Union (Val);
6189 procedure Set_Uint10 (N : Node_Id; Val : Uint) is
6191 pragma Assert (Nkind (N) in N_Entity);
6192 Nodes.Table (N + 1).Field10 := To_Union (Val);
6195 procedure Set_Uint11 (N : Node_Id; Val : Uint) is
6197 pragma Assert (Nkind (N) in N_Entity);
6198 Nodes.Table (N + 1).Field11 := To_Union (Val);
6201 procedure Set_Uint12 (N : Node_Id; Val : Uint) is
6203 pragma Assert (Nkind (N) in N_Entity);
6204 Nodes.Table (N + 1).Field12 := To_Union (Val);
6207 procedure Set_Uint13 (N : Node_Id; Val : Uint) is
6209 pragma Assert (Nkind (N) in N_Entity);
6210 Nodes.Table (N + 2).Field6 := To_Union (Val);
6213 procedure Set_Uint14 (N : Node_Id; Val : Uint) is
6215 pragma Assert (Nkind (N) in N_Entity);
6216 Nodes.Table (N + 2).Field7 := To_Union (Val);
6219 procedure Set_Uint15 (N : Node_Id; Val : Uint) is
6221 pragma Assert (Nkind (N) in N_Entity);
6222 Nodes.Table (N + 2).Field8 := To_Union (Val);
6225 procedure Set_Uint16 (N : Node_Id; Val : Uint) is
6227 pragma Assert (Nkind (N) in N_Entity);
6228 Nodes.Table (N + 2).Field9 := To_Union (Val);
6231 procedure Set_Uint17 (N : Node_Id; Val : Uint) is
6233 pragma Assert (Nkind (N) in N_Entity);
6234 Nodes.Table (N + 2).Field10 := To_Union (Val);
6237 procedure Set_Uint22 (N : Node_Id; Val : Uint) is
6239 pragma Assert (Nkind (N) in N_Entity);
6240 Nodes.Table (N + 3).Field9 := To_Union (Val);
6243 procedure Set_Uint24 (N : Node_Id; Val : Uint) is
6245 pragma Assert (Nkind (N) in N_Entity);
6246 Nodes.Table (N + 4).Field6 := To_Union (Val);
6249 procedure Set_Ureal3 (N : Node_Id; Val : Ureal) is
6251 pragma Assert (N <= Nodes.Last);
6252 Nodes.Table (N).Field3 := To_Union (Val);
6255 procedure Set_Ureal18 (N : Node_Id; Val : Ureal) is
6257 pragma Assert (Nkind (N) in N_Entity);
6258 Nodes.Table (N + 2).Field11 := To_Union (Val);
6261 procedure Set_Ureal21 (N : Node_Id; Val : Ureal) is
6263 pragma Assert (Nkind (N) in N_Entity);
6264 Nodes.Table (N + 3).Field8 := To_Union (Val);
6267 procedure Set_Flag0 (N : Node_Id; Val : Boolean) is
6269 pragma Assert (N <= Nodes.Last);
6270 Flags.Table (N).Flag0 := Val;
6273 procedure Set_Flag1 (N : Node_Id; Val : Boolean) is
6275 pragma Assert (N <= Nodes.Last);
6276 Flags.Table (N).Flag1 := Val;
6279 procedure Set_Flag2 (N : Node_Id; Val : Boolean) is
6281 pragma Assert (N <= Nodes.Last);
6282 Flags.Table (N).Flag2 := Val;
6285 procedure Set_Flag3 (N : Node_Id; Val : Boolean) is
6287 pragma Assert (N <= Nodes.Last);
6288 Flags.Table (N).Flag3 := Val;
6291 procedure Set_Flag4 (N : Node_Id; Val : Boolean) is
6293 pragma Assert (N <= Nodes.Last);
6294 Nodes.Table (N).Flag4 := Val;
6297 procedure Set_Flag5 (N : Node_Id; Val : Boolean) is
6299 pragma Assert (N <= Nodes.Last);
6300 Nodes.Table (N).Flag5 := Val;
6303 procedure Set_Flag6 (N : Node_Id; Val : Boolean) is
6305 pragma Assert (N <= Nodes.Last);
6306 Nodes.Table (N).Flag6 := Val;
6309 procedure Set_Flag7 (N : Node_Id; Val : Boolean) is
6311 pragma Assert (N <= Nodes.Last);
6312 Nodes.Table (N).Flag7 := Val;
6315 procedure Set_Flag8 (N : Node_Id; Val : Boolean) is
6317 pragma Assert (N <= Nodes.Last);
6318 Nodes.Table (N).Flag8 := Val;
6321 procedure Set_Flag9 (N : Node_Id; Val : Boolean) is
6323 pragma Assert (N <= Nodes.Last);
6324 Nodes.Table (N).Flag9 := Val;
6327 procedure Set_Flag10 (N : Node_Id; Val : Boolean) is
6329 pragma Assert (N <= Nodes.Last);
6330 Nodes.Table (N).Flag10 := Val;
6333 procedure Set_Flag11 (N : Node_Id; Val : Boolean) is
6335 pragma Assert (N <= Nodes.Last);
6336 Nodes.Table (N).Flag11 := Val;
6339 procedure Set_Flag12 (N : Node_Id; Val : Boolean) is
6341 pragma Assert (N <= Nodes.Last);
6342 Nodes.Table (N).Flag12 := Val;
6345 procedure Set_Flag13 (N : Node_Id; Val : Boolean) is
6347 pragma Assert (N <= Nodes.Last);
6348 Nodes.Table (N).Flag13 := Val;
6351 procedure Set_Flag14 (N : Node_Id; Val : Boolean) is
6353 pragma Assert (N <= Nodes.Last);
6354 Nodes.Table (N).Flag14 := Val;
6357 procedure Set_Flag15 (N : Node_Id; Val : Boolean) is
6359 pragma Assert (N <= Nodes.Last);
6360 Nodes.Table (N).Flag15 := Val;
6363 procedure Set_Flag16 (N : Node_Id; Val : Boolean) is
6365 pragma Assert (N <= Nodes.Last);
6366 Nodes.Table (N).Flag16 := Val;
6369 procedure Set_Flag17 (N : Node_Id; Val : Boolean) is
6371 pragma Assert (N <= Nodes.Last);
6372 Nodes.Table (N).Flag17 := Val;
6375 procedure Set_Flag18 (N : Node_Id; Val : Boolean) is
6377 pragma Assert (N <= Nodes.Last);
6378 Nodes.Table (N).Flag18 := Val;
6381 procedure Set_Flag19 (N : Node_Id; Val : Boolean) is
6383 pragma Assert (Nkind (N) in N_Entity);
6384 Nodes.Table (N + 1).In_List := Val;
6387 procedure Set_Flag20 (N : Node_Id; Val : Boolean) is
6389 pragma Assert (Nkind (N) in N_Entity);
6390 Nodes.Table (N + 1).Has_Aspects := Val;
6393 procedure Set_Flag21 (N : Node_Id; Val : Boolean) is
6395 pragma Assert (Nkind (N) in N_Entity);
6396 Nodes.Table (N + 1).Rewrite_Ins := Val;
6399 procedure Set_Flag22 (N : Node_Id; Val : Boolean) is
6401 pragma Assert (Nkind (N) in N_Entity);
6402 Nodes.Table (N + 1).Analyzed := Val;
6405 procedure Set_Flag23 (N : Node_Id; Val : Boolean) is
6407 pragma Assert (Nkind (N) in N_Entity);
6408 Nodes.Table (N + 1).Comes_From_Source := Val;
6411 procedure Set_Flag24 (N : Node_Id; Val : Boolean) is
6413 pragma Assert (Nkind (N) in N_Entity);
6414 Nodes.Table (N + 1).Error_Posted := Val;
6417 procedure Set_Flag25 (N : Node_Id; Val : Boolean) is
6419 pragma Assert (Nkind (N) in N_Entity);
6420 Nodes.Table (N + 1).Flag4 := Val;
6423 procedure Set_Flag26 (N : Node_Id; Val : Boolean) is
6425 pragma Assert (Nkind (N) in N_Entity);
6426 Nodes.Table (N + 1).Flag5 := Val;
6429 procedure Set_Flag27 (N : Node_Id; Val : Boolean) is
6431 pragma Assert (Nkind (N) in N_Entity);
6432 Nodes.Table (N + 1).Flag6 := Val;
6435 procedure Set_Flag28 (N : Node_Id; Val : Boolean) is
6437 pragma Assert (Nkind (N) in N_Entity);
6438 Nodes.Table (N + 1).Flag7 := Val;
6441 procedure Set_Flag29 (N : Node_Id; Val : Boolean) is
6443 pragma Assert (Nkind (N) in N_Entity);
6444 Nodes.Table (N + 1).Flag8 := Val;
6447 procedure Set_Flag30 (N : Node_Id; Val : Boolean) is
6449 pragma Assert (Nkind (N) in N_Entity);
6450 Nodes.Table (N + 1).Flag9 := Val;
6453 procedure Set_Flag31 (N : Node_Id; Val : Boolean) is
6455 pragma Assert (Nkind (N) in N_Entity);
6456 Nodes.Table (N + 1).Flag10 := Val;
6459 procedure Set_Flag32 (N : Node_Id; Val : Boolean) is
6461 pragma Assert (Nkind (N) in N_Entity);
6462 Nodes.Table (N + 1).Flag11 := Val;
6465 procedure Set_Flag33 (N : Node_Id; Val : Boolean) is
6467 pragma Assert (Nkind (N) in N_Entity);
6468 Nodes.Table (N + 1).Flag12 := Val;
6471 procedure Set_Flag34 (N : Node_Id; Val : Boolean) is
6473 pragma Assert (Nkind (N) in N_Entity);
6474 Nodes.Table (N + 1).Flag13 := Val;
6477 procedure Set_Flag35 (N : Node_Id; Val : Boolean) is
6479 pragma Assert (Nkind (N) in N_Entity);
6480 Nodes.Table (N + 1).Flag14 := Val;
6483 procedure Set_Flag36 (N : Node_Id; Val : Boolean) is
6485 pragma Assert (Nkind (N) in N_Entity);
6486 Nodes.Table (N + 1).Flag15 := Val;
6489 procedure Set_Flag37 (N : Node_Id; Val : Boolean) is
6491 pragma Assert (Nkind (N) in N_Entity);
6492 Nodes.Table (N + 1).Flag16 := Val;
6495 procedure Set_Flag38 (N : Node_Id; Val : Boolean) is
6497 pragma Assert (Nkind (N) in N_Entity);
6498 Nodes.Table (N + 1).Flag17 := Val;
6501 procedure Set_Flag39 (N : Node_Id; Val : Boolean) is
6503 pragma Assert (Nkind (N) in N_Entity);
6504 Nodes.Table (N + 1).Flag18 := Val;
6507 procedure Set_Flag40 (N : Node_Id; Val : Boolean) is
6509 pragma Assert (Nkind (N) in N_Entity);
6510 Nodes.Table (N + 2).In_List := Val;
6513 procedure Set_Flag41 (N : Node_Id; Val : Boolean) is
6515 pragma Assert (Nkind (N) in N_Entity);
6516 Nodes.Table (N + 2).Has_Aspects := Val;
6519 procedure Set_Flag42 (N : Node_Id; Val : Boolean) is
6521 pragma Assert (Nkind (N) in N_Entity);
6522 Nodes.Table (N + 2).Rewrite_Ins := Val;
6525 procedure Set_Flag43 (N : Node_Id; Val : Boolean) is
6527 pragma Assert (Nkind (N) in N_Entity);
6528 Nodes.Table (N + 2).Analyzed := Val;
6531 procedure Set_Flag44 (N : Node_Id; Val : Boolean) is
6533 pragma Assert (Nkind (N) in N_Entity);
6534 Nodes.Table (N + 2).Comes_From_Source := Val;
6537 procedure Set_Flag45 (N : Node_Id; Val : Boolean) is
6539 pragma Assert (Nkind (N) in N_Entity);
6540 Nodes.Table (N + 2).Error_Posted := Val;
6543 procedure Set_Flag46 (N : Node_Id; Val : Boolean) is
6545 pragma Assert (Nkind (N) in N_Entity);
6546 Nodes.Table (N + 2).Flag4 := Val;
6549 procedure Set_Flag47 (N : Node_Id; Val : Boolean) is
6551 pragma Assert (Nkind (N) in N_Entity);
6552 Nodes.Table (N + 2).Flag5 := Val;
6555 procedure Set_Flag48 (N : Node_Id; Val : Boolean) is
6557 pragma Assert (Nkind (N) in N_Entity);
6558 Nodes.Table (N + 2).Flag6 := Val;
6561 procedure Set_Flag49 (N : Node_Id; Val : Boolean) is
6563 pragma Assert (Nkind (N) in N_Entity);
6564 Nodes.Table (N + 2).Flag7 := Val;
6567 procedure Set_Flag50 (N : Node_Id; Val : Boolean) is
6569 pragma Assert (Nkind (N) in N_Entity);
6570 Nodes.Table (N + 2).Flag8 := Val;
6573 procedure Set_Flag51 (N : Node_Id; Val : Boolean) is
6575 pragma Assert (Nkind (N) in N_Entity);
6576 Nodes.Table (N + 2).Flag9 := Val;
6579 procedure Set_Flag52 (N : Node_Id; Val : Boolean) is
6581 pragma Assert (Nkind (N) in N_Entity);
6582 Nodes.Table (N + 2).Flag10 := Val;
6585 procedure Set_Flag53 (N : Node_Id; Val : Boolean) is
6587 pragma Assert (Nkind (N) in N_Entity);
6588 Nodes.Table (N + 2).Flag11 := Val;
6591 procedure Set_Flag54 (N : Node_Id; Val : Boolean) is
6593 pragma Assert (Nkind (N) in N_Entity);
6594 Nodes.Table (N + 2).Flag12 := Val;
6597 procedure Set_Flag55 (N : Node_Id; Val : Boolean) is
6599 pragma Assert (Nkind (N) in N_Entity);
6600 Nodes.Table (N + 2).Flag13 := Val;
6603 procedure Set_Flag56 (N : Node_Id; Val : Boolean) is
6605 pragma Assert (Nkind (N) in N_Entity);
6606 Nodes.Table (N + 2).Flag14 := Val;
6609 procedure Set_Flag57 (N : Node_Id; Val : Boolean) is
6611 pragma Assert (Nkind (N) in N_Entity);
6612 Nodes.Table (N + 2).Flag15 := Val;
6615 procedure Set_Flag58 (N : Node_Id; Val : Boolean) is
6617 pragma Assert (Nkind (N) in N_Entity);
6618 Nodes.Table (N + 2).Flag16 := Val;
6621 procedure Set_Flag59 (N : Node_Id; Val : Boolean) is
6623 pragma Assert (Nkind (N) in N_Entity);
6624 Nodes.Table (N + 2).Flag17 := Val;
6627 procedure Set_Flag60 (N : Node_Id; Val : Boolean) is
6629 pragma Assert (Nkind (N) in N_Entity);
6630 Nodes.Table (N + 2).Flag18 := Val;
6633 procedure Set_Flag61 (N : Node_Id; Val : Boolean) is
6635 pragma Assert (Nkind (N) in N_Entity);
6636 Nodes.Table (N + 1).Pflag1 := Val;
6639 procedure Set_Flag62 (N : Node_Id; Val : Boolean) is
6641 pragma Assert (Nkind (N) in N_Entity);
6642 Nodes.Table (N + 1).Pflag2 := Val;
6645 procedure Set_Flag63 (N : Node_Id; Val : Boolean) is
6647 pragma Assert (Nkind (N) in N_Entity);
6648 Nodes.Table (N + 2).Pflag1 := Val;
6651 procedure Set_Flag64 (N : Node_Id; Val : Boolean) is
6653 pragma Assert (Nkind (N) in N_Entity);
6654 Nodes.Table (N + 2).Pflag2 := Val;
6657 procedure Set_Flag65 (N : Node_Id; Val : Boolean) is
6659 pragma Assert (Nkind (N) in N_Entity);
6662 (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag65 := Val;
6665 procedure Set_Flag66 (N : Node_Id; Val : Boolean) is
6667 pragma Assert (Nkind (N) in N_Entity);
6670 (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag66 := Val;
6673 procedure Set_Flag67 (N : Node_Id; Val : Boolean) is
6675 pragma Assert (Nkind (N) in N_Entity);
6678 (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag67 := Val;
6681 procedure Set_Flag68 (N : Node_Id; Val : Boolean) is
6683 pragma Assert (Nkind (N) in N_Entity);
6686 (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag68 := Val;
6689 procedure Set_Flag69 (N : Node_Id; Val : Boolean) is
6691 pragma Assert (Nkind (N) in N_Entity);
6694 (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag69 := Val;
6697 procedure Set_Flag70 (N : Node_Id; Val : Boolean) is
6699 pragma Assert (Nkind (N) in N_Entity);
6702 (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag70 := Val;
6705 procedure Set_Flag71 (N : Node_Id; Val : Boolean) is
6707 pragma Assert (Nkind (N) in N_Entity);
6710 (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag71 := Val;
6713 procedure Set_Flag72 (N : Node_Id; Val : Boolean) is
6715 pragma Assert (Nkind (N) in N_Entity);
6718 (Nodes.Table (N + 2).Nkind'Unrestricted_Access)).Flag72 := Val;
6721 procedure Set_Flag73 (N : Node_Id; Val : Boolean) is
6723 pragma Assert (Nkind (N) in N_Entity);
6726 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag73 := Val;
6729 procedure Set_Flag74 (N : Node_Id; Val : Boolean) is
6731 pragma Assert (Nkind (N) in N_Entity);
6734 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag74 := Val;
6737 procedure Set_Flag75 (N : Node_Id; Val : Boolean) is
6739 pragma Assert (Nkind (N) in N_Entity);
6742 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag75 := Val;
6745 procedure Set_Flag76 (N : Node_Id; Val : Boolean) is
6747 pragma Assert (Nkind (N) in N_Entity);
6750 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag76 := Val;
6753 procedure Set_Flag77 (N : Node_Id; Val : Boolean) is
6755 pragma Assert (Nkind (N) in N_Entity);
6758 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag77 := Val;
6761 procedure Set_Flag78 (N : Node_Id; Val : Boolean) is
6763 pragma Assert (Nkind (N) in N_Entity);
6766 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag78 := Val;
6769 procedure Set_Flag79 (N : Node_Id; Val : Boolean) is
6771 pragma Assert (Nkind (N) in N_Entity);
6774 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag79 := Val;
6777 procedure Set_Flag80 (N : Node_Id; Val : Boolean) is
6779 pragma Assert (Nkind (N) in N_Entity);
6782 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag80 := Val;
6785 procedure Set_Flag81 (N : Node_Id; Val : Boolean) is
6787 pragma Assert (Nkind (N) in N_Entity);
6790 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag81 := Val;
6793 procedure Set_Flag82 (N : Node_Id; Val : Boolean) is
6795 pragma Assert (Nkind (N) in N_Entity);
6798 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag82 := Val;
6801 procedure Set_Flag83 (N : Node_Id; Val : Boolean) is
6803 pragma Assert (Nkind (N) in N_Entity);
6806 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag83 := Val;
6809 procedure Set_Flag84 (N : Node_Id; Val : Boolean) is
6811 pragma Assert (Nkind (N) in N_Entity);
6814 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag84 := Val;
6817 procedure Set_Flag85 (N : Node_Id; Val : Boolean) is
6819 pragma Assert (Nkind (N) in N_Entity);
6822 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag85 := Val;
6825 procedure Set_Flag86 (N : Node_Id; Val : Boolean) is
6827 pragma Assert (Nkind (N) in N_Entity);
6830 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag86 := Val;
6833 procedure Set_Flag87 (N : Node_Id; Val : Boolean) is
6835 pragma Assert (Nkind (N) in N_Entity);
6838 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag87 := Val;
6841 procedure Set_Flag88 (N : Node_Id; Val : Boolean) is
6843 pragma Assert (Nkind (N) in N_Entity);
6846 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag88 := Val;
6849 procedure Set_Flag89 (N : Node_Id; Val : Boolean) is
6851 pragma Assert (Nkind (N) in N_Entity);
6854 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag89 := Val;
6857 procedure Set_Flag90 (N : Node_Id; Val : Boolean) is
6859 pragma Assert (Nkind (N) in N_Entity);
6862 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag90 := Val;
6865 procedure Set_Flag91 (N : Node_Id; Val : Boolean) is
6867 pragma Assert (Nkind (N) in N_Entity);
6870 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag91 := Val;
6873 procedure Set_Flag92 (N : Node_Id; Val : Boolean) is
6875 pragma Assert (Nkind (N) in N_Entity);
6878 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag92 := Val;
6881 procedure Set_Flag93 (N : Node_Id; Val : Boolean) is
6883 pragma Assert (Nkind (N) in N_Entity);
6886 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag93 := Val;
6889 procedure Set_Flag94 (N : Node_Id; Val : Boolean) is
6891 pragma Assert (Nkind (N) in N_Entity);
6894 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag94 := Val;
6897 procedure Set_Flag95 (N : Node_Id; Val : Boolean) is
6899 pragma Assert (Nkind (N) in N_Entity);
6902 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag95 := Val;
6905 procedure Set_Flag96 (N : Node_Id; Val : Boolean) is
6907 pragma Assert (Nkind (N) in N_Entity);
6910 (Nodes.Table (N + 2).Field12'Unrestricted_Access)).Flag96 := Val;
6913 procedure Set_Flag97 (N : Node_Id; Val : Boolean) is
6915 pragma Assert (Nkind (N) in N_Entity);
6918 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag97 := Val;
6921 procedure Set_Flag98 (N : Node_Id; Val : Boolean) is
6923 pragma Assert (Nkind (N) in N_Entity);
6926 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag98 := Val;
6929 procedure Set_Flag99 (N : Node_Id; Val : Boolean) is
6931 pragma Assert (Nkind (N) in N_Entity);
6934 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag99 := Val;
6937 procedure Set_Flag100 (N : Node_Id; Val : Boolean) is
6939 pragma Assert (Nkind (N) in N_Entity);
6942 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag100 := Val;
6945 procedure Set_Flag101 (N : Node_Id; Val : Boolean) is
6947 pragma Assert (Nkind (N) in N_Entity);
6950 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag101 := Val;
6953 procedure Set_Flag102 (N : Node_Id; Val : Boolean) is
6955 pragma Assert (Nkind (N) in N_Entity);
6958 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag102 := Val;
6961 procedure Set_Flag103 (N : Node_Id; Val : Boolean) is
6963 pragma Assert (Nkind (N) in N_Entity);
6966 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag103 := Val;
6969 procedure Set_Flag104 (N : Node_Id; Val : Boolean) is
6971 pragma Assert (Nkind (N) in N_Entity);
6974 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag104 := Val;
6977 procedure Set_Flag105 (N : Node_Id; Val : Boolean) is
6979 pragma Assert (Nkind (N) in N_Entity);
6982 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag105 := Val;
6985 procedure Set_Flag106 (N : Node_Id; Val : Boolean) is
6987 pragma Assert (Nkind (N) in N_Entity);
6990 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag106 := Val;
6993 procedure Set_Flag107 (N : Node_Id; Val : Boolean) is
6995 pragma Assert (Nkind (N) in N_Entity);
6998 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag107 := Val;
7001 procedure Set_Flag108 (N : Node_Id; Val : Boolean) is
7003 pragma Assert (Nkind (N) in N_Entity);
7006 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag108 := Val;
7009 procedure Set_Flag109 (N : Node_Id; Val : Boolean) is
7011 pragma Assert (Nkind (N) in N_Entity);
7014 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag109 := Val;
7017 procedure Set_Flag110 (N : Node_Id; Val : Boolean) is
7019 pragma Assert (Nkind (N) in N_Entity);
7022 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag110 := Val;
7025 procedure Set_Flag111 (N : Node_Id; Val : Boolean) is
7027 pragma Assert (Nkind (N) in N_Entity);
7030 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag111 := Val;
7033 procedure Set_Flag112 (N : Node_Id; Val : Boolean) is
7035 pragma Assert (Nkind (N) in N_Entity);
7038 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag112 := Val;
7041 procedure Set_Flag113 (N : Node_Id; Val : Boolean) is
7043 pragma Assert (Nkind (N) in N_Entity);
7046 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag113 := Val;
7049 procedure Set_Flag114 (N : Node_Id; Val : Boolean) is
7051 pragma Assert (Nkind (N) in N_Entity);
7054 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag114 := Val;
7057 procedure Set_Flag115 (N : Node_Id; Val : Boolean) is
7059 pragma Assert (Nkind (N) in N_Entity);
7062 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag115 := Val;
7065 procedure Set_Flag116 (N : Node_Id; Val : Boolean) is
7067 pragma Assert (Nkind (N) in N_Entity);
7070 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag116 := Val;
7073 procedure Set_Flag117 (N : Node_Id; Val : Boolean) is
7075 pragma Assert (Nkind (N) in N_Entity);
7078 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag117 := Val;
7081 procedure Set_Flag118 (N : Node_Id; Val : Boolean) is
7083 pragma Assert (Nkind (N) in N_Entity);
7086 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag118 := Val;
7089 procedure Set_Flag119 (N : Node_Id; Val : Boolean) is
7091 pragma Assert (Nkind (N) in N_Entity);
7094 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag119 := Val;
7097 procedure Set_Flag120 (N : Node_Id; Val : Boolean) is
7099 pragma Assert (Nkind (N) in N_Entity);
7102 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag120 := Val;
7105 procedure Set_Flag121 (N : Node_Id; Val : Boolean) is
7107 pragma Assert (Nkind (N) in N_Entity);
7110 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag121 := Val;
7113 procedure Set_Flag122 (N : Node_Id; Val : Boolean) is
7115 pragma Assert (Nkind (N) in N_Entity);
7118 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag122 := Val;
7121 procedure Set_Flag123 (N : Node_Id; Val : Boolean) is
7123 pragma Assert (Nkind (N) in N_Entity);
7126 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag123 := Val;
7129 procedure Set_Flag124 (N : Node_Id; Val : Boolean) is
7131 pragma Assert (Nkind (N) in N_Entity);
7134 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag124 := Val;
7137 procedure Set_Flag125 (N : Node_Id; Val : Boolean) is
7139 pragma Assert (Nkind (N) in N_Entity);
7142 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag125 := Val;
7145 procedure Set_Flag126 (N : Node_Id; Val : Boolean) is
7147 pragma Assert (Nkind (N) in N_Entity);
7150 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag126 := Val;
7153 procedure Set_Flag127 (N : Node_Id; Val : Boolean) is
7155 pragma Assert (Nkind (N) in N_Entity);
7158 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag127 := Val;
7161 procedure Set_Flag128 (N : Node_Id; Val : Boolean) is
7163 pragma Assert (Nkind (N) in N_Entity);
7166 (Nodes.Table (N + 3).Field12'Unrestricted_Access)).Flag128 := Val;
7169 procedure Set_Flag129 (N : Node_Id; Val : Boolean) is
7171 pragma Assert (Nkind (N) in N_Entity);
7172 Nodes.Table (N + 3).In_List := Val;
7175 procedure Set_Flag130 (N : Node_Id; Val : Boolean) is
7177 pragma Assert (Nkind (N) in N_Entity);
7178 Nodes.Table (N + 3).Has_Aspects := Val;
7181 procedure Set_Flag131 (N : Node_Id; Val : Boolean) is
7183 pragma Assert (Nkind (N) in N_Entity);
7184 Nodes.Table (N + 3).Rewrite_Ins := Val;
7187 procedure Set_Flag132 (N : Node_Id; Val : Boolean) is
7189 pragma Assert (Nkind (N) in N_Entity);
7190 Nodes.Table (N + 3).Analyzed := Val;
7193 procedure Set_Flag133 (N : Node_Id; Val : Boolean) is
7195 pragma Assert (Nkind (N) in N_Entity);
7196 Nodes.Table (N + 3).Comes_From_Source := Val;
7199 procedure Set_Flag134 (N : Node_Id; Val : Boolean) is
7201 pragma Assert (Nkind (N) in N_Entity);
7202 Nodes.Table (N + 3).Error_Posted := Val;
7205 procedure Set_Flag135 (N : Node_Id; Val : Boolean) is
7207 pragma Assert (Nkind (N) in N_Entity);
7208 Nodes.Table (N + 3).Flag4 := Val;
7211 procedure Set_Flag136 (N : Node_Id; Val : Boolean) is
7213 pragma Assert (Nkind (N) in N_Entity);
7214 Nodes.Table (N + 3).Flag5 := Val;
7217 procedure Set_Flag137 (N : Node_Id; Val : Boolean) is
7219 pragma Assert (Nkind (N) in N_Entity);
7220 Nodes.Table (N + 3).Flag6 := Val;
7223 procedure Set_Flag138 (N : Node_Id; Val : Boolean) is
7225 pragma Assert (Nkind (N) in N_Entity);
7226 Nodes.Table (N + 3).Flag7 := Val;
7229 procedure Set_Flag139 (N : Node_Id; Val : Boolean) is
7231 pragma Assert (Nkind (N) in N_Entity);
7232 Nodes.Table (N + 3).Flag8 := Val;
7235 procedure Set_Flag140 (N : Node_Id; Val : Boolean) is
7237 pragma Assert (Nkind (N) in N_Entity);
7238 Nodes.Table (N + 3).Flag9 := Val;
7241 procedure Set_Flag141 (N : Node_Id; Val : Boolean) is
7243 pragma Assert (Nkind (N) in N_Entity);
7244 Nodes.Table (N + 3).Flag10 := Val;
7247 procedure Set_Flag142 (N : Node_Id; Val : Boolean) is
7249 pragma Assert (Nkind (N) in N_Entity);
7250 Nodes.Table (N + 3).Flag11 := Val;
7253 procedure Set_Flag143 (N : Node_Id; Val : Boolean) is
7255 pragma Assert (Nkind (N) in N_Entity);
7256 Nodes.Table (N + 3).Flag12 := Val;
7259 procedure Set_Flag144 (N : Node_Id; Val : Boolean) is
7261 pragma Assert (Nkind (N) in N_Entity);
7262 Nodes.Table (N + 3).Flag13 := Val;
7265 procedure Set_Flag145 (N : Node_Id; Val : Boolean) is
7267 pragma Assert (Nkind (N) in N_Entity);
7268 Nodes.Table (N + 3).Flag14 := Val;
7271 procedure Set_Flag146 (N : Node_Id; Val : Boolean) is
7273 pragma Assert (Nkind (N) in N_Entity);
7274 Nodes.Table (N + 3).Flag15 := Val;
7277 procedure Set_Flag147 (N : Node_Id; Val : Boolean) is
7279 pragma Assert (Nkind (N) in N_Entity);
7280 Nodes.Table (N + 3).Flag16 := Val;
7283 procedure Set_Flag148 (N : Node_Id; Val : Boolean) is
7285 pragma Assert (Nkind (N) in N_Entity);
7286 Nodes.Table (N + 3).Flag17 := Val;
7289 procedure Set_Flag149 (N : Node_Id; Val : Boolean) is
7291 pragma Assert (Nkind (N) in N_Entity);
7292 Nodes.Table (N + 3).Flag18 := Val;
7295 procedure Set_Flag150 (N : Node_Id; Val : Boolean) is
7297 pragma Assert (Nkind (N) in N_Entity);
7298 Nodes.Table (N + 3).Pflag1 := Val;
7301 procedure Set_Flag151 (N : Node_Id; Val : Boolean) is
7303 pragma Assert (Nkind (N) in N_Entity);
7304 Nodes.Table (N + 3).Pflag2 := Val;
7307 procedure Set_Flag152 (N : Node_Id; Val : Boolean) is
7309 pragma Assert (Nkind (N) in N_Entity);
7312 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag152 := Val;
7315 procedure Set_Flag153 (N : Node_Id; Val : Boolean) is
7317 pragma Assert (Nkind (N) in N_Entity);
7320 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag153 := Val;
7323 procedure Set_Flag154 (N : Node_Id; Val : Boolean) is
7325 pragma Assert (Nkind (N) in N_Entity);
7328 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag154 := Val;
7331 procedure Set_Flag155 (N : Node_Id; Val : Boolean) is
7333 pragma Assert (Nkind (N) in N_Entity);
7336 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag155 := Val;
7339 procedure Set_Flag156 (N : Node_Id; Val : Boolean) is
7341 pragma Assert (Nkind (N) in N_Entity);
7344 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag156 := Val;
7347 procedure Set_Flag157 (N : Node_Id; Val : Boolean) is
7349 pragma Assert (Nkind (N) in N_Entity);
7352 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag157 := Val;
7355 procedure Set_Flag158 (N : Node_Id; Val : Boolean) is
7357 pragma Assert (Nkind (N) in N_Entity);
7360 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag158 := Val;
7363 procedure Set_Flag159 (N : Node_Id; Val : Boolean) is
7365 pragma Assert (Nkind (N) in N_Entity);
7368 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag159 := Val;
7371 procedure Set_Flag160 (N : Node_Id; Val : Boolean) is
7373 pragma Assert (Nkind (N) in N_Entity);
7376 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag160 := Val;
7379 procedure Set_Flag161 (N : Node_Id; Val : Boolean) is
7381 pragma Assert (Nkind (N) in N_Entity);
7384 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag161 := Val;
7387 procedure Set_Flag162 (N : Node_Id; Val : Boolean) is
7389 pragma Assert (Nkind (N) in N_Entity);
7392 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag162 := Val;
7395 procedure Set_Flag163 (N : Node_Id; Val : Boolean) is
7397 pragma Assert (Nkind (N) in N_Entity);
7400 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag163 := Val;
7403 procedure Set_Flag164 (N : Node_Id; Val : Boolean) is
7405 pragma Assert (Nkind (N) in N_Entity);
7408 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag164 := Val;
7411 procedure Set_Flag165 (N : Node_Id; Val : Boolean) is
7413 pragma Assert (Nkind (N) in N_Entity);
7416 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag165 := Val;
7419 procedure Set_Flag166 (N : Node_Id; Val : Boolean) is
7421 pragma Assert (Nkind (N) in N_Entity);
7424 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag166 := Val;
7427 procedure Set_Flag167 (N : Node_Id; Val : Boolean) is
7429 pragma Assert (Nkind (N) in N_Entity);
7432 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag167 := Val;
7435 procedure Set_Flag168 (N : Node_Id; Val : Boolean) is
7437 pragma Assert (Nkind (N) in N_Entity);
7440 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag168 := Val;
7443 procedure Set_Flag169 (N : Node_Id; Val : Boolean) is
7445 pragma Assert (Nkind (N) in N_Entity);
7448 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag169 := Val;
7451 procedure Set_Flag170 (N : Node_Id; Val : Boolean) is
7453 pragma Assert (Nkind (N) in N_Entity);
7456 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag170 := Val;
7459 procedure Set_Flag171 (N : Node_Id; Val : Boolean) is
7461 pragma Assert (Nkind (N) in N_Entity);
7464 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag171 := Val;
7467 procedure Set_Flag172 (N : Node_Id; Val : Boolean) is
7469 pragma Assert (Nkind (N) in N_Entity);
7472 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag172 := Val;
7475 procedure Set_Flag173 (N : Node_Id; Val : Boolean) is
7477 pragma Assert (Nkind (N) in N_Entity);
7480 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag173 := Val;
7483 procedure Set_Flag174 (N : Node_Id; Val : Boolean) is
7485 pragma Assert (Nkind (N) in N_Entity);
7488 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag174 := Val;
7491 procedure Set_Flag175 (N : Node_Id; Val : Boolean) is
7493 pragma Assert (Nkind (N) in N_Entity);
7496 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag175 := Val;
7499 procedure Set_Flag176 (N : Node_Id; Val : Boolean) is
7501 pragma Assert (Nkind (N) in N_Entity);
7504 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag176 := Val;
7507 procedure Set_Flag177 (N : Node_Id; Val : Boolean) is
7509 pragma Assert (Nkind (N) in N_Entity);
7512 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag177 := Val;
7515 procedure Set_Flag178 (N : Node_Id; Val : Boolean) is
7517 pragma Assert (Nkind (N) in N_Entity);
7520 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag178 := Val;
7523 procedure Set_Flag179 (N : Node_Id; Val : Boolean) is
7525 pragma Assert (Nkind (N) in N_Entity);
7528 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag179 := Val;
7531 procedure Set_Flag180 (N : Node_Id; Val : Boolean) is
7533 pragma Assert (Nkind (N) in N_Entity);
7536 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag180 := Val;
7539 procedure Set_Flag181 (N : Node_Id; Val : Boolean) is
7541 pragma Assert (Nkind (N) in N_Entity);
7544 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag181 := Val;
7547 procedure Set_Flag182 (N : Node_Id; Val : Boolean) is
7549 pragma Assert (Nkind (N) in N_Entity);
7552 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag182 := Val;
7555 procedure Set_Flag183 (N : Node_Id; Val : Boolean) is
7557 pragma Assert (Nkind (N) in N_Entity);
7560 (Nodes.Table (N + 3).Field11'Unrestricted_Access)).Flag183 := Val;
7563 procedure Set_Flag184 (N : Node_Id; Val : Boolean) is
7565 pragma Assert (Nkind (N) in N_Entity);
7568 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag184 := Val;
7571 procedure Set_Flag185 (N : Node_Id; Val : Boolean) is
7573 pragma Assert (Nkind (N) in N_Entity);
7576 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag185 := Val;
7579 procedure Set_Flag186 (N : Node_Id; Val : Boolean) is
7581 pragma Assert (Nkind (N) in N_Entity);
7584 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag186 := Val;
7587 procedure Set_Flag187 (N : Node_Id; Val : Boolean) is
7589 pragma Assert (Nkind (N) in N_Entity);
7592 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag187 := Val;
7595 procedure Set_Flag188 (N : Node_Id; Val : Boolean) is
7597 pragma Assert (Nkind (N) in N_Entity);
7600 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag188 := Val;
7603 procedure Set_Flag189 (N : Node_Id; Val : Boolean) is
7605 pragma Assert (Nkind (N) in N_Entity);
7608 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag189 := Val;
7611 procedure Set_Flag190 (N : Node_Id; Val : Boolean) is
7613 pragma Assert (Nkind (N) in N_Entity);
7616 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag190 := Val;
7619 procedure Set_Flag191 (N : Node_Id; Val : Boolean) is
7621 pragma Assert (Nkind (N) in N_Entity);
7624 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag191 := Val;
7627 procedure Set_Flag192 (N : Node_Id; Val : Boolean) is
7629 pragma Assert (Nkind (N) in N_Entity);
7632 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag192 := Val;
7635 procedure Set_Flag193 (N : Node_Id; Val : Boolean) is
7637 pragma Assert (Nkind (N) in N_Entity);
7640 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag193 := Val;
7643 procedure Set_Flag194 (N : Node_Id; Val : Boolean) is
7645 pragma Assert (Nkind (N) in N_Entity);
7648 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag194 := Val;
7651 procedure Set_Flag195 (N : Node_Id; Val : Boolean) is
7653 pragma Assert (Nkind (N) in N_Entity);
7656 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag195 := Val;
7659 procedure Set_Flag196 (N : Node_Id; Val : Boolean) is
7661 pragma Assert (Nkind (N) in N_Entity);
7664 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag196 := Val;
7667 procedure Set_Flag197 (N : Node_Id; Val : Boolean) is
7669 pragma Assert (Nkind (N) in N_Entity);
7672 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag197 := Val;
7675 procedure Set_Flag198 (N : Node_Id; Val : Boolean) is
7677 pragma Assert (Nkind (N) in N_Entity);
7680 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag198 := Val;
7683 procedure Set_Flag199 (N : Node_Id; Val : Boolean) is
7685 pragma Assert (Nkind (N) in N_Entity);
7688 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag199 := Val;
7691 procedure Set_Flag200 (N : Node_Id; Val : Boolean) is
7693 pragma Assert (Nkind (N) in N_Entity);
7696 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag200 := Val;
7699 procedure Set_Flag201 (N : Node_Id; Val : Boolean) is
7701 pragma Assert (Nkind (N) in N_Entity);
7704 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag201 := Val;
7707 procedure Set_Flag202 (N : Node_Id; Val : Boolean) is
7709 pragma Assert (Nkind (N) in N_Entity);
7712 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag202 := Val;
7715 procedure Set_Flag203 (N : Node_Id; Val : Boolean) is
7717 pragma Assert (Nkind (N) in N_Entity);
7720 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag203 := Val;
7723 procedure Set_Flag204 (N : Node_Id; Val : Boolean) is
7725 pragma Assert (Nkind (N) in N_Entity);
7728 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag204 := Val;
7731 procedure Set_Flag205 (N : Node_Id; Val : Boolean) is
7733 pragma Assert (Nkind (N) in N_Entity);
7736 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag205 := Val;
7739 procedure Set_Flag206 (N : Node_Id; Val : Boolean) is
7741 pragma Assert (Nkind (N) in N_Entity);
7744 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag206 := Val;
7747 procedure Set_Flag207 (N : Node_Id; Val : Boolean) is
7749 pragma Assert (Nkind (N) in N_Entity);
7752 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag207 := Val;
7755 procedure Set_Flag208 (N : Node_Id; Val : Boolean) is
7757 pragma Assert (Nkind (N) in N_Entity);
7760 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag208 := Val;
7763 procedure Set_Flag209 (N : Node_Id; Val : Boolean) is
7765 pragma Assert (Nkind (N) in N_Entity);
7768 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag209 := Val;
7771 procedure Set_Flag210 (N : Node_Id; Val : Boolean) is
7773 pragma Assert (Nkind (N) in N_Entity);
7776 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag210 := Val;
7779 procedure Set_Flag211 (N : Node_Id; Val : Boolean) is
7781 pragma Assert (Nkind (N) in N_Entity);
7784 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag211 := Val;
7787 procedure Set_Flag212 (N : Node_Id; Val : Boolean) is
7789 pragma Assert (Nkind (N) in N_Entity);
7792 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag212 := Val;
7795 procedure Set_Flag213 (N : Node_Id; Val : Boolean) is
7797 pragma Assert (Nkind (N) in N_Entity);
7800 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag213 := Val;
7803 procedure Set_Flag214 (N : Node_Id; Val : Boolean) is
7805 pragma Assert (Nkind (N) in N_Entity);
7808 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag214 := Val;
7811 procedure Set_Flag215 (N : Node_Id; Val : Boolean) is
7813 pragma Assert (Nkind (N) in N_Entity);
7816 (Nodes.Table (N + 4).Field12'Unrestricted_Access)).Flag215 := Val;
7819 procedure Set_Flag216 (N : Node_Id; Val : Boolean) is
7821 pragma Assert (Nkind (N) in N_Entity);
7822 Nodes.Table (N + 4).In_List := Val;
7825 procedure Set_Flag217 (N : Node_Id; Val : Boolean) is
7827 pragma Assert (Nkind (N) in N_Entity);
7828 Nodes.Table (N + 4).Has_Aspects := Val;
7831 procedure Set_Flag218 (N : Node_Id; Val : Boolean) is
7833 pragma Assert (Nkind (N) in N_Entity);
7834 Nodes.Table (N + 4).Rewrite_Ins := Val;
7837 procedure Set_Flag219 (N : Node_Id; Val : Boolean) is
7839 pragma Assert (Nkind (N) in N_Entity);
7840 Nodes.Table (N + 4).Analyzed := Val;
7843 procedure Set_Flag220 (N : Node_Id; Val : Boolean) is
7845 pragma Assert (Nkind (N) in N_Entity);
7846 Nodes.Table (N + 4).Comes_From_Source := Val;
7849 procedure Set_Flag221 (N : Node_Id; Val : Boolean) is
7851 pragma Assert (Nkind (N) in N_Entity);
7852 Nodes.Table (N + 4).Error_Posted := Val;
7855 procedure Set_Flag222 (N : Node_Id; Val : Boolean) is
7857 pragma Assert (Nkind (N) in N_Entity);
7858 Nodes.Table (N + 4).Flag4 := Val;
7861 procedure Set_Flag223 (N : Node_Id; Val : Boolean) is
7863 pragma Assert (Nkind (N) in N_Entity);
7864 Nodes.Table (N + 4).Flag5 := Val;
7867 procedure Set_Flag224 (N : Node_Id; Val : Boolean) is
7869 pragma Assert (Nkind (N) in N_Entity);
7870 Nodes.Table (N + 4).Flag6 := Val;
7873 procedure Set_Flag225 (N : Node_Id; Val : Boolean) is
7875 pragma Assert (Nkind (N) in N_Entity);
7876 Nodes.Table (N + 4).Flag7 := Val;
7879 procedure Set_Flag226 (N : Node_Id; Val : Boolean) is
7881 pragma Assert (Nkind (N) in N_Entity);
7882 Nodes.Table (N + 4).Flag8 := Val;
7885 procedure Set_Flag227 (N : Node_Id; Val : Boolean) is
7887 pragma Assert (Nkind (N) in N_Entity);
7888 Nodes.Table (N + 4).Flag9 := Val;
7891 procedure Set_Flag228 (N : Node_Id; Val : Boolean) is
7893 pragma Assert (Nkind (N) in N_Entity);
7894 Nodes.Table (N + 4).Flag10 := Val;
7897 procedure Set_Flag229 (N : Node_Id; Val : Boolean) is
7899 pragma Assert (Nkind (N) in N_Entity);
7900 Nodes.Table (N + 4).Flag11 := Val;
7903 procedure Set_Flag230 (N : Node_Id; Val : Boolean) is
7905 pragma Assert (Nkind (N) in N_Entity);
7906 Nodes.Table (N + 4).Flag12 := Val;
7909 procedure Set_Flag231 (N : Node_Id; Val : Boolean) is
7911 pragma Assert (Nkind (N) in N_Entity);
7912 Nodes.Table (N + 4).Flag13 := Val;
7915 procedure Set_Flag232 (N : Node_Id; Val : Boolean) is
7917 pragma Assert (Nkind (N) in N_Entity);
7918 Nodes.Table (N + 4).Flag14 := Val;
7921 procedure Set_Flag233 (N : Node_Id; Val : Boolean) is
7923 pragma Assert (Nkind (N) in N_Entity);
7924 Nodes.Table (N + 4).Flag15 := Val;
7927 procedure Set_Flag234 (N : Node_Id; Val : Boolean) is
7929 pragma Assert (Nkind (N) in N_Entity);
7930 Nodes.Table (N + 4).Flag16 := Val;
7933 procedure Set_Flag235 (N : Node_Id; Val : Boolean) is
7935 pragma Assert (Nkind (N) in N_Entity);
7936 Nodes.Table (N + 4).Flag17 := Val;
7939 procedure Set_Flag236 (N : Node_Id; Val : Boolean) is
7941 pragma Assert (Nkind (N) in N_Entity);
7942 Nodes.Table (N + 4).Flag18 := Val;
7945 procedure Set_Flag237 (N : Node_Id; Val : Boolean) is
7947 pragma Assert (Nkind (N) in N_Entity);
7948 Nodes.Table (N + 4).Pflag1 := Val;
7951 procedure Set_Flag238 (N : Node_Id; Val : Boolean) is
7953 pragma Assert (Nkind (N) in N_Entity);
7954 Nodes.Table (N + 4).Pflag2 := Val;
7957 procedure Set_Flag239 (N : Node_Id; Val : Boolean) is
7959 pragma Assert (Nkind (N) in N_Entity);
7962 (Nodes.Table (N + 3).Nkind'Unrestricted_Access)).Flag239 := Val;
7965 procedure Set_Flag240 (N : Node_Id; Val : Boolean) is
7967 pragma Assert (Nkind (N) in N_Entity);
7970 (Nodes.Table (N + 3).Nkind'Unrestricted_Access)).Flag240 := Val;
7973 procedure Set_Flag241 (N : Node_Id; Val : Boolean) is
7975 pragma Assert (Nkind (N) in N_Entity);
7978 (Nodes.Table (N + 3).Nkind'Unrestricted_Access)).Flag241 := Val;
7981 procedure Set_Flag242 (N : Node_Id; Val : Boolean) is
7983 pragma Assert (Nkind (N) in N_Entity);
7986 (Nodes.Table (N + 3).Nkind'Unrestricted_Access)).Flag242 := Val;
7989 procedure Set_Flag243 (N : Node_Id; Val : Boolean) is
7991 pragma Assert (Nkind (N) in N_Entity);
7994 (Nodes.Table (N + 3).Nkind'Unrestricted_Access)).Flag243 := Val;
7997 procedure Set_Flag244 (N : Node_Id; Val : Boolean) is
7999 pragma Assert (Nkind (N) in N_Entity);
8002 (Nodes.Table (N + 3).Nkind'Unrestricted_Access)).Flag244 := Val;
8005 procedure Set_Flag245 (N : Node_Id; Val : Boolean) is
8007 pragma Assert (Nkind (N) in N_Entity);
8010 (Nodes.Table (N + 3).Nkind'Unrestricted_Access)).Flag245 := Val;
8013 procedure Set_Flag246 (N : Node_Id; Val : Boolean) is
8015 pragma Assert (Nkind (N) in N_Entity);
8018 (Nodes.Table (N + 3).Nkind'Unrestricted_Access)).Flag246 := Val;
8021 procedure Set_Flag247 (N : Node_Id; Val : Boolean) is
8023 pragma Assert (Nkind (N) in N_Entity);
8026 (Nodes.Table (N + 4).Nkind'Unrestricted_Access)).Flag247 := Val;
8029 procedure Set_Flag248 (N : Node_Id; Val : Boolean) is
8031 pragma Assert (Nkind (N) in N_Entity);
8034 (Nodes.Table (N + 4).Nkind'Unrestricted_Access)).Flag248 := Val;
8037 procedure Set_Flag249 (N : Node_Id; Val : Boolean) is
8039 pragma Assert (Nkind (N) in N_Entity);
8042 (Nodes.Table (N + 4).Nkind'Unrestricted_Access)).Flag249 := Val;
8045 procedure Set_Flag250 (N : Node_Id; Val : Boolean) is
8047 pragma Assert (Nkind (N) in N_Entity);
8050 (Nodes.Table (N + 4).Nkind'Unrestricted_Access)).Flag250 := Val;
8053 procedure Set_Flag251 (N : Node_Id; Val : Boolean) is
8055 pragma Assert (Nkind (N) in N_Entity);
8058 (Nodes.Table (N + 4).Nkind'Unrestricted_Access)).Flag251 := Val;
8061 procedure Set_Flag252 (N : Node_Id; Val : Boolean) is
8063 pragma Assert (Nkind (N) in N_Entity);
8066 (Nodes.Table (N + 4).Nkind'Unrestricted_Access)).Flag252 := Val;
8069 procedure Set_Flag253 (N : Node_Id; Val : Boolean) is
8071 pragma Assert (Nkind (N) in N_Entity);
8074 (Nodes.Table (N + 4).Nkind'Unrestricted_Access)).Flag253 := Val;
8077 procedure Set_Flag254 (N : Node_Id; Val : Boolean) is
8079 pragma Assert (Nkind (N) in N_Entity);
8082 (Nodes.Table (N + 4).Nkind'Unrestricted_Access)).Flag254 := Val;
8085 procedure Set_Flag255 (N : Node_Id; Val : Boolean) is
8087 pragma Assert (Nkind (N) in N_Entity);
8090 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag255 := Val;
8093 procedure Set_Flag256 (N : Node_Id; Val : Boolean) is
8095 pragma Assert (Nkind (N) in N_Entity);
8098 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag256 := Val;
8101 procedure Set_Flag257 (N : Node_Id; Val : Boolean) is
8103 pragma Assert (Nkind (N) in N_Entity);
8106 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag257 := Val;
8109 procedure Set_Flag258 (N : Node_Id; Val : Boolean) is
8111 pragma Assert (Nkind (N) in N_Entity);
8114 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag258 := Val;
8117 procedure Set_Flag259 (N : Node_Id; Val : Boolean) is
8119 pragma Assert (Nkind (N) in N_Entity);
8122 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag259 := Val;
8125 procedure Set_Flag260 (N : Node_Id; Val : Boolean) is
8127 pragma Assert (Nkind (N) in N_Entity);
8130 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag260 := Val;
8133 procedure Set_Flag261 (N : Node_Id; Val : Boolean) is
8135 pragma Assert (Nkind (N) in N_Entity);
8138 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag261 := Val;
8141 procedure Set_Flag262 (N : Node_Id; Val : Boolean) is
8143 pragma Assert (Nkind (N) in N_Entity);
8146 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag262 := Val;
8149 procedure Set_Flag263 (N : Node_Id; Val : Boolean) is
8151 pragma Assert (Nkind (N) in N_Entity);
8154 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag263 := Val;
8157 procedure Set_Flag264 (N : Node_Id; Val : Boolean) is
8159 pragma Assert (Nkind (N) in N_Entity);
8162 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag264 := Val;
8165 procedure Set_Flag265 (N : Node_Id; Val : Boolean) is
8167 pragma Assert (Nkind (N) in N_Entity);
8170 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag265 := Val;
8173 procedure Set_Flag266 (N : Node_Id; Val : Boolean) is
8175 pragma Assert (Nkind (N) in N_Entity);
8178 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag266 := Val;
8181 procedure Set_Flag267 (N : Node_Id; Val : Boolean) is
8183 pragma Assert (Nkind (N) in N_Entity);
8186 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag267 := Val;
8189 procedure Set_Flag268 (N : Node_Id; Val : Boolean) is
8191 pragma Assert (Nkind (N) in N_Entity);
8194 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag268 := Val;
8197 procedure Set_Flag269 (N : Node_Id; Val : Boolean) is
8199 pragma Assert (Nkind (N) in N_Entity);
8202 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag269 := Val;
8205 procedure Set_Flag270 (N : Node_Id; Val : Boolean) is
8207 pragma Assert (Nkind (N) in N_Entity);
8210 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag270 := Val;
8213 procedure Set_Flag271 (N : Node_Id; Val : Boolean) is
8215 pragma Assert (Nkind (N) in N_Entity);
8218 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag271 := Val;
8221 procedure Set_Flag272 (N : Node_Id; Val : Boolean) is
8223 pragma Assert (Nkind (N) in N_Entity);
8226 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag272 := Val;
8229 procedure Set_Flag273 (N : Node_Id; Val : Boolean) is
8231 pragma Assert (Nkind (N) in N_Entity);
8234 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag273 := Val;
8237 procedure Set_Flag274 (N : Node_Id; Val : Boolean) is
8239 pragma Assert (Nkind (N) in N_Entity);
8242 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag274 := Val;
8245 procedure Set_Flag275 (N : Node_Id; Val : Boolean) is
8247 pragma Assert (Nkind (N) in N_Entity);
8250 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag275 := Val;
8253 procedure Set_Flag276 (N : Node_Id; Val : Boolean) is
8255 pragma Assert (Nkind (N) in N_Entity);
8258 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag276 := Val;
8261 procedure Set_Flag277 (N : Node_Id; Val : Boolean) is
8263 pragma Assert (Nkind (N) in N_Entity);
8266 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag277 := Val;
8269 procedure Set_Flag278 (N : Node_Id; Val : Boolean) is
8271 pragma Assert (Nkind (N) in N_Entity);
8274 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag278 := Val;
8277 procedure Set_Flag279 (N : Node_Id; Val : Boolean) is
8279 pragma Assert (Nkind (N) in N_Entity);
8282 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag279 := Val;
8285 procedure Set_Flag280 (N : Node_Id; Val : Boolean) is
8287 pragma Assert (Nkind (N) in N_Entity);
8290 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag280 := Val;
8293 procedure Set_Flag281 (N : Node_Id; Val : Boolean) is
8295 pragma Assert (Nkind (N) in N_Entity);
8298 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag281 := Val;
8301 procedure Set_Flag282 (N : Node_Id; Val : Boolean) is
8303 pragma Assert (Nkind (N) in N_Entity);
8306 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag282 := Val;
8309 procedure Set_Flag283 (N : Node_Id; Val : Boolean) is
8311 pragma Assert (Nkind (N) in N_Entity);
8314 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag283 := Val;
8317 procedure Set_Flag284 (N : Node_Id; Val : Boolean) is
8319 pragma Assert (Nkind (N) in N_Entity);
8322 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag284 := Val;
8325 procedure Set_Flag285 (N : Node_Id; Val : Boolean) is
8327 pragma Assert (Nkind (N) in N_Entity);
8330 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag285 := Val;
8333 procedure Set_Flag286 (N : Node_Id; Val : Boolean) is
8335 pragma Assert (Nkind (N) in N_Entity);
8338 (Nodes.Table (N + 5).Field12'Unrestricted_Access)).Flag286 := Val;
8341 procedure Set_Flag287 (N : Node_Id; Val : Boolean) is
8343 pragma Assert (Nkind (N) in N_Entity);
8344 Nodes.Table (N + 5).In_List := Val;
8347 procedure Set_Flag288 (N : Node_Id; Val : Boolean) is
8349 pragma Assert (Nkind (N) in N_Entity);
8350 Nodes.Table (N + 5).Has_Aspects := Val;
8353 procedure Set_Flag289 (N : Node_Id; Val : Boolean) is
8355 pragma Assert (Nkind (N) in N_Entity);
8356 Nodes.Table (N + 5).Rewrite_Ins := Val;
8359 procedure Set_Flag290 (N : Node_Id; Val : Boolean) is
8361 pragma Assert (Nkind (N) in N_Entity);
8362 Nodes.Table (N + 5).Analyzed := Val;
8365 procedure Set_Flag291 (N : Node_Id; Val : Boolean) is
8367 pragma Assert (Nkind (N) in N_Entity);
8368 Nodes.Table (N + 5).Comes_From_Source := Val;
8371 procedure Set_Flag292 (N : Node_Id; Val : Boolean) is
8373 pragma Assert (Nkind (N) in N_Entity);
8374 Nodes.Table (N + 5).Error_Posted := Val;
8377 procedure Set_Flag293 (N : Node_Id; Val : Boolean) is
8379 pragma Assert (Nkind (N) in N_Entity);
8380 Nodes.Table (N + 5).Flag4 := Val;
8383 procedure Set_Flag294 (N : Node_Id; Val : Boolean) is
8385 pragma Assert (Nkind (N) in N_Entity);
8386 Nodes.Table (N + 5).Flag5 := Val;
8389 procedure Set_Flag295 (N : Node_Id; Val : Boolean) is
8391 pragma Assert (Nkind (N) in N_Entity);
8392 Nodes.Table (N + 5).Flag6 := Val;
8395 procedure Set_Flag296 (N : Node_Id; Val : Boolean) is
8397 pragma Assert (Nkind (N) in N_Entity);
8398 Nodes.Table (N + 5).Flag7 := Val;
8401 procedure Set_Flag297 (N : Node_Id; Val : Boolean) is
8403 pragma Assert (Nkind (N) in N_Entity);
8404 Nodes.Table (N + 5).Flag8 := Val;
8407 procedure Set_Flag298 (N : Node_Id; Val : Boolean) is
8409 pragma Assert (Nkind (N) in N_Entity);
8410 Nodes.Table (N + 5).Flag9 := Val;
8413 procedure Set_Flag299 (N : Node_Id; Val : Boolean) is
8415 pragma Assert (Nkind (N) in N_Entity);
8416 Nodes.Table (N + 5).Flag10 := Val;
8419 procedure Set_Flag300 (N : Node_Id; Val : Boolean) is
8421 pragma Assert (Nkind (N) in N_Entity);
8422 Nodes.Table (N + 5).Flag11 := Val;
8425 procedure Set_Flag301 (N : Node_Id; Val : Boolean) is
8427 pragma Assert (Nkind (N) in N_Entity);
8428 Nodes.Table (N + 5).Flag12 := Val;
8431 procedure Set_Flag302 (N : Node_Id; Val : Boolean) is
8433 pragma Assert (Nkind (N) in N_Entity);
8434 Nodes.Table (N + 5).Flag13 := Val;
8437 procedure Set_Flag303 (N : Node_Id; Val : Boolean) is
8439 pragma Assert (Nkind (N) in N_Entity);
8440 Nodes.Table (N + 5).Flag14 := Val;
8443 procedure Set_Flag304 (N : Node_Id; Val : Boolean) is
8445 pragma Assert (Nkind (N) in N_Entity);
8446 Nodes.Table (N + 5).Flag15 := Val;
8449 procedure Set_Flag305 (N : Node_Id; Val : Boolean) is
8451 pragma Assert (Nkind (N) in N_Entity);
8452 Nodes.Table (N + 5).Flag16 := Val;
8455 procedure Set_Flag306 (N : Node_Id; Val : Boolean) is
8457 pragma Assert (Nkind (N) in N_Entity);
8458 Nodes.Table (N + 5).Flag17 := Val;
8461 procedure Set_Flag307 (N : Node_Id; Val : Boolean) is
8463 pragma Assert (Nkind (N) in N_Entity);
8464 Nodes.Table (N + 5).Flag18 := Val;
8467 procedure Set_Flag308 (N : Node_Id; Val : Boolean) is
8469 pragma Assert (Nkind (N) in N_Entity);
8470 Nodes.Table (N + 5).Pflag1 := Val;
8473 procedure Set_Flag309 (N : Node_Id; Val : Boolean) is
8475 pragma Assert (Nkind (N) in N_Entity);
8476 Nodes.Table (N + 5).Pflag2 := Val;
8479 procedure Set_Flag310 (N : Node_Id; Val : Boolean) is
8481 pragma Assert (Nkind (N) in N_Entity);
8484 (Nodes.Table (N + 5).Nkind'Unrestricted_Access)).Flag310 := Val;
8487 procedure Set_Flag311 (N : Node_Id; Val : Boolean) is
8489 pragma Assert (Nkind (N) in N_Entity);
8492 (Nodes.Table (N + 5).Nkind'Unrestricted_Access)).Flag311 := Val;
8495 procedure Set_Flag312 (N : Node_Id; Val : Boolean) is
8497 pragma Assert (Nkind (N) in N_Entity);
8500 (Nodes.Table (N + 5).Nkind'Unrestricted_Access)).Flag312 := Val;
8503 procedure Set_Flag313 (N : Node_Id; Val : Boolean) is
8505 pragma Assert (Nkind (N) in N_Entity);
8508 (Nodes.Table (N + 5).Nkind'Unrestricted_Access)).Flag313 := Val;
8511 procedure Set_Flag314 (N : Node_Id; Val : Boolean) is
8513 pragma Assert (Nkind (N) in N_Entity);
8516 (Nodes.Table (N + 5).Nkind'Unrestricted_Access)).Flag314 := Val;
8519 procedure Set_Flag315 (N : Node_Id; Val : Boolean) is
8521 pragma Assert (Nkind (N) in N_Entity);
8524 (Nodes.Table (N + 5).Nkind'Unrestricted_Access)).Flag315 := Val;
8527 procedure Set_Flag316 (N : Node_Id; Val : Boolean) is
8529 pragma Assert (Nkind (N) in N_Entity);
8532 (Nodes.Table (N + 5).Nkind'Unrestricted_Access)).Flag316 := Val;
8535 procedure Set_Flag317 (N : Node_Id; Val : Boolean) is
8537 pragma Assert (Nkind (N) in N_Entity);
8540 (Nodes.Table (N + 5).Nkind'Unrestricted_Access)).Flag317 := Val;
8543 procedure Set_Node1_With_Parent (N : Node_Id; Val : Node_Id) is
8545 pragma Assert (N <= Nodes.Last);
8548 Set_Parent (N => Val, Val => N);
8552 end Set_Node1_With_Parent;
8554 procedure Set_Node2_With_Parent (N : Node_Id; Val : Node_Id) is
8556 pragma Assert (N <= Nodes.Last);
8559 Set_Parent (N => Val, Val => N);
8563 end Set_Node2_With_Parent;
8565 procedure Set_Node3_With_Parent (N : Node_Id; Val : Node_Id) is
8567 pragma Assert (N <= Nodes.Last);
8570 Set_Parent (N => Val, Val => N);
8574 end Set_Node3_With_Parent;
8576 procedure Set_Node4_With_Parent (N : Node_Id; Val : Node_Id) is
8578 pragma Assert (N <= Nodes.Last);
8581 Set_Parent (N => Val, Val => N);
8585 end Set_Node4_With_Parent;
8587 procedure Set_Node5_With_Parent (N : Node_Id; Val : Node_Id) is
8589 pragma Assert (N <= Nodes.Last);
8592 Set_Parent (N => Val, Val => N);
8596 end Set_Node5_With_Parent;
8598 procedure Set_List1_With_Parent (N : Node_Id; Val : List_Id) is
8600 pragma Assert (N <= Nodes.Last);
8601 if Val /= No_List and then Val /= Error_List then
8602 Set_Parent (Val, N);
8605 end Set_List1_With_Parent;
8607 procedure Set_List2_With_Parent (N : Node_Id; Val : List_Id) is
8609 pragma Assert (N <= Nodes.Last);
8610 if Val /= No_List and then Val /= Error_List then
8611 Set_Parent (Val, N);
8614 end Set_List2_With_Parent;
8616 procedure Set_List3_With_Parent (N : Node_Id; Val : List_Id) is
8618 pragma Assert (N <= Nodes.Last);
8619 if Val /= No_List and then Val /= Error_List then
8620 Set_Parent (Val, N);
8623 end Set_List3_With_Parent;
8625 procedure Set_List4_With_Parent (N : Node_Id; Val : List_Id) is
8627 pragma Assert (N <= Nodes.Last);
8628 if Val /= No_List and then Val /= Error_List then
8629 Set_Parent (Val, N);
8632 end Set_List4_With_Parent;
8634 procedure Set_List5_With_Parent (N : Node_Id; Val : List_Id) is
8636 pragma Assert (N <= Nodes.Last);
8637 if Val /= No_List and then Val /= Error_List then
8638 Set_Parent (Val, N);
8641 end Set_List5_With_Parent;
8643 end Unchecked_Access;
8651 Nodes.Locked := False;
8652 Flags.Locked := False;
8653 Orig_Nodes.Locked := False;