1 ------------------------------------------------------------------------------
3 -- GNAT COMPILER COMPONENTS --
9 -- Copyright (C) 1992-2010, 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 -- No subprogram ordering check, due to logical grouping
35 with Atree; use Atree;
39 use Atree.Unchecked_Access;
40 -- This package is one of the few packages which is allowed to make direct
41 -- references to tree nodes (since it is in the business of providing a
42 -- higher level of tree access which other clients are expected to use and
43 -- which implements checks).
45 use Atree_Private_Part;
46 -- The only reason that we ask for direct access to the private part of
47 -- the tree package is so that we can directly reference the Nkind field
48 -- of nodes table entries. We do this since it helps the efficiency of
49 -- the Sinfo debugging checks considerably (note that when we are checking
50 -- Nkind values, we don't need to check for a valid node reference, because
51 -- we will check that anyway when we reference the field).
53 NT : Nodes.Table_Ptr renames Nodes.Table;
54 -- A short hand abbreviation, useful for the debugging checks
56 ----------------------------
57 -- Field Access Functions --
58 ----------------------------
60 function ABE_Is_Certain
61 (N : Node_Id) return Boolean is
64 or else NT (N).Nkind = N_Formal_Package_Declaration
65 or else NT (N).Nkind = N_Function_Call
66 or else NT (N).Nkind = N_Function_Instantiation
67 or else NT (N).Nkind = N_Package_Instantiation
68 or else NT (N).Nkind = N_Procedure_Call_Statement
69 or else NT (N).Nkind = N_Procedure_Instantiation);
73 function Abort_Present
74 (N : Node_Id) return Boolean is
77 or else NT (N).Nkind = N_Requeue_Statement);
81 function Abortable_Part
82 (N : Node_Id) return Node_Id is
85 or else NT (N).Nkind = N_Asynchronous_Select);
89 function Abstract_Present
90 (N : Node_Id) return Boolean is
93 or else NT (N).Nkind = N_Derived_Type_Definition
94 or else NT (N).Nkind = N_Formal_Derived_Type_Definition
95 or else NT (N).Nkind = N_Formal_Private_Type_Definition
96 or else NT (N).Nkind = N_Private_Extension_Declaration
97 or else NT (N).Nkind = N_Private_Type_Declaration
98 or else NT (N).Nkind = N_Record_Definition);
100 end Abstract_Present;
102 function Accept_Handler_Records
103 (N : Node_Id) return List_Id is
106 or else NT (N).Nkind = N_Accept_Alternative);
108 end Accept_Handler_Records;
110 function Accept_Statement
111 (N : Node_Id) return Node_Id is
114 or else NT (N).Nkind = N_Accept_Alternative);
116 end Accept_Statement;
118 function Access_Definition
119 (N : Node_Id) return Node_Id is
122 or else NT (N).Nkind = N_Component_Definition
123 or else NT (N).Nkind = N_Formal_Object_Declaration
124 or else NT (N).Nkind = N_Object_Renaming_Declaration);
126 end Access_Definition;
128 function Access_To_Subprogram_Definition
129 (N : Node_Id) return Node_Id is
132 or else NT (N).Nkind = N_Access_Definition);
134 end Access_To_Subprogram_Definition;
136 function Access_Types_To_Process
137 (N : Node_Id) return Elist_Id is
140 or else NT (N).Nkind = N_Freeze_Entity);
142 end Access_Types_To_Process;
145 (N : Node_Id) return List_Id is
148 or else NT (N).Nkind = N_And_Then
149 or else NT (N).Nkind = N_Case_Expression_Alternative
150 or else NT (N).Nkind = N_Compilation_Unit_Aux
151 or else NT (N).Nkind = N_Expression_With_Actions
152 or else NT (N).Nkind = N_Freeze_Entity
153 or else NT (N).Nkind = N_Or_Else);
157 function Activation_Chain_Entity
158 (N : Node_Id) return Node_Id is
161 or else NT (N).Nkind = N_Block_Statement
162 or else NT (N).Nkind = N_Entry_Body
163 or else NT (N).Nkind = N_Generic_Package_Declaration
164 or else NT (N).Nkind = N_Package_Declaration
165 or else NT (N).Nkind = N_Subprogram_Body
166 or else NT (N).Nkind = N_Task_Body);
168 end Activation_Chain_Entity;
170 function Acts_As_Spec
171 (N : Node_Id) return Boolean is
174 or else NT (N).Nkind = N_Compilation_Unit
175 or else NT (N).Nkind = N_Subprogram_Body);
179 function Actual_Designated_Subtype
180 (N : Node_Id) return Node_Id is
183 or else NT (N).Nkind = N_Explicit_Dereference
184 or else NT (N).Nkind = N_Free_Statement);
186 end Actual_Designated_Subtype;
188 function Address_Warning_Posted
189 (N : Node_Id) return Boolean is
192 or else NT (N).Nkind = N_Attribute_Definition_Clause);
194 end Address_Warning_Posted;
196 function Aggregate_Bounds
197 (N : Node_Id) return Node_Id is
200 or else NT (N).Nkind = N_Aggregate);
202 end Aggregate_Bounds;
204 function Aliased_Present
205 (N : Node_Id) return Boolean is
208 or else NT (N).Nkind = N_Component_Definition
209 or else NT (N).Nkind = N_Object_Declaration);
214 (N : Node_Id) return Boolean is
217 or else NT (N).Nkind = N_Others_Choice);
222 (N : Node_Id) return Boolean is
225 or else NT (N).Nkind = N_Access_Definition
226 or else NT (N).Nkind = N_Access_To_Object_Definition
227 or else NT (N).Nkind = N_Quantified_Expression
228 or else NT (N).Nkind = N_Use_Type_Clause);
232 function Alternatives
233 (N : Node_Id) return List_Id is
236 or else NT (N).Nkind = N_Case_Expression
237 or else NT (N).Nkind = N_Case_Statement
238 or else NT (N).Nkind = N_In
239 or else NT (N).Nkind = N_Not_In);
243 function Ancestor_Part
244 (N : Node_Id) return Node_Id is
247 or else NT (N).Nkind = N_Extension_Aggregate);
251 function Array_Aggregate
252 (N : Node_Id) return Node_Id is
255 or else NT (N).Nkind = N_Enumeration_Representation_Clause);
259 function Aspect_Cancel
260 (N : Node_Id) return Boolean is
263 or else NT (N).Nkind = N_Pragma);
267 function Aspect_Rep_Item
268 (N : Node_Id) return Node_Id is
271 or else NT (N).Nkind = N_Aspect_Specification);
275 function Assignment_OK
276 (N : Node_Id) return Boolean is
279 or else NT (N).Nkind = N_Object_Declaration
280 or else NT (N).Nkind in N_Subexpr);
284 function Associated_Node
285 (N : Node_Id) return Node_Id is
288 or else NT (N).Nkind in N_Has_Entity
289 or else NT (N).Nkind = N_Aggregate
290 or else NT (N).Nkind = N_Extension_Aggregate
291 or else NT (N).Nkind = N_Selected_Component);
296 (N : Node_Id) return Node_Id is
299 or else NT (N).Nkind = N_Handled_Sequence_Of_Statements);
303 function Attribute_Name
304 (N : Node_Id) return Name_Id is
307 or else NT (N).Nkind = N_Attribute_Reference);
311 function Aux_Decls_Node
312 (N : Node_Id) return Node_Id is
315 or else NT (N).Nkind = N_Compilation_Unit);
319 function Backwards_OK
320 (N : Node_Id) return Boolean is
323 or else NT (N).Nkind = N_Assignment_Statement);
327 function Bad_Is_Detected
328 (N : Node_Id) return Boolean is
331 or else NT (N).Nkind = N_Subprogram_Body);
335 function Body_Required
336 (N : Node_Id) return Boolean is
339 or else NT (N).Nkind = N_Compilation_Unit);
343 function Body_To_Inline
344 (N : Node_Id) return Node_Id is
347 or else NT (N).Nkind = N_Subprogram_Declaration);
352 (N : Node_Id) return Boolean is
355 or else NT (N).Nkind = N_Component_Association
356 or else NT (N).Nkind = N_Formal_Abstract_Subprogram_Declaration
357 or else NT (N).Nkind = N_Formal_Concrete_Subprogram_Declaration
358 or else NT (N).Nkind = N_Formal_Package_Declaration
359 or else NT (N).Nkind = N_Generic_Association);
364 (N : Node_Id) return Boolean is
367 or else NT (N).Nkind = N_Extended_Return_Statement
368 or else NT (N).Nkind = N_Return_Statement);
372 function Char_Literal_Value
373 (N : Node_Id) return Uint is
376 or else NT (N).Nkind = N_Character_Literal);
378 end Char_Literal_Value;
381 (N : Node_Id) return Name_Id is
384 or else NT (N).Nkind in N_Has_Chars);
388 function Check_Address_Alignment
389 (N : Node_Id) return Boolean is
392 or else NT (N).Nkind = N_Attribute_Definition_Clause);
394 end Check_Address_Alignment;
396 function Choice_Parameter
397 (N : Node_Id) return Node_Id is
400 or else NT (N).Nkind = N_Exception_Handler);
402 end Choice_Parameter;
405 (N : Node_Id) return List_Id is
408 or else NT (N).Nkind = N_Component_Association);
412 function Class_Present
413 (N : Node_Id) return Boolean is
416 or else NT (N).Nkind = N_Aspect_Specification
417 or else NT (N).Nkind = N_Pragma);
421 function Coextensions
422 (N : Node_Id) return Elist_Id is
425 or else NT (N).Nkind = N_Allocator);
429 function Comes_From_Extended_Return_Statement
430 (N : Node_Id) return Boolean is
433 or else NT (N).Nkind = N_Return_Statement);
435 end Comes_From_Extended_Return_Statement;
437 function Compile_Time_Known_Aggregate
438 (N : Node_Id) return Boolean is
441 or else NT (N).Nkind = N_Aggregate);
443 end Compile_Time_Known_Aggregate;
445 function Component_Associations
446 (N : Node_Id) return List_Id is
449 or else NT (N).Nkind = N_Aggregate
450 or else NT (N).Nkind = N_Extension_Aggregate);
452 end Component_Associations;
454 function Component_Clauses
455 (N : Node_Id) return List_Id is
458 or else NT (N).Nkind = N_Record_Representation_Clause);
460 end Component_Clauses;
462 function Component_Definition
463 (N : Node_Id) return Node_Id is
466 or else NT (N).Nkind = N_Component_Declaration
467 or else NT (N).Nkind = N_Constrained_Array_Definition
468 or else NT (N).Nkind = N_Unconstrained_Array_Definition);
470 end Component_Definition;
472 function Component_Items
473 (N : Node_Id) return List_Id is
476 or else NT (N).Nkind = N_Component_List);
480 function Component_List
481 (N : Node_Id) return Node_Id is
484 or else NT (N).Nkind = N_Record_Definition
485 or else NT (N).Nkind = N_Variant);
489 function Component_Name
490 (N : Node_Id) return Node_Id is
493 or else NT (N).Nkind = N_Component_Clause);
497 function Componentwise_Assignment
498 (N : Node_Id) return Boolean is
501 or else NT (N).Nkind = N_Assignment_Statement);
503 end Componentwise_Assignment;
506 (N : Node_Id) return Node_Id is
509 or else NT (N).Nkind = N_Accept_Alternative
510 or else NT (N).Nkind = N_Delay_Alternative
511 or else NT (N).Nkind = N_Elsif_Part
512 or else NT (N).Nkind = N_Entry_Body_Formal_Part
513 or else NT (N).Nkind = N_Exit_Statement
514 or else NT (N).Nkind = N_If_Statement
515 or else NT (N).Nkind = N_Iteration_Scheme
516 or else NT (N).Nkind = N_Quantified_Expression
517 or else NT (N).Nkind = N_Raise_Constraint_Error
518 or else NT (N).Nkind = N_Raise_Program_Error
519 or else NT (N).Nkind = N_Raise_Storage_Error
520 or else NT (N).Nkind = N_Terminate_Alternative);
524 function Condition_Actions
525 (N : Node_Id) return List_Id is
528 or else NT (N).Nkind = N_Elsif_Part
529 or else NT (N).Nkind = N_Iteration_Scheme);
531 end Condition_Actions;
533 function Config_Pragmas
534 (N : Node_Id) return List_Id is
537 or else NT (N).Nkind = N_Compilation_Unit_Aux);
541 function Constant_Present
542 (N : Node_Id) return Boolean is
545 or else NT (N).Nkind = N_Access_Definition
546 or else NT (N).Nkind = N_Access_To_Object_Definition
547 or else NT (N).Nkind = N_Object_Declaration);
549 end Constant_Present;
552 (N : Node_Id) return Node_Id is
555 or else NT (N).Nkind = N_Subtype_Indication);
560 (N : Node_Id) return List_Id is
563 or else NT (N).Nkind = N_Index_Or_Discriminant_Constraint);
567 function Context_Installed
568 (N : Node_Id) return Boolean is
571 or else NT (N).Nkind = N_With_Clause);
573 end Context_Installed;
575 function Context_Items
576 (N : Node_Id) return List_Id is
579 or else NT (N).Nkind = N_Compilation_Unit);
583 function Context_Pending
584 (N : Node_Id) return Boolean is
587 or else NT (N).Nkind = N_Compilation_Unit);
591 function Controlling_Argument
592 (N : Node_Id) return Node_Id is
595 or else NT (N).Nkind = N_Function_Call
596 or else NT (N).Nkind = N_Procedure_Call_Statement);
598 end Controlling_Argument;
600 function Conversion_OK
601 (N : Node_Id) return Boolean is
604 or else NT (N).Nkind = N_Type_Conversion);
608 function Corresponding_Body
609 (N : Node_Id) return Node_Id is
612 or else NT (N).Nkind = N_Entry_Declaration
613 or else NT (N).Nkind = N_Generic_Package_Declaration
614 or else NT (N).Nkind = N_Generic_Subprogram_Declaration
615 or else NT (N).Nkind = N_Package_Body_Stub
616 or else NT (N).Nkind = N_Package_Declaration
617 or else NT (N).Nkind = N_Protected_Body_Stub
618 or else NT (N).Nkind = N_Protected_Type_Declaration
619 or else NT (N).Nkind = N_Subprogram_Body_Stub
620 or else NT (N).Nkind = N_Subprogram_Declaration
621 or else NT (N).Nkind = N_Task_Body_Stub
622 or else NT (N).Nkind = N_Task_Type_Declaration);
624 end Corresponding_Body;
626 function Corresponding_Formal_Spec
627 (N : Node_Id) return Node_Id is
630 or else NT (N).Nkind = N_Subprogram_Renaming_Declaration);
632 end Corresponding_Formal_Spec;
634 function Corresponding_Generic_Association
635 (N : Node_Id) return Node_Id is
638 or else NT (N).Nkind = N_Object_Declaration
639 or else NT (N).Nkind = N_Object_Renaming_Declaration);
641 end Corresponding_Generic_Association;
643 function Corresponding_Integer_Value
644 (N : Node_Id) return Uint is
647 or else NT (N).Nkind = N_Real_Literal);
649 end Corresponding_Integer_Value;
651 function Corresponding_Spec
652 (N : Node_Id) return Node_Id is
655 or else NT (N).Nkind = N_Package_Body
656 or else NT (N).Nkind = N_Protected_Body
657 or else NT (N).Nkind = N_Subprogram_Body
658 or else NT (N).Nkind = N_Subprogram_Renaming_Declaration
659 or else NT (N).Nkind = N_Task_Body
660 or else NT (N).Nkind = N_With_Clause);
662 end Corresponding_Spec;
664 function Corresponding_Stub
665 (N : Node_Id) return Node_Id is
668 or else NT (N).Nkind = N_Subunit);
670 end Corresponding_Stub;
672 function Dcheck_Function
673 (N : Node_Id) return Entity_Id is
676 or else NT (N).Nkind = N_Variant);
680 function Debug_Statement
681 (N : Node_Id) return Node_Id is
684 or else NT (N).Nkind = N_Pragma);
688 function Declarations
689 (N : Node_Id) return List_Id is
692 or else NT (N).Nkind = N_Accept_Statement
693 or else NT (N).Nkind = N_Block_Statement
694 or else NT (N).Nkind = N_Compilation_Unit_Aux
695 or else NT (N).Nkind = N_Entry_Body
696 or else NT (N).Nkind = N_Package_Body
697 or else NT (N).Nkind = N_Protected_Body
698 or else NT (N).Nkind = N_Subprogram_Body
699 or else NT (N).Nkind = N_Task_Body);
703 function Default_Expression
704 (N : Node_Id) return Node_Id is
707 or else NT (N).Nkind = N_Formal_Object_Declaration
708 or else NT (N).Nkind = N_Parameter_Specification);
710 end Default_Expression;
712 function Default_Storage_Pool
713 (N : Node_Id) return Node_Id is
716 or else NT (N).Nkind = N_Compilation_Unit_Aux);
718 end Default_Storage_Pool;
720 function Default_Name
721 (N : Node_Id) return Node_Id is
724 or else NT (N).Nkind = N_Formal_Abstract_Subprogram_Declaration
725 or else NT (N).Nkind = N_Formal_Concrete_Subprogram_Declaration);
729 function Defining_Identifier
730 (N : Node_Id) return Entity_Id is
733 or else NT (N).Nkind = N_Component_Declaration
734 or else NT (N).Nkind = N_Defining_Program_Unit_Name
735 or else NT (N).Nkind = N_Discriminant_Specification
736 or else NT (N).Nkind = N_Entry_Body
737 or else NT (N).Nkind = N_Entry_Declaration
738 or else NT (N).Nkind = N_Entry_Index_Specification
739 or else NT (N).Nkind = N_Exception_Declaration
740 or else NT (N).Nkind = N_Exception_Renaming_Declaration
741 or else NT (N).Nkind = N_Formal_Object_Declaration
742 or else NT (N).Nkind = N_Formal_Package_Declaration
743 or else NT (N).Nkind = N_Formal_Type_Declaration
744 or else NT (N).Nkind = N_Full_Type_Declaration
745 or else NT (N).Nkind = N_Implicit_Label_Declaration
746 or else NT (N).Nkind = N_Incomplete_Type_Declaration
747 or else NT (N).Nkind = N_Iterator_Specification
748 or else NT (N).Nkind = N_Loop_Parameter_Specification
749 or else NT (N).Nkind = N_Number_Declaration
750 or else NT (N).Nkind = N_Object_Declaration
751 or else NT (N).Nkind = N_Object_Renaming_Declaration
752 or else NT (N).Nkind = N_Package_Body_Stub
753 or else NT (N).Nkind = N_Parameter_Specification
754 or else NT (N).Nkind = N_Private_Extension_Declaration
755 or else NT (N).Nkind = N_Private_Type_Declaration
756 or else NT (N).Nkind = N_Protected_Body
757 or else NT (N).Nkind = N_Protected_Body_Stub
758 or else NT (N).Nkind = N_Protected_Type_Declaration
759 or else NT (N).Nkind = N_Single_Protected_Declaration
760 or else NT (N).Nkind = N_Single_Task_Declaration
761 or else NT (N).Nkind = N_Subtype_Declaration
762 or else NT (N).Nkind = N_Task_Body
763 or else NT (N).Nkind = N_Task_Body_Stub
764 or else NT (N).Nkind = N_Task_Type_Declaration);
766 end Defining_Identifier;
768 function Defining_Unit_Name
769 (N : Node_Id) return Node_Id is
772 or else NT (N).Nkind = N_Function_Instantiation
773 or else NT (N).Nkind = N_Function_Specification
774 or else NT (N).Nkind = N_Generic_Function_Renaming_Declaration
775 or else NT (N).Nkind = N_Generic_Package_Renaming_Declaration
776 or else NT (N).Nkind = N_Generic_Procedure_Renaming_Declaration
777 or else NT (N).Nkind = N_Package_Body
778 or else NT (N).Nkind = N_Package_Instantiation
779 or else NT (N).Nkind = N_Package_Renaming_Declaration
780 or else NT (N).Nkind = N_Package_Specification
781 or else NT (N).Nkind = N_Procedure_Instantiation
782 or else NT (N).Nkind = N_Procedure_Specification);
784 end Defining_Unit_Name;
786 function Delay_Alternative
787 (N : Node_Id) return Node_Id is
790 or else NT (N).Nkind = N_Timed_Entry_Call);
792 end Delay_Alternative;
794 function Delay_Statement
795 (N : Node_Id) return Node_Id is
798 or else NT (N).Nkind = N_Delay_Alternative);
802 function Delta_Expression
803 (N : Node_Id) return Node_Id is
806 or else NT (N).Nkind = N_Decimal_Fixed_Point_Definition
807 or else NT (N).Nkind = N_Delta_Constraint
808 or else NT (N).Nkind = N_Ordinary_Fixed_Point_Definition);
810 end Delta_Expression;
812 function Digits_Expression
813 (N : Node_Id) return Node_Id is
816 or else NT (N).Nkind = N_Decimal_Fixed_Point_Definition
817 or else NT (N).Nkind = N_Digits_Constraint
818 or else NT (N).Nkind = N_Floating_Point_Definition);
820 end Digits_Expression;
822 function Discr_Check_Funcs_Built
823 (N : Node_Id) return Boolean is
826 or else NT (N).Nkind = N_Full_Type_Declaration);
828 end Discr_Check_Funcs_Built;
830 function Discrete_Choices
831 (N : Node_Id) return List_Id is
834 or else NT (N).Nkind = N_Case_Expression_Alternative
835 or else NT (N).Nkind = N_Case_Statement_Alternative
836 or else NT (N).Nkind = N_Variant);
838 end Discrete_Choices;
840 function Discrete_Range
841 (N : Node_Id) return Node_Id is
844 or else NT (N).Nkind = N_Slice);
848 function Discrete_Subtype_Definition
849 (N : Node_Id) return Node_Id is
852 or else NT (N).Nkind = N_Entry_Declaration
853 or else NT (N).Nkind = N_Entry_Index_Specification
854 or else NT (N).Nkind = N_Loop_Parameter_Specification);
856 end Discrete_Subtype_Definition;
858 function Discrete_Subtype_Definitions
859 (N : Node_Id) return List_Id is
862 or else NT (N).Nkind = N_Constrained_Array_Definition);
864 end Discrete_Subtype_Definitions;
866 function Discriminant_Specifications
867 (N : Node_Id) return List_Id is
870 or else NT (N).Nkind = N_Formal_Type_Declaration
871 or else NT (N).Nkind = N_Full_Type_Declaration
872 or else NT (N).Nkind = N_Incomplete_Type_Declaration
873 or else NT (N).Nkind = N_Private_Extension_Declaration
874 or else NT (N).Nkind = N_Private_Type_Declaration
875 or else NT (N).Nkind = N_Protected_Type_Declaration
876 or else NT (N).Nkind = N_Task_Type_Declaration);
878 end Discriminant_Specifications;
880 function Discriminant_Type
881 (N : Node_Id) return Node_Id is
884 or else NT (N).Nkind = N_Discriminant_Specification);
886 end Discriminant_Type;
888 function Do_Accessibility_Check
889 (N : Node_Id) return Boolean is
892 or else NT (N).Nkind = N_Parameter_Specification);
894 end Do_Accessibility_Check;
896 function Do_Discriminant_Check
897 (N : Node_Id) return Boolean is
900 or else NT (N).Nkind = N_Selected_Component);
902 end Do_Discriminant_Check;
904 function Do_Division_Check
905 (N : Node_Id) return Boolean is
908 or else NT (N).Nkind = N_Op_Divide
909 or else NT (N).Nkind = N_Op_Mod
910 or else NT (N).Nkind = N_Op_Rem);
912 end Do_Division_Check;
914 function Do_Length_Check
915 (N : Node_Id) return Boolean is
918 or else NT (N).Nkind = N_Assignment_Statement
919 or else NT (N).Nkind = N_Op_And
920 or else NT (N).Nkind = N_Op_Or
921 or else NT (N).Nkind = N_Op_Xor
922 or else NT (N).Nkind = N_Type_Conversion);
926 function Do_Overflow_Check
927 (N : Node_Id) return Boolean is
930 or else NT (N).Nkind in N_Op
931 or else NT (N).Nkind = N_Attribute_Reference
932 or else NT (N).Nkind = N_Type_Conversion);
934 end Do_Overflow_Check;
936 function Do_Range_Check
937 (N : Node_Id) return Boolean is
940 or else NT (N).Nkind in N_Subexpr);
944 function Do_Storage_Check
945 (N : Node_Id) return Boolean is
948 or else NT (N).Nkind = N_Allocator
949 or else NT (N).Nkind = N_Subprogram_Body);
951 end Do_Storage_Check;
953 function Do_Tag_Check
954 (N : Node_Id) return Boolean is
957 or else NT (N).Nkind = N_Assignment_Statement
958 or else NT (N).Nkind = N_Extended_Return_Statement
959 or else NT (N).Nkind = N_Function_Call
960 or else NT (N).Nkind = N_Procedure_Call_Statement
961 or else NT (N).Nkind = N_Return_Statement
962 or else NT (N).Nkind = N_Type_Conversion);
966 function Elaborate_All_Desirable
967 (N : Node_Id) return Boolean is
970 or else NT (N).Nkind = N_With_Clause);
972 end Elaborate_All_Desirable;
974 function Elaborate_All_Present
975 (N : Node_Id) return Boolean is
978 or else NT (N).Nkind = N_With_Clause);
980 end Elaborate_All_Present;
982 function Elaborate_Desirable
983 (N : Node_Id) return Boolean is
986 or else NT (N).Nkind = N_With_Clause);
988 end Elaborate_Desirable;
990 function Elaborate_Present
991 (N : Node_Id) return Boolean is
994 or else NT (N).Nkind = N_With_Clause);
996 end Elaborate_Present;
998 function Elaboration_Boolean
999 (N : Node_Id) return Node_Id is
1001 pragma Assert (False
1002 or else NT (N).Nkind = N_Function_Specification
1003 or else NT (N).Nkind = N_Procedure_Specification);
1005 end Elaboration_Boolean;
1007 function Else_Actions
1008 (N : Node_Id) return List_Id is
1010 pragma Assert (False
1011 or else NT (N).Nkind = N_Conditional_Expression);
1015 function Else_Statements
1016 (N : Node_Id) return List_Id is
1018 pragma Assert (False
1019 or else NT (N).Nkind = N_Conditional_Entry_Call
1020 or else NT (N).Nkind = N_If_Statement
1021 or else NT (N).Nkind = N_Selective_Accept);
1023 end Else_Statements;
1025 function Elsif_Parts
1026 (N : Node_Id) return List_Id is
1028 pragma Assert (False
1029 or else NT (N).Nkind = N_If_Statement);
1033 function Enclosing_Variant
1034 (N : Node_Id) return Node_Id is
1036 pragma Assert (False
1037 or else NT (N).Nkind = N_Variant);
1039 end Enclosing_Variant;
1042 (N : Node_Id) return Node_Id is
1044 pragma Assert (False
1045 or else NT (N).Nkind = N_Enumeration_Type_Definition
1046 or else NT (N).Nkind = N_Handled_Sequence_Of_Statements
1047 or else NT (N).Nkind = N_Loop_Statement
1048 or else NT (N).Nkind = N_Package_Specification
1049 or else NT (N).Nkind = N_Protected_Body
1050 or else NT (N).Nkind = N_Protected_Definition
1051 or else NT (N).Nkind = N_Record_Definition
1052 or else NT (N).Nkind = N_Task_Definition);
1057 (N : Node_Id) return Uint is
1059 pragma Assert (False
1060 or else NT (N).Nkind = N_Case_Statement
1061 or else NT (N).Nkind = N_If_Statement);
1066 (N : Node_Id) return Node_Id is
1068 pragma Assert (False
1069 or else NT (N).Nkind in N_Has_Entity
1070 or else NT (N).Nkind = N_Aspect_Specification
1071 or else NT (N).Nkind = N_Attribute_Definition_Clause
1072 or else NT (N).Nkind = N_Freeze_Entity);
1076 function Entity_Or_Associated_Node
1077 (N : Node_Id) return Node_Id is
1079 pragma Assert (False
1080 or else NT (N).Nkind in N_Has_Entity
1081 or else NT (N).Nkind = N_Freeze_Entity);
1083 end Entity_Or_Associated_Node;
1085 function Entry_Body_Formal_Part
1086 (N : Node_Id) return Node_Id is
1088 pragma Assert (False
1089 or else NT (N).Nkind = N_Entry_Body);
1091 end Entry_Body_Formal_Part;
1093 function Entry_Call_Alternative
1094 (N : Node_Id) return Node_Id is
1096 pragma Assert (False
1097 or else NT (N).Nkind = N_Conditional_Entry_Call
1098 or else NT (N).Nkind = N_Timed_Entry_Call);
1100 end Entry_Call_Alternative;
1102 function Entry_Call_Statement
1103 (N : Node_Id) return Node_Id is
1105 pragma Assert (False
1106 or else NT (N).Nkind = N_Entry_Call_Alternative);
1108 end Entry_Call_Statement;
1110 function Entry_Direct_Name
1111 (N : Node_Id) return Node_Id is
1113 pragma Assert (False
1114 or else NT (N).Nkind = N_Accept_Statement);
1116 end Entry_Direct_Name;
1118 function Entry_Index
1119 (N : Node_Id) return Node_Id is
1121 pragma Assert (False
1122 or else NT (N).Nkind = N_Accept_Statement);
1126 function Entry_Index_Specification
1127 (N : Node_Id) return Node_Id is
1129 pragma Assert (False
1130 or else NT (N).Nkind = N_Entry_Body_Formal_Part);
1132 end Entry_Index_Specification;
1135 (N : Node_Id) return Node_Id is
1137 pragma Assert (False
1138 or else NT (N).Nkind in N_Has_Etype);
1142 function Exception_Choices
1143 (N : Node_Id) return List_Id is
1145 pragma Assert (False
1146 or else NT (N).Nkind = N_Exception_Handler);
1148 end Exception_Choices;
1150 function Exception_Handlers
1151 (N : Node_Id) return List_Id is
1153 pragma Assert (False
1154 or else NT (N).Nkind = N_Handled_Sequence_Of_Statements);
1156 end Exception_Handlers;
1158 function Exception_Junk
1159 (N : Node_Id) return Boolean is
1161 pragma Assert (False
1162 or else NT (N).Nkind = N_Block_Statement
1163 or else NT (N).Nkind = N_Goto_Statement
1164 or else NT (N).Nkind = N_Label
1165 or else NT (N).Nkind = N_Object_Declaration
1166 or else NT (N).Nkind = N_Subtype_Declaration);
1170 function Exception_Label
1171 (N : Node_Id) return Node_Id is
1173 pragma Assert (False
1174 or else NT (N).Nkind = N_Exception_Handler
1175 or else NT (N).Nkind = N_Push_Constraint_Error_Label
1176 or else NT (N).Nkind = N_Push_Program_Error_Label
1177 or else NT (N).Nkind = N_Push_Storage_Error_Label);
1179 end Exception_Label;
1181 function Expansion_Delayed
1182 (N : Node_Id) return Boolean is
1184 pragma Assert (False
1185 or else NT (N).Nkind = N_Aggregate
1186 or else NT (N).Nkind = N_Extension_Aggregate);
1188 end Expansion_Delayed;
1190 function Explicit_Actual_Parameter
1191 (N : Node_Id) return Node_Id is
1193 pragma Assert (False
1194 or else NT (N).Nkind = N_Parameter_Association);
1196 end Explicit_Actual_Parameter;
1198 function Explicit_Generic_Actual_Parameter
1199 (N : Node_Id) return Node_Id is
1201 pragma Assert (False
1202 or else NT (N).Nkind = N_Generic_Association);
1204 end Explicit_Generic_Actual_Parameter;
1207 (N : Node_Id) return Node_Id is
1209 pragma Assert (False
1210 or else NT (N).Nkind = N_Allocator
1211 or else NT (N).Nkind = N_Aspect_Specification
1212 or else NT (N).Nkind = N_Assignment_Statement
1213 or else NT (N).Nkind = N_At_Clause
1214 or else NT (N).Nkind = N_Attribute_Definition_Clause
1215 or else NT (N).Nkind = N_Case_Expression
1216 or else NT (N).Nkind = N_Case_Expression_Alternative
1217 or else NT (N).Nkind = N_Case_Statement
1218 or else NT (N).Nkind = N_Code_Statement
1219 or else NT (N).Nkind = N_Component_Association
1220 or else NT (N).Nkind = N_Component_Declaration
1221 or else NT (N).Nkind = N_Delay_Relative_Statement
1222 or else NT (N).Nkind = N_Delay_Until_Statement
1223 or else NT (N).Nkind = N_Discriminant_Association
1224 or else NT (N).Nkind = N_Discriminant_Specification
1225 or else NT (N).Nkind = N_Exception_Declaration
1226 or else NT (N).Nkind = N_Expression_With_Actions
1227 or else NT (N).Nkind = N_Free_Statement
1228 or else NT (N).Nkind = N_Mod_Clause
1229 or else NT (N).Nkind = N_Modular_Type_Definition
1230 or else NT (N).Nkind = N_Number_Declaration
1231 or else NT (N).Nkind = N_Object_Declaration
1232 or else NT (N).Nkind = N_Parameter_Specification
1233 or else NT (N).Nkind = N_Parameterized_Expression
1234 or else NT (N).Nkind = N_Pragma_Argument_Association
1235 or else NT (N).Nkind = N_Qualified_Expression
1236 or else NT (N).Nkind = N_Raise_Statement
1237 or else NT (N).Nkind = N_Return_Statement
1238 or else NT (N).Nkind = N_Type_Conversion
1239 or else NT (N).Nkind = N_Unchecked_Expression
1240 or else NT (N).Nkind = N_Unchecked_Type_Conversion);
1244 function Expressions
1245 (N : Node_Id) return List_Id is
1247 pragma Assert (False
1248 or else NT (N).Nkind = N_Aggregate
1249 or else NT (N).Nkind = N_Attribute_Reference
1250 or else NT (N).Nkind = N_Conditional_Expression
1251 or else NT (N).Nkind = N_Extension_Aggregate
1252 or else NT (N).Nkind = N_Indexed_Component);
1257 (N : Node_Id) return Node_Id is
1259 pragma Assert (False
1260 or else NT (N).Nkind = N_Component_Clause);
1264 function First_Inlined_Subprogram
1265 (N : Node_Id) return Entity_Id is
1267 pragma Assert (False
1268 or else NT (N).Nkind = N_Compilation_Unit);
1270 end First_Inlined_Subprogram;
1273 (N : Node_Id) return Boolean is
1275 pragma Assert (False
1276 or else NT (N).Nkind = N_With_Clause);
1280 function First_Named_Actual
1281 (N : Node_Id) return Node_Id is
1283 pragma Assert (False
1284 or else NT (N).Nkind = N_Entry_Call_Statement
1285 or else NT (N).Nkind = N_Function_Call
1286 or else NT (N).Nkind = N_Procedure_Call_Statement);
1288 end First_Named_Actual;
1290 function First_Real_Statement
1291 (N : Node_Id) return Node_Id is
1293 pragma Assert (False
1294 or else NT (N).Nkind = N_Handled_Sequence_Of_Statements);
1296 end First_Real_Statement;
1298 function First_Subtype_Link
1299 (N : Node_Id) return Entity_Id is
1301 pragma Assert (False
1302 or else NT (N).Nkind = N_Freeze_Entity);
1304 end First_Subtype_Link;
1306 function Float_Truncate
1307 (N : Node_Id) return Boolean is
1309 pragma Assert (False
1310 or else NT (N).Nkind = N_Type_Conversion);
1314 function Formal_Type_Definition
1315 (N : Node_Id) return Node_Id is
1317 pragma Assert (False
1318 or else NT (N).Nkind = N_Formal_Type_Declaration);
1320 end Formal_Type_Definition;
1322 function Forwards_OK
1323 (N : Node_Id) return Boolean is
1325 pragma Assert (False
1326 or else NT (N).Nkind = N_Assignment_Statement);
1330 function From_Aspect_Specification
1331 (N : Node_Id) return Boolean is
1333 pragma Assert (False
1334 or else NT (N).Nkind = N_Attribute_Definition_Clause
1335 or else NT (N).Nkind = N_Pragma);
1337 end From_Aspect_Specification;
1339 function From_At_End
1340 (N : Node_Id) return Boolean is
1342 pragma Assert (False
1343 or else NT (N).Nkind = N_Raise_Statement);
1347 function From_At_Mod
1348 (N : Node_Id) return Boolean is
1350 pragma Assert (False
1351 or else NT (N).Nkind = N_Attribute_Definition_Clause);
1355 function From_Default
1356 (N : Node_Id) return Boolean is
1358 pragma Assert (False
1359 or else NT (N).Nkind = N_Subprogram_Renaming_Declaration);
1363 function Generic_Associations
1364 (N : Node_Id) return List_Id is
1366 pragma Assert (False
1367 or else NT (N).Nkind = N_Formal_Package_Declaration
1368 or else NT (N).Nkind = N_Function_Instantiation
1369 or else NT (N).Nkind = N_Package_Instantiation
1370 or else NT (N).Nkind = N_Procedure_Instantiation);
1372 end Generic_Associations;
1374 function Generic_Formal_Declarations
1375 (N : Node_Id) return List_Id is
1377 pragma Assert (False
1378 or else NT (N).Nkind = N_Generic_Package_Declaration
1379 or else NT (N).Nkind = N_Generic_Subprogram_Declaration);
1381 end Generic_Formal_Declarations;
1383 function Generic_Parent
1384 (N : Node_Id) return Node_Id is
1386 pragma Assert (False
1387 or else NT (N).Nkind = N_Function_Specification
1388 or else NT (N).Nkind = N_Package_Specification
1389 or else NT (N).Nkind = N_Procedure_Specification);
1393 function Generic_Parent_Type
1394 (N : Node_Id) return Node_Id is
1396 pragma Assert (False
1397 or else NT (N).Nkind = N_Subtype_Declaration);
1399 end Generic_Parent_Type;
1401 function Handled_Statement_Sequence
1402 (N : Node_Id) return Node_Id is
1404 pragma Assert (False
1405 or else NT (N).Nkind = N_Accept_Statement
1406 or else NT (N).Nkind = N_Block_Statement
1407 or else NT (N).Nkind = N_Entry_Body
1408 or else NT (N).Nkind = N_Extended_Return_Statement
1409 or else NT (N).Nkind = N_Package_Body
1410 or else NT (N).Nkind = N_Subprogram_Body
1411 or else NT (N).Nkind = N_Task_Body);
1413 end Handled_Statement_Sequence;
1415 function Handler_List_Entry
1416 (N : Node_Id) return Node_Id is
1418 pragma Assert (False
1419 or else NT (N).Nkind = N_Object_Declaration);
1421 end Handler_List_Entry;
1423 function Has_Created_Identifier
1424 (N : Node_Id) return Boolean is
1426 pragma Assert (False
1427 or else NT (N).Nkind = N_Block_Statement
1428 or else NT (N).Nkind = N_Loop_Statement);
1430 end Has_Created_Identifier;
1432 function Has_Dynamic_Length_Check
1433 (N : Node_Id) return Boolean is
1436 end Has_Dynamic_Length_Check;
1437 function Has_Dynamic_Range_Check
1438 (N : Node_Id) return Boolean is
1441 end Has_Dynamic_Range_Check;
1443 function Has_Init_Expression
1444 (N : Node_Id) return Boolean is
1446 pragma Assert (False
1447 or else NT (N).Nkind = N_Object_Declaration);
1449 end Has_Init_Expression;
1451 function Has_Local_Raise
1452 (N : Node_Id) return Boolean is
1454 pragma Assert (False
1455 or else NT (N).Nkind = N_Exception_Handler);
1457 end Has_Local_Raise;
1459 function Has_No_Elaboration_Code
1460 (N : Node_Id) return Boolean is
1462 pragma Assert (False
1463 or else NT (N).Nkind = N_Compilation_Unit);
1465 end Has_No_Elaboration_Code;
1467 function Has_Pragma_CPU
1468 (N : Node_Id) return Boolean is
1470 pragma Assert (False
1471 or else NT (N).Nkind = N_Subprogram_Body
1472 or else NT (N).Nkind = N_Task_Definition);
1476 function Has_Pragma_Priority
1477 (N : Node_Id) return Boolean is
1479 pragma Assert (False
1480 or else NT (N).Nkind = N_Protected_Definition
1481 or else NT (N).Nkind = N_Subprogram_Body
1482 or else NT (N).Nkind = N_Task_Definition);
1484 end Has_Pragma_Priority;
1486 function Has_Pragma_Suppress_All
1487 (N : Node_Id) return Boolean is
1489 pragma Assert (False
1490 or else NT (N).Nkind = N_Compilation_Unit);
1492 end Has_Pragma_Suppress_All;
1494 function Has_Private_View
1495 (N : Node_Id) return Boolean is
1497 pragma Assert (False
1498 or else NT (N).Nkind in N_Op
1499 or else NT (N).Nkind = N_Character_Literal
1500 or else NT (N).Nkind = N_Expanded_Name
1501 or else NT (N).Nkind = N_Identifier
1502 or else NT (N).Nkind = N_Operator_Symbol);
1504 end Has_Private_View;
1506 function Has_Relative_Deadline_Pragma
1507 (N : Node_Id) return Boolean is
1509 pragma Assert (False
1510 or else NT (N).Nkind = N_Subprogram_Body
1511 or else NT (N).Nkind = N_Task_Definition);
1513 end Has_Relative_Deadline_Pragma;
1515 function Has_Self_Reference
1516 (N : Node_Id) return Boolean is
1518 pragma Assert (False
1519 or else NT (N).Nkind = N_Aggregate
1520 or else NT (N).Nkind = N_Extension_Aggregate);
1522 end Has_Self_Reference;
1524 function Has_Storage_Size_Pragma
1525 (N : Node_Id) return Boolean is
1527 pragma Assert (False
1528 or else NT (N).Nkind = N_Task_Definition);
1530 end Has_Storage_Size_Pragma;
1532 function Has_Task_Info_Pragma
1533 (N : Node_Id) return Boolean is
1535 pragma Assert (False
1536 or else NT (N).Nkind = N_Task_Definition);
1538 end Has_Task_Info_Pragma;
1540 function Has_Task_Name_Pragma
1541 (N : Node_Id) return Boolean is
1543 pragma Assert (False
1544 or else NT (N).Nkind = N_Task_Definition);
1546 end Has_Task_Name_Pragma;
1548 function Has_Wide_Character
1549 (N : Node_Id) return Boolean is
1551 pragma Assert (False
1552 or else NT (N).Nkind = N_String_Literal);
1554 end Has_Wide_Character;
1556 function Has_Wide_Wide_Character
1557 (N : Node_Id) return Boolean is
1559 pragma Assert (False
1560 or else NT (N).Nkind = N_String_Literal);
1562 end Has_Wide_Wide_Character;
1564 function Hidden_By_Use_Clause
1565 (N : Node_Id) return Elist_Id is
1567 pragma Assert (False
1568 or else NT (N).Nkind = N_Use_Package_Clause
1569 or else NT (N).Nkind = N_Use_Type_Clause);
1571 end Hidden_By_Use_Clause;
1574 (N : Node_Id) return Node_Id is
1576 pragma Assert (False
1577 or else NT (N).Nkind = N_Range
1578 or else NT (N).Nkind = N_Real_Range_Specification
1579 or else NT (N).Nkind = N_Signed_Integer_Type_Definition);
1584 (N : Node_Id) return Node_Id is
1586 pragma Assert (False
1587 or else NT (N).Nkind = N_Aspect_Specification
1588 or else NT (N).Nkind = N_At_Clause
1589 or else NT (N).Nkind = N_Block_Statement
1590 or else NT (N).Nkind = N_Designator
1591 or else NT (N).Nkind = N_Enumeration_Representation_Clause
1592 or else NT (N).Nkind = N_Label
1593 or else NT (N).Nkind = N_Loop_Statement
1594 or else NT (N).Nkind = N_Record_Representation_Clause
1595 or else NT (N).Nkind = N_Subprogram_Info);
1599 function Implicit_With
1600 (N : Node_Id) return Boolean is
1602 pragma Assert (False
1603 or else NT (N).Nkind = N_With_Clause);
1607 function Interface_List
1608 (N : Node_Id) return List_Id is
1610 pragma Assert (False
1611 or else NT (N).Nkind = N_Derived_Type_Definition
1612 or else NT (N).Nkind = N_Formal_Derived_Type_Definition
1613 or else NT (N).Nkind = N_Private_Extension_Declaration
1614 or else NT (N).Nkind = N_Protected_Type_Declaration
1615 or else NT (N).Nkind = N_Record_Definition
1616 or else NT (N).Nkind = N_Single_Protected_Declaration
1617 or else NT (N).Nkind = N_Single_Task_Declaration
1618 or else NT (N).Nkind = N_Task_Type_Declaration);
1622 function Interface_Present
1623 (N : Node_Id) return Boolean is
1625 pragma Assert (False
1626 or else NT (N).Nkind = N_Derived_Type_Definition
1627 or else NT (N).Nkind = N_Record_Definition);
1629 end Interface_Present;
1631 function Import_Interface_Present
1632 (N : Node_Id) return Boolean is
1634 pragma Assert (False
1635 or else NT (N).Nkind = N_Pragma);
1637 end Import_Interface_Present;
1640 (N : Node_Id) return Boolean is
1642 pragma Assert (False
1643 or else NT (N).Nkind = N_Formal_Object_Declaration
1644 or else NT (N).Nkind = N_Parameter_Specification);
1648 function Includes_Infinities
1649 (N : Node_Id) return Boolean is
1651 pragma Assert (False
1652 or else NT (N).Nkind = N_Range);
1654 end Includes_Infinities;
1656 function Inherited_Discriminant
1657 (N : Node_Id) return Boolean is
1659 pragma Assert (False
1660 or else NT (N).Nkind = N_Component_Association);
1662 end Inherited_Discriminant;
1664 function Instance_Spec
1665 (N : Node_Id) return Node_Id is
1667 pragma Assert (False
1668 or else NT (N).Nkind = N_Formal_Package_Declaration
1669 or else NT (N).Nkind = N_Function_Instantiation
1670 or else NT (N).Nkind = N_Package_Instantiation
1671 or else NT (N).Nkind = N_Procedure_Instantiation);
1676 (N : Node_Id) return Uint is
1678 pragma Assert (False
1679 or else NT (N).Nkind = N_Integer_Literal);
1683 function Is_Accessibility_Actual
1684 (N : Node_Id) return Boolean is
1686 pragma Assert (False
1687 or else NT (N).Nkind = N_Parameter_Association);
1689 end Is_Accessibility_Actual;
1691 function Is_Asynchronous_Call_Block
1692 (N : Node_Id) return Boolean is
1694 pragma Assert (False
1695 or else NT (N).Nkind = N_Block_Statement);
1697 end Is_Asynchronous_Call_Block;
1699 function Is_Component_Left_Opnd
1700 (N : Node_Id) return Boolean is
1702 pragma Assert (False
1703 or else NT (N).Nkind = N_Op_Concat);
1705 end Is_Component_Left_Opnd;
1707 function Is_Component_Right_Opnd
1708 (N : Node_Id) return Boolean is
1710 pragma Assert (False
1711 or else NT (N).Nkind = N_Op_Concat);
1713 end Is_Component_Right_Opnd;
1715 function Is_Controlling_Actual
1716 (N : Node_Id) return Boolean is
1718 pragma Assert (False
1719 or else NT (N).Nkind in N_Subexpr);
1721 end Is_Controlling_Actual;
1723 function Is_Delayed_Aspect
1724 (N : Node_Id) return Boolean is
1726 pragma Assert (False
1727 or else NT (N).Nkind = N_Attribute_Definition_Clause
1728 or else NT (N).Nkind = N_Pragma);
1730 end Is_Delayed_Aspect;
1732 function Is_Dynamic_Coextension
1733 (N : Node_Id) return Boolean is
1735 pragma Assert (False
1736 or else NT (N).Nkind = N_Allocator);
1738 end Is_Dynamic_Coextension;
1741 (N : Node_Id) return Boolean is
1743 pragma Assert (False
1744 or else NT (N).Nkind = N_Conditional_Expression);
1748 function Is_Entry_Barrier_Function
1749 (N : Node_Id) return Boolean is
1751 pragma Assert (False
1752 or else NT (N).Nkind = N_Subprogram_Body);
1754 end Is_Entry_Barrier_Function;
1756 function Is_Expanded_Build_In_Place_Call
1757 (N : Node_Id) return Boolean is
1759 pragma Assert (False
1760 or else NT (N).Nkind = N_Function_Call);
1762 end Is_Expanded_Build_In_Place_Call;
1764 function Is_Folded_In_Parser
1765 (N : Node_Id) return Boolean is
1767 pragma Assert (False
1768 or else NT (N).Nkind = N_String_Literal);
1770 end Is_Folded_In_Parser;
1772 function Is_In_Discriminant_Check
1773 (N : Node_Id) return Boolean is
1775 pragma Assert (False
1776 or else NT (N).Nkind = N_Selected_Component);
1778 end Is_In_Discriminant_Check;
1780 function Is_Machine_Number
1781 (N : Node_Id) return Boolean is
1783 pragma Assert (False
1784 or else NT (N).Nkind = N_Real_Literal);
1786 end Is_Machine_Number;
1788 function Is_Null_Loop
1789 (N : Node_Id) return Boolean is
1791 pragma Assert (False
1792 or else NT (N).Nkind = N_Loop_Statement);
1796 function Is_Overloaded
1797 (N : Node_Id) return Boolean is
1799 pragma Assert (False
1800 or else NT (N).Nkind in N_Subexpr);
1804 function Is_Power_Of_2_For_Shift
1805 (N : Node_Id) return Boolean is
1807 pragma Assert (False
1808 or else NT (N).Nkind = N_Op_Expon);
1810 end Is_Power_Of_2_For_Shift;
1812 function Is_Protected_Subprogram_Body
1813 (N : Node_Id) return Boolean is
1815 pragma Assert (False
1816 or else NT (N).Nkind = N_Subprogram_Body);
1818 end Is_Protected_Subprogram_Body;
1820 function Is_Static_Coextension
1821 (N : Node_Id) return Boolean is
1823 pragma Assert (False
1824 or else NT (N).Nkind = N_Allocator);
1826 end Is_Static_Coextension;
1828 function Is_Static_Expression
1829 (N : Node_Id) return Boolean is
1831 pragma Assert (False
1832 or else NT (N).Nkind in N_Subexpr);
1834 end Is_Static_Expression;
1836 function Is_Subprogram_Descriptor
1837 (N : Node_Id) return Boolean is
1839 pragma Assert (False
1840 or else NT (N).Nkind = N_Object_Declaration);
1842 end Is_Subprogram_Descriptor;
1844 function Is_Task_Allocation_Block
1845 (N : Node_Id) return Boolean is
1847 pragma Assert (False
1848 or else NT (N).Nkind = N_Block_Statement);
1850 end Is_Task_Allocation_Block;
1852 function Is_Task_Master
1853 (N : Node_Id) return Boolean is
1855 pragma Assert (False
1856 or else NT (N).Nkind = N_Block_Statement
1857 or else NT (N).Nkind = N_Subprogram_Body
1858 or else NT (N).Nkind = N_Task_Body);
1862 function Iteration_Scheme
1863 (N : Node_Id) return Node_Id is
1865 pragma Assert (False
1866 or else NT (N).Nkind = N_Loop_Statement);
1868 end Iteration_Scheme;
1870 function Iterator_Specification
1871 (N : Node_Id) return Node_Id is
1873 pragma Assert (False
1874 or else NT (N).Nkind = N_Iteration_Scheme
1875 or else NT (N).Nkind = N_Quantified_Expression);
1877 end Iterator_Specification;
1880 (N : Node_Id) return Node_Id is
1882 pragma Assert (False
1883 or else NT (N).Nkind = N_Itype_Reference);
1887 function Kill_Range_Check
1888 (N : Node_Id) return Boolean is
1890 pragma Assert (False
1891 or else NT (N).Nkind = N_Unchecked_Type_Conversion);
1893 end Kill_Range_Check;
1895 function Label_Construct
1896 (N : Node_Id) return Node_Id is
1898 pragma Assert (False
1899 or else NT (N).Nkind = N_Implicit_Label_Declaration);
1901 end Label_Construct;
1904 (N : Node_Id) return Node_Id is
1906 pragma Assert (False
1907 or else NT (N).Nkind = N_Component_Clause);
1912 (N : Node_Id) return Boolean is
1914 pragma Assert (False
1915 or else NT (N).Nkind = N_With_Clause);
1920 (N : Node_Id) return Node_Id is
1922 pragma Assert (False
1923 or else NT (N).Nkind = N_And_Then
1924 or else NT (N).Nkind = N_In
1925 or else NT (N).Nkind = N_Not_In
1926 or else NT (N).Nkind = N_Or_Else
1927 or else NT (N).Nkind in N_Binary_Op);
1931 function Library_Unit
1932 (N : Node_Id) return Node_Id is
1934 pragma Assert (False
1935 or else NT (N).Nkind = N_Compilation_Unit
1936 or else NT (N).Nkind = N_Package_Body_Stub
1937 or else NT (N).Nkind = N_Protected_Body_Stub
1938 or else NT (N).Nkind = N_Subprogram_Body_Stub
1939 or else NT (N).Nkind = N_Task_Body_Stub
1940 or else NT (N).Nkind = N_With_Clause);
1944 function Limited_View_Installed
1945 (N : Node_Id) return Boolean is
1947 pragma Assert (False
1948 or else NT (N).Nkind = N_Package_Specification
1949 or else NT (N).Nkind = N_With_Clause);
1951 end Limited_View_Installed;
1953 function Limited_Present
1954 (N : Node_Id) return Boolean is
1956 pragma Assert (False
1957 or else NT (N).Nkind = N_Derived_Type_Definition
1958 or else NT (N).Nkind = N_Formal_Derived_Type_Definition
1959 or else NT (N).Nkind = N_Formal_Private_Type_Definition
1960 or else NT (N).Nkind = N_Private_Extension_Declaration
1961 or else NT (N).Nkind = N_Private_Type_Declaration
1962 or else NT (N).Nkind = N_Record_Definition
1963 or else NT (N).Nkind = N_With_Clause);
1965 end Limited_Present;
1968 (N : Node_Id) return List_Id is
1970 pragma Assert (False
1971 or else NT (N).Nkind = N_Enumeration_Type_Definition);
1975 function Local_Raise_Not_OK
1976 (N : Node_Id) return Boolean is
1978 pragma Assert (False
1979 or else NT (N).Nkind = N_Exception_Handler);
1981 end Local_Raise_Not_OK;
1983 function Local_Raise_Statements
1984 (N : Node_Id) return Elist_Id is
1986 pragma Assert (False
1987 or else NT (N).Nkind = N_Exception_Handler);
1989 end Local_Raise_Statements;
1991 function Loop_Actions
1992 (N : Node_Id) return List_Id is
1994 pragma Assert (False
1995 or else NT (N).Nkind = N_Component_Association);
1999 function Loop_Parameter_Specification
2000 (N : Node_Id) return Node_Id is
2002 pragma Assert (False
2003 or else NT (N).Nkind = N_Iteration_Scheme
2004 or else NT (N).Nkind = N_Quantified_Expression);
2006 end Loop_Parameter_Specification;
2009 (N : Node_Id) return Node_Id is
2011 pragma Assert (False
2012 or else NT (N).Nkind = N_Range
2013 or else NT (N).Nkind = N_Real_Range_Specification
2014 or else NT (N).Nkind = N_Signed_Integer_Type_Definition);
2019 (N : Node_Id) return Node_Id is
2021 pragma Assert (False
2022 or else NT (N).Nkind = N_Record_Representation_Clause);
2027 (N : Node_Id) return Boolean is
2029 pragma Assert (False
2030 or else NT (N).Nkind = N_Component_Declaration
2031 or else NT (N).Nkind = N_Discriminant_Specification
2032 or else NT (N).Nkind = N_Exception_Declaration
2033 or else NT (N).Nkind = N_Formal_Object_Declaration
2034 or else NT (N).Nkind = N_Number_Declaration
2035 or else NT (N).Nkind = N_Object_Declaration
2036 or else NT (N).Nkind = N_Parameter_Specification);
2040 function Must_Be_Byte_Aligned
2041 (N : Node_Id) return Boolean is
2043 pragma Assert (False
2044 or else NT (N).Nkind = N_Attribute_Reference);
2046 end Must_Be_Byte_Aligned;
2048 function Must_Not_Freeze
2049 (N : Node_Id) return Boolean is
2051 pragma Assert (False
2052 or else NT (N).Nkind = N_Subtype_Indication
2053 or else NT (N).Nkind in N_Subexpr);
2055 end Must_Not_Freeze;
2057 function Must_Not_Override
2058 (N : Node_Id) return Boolean is
2060 pragma Assert (False
2061 or else NT (N).Nkind = N_Entry_Declaration
2062 or else NT (N).Nkind = N_Function_Instantiation
2063 or else NT (N).Nkind = N_Function_Specification
2064 or else NT (N).Nkind = N_Procedure_Instantiation
2065 or else NT (N).Nkind = N_Procedure_Specification);
2067 end Must_Not_Override;
2069 function Must_Override
2070 (N : Node_Id) return Boolean is
2072 pragma Assert (False
2073 or else NT (N).Nkind = N_Entry_Declaration
2074 or else NT (N).Nkind = N_Function_Instantiation
2075 or else NT (N).Nkind = N_Function_Specification
2076 or else NT (N).Nkind = N_Procedure_Instantiation
2077 or else NT (N).Nkind = N_Procedure_Specification);
2082 (N : Node_Id) return Node_Id is
2084 pragma Assert (False
2085 or else NT (N).Nkind = N_Assignment_Statement
2086 or else NT (N).Nkind = N_Attribute_Definition_Clause
2087 or else NT (N).Nkind = N_Defining_Program_Unit_Name
2088 or else NT (N).Nkind = N_Designator
2089 or else NT (N).Nkind = N_Entry_Call_Statement
2090 or else NT (N).Nkind = N_Exception_Renaming_Declaration
2091 or else NT (N).Nkind = N_Exit_Statement
2092 or else NT (N).Nkind = N_Formal_Package_Declaration
2093 or else NT (N).Nkind = N_Function_Call
2094 or else NT (N).Nkind = N_Function_Instantiation
2095 or else NT (N).Nkind = N_Generic_Function_Renaming_Declaration
2096 or else NT (N).Nkind = N_Generic_Package_Renaming_Declaration
2097 or else NT (N).Nkind = N_Generic_Procedure_Renaming_Declaration
2098 or else NT (N).Nkind = N_Goto_Statement
2099 or else NT (N).Nkind = N_Iterator_Specification
2100 or else NT (N).Nkind = N_Object_Renaming_Declaration
2101 or else NT (N).Nkind = N_Package_Instantiation
2102 or else NT (N).Nkind = N_Package_Renaming_Declaration
2103 or else NT (N).Nkind = N_Procedure_Call_Statement
2104 or else NT (N).Nkind = N_Procedure_Instantiation
2105 or else NT (N).Nkind = N_Raise_Statement
2106 or else NT (N).Nkind = N_Requeue_Statement
2107 or else NT (N).Nkind = N_Subprogram_Renaming_Declaration
2108 or else NT (N).Nkind = N_Subunit
2109 or else NT (N).Nkind = N_Variant_Part
2110 or else NT (N).Nkind = N_With_Clause);
2115 (N : Node_Id) return List_Id is
2117 pragma Assert (False
2118 or else NT (N).Nkind = N_Abort_Statement
2119 or else NT (N).Nkind = N_Use_Package_Clause);
2123 function Next_Entity
2124 (N : Node_Id) return Node_Id is
2126 pragma Assert (False
2127 or else NT (N).Nkind = N_Defining_Character_Literal
2128 or else NT (N).Nkind = N_Defining_Identifier
2129 or else NT (N).Nkind = N_Defining_Operator_Symbol);
2133 function Next_Exit_Statement
2134 (N : Node_Id) return Node_Id is
2136 pragma Assert (False
2137 or else NT (N).Nkind = N_Exit_Statement);
2139 end Next_Exit_Statement;
2141 function Next_Implicit_With
2142 (N : Node_Id) return Node_Id is
2144 pragma Assert (False
2145 or else NT (N).Nkind = N_With_Clause);
2147 end Next_Implicit_With;
2149 function Next_Named_Actual
2150 (N : Node_Id) return Node_Id is
2152 pragma Assert (False
2153 or else NT (N).Nkind = N_Parameter_Association);
2155 end Next_Named_Actual;
2157 function Next_Pragma
2158 (N : Node_Id) return Node_Id is
2160 pragma Assert (False
2161 or else NT (N).Nkind = N_Pragma);
2165 function Next_Rep_Item
2166 (N : Node_Id) return Node_Id is
2168 pragma Assert (False
2169 or else NT (N).Nkind = N_Aspect_Specification
2170 or else NT (N).Nkind = N_Attribute_Definition_Clause
2171 or else NT (N).Nkind = N_Enumeration_Representation_Clause
2172 or else NT (N).Nkind = N_Pragma
2173 or else NT (N).Nkind = N_Record_Representation_Clause);
2177 function Next_Use_Clause
2178 (N : Node_Id) return Node_Id is
2180 pragma Assert (False
2181 or else NT (N).Nkind = N_Use_Package_Clause
2182 or else NT (N).Nkind = N_Use_Type_Clause);
2184 end Next_Use_Clause;
2186 function No_Ctrl_Actions
2187 (N : Node_Id) return Boolean is
2189 pragma Assert (False
2190 or else NT (N).Nkind = N_Assignment_Statement);
2192 end No_Ctrl_Actions;
2194 function No_Elaboration_Check
2195 (N : Node_Id) return Boolean is
2197 pragma Assert (False
2198 or else NT (N).Nkind = N_Function_Call
2199 or else NT (N).Nkind = N_Procedure_Call_Statement);
2201 end No_Elaboration_Check;
2203 function No_Entities_Ref_In_Spec
2204 (N : Node_Id) return Boolean is
2206 pragma Assert (False
2207 or else NT (N).Nkind = N_With_Clause);
2209 end No_Entities_Ref_In_Spec;
2211 function No_Initialization
2212 (N : Node_Id) return Boolean is
2214 pragma Assert (False
2215 or else NT (N).Nkind = N_Allocator
2216 or else NT (N).Nkind = N_Object_Declaration);
2218 end No_Initialization;
2220 function No_Truncation
2221 (N : Node_Id) return Boolean is
2223 pragma Assert (False
2224 or else NT (N).Nkind = N_Unchecked_Type_Conversion);
2228 function Null_Present
2229 (N : Node_Id) return Boolean is
2231 pragma Assert (False
2232 or else NT (N).Nkind = N_Component_List
2233 or else NT (N).Nkind = N_Procedure_Specification
2234 or else NT (N).Nkind = N_Record_Definition);
2238 function Null_Exclusion_Present
2239 (N : Node_Id) return Boolean is
2241 pragma Assert (False
2242 or else NT (N).Nkind = N_Access_Definition
2243 or else NT (N).Nkind = N_Access_Function_Definition
2244 or else NT (N).Nkind = N_Access_Procedure_Definition
2245 or else NT (N).Nkind = N_Access_To_Object_Definition
2246 or else NT (N).Nkind = N_Allocator
2247 or else NT (N).Nkind = N_Component_Definition
2248 or else NT (N).Nkind = N_Derived_Type_Definition
2249 or else NT (N).Nkind = N_Discriminant_Specification
2250 or else NT (N).Nkind = N_Formal_Object_Declaration
2251 or else NT (N).Nkind = N_Function_Specification
2252 or else NT (N).Nkind = N_Object_Declaration
2253 or else NT (N).Nkind = N_Object_Renaming_Declaration
2254 or else NT (N).Nkind = N_Parameter_Specification
2255 or else NT (N).Nkind = N_Subtype_Declaration);
2257 end Null_Exclusion_Present;
2259 function Null_Exclusion_In_Return_Present
2260 (N : Node_Id) return Boolean is
2262 pragma Assert (False
2263 or else NT (N).Nkind = N_Access_Function_Definition);
2265 end Null_Exclusion_In_Return_Present;
2267 function Null_Record_Present
2268 (N : Node_Id) return Boolean is
2270 pragma Assert (False
2271 or else NT (N).Nkind = N_Aggregate
2272 or else NT (N).Nkind = N_Extension_Aggregate);
2274 end Null_Record_Present;
2276 function Object_Definition
2277 (N : Node_Id) return Node_Id is
2279 pragma Assert (False
2280 or else NT (N).Nkind = N_Object_Declaration);
2282 end Object_Definition;
2285 (N : Node_Id) return Boolean is
2287 pragma Assert (False
2288 or else NT (N).Nkind = N_Iterator_Specification);
2292 function Original_Discriminant
2293 (N : Node_Id) return Node_Id is
2295 pragma Assert (False
2296 or else NT (N).Nkind = N_Identifier);
2298 end Original_Discriminant;
2300 function Original_Entity
2301 (N : Node_Id) return Entity_Id is
2303 pragma Assert (False
2304 or else NT (N).Nkind = N_Integer_Literal
2305 or else NT (N).Nkind = N_Real_Literal);
2307 end Original_Entity;
2309 function Others_Discrete_Choices
2310 (N : Node_Id) return List_Id is
2312 pragma Assert (False
2313 or else NT (N).Nkind = N_Others_Choice);
2315 end Others_Discrete_Choices;
2317 function Out_Present
2318 (N : Node_Id) return Boolean is
2320 pragma Assert (False
2321 or else NT (N).Nkind = N_Formal_Object_Declaration
2322 or else NT (N).Nkind = N_Parameter_Specification);
2326 function Parameter_Associations
2327 (N : Node_Id) return List_Id is
2329 pragma Assert (False
2330 or else NT (N).Nkind = N_Entry_Call_Statement
2331 or else NT (N).Nkind = N_Function_Call
2332 or else NT (N).Nkind = N_Procedure_Call_Statement);
2334 end Parameter_Associations;
2336 function Parameter_List_Truncated
2337 (N : Node_Id) return Boolean is
2339 pragma Assert (False
2340 or else NT (N).Nkind = N_Function_Call
2341 or else NT (N).Nkind = N_Procedure_Call_Statement);
2343 end Parameter_List_Truncated;
2345 function Parameter_Specifications
2346 (N : Node_Id) return List_Id is
2348 pragma Assert (False
2349 or else NT (N).Nkind = N_Accept_Statement
2350 or else NT (N).Nkind = N_Access_Function_Definition
2351 or else NT (N).Nkind = N_Access_Procedure_Definition
2352 or else NT (N).Nkind = N_Entry_Body_Formal_Part
2353 or else NT (N).Nkind = N_Entry_Declaration
2354 or else NT (N).Nkind = N_Function_Specification
2355 or else NT (N).Nkind = N_Procedure_Specification);
2357 end Parameter_Specifications;
2359 function Parameter_Type
2360 (N : Node_Id) return Node_Id is
2362 pragma Assert (False
2363 or else NT (N).Nkind = N_Parameter_Specification);
2367 function Parent_Spec
2368 (N : Node_Id) return Node_Id is
2370 pragma Assert (False
2371 or else NT (N).Nkind = N_Function_Instantiation
2372 or else NT (N).Nkind = N_Generic_Function_Renaming_Declaration
2373 or else NT (N).Nkind = N_Generic_Package_Declaration
2374 or else NT (N).Nkind = N_Generic_Package_Renaming_Declaration
2375 or else NT (N).Nkind = N_Generic_Procedure_Renaming_Declaration
2376 or else NT (N).Nkind = N_Generic_Subprogram_Declaration
2377 or else NT (N).Nkind = N_Package_Declaration
2378 or else NT (N).Nkind = N_Package_Instantiation
2379 or else NT (N).Nkind = N_Package_Renaming_Declaration
2380 or else NT (N).Nkind = N_Procedure_Instantiation
2381 or else NT (N).Nkind = N_Subprogram_Declaration
2382 or else NT (N).Nkind = N_Subprogram_Renaming_Declaration);
2387 (N : Node_Id) return Node_Id is
2389 pragma Assert (False
2390 or else NT (N).Nkind = N_Component_Clause);
2394 function Pragma_Argument_Associations
2395 (N : Node_Id) return List_Id is
2397 pragma Assert (False
2398 or else NT (N).Nkind = N_Pragma);
2400 end Pragma_Argument_Associations;
2402 function Pragma_Enabled
2403 (N : Node_Id) return Boolean is
2405 pragma Assert (False
2406 or else NT (N).Nkind = N_Pragma);
2410 function Pragma_Identifier
2411 (N : Node_Id) return Node_Id is
2413 pragma Assert (False
2414 or else NT (N).Nkind = N_Pragma);
2416 end Pragma_Identifier;
2418 function Pragmas_After
2419 (N : Node_Id) return List_Id is
2421 pragma Assert (False
2422 or else NT (N).Nkind = N_Compilation_Unit_Aux
2423 or else NT (N).Nkind = N_Terminate_Alternative);
2427 function Pragmas_Before
2428 (N : Node_Id) return List_Id is
2430 pragma Assert (False
2431 or else NT (N).Nkind = N_Accept_Alternative
2432 or else NT (N).Nkind = N_Delay_Alternative
2433 or else NT (N).Nkind = N_Entry_Call_Alternative
2434 or else NT (N).Nkind = N_Mod_Clause
2435 or else NT (N).Nkind = N_Terminate_Alternative
2436 or else NT (N).Nkind = N_Triggering_Alternative);
2441 (N : Node_Id) return Node_Id is
2443 pragma Assert (False
2444 or else NT (N).Nkind = N_Attribute_Reference
2445 or else NT (N).Nkind = N_Expanded_Name
2446 or else NT (N).Nkind = N_Explicit_Dereference
2447 or else NT (N).Nkind = N_Indexed_Component
2448 or else NT (N).Nkind = N_Reference
2449 or else NT (N).Nkind = N_Selected_Component
2450 or else NT (N).Nkind = N_Slice);
2454 function Present_Expr
2455 (N : Node_Id) return Uint is
2457 pragma Assert (False
2458 or else NT (N).Nkind = N_Variant);
2463 (N : Node_Id) return Boolean is
2465 pragma Assert (False
2466 or else NT (N).Nkind = N_Component_Declaration
2467 or else NT (N).Nkind = N_Discriminant_Specification
2468 or else NT (N).Nkind = N_Exception_Declaration
2469 or else NT (N).Nkind = N_Formal_Object_Declaration
2470 or else NT (N).Nkind = N_Number_Declaration
2471 or else NT (N).Nkind = N_Object_Declaration
2472 or else NT (N).Nkind = N_Parameter_Specification);
2476 function Print_In_Hex
2477 (N : Node_Id) return Boolean is
2479 pragma Assert (False
2480 or else NT (N).Nkind = N_Integer_Literal);
2484 function Private_Declarations
2485 (N : Node_Id) return List_Id is
2487 pragma Assert (False
2488 or else NT (N).Nkind = N_Package_Specification
2489 or else NT (N).Nkind = N_Protected_Definition
2490 or else NT (N).Nkind = N_Task_Definition);
2492 end Private_Declarations;
2494 function Private_Present
2495 (N : Node_Id) return Boolean is
2497 pragma Assert (False
2498 or else NT (N).Nkind = N_Compilation_Unit
2499 or else NT (N).Nkind = N_Formal_Derived_Type_Definition
2500 or else NT (N).Nkind = N_With_Clause);
2502 end Private_Present;
2504 function Procedure_To_Call
2505 (N : Node_Id) return Node_Id is
2507 pragma Assert (False
2508 or else NT (N).Nkind = N_Allocator
2509 or else NT (N).Nkind = N_Extended_Return_Statement
2510 or else NT (N).Nkind = N_Free_Statement
2511 or else NT (N).Nkind = N_Return_Statement);
2513 end Procedure_To_Call;
2515 function Proper_Body
2516 (N : Node_Id) return Node_Id is
2518 pragma Assert (False
2519 or else NT (N).Nkind = N_Subunit);
2523 function Protected_Definition
2524 (N : Node_Id) return Node_Id is
2526 pragma Assert (False
2527 or else NT (N).Nkind = N_Protected_Type_Declaration
2528 or else NT (N).Nkind = N_Single_Protected_Declaration);
2530 end Protected_Definition;
2532 function Protected_Present
2533 (N : Node_Id) return Boolean is
2535 pragma Assert (False
2536 or else NT (N).Nkind = N_Access_Function_Definition
2537 or else NT (N).Nkind = N_Access_Procedure_Definition
2538 or else NT (N).Nkind = N_Derived_Type_Definition
2539 or else NT (N).Nkind = N_Record_Definition);
2541 end Protected_Present;
2543 function Raises_Constraint_Error
2544 (N : Node_Id) return Boolean is
2546 pragma Assert (False
2547 or else NT (N).Nkind in N_Subexpr);
2549 end Raises_Constraint_Error;
2551 function Range_Constraint
2552 (N : Node_Id) return Node_Id is
2554 pragma Assert (False
2555 or else NT (N).Nkind = N_Delta_Constraint
2556 or else NT (N).Nkind = N_Digits_Constraint);
2558 end Range_Constraint;
2560 function Range_Expression
2561 (N : Node_Id) return Node_Id is
2563 pragma Assert (False
2564 or else NT (N).Nkind = N_Range_Constraint);
2566 end Range_Expression;
2568 function Real_Range_Specification
2569 (N : Node_Id) return Node_Id is
2571 pragma Assert (False
2572 or else NT (N).Nkind = N_Decimal_Fixed_Point_Definition
2573 or else NT (N).Nkind = N_Floating_Point_Definition
2574 or else NT (N).Nkind = N_Ordinary_Fixed_Point_Definition);
2576 end Real_Range_Specification;
2579 (N : Node_Id) return Ureal is
2581 pragma Assert (False
2582 or else NT (N).Nkind = N_Real_Literal);
2587 (N : Node_Id) return Uint is
2589 pragma Assert (False
2590 or else NT (N).Nkind = N_Raise_Constraint_Error
2591 or else NT (N).Nkind = N_Raise_Program_Error
2592 or else NT (N).Nkind = N_Raise_Storage_Error);
2596 function Record_Extension_Part
2597 (N : Node_Id) return Node_Id is
2599 pragma Assert (False
2600 or else NT (N).Nkind = N_Derived_Type_Definition);
2602 end Record_Extension_Part;
2604 function Redundant_Use
2605 (N : Node_Id) return Boolean is
2607 pragma Assert (False
2608 or else NT (N).Nkind = N_Attribute_Reference
2609 or else NT (N).Nkind = N_Expanded_Name
2610 or else NT (N).Nkind = N_Identifier);
2614 function Renaming_Exception
2615 (N : Node_Id) return Node_Id is
2617 pragma Assert (False
2618 or else NT (N).Nkind = N_Exception_Declaration);
2620 end Renaming_Exception;
2622 function Result_Definition
2623 (N : Node_Id) return Node_Id is
2625 pragma Assert (False
2626 or else NT (N).Nkind = N_Access_Function_Definition
2627 or else NT (N).Nkind = N_Function_Specification);
2629 end Result_Definition;
2631 function Return_Object_Declarations
2632 (N : Node_Id) return List_Id is
2634 pragma Assert (False
2635 or else NT (N).Nkind = N_Extended_Return_Statement);
2637 end Return_Object_Declarations;
2639 function Return_Statement_Entity
2640 (N : Node_Id) return Node_Id is
2642 pragma Assert (False
2643 or else NT (N).Nkind = N_Extended_Return_Statement
2644 or else NT (N).Nkind = N_Return_Statement);
2646 end Return_Statement_Entity;
2648 function Reverse_Present
2649 (N : Node_Id) return Boolean is
2651 pragma Assert (False
2652 or else NT (N).Nkind = N_Iterator_Specification
2653 or else NT (N).Nkind = N_Loop_Parameter_Specification);
2655 end Reverse_Present;
2658 (N : Node_Id) return Node_Id is
2660 pragma Assert (False
2661 or else NT (N).Nkind in N_Op
2662 or else NT (N).Nkind = N_And_Then
2663 or else NT (N).Nkind = N_In
2664 or else NT (N).Nkind = N_Not_In
2665 or else NT (N).Nkind = N_Or_Else);
2669 function Rounded_Result
2670 (N : Node_Id) return Boolean is
2672 pragma Assert (False
2673 or else NT (N).Nkind = N_Op_Divide
2674 or else NT (N).Nkind = N_Op_Multiply
2675 or else NT (N).Nkind = N_Type_Conversion);
2679 function SCIL_Controlling_Tag
2680 (N : Node_Id) return Node_Id is
2682 pragma Assert (False
2683 or else NT (N).Nkind = N_SCIL_Dispatching_Call);
2685 end SCIL_Controlling_Tag;
2687 function SCIL_Entity
2688 (N : Node_Id) return Node_Id is
2690 pragma Assert (False
2691 or else NT (N).Nkind = N_SCIL_Dispatch_Table_Tag_Init
2692 or else NT (N).Nkind = N_SCIL_Dispatching_Call
2693 or else NT (N).Nkind = N_SCIL_Membership_Test);
2697 function SCIL_Tag_Value
2698 (N : Node_Id) return Node_Id is
2700 pragma Assert (False
2701 or else NT (N).Nkind = N_SCIL_Membership_Test);
2705 function SCIL_Target_Prim
2706 (N : Node_Id) return Node_Id is
2708 pragma Assert (False
2709 or else NT (N).Nkind = N_SCIL_Dispatching_Call);
2711 end SCIL_Target_Prim;
2714 (N : Node_Id) return Node_Id is
2716 pragma Assert (False
2717 or else NT (N).Nkind = N_Defining_Character_Literal
2718 or else NT (N).Nkind = N_Defining_Identifier
2719 or else NT (N).Nkind = N_Defining_Operator_Symbol);
2723 function Select_Alternatives
2724 (N : Node_Id) return List_Id is
2726 pragma Assert (False
2727 or else NT (N).Nkind = N_Selective_Accept);
2729 end Select_Alternatives;
2731 function Selector_Name
2732 (N : Node_Id) return Node_Id is
2734 pragma Assert (False
2735 or else NT (N).Nkind = N_Expanded_Name
2736 or else NT (N).Nkind = N_Generic_Association
2737 or else NT (N).Nkind = N_Parameter_Association
2738 or else NT (N).Nkind = N_Selected_Component);
2742 function Selector_Names
2743 (N : Node_Id) return List_Id is
2745 pragma Assert (False
2746 or else NT (N).Nkind = N_Discriminant_Association);
2750 function Shift_Count_OK
2751 (N : Node_Id) return Boolean is
2753 pragma Assert (False
2754 or else NT (N).Nkind = N_Op_Rotate_Left
2755 or else NT (N).Nkind = N_Op_Rotate_Right
2756 or else NT (N).Nkind = N_Op_Shift_Left
2757 or else NT (N).Nkind = N_Op_Shift_Right
2758 or else NT (N).Nkind = N_Op_Shift_Right_Arithmetic);
2762 function Source_Type
2763 (N : Node_Id) return Entity_Id is
2765 pragma Assert (False
2766 or else NT (N).Nkind = N_Validate_Unchecked_Conversion);
2770 function Specification
2771 (N : Node_Id) return Node_Id is
2773 pragma Assert (False
2774 or else NT (N).Nkind = N_Abstract_Subprogram_Declaration
2775 or else NT (N).Nkind = N_Formal_Abstract_Subprogram_Declaration
2776 or else NT (N).Nkind = N_Formal_Concrete_Subprogram_Declaration
2777 or else NT (N).Nkind = N_Generic_Package_Declaration
2778 or else NT (N).Nkind = N_Generic_Subprogram_Declaration
2779 or else NT (N).Nkind = N_Package_Declaration
2780 or else NT (N).Nkind = N_Parameterized_Expression
2781 or else NT (N).Nkind = N_Subprogram_Body
2782 or else NT (N).Nkind = N_Subprogram_Body_Stub
2783 or else NT (N).Nkind = N_Subprogram_Declaration
2784 or else NT (N).Nkind = N_Subprogram_Renaming_Declaration);
2789 (N : Node_Id) return Boolean is
2791 pragma Assert (False
2792 or else NT (N).Nkind = N_Aspect_Specification
2793 or else NT (N).Nkind = N_Pragma);
2798 (N : Node_Id) return List_Id is
2800 pragma Assert (False
2801 or else NT (N).Nkind = N_Abortable_Part
2802 or else NT (N).Nkind = N_Accept_Alternative
2803 or else NT (N).Nkind = N_Case_Statement_Alternative
2804 or else NT (N).Nkind = N_Delay_Alternative
2805 or else NT (N).Nkind = N_Entry_Call_Alternative
2806 or else NT (N).Nkind = N_Exception_Handler
2807 or else NT (N).Nkind = N_Handled_Sequence_Of_Statements
2808 or else NT (N).Nkind = N_Loop_Statement
2809 or else NT (N).Nkind = N_Triggering_Alternative);
2813 function Static_Processing_OK
2814 (N : Node_Id) return Boolean is
2816 pragma Assert (False
2817 or else NT (N).Nkind = N_Aggregate);
2819 end Static_Processing_OK;
2821 function Storage_Pool
2822 (N : Node_Id) return Node_Id is
2824 pragma Assert (False
2825 or else NT (N).Nkind = N_Allocator
2826 or else NT (N).Nkind = N_Extended_Return_Statement
2827 or else NT (N).Nkind = N_Free_Statement
2828 or else NT (N).Nkind = N_Return_Statement);
2833 (N : Node_Id) return String_Id is
2835 pragma Assert (False
2836 or else NT (N).Nkind = N_Operator_Symbol
2837 or else NT (N).Nkind = N_String_Literal);
2841 function Subtype_Indication
2842 (N : Node_Id) return Node_Id is
2844 pragma Assert (False
2845 or else NT (N).Nkind = N_Access_To_Object_Definition
2846 or else NT (N).Nkind = N_Component_Definition
2847 or else NT (N).Nkind = N_Derived_Type_Definition
2848 or else NT (N).Nkind = N_Iterator_Specification
2849 or else NT (N).Nkind = N_Private_Extension_Declaration
2850 or else NT (N).Nkind = N_Subtype_Declaration);
2852 end Subtype_Indication;
2854 function Suppress_Assignment_Checks
2855 (N : Node_Id) return Boolean is
2857 pragma Assert (False
2858 or else NT (N).Nkind = N_Assignment_Statement
2859 or else NT (N).Nkind = N_Object_Declaration);
2861 end Suppress_Assignment_Checks;
2863 function Suppress_Loop_Warnings
2864 (N : Node_Id) return Boolean is
2866 pragma Assert (False
2867 or else NT (N).Nkind = N_Loop_Statement);
2869 end Suppress_Loop_Warnings;
2871 function Subtype_Mark
2872 (N : Node_Id) return Node_Id is
2874 pragma Assert (False
2875 or else NT (N).Nkind = N_Access_Definition
2876 or else NT (N).Nkind = N_Formal_Derived_Type_Definition
2877 or else NT (N).Nkind = N_Formal_Object_Declaration
2878 or else NT (N).Nkind = N_Object_Renaming_Declaration
2879 or else NT (N).Nkind = N_Qualified_Expression
2880 or else NT (N).Nkind = N_Subtype_Indication
2881 or else NT (N).Nkind = N_Type_Conversion
2882 or else NT (N).Nkind = N_Unchecked_Type_Conversion);
2886 function Subtype_Marks
2887 (N : Node_Id) return List_Id is
2889 pragma Assert (False
2890 or else NT (N).Nkind = N_Unconstrained_Array_Definition
2891 or else NT (N).Nkind = N_Use_Type_Clause);
2895 function Synchronized_Present
2896 (N : Node_Id) return Boolean is
2898 pragma Assert (False
2899 or else NT (N).Nkind = N_Derived_Type_Definition
2900 or else NT (N).Nkind = N_Formal_Derived_Type_Definition
2901 or else NT (N).Nkind = N_Private_Extension_Declaration
2902 or else NT (N).Nkind = N_Record_Definition);
2904 end Synchronized_Present;
2906 function Tagged_Present
2907 (N : Node_Id) return Boolean is
2909 pragma Assert (False
2910 or else NT (N).Nkind = N_Formal_Private_Type_Definition
2911 or else NT (N).Nkind = N_Incomplete_Type_Declaration
2912 or else NT (N).Nkind = N_Private_Type_Declaration
2913 or else NT (N).Nkind = N_Record_Definition);
2917 function Target_Type
2918 (N : Node_Id) return Entity_Id is
2920 pragma Assert (False
2921 or else NT (N).Nkind = N_Validate_Unchecked_Conversion);
2925 function Task_Definition
2926 (N : Node_Id) return Node_Id is
2928 pragma Assert (False
2929 or else NT (N).Nkind = N_Single_Task_Declaration
2930 or else NT (N).Nkind = N_Task_Type_Declaration);
2932 end Task_Definition;
2934 function Task_Present
2935 (N : Node_Id) return Boolean is
2937 pragma Assert (False
2938 or else NT (N).Nkind = N_Derived_Type_Definition
2939 or else NT (N).Nkind = N_Record_Definition);
2943 function Then_Actions
2944 (N : Node_Id) return List_Id is
2946 pragma Assert (False
2947 or else NT (N).Nkind = N_Conditional_Expression);
2951 function Then_Statements
2952 (N : Node_Id) return List_Id is
2954 pragma Assert (False
2955 or else NT (N).Nkind = N_Elsif_Part
2956 or else NT (N).Nkind = N_If_Statement);
2958 end Then_Statements;
2960 function Treat_Fixed_As_Integer
2961 (N : Node_Id) return Boolean is
2963 pragma Assert (False
2964 or else NT (N).Nkind = N_Op_Divide
2965 or else NT (N).Nkind = N_Op_Mod
2966 or else NT (N).Nkind = N_Op_Multiply
2967 or else NT (N).Nkind = N_Op_Rem);
2969 end Treat_Fixed_As_Integer;
2971 function Triggering_Alternative
2972 (N : Node_Id) return Node_Id is
2974 pragma Assert (False
2975 or else NT (N).Nkind = N_Asynchronous_Select);
2977 end Triggering_Alternative;
2979 function Triggering_Statement
2980 (N : Node_Id) return Node_Id is
2982 pragma Assert (False
2983 or else NT (N).Nkind = N_Triggering_Alternative);
2985 end Triggering_Statement;
2988 (N : Node_Id) return Elist_Id is
2990 pragma Assert (False
2991 or else NT (N).Nkind = N_Freeze_Entity);
2995 function Type_Definition
2996 (N : Node_Id) return Node_Id is
2998 pragma Assert (False
2999 or else NT (N).Nkind = N_Full_Type_Declaration);
3001 end Type_Definition;
3004 (N : Node_Id) return Node_Id is
3006 pragma Assert (False
3007 or else NT (N).Nkind = N_Compilation_Unit);
3011 function Unknown_Discriminants_Present
3012 (N : Node_Id) return Boolean is
3014 pragma Assert (False
3015 or else NT (N).Nkind = N_Formal_Type_Declaration
3016 or else NT (N).Nkind = N_Incomplete_Type_Declaration
3017 or else NT (N).Nkind = N_Private_Extension_Declaration
3018 or else NT (N).Nkind = N_Private_Type_Declaration);
3020 end Unknown_Discriminants_Present;
3022 function Unreferenced_In_Spec
3023 (N : Node_Id) return Boolean is
3025 pragma Assert (False
3026 or else NT (N).Nkind = N_With_Clause);
3028 end Unreferenced_In_Spec;
3030 function Variant_Part
3031 (N : Node_Id) return Node_Id is
3033 pragma Assert (False
3034 or else NT (N).Nkind = N_Component_List);
3039 (N : Node_Id) return List_Id is
3041 pragma Assert (False
3042 or else NT (N).Nkind = N_Variant_Part);
3046 function Visible_Declarations
3047 (N : Node_Id) return List_Id is
3049 pragma Assert (False
3050 or else NT (N).Nkind = N_Package_Specification
3051 or else NT (N).Nkind = N_Protected_Definition
3052 or else NT (N).Nkind = N_Task_Definition);
3054 end Visible_Declarations;
3056 function Was_Originally_Stub
3057 (N : Node_Id) return Boolean is
3059 pragma Assert (False
3060 or else NT (N).Nkind = N_Package_Body
3061 or else NT (N).Nkind = N_Protected_Body
3062 or else NT (N).Nkind = N_Subprogram_Body
3063 or else NT (N).Nkind = N_Task_Body);
3065 end Was_Originally_Stub;
3067 function Withed_Body
3068 (N : Node_Id) return Node_Id is
3070 pragma Assert (False
3071 or else NT (N).Nkind = N_With_Clause);
3075 function Zero_Cost_Handling
3076 (N : Node_Id) return Boolean is
3078 pragma Assert (False
3079 or else NT (N).Nkind = N_Exception_Handler
3080 or else NT (N).Nkind = N_Handled_Sequence_Of_Statements);
3082 end Zero_Cost_Handling;
3084 --------------------------
3085 -- Field Set Procedures --
3086 --------------------------
3088 procedure Set_ABE_Is_Certain
3089 (N : Node_Id; Val : Boolean := True) is
3091 pragma Assert (False
3092 or else NT (N).Nkind = N_Formal_Package_Declaration
3093 or else NT (N).Nkind = N_Function_Call
3094 or else NT (N).Nkind = N_Function_Instantiation
3095 or else NT (N).Nkind = N_Package_Instantiation
3096 or else NT (N).Nkind = N_Procedure_Call_Statement
3097 or else NT (N).Nkind = N_Procedure_Instantiation);
3098 Set_Flag18 (N, Val);
3099 end Set_ABE_Is_Certain;
3101 procedure Set_Abort_Present
3102 (N : Node_Id; Val : Boolean := True) is
3104 pragma Assert (False
3105 or else NT (N).Nkind = N_Requeue_Statement);
3106 Set_Flag15 (N, Val);
3107 end Set_Abort_Present;
3109 procedure Set_Abortable_Part
3110 (N : Node_Id; Val : Node_Id) is
3112 pragma Assert (False
3113 or else NT (N).Nkind = N_Asynchronous_Select);
3114 Set_Node2_With_Parent (N, Val);
3115 end Set_Abortable_Part;
3117 procedure Set_Abstract_Present
3118 (N : Node_Id; Val : Boolean := True) is
3120 pragma Assert (False
3121 or else NT (N).Nkind = N_Derived_Type_Definition
3122 or else NT (N).Nkind = N_Formal_Derived_Type_Definition
3123 or else NT (N).Nkind = N_Formal_Private_Type_Definition
3124 or else NT (N).Nkind = N_Private_Extension_Declaration
3125 or else NT (N).Nkind = N_Private_Type_Declaration
3126 or else NT (N).Nkind = N_Record_Definition);
3128 end Set_Abstract_Present;
3130 procedure Set_Accept_Handler_Records
3131 (N : Node_Id; Val : List_Id) is
3133 pragma Assert (False
3134 or else NT (N).Nkind = N_Accept_Alternative);
3135 Set_List5 (N, Val); -- semantic field, no parent set
3136 end Set_Accept_Handler_Records;
3138 procedure Set_Accept_Statement
3139 (N : Node_Id; Val : Node_Id) is
3141 pragma Assert (False
3142 or else NT (N).Nkind = N_Accept_Alternative);
3143 Set_Node2_With_Parent (N, Val);
3144 end Set_Accept_Statement;
3146 procedure Set_Access_Definition
3147 (N : Node_Id; Val : Node_Id) is
3149 pragma Assert (False
3150 or else NT (N).Nkind = N_Component_Definition
3151 or else NT (N).Nkind = N_Formal_Object_Declaration
3152 or else NT (N).Nkind = N_Object_Renaming_Declaration);
3153 Set_Node3_With_Parent (N, Val);
3154 end Set_Access_Definition;
3156 procedure Set_Access_To_Subprogram_Definition
3157 (N : Node_Id; Val : Node_Id) is
3159 pragma Assert (False
3160 or else NT (N).Nkind = N_Access_Definition);
3161 Set_Node3_With_Parent (N, Val);
3162 end Set_Access_To_Subprogram_Definition;
3164 procedure Set_Access_Types_To_Process
3165 (N : Node_Id; Val : Elist_Id) is
3167 pragma Assert (False
3168 or else NT (N).Nkind = N_Freeze_Entity);
3169 Set_Elist2 (N, Val); -- semantic field, no parent set
3170 end Set_Access_Types_To_Process;
3172 procedure Set_Actions
3173 (N : Node_Id; Val : List_Id) is
3175 pragma Assert (False
3176 or else NT (N).Nkind = N_And_Then
3177 or else NT (N).Nkind = N_Case_Expression_Alternative
3178 or else NT (N).Nkind = N_Compilation_Unit_Aux
3179 or else NT (N).Nkind = N_Expression_With_Actions
3180 or else NT (N).Nkind = N_Freeze_Entity
3181 or else NT (N).Nkind = N_Or_Else);
3182 Set_List1_With_Parent (N, Val);
3185 procedure Set_Activation_Chain_Entity
3186 (N : Node_Id; Val : Node_Id) is
3188 pragma Assert (False
3189 or else NT (N).Nkind = N_Block_Statement
3190 or else NT (N).Nkind = N_Entry_Body
3191 or else NT (N).Nkind = N_Generic_Package_Declaration
3192 or else NT (N).Nkind = N_Package_Declaration
3193 or else NT (N).Nkind = N_Subprogram_Body
3194 or else NT (N).Nkind = N_Task_Body);
3195 Set_Node3 (N, Val); -- semantic field, no parent set
3196 end Set_Activation_Chain_Entity;
3198 procedure Set_Acts_As_Spec
3199 (N : Node_Id; Val : Boolean := True) is
3201 pragma Assert (False
3202 or else NT (N).Nkind = N_Compilation_Unit
3203 or else NT (N).Nkind = N_Subprogram_Body);
3205 end Set_Acts_As_Spec;
3207 procedure Set_Actual_Designated_Subtype
3208 (N : Node_Id; Val : Node_Id) is
3210 pragma Assert (False
3211 or else NT (N).Nkind = N_Explicit_Dereference
3212 or else NT (N).Nkind = N_Free_Statement);
3214 end Set_Actual_Designated_Subtype;
3216 procedure Set_Address_Warning_Posted
3217 (N : Node_Id; Val : Boolean := True) is
3219 pragma Assert (False
3220 or else NT (N).Nkind = N_Attribute_Definition_Clause);
3221 Set_Flag18 (N, Val);
3222 end Set_Address_Warning_Posted;
3224 procedure Set_Aggregate_Bounds
3225 (N : Node_Id; Val : Node_Id) is
3227 pragma Assert (False
3228 or else NT (N).Nkind = N_Aggregate);
3229 Set_Node3 (N, Val); -- semantic field, no parent set
3230 end Set_Aggregate_Bounds;
3232 procedure Set_Aliased_Present
3233 (N : Node_Id; Val : Boolean := True) is
3235 pragma Assert (False
3236 or else NT (N).Nkind = N_Component_Definition
3237 or else NT (N).Nkind = N_Object_Declaration);
3239 end Set_Aliased_Present;
3241 procedure Set_All_Others
3242 (N : Node_Id; Val : Boolean := True) is
3244 pragma Assert (False
3245 or else NT (N).Nkind = N_Others_Choice);
3246 Set_Flag11 (N, Val);
3249 procedure Set_All_Present
3250 (N : Node_Id; Val : Boolean := True) is
3252 pragma Assert (False
3253 or else NT (N).Nkind = N_Access_Definition
3254 or else NT (N).Nkind = N_Access_To_Object_Definition
3255 or else NT (N).Nkind = N_Quantified_Expression
3256 or else NT (N).Nkind = N_Use_Type_Clause);
3257 Set_Flag15 (N, Val);
3258 end Set_All_Present;
3260 procedure Set_Alternatives
3261 (N : Node_Id; Val : List_Id) is
3263 pragma Assert (False
3264 or else NT (N).Nkind = N_Case_Expression
3265 or else NT (N).Nkind = N_Case_Statement
3266 or else NT (N).Nkind = N_In
3267 or else NT (N).Nkind = N_Not_In);
3268 Set_List4_With_Parent (N, Val);
3269 end Set_Alternatives;
3271 procedure Set_Ancestor_Part
3272 (N : Node_Id; Val : Node_Id) is
3274 pragma Assert (False
3275 or else NT (N).Nkind = N_Extension_Aggregate);
3276 Set_Node3_With_Parent (N, Val);
3277 end Set_Ancestor_Part;
3279 procedure Set_Array_Aggregate
3280 (N : Node_Id; Val : Node_Id) is
3282 pragma Assert (False
3283 or else NT (N).Nkind = N_Enumeration_Representation_Clause);
3284 Set_Node3_With_Parent (N, Val);
3285 end Set_Array_Aggregate;
3287 procedure Set_Aspect_Cancel
3288 (N : Node_Id; Val : Boolean := True) is
3290 pragma Assert (False
3291 or else NT (N).Nkind = N_Pragma);
3292 Set_Flag11 (N, Val);
3293 end Set_Aspect_Cancel;
3295 procedure Set_Aspect_Rep_Item
3296 (N : Node_Id; Val : Node_Id) is
3298 pragma Assert (False
3299 or else NT (N).Nkind = N_Aspect_Specification);
3301 end Set_Aspect_Rep_Item;
3303 procedure Set_Assignment_OK
3304 (N : Node_Id; Val : Boolean := True) is
3306 pragma Assert (False
3307 or else NT (N).Nkind = N_Object_Declaration
3308 or else NT (N).Nkind in N_Subexpr);
3309 Set_Flag15 (N, Val);
3310 end Set_Assignment_OK;
3312 procedure Set_Associated_Node
3313 (N : Node_Id; Val : Node_Id) is
3315 pragma Assert (False
3316 or else NT (N).Nkind in N_Has_Entity
3317 or else NT (N).Nkind = N_Aggregate
3318 or else NT (N).Nkind = N_Extension_Aggregate
3319 or else NT (N).Nkind = N_Selected_Component);
3320 Set_Node4 (N, Val); -- semantic field, no parent set
3321 end Set_Associated_Node;
3323 procedure Set_At_End_Proc
3324 (N : Node_Id; Val : Node_Id) is
3326 pragma Assert (False
3327 or else NT (N).Nkind = N_Handled_Sequence_Of_Statements);
3329 end Set_At_End_Proc;
3331 procedure Set_Attribute_Name
3332 (N : Node_Id; Val : Name_Id) is
3334 pragma Assert (False
3335 or else NT (N).Nkind = N_Attribute_Reference);
3337 end Set_Attribute_Name;
3339 procedure Set_Aux_Decls_Node
3340 (N : Node_Id; Val : Node_Id) is
3342 pragma Assert (False
3343 or else NT (N).Nkind = N_Compilation_Unit);
3344 Set_Node5_With_Parent (N, Val);
3345 end Set_Aux_Decls_Node;
3347 procedure Set_Backwards_OK
3348 (N : Node_Id; Val : Boolean := True) is
3350 pragma Assert (False
3351 or else NT (N).Nkind = N_Assignment_Statement);
3353 end Set_Backwards_OK;
3355 procedure Set_Bad_Is_Detected
3356 (N : Node_Id; Val : Boolean := True) is
3358 pragma Assert (False
3359 or else NT (N).Nkind = N_Subprogram_Body);
3360 Set_Flag15 (N, Val);
3361 end Set_Bad_Is_Detected;
3363 procedure Set_Body_Required
3364 (N : Node_Id; Val : Boolean := True) is
3366 pragma Assert (False
3367 or else NT (N).Nkind = N_Compilation_Unit);
3368 Set_Flag13 (N, Val);
3369 end Set_Body_Required;
3371 procedure Set_Body_To_Inline
3372 (N : Node_Id; Val : Node_Id) is
3374 pragma Assert (False
3375 or else NT (N).Nkind = N_Subprogram_Declaration);
3377 end Set_Body_To_Inline;
3379 procedure Set_Box_Present
3380 (N : Node_Id; Val : Boolean := True) is
3382 pragma Assert (False
3383 or else NT (N).Nkind = N_Component_Association
3384 or else NT (N).Nkind = N_Formal_Abstract_Subprogram_Declaration
3385 or else NT (N).Nkind = N_Formal_Concrete_Subprogram_Declaration
3386 or else NT (N).Nkind = N_Formal_Package_Declaration
3387 or else NT (N).Nkind = N_Generic_Association);
3388 Set_Flag15 (N, Val);
3389 end Set_Box_Present;
3391 procedure Set_By_Ref
3392 (N : Node_Id; Val : Boolean := True) is
3394 pragma Assert (False
3395 or else NT (N).Nkind = N_Extended_Return_Statement
3396 or else NT (N).Nkind = N_Return_Statement);
3400 procedure Set_Char_Literal_Value
3401 (N : Node_Id; Val : Uint) is
3403 pragma Assert (False
3404 or else NT (N).Nkind = N_Character_Literal);
3406 end Set_Char_Literal_Value;
3409 (N : Node_Id; Val : Name_Id) is
3411 pragma Assert (False
3412 or else NT (N).Nkind in N_Has_Chars);
3416 procedure Set_Check_Address_Alignment
3417 (N : Node_Id; Val : Boolean := True) is
3419 pragma Assert (False
3420 or else NT (N).Nkind = N_Attribute_Definition_Clause);
3421 Set_Flag11 (N, Val);
3422 end Set_Check_Address_Alignment;
3424 procedure Set_Choice_Parameter
3425 (N : Node_Id; Val : Node_Id) is
3427 pragma Assert (False
3428 or else NT (N).Nkind = N_Exception_Handler);
3429 Set_Node2_With_Parent (N, Val);
3430 end Set_Choice_Parameter;
3432 procedure Set_Choices
3433 (N : Node_Id; Val : List_Id) is
3435 pragma Assert (False
3436 or else NT (N).Nkind = N_Component_Association);
3437 Set_List1_With_Parent (N, Val);
3440 procedure Set_Class_Present
3441 (N : Node_Id; Val : Boolean := True) is
3443 pragma Assert (False
3444 or else NT (N).Nkind = N_Aspect_Specification
3445 or else NT (N).Nkind = N_Pragma);
3447 end Set_Class_Present;
3449 procedure Set_Coextensions
3450 (N : Node_Id; Val : Elist_Id) is
3452 pragma Assert (False
3453 or else NT (N).Nkind = N_Allocator);
3454 Set_Elist4 (N, Val);
3455 end Set_Coextensions;
3457 procedure Set_Comes_From_Extended_Return_Statement
3458 (N : Node_Id; Val : Boolean := True) is
3460 pragma Assert (False
3461 or else NT (N).Nkind = N_Return_Statement);
3462 Set_Flag18 (N, Val);
3463 end Set_Comes_From_Extended_Return_Statement;
3465 procedure Set_Compile_Time_Known_Aggregate
3466 (N : Node_Id; Val : Boolean := True) is
3468 pragma Assert (False
3469 or else NT (N).Nkind = N_Aggregate);
3470 Set_Flag18 (N, Val);
3471 end Set_Compile_Time_Known_Aggregate;
3473 procedure Set_Component_Associations
3474 (N : Node_Id; Val : List_Id) is
3476 pragma Assert (False
3477 or else NT (N).Nkind = N_Aggregate
3478 or else NT (N).Nkind = N_Extension_Aggregate);
3479 Set_List2_With_Parent (N, Val);
3480 end Set_Component_Associations;
3482 procedure Set_Component_Clauses
3483 (N : Node_Id; Val : List_Id) is
3485 pragma Assert (False
3486 or else NT (N).Nkind = N_Record_Representation_Clause);
3487 Set_List3_With_Parent (N, Val);
3488 end Set_Component_Clauses;
3490 procedure Set_Component_Definition
3491 (N : Node_Id; Val : Node_Id) is
3493 pragma Assert (False
3494 or else NT (N).Nkind = N_Component_Declaration
3495 or else NT (N).Nkind = N_Constrained_Array_Definition
3496 or else NT (N).Nkind = N_Unconstrained_Array_Definition);
3497 Set_Node4_With_Parent (N, Val);
3498 end Set_Component_Definition;
3500 procedure Set_Component_Items
3501 (N : Node_Id; Val : List_Id) is
3503 pragma Assert (False
3504 or else NT (N).Nkind = N_Component_List);
3505 Set_List3_With_Parent (N, Val);
3506 end Set_Component_Items;
3508 procedure Set_Component_List
3509 (N : Node_Id; Val : Node_Id) is
3511 pragma Assert (False
3512 or else NT (N).Nkind = N_Record_Definition
3513 or else NT (N).Nkind = N_Variant);
3514 Set_Node1_With_Parent (N, Val);
3515 end Set_Component_List;
3517 procedure Set_Component_Name
3518 (N : Node_Id; Val : Node_Id) is
3520 pragma Assert (False
3521 or else NT (N).Nkind = N_Component_Clause);
3522 Set_Node1_With_Parent (N, Val);
3523 end Set_Component_Name;
3525 procedure Set_Componentwise_Assignment
3526 (N : Node_Id; Val : Boolean := True) is
3528 pragma Assert (False
3529 or else NT (N).Nkind = N_Assignment_Statement);
3530 Set_Flag14 (N, Val);
3531 end Set_Componentwise_Assignment;
3533 procedure Set_Condition
3534 (N : Node_Id; Val : Node_Id) is
3536 pragma Assert (False
3537 or else NT (N).Nkind = N_Accept_Alternative
3538 or else NT (N).Nkind = N_Delay_Alternative
3539 or else NT (N).Nkind = N_Elsif_Part
3540 or else NT (N).Nkind = N_Entry_Body_Formal_Part
3541 or else NT (N).Nkind = N_Exit_Statement
3542 or else NT (N).Nkind = N_If_Statement
3543 or else NT (N).Nkind = N_Iteration_Scheme
3544 or else NT (N).Nkind = N_Quantified_Expression
3545 or else NT (N).Nkind = N_Raise_Constraint_Error
3546 or else NT (N).Nkind = N_Raise_Program_Error
3547 or else NT (N).Nkind = N_Raise_Storage_Error
3548 or else NT (N).Nkind = N_Terminate_Alternative);
3549 Set_Node1_With_Parent (N, Val);
3552 procedure Set_Condition_Actions
3553 (N : Node_Id; Val : List_Id) is
3555 pragma Assert (False
3556 or else NT (N).Nkind = N_Elsif_Part
3557 or else NT (N).Nkind = N_Iteration_Scheme);
3558 Set_List3 (N, Val); -- semantic field, no parent set
3559 end Set_Condition_Actions;
3561 procedure Set_Config_Pragmas
3562 (N : Node_Id; Val : List_Id) is
3564 pragma Assert (False
3565 or else NT (N).Nkind = N_Compilation_Unit_Aux);
3566 Set_List4_With_Parent (N, Val);
3567 end Set_Config_Pragmas;
3569 procedure Set_Constant_Present
3570 (N : Node_Id; Val : Boolean := True) is
3572 pragma Assert (False
3573 or else NT (N).Nkind = N_Access_Definition
3574 or else NT (N).Nkind = N_Access_To_Object_Definition
3575 or else NT (N).Nkind = N_Object_Declaration);
3576 Set_Flag17 (N, Val);
3577 end Set_Constant_Present;
3579 procedure Set_Constraint
3580 (N : Node_Id; Val : Node_Id) is
3582 pragma Assert (False
3583 or else NT (N).Nkind = N_Subtype_Indication);
3584 Set_Node3_With_Parent (N, Val);
3587 procedure Set_Constraints
3588 (N : Node_Id; Val : List_Id) is
3590 pragma Assert (False
3591 or else NT (N).Nkind = N_Index_Or_Discriminant_Constraint);
3592 Set_List1_With_Parent (N, Val);
3593 end Set_Constraints;
3595 procedure Set_Context_Installed
3596 (N : Node_Id; Val : Boolean := True) is
3598 pragma Assert (False
3599 or else NT (N).Nkind = N_With_Clause);
3600 Set_Flag13 (N, Val);
3601 end Set_Context_Installed;
3603 procedure Set_Context_Items
3604 (N : Node_Id; Val : List_Id) is
3606 pragma Assert (False
3607 or else NT (N).Nkind = N_Compilation_Unit);
3608 Set_List1_With_Parent (N, Val);
3609 end Set_Context_Items;
3611 procedure Set_Context_Pending
3612 (N : Node_Id; Val : Boolean := True) is
3614 pragma Assert (False
3615 or else NT (N).Nkind = N_Compilation_Unit);
3616 Set_Flag16 (N, Val);
3617 end Set_Context_Pending;
3619 procedure Set_Controlling_Argument
3620 (N : Node_Id; Val : Node_Id) is
3622 pragma Assert (False
3623 or else NT (N).Nkind = N_Function_Call
3624 or else NT (N).Nkind = N_Procedure_Call_Statement);
3625 Set_Node1 (N, Val); -- semantic field, no parent set
3626 end Set_Controlling_Argument;
3628 procedure Set_Conversion_OK
3629 (N : Node_Id; Val : Boolean := True) is
3631 pragma Assert (False
3632 or else NT (N).Nkind = N_Type_Conversion);
3633 Set_Flag14 (N, Val);
3634 end Set_Conversion_OK;
3636 procedure Set_Corresponding_Body
3637 (N : Node_Id; Val : Node_Id) is
3639 pragma Assert (False
3640 or else NT (N).Nkind = N_Entry_Declaration
3641 or else NT (N).Nkind = N_Generic_Package_Declaration
3642 or else NT (N).Nkind = N_Generic_Subprogram_Declaration
3643 or else NT (N).Nkind = N_Package_Body_Stub
3644 or else NT (N).Nkind = N_Package_Declaration
3645 or else NT (N).Nkind = N_Protected_Body_Stub
3646 or else NT (N).Nkind = N_Protected_Type_Declaration
3647 or else NT (N).Nkind = N_Subprogram_Body_Stub
3648 or else NT (N).Nkind = N_Subprogram_Declaration
3649 or else NT (N).Nkind = N_Task_Body_Stub
3650 or else NT (N).Nkind = N_Task_Type_Declaration);
3651 Set_Node5 (N, Val); -- semantic field, no parent set
3652 end Set_Corresponding_Body;
3654 procedure Set_Corresponding_Formal_Spec
3655 (N : Node_Id; Val : Node_Id) is
3657 pragma Assert (False
3658 or else NT (N).Nkind = N_Subprogram_Renaming_Declaration);
3659 Set_Node3 (N, Val); -- semantic field, no parent set
3660 end Set_Corresponding_Formal_Spec;
3662 procedure Set_Corresponding_Generic_Association
3663 (N : Node_Id; Val : Node_Id) is
3665 pragma Assert (False
3666 or else NT (N).Nkind = N_Object_Declaration
3667 or else NT (N).Nkind = N_Object_Renaming_Declaration);
3668 Set_Node5 (N, Val); -- semantic field, no parent set
3669 end Set_Corresponding_Generic_Association;
3671 procedure Set_Corresponding_Integer_Value
3672 (N : Node_Id; Val : Uint) is
3674 pragma Assert (False
3675 or else NT (N).Nkind = N_Real_Literal);
3676 Set_Uint4 (N, Val); -- semantic field, no parent set
3677 end Set_Corresponding_Integer_Value;
3679 procedure Set_Corresponding_Spec
3680 (N : Node_Id; Val : Node_Id) is
3682 pragma Assert (False
3683 or else NT (N).Nkind = N_Package_Body
3684 or else NT (N).Nkind = N_Protected_Body
3685 or else NT (N).Nkind = N_Subprogram_Body
3686 or else NT (N).Nkind = N_Subprogram_Renaming_Declaration
3687 or else NT (N).Nkind = N_Task_Body
3688 or else NT (N).Nkind = N_With_Clause);
3689 Set_Node5 (N, Val); -- semantic field, no parent set
3690 end Set_Corresponding_Spec;
3692 procedure Set_Corresponding_Stub
3693 (N : Node_Id; Val : Node_Id) is
3695 pragma Assert (False
3696 or else NT (N).Nkind = N_Subunit);
3698 end Set_Corresponding_Stub;
3700 procedure Set_Dcheck_Function
3701 (N : Node_Id; Val : Entity_Id) is
3703 pragma Assert (False
3704 or else NT (N).Nkind = N_Variant);
3705 Set_Node5 (N, Val); -- semantic field, no parent set
3706 end Set_Dcheck_Function;
3708 procedure Set_Debug_Statement
3709 (N : Node_Id; Val : Node_Id) is
3711 pragma Assert (False
3712 or else NT (N).Nkind = N_Pragma);
3713 Set_Node3_With_Parent (N, Val);
3714 end Set_Debug_Statement;
3716 procedure Set_Declarations
3717 (N : Node_Id; Val : List_Id) is
3719 pragma Assert (False
3720 or else NT (N).Nkind = N_Accept_Statement
3721 or else NT (N).Nkind = N_Block_Statement
3722 or else NT (N).Nkind = N_Compilation_Unit_Aux
3723 or else NT (N).Nkind = N_Entry_Body
3724 or else NT (N).Nkind = N_Package_Body
3725 or else NT (N).Nkind = N_Protected_Body
3726 or else NT (N).Nkind = N_Subprogram_Body
3727 or else NT (N).Nkind = N_Task_Body);
3728 Set_List2_With_Parent (N, Val);
3729 end Set_Declarations;
3731 procedure Set_Default_Expression
3732 (N : Node_Id; Val : Node_Id) is
3734 pragma Assert (False
3735 or else NT (N).Nkind = N_Formal_Object_Declaration
3736 or else NT (N).Nkind = N_Parameter_Specification);
3737 Set_Node5 (N, Val); -- semantic field, no parent set
3738 end Set_Default_Expression;
3740 procedure Set_Default_Storage_Pool
3741 (N : Node_Id; Val : Node_Id) is
3743 pragma Assert (False
3744 or else NT (N).Nkind = N_Compilation_Unit_Aux);
3745 Set_Node3 (N, Val); -- semantic field, no parent set
3746 end Set_Default_Storage_Pool;
3748 procedure Set_Default_Name
3749 (N : Node_Id; Val : Node_Id) is
3751 pragma Assert (False
3752 or else NT (N).Nkind = N_Formal_Abstract_Subprogram_Declaration
3753 or else NT (N).Nkind = N_Formal_Concrete_Subprogram_Declaration);
3754 Set_Node2_With_Parent (N, Val);
3755 end Set_Default_Name;
3757 procedure Set_Defining_Identifier
3758 (N : Node_Id; Val : Entity_Id) is
3760 pragma Assert (False
3761 or else NT (N).Nkind = N_Component_Declaration
3762 or else NT (N).Nkind = N_Defining_Program_Unit_Name
3763 or else NT (N).Nkind = N_Discriminant_Specification
3764 or else NT (N).Nkind = N_Entry_Body
3765 or else NT (N).Nkind = N_Entry_Declaration
3766 or else NT (N).Nkind = N_Entry_Index_Specification
3767 or else NT (N).Nkind = N_Exception_Declaration
3768 or else NT (N).Nkind = N_Exception_Renaming_Declaration
3769 or else NT (N).Nkind = N_Formal_Object_Declaration
3770 or else NT (N).Nkind = N_Formal_Package_Declaration
3771 or else NT (N).Nkind = N_Formal_Type_Declaration
3772 or else NT (N).Nkind = N_Full_Type_Declaration
3773 or else NT (N).Nkind = N_Implicit_Label_Declaration
3774 or else NT (N).Nkind = N_Incomplete_Type_Declaration
3775 or else NT (N).Nkind = N_Iterator_Specification
3776 or else NT (N).Nkind = N_Loop_Parameter_Specification
3777 or else NT (N).Nkind = N_Number_Declaration
3778 or else NT (N).Nkind = N_Object_Declaration
3779 or else NT (N).Nkind = N_Object_Renaming_Declaration
3780 or else NT (N).Nkind = N_Package_Body_Stub
3781 or else NT (N).Nkind = N_Parameter_Specification
3782 or else NT (N).Nkind = N_Private_Extension_Declaration
3783 or else NT (N).Nkind = N_Private_Type_Declaration
3784 or else NT (N).Nkind = N_Protected_Body
3785 or else NT (N).Nkind = N_Protected_Body_Stub
3786 or else NT (N).Nkind = N_Protected_Type_Declaration
3787 or else NT (N).Nkind = N_Single_Protected_Declaration
3788 or else NT (N).Nkind = N_Single_Task_Declaration
3789 or else NT (N).Nkind = N_Subtype_Declaration
3790 or else NT (N).Nkind = N_Task_Body
3791 or else NT (N).Nkind = N_Task_Body_Stub
3792 or else NT (N).Nkind = N_Task_Type_Declaration);
3793 Set_Node1_With_Parent (N, Val);
3794 end Set_Defining_Identifier;
3796 procedure Set_Defining_Unit_Name
3797 (N : Node_Id; Val : Node_Id) is
3799 pragma Assert (False
3800 or else NT (N).Nkind = N_Function_Instantiation
3801 or else NT (N).Nkind = N_Function_Specification
3802 or else NT (N).Nkind = N_Generic_Function_Renaming_Declaration
3803 or else NT (N).Nkind = N_Generic_Package_Renaming_Declaration
3804 or else NT (N).Nkind = N_Generic_Procedure_Renaming_Declaration
3805 or else NT (N).Nkind = N_Package_Body
3806 or else NT (N).Nkind = N_Package_Instantiation
3807 or else NT (N).Nkind = N_Package_Renaming_Declaration
3808 or else NT (N).Nkind = N_Package_Specification
3809 or else NT (N).Nkind = N_Procedure_Instantiation
3810 or else NT (N).Nkind = N_Procedure_Specification);
3811 Set_Node1_With_Parent (N, Val);
3812 end Set_Defining_Unit_Name;
3814 procedure Set_Delay_Alternative
3815 (N : Node_Id; Val : Node_Id) is
3817 pragma Assert (False
3818 or else NT (N).Nkind = N_Timed_Entry_Call);
3819 Set_Node4_With_Parent (N, Val);
3820 end Set_Delay_Alternative;
3822 procedure Set_Delay_Statement
3823 (N : Node_Id; Val : Node_Id) is
3825 pragma Assert (False
3826 or else NT (N).Nkind = N_Delay_Alternative);
3827 Set_Node2_With_Parent (N, Val);
3828 end Set_Delay_Statement;
3830 procedure Set_Delta_Expression
3831 (N : Node_Id; Val : Node_Id) is
3833 pragma Assert (False
3834 or else NT (N).Nkind = N_Decimal_Fixed_Point_Definition
3835 or else NT (N).Nkind = N_Delta_Constraint
3836 or else NT (N).Nkind = N_Ordinary_Fixed_Point_Definition);
3837 Set_Node3_With_Parent (N, Val);
3838 end Set_Delta_Expression;
3840 procedure Set_Digits_Expression
3841 (N : Node_Id; Val : Node_Id) is
3843 pragma Assert (False
3844 or else NT (N).Nkind = N_Decimal_Fixed_Point_Definition
3845 or else NT (N).Nkind = N_Digits_Constraint
3846 or else NT (N).Nkind = N_Floating_Point_Definition);
3847 Set_Node2_With_Parent (N, Val);
3848 end Set_Digits_Expression;
3850 procedure Set_Discr_Check_Funcs_Built
3851 (N : Node_Id; Val : Boolean := True) is
3853 pragma Assert (False
3854 or else NT (N).Nkind = N_Full_Type_Declaration);
3855 Set_Flag11 (N, Val);
3856 end Set_Discr_Check_Funcs_Built;
3858 procedure Set_Discrete_Choices
3859 (N : Node_Id; Val : List_Id) is
3861 pragma Assert (False
3862 or else NT (N).Nkind = N_Case_Expression_Alternative
3863 or else NT (N).Nkind = N_Case_Statement_Alternative
3864 or else NT (N).Nkind = N_Variant);
3865 Set_List4_With_Parent (N, Val);
3866 end Set_Discrete_Choices;
3868 procedure Set_Discrete_Range
3869 (N : Node_Id; Val : Node_Id) is
3871 pragma Assert (False
3872 or else NT (N).Nkind = N_Slice);
3873 Set_Node4_With_Parent (N, Val);
3874 end Set_Discrete_Range;
3876 procedure Set_Discrete_Subtype_Definition
3877 (N : Node_Id; Val : Node_Id) is
3879 pragma Assert (False
3880 or else NT (N).Nkind = N_Entry_Declaration
3881 or else NT (N).Nkind = N_Entry_Index_Specification
3882 or else NT (N).Nkind = N_Loop_Parameter_Specification);
3883 Set_Node4_With_Parent (N, Val);
3884 end Set_Discrete_Subtype_Definition;
3886 procedure Set_Discrete_Subtype_Definitions
3887 (N : Node_Id; Val : List_Id) is
3889 pragma Assert (False
3890 or else NT (N).Nkind = N_Constrained_Array_Definition);
3891 Set_List2_With_Parent (N, Val);
3892 end Set_Discrete_Subtype_Definitions;
3894 procedure Set_Discriminant_Specifications
3895 (N : Node_Id; Val : List_Id) is
3897 pragma Assert (False
3898 or else NT (N).Nkind = N_Formal_Type_Declaration
3899 or else NT (N).Nkind = N_Full_Type_Declaration
3900 or else NT (N).Nkind = N_Incomplete_Type_Declaration
3901 or else NT (N).Nkind = N_Private_Extension_Declaration
3902 or else NT (N).Nkind = N_Private_Type_Declaration
3903 or else NT (N).Nkind = N_Protected_Type_Declaration
3904 or else NT (N).Nkind = N_Task_Type_Declaration);
3905 Set_List4_With_Parent (N, Val);
3906 end Set_Discriminant_Specifications;
3908 procedure Set_Discriminant_Type
3909 (N : Node_Id; Val : Node_Id) is
3911 pragma Assert (False
3912 or else NT (N).Nkind = N_Discriminant_Specification);
3913 Set_Node5_With_Parent (N, Val);
3914 end Set_Discriminant_Type;
3916 procedure Set_Do_Accessibility_Check
3917 (N : Node_Id; Val : Boolean := True) is
3919 pragma Assert (False
3920 or else NT (N).Nkind = N_Parameter_Specification);
3921 Set_Flag13 (N, Val);
3922 end Set_Do_Accessibility_Check;
3924 procedure Set_Do_Discriminant_Check
3925 (N : Node_Id; Val : Boolean := True) is
3927 pragma Assert (False
3928 or else NT (N).Nkind = N_Selected_Component);
3929 Set_Flag13 (N, Val);
3930 end Set_Do_Discriminant_Check;
3932 procedure Set_Do_Division_Check
3933 (N : Node_Id; Val : Boolean := True) is
3935 pragma Assert (False
3936 or else NT (N).Nkind = N_Op_Divide
3937 or else NT (N).Nkind = N_Op_Mod
3938 or else NT (N).Nkind = N_Op_Rem);
3939 Set_Flag13 (N, Val);
3940 end Set_Do_Division_Check;
3942 procedure Set_Do_Length_Check
3943 (N : Node_Id; Val : Boolean := True) is
3945 pragma Assert (False
3946 or else NT (N).Nkind = N_Assignment_Statement
3947 or else NT (N).Nkind = N_Op_And
3948 or else NT (N).Nkind = N_Op_Or
3949 or else NT (N).Nkind = N_Op_Xor
3950 or else NT (N).Nkind = N_Type_Conversion);
3952 end Set_Do_Length_Check;
3954 procedure Set_Do_Overflow_Check
3955 (N : Node_Id; Val : Boolean := True) is
3957 pragma Assert (False
3958 or else NT (N).Nkind in N_Op
3959 or else NT (N).Nkind = N_Attribute_Reference
3960 or else NT (N).Nkind = N_Type_Conversion);
3961 Set_Flag17 (N, Val);
3962 end Set_Do_Overflow_Check;
3964 procedure Set_Do_Range_Check
3965 (N : Node_Id; Val : Boolean := True) is
3967 pragma Assert (False
3968 or else NT (N).Nkind in N_Subexpr);
3970 end Set_Do_Range_Check;
3972 procedure Set_Do_Storage_Check
3973 (N : Node_Id; Val : Boolean := True) is
3975 pragma Assert (False
3976 or else NT (N).Nkind = N_Allocator
3977 or else NT (N).Nkind = N_Subprogram_Body);
3978 Set_Flag17 (N, Val);
3979 end Set_Do_Storage_Check;
3981 procedure Set_Do_Tag_Check
3982 (N : Node_Id; Val : Boolean := True) is
3984 pragma Assert (False
3985 or else NT (N).Nkind = N_Assignment_Statement
3986 or else NT (N).Nkind = N_Extended_Return_Statement
3987 or else NT (N).Nkind = N_Function_Call
3988 or else NT (N).Nkind = N_Procedure_Call_Statement
3989 or else NT (N).Nkind = N_Return_Statement
3990 or else NT (N).Nkind = N_Type_Conversion);
3991 Set_Flag13 (N, Val);
3992 end Set_Do_Tag_Check;
3994 procedure Set_Elaborate_All_Desirable
3995 (N : Node_Id; Val : Boolean := True) is
3997 pragma Assert (False
3998 or else NT (N).Nkind = N_With_Clause);
4000 end Set_Elaborate_All_Desirable;
4002 procedure Set_Elaborate_All_Present
4003 (N : Node_Id; Val : Boolean := True) is
4005 pragma Assert (False
4006 or else NT (N).Nkind = N_With_Clause);
4007 Set_Flag14 (N, Val);
4008 end Set_Elaborate_All_Present;
4010 procedure Set_Elaborate_Desirable
4011 (N : Node_Id; Val : Boolean := True) is
4013 pragma Assert (False
4014 or else NT (N).Nkind = N_With_Clause);
4015 Set_Flag11 (N, Val);
4016 end Set_Elaborate_Desirable;
4018 procedure Set_Elaborate_Present
4019 (N : Node_Id; Val : Boolean := True) is
4021 pragma Assert (False
4022 or else NT (N).Nkind = N_With_Clause);
4024 end Set_Elaborate_Present;
4026 procedure Set_Elaboration_Boolean
4027 (N : Node_Id; Val : Node_Id) is
4029 pragma Assert (False
4030 or else NT (N).Nkind = N_Function_Specification
4031 or else NT (N).Nkind = N_Procedure_Specification);
4033 end Set_Elaboration_Boolean;
4035 procedure Set_Else_Actions
4036 (N : Node_Id; Val : List_Id) is
4038 pragma Assert (False
4039 or else NT (N).Nkind = N_Conditional_Expression);
4040 Set_List3 (N, Val); -- semantic field, no parent set
4041 end Set_Else_Actions;
4043 procedure Set_Else_Statements
4044 (N : Node_Id; Val : List_Id) is
4046 pragma Assert (False
4047 or else NT (N).Nkind = N_Conditional_Entry_Call
4048 or else NT (N).Nkind = N_If_Statement
4049 or else NT (N).Nkind = N_Selective_Accept);
4050 Set_List4_With_Parent (N, Val);
4051 end Set_Else_Statements;
4053 procedure Set_Elsif_Parts
4054 (N : Node_Id; Val : List_Id) is
4056 pragma Assert (False
4057 or else NT (N).Nkind = N_If_Statement);
4058 Set_List3_With_Parent (N, Val);
4059 end Set_Elsif_Parts;
4061 procedure Set_Enclosing_Variant
4062 (N : Node_Id; Val : Node_Id) is
4064 pragma Assert (False
4065 or else NT (N).Nkind = N_Variant);
4066 Set_Node2 (N, Val); -- semantic field, no parent set
4067 end Set_Enclosing_Variant;
4069 procedure Set_End_Label
4070 (N : Node_Id; Val : Node_Id) is
4072 pragma Assert (False
4073 or else NT (N).Nkind = N_Enumeration_Type_Definition
4074 or else NT (N).Nkind = N_Handled_Sequence_Of_Statements
4075 or else NT (N).Nkind = N_Loop_Statement
4076 or else NT (N).Nkind = N_Package_Specification
4077 or else NT (N).Nkind = N_Protected_Body
4078 or else NT (N).Nkind = N_Protected_Definition
4079 or else NT (N).Nkind = N_Record_Definition
4080 or else NT (N).Nkind = N_Task_Definition);
4081 Set_Node4_With_Parent (N, Val);
4084 procedure Set_End_Span
4085 (N : Node_Id; Val : Uint) is
4087 pragma Assert (False
4088 or else NT (N).Nkind = N_Case_Statement
4089 or else NT (N).Nkind = N_If_Statement);
4093 procedure Set_Entity
4094 (N : Node_Id; Val : Node_Id) is
4096 pragma Assert (False
4097 or else NT (N).Nkind in N_Has_Entity
4098 or else NT (N).Nkind = N_Aspect_Specification
4099 or else NT (N).Nkind = N_Attribute_Definition_Clause
4100 or else NT (N).Nkind = N_Freeze_Entity);
4101 Set_Node4 (N, Val); -- semantic field, no parent set
4104 procedure Set_Entry_Body_Formal_Part
4105 (N : Node_Id; Val : Node_Id) is
4107 pragma Assert (False
4108 or else NT (N).Nkind = N_Entry_Body);
4109 Set_Node5_With_Parent (N, Val);
4110 end Set_Entry_Body_Formal_Part;
4112 procedure Set_Entry_Call_Alternative
4113 (N : Node_Id; Val : Node_Id) is
4115 pragma Assert (False
4116 or else NT (N).Nkind = N_Conditional_Entry_Call
4117 or else NT (N).Nkind = N_Timed_Entry_Call);
4118 Set_Node1_With_Parent (N, Val);
4119 end Set_Entry_Call_Alternative;
4121 procedure Set_Entry_Call_Statement
4122 (N : Node_Id; Val : Node_Id) is
4124 pragma Assert (False
4125 or else NT (N).Nkind = N_Entry_Call_Alternative);
4126 Set_Node1_With_Parent (N, Val);
4127 end Set_Entry_Call_Statement;
4129 procedure Set_Entry_Direct_Name
4130 (N : Node_Id; Val : Node_Id) is
4132 pragma Assert (False
4133 or else NT (N).Nkind = N_Accept_Statement);
4134 Set_Node1_With_Parent (N, Val);
4135 end Set_Entry_Direct_Name;
4137 procedure Set_Entry_Index
4138 (N : Node_Id; Val : Node_Id) is
4140 pragma Assert (False
4141 or else NT (N).Nkind = N_Accept_Statement);
4142 Set_Node5_With_Parent (N, Val);
4143 end Set_Entry_Index;
4145 procedure Set_Entry_Index_Specification
4146 (N : Node_Id; Val : Node_Id) is
4148 pragma Assert (False
4149 or else NT (N).Nkind = N_Entry_Body_Formal_Part);
4150 Set_Node4_With_Parent (N, Val);
4151 end Set_Entry_Index_Specification;
4154 (N : Node_Id; Val : Node_Id) is
4156 pragma Assert (False
4157 or else NT (N).Nkind in N_Has_Etype);
4158 Set_Node5 (N, Val); -- semantic field, no parent set
4161 procedure Set_Exception_Choices
4162 (N : Node_Id; Val : List_Id) is
4164 pragma Assert (False
4165 or else NT (N).Nkind = N_Exception_Handler);
4166 Set_List4_With_Parent (N, Val);
4167 end Set_Exception_Choices;
4169 procedure Set_Exception_Handlers
4170 (N : Node_Id; Val : List_Id) is
4172 pragma Assert (False
4173 or else NT (N).Nkind = N_Handled_Sequence_Of_Statements);
4174 Set_List5_With_Parent (N, Val);
4175 end Set_Exception_Handlers;
4177 procedure Set_Exception_Junk
4178 (N : Node_Id; Val : Boolean := True) is
4180 pragma Assert (False
4181 or else NT (N).Nkind = N_Block_Statement
4182 or else NT (N).Nkind = N_Goto_Statement
4183 or else NT (N).Nkind = N_Label
4184 or else NT (N).Nkind = N_Object_Declaration
4185 or else NT (N).Nkind = N_Subtype_Declaration);
4187 end Set_Exception_Junk;
4189 procedure Set_Exception_Label
4190 (N : Node_Id; Val : Node_Id) is
4192 pragma Assert (False
4193 or else NT (N).Nkind = N_Exception_Handler
4194 or else NT (N).Nkind = N_Push_Constraint_Error_Label
4195 or else NT (N).Nkind = N_Push_Program_Error_Label
4196 or else NT (N).Nkind = N_Push_Storage_Error_Label);
4197 Set_Node5 (N, Val); -- semantic field, no parent set
4198 end Set_Exception_Label;
4200 procedure Set_Expansion_Delayed
4201 (N : Node_Id; Val : Boolean := True) is
4203 pragma Assert (False
4204 or else NT (N).Nkind = N_Aggregate
4205 or else NT (N).Nkind = N_Extension_Aggregate);
4206 Set_Flag11 (N, Val);
4207 end Set_Expansion_Delayed;
4209 procedure Set_Explicit_Actual_Parameter
4210 (N : Node_Id; Val : Node_Id) is
4212 pragma Assert (False
4213 or else NT (N).Nkind = N_Parameter_Association);
4214 Set_Node3_With_Parent (N, Val);
4215 end Set_Explicit_Actual_Parameter;
4217 procedure Set_Explicit_Generic_Actual_Parameter
4218 (N : Node_Id; Val : Node_Id) is
4220 pragma Assert (False
4221 or else NT (N).Nkind = N_Generic_Association);
4222 Set_Node1_With_Parent (N, Val);
4223 end Set_Explicit_Generic_Actual_Parameter;
4225 procedure Set_Expression
4226 (N : Node_Id; Val : Node_Id) is
4228 pragma Assert (False
4229 or else NT (N).Nkind = N_Allocator
4230 or else NT (N).Nkind = N_Aspect_Specification
4231 or else NT (N).Nkind = N_Assignment_Statement
4232 or else NT (N).Nkind = N_At_Clause
4233 or else NT (N).Nkind = N_Attribute_Definition_Clause
4234 or else NT (N).Nkind = N_Case_Expression
4235 or else NT (N).Nkind = N_Case_Expression_Alternative
4236 or else NT (N).Nkind = N_Case_Statement
4237 or else NT (N).Nkind = N_Code_Statement
4238 or else NT (N).Nkind = N_Component_Association
4239 or else NT (N).Nkind = N_Component_Declaration
4240 or else NT (N).Nkind = N_Delay_Relative_Statement
4241 or else NT (N).Nkind = N_Delay_Until_Statement
4242 or else NT (N).Nkind = N_Discriminant_Association
4243 or else NT (N).Nkind = N_Discriminant_Specification
4244 or else NT (N).Nkind = N_Exception_Declaration
4245 or else NT (N).Nkind = N_Expression_With_Actions
4246 or else NT (N).Nkind = N_Free_Statement
4247 or else NT (N).Nkind = N_Mod_Clause
4248 or else NT (N).Nkind = N_Modular_Type_Definition
4249 or else NT (N).Nkind = N_Number_Declaration
4250 or else NT (N).Nkind = N_Object_Declaration
4251 or else NT (N).Nkind = N_Parameter_Specification
4252 or else NT (N).Nkind = N_Parameterized_Expression
4253 or else NT (N).Nkind = N_Pragma_Argument_Association
4254 or else NT (N).Nkind = N_Qualified_Expression
4255 or else NT (N).Nkind = N_Raise_Statement
4256 or else NT (N).Nkind = N_Return_Statement
4257 or else NT (N).Nkind = N_Type_Conversion
4258 or else NT (N).Nkind = N_Unchecked_Expression
4259 or else NT (N).Nkind = N_Unchecked_Type_Conversion);
4260 Set_Node3_With_Parent (N, Val);
4263 procedure Set_Expressions
4264 (N : Node_Id; Val : List_Id) is
4266 pragma Assert (False
4267 or else NT (N).Nkind = N_Aggregate
4268 or else NT (N).Nkind = N_Attribute_Reference
4269 or else NT (N).Nkind = N_Conditional_Expression
4270 or else NT (N).Nkind = N_Extension_Aggregate
4271 or else NT (N).Nkind = N_Indexed_Component);
4272 Set_List1_With_Parent (N, Val);
4273 end Set_Expressions;
4275 procedure Set_First_Bit
4276 (N : Node_Id; Val : Node_Id) is
4278 pragma Assert (False
4279 or else NT (N).Nkind = N_Component_Clause);
4280 Set_Node3_With_Parent (N, Val);
4283 procedure Set_First_Inlined_Subprogram
4284 (N : Node_Id; Val : Entity_Id) is
4286 pragma Assert (False
4287 or else NT (N).Nkind = N_Compilation_Unit);
4288 Set_Node3 (N, Val); -- semantic field, no parent set
4289 end Set_First_Inlined_Subprogram;
4291 procedure Set_First_Name
4292 (N : Node_Id; Val : Boolean := True) is
4294 pragma Assert (False
4295 or else NT (N).Nkind = N_With_Clause);
4299 procedure Set_First_Named_Actual
4300 (N : Node_Id; Val : Node_Id) is
4302 pragma Assert (False
4303 or else NT (N).Nkind = N_Entry_Call_Statement
4304 or else NT (N).Nkind = N_Function_Call
4305 or else NT (N).Nkind = N_Procedure_Call_Statement);
4306 Set_Node4 (N, Val); -- semantic field, no parent set
4307 end Set_First_Named_Actual;
4309 procedure Set_First_Real_Statement
4310 (N : Node_Id; Val : Node_Id) is
4312 pragma Assert (False
4313 or else NT (N).Nkind = N_Handled_Sequence_Of_Statements);
4314 Set_Node2 (N, Val); -- semantic field, no parent set
4315 end Set_First_Real_Statement;
4317 procedure Set_First_Subtype_Link
4318 (N : Node_Id; Val : Entity_Id) is
4320 pragma Assert (False
4321 or else NT (N).Nkind = N_Freeze_Entity);
4322 Set_Node5 (N, Val); -- semantic field, no parent set
4323 end Set_First_Subtype_Link;
4325 procedure Set_Float_Truncate
4326 (N : Node_Id; Val : Boolean := True) is
4328 pragma Assert (False
4329 or else NT (N).Nkind = N_Type_Conversion);
4330 Set_Flag11 (N, Val);
4331 end Set_Float_Truncate;
4333 procedure Set_Formal_Type_Definition
4334 (N : Node_Id; Val : Node_Id) is
4336 pragma Assert (False
4337 or else NT (N).Nkind = N_Formal_Type_Declaration);
4338 Set_Node3_With_Parent (N, Val);
4339 end Set_Formal_Type_Definition;
4341 procedure Set_Forwards_OK
4342 (N : Node_Id; Val : Boolean := True) is
4344 pragma Assert (False
4345 or else NT (N).Nkind = N_Assignment_Statement);
4347 end Set_Forwards_OK;
4349 procedure Set_From_Aspect_Specification
4350 (N : Node_Id; Val : Boolean := True) is
4352 pragma Assert (False
4353 or else NT (N).Nkind = N_Attribute_Definition_Clause
4354 or else NT (N).Nkind = N_Pragma);
4355 Set_Flag13 (N, Val);
4356 end Set_From_Aspect_Specification;
4358 procedure Set_From_At_End
4359 (N : Node_Id; Val : Boolean := True) is
4361 pragma Assert (False
4362 or else NT (N).Nkind = N_Raise_Statement);
4364 end Set_From_At_End;
4366 procedure Set_From_At_Mod
4367 (N : Node_Id; Val : Boolean := True) is
4369 pragma Assert (False
4370 or else NT (N).Nkind = N_Attribute_Definition_Clause);
4372 end Set_From_At_Mod;
4374 procedure Set_From_Default
4375 (N : Node_Id; Val : Boolean := True) is
4377 pragma Assert (False
4378 or else NT (N).Nkind = N_Subprogram_Renaming_Declaration);
4380 end Set_From_Default;
4382 procedure Set_Generic_Associations
4383 (N : Node_Id; Val : List_Id) is
4385 pragma Assert (False
4386 or else NT (N).Nkind = N_Formal_Package_Declaration
4387 or else NT (N).Nkind = N_Function_Instantiation
4388 or else NT (N).Nkind = N_Package_Instantiation
4389 or else NT (N).Nkind = N_Procedure_Instantiation);
4390 Set_List3_With_Parent (N, Val);
4391 end Set_Generic_Associations;
4393 procedure Set_Generic_Formal_Declarations
4394 (N : Node_Id; Val : List_Id) is
4396 pragma Assert (False
4397 or else NT (N).Nkind = N_Generic_Package_Declaration
4398 or else NT (N).Nkind = N_Generic_Subprogram_Declaration);
4399 Set_List2_With_Parent (N, Val);
4400 end Set_Generic_Formal_Declarations;
4402 procedure Set_Generic_Parent
4403 (N : Node_Id; Val : Node_Id) is
4405 pragma Assert (False
4406 or else NT (N).Nkind = N_Function_Specification
4407 or else NT (N).Nkind = N_Package_Specification
4408 or else NT (N).Nkind = N_Procedure_Specification);
4410 end Set_Generic_Parent;
4412 procedure Set_Generic_Parent_Type
4413 (N : Node_Id; Val : Node_Id) is
4415 pragma Assert (False
4416 or else NT (N).Nkind = N_Subtype_Declaration);
4418 end Set_Generic_Parent_Type;
4420 procedure Set_Handled_Statement_Sequence
4421 (N : Node_Id; Val : Node_Id) is
4423 pragma Assert (False
4424 or else NT (N).Nkind = N_Accept_Statement
4425 or else NT (N).Nkind = N_Block_Statement
4426 or else NT (N).Nkind = N_Entry_Body
4427 or else NT (N).Nkind = N_Extended_Return_Statement
4428 or else NT (N).Nkind = N_Package_Body
4429 or else NT (N).Nkind = N_Subprogram_Body
4430 or else NT (N).Nkind = N_Task_Body);
4431 Set_Node4_With_Parent (N, Val);
4432 end Set_Handled_Statement_Sequence;
4434 procedure Set_Handler_List_Entry
4435 (N : Node_Id; Val : Node_Id) is
4437 pragma Assert (False
4438 or else NT (N).Nkind = N_Object_Declaration);
4440 end Set_Handler_List_Entry;
4442 procedure Set_Has_Created_Identifier
4443 (N : Node_Id; Val : Boolean := True) is
4445 pragma Assert (False
4446 or else NT (N).Nkind = N_Block_Statement
4447 or else NT (N).Nkind = N_Loop_Statement);
4448 Set_Flag15 (N, Val);
4449 end Set_Has_Created_Identifier;
4451 procedure Set_Has_Dynamic_Length_Check
4452 (N : Node_Id; Val : Boolean := True) is
4454 Set_Flag10 (N, Val);
4455 end Set_Has_Dynamic_Length_Check;
4457 procedure Set_Has_Dynamic_Range_Check
4458 (N : Node_Id; Val : Boolean := True) is
4460 Set_Flag12 (N, Val);
4461 end Set_Has_Dynamic_Range_Check;
4463 procedure Set_Has_Init_Expression
4464 (N : Node_Id; Val : Boolean := True) is
4466 pragma Assert (False
4467 or else NT (N).Nkind = N_Object_Declaration);
4468 Set_Flag14 (N, Val);
4469 end Set_Has_Init_Expression;
4471 procedure Set_Has_Local_Raise
4472 (N : Node_Id; Val : Boolean := True) is
4474 pragma Assert (False
4475 or else NT (N).Nkind = N_Exception_Handler);
4477 end Set_Has_Local_Raise;
4479 procedure Set_Has_No_Elaboration_Code
4480 (N : Node_Id; Val : Boolean := True) is
4482 pragma Assert (False
4483 or else NT (N).Nkind = N_Compilation_Unit);
4484 Set_Flag17 (N, Val);
4485 end Set_Has_No_Elaboration_Code;
4487 procedure Set_Has_Pragma_CPU
4488 (N : Node_Id; Val : Boolean := True) is
4490 pragma Assert (False
4491 or else NT (N).Nkind = N_Subprogram_Body
4492 or else NT (N).Nkind = N_Task_Definition);
4493 Set_Flag14 (N, Val);
4494 end Set_Has_Pragma_CPU;
4496 procedure Set_Has_Pragma_Priority
4497 (N : Node_Id; Val : Boolean := True) is
4499 pragma Assert (False
4500 or else NT (N).Nkind = N_Protected_Definition
4501 or else NT (N).Nkind = N_Subprogram_Body
4502 or else NT (N).Nkind = N_Task_Definition);
4504 end Set_Has_Pragma_Priority;
4506 procedure Set_Has_Pragma_Suppress_All
4507 (N : Node_Id; Val : Boolean := True) is
4509 pragma Assert (False
4510 or else NT (N).Nkind = N_Compilation_Unit);
4511 Set_Flag14 (N, Val);
4512 end Set_Has_Pragma_Suppress_All;
4514 procedure Set_Has_Private_View
4515 (N : Node_Id; Val : Boolean := True) is
4517 pragma Assert (False
4518 or else NT (N).Nkind in N_Op
4519 or else NT (N).Nkind = N_Character_Literal
4520 or else NT (N).Nkind = N_Expanded_Name
4521 or else NT (N).Nkind = N_Identifier
4522 or else NT (N).Nkind = N_Operator_Symbol);
4523 Set_Flag11 (N, Val);
4524 end Set_Has_Private_View;
4526 procedure Set_Has_Relative_Deadline_Pragma
4527 (N : Node_Id; Val : Boolean := True) is
4529 pragma Assert (False
4530 or else NT (N).Nkind = N_Subprogram_Body
4531 or else NT (N).Nkind = N_Task_Definition);
4533 end Set_Has_Relative_Deadline_Pragma;
4535 procedure Set_Has_Self_Reference
4536 (N : Node_Id; Val : Boolean := True) is
4538 pragma Assert (False
4539 or else NT (N).Nkind = N_Aggregate
4540 or else NT (N).Nkind = N_Extension_Aggregate);
4541 Set_Flag13 (N, Val);
4542 end Set_Has_Self_Reference;
4544 procedure Set_Has_Storage_Size_Pragma
4545 (N : Node_Id; Val : Boolean := True) is
4547 pragma Assert (False
4548 or else NT (N).Nkind = N_Task_Definition);
4550 end Set_Has_Storage_Size_Pragma;
4552 procedure Set_Has_Task_Info_Pragma
4553 (N : Node_Id; Val : Boolean := True) is
4555 pragma Assert (False
4556 or else NT (N).Nkind = N_Task_Definition);
4558 end Set_Has_Task_Info_Pragma;
4560 procedure Set_Has_Task_Name_Pragma
4561 (N : Node_Id; Val : Boolean := True) is
4563 pragma Assert (False
4564 or else NT (N).Nkind = N_Task_Definition);
4566 end Set_Has_Task_Name_Pragma;
4568 procedure Set_Has_Wide_Character
4569 (N : Node_Id; Val : Boolean := True) is
4571 pragma Assert (False
4572 or else NT (N).Nkind = N_String_Literal);
4573 Set_Flag11 (N, Val);
4574 end Set_Has_Wide_Character;
4576 procedure Set_Has_Wide_Wide_Character
4577 (N : Node_Id; Val : Boolean := True) is
4579 pragma Assert (False
4580 or else NT (N).Nkind = N_String_Literal);
4581 Set_Flag13 (N, Val);
4582 end Set_Has_Wide_Wide_Character;
4584 procedure Set_Hidden_By_Use_Clause
4585 (N : Node_Id; Val : Elist_Id) is
4587 pragma Assert (False
4588 or else NT (N).Nkind = N_Use_Package_Clause
4589 or else NT (N).Nkind = N_Use_Type_Clause);
4590 Set_Elist4 (N, Val);
4591 end Set_Hidden_By_Use_Clause;
4593 procedure Set_High_Bound
4594 (N : Node_Id; Val : Node_Id) is
4596 pragma Assert (False
4597 or else NT (N).Nkind = N_Range
4598 or else NT (N).Nkind = N_Real_Range_Specification
4599 or else NT (N).Nkind = N_Signed_Integer_Type_Definition);
4600 Set_Node2_With_Parent (N, Val);
4603 procedure Set_Identifier
4604 (N : Node_Id; Val : Node_Id) is
4606 pragma Assert (False
4607 or else NT (N).Nkind = N_Aspect_Specification
4608 or else NT (N).Nkind = N_At_Clause
4609 or else NT (N).Nkind = N_Block_Statement
4610 or else NT (N).Nkind = N_Designator
4611 or else NT (N).Nkind = N_Enumeration_Representation_Clause
4612 or else NT (N).Nkind = N_Label
4613 or else NT (N).Nkind = N_Loop_Statement
4614 or else NT (N).Nkind = N_Record_Representation_Clause
4615 or else NT (N).Nkind = N_Subprogram_Info);
4616 Set_Node1_With_Parent (N, Val);
4619 procedure Set_Implicit_With
4620 (N : Node_Id; Val : Boolean := True) is
4622 pragma Assert (False
4623 or else NT (N).Nkind = N_With_Clause);
4624 Set_Flag16 (N, Val);
4625 end Set_Implicit_With;
4627 procedure Set_Interface_List
4628 (N : Node_Id; Val : List_Id) is
4630 pragma Assert (False
4631 or else NT (N).Nkind = N_Derived_Type_Definition
4632 or else NT (N).Nkind = N_Formal_Derived_Type_Definition
4633 or else NT (N).Nkind = N_Private_Extension_Declaration
4634 or else NT (N).Nkind = N_Protected_Type_Declaration
4635 or else NT (N).Nkind = N_Record_Definition
4636 or else NT (N).Nkind = N_Single_Protected_Declaration
4637 or else NT (N).Nkind = N_Single_Task_Declaration
4638 or else NT (N).Nkind = N_Task_Type_Declaration);
4639 Set_List2_With_Parent (N, Val);
4640 end Set_Interface_List;
4642 procedure Set_Interface_Present
4643 (N : Node_Id; Val : Boolean := True) is
4645 pragma Assert (False
4646 or else NT (N).Nkind = N_Derived_Type_Definition
4647 or else NT (N).Nkind = N_Record_Definition);
4648 Set_Flag16 (N, Val);
4649 end Set_Interface_Present;
4651 procedure Set_Import_Interface_Present
4652 (N : Node_Id; Val : Boolean := True) is
4654 pragma Assert (False
4655 or else NT (N).Nkind = N_Pragma);
4656 Set_Flag16 (N, Val);
4657 end Set_Import_Interface_Present;
4659 procedure Set_In_Present
4660 (N : Node_Id; Val : Boolean := True) is
4662 pragma Assert (False
4663 or else NT (N).Nkind = N_Formal_Object_Declaration
4664 or else NT (N).Nkind = N_Parameter_Specification);
4665 Set_Flag15 (N, Val);
4668 procedure Set_Includes_Infinities
4669 (N : Node_Id; Val : Boolean := True) is
4671 pragma Assert (False
4672 or else NT (N).Nkind = N_Range);
4673 Set_Flag11 (N, Val);
4674 end Set_Includes_Infinities;
4676 procedure Set_Inherited_Discriminant
4677 (N : Node_Id; Val : Boolean := True) is
4679 pragma Assert (False
4680 or else NT (N).Nkind = N_Component_Association);
4681 Set_Flag13 (N, Val);
4682 end Set_Inherited_Discriminant;
4684 procedure Set_Instance_Spec
4685 (N : Node_Id; Val : Node_Id) is
4687 pragma Assert (False
4688 or else NT (N).Nkind = N_Formal_Package_Declaration
4689 or else NT (N).Nkind = N_Function_Instantiation
4690 or else NT (N).Nkind = N_Package_Instantiation
4691 or else NT (N).Nkind = N_Procedure_Instantiation);
4692 Set_Node5 (N, Val); -- semantic field, no Parent set
4693 end Set_Instance_Spec;
4695 procedure Set_Intval
4696 (N : Node_Id; Val : Uint) is
4698 pragma Assert (False
4699 or else NT (N).Nkind = N_Integer_Literal);
4703 procedure Set_Is_Accessibility_Actual
4704 (N : Node_Id; Val : Boolean := True) is
4706 pragma Assert (False
4707 or else NT (N).Nkind = N_Parameter_Association);
4708 Set_Flag13 (N, Val);
4709 end Set_Is_Accessibility_Actual;
4711 procedure Set_Is_Asynchronous_Call_Block
4712 (N : Node_Id; Val : Boolean := True) is
4714 pragma Assert (False
4715 or else NT (N).Nkind = N_Block_Statement);
4717 end Set_Is_Asynchronous_Call_Block;
4719 procedure Set_Is_Component_Left_Opnd
4720 (N : Node_Id; Val : Boolean := True) is
4722 pragma Assert (False
4723 or else NT (N).Nkind = N_Op_Concat);
4724 Set_Flag13 (N, Val);
4725 end Set_Is_Component_Left_Opnd;
4727 procedure Set_Is_Component_Right_Opnd
4728 (N : Node_Id; Val : Boolean := True) is
4730 pragma Assert (False
4731 or else NT (N).Nkind = N_Op_Concat);
4732 Set_Flag14 (N, Val);
4733 end Set_Is_Component_Right_Opnd;
4735 procedure Set_Is_Controlling_Actual
4736 (N : Node_Id; Val : Boolean := True) is
4738 pragma Assert (False
4739 or else NT (N).Nkind in N_Subexpr);
4740 Set_Flag16 (N, Val);
4741 end Set_Is_Controlling_Actual;
4743 procedure Set_Is_Delayed_Aspect
4744 (N : Node_Id; Val : Boolean := True) is
4746 pragma Assert (False
4747 or else NT (N).Nkind = N_Attribute_Definition_Clause
4748 or else NT (N).Nkind = N_Pragma);
4749 Set_Flag14 (N, Val);
4750 end Set_Is_Delayed_Aspect;
4752 procedure Set_Is_Dynamic_Coextension
4753 (N : Node_Id; Val : Boolean := True) is
4755 pragma Assert (False
4756 or else NT (N).Nkind = N_Allocator);
4757 Set_Flag18 (N, Val);
4758 end Set_Is_Dynamic_Coextension;
4760 procedure Set_Is_Elsif
4761 (N : Node_Id; Val : Boolean := True) is
4763 pragma Assert (False
4764 or else NT (N).Nkind = N_Conditional_Expression);
4765 Set_Flag13 (N, Val);
4768 procedure Set_Is_Entry_Barrier_Function
4769 (N : Node_Id; Val : Boolean := True) is
4771 pragma Assert (False
4772 or else NT (N).Nkind = N_Subprogram_Body);
4774 end Set_Is_Entry_Barrier_Function;
4776 procedure Set_Is_Expanded_Build_In_Place_Call
4777 (N : Node_Id; Val : Boolean := True) is
4779 pragma Assert (False
4780 or else NT (N).Nkind = N_Function_Call);
4781 Set_Flag11 (N, Val);
4782 end Set_Is_Expanded_Build_In_Place_Call;
4784 procedure Set_Is_Folded_In_Parser
4785 (N : Node_Id; Val : Boolean := True) is
4787 pragma Assert (False
4788 or else NT (N).Nkind = N_String_Literal);
4790 end Set_Is_Folded_In_Parser;
4792 procedure Set_Is_In_Discriminant_Check
4793 (N : Node_Id; Val : Boolean := True) is
4795 pragma Assert (False
4796 or else NT (N).Nkind = N_Selected_Component);
4797 Set_Flag11 (N, Val);
4798 end Set_Is_In_Discriminant_Check;
4800 procedure Set_Is_Machine_Number
4801 (N : Node_Id; Val : Boolean := True) is
4803 pragma Assert (False
4804 or else NT (N).Nkind = N_Real_Literal);
4805 Set_Flag11 (N, Val);
4806 end Set_Is_Machine_Number;
4808 procedure Set_Is_Null_Loop
4809 (N : Node_Id; Val : Boolean := True) is
4811 pragma Assert (False
4812 or else NT (N).Nkind = N_Loop_Statement);
4813 Set_Flag16 (N, Val);
4814 end Set_Is_Null_Loop;
4816 procedure Set_Is_Overloaded
4817 (N : Node_Id; Val : Boolean := True) is
4819 pragma Assert (False
4820 or else NT (N).Nkind in N_Subexpr);
4822 end Set_Is_Overloaded;
4824 procedure Set_Is_Power_Of_2_For_Shift
4825 (N : Node_Id; Val : Boolean := True) is
4827 pragma Assert (False
4828 or else NT (N).Nkind = N_Op_Expon);
4829 Set_Flag13 (N, Val);
4830 end Set_Is_Power_Of_2_For_Shift;
4832 procedure Set_Is_Protected_Subprogram_Body
4833 (N : Node_Id; Val : Boolean := True) is
4835 pragma Assert (False
4836 or else NT (N).Nkind = N_Subprogram_Body);
4838 end Set_Is_Protected_Subprogram_Body;
4840 procedure Set_Is_Static_Coextension
4841 (N : Node_Id; Val : Boolean := True) is
4843 pragma Assert (False
4844 or else NT (N).Nkind = N_Allocator);
4845 Set_Flag14 (N, Val);
4846 end Set_Is_Static_Coextension;
4848 procedure Set_Is_Static_Expression
4849 (N : Node_Id; Val : Boolean := True) is
4851 pragma Assert (False
4852 or else NT (N).Nkind in N_Subexpr);
4854 end Set_Is_Static_Expression;
4856 procedure Set_Is_Subprogram_Descriptor
4857 (N : Node_Id; Val : Boolean := True) is
4859 pragma Assert (False
4860 or else NT (N).Nkind = N_Object_Declaration);
4861 Set_Flag16 (N, Val);
4862 end Set_Is_Subprogram_Descriptor;
4864 procedure Set_Is_Task_Allocation_Block
4865 (N : Node_Id; Val : Boolean := True) is
4867 pragma Assert (False
4868 or else NT (N).Nkind = N_Block_Statement);
4870 end Set_Is_Task_Allocation_Block;
4872 procedure Set_Is_Task_Master
4873 (N : Node_Id; Val : Boolean := True) is
4875 pragma Assert (False
4876 or else NT (N).Nkind = N_Block_Statement
4877 or else NT (N).Nkind = N_Subprogram_Body
4878 or else NT (N).Nkind = N_Task_Body);
4880 end Set_Is_Task_Master;
4882 procedure Set_Iteration_Scheme
4883 (N : Node_Id; Val : Node_Id) is
4885 pragma Assert (False
4886 or else NT (N).Nkind = N_Loop_Statement);
4887 Set_Node2_With_Parent (N, Val);
4888 end Set_Iteration_Scheme;
4890 procedure Set_Iterator_Specification
4891 (N : Node_Id; Val : Node_Id) is
4893 pragma Assert (False
4894 or else NT (N).Nkind = N_Iteration_Scheme
4895 or else NT (N).Nkind = N_Quantified_Expression);
4896 Set_Node2_With_Parent (N, Val);
4897 end Set_Iterator_Specification;
4900 (N : Node_Id; Val : Entity_Id) is
4902 pragma Assert (False
4903 or else NT (N).Nkind = N_Itype_Reference);
4904 Set_Node1 (N, Val); -- no parent, semantic field
4907 procedure Set_Kill_Range_Check
4908 (N : Node_Id; Val : Boolean := True) is
4910 pragma Assert (False
4911 or else NT (N).Nkind = N_Unchecked_Type_Conversion);
4912 Set_Flag11 (N, Val);
4913 end Set_Kill_Range_Check;
4915 procedure Set_Label_Construct
4916 (N : Node_Id; Val : Node_Id) is
4918 pragma Assert (False
4919 or else NT (N).Nkind = N_Implicit_Label_Declaration);
4920 Set_Node2 (N, Val); -- semantic field, no parent set
4921 end Set_Label_Construct;
4923 procedure Set_Last_Bit
4924 (N : Node_Id; Val : Node_Id) is
4926 pragma Assert (False
4927 or else NT (N).Nkind = N_Component_Clause);
4928 Set_Node4_With_Parent (N, Val);
4931 procedure Set_Last_Name
4932 (N : Node_Id; Val : Boolean := True) is
4934 pragma Assert (False
4935 or else NT (N).Nkind = N_With_Clause);
4939 procedure Set_Left_Opnd
4940 (N : Node_Id; Val : Node_Id) is
4942 pragma Assert (False
4943 or else NT (N).Nkind = N_And_Then
4944 or else NT (N).Nkind = N_In
4945 or else NT (N).Nkind = N_Not_In
4946 or else NT (N).Nkind = N_Or_Else
4947 or else NT (N).Nkind in N_Binary_Op);
4948 Set_Node2_With_Parent (N, Val);
4951 procedure Set_Library_Unit
4952 (N : Node_Id; Val : Node_Id) is
4954 pragma Assert (False
4955 or else NT (N).Nkind = N_Compilation_Unit
4956 or else NT (N).Nkind = N_Package_Body_Stub
4957 or else NT (N).Nkind = N_Protected_Body_Stub
4958 or else NT (N).Nkind = N_Subprogram_Body_Stub
4959 or else NT (N).Nkind = N_Task_Body_Stub
4960 or else NT (N).Nkind = N_With_Clause);
4961 Set_Node4 (N, Val); -- semantic field, no parent set
4962 end Set_Library_Unit;
4964 procedure Set_Limited_View_Installed
4965 (N : Node_Id; Val : Boolean := True) is
4967 pragma Assert (False
4968 or else NT (N).Nkind = N_Package_Specification
4969 or else NT (N).Nkind = N_With_Clause);
4970 Set_Flag18 (N, Val);
4971 end Set_Limited_View_Installed;
4973 procedure Set_Limited_Present
4974 (N : Node_Id; Val : Boolean := True) is
4976 pragma Assert (False
4977 or else NT (N).Nkind = N_Derived_Type_Definition
4978 or else NT (N).Nkind = N_Formal_Derived_Type_Definition
4979 or else NT (N).Nkind = N_Formal_Private_Type_Definition
4980 or else NT (N).Nkind = N_Private_Extension_Declaration
4981 or else NT (N).Nkind = N_Private_Type_Declaration
4982 or else NT (N).Nkind = N_Record_Definition
4983 or else NT (N).Nkind = N_With_Clause);
4984 Set_Flag17 (N, Val);
4985 end Set_Limited_Present;
4987 procedure Set_Literals
4988 (N : Node_Id; Val : List_Id) is
4990 pragma Assert (False
4991 or else NT (N).Nkind = N_Enumeration_Type_Definition);
4992 Set_List1_With_Parent (N, Val);
4995 procedure Set_Local_Raise_Not_OK
4996 (N : Node_Id; Val : Boolean := True) is
4998 pragma Assert (False
4999 or else NT (N).Nkind = N_Exception_Handler);
5001 end Set_Local_Raise_Not_OK;
5003 procedure Set_Local_Raise_Statements
5004 (N : Node_Id; Val : Elist_Id) is
5006 pragma Assert (False
5007 or else NT (N).Nkind = N_Exception_Handler);
5008 Set_Elist1 (N, Val);
5009 end Set_Local_Raise_Statements;
5011 procedure Set_Loop_Actions
5012 (N : Node_Id; Val : List_Id) is
5014 pragma Assert (False
5015 or else NT (N).Nkind = N_Component_Association);
5016 Set_List2 (N, Val); -- semantic field, no parent set
5017 end Set_Loop_Actions;
5019 procedure Set_Loop_Parameter_Specification
5020 (N : Node_Id; Val : Node_Id) is
5022 pragma Assert (False
5023 or else NT (N).Nkind = N_Iteration_Scheme
5024 or else NT (N).Nkind = N_Quantified_Expression);
5025 Set_Node4_With_Parent (N, Val);
5026 end Set_Loop_Parameter_Specification;
5028 procedure Set_Low_Bound
5029 (N : Node_Id; Val : Node_Id) is
5031 pragma Assert (False
5032 or else NT (N).Nkind = N_Range
5033 or else NT (N).Nkind = N_Real_Range_Specification
5034 or else NT (N).Nkind = N_Signed_Integer_Type_Definition);
5035 Set_Node1_With_Parent (N, Val);
5038 procedure Set_Mod_Clause
5039 (N : Node_Id; Val : Node_Id) is
5041 pragma Assert (False
5042 or else NT (N).Nkind = N_Record_Representation_Clause);
5043 Set_Node2_With_Parent (N, Val);
5046 procedure Set_More_Ids
5047 (N : Node_Id; Val : Boolean := True) is
5049 pragma Assert (False
5050 or else NT (N).Nkind = N_Component_Declaration
5051 or else NT (N).Nkind = N_Discriminant_Specification
5052 or else NT (N).Nkind = N_Exception_Declaration
5053 or else NT (N).Nkind = N_Formal_Object_Declaration
5054 or else NT (N).Nkind = N_Number_Declaration
5055 or else NT (N).Nkind = N_Object_Declaration
5056 or else NT (N).Nkind = N_Parameter_Specification);
5060 procedure Set_Must_Be_Byte_Aligned
5061 (N : Node_Id; Val : Boolean := True) is
5063 pragma Assert (False
5064 or else NT (N).Nkind = N_Attribute_Reference);
5065 Set_Flag14 (N, Val);
5066 end Set_Must_Be_Byte_Aligned;
5068 procedure Set_Must_Not_Freeze
5069 (N : Node_Id; Val : Boolean := True) is
5071 pragma Assert (False
5072 or else NT (N).Nkind = N_Subtype_Indication
5073 or else NT (N).Nkind in N_Subexpr);
5075 end Set_Must_Not_Freeze;
5077 procedure Set_Must_Not_Override
5078 (N : Node_Id; Val : Boolean := True) is
5080 pragma Assert (False
5081 or else NT (N).Nkind = N_Entry_Declaration
5082 or else NT (N).Nkind = N_Function_Instantiation
5083 or else NT (N).Nkind = N_Function_Specification
5084 or else NT (N).Nkind = N_Procedure_Instantiation
5085 or else NT (N).Nkind = N_Procedure_Specification);
5086 Set_Flag15 (N, Val);
5087 end Set_Must_Not_Override;
5089 procedure Set_Must_Override
5090 (N : Node_Id; Val : Boolean := True) is
5092 pragma Assert (False
5093 or else NT (N).Nkind = N_Entry_Declaration
5094 or else NT (N).Nkind = N_Function_Instantiation
5095 or else NT (N).Nkind = N_Function_Specification
5096 or else NT (N).Nkind = N_Procedure_Instantiation
5097 or else NT (N).Nkind = N_Procedure_Specification);
5098 Set_Flag14 (N, Val);
5099 end Set_Must_Override;
5102 (N : Node_Id; Val : Node_Id) is
5104 pragma Assert (False
5105 or else NT (N).Nkind = N_Assignment_Statement
5106 or else NT (N).Nkind = N_Attribute_Definition_Clause
5107 or else NT (N).Nkind = N_Defining_Program_Unit_Name
5108 or else NT (N).Nkind = N_Designator
5109 or else NT (N).Nkind = N_Entry_Call_Statement
5110 or else NT (N).Nkind = N_Exception_Renaming_Declaration
5111 or else NT (N).Nkind = N_Exit_Statement
5112 or else NT (N).Nkind = N_Formal_Package_Declaration
5113 or else NT (N).Nkind = N_Function_Call
5114 or else NT (N).Nkind = N_Function_Instantiation
5115 or else NT (N).Nkind = N_Generic_Function_Renaming_Declaration
5116 or else NT (N).Nkind = N_Generic_Package_Renaming_Declaration
5117 or else NT (N).Nkind = N_Generic_Procedure_Renaming_Declaration
5118 or else NT (N).Nkind = N_Goto_Statement
5119 or else NT (N).Nkind = N_Iterator_Specification
5120 or else NT (N).Nkind = N_Object_Renaming_Declaration
5121 or else NT (N).Nkind = N_Package_Instantiation
5122 or else NT (N).Nkind = N_Package_Renaming_Declaration
5123 or else NT (N).Nkind = N_Procedure_Call_Statement
5124 or else NT (N).Nkind = N_Procedure_Instantiation
5125 or else NT (N).Nkind = N_Raise_Statement
5126 or else NT (N).Nkind = N_Requeue_Statement
5127 or else NT (N).Nkind = N_Subprogram_Renaming_Declaration
5128 or else NT (N).Nkind = N_Subunit
5129 or else NT (N).Nkind = N_Variant_Part
5130 or else NT (N).Nkind = N_With_Clause);
5131 Set_Node2_With_Parent (N, Val);
5135 (N : Node_Id; Val : List_Id) is
5137 pragma Assert (False
5138 or else NT (N).Nkind = N_Abort_Statement
5139 or else NT (N).Nkind = N_Use_Package_Clause);
5140 Set_List2_With_Parent (N, Val);
5143 procedure Set_Next_Entity
5144 (N : Node_Id; Val : Node_Id) is
5146 pragma Assert (False
5147 or else NT (N).Nkind = N_Defining_Character_Literal
5148 or else NT (N).Nkind = N_Defining_Identifier
5149 or else NT (N).Nkind = N_Defining_Operator_Symbol);
5150 Set_Node2 (N, Val); -- semantic field, no parent set
5151 end Set_Next_Entity;
5153 procedure Set_Next_Exit_Statement
5154 (N : Node_Id; Val : Node_Id) is
5156 pragma Assert (False
5157 or else NT (N).Nkind = N_Exit_Statement);
5158 Set_Node3 (N, Val); -- semantic field, no parent set
5159 end Set_Next_Exit_Statement;
5161 procedure Set_Next_Implicit_With
5162 (N : Node_Id; Val : Node_Id) is
5164 pragma Assert (False
5165 or else NT (N).Nkind = N_With_Clause);
5166 Set_Node3 (N, Val); -- semantic field, no parent set
5167 end Set_Next_Implicit_With;
5169 procedure Set_Next_Named_Actual
5170 (N : Node_Id; Val : Node_Id) is
5172 pragma Assert (False
5173 or else NT (N).Nkind = N_Parameter_Association);
5174 Set_Node4 (N, Val); -- semantic field, no parent set
5175 end Set_Next_Named_Actual;
5177 procedure Set_Next_Pragma
5178 (N : Node_Id; Val : Node_Id) is
5180 pragma Assert (False
5181 or else NT (N).Nkind = N_Pragma);
5182 Set_Node1 (N, Val); -- semantic field, no parent set
5183 end Set_Next_Pragma;
5185 procedure Set_Next_Rep_Item
5186 (N : Node_Id; Val : Node_Id) is
5188 pragma Assert (False
5189 or else NT (N).Nkind = N_Aspect_Specification
5190 or else NT (N).Nkind = N_Attribute_Definition_Clause
5191 or else NT (N).Nkind = N_Enumeration_Representation_Clause
5192 or else NT (N).Nkind = N_Pragma
5193 or else NT (N).Nkind = N_Record_Representation_Clause);
5194 Set_Node5 (N, Val); -- semantic field, no parent set
5195 end Set_Next_Rep_Item;
5197 procedure Set_Next_Use_Clause
5198 (N : Node_Id; Val : Node_Id) is
5200 pragma Assert (False
5201 or else NT (N).Nkind = N_Use_Package_Clause
5202 or else NT (N).Nkind = N_Use_Type_Clause);
5203 Set_Node3 (N, Val); -- semantic field, no parent set
5204 end Set_Next_Use_Clause;
5206 procedure Set_No_Ctrl_Actions
5207 (N : Node_Id; Val : Boolean := True) is
5209 pragma Assert (False
5210 or else NT (N).Nkind = N_Assignment_Statement);
5212 end Set_No_Ctrl_Actions;
5214 procedure Set_No_Elaboration_Check
5215 (N : Node_Id; Val : Boolean := True) is
5217 pragma Assert (False
5218 or else NT (N).Nkind = N_Function_Call
5219 or else NT (N).Nkind = N_Procedure_Call_Statement);
5220 Set_Flag14 (N, Val);
5221 end Set_No_Elaboration_Check;
5223 procedure Set_No_Entities_Ref_In_Spec
5224 (N : Node_Id; Val : Boolean := True) is
5226 pragma Assert (False
5227 or else NT (N).Nkind = N_With_Clause);
5229 end Set_No_Entities_Ref_In_Spec;
5231 procedure Set_No_Initialization
5232 (N : Node_Id; Val : Boolean := True) is
5234 pragma Assert (False
5235 or else NT (N).Nkind = N_Allocator
5236 or else NT (N).Nkind = N_Object_Declaration);
5237 Set_Flag13 (N, Val);
5238 end Set_No_Initialization;
5240 procedure Set_No_Truncation
5241 (N : Node_Id; Val : Boolean := True) is
5243 pragma Assert (False
5244 or else NT (N).Nkind = N_Unchecked_Type_Conversion);
5245 Set_Flag17 (N, Val);
5246 end Set_No_Truncation;
5248 procedure Set_Null_Present
5249 (N : Node_Id; Val : Boolean := True) is
5251 pragma Assert (False
5252 or else NT (N).Nkind = N_Component_List
5253 or else NT (N).Nkind = N_Procedure_Specification
5254 or else NT (N).Nkind = N_Record_Definition);
5255 Set_Flag13 (N, Val);
5256 end Set_Null_Present;
5258 procedure Set_Null_Exclusion_Present
5259 (N : Node_Id; Val : Boolean := True) is
5261 pragma Assert (False
5262 or else NT (N).Nkind = N_Access_Definition
5263 or else NT (N).Nkind = N_Access_Function_Definition
5264 or else NT (N).Nkind = N_Access_Procedure_Definition
5265 or else NT (N).Nkind = N_Access_To_Object_Definition
5266 or else NT (N).Nkind = N_Allocator
5267 or else NT (N).Nkind = N_Component_Definition
5268 or else NT (N).Nkind = N_Derived_Type_Definition
5269 or else NT (N).Nkind = N_Discriminant_Specification
5270 or else NT (N).Nkind = N_Formal_Object_Declaration
5271 or else NT (N).Nkind = N_Function_Specification
5272 or else NT (N).Nkind = N_Object_Declaration
5273 or else NT (N).Nkind = N_Object_Renaming_Declaration
5274 or else NT (N).Nkind = N_Parameter_Specification
5275 or else NT (N).Nkind = N_Subtype_Declaration);
5276 Set_Flag11 (N, Val);
5277 end Set_Null_Exclusion_Present;
5279 procedure Set_Null_Exclusion_In_Return_Present
5280 (N : Node_Id; Val : Boolean := True) is
5282 pragma Assert (False
5283 or else NT (N).Nkind = N_Access_Function_Definition);
5284 Set_Flag14 (N, Val);
5285 end Set_Null_Exclusion_In_Return_Present;
5287 procedure Set_Null_Record_Present
5288 (N : Node_Id; Val : Boolean := True) is
5290 pragma Assert (False
5291 or else NT (N).Nkind = N_Aggregate
5292 or else NT (N).Nkind = N_Extension_Aggregate);
5293 Set_Flag17 (N, Val);
5294 end Set_Null_Record_Present;
5296 procedure Set_Object_Definition
5297 (N : Node_Id; Val : Node_Id) is
5299 pragma Assert (False
5300 or else NT (N).Nkind = N_Object_Declaration);
5301 Set_Node4_With_Parent (N, Val);
5302 end Set_Object_Definition;
5304 procedure Set_Of_Present
5305 (N : Node_Id; Val : Boolean := True) is
5307 pragma Assert (False
5308 or else NT (N).Nkind = N_Iterator_Specification);
5309 Set_Flag16 (N, Val);
5312 procedure Set_Original_Discriminant
5313 (N : Node_Id; Val : Node_Id) is
5315 pragma Assert (False
5316 or else NT (N).Nkind = N_Identifier);
5317 Set_Node2 (N, Val); -- semantic field, no parent set
5318 end Set_Original_Discriminant;
5320 procedure Set_Original_Entity
5321 (N : Node_Id; Val : Entity_Id) is
5323 pragma Assert (False
5324 or else NT (N).Nkind = N_Integer_Literal
5325 or else NT (N).Nkind = N_Real_Literal);
5326 Set_Node2 (N, Val); -- semantic field, no parent set
5327 end Set_Original_Entity;
5329 procedure Set_Others_Discrete_Choices
5330 (N : Node_Id; Val : List_Id) is
5332 pragma Assert (False
5333 or else NT (N).Nkind = N_Others_Choice);
5334 Set_List1_With_Parent (N, Val);
5335 end Set_Others_Discrete_Choices;
5337 procedure Set_Out_Present
5338 (N : Node_Id; Val : Boolean := True) is
5340 pragma Assert (False
5341 or else NT (N).Nkind = N_Formal_Object_Declaration
5342 or else NT (N).Nkind = N_Parameter_Specification);
5343 Set_Flag17 (N, Val);
5344 end Set_Out_Present;
5346 procedure Set_Parameter_Associations
5347 (N : Node_Id; Val : List_Id) is
5349 pragma Assert (False
5350 or else NT (N).Nkind = N_Entry_Call_Statement
5351 or else NT (N).Nkind = N_Function_Call
5352 or else NT (N).Nkind = N_Procedure_Call_Statement);
5353 Set_List3_With_Parent (N, Val);
5354 end Set_Parameter_Associations;
5356 procedure Set_Parameter_List_Truncated
5357 (N : Node_Id; Val : Boolean := True) is
5359 pragma Assert (False
5360 or else NT (N).Nkind = N_Function_Call
5361 or else NT (N).Nkind = N_Procedure_Call_Statement);
5362 Set_Flag17 (N, Val);
5363 end Set_Parameter_List_Truncated;
5365 procedure Set_Parameter_Specifications
5366 (N : Node_Id; Val : List_Id) is
5368 pragma Assert (False
5369 or else NT (N).Nkind = N_Accept_Statement
5370 or else NT (N).Nkind = N_Access_Function_Definition
5371 or else NT (N).Nkind = N_Access_Procedure_Definition
5372 or else NT (N).Nkind = N_Entry_Body_Formal_Part
5373 or else NT (N).Nkind = N_Entry_Declaration
5374 or else NT (N).Nkind = N_Function_Specification
5375 or else NT (N).Nkind = N_Procedure_Specification);
5376 Set_List3_With_Parent (N, Val);
5377 end Set_Parameter_Specifications;
5379 procedure Set_Parameter_Type
5380 (N : Node_Id; Val : Node_Id) is
5382 pragma Assert (False
5383 or else NT (N).Nkind = N_Parameter_Specification);
5384 Set_Node2_With_Parent (N, Val);
5385 end Set_Parameter_Type;
5387 procedure Set_Parent_Spec
5388 (N : Node_Id; Val : Node_Id) is
5390 pragma Assert (False
5391 or else NT (N).Nkind = N_Function_Instantiation
5392 or else NT (N).Nkind = N_Generic_Function_Renaming_Declaration
5393 or else NT (N).Nkind = N_Generic_Package_Declaration
5394 or else NT (N).Nkind = N_Generic_Package_Renaming_Declaration
5395 or else NT (N).Nkind = N_Generic_Procedure_Renaming_Declaration
5396 or else NT (N).Nkind = N_Generic_Subprogram_Declaration
5397 or else NT (N).Nkind = N_Package_Declaration
5398 or else NT (N).Nkind = N_Package_Instantiation
5399 or else NT (N).Nkind = N_Package_Renaming_Declaration
5400 or else NT (N).Nkind = N_Procedure_Instantiation
5401 or else NT (N).Nkind = N_Subprogram_Declaration
5402 or else NT (N).Nkind = N_Subprogram_Renaming_Declaration);
5403 Set_Node4 (N, Val); -- semantic field, no parent set
5404 end Set_Parent_Spec;
5406 procedure Set_Position
5407 (N : Node_Id; Val : Node_Id) is
5409 pragma Assert (False
5410 or else NT (N).Nkind = N_Component_Clause);
5411 Set_Node2_With_Parent (N, Val);
5414 procedure Set_Pragma_Argument_Associations
5415 (N : Node_Id; Val : List_Id) is
5417 pragma Assert (False
5418 or else NT (N).Nkind = N_Pragma);
5419 Set_List2_With_Parent (N, Val);
5420 end Set_Pragma_Argument_Associations;
5422 procedure Set_Pragma_Enabled
5423 (N : Node_Id; Val : Boolean := True) is
5425 pragma Assert (False
5426 or else NT (N).Nkind = N_Pragma);
5428 end Set_Pragma_Enabled;
5430 procedure Set_Pragma_Identifier
5431 (N : Node_Id; Val : Node_Id) is
5433 pragma Assert (False
5434 or else NT (N).Nkind = N_Pragma);
5435 Set_Node4_With_Parent (N, Val);
5436 end Set_Pragma_Identifier;
5438 procedure Set_Pragmas_After
5439 (N : Node_Id; Val : List_Id) is
5441 pragma Assert (False
5442 or else NT (N).Nkind = N_Compilation_Unit_Aux
5443 or else NT (N).Nkind = N_Terminate_Alternative);
5444 Set_List5_With_Parent (N, Val);
5445 end Set_Pragmas_After;
5447 procedure Set_Pragmas_Before
5448 (N : Node_Id; Val : List_Id) is
5450 pragma Assert (False
5451 or else NT (N).Nkind = N_Accept_Alternative
5452 or else NT (N).Nkind = N_Delay_Alternative
5453 or else NT (N).Nkind = N_Entry_Call_Alternative
5454 or else NT (N).Nkind = N_Mod_Clause
5455 or else NT (N).Nkind = N_Terminate_Alternative
5456 or else NT (N).Nkind = N_Triggering_Alternative);
5457 Set_List4_With_Parent (N, Val);
5458 end Set_Pragmas_Before;
5460 procedure Set_Prefix
5461 (N : Node_Id; Val : Node_Id) is
5463 pragma Assert (False
5464 or else NT (N).Nkind = N_Attribute_Reference
5465 or else NT (N).Nkind = N_Expanded_Name
5466 or else NT (N).Nkind = N_Explicit_Dereference
5467 or else NT (N).Nkind = N_Indexed_Component
5468 or else NT (N).Nkind = N_Reference
5469 or else NT (N).Nkind = N_Selected_Component
5470 or else NT (N).Nkind = N_Slice);
5471 Set_Node3_With_Parent (N, Val);
5474 procedure Set_Present_Expr
5475 (N : Node_Id; Val : Uint) is
5477 pragma Assert (False
5478 or else NT (N).Nkind = N_Variant);
5480 end Set_Present_Expr;
5482 procedure Set_Prev_Ids
5483 (N : Node_Id; Val : Boolean := True) is
5485 pragma Assert (False
5486 or else NT (N).Nkind = N_Component_Declaration
5487 or else NT (N).Nkind = N_Discriminant_Specification
5488 or else NT (N).Nkind = N_Exception_Declaration
5489 or else NT (N).Nkind = N_Formal_Object_Declaration
5490 or else NT (N).Nkind = N_Number_Declaration
5491 or else NT (N).Nkind = N_Object_Declaration
5492 or else NT (N).Nkind = N_Parameter_Specification);
5496 procedure Set_Print_In_Hex
5497 (N : Node_Id; Val : Boolean := True) is
5499 pragma Assert (False
5500 or else NT (N).Nkind = N_Integer_Literal);
5501 Set_Flag13 (N, Val);
5502 end Set_Print_In_Hex;
5504 procedure Set_Private_Declarations
5505 (N : Node_Id; Val : List_Id) is
5507 pragma Assert (False
5508 or else NT (N).Nkind = N_Package_Specification
5509 or else NT (N).Nkind = N_Protected_Definition
5510 or else NT (N).Nkind = N_Task_Definition);
5511 Set_List3_With_Parent (N, Val);
5512 end Set_Private_Declarations;
5514 procedure Set_Private_Present
5515 (N : Node_Id; Val : Boolean := True) is
5517 pragma Assert (False
5518 or else NT (N).Nkind = N_Compilation_Unit
5519 or else NT (N).Nkind = N_Formal_Derived_Type_Definition
5520 or else NT (N).Nkind = N_With_Clause);
5521 Set_Flag15 (N, Val);
5522 end Set_Private_Present;
5524 procedure Set_Procedure_To_Call
5525 (N : Node_Id; Val : Node_Id) is
5527 pragma Assert (False
5528 or else NT (N).Nkind = N_Allocator
5529 or else NT (N).Nkind = N_Extended_Return_Statement
5530 or else NT (N).Nkind = N_Free_Statement
5531 or else NT (N).Nkind = N_Return_Statement);
5532 Set_Node2 (N, Val); -- semantic field, no parent set
5533 end Set_Procedure_To_Call;
5535 procedure Set_Proper_Body
5536 (N : Node_Id; Val : Node_Id) is
5538 pragma Assert (False
5539 or else NT (N).Nkind = N_Subunit);
5540 Set_Node1_With_Parent (N, Val);
5541 end Set_Proper_Body;
5543 procedure Set_Protected_Definition
5544 (N : Node_Id; Val : Node_Id) is
5546 pragma Assert (False
5547 or else NT (N).Nkind = N_Protected_Type_Declaration
5548 or else NT (N).Nkind = N_Single_Protected_Declaration);
5549 Set_Node3_With_Parent (N, Val);
5550 end Set_Protected_Definition;
5552 procedure Set_Protected_Present
5553 (N : Node_Id; Val : Boolean := True) is
5555 pragma Assert (False
5556 or else NT (N).Nkind = N_Access_Function_Definition
5557 or else NT (N).Nkind = N_Access_Procedure_Definition
5558 or else NT (N).Nkind = N_Derived_Type_Definition
5559 or else NT (N).Nkind = N_Record_Definition);
5561 end Set_Protected_Present;
5563 procedure Set_Raises_Constraint_Error
5564 (N : Node_Id; Val : Boolean := True) is
5566 pragma Assert (False
5567 or else NT (N).Nkind in N_Subexpr);
5569 end Set_Raises_Constraint_Error;
5571 procedure Set_Range_Constraint
5572 (N : Node_Id; Val : Node_Id) is
5574 pragma Assert (False
5575 or else NT (N).Nkind = N_Delta_Constraint
5576 or else NT (N).Nkind = N_Digits_Constraint);
5577 Set_Node4_With_Parent (N, Val);
5578 end Set_Range_Constraint;
5580 procedure Set_Range_Expression
5581 (N : Node_Id; Val : Node_Id) is
5583 pragma Assert (False
5584 or else NT (N).Nkind = N_Range_Constraint);
5585 Set_Node4_With_Parent (N, Val);
5586 end Set_Range_Expression;
5588 procedure Set_Real_Range_Specification
5589 (N : Node_Id; Val : Node_Id) is
5591 pragma Assert (False
5592 or else NT (N).Nkind = N_Decimal_Fixed_Point_Definition
5593 or else NT (N).Nkind = N_Floating_Point_Definition
5594 or else NT (N).Nkind = N_Ordinary_Fixed_Point_Definition);
5595 Set_Node4_With_Parent (N, Val);
5596 end Set_Real_Range_Specification;
5598 procedure Set_Realval
5599 (N : Node_Id; Val : Ureal) is
5601 pragma Assert (False
5602 or else NT (N).Nkind = N_Real_Literal);
5603 Set_Ureal3 (N, Val);
5606 procedure Set_Reason
5607 (N : Node_Id; Val : Uint) is
5609 pragma Assert (False
5610 or else NT (N).Nkind = N_Raise_Constraint_Error
5611 or else NT (N).Nkind = N_Raise_Program_Error
5612 or else NT (N).Nkind = N_Raise_Storage_Error);
5616 procedure Set_Record_Extension_Part
5617 (N : Node_Id; Val : Node_Id) is
5619 pragma Assert (False
5620 or else NT (N).Nkind = N_Derived_Type_Definition);
5621 Set_Node3_With_Parent (N, Val);
5622 end Set_Record_Extension_Part;
5624 procedure Set_Redundant_Use
5625 (N : Node_Id; Val : Boolean := True) is
5627 pragma Assert (False
5628 or else NT (N).Nkind = N_Attribute_Reference
5629 or else NT (N).Nkind = N_Expanded_Name
5630 or else NT (N).Nkind = N_Identifier);
5631 Set_Flag13 (N, Val);
5632 end Set_Redundant_Use;
5634 procedure Set_Renaming_Exception
5635 (N : Node_Id; Val : Node_Id) is
5637 pragma Assert (False
5638 or else NT (N).Nkind = N_Exception_Declaration);
5640 end Set_Renaming_Exception;
5642 procedure Set_Result_Definition
5643 (N : Node_Id; Val : Node_Id) is
5645 pragma Assert (False
5646 or else NT (N).Nkind = N_Access_Function_Definition
5647 or else NT (N).Nkind = N_Function_Specification);
5648 Set_Node4_With_Parent (N, Val);
5649 end Set_Result_Definition;
5651 procedure Set_Return_Object_Declarations
5652 (N : Node_Id; Val : List_Id) is
5654 pragma Assert (False
5655 or else NT (N).Nkind = N_Extended_Return_Statement);
5656 Set_List3_With_Parent (N, Val);
5657 end Set_Return_Object_Declarations;
5659 procedure Set_Return_Statement_Entity
5660 (N : Node_Id; Val : Node_Id) is
5662 pragma Assert (False
5663 or else NT (N).Nkind = N_Extended_Return_Statement
5664 or else NT (N).Nkind = N_Return_Statement);
5665 Set_Node5 (N, Val); -- semantic field, no parent set
5666 end Set_Return_Statement_Entity;
5668 procedure Set_Reverse_Present
5669 (N : Node_Id; Val : Boolean := True) is
5671 pragma Assert (False
5672 or else NT (N).Nkind = N_Iterator_Specification
5673 or else NT (N).Nkind = N_Loop_Parameter_Specification);
5674 Set_Flag15 (N, Val);
5675 end Set_Reverse_Present;
5677 procedure Set_Right_Opnd
5678 (N : Node_Id; Val : Node_Id) is
5680 pragma Assert (False
5681 or else NT (N).Nkind in N_Op
5682 or else NT (N).Nkind = N_And_Then
5683 or else NT (N).Nkind = N_In
5684 or else NT (N).Nkind = N_Not_In
5685 or else NT (N).Nkind = N_Or_Else);
5686 Set_Node3_With_Parent (N, Val);
5689 procedure Set_Rounded_Result
5690 (N : Node_Id; Val : Boolean := True) is
5692 pragma Assert (False
5693 or else NT (N).Nkind = N_Op_Divide
5694 or else NT (N).Nkind = N_Op_Multiply
5695 or else NT (N).Nkind = N_Type_Conversion);
5696 Set_Flag18 (N, Val);
5697 end Set_Rounded_Result;
5699 procedure Set_SCIL_Controlling_Tag
5700 (N : Node_Id; Val : Node_Id) is
5702 pragma Assert (False
5703 or else NT (N).Nkind = N_SCIL_Dispatching_Call);
5704 Set_Node5 (N, Val); -- semantic field, no parent set
5705 end Set_SCIL_Controlling_Tag;
5707 procedure Set_SCIL_Entity
5708 (N : Node_Id; Val : Node_Id) is
5710 pragma Assert (False
5711 or else NT (N).Nkind = N_SCIL_Dispatch_Table_Tag_Init
5712 or else NT (N).Nkind = N_SCIL_Dispatching_Call
5713 or else NT (N).Nkind = N_SCIL_Membership_Test);
5714 Set_Node4 (N, Val); -- semantic field, no parent set
5715 end Set_SCIL_Entity;
5717 procedure Set_SCIL_Tag_Value
5718 (N : Node_Id; Val : Node_Id) is
5720 pragma Assert (False
5721 or else NT (N).Nkind = N_SCIL_Membership_Test);
5722 Set_Node5 (N, Val); -- semantic field, no parent set
5723 end Set_SCIL_Tag_Value;
5725 procedure Set_SCIL_Target_Prim
5726 (N : Node_Id; Val : Node_Id) is
5728 pragma Assert (False
5729 or else NT (N).Nkind = N_SCIL_Dispatching_Call);
5730 Set_Node2 (N, Val); -- semantic field, no parent set
5731 end Set_SCIL_Target_Prim;
5734 (N : Node_Id; Val : Node_Id) is
5736 pragma Assert (False
5737 or else NT (N).Nkind = N_Defining_Character_Literal
5738 or else NT (N).Nkind = N_Defining_Identifier
5739 or else NT (N).Nkind = N_Defining_Operator_Symbol);
5740 Set_Node3 (N, Val); -- semantic field, no parent set
5743 procedure Set_Select_Alternatives
5744 (N : Node_Id; Val : List_Id) is
5746 pragma Assert (False
5747 or else NT (N).Nkind = N_Selective_Accept);
5748 Set_List1_With_Parent (N, Val);
5749 end Set_Select_Alternatives;
5751 procedure Set_Selector_Name
5752 (N : Node_Id; Val : Node_Id) is
5754 pragma Assert (False
5755 or else NT (N).Nkind = N_Expanded_Name
5756 or else NT (N).Nkind = N_Generic_Association
5757 or else NT (N).Nkind = N_Parameter_Association
5758 or else NT (N).Nkind = N_Selected_Component);
5759 Set_Node2_With_Parent (N, Val);
5760 end Set_Selector_Name;
5762 procedure Set_Selector_Names
5763 (N : Node_Id; Val : List_Id) is
5765 pragma Assert (False
5766 or else NT (N).Nkind = N_Discriminant_Association);
5767 Set_List1_With_Parent (N, Val);
5768 end Set_Selector_Names;
5770 procedure Set_Shift_Count_OK
5771 (N : Node_Id; Val : Boolean := True) is
5773 pragma Assert (False
5774 or else NT (N).Nkind = N_Op_Rotate_Left
5775 or else NT (N).Nkind = N_Op_Rotate_Right
5776 or else NT (N).Nkind = N_Op_Shift_Left
5777 or else NT (N).Nkind = N_Op_Shift_Right
5778 or else NT (N).Nkind = N_Op_Shift_Right_Arithmetic);
5780 end Set_Shift_Count_OK;
5782 procedure Set_Source_Type
5783 (N : Node_Id; Val : Entity_Id) is
5785 pragma Assert (False
5786 or else NT (N).Nkind = N_Validate_Unchecked_Conversion);
5787 Set_Node1 (N, Val); -- semantic field, no parent set
5788 end Set_Source_Type;
5790 procedure Set_Specification
5791 (N : Node_Id; Val : Node_Id) is
5793 pragma Assert (False
5794 or else NT (N).Nkind = N_Abstract_Subprogram_Declaration
5795 or else NT (N).Nkind = N_Formal_Abstract_Subprogram_Declaration
5796 or else NT (N).Nkind = N_Formal_Concrete_Subprogram_Declaration
5797 or else NT (N).Nkind = N_Generic_Package_Declaration
5798 or else NT (N).Nkind = N_Generic_Subprogram_Declaration
5799 or else NT (N).Nkind = N_Package_Declaration
5800 or else NT (N).Nkind = N_Parameterized_Expression
5801 or else NT (N).Nkind = N_Subprogram_Body
5802 or else NT (N).Nkind = N_Subprogram_Body_Stub
5803 or else NT (N).Nkind = N_Subprogram_Declaration
5804 or else NT (N).Nkind = N_Subprogram_Renaming_Declaration);
5805 Set_Node1_With_Parent (N, Val);
5806 end Set_Specification;
5808 procedure Set_Split_PPC
5809 (N : Node_Id; Val : Boolean) is
5811 pragma Assert (False
5812 or else NT (N).Nkind = N_Aspect_Specification
5813 or else NT (N).Nkind = N_Pragma);
5814 Set_Flag17 (N, Val);
5817 procedure Set_Statements
5818 (N : Node_Id; Val : List_Id) is
5820 pragma Assert (False
5821 or else NT (N).Nkind = N_Abortable_Part
5822 or else NT (N).Nkind = N_Accept_Alternative
5823 or else NT (N).Nkind = N_Case_Statement_Alternative
5824 or else NT (N).Nkind = N_Delay_Alternative
5825 or else NT (N).Nkind = N_Entry_Call_Alternative
5826 or else NT (N).Nkind = N_Exception_Handler
5827 or else NT (N).Nkind = N_Handled_Sequence_Of_Statements
5828 or else NT (N).Nkind = N_Loop_Statement
5829 or else NT (N).Nkind = N_Triggering_Alternative);
5830 Set_List3_With_Parent (N, Val);
5833 procedure Set_Static_Processing_OK
5834 (N : Node_Id; Val : Boolean) is
5836 pragma Assert (False
5837 or else NT (N).Nkind = N_Aggregate);
5839 end Set_Static_Processing_OK;
5841 procedure Set_Storage_Pool
5842 (N : Node_Id; Val : Node_Id) is
5844 pragma Assert (False
5845 or else NT (N).Nkind = N_Allocator
5846 or else NT (N).Nkind = N_Extended_Return_Statement
5847 or else NT (N).Nkind = N_Free_Statement
5848 or else NT (N).Nkind = N_Return_Statement);
5849 Set_Node1 (N, Val); -- semantic field, no parent set
5850 end Set_Storage_Pool;
5852 procedure Set_Strval
5853 (N : Node_Id; Val : String_Id) is
5855 pragma Assert (False
5856 or else NT (N).Nkind = N_Operator_Symbol
5857 or else NT (N).Nkind = N_String_Literal);
5861 procedure Set_Subtype_Indication
5862 (N : Node_Id; Val : Node_Id) is
5864 pragma Assert (False
5865 or else NT (N).Nkind = N_Access_To_Object_Definition
5866 or else NT (N).Nkind = N_Component_Definition
5867 or else NT (N).Nkind = N_Derived_Type_Definition
5868 or else NT (N).Nkind = N_Iterator_Specification
5869 or else NT (N).Nkind = N_Private_Extension_Declaration
5870 or else NT (N).Nkind = N_Subtype_Declaration);
5871 Set_Node5_With_Parent (N, Val);
5872 end Set_Subtype_Indication;
5874 procedure Set_Subtype_Mark
5875 (N : Node_Id; Val : Node_Id) is
5877 pragma Assert (False
5878 or else NT (N).Nkind = N_Access_Definition
5879 or else NT (N).Nkind = N_Formal_Derived_Type_Definition
5880 or else NT (N).Nkind = N_Formal_Object_Declaration
5881 or else NT (N).Nkind = N_Object_Renaming_Declaration
5882 or else NT (N).Nkind = N_Qualified_Expression
5883 or else NT (N).Nkind = N_Subtype_Indication
5884 or else NT (N).Nkind = N_Type_Conversion
5885 or else NT (N).Nkind = N_Unchecked_Type_Conversion);
5886 Set_Node4_With_Parent (N, Val);
5887 end Set_Subtype_Mark;
5889 procedure Set_Subtype_Marks
5890 (N : Node_Id; Val : List_Id) is
5892 pragma Assert (False
5893 or else NT (N).Nkind = N_Unconstrained_Array_Definition
5894 or else NT (N).Nkind = N_Use_Type_Clause);
5895 Set_List2_With_Parent (N, Val);
5896 end Set_Subtype_Marks;
5898 procedure Set_Suppress_Assignment_Checks
5899 (N : Node_Id; Val : Boolean := True) is
5901 pragma Assert (False
5902 or else NT (N).Nkind = N_Assignment_Statement
5903 or else NT (N).Nkind = N_Object_Declaration);
5904 Set_Flag18 (N, Val);
5905 end Set_Suppress_Assignment_Checks;
5907 procedure Set_Suppress_Loop_Warnings
5908 (N : Node_Id; Val : Boolean := True) is
5910 pragma Assert (False
5911 or else NT (N).Nkind = N_Loop_Statement);
5912 Set_Flag17 (N, Val);
5913 end Set_Suppress_Loop_Warnings;
5915 procedure Set_Synchronized_Present
5916 (N : Node_Id; Val : Boolean := True) is
5918 pragma Assert (False
5919 or else NT (N).Nkind = N_Derived_Type_Definition
5920 or else NT (N).Nkind = N_Formal_Derived_Type_Definition
5921 or else NT (N).Nkind = N_Private_Extension_Declaration
5922 or else NT (N).Nkind = N_Record_Definition);
5924 end Set_Synchronized_Present;
5926 procedure Set_Tagged_Present
5927 (N : Node_Id; Val : Boolean := True) is
5929 pragma Assert (False
5930 or else NT (N).Nkind = N_Formal_Private_Type_Definition
5931 or else NT (N).Nkind = N_Incomplete_Type_Declaration
5932 or else NT (N).Nkind = N_Private_Type_Declaration
5933 or else NT (N).Nkind = N_Record_Definition);
5934 Set_Flag15 (N, Val);
5935 end Set_Tagged_Present;
5937 procedure Set_Target_Type
5938 (N : Node_Id; Val : Entity_Id) is
5940 pragma Assert (False
5941 or else NT (N).Nkind = N_Validate_Unchecked_Conversion);
5942 Set_Node2 (N, Val); -- semantic field, no parent set
5943 end Set_Target_Type;
5945 procedure Set_Task_Definition
5946 (N : Node_Id; Val : Node_Id) is
5948 pragma Assert (False
5949 or else NT (N).Nkind = N_Single_Task_Declaration
5950 or else NT (N).Nkind = N_Task_Type_Declaration);
5951 Set_Node3_With_Parent (N, Val);
5952 end Set_Task_Definition;
5954 procedure Set_Task_Present
5955 (N : Node_Id; Val : Boolean := True) is
5957 pragma Assert (False
5958 or else NT (N).Nkind = N_Derived_Type_Definition
5959 or else NT (N).Nkind = N_Record_Definition);
5961 end Set_Task_Present;
5963 procedure Set_Then_Actions
5964 (N : Node_Id; Val : List_Id) is
5966 pragma Assert (False
5967 or else NT (N).Nkind = N_Conditional_Expression);
5968 Set_List2 (N, Val); -- semantic field, no parent set
5969 end Set_Then_Actions;
5971 procedure Set_Then_Statements
5972 (N : Node_Id; Val : List_Id) is
5974 pragma Assert (False
5975 or else NT (N).Nkind = N_Elsif_Part
5976 or else NT (N).Nkind = N_If_Statement);
5977 Set_List2_With_Parent (N, Val);
5978 end Set_Then_Statements;
5980 procedure Set_Treat_Fixed_As_Integer
5981 (N : Node_Id; Val : Boolean := True) is
5983 pragma Assert (False
5984 or else NT (N).Nkind = N_Op_Divide
5985 or else NT (N).Nkind = N_Op_Mod
5986 or else NT (N).Nkind = N_Op_Multiply
5987 or else NT (N).Nkind = N_Op_Rem);
5988 Set_Flag14 (N, Val);
5989 end Set_Treat_Fixed_As_Integer;
5991 procedure Set_Triggering_Alternative
5992 (N : Node_Id; Val : Node_Id) is
5994 pragma Assert (False
5995 or else NT (N).Nkind = N_Asynchronous_Select);
5996 Set_Node1_With_Parent (N, Val);
5997 end Set_Triggering_Alternative;
5999 procedure Set_Triggering_Statement
6000 (N : Node_Id; Val : Node_Id) is
6002 pragma Assert (False
6003 or else NT (N).Nkind = N_Triggering_Alternative);
6004 Set_Node1_With_Parent (N, Val);
6005 end Set_Triggering_Statement;
6007 procedure Set_TSS_Elist
6008 (N : Node_Id; Val : Elist_Id) is
6010 pragma Assert (False
6011 or else NT (N).Nkind = N_Freeze_Entity);
6012 Set_Elist3 (N, Val); -- semantic field, no parent set
6015 procedure Set_Type_Definition
6016 (N : Node_Id; Val : Node_Id) is
6018 pragma Assert (False
6019 or else NT (N).Nkind = N_Full_Type_Declaration);
6020 Set_Node3_With_Parent (N, Val);
6021 end Set_Type_Definition;
6024 (N : Node_Id; Val : Node_Id) is
6026 pragma Assert (False
6027 or else NT (N).Nkind = N_Compilation_Unit);
6028 Set_Node2_With_Parent (N, Val);
6031 procedure Set_Unknown_Discriminants_Present
6032 (N : Node_Id; Val : Boolean := True) is
6034 pragma Assert (False
6035 or else NT (N).Nkind = N_Formal_Type_Declaration
6036 or else NT (N).Nkind = N_Incomplete_Type_Declaration
6037 or else NT (N).Nkind = N_Private_Extension_Declaration
6038 or else NT (N).Nkind = N_Private_Type_Declaration);
6039 Set_Flag13 (N, Val);
6040 end Set_Unknown_Discriminants_Present;
6042 procedure Set_Unreferenced_In_Spec
6043 (N : Node_Id; Val : Boolean := True) is
6045 pragma Assert (False
6046 or else NT (N).Nkind = N_With_Clause);
6048 end Set_Unreferenced_In_Spec;
6050 procedure Set_Variant_Part
6051 (N : Node_Id; Val : Node_Id) is
6053 pragma Assert (False
6054 or else NT (N).Nkind = N_Component_List);
6055 Set_Node4_With_Parent (N, Val);
6056 end Set_Variant_Part;
6058 procedure Set_Variants
6059 (N : Node_Id; Val : List_Id) is
6061 pragma Assert (False
6062 or else NT (N).Nkind = N_Variant_Part);
6063 Set_List1_With_Parent (N, Val);
6066 procedure Set_Visible_Declarations
6067 (N : Node_Id; Val : List_Id) is
6069 pragma Assert (False
6070 or else NT (N).Nkind = N_Package_Specification
6071 or else NT (N).Nkind = N_Protected_Definition
6072 or else NT (N).Nkind = N_Task_Definition);
6073 Set_List2_With_Parent (N, Val);
6074 end Set_Visible_Declarations;
6076 procedure Set_Was_Originally_Stub
6077 (N : Node_Id; Val : Boolean := True) is
6079 pragma Assert (False
6080 or else NT (N).Nkind = N_Package_Body
6081 or else NT (N).Nkind = N_Protected_Body
6082 or else NT (N).Nkind = N_Subprogram_Body
6083 or else NT (N).Nkind = N_Task_Body);
6084 Set_Flag13 (N, Val);
6085 end Set_Was_Originally_Stub;
6087 procedure Set_Withed_Body
6088 (N : Node_Id; Val : Node_Id) is
6090 pragma Assert (False
6091 or else NT (N).Nkind = N_With_Clause);
6093 end Set_Withed_Body;
6095 procedure Set_Zero_Cost_Handling
6096 (N : Node_Id; Val : Boolean := True) is
6098 pragma Assert (False
6099 or else NT (N).Nkind = N_Exception_Handler
6100 or else NT (N).Nkind = N_Handled_Sequence_Of_Statements);
6102 end Set_Zero_Cost_Handling;
6104 -------------------------
6105 -- Iterator Procedures --
6106 -------------------------
6108 procedure Next_Entity (N : in out Node_Id) is
6110 N := Next_Entity (N);
6113 procedure Next_Named_Actual (N : in out Node_Id) is
6115 N := Next_Named_Actual (N);
6116 end Next_Named_Actual;
6118 procedure Next_Rep_Item (N : in out Node_Id) is
6120 N := Next_Rep_Item (N);
6123 procedure Next_Use_Clause (N : in out Node_Id) is
6125 N := Next_Use_Clause (N);
6126 end Next_Use_Clause;
6132 function End_Location (N : Node_Id) return Source_Ptr is
6133 L : constant Uint := End_Span (N);
6138 return Source_Ptr (Int (Sloc (N)) + UI_To_Int (L));
6142 --------------------
6143 -- Get_Pragma_Arg --
6144 --------------------
6146 function Get_Pragma_Arg (Arg : Node_Id) return Node_Id is
6148 if Nkind (Arg) = N_Pragma_Argument_Association then
6149 return Expression (Arg);
6155 ----------------------
6156 -- Set_End_Location --
6157 ----------------------
6159 procedure Set_End_Location (N : Node_Id; S : Source_Ptr) is
6162 UI_From_Int (Int (S) - Int (Sloc (N))));
6163 end Set_End_Location;
6172 V2 : Node_Kind) return Boolean
6175 return T = V1 or else
6183 V3 : Node_Kind) return Boolean
6186 return T = V1 or else
6196 V4 : Node_Kind) return Boolean
6199 return T = V1 or else
6211 V5 : Node_Kind) return Boolean
6214 return T = V1 or else
6228 V6 : Node_Kind) return Boolean
6231 return T = V1 or else
6247 V7 : Node_Kind) return Boolean
6250 return T = V1 or else
6268 V8 : Node_Kind) return Boolean
6271 return T = V1 or else
6291 V9 : Node_Kind) return Boolean
6294 return T = V1 or else
6309 function Pragma_Name (N : Node_Id) return Name_Id is
6311 return Chars (Pragma_Identifier (N));