1 ------------------------------------------------------------------------------
3 -- GNAT COMPILER COMPONENTS --
9 -- Copyright (C) 1992-2009, 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 -- This package defines the structure of the abstract syntax tree. The Tree
33 -- package provides a basic tree structure. Sinfo describes how this structure
34 -- is used to represent the syntax of an Ada program.
36 -- The grammar in the RM is followed very closely in the tree design, and is
37 -- repeated as part of this source file.
39 -- The tree contains not only the full syntactic representation of the
40 -- program, but also the results of semantic analysis. In particular, the
41 -- nodes for defining identifiers, defining character literals and defining
42 -- operator symbols, collectively referred to as entities, represent what
43 -- would normally be regarded as the symbol table information. In addition a
44 -- number of the tree nodes contain semantic information.
46 -- WARNING: Several files are automatically generated from this package.
47 -- See below for details.
49 with Namet; use Namet;
50 with Types; use Types;
51 with Uintp; use Uintp;
52 with Urealp; use Urealp;
56 ---------------------------------
57 -- Making Changes to This File --
58 ---------------------------------
60 -- If changes are made to this file, a number of related steps must be
61 -- carried out to ensure consistency. First, if a field access function is
62 -- added, it appears in seven places:
64 -- The documentation associated with the node
65 -- The spec of the access function in sinfo.ads
66 -- The body of the access function in sinfo.adb
67 -- The pragma Inline at the end of sinfo.ads for the access function
68 -- The spec of the set procedure in sinfo.ads
69 -- The body of the set procedure in sinfo.adb
70 -- The pragma Inline at the end of sinfo.ads for the set procedure
72 -- The field chosen must be consistent in all places, and, for a node that
73 -- is a subexpression, must not overlap any of the standard expression
76 -- In addition, if any of the standard expression fields is changed, then
77 -- the utility program which creates the Treeprs spec (in file treeprs.ads)
78 -- must be updated appropriately, since it special cases expression fields.
80 -- If a new tree node is added, then the following changes are made
82 -- Add it to the documentation in the appropriate place
83 -- Add its fields to this documentation section
84 -- Define it in the appropriate classification in Node_Kind
85 -- In the body (sinfo), add entries to the access functions for all
86 -- its fields (except standard expression fields) to include the new
87 -- node in the checks.
88 -- Add an appropriate section to the case statement in sprint.adb
89 -- Add an appropriate section to the case statement in sem.adb
90 -- Add an appropriate section to the case statement in exp_util.adb
91 -- (Insert_Actions procedure)
92 -- For a subexpression, add an appropriate section to the case
93 -- statement in sem_eval.adb
94 -- For a subexpression, add an appropriate section to the case
95 -- statement in sem_res.adb
97 -- Finally, four utility programs must be run:
99 -- Run CSinfo to check that you have made the changes consistently. It
100 -- checks most of the rules given above, with clear error messages. This
101 -- utility reads sinfo.ads and sinfo.adb and generates a report to
104 -- Run XSinfo to create sinfo.h, the corresponding C header. This
105 -- utility reads sinfo.ads and generates sinfo.h. Note that it does
106 -- not need to read sinfo.adb, since the contents of the body are
107 -- algorithmically determinable from the spec.
109 -- Run XTreeprs to create treeprs.ads, an updated version of the module
110 -- that is used to drive the tree print routine. This utility reads (but
111 -- does not modify) treeprs.adt, the template that provides the basic
112 -- structure of the file, and then fills in the data from the comments
115 -- Run XNmake to create nmake.ads and nmake.adb, the package body and
116 -- spec of the Nmake package which contains functions for constructing
119 -- All of the above steps except CSinfo are done automatically by the
120 -- build scripts when you do a full bootstrap.
122 -- Note: sometime we could write a utility that actually generated the body
123 -- of sinfo from the spec instead of simply checking it, since, as noted
124 -- above, the contents of the body can be determined from the spec.
126 --------------------------------
127 -- Implicit Nodes in the Tree --
128 --------------------------------
130 -- Generally the structure of the tree very closely follows the grammar as
131 -- defined in the RM. However, certain nodes are omitted to save space and
132 -- simplify semantic processing. Two general classes of such omitted nodes
135 -- If the only possibilities for a non-terminal are one or more other
136 -- non-terminals (i.e. the rule is a "skinny" rule), then usually the
137 -- corresponding node is omitted from the tree, and the target construct
138 -- appears directly. For example, a real type definition is either
139 -- floating point definition or a fixed point definition. No explicit node
140 -- appears for real type definition. Instead either the floating point
141 -- definition or fixed point definition appears directly.
143 -- If a non-terminal corresponds to a list of some other non-terminal
144 -- (possibly with separating punctuation), then usually it is omitted from
145 -- the tree, and a list of components appears instead. For example,
146 -- sequence of statements does not appear explicitly in the tree. Instead
147 -- a list of statements appears directly.
149 -- Some additional cases of omitted nodes occur and are documented
150 -- individually. In particular, many nodes are omitted in the tree
151 -- generated for an expression.
153 -------------------------------------------
154 -- Handling of Defining Identifier Lists --
155 -------------------------------------------
157 -- In several declarative forms in the syntax, lists of defining
158 -- identifiers appear (object declarations, component declarations, number
159 -- declarations etc.)
161 -- The semantics of such statements are equivalent to a series of identical
162 -- declarations of single defining identifiers (except that conformance
163 -- checks require the same grouping of identifiers in the parameter case).
165 -- To simplify semantic processing, the parser breaks down such multiple
166 -- declaration cases into sequences of single declarations, duplicating
167 -- type and initialization information as required. The flags More_Ids and
168 -- Prev_Ids are used to record the original form of the source in the case
169 -- where the original source used a list of names, More_Ids being set on
170 -- all but the last name and Prev_Ids being set on all but the first name.
171 -- These flags are used to reconstruct the original source (e.g. in the
172 -- Sprint package), and also are included in the conformance checks, but
173 -- otherwise have no semantic significance.
175 -- Note: the reason that we use More_Ids and Prev_Ids rather than
176 -- First_Name and Last_Name flags is so that the flags are off in the
177 -- normal one identifier case, which minimizes tree print output.
179 -----------------------
180 -- Use of Node Lists --
181 -----------------------
183 -- With a few exceptions, if a construction of the form {non-terminal}
184 -- appears in the tree, lists are used in the corresponding tree node (see
185 -- package Nlists for handling of node lists). In this case a field of the
186 -- parent node points to a list of nodes for the non-terminal. The field
187 -- name for such fields has a plural name which always ends in "s". For
188 -- example, a case statement has a field Alternatives pointing to list of
189 -- case statement alternative nodes.
191 -- Only fields pointing to lists have names ending in "s", so generally the
192 -- structure is strongly typed, fields not ending in s point to single
193 -- nodes, and fields ending in s point to lists.
195 -- The following example shows how a traversal of a list is written. We
196 -- suppose here that Stmt points to a N_Case_Statement node which has a
197 -- list field called Alternatives:
199 -- Alt := First (Alternatives (Stmt));
200 -- while Present (Alt) loop
202 -- -- processing for case statement alternative Alt
204 -- Alt := Next (Alt);
207 -- The Present function tests for Empty, which in this case signals the end
208 -- of the list. First returns Empty immediately if the list is empty.
209 -- Present is defined in Atree, First and Next are defined in Nlists.
211 -- The exceptions to this rule occur with {DEFINING_IDENTIFIERS} in all
212 -- contexts, which is handled as described in the previous section, and
213 -- with {,library_unit_NAME} in the N_With_Clause mode, which is handled
214 -- using the First_Name and Last_Name flags, as further detailed in the
215 -- description of the N_With_Clause node.
221 -- Pragmas can appear in many different context, but are not included in
222 -- the grammar. Still they must appear in the tree, so they can be properly
225 -- Two approaches are used. In some cases, an extra field is defined in an
226 -- appropriate node that contains a list of pragmas appearing in the
227 -- expected context. For example pragmas can appear before an
228 -- Accept_Alternative in a Selective_Accept_Statement, and these pragmas
229 -- appear in the Pragmas_Before field of the N_Accept_Alternative node.
231 -- The other approach is to simply allow pragmas to appear in syntactic
232 -- lists where the grammar (of course) does not include the possibility.
233 -- For example, the Variants field of an N_Variant_Part node points to a
234 -- list that can contain both N_Pragma and N_Variant nodes.
236 -- To make processing easier in the latter case, the Nlists package
237 -- provides a set of routines (First_Non_Pragma, Last_Non_Pragma,
238 -- Next_Non_Pragma, Prev_Non_Pragma) that allow such lists to be handled
239 -- ignoring all pragmas.
241 -- In the case of the variants list, we can either write:
243 -- Variant := First (Variants (N));
244 -- while Present (Variant) loop
246 -- Variant := Next (Variant);
251 -- Variant := First_Non_Pragma (Variants (N));
252 -- while Present (Variant) loop
254 -- Variant := Next_Non_Pragma (Variant);
257 -- In the first form of the loop, Variant can either be an N_Pragma or an
258 -- N_Variant node. In the second form, Variant can only be N_Variant since
259 -- all pragmas are skipped.
261 ---------------------
262 -- Optional Fields --
263 ---------------------
265 -- Fields which correspond to a section of the syntax enclosed in square
266 -- brackets are generally omitted (and the corresponding field set to Empty
267 -- for a node, or No_List for a list). The documentation of such fields
268 -- notes these cases. One exception to this rule occurs in the case of
269 -- possibly empty statement sequences (such as the sequence of statements
270 -- in an entry call alternative). Such cases appear in the syntax rules as
271 -- [SEQUENCE_OF_STATEMENTS] and the fields corresponding to such optional
272 -- statement sequences always contain an empty list (not No_List) if no
273 -- statements are present.
275 -- Note: the utility program that constructs the body and spec of the Nmake
276 -- package relies on the format of the comments to determine if a field
277 -- should have a default value in the corresponding make routine. The rule
278 -- is that if the first line of the description of the field contains the
279 -- string "(set to xxx if", then a default value of xxx is provided for
280 -- this field in the corresponding Make_yyy routine.
282 -----------------------------------
283 -- Note on Body/Spec Terminology --
284 -----------------------------------
286 -- In informal discussions about Ada, it is customary to refer to package
287 -- and subprogram specs and bodies. However, this is not technically
288 -- correct, what is normally referred to as a spec or specification is in
289 -- fact a package declaration or subprogram declaration. We are careful in
290 -- GNAT to use the correct terminology and in particular, the full word
291 -- specification is never used as an incorrect substitute for declaration.
292 -- The structure and terminology used in the tree also reflects the grammar
293 -- and thus uses declaration and specification in the technically correct
296 -- However, there are contexts in which the informal terminology is useful.
297 -- We have the word "body" to refer to the Interp_Etype declared by the
298 -- declaration of a unit body, and in some contexts we need similar term to
299 -- refer to the entity declared by the package or subprogram declaration,
300 -- and simply using declaration can be confusing since the body also has a
303 -- An example of such a context is the link between the package body and
304 -- its declaration. With_Declaration is confusing, since the package body
305 -- itself is a declaration.
307 -- To deal with this problem, we reserve the informal term Spec, i.e. the
308 -- popular abbreviation used in this context, to refer to the entity
309 -- declared by the package or subprogram declaration. So in the above
310 -- example case, the field in the body is called With_Spec.
312 -- Another important context for the use of the word Spec is in error
313 -- messages, where a hyper-correct use of declaration would be confusing to
314 -- a typical Ada programmer, and even for an expert programmer can cause
315 -- confusion since the body has a declaration as well.
319 -- Declaration always refers to the syntactic entity that is called
320 -- a declaration. In particular, subprogram declaration
321 -- and package declaration are used to describe the
322 -- syntactic entity that includes the semicolon.
324 -- Specification always refers to the syntactic entity that is called
325 -- a specification. In particular, the terms procedure
326 -- specification, function specification, package
327 -- specification, subprogram specification always refer
328 -- to the syntactic entity that has no semicolon.
330 -- Spec is an informal term, used to refer to the entity
331 -- that is declared by a task declaration, protected
332 -- declaration, generic declaration, subprogram
333 -- declaration or package declaration.
335 -- This convention is followed throughout the GNAT documentation
336 -- both internal and external, and in all error message text.
338 ------------------------
339 -- Internal Use Nodes --
340 ------------------------
342 -- These are Node_Kind settings used in the internal implementation which
343 -- are not logically part of the specification.
346 -- Completely unused entry at the start of the enumeration type. This
347 -- is inserted so that no legitimate value is zero, which helps to get
348 -- better debugging behavior, since zero is a likely uninitialized value).
351 -- Completely unused entry at the end of the enumeration type. This is
352 -- handy so that arrays with Node_Kind as the index type have an extra
353 -- entry at the end (see for example the use of the Pchar_Pos_Array in
354 -- Treepr, where the extra entry provides the limit value when dealing with
355 -- the last used entry in the array).
357 -----------------------------------------
358 -- Note on the settings of Sloc fields --
359 -----------------------------------------
361 -- The Sloc field of nodes that come from the source is set by the parser.
362 -- For internal nodes, and nodes generated during expansion the Sloc is
363 -- usually set in the call to the constructor for the node. In general the
364 -- Sloc value chosen for an internal node is the Sloc of the source node
365 -- whose processing is responsible for the expansion. For example, the Sloc
366 -- of an inherited primitive operation is the Sloc of the corresponding
367 -- derived type declaration.
369 -- For the nodes of a generic instantiation, the Sloc value is encoded to
370 -- represent both the original Sloc in the generic unit, and the Sloc of
371 -- the instantiation itself. See Sinput.ads for details.
373 -- Subprogram instances create two callable entities: one is the visible
374 -- subprogram instance, and the other is an anonymous subprogram nested
375 -- within a wrapper package that contains the renamings for the actuals.
376 -- Both of these entities have the Sloc of the defining entity in the
377 -- instantiation node. This simplifies some ASIS queries.
379 -----------------------
380 -- Field Definitions --
381 -----------------------
383 -- In the following node definitions, all fields, both syntactic and
384 -- semantic, are documented. The one exception is in the case of entities
385 -- (defining identifiers, character literals and operator symbols), where
386 -- the usage of the fields depends on the entity kind. Entity fields are
387 -- fully documented in the separate package Einfo.
389 -- In the node definitions, three common sets of fields are abbreviated to
390 -- save both space in the documentation, and also space in the string
391 -- (defined in Tree_Print_Strings) used to print trees. The following
392 -- abbreviations are used:
394 -- Note: the utility program that creates the Treeprs spec (in the file
395 -- xtreeprs.adb) knows about the special fields here, so it must be
396 -- modified if any change is made to these fields.
398 -- "plus fields for binary operator"
399 -- Chars (Name1) Name_Id for the operator
400 -- Left_Opnd (Node2) left operand expression
401 -- Right_Opnd (Node3) right operand expression
402 -- Entity (Node4-Sem) defining entity for operator
403 -- Associated_Node (Node4-Sem) for generic processing
404 -- Do_Overflow_Check (Flag17-Sem) set if overflow check needed
405 -- Has_Private_View (Flag11-Sem) set in generic units.
407 -- "plus fields for unary operator"
408 -- Chars (Name1) Name_Id for the operator
409 -- Right_Opnd (Node3) right operand expression
410 -- Entity (Node4-Sem) defining entity for operator
411 -- Associated_Node (Node4-Sem) for generic processing
412 -- Do_Overflow_Check (Flag17-Sem) set if overflow check needed
413 -- Has_Private_View (Flag11-Sem) set in generic units.
415 -- "plus fields for expression"
416 -- Paren_Count number of parentheses levels
417 -- Etype (Node5-Sem) type of the expression
418 -- Is_Overloaded (Flag5-Sem) >1 type interpretation exists
419 -- Is_Static_Expression (Flag6-Sem) set for static expression
420 -- Raises_Constraint_Error (Flag7-Sem) evaluation raises CE
421 -- Must_Not_Freeze (Flag8-Sem) set if must not freeze
422 -- Do_Range_Check (Flag9-Sem) set if a range check needed
423 -- Assignment_OK (Flag15-Sem) set if modification is OK
424 -- Is_Controlling_Actual (Flag16-Sem) set for controlling argument
426 -- Note: see under (EXPRESSION) for further details on the use of
427 -- the Paren_Count field to record the number of parentheses levels.
429 -- Node_Kind is the type used in the Nkind field to indicate the node kind.
430 -- The actual definition of this type is given later (the reason for this
431 -- is that we want the descriptions ordered by logical chapter in the RM,
432 -- but the type definition is reordered to facilitate the definition of
433 -- some subtype ranges. The individual descriptions of the nodes show how
434 -- the various fields are used in each node kind, as well as providing
435 -- logical names for the fields. Functions and procedures are provided for
436 -- accessing and setting these fields using these logical names.
438 -----------------------
439 -- Gigi Restrictions --
440 -----------------------
442 -- The tree passed to Gigi is more restricted than the general tree form.
443 -- For example, as a result of expansion, most of the tasking nodes can
444 -- never appear. For each node to which either a complete or partial
445 -- restriction applies, a note entitled "Gigi restriction" appears which
446 -- documents the restriction.
448 -- Note that most of these restrictions apply only to trees generated when
449 -- code is being generated, since they involved expander actions that
452 ------------------------
453 -- Common Flag Fields --
454 ------------------------
456 -- The following flag fields appear in all nodes
459 -- This flag is used to indicate that a node (and all its children have
460 -- been analyzed. It is used to avoid reanalysis of a node that has
461 -- already been analyzed, both for efficiency and functional correctness
464 -- Comes_From_Source (Flag2)
465 -- This flag is on for any nodes built by the scanner or parser from the
466 -- source program, and off for any nodes built by the analyzer or
467 -- expander. It indicates that a node comes from the original source.
468 -- This flag is defined in Atree.
470 -- Error_Posted (Flag3)
471 -- This flag is used to avoid multiple error messages being posted on or
472 -- referring to the same node. This flag is set if an error message
473 -- refers to a node or is posted on its source location, and has the
474 -- effect of inhibiting further messages involving this same node.
476 -- Has_Dynamic_Length_Check (Flag10-Sem)
477 -- This flag is present on all nodes. It is set to indicate that one of
478 -- the routines in unit Checks has generated a length check action which
479 -- has been inserted at the flagged node. This is used to avoid the
480 -- generation of duplicate checks.
482 -- Has_Dynamic_Range_Check (Flag12-Sem)
483 -- This flag is present on all nodes. It is set to indicate that one of
484 -- the routines in unit Checks has generated a range check action which
485 -- has been inserted at the flagged node. This is used to avoid the
486 -- generation of duplicate checks.
488 -- Has_Local_Raise (Flag8-Sem)
489 -- Present in exception handler nodes. Set if the handler can be entered
490 -- via a local raise that gets transformed to a goto statement. This will
491 -- always be set if Local_Raise_Statements is non-empty, but can also be
492 -- set as a result of generation of N_Raise_xxx nodes, or flags set in
493 -- nodes requiring generation of back end checks.
495 ------------------------------------
496 -- Description of Semantic Fields --
497 ------------------------------------
499 -- The meaning of the syntactic fields is generally clear from their names
500 -- without any further description, since the names are chosen to
501 -- correspond very closely to the syntax in the reference manual. This
502 -- section describes the usage of the semantic fields, which are used to
503 -- contain additional information determined during semantic analysis.
505 -- ABE_Is_Certain (Flag18-Sem)
506 -- This flag is set in an instantiation node or a call node is determined
507 -- to be sure to raise an ABE. This is used to trigger special handling
508 -- of such cases, particularly in the instantiation case where we avoid
509 -- instantiating the body if this flag is set. This flag is also present
510 -- in an N_Formal_Package_Declaration_Node since formal package
511 -- declarations are treated like instantiations, but it is always set to
512 -- False in this context.
514 -- Accept_Handler_Records (List5-Sem)
515 -- This field is present only in an N_Accept_Alternative node. It is used
516 -- to temporarily hold the exception handler records from an accept
517 -- statement in a selective accept. These exception handlers will
518 -- eventually be placed in the Handler_Records list of the procedure
519 -- built for this accept (see Expand_N_Selective_Accept procedure in
520 -- Exp_Ch9 for further details).
522 -- Access_Types_To_Process (Elist2-Sem)
523 -- Present in N_Freeze_Entity nodes for Incomplete or private types.
524 -- Contains the list of access types which may require specific treatment
525 -- when the nature of the type completion is completely known. An example
526 -- of such treatment is the generation of the associated_final_chain.
528 -- Actions (List1-Sem)
529 -- This field contains a sequence of actions that are associated with the
530 -- node holding the field. See the individual node types for details of
531 -- how this field is used, as well as the description of the specific use
532 -- for a particular node type.
534 -- Activation_Chain_Entity (Node3-Sem)
535 -- This is used in tree nodes representing task activators (blocks,
536 -- subprogram bodies, package declarations, and task bodies). It is
537 -- initially Empty, and then gets set to point to the entity for the
538 -- declared Activation_Chain variable when the first task is declared.
539 -- When tasks are declared in the corresponding declarative region this
540 -- entity is located by name (its name is always _Chain) and the declared
541 -- tasks are added to the chain. Note that N_Extended_Return_Statement
542 -- does not have this attribute, although it does have an activation
543 -- chain. This chain is used to store the tasks temporarily, and is not
544 -- used for activating them. On successful completion of the return
545 -- statement, the tasks are moved to the caller's chain, and the caller
548 -- Acts_As_Spec (Flag4-Sem)
549 -- A flag set in the N_Subprogram_Body node for a subprogram body which
550 -- is acting as its own spec, except in the case of a library level
551 -- subprogram, in which case the flag is set on the parent compilation
552 -- unit node instead (see further description in spec of Lib package).
553 -- ??? Above note about Lib is dubious since lib.ads does not mention
554 -- Acts_As_Spec at all.
556 -- Actual_Designated_Subtype (Node4-Sem)
557 -- Present in N_Free_Statement and N_Explicit_Dereference nodes. If gigi
558 -- needs to known the dynamic constrained subtype of the designated
559 -- object, this attribute is set to that type. This is done for
560 -- N_Free_Statements for access-to-classwide types and access to
561 -- unconstrained packed array types, and for N_Explicit_Dereference when
562 -- the designated type is an unconstrained packed array and the
563 -- dereference is the prefix of a 'Size attribute reference.
565 -- Address_Warning_Posted (Flag18-Sem)
566 -- Present in N_Attribute_Definition nodes. Set to indicate that we have
567 -- posted a warning for the address clause regarding size or alignment
568 -- issues. Used to inhibit multiple redundant messages.
570 -- Aggregate_Bounds (Node3-Sem)
571 -- Present in array N_Aggregate nodes. If the aggregate contains
572 -- component associations this field points to an N_Range node whose
573 -- bounds give the lowest and highest discrete choice values. If the
574 -- named aggregate contains a dynamic or null choice this field is empty.
575 -- If the aggregate contains positional elements this field points to an
576 -- N_Integer_Literal node giving the number of positional elements. Note
577 -- that if the aggregate contains positional elements and an other choice
578 -- the N_Integer_Literal only accounts for the number of positional
581 -- All_Others (Flag11-Sem)
582 -- Present in an N_Others_Choice node. This flag is set for an others
583 -- exception where all exceptions are to be caught, even those that are
584 -- not normally handled (in particular the tasking abort signal). This
585 -- is used for translation of the at end handler into a normal exception
588 -- Assignment_OK (Flag15-Sem)
589 -- This flag is set in a subexpression node for an object, indicating
590 -- that the associated object can be modified, even if this would not
591 -- normally be permissible (either by direct assignment, or by being
592 -- passed as an out or in-out parameter). This is used by the expander
593 -- for a number of purposes, including initialization of constants and
594 -- limited type objects (such as tasks), setting discriminant fields,
595 -- setting tag values, etc. N_Object_Declaration nodes also have this
596 -- flag defined. Here it is used to indicate that an initialization
597 -- expression is valid, even where it would normally not be allowed
598 -- (e.g. where the type involved is limited).
600 -- Associated_Node (Node4-Sem)
601 -- Present in nodes that can denote an entity: identifiers, character
602 -- literals, operator symbols, expanded names, operator nodes, and
603 -- attribute reference nodes (all these nodes have an Entity field).
604 -- This field is also present in N_Aggregate, N_Selected_Component, and
605 -- N_Extension_Aggregate nodes. This field is used in generic processing
606 -- to create links between the generic template and the generic copy.
607 -- See Sem_Ch12.Get_Associated_Node for full details. Note that this
608 -- field overlaps Entity, which is fine, since, as explained in Sem_Ch12,
609 -- the normal function of Entity is not required at the point where the
610 -- Associated_Node is set. Note also, that in generic templates, this
611 -- means that the Entity field does not necessarily point to an Entity.
612 -- Since the back end is expected to ignore generic templates, this is
615 -- At_End_Proc (Node1)
616 -- This field is present in an N_Handled_Sequence_Of_Statements node.
617 -- It contains an identifier reference for the cleanup procedure to be
618 -- called. See description of this node for further details.
620 -- Backwards_OK (Flag6-Sem)
621 -- A flag present in the N_Assignment_Statement node. It is used only
622 -- if the type being assigned is an array type, and is set if analysis
623 -- determines that it is definitely safe to do the copy backwards, i.e.
624 -- starting at the highest addressed element. This is the case if either
625 -- the operands do not overlap, or they may overlap, but if they do,
626 -- then the left operand is at a higher address than the right operand.
628 -- Note: If neither of the flags Forwards_OK or Backwards_OK is set, it
629 -- means that the front end could not determine that either direction is
630 -- definitely safe, and a runtime check may be required if the backend
631 -- cannot figure it out. If both flags Forwards_OK and Backwards_OK are
632 -- set, it means that the front end can assure no overlap of operands.
634 -- Body_To_Inline (Node3-Sem)
635 -- present in subprogram declarations. Denotes analyzed but unexpanded
636 -- body of subprogram, to be used when inlining calls. Present when the
637 -- subprogram has an Inline pragma and inlining is enabled. If the
638 -- declaration is completed by a renaming_as_body, and the renamed en-
639 -- tity is a subprogram, the Body_To_Inline is the name of that entity,
640 -- which is used directly in later calls to the original subprogram.
642 -- Body_Required (Flag13-Sem)
643 -- A flag that appears in the N_Compilation_Unit node indicating that
644 -- the corresponding unit requires a body. For the package case, this
645 -- indicates that a completion is required. In Ada 95, if the flag is not
646 -- set for the package case, then a body may not be present. In Ada 83,
647 -- if the flag is not set for the package case, then body is optional.
648 -- For a subprogram declaration, the flag is set except in the case where
649 -- a pragma Import or Interface applies, in which case no body is
650 -- permitted (in Ada 83 or Ada 95).
652 -- By_Ref (Flag5-Sem)
653 -- Present in N_Simple_Return_Statement and N_Extended_Return_Statement,
654 -- this flag is set when the returned expression is already allocated on
655 -- the secondary stack and thus the result is passed by reference rather
656 -- than copied another time.
658 -- Check_Address_Alignment (Flag11-Sem)
659 -- A flag present in N_Attribute_Definition clause for a 'Address
660 -- attribute definition. This flag is set if a dynamic check should be
661 -- generated at the freeze point for the entity to which this address
662 -- clause applies. The reason that we need this flag is that we want to
663 -- check for range checks being suppressed at the point where the
664 -- attribute definition clause is given, rather than testing this at the
667 -- Coextensions (Elist4-Sem)
668 -- Present in allocators nodes. Points to list of allocators for the
669 -- access discriminants of the allocated object.
671 -- Comes_From_Extended_Return_Statement (Flag18-Sem)
672 -- Present in N_Simple_Return_Statement nodes. True if this node was
673 -- constructed as part of the N_Extended_Return_Statement expansion.
675 -- Compile_Time_Known_Aggregate (Flag18-Sem)
676 -- Present in N_Aggregate nodes. Set for aggregates which can be fully
677 -- evaluated at compile time without raising constraint error. Such
678 -- aggregates can be passed as is to Gigi without any expansion. See
679 -- Sem_Aggr for the specific conditions under which an aggregate has this
680 -- flag set. See also the flag Static_Processing_OK.
682 -- Componentwise_Assignment (Flag14-Sem)
683 -- Present in N_Assignment_Statement nodes. Set for a record assignment
684 -- where all that needs doing is to expand it into component-by-component
685 -- assignments. This is used internally for the case of tagged types with
686 -- rep clauses, where we need to avoid recursion (we don't want to try to
687 -- generate a call to the primitive operation, because this is the case
688 -- where we are compiling the primitive operation). Note that when we are
689 -- expanding component assignments in this case, we never assign the _tag
690 -- field, but we recursively assign components of the parent type.
692 -- Condition_Actions (List3-Sem)
693 -- This field appears in else-if nodes and in the iteration scheme node
694 -- for while loops. This field is only used during semantic processing to
695 -- temporarily hold actions inserted into the tree. In the tree passed
696 -- to gigi, the condition actions field is always set to No_List. For
697 -- details on how this field is used, see the routine Insert_Actions in
698 -- package Exp_Util, and also the expansion routines for the relevant
701 -- Context_Pending (Flag16-Sem)
702 -- This field appears in Compilation_Unit nodes, to indicate that the
703 -- context of the unit is being compiled. Used to detect circularities
704 -- that are not otherwise detected by the loading mechanism. Such
705 -- circularities can occur in the presence of limited and non-limited
706 -- with_clauses that mention the same units.
708 -- Controlling_Argument (Node1-Sem)
709 -- This field is set in procedure and function call nodes if the call
710 -- is a dispatching call (it is Empty for a non-dispatching call). It
711 -- indicates the source of the call's controlling tag. For procedure
712 -- calls, the Controlling_Argument is one of the actuals. For function
713 -- that has a dispatching result, it is an entity in the context of the
714 -- call that can provide a tag, or else it is the tag of the root type
715 -- of the class. It can also specify a tag directly rather than being a
716 -- tagged object. The latter is needed by the implementations of AI-239
719 -- Conversion_OK (Flag14-Sem)
720 -- A flag set on type conversion nodes to indicate that the conversion
721 -- is to be considered as being valid, even though it is the case that
722 -- the conversion is not valid Ada. This is used for attributes Enum_Rep,
723 -- Fixed_Value and Integer_Value, for internal conversions done for
724 -- fixed-point operations, and for certain conversions for calls to
725 -- initialization procedures. If Conversion_OK is set, then Etype must be
726 -- set (the analyzer assumes that Etype has been set). For the case of
727 -- fixed-point operands, it also indicates that the conversion is to be
728 -- direct conversion of the underlying integer result, with no regard to
729 -- the small operand.
731 -- Corresponding_Body (Node5-Sem)
732 -- This field is set in subprogram declarations, package declarations,
733 -- entry declarations of protected types, and in generic units. It
734 -- points to the defining entity for the corresponding body (NOT the
735 -- node for the body itself).
737 -- Corresponding_Formal_Spec (Node3-Sem)
738 -- This field is set in subprogram renaming declarations, where it points
739 -- to the defining entity for a formal subprogram in the case where the
740 -- renaming corresponds to a generic formal subprogram association in an
741 -- instantiation. The field is Empty if the renaming does not correspond
742 -- to such a formal association.
744 -- Corresponding_Generic_Association (Node5-Sem)
745 -- This field is defined for object declarations and object renaming
746 -- declarations. It is set for the declarations within an instance that
747 -- map generic formals to their actuals. If set, the field points to
748 -- a generic_association which is the original parent of the expression
749 -- or name appearing in the declaration. This simplifies ASIS queries.
751 -- Corresponding_Integer_Value (Uint4-Sem)
752 -- This field is set in real literals of fixed-point types (it is not
753 -- used for floating-point types). It contains the integer value used
754 -- to represent the fixed-point value. It is also set on the universal
755 -- real literals used to represent bounds of fixed-point base types
756 -- and their first named subtypes.
758 -- Corresponding_Spec (Node5-Sem)
759 -- This field is set in subprogram, package, task, and protected body
760 -- nodes, where it points to the defining entity in the corresponding
761 -- spec. The attribute is also set in N_With_Clause nodes where it points
762 -- to the defining entity for the with'ed spec, and in a subprogram
763 -- renaming declaration when it is a Renaming_As_Body. The field is Empty
764 -- if there is no corresponding spec, as in the case of a subprogram body
765 -- that serves as its own spec.
767 -- Corresponding_Stub (Node3-Sem)
768 -- This field is present in an N_Subunit node. It holds the node in
769 -- the parent unit that is the stub declaration for the subunit. It is
770 -- set when analysis of the stub forces loading of the proper body. If
771 -- expansion of the proper body creates new declarative nodes, they are
772 -- inserted at the point of the corresponding_stub.
774 -- Dcheck_Function (Node5-Sem)
775 -- This field is present in an N_Variant node, It references the entity
776 -- for the discriminant checking function for the variant.
778 -- Debug_Statement (Node3)
779 -- This field is present in an N_Pragma node. It is used only for a Debug
780 -- pragma. The parameter is of the form of an expression, as required by
781 -- the pragma syntax, but is actually a procedure call. To simplify
782 -- semantic processing, the parser creates a copy of the argument
783 -- rearranged into a procedure call statement and places it in the
784 -- Debug_Statement field. Note that this field is considered syntactic
785 -- field, since it is created by the parser.
787 -- Default_Expression (Node5-Sem)
788 -- This field is Empty if there is no default expression. If there is a
789 -- simple default expression (one with no side effects), then this field
790 -- simply contains a copy of the Expression field (both point to the tree
791 -- for the default expression). Default_Expression is used for
792 -- conformance checking.
794 -- Discr_Check_Funcs_Built (Flag11-Sem)
795 -- This flag is present in N_Full_Type_Declaration nodes. It is set when
796 -- discriminant checking functions are constructed. The purpose is to
797 -- avoid attempting to set these functions more than once.
799 -- Do_Accessibility_Check (Flag13-Sem)
800 -- This flag is set on N_Parameter_Specification nodes to indicate
801 -- that an accessibility check is required for the parameter. It is
802 -- not yet decided who takes care of this check (TBD ???).
804 -- Do_Discriminant_Check (Flag13-Sem)
805 -- This flag is set on N_Selected_Component nodes to indicate that a
806 -- discriminant check is required using the discriminant check routine
807 -- associated with the selector. The actual check is generated by the
808 -- expander when processing selected components.
810 -- Do_Division_Check (Flag13-Sem)
811 -- This flag is set on a division operator (/ mod rem) to indicate
812 -- that a zero divide check is required. The actual check is dealt
813 -- with by the backend (all the front end does is to set the flag).
815 -- Do_Length_Check (Flag4-Sem)
816 -- This flag is set in an N_Assignment_Statement, N_Op_And, N_Op_Or,
817 -- N_Op_Xor, or N_Type_Conversion node to indicate that a length check
818 -- is required. It is not determined who deals with this flag (???).
820 -- Do_Overflow_Check (Flag17-Sem)
821 -- This flag is set on an operator where an overflow check is required on
822 -- the operation. The actual check is dealt with by the backend (all the
823 -- front end does is to set the flag). The other cases where this flag is
824 -- used is on a Type_Conversion node and for attribute reference nodes.
825 -- For a type conversion, it means that the conversion is from one base
826 -- type to another, and the value may not fit in the target base type.
827 -- See also the description of Do_Range_Check for this case. The only
828 -- attribute references which use this flag are Pred and Succ, where it
829 -- means that the result should be checked for going outside the base
830 -- range. Note that this flag is not set for modular types.
832 -- Do_Range_Check (Flag9-Sem)
833 -- This flag is set on an expression which appears in a context where a
834 -- range check is required. The target type is clear from the context.
835 -- The contexts in which this flag can appear are the following:
837 -- Right side of an assignment. In this case the target type is
838 -- taken from the left side of the assignment, which is referenced
839 -- by the Name of the N_Assignment_Statement node.
841 -- Subscript expressions in an indexed component. In this case the
842 -- target type is determined from the type of the array, which is
843 -- referenced by the Prefix of the N_Indexed_Component node.
845 -- Argument expression for a parameter, appearing either directly in
846 -- the Parameter_Associations list of a call or as the Expression of an
847 -- N_Parameter_Association node that appears in this list. In either
848 -- case, the check is against the type of the formal. Note that the
849 -- flag is relevant only in IN and IN OUT parameters, and will be
850 -- ignored for OUT parameters, where no check is required in the call,
851 -- and if a check is required on the return, it is generated explicitly
852 -- with a type conversion.
854 -- Initialization expression for the initial value in an object
855 -- declaration. In this case the Do_Range_Check flag is set on
856 -- the initialization expression, and the check is against the
857 -- range of the type of the object being declared.
859 -- The expression of a type conversion. In this case the range check is
860 -- against the target type of the conversion. See also the use of
861 -- Do_Overflow_Check on a type conversion. The distinction is that the
862 -- overflow check protects against a value that is outside the range of
863 -- the target base type, whereas a range check checks that the
864 -- resulting value (which is a value of the base type of the target
865 -- type), satisfies the range constraint of the target type.
867 -- Note: when a range check is required in contexts other than those
868 -- listed above (e.g. in a return statement), an additional type
869 -- conversion node is introduced to represent the required check.
871 -- Do_Storage_Check (Flag17-Sem)
872 -- This flag is set in an N_Allocator node to indicate that a storage
873 -- check is required for the allocation, or in an N_Subprogram_Body node
874 -- to indicate that a stack check is required in the subprogram prolog.
875 -- The N_Allocator case is handled by the routine that expands the call
876 -- to the runtime routine. The N_Subprogram_Body case is handled by the
877 -- backend, and all the semantics does is set the flag.
879 -- Do_Tag_Check (Flag13-Sem)
880 -- This flag is set on an N_Assignment_Statement, N_Function_Call,
881 -- N_Procedure_Call_Statement, N_Type_Conversion,
882 -- N_Simple_Return_Statement, or N_Extended_Return_Statement
883 -- node to indicate that the tag check can be suppressed. It is not
884 -- yet decided how this flag is used (TBD ???).
886 -- Elaborate_Present (Flag4-Sem)
887 -- This flag is set in the N_With_Clause node to indicate that pragma
888 -- Elaborate pragma appears for the with'ed units.
890 -- Elaborate_All_Desirable (Flag9-Sem)
891 -- This flag is set in the N_With_Clause mode to indicate that the static
892 -- elaboration processing has determined that an Elaborate_All pragma is
893 -- desirable for correct elaboration for this unit.
895 -- Elaborate_All_Present (Flag14-Sem)
896 -- This flag is set in the N_With_Clause node to indicate that a
897 -- pragma Elaborate_All pragma appears for the with'ed units.
899 -- Elaborate_Desirable (Flag11-Sem)
900 -- This flag is set in the N_With_Clause mode to indicate that the static
901 -- elaboration processing has determined that an Elaborate pragma is
902 -- desirable for correct elaboration for this unit.
904 -- Elaboration_Boolean (Node2-Sem)
905 -- This field is present in function and procedure specification nodes.
906 -- If set, it points to the entity for a Boolean flag that must be tested
907 -- for certain calls to check for access before elaboration. See body of
908 -- Sem_Elab for further details. This field is Empty if no elaboration
909 -- boolean is required.
911 -- Else_Actions (List3-Sem)
912 -- This field is present in conditional expression nodes. During code
913 -- expansion we use the Insert_Actions procedure (in Exp_Util) to insert
914 -- actions at an appropriate place in the tree to get elaborated at the
915 -- right time. For conditional expressions, we have to be sure that the
916 -- actions for the Else branch are only elaborated if the condition is
917 -- False. The Else_Actions field is used as a temporary parking place for
918 -- these actions. The final tree is always rewritten to eliminate the
919 -- need for this field, so in the tree passed to Gigi, this field is
920 -- always set to No_List.
922 -- Enclosing_Variant (Node2-Sem)
923 -- This field is present in the N_Variant node and identifies the Node_Id
924 -- corresponding to the immediately enclosing variant when the variant is
925 -- nested, and N_Empty otherwise. Set during semantic processing of the
926 -- variant part of a record type.
928 -- Entity (Node4-Sem)
929 -- Appears in all direct names (identifiers, character literals, and
930 -- operator symbols), as well as expanded names, and attributes that
931 -- denote entities, such as 'Class. Points to entity for corresponding
932 -- defining occurrence. Set after name resolution. For identifiers in a
933 -- WITH list, the corresponding defining occurrence is in a separately
934 -- compiled file, and Entity must be set by the library Load procedure.
936 -- Note: During name resolution, the value in Entity may be temporarily
937 -- incorrect (e.g. during overload resolution, Entity is initially set to
938 -- the first possible correct interpretation, and then later modified if
939 -- necessary to contain the correct value after resolution).
941 -- Note: This field overlaps Associated_Node, which is used during
942 -- generic processing (see Sem_Ch12 for details). Note also that in
943 -- generic templates, this means that the Entity field does not always
944 -- point to an Entity. Since the back end is expected to ignore generic
945 -- templates, this is harmless.
947 -- Note: This field also appears in N_Attribute_Definition_Clause nodes.
948 -- It is used only for stream attributes definition clauses. In this
949 -- case, it denotes a (possibly dummy) subprogram entity that is declared
950 -- conceptually at the point of the clause. Thus the visibility of the
951 -- attribute definition clause (in the sense of 8.3(23) as amended by
952 -- AI-195) can be checked by testing the visibility of that subprogram.
954 -- Note: Normally the Entity field of an identifier points to the entity
955 -- for the corresponding defining identifier, and hence the Chars field
956 -- of an identifier will match the Chars field of the entity. However,
957 -- there is no requirement that these match, and there are obscure cases
958 -- of generated code where they do not match.
960 -- Entity_Or_Associated_Node (Node4-Sem)
961 -- A synonym for both Entity and Associated_Node. Used by convention in
962 -- the code when referencing this field in cases where it is not known
963 -- whether the field contains an Entity or an Associated_Node.
966 -- Appears in all expression nodes, all direct names, and all entities.
967 -- Points to the entity for the related type. Set after type resolution.
968 -- Normally this is the actual subtype of the expression. However, in
969 -- certain contexts such as the right side of an assignment, subscripts,
970 -- arguments to calls, returned value in a function, initial value etc.
971 -- it is the desired target type. In the event that this is different
972 -- from the actual type, the Do_Range_Check flag will be set if a range
973 -- check is required. Note: if the Is_Overloaded flag is set, then Etype
974 -- points to an essentially arbitrary choice from the possible set of
977 -- Exception_Junk (Flag8-Sem)
978 -- This flag is set in a various nodes appearing in a statement sequence
979 -- to indicate that the corresponding node is an artifact of the
980 -- generated code for exception handling, and should be ignored when
981 -- analyzing the control flow of the relevant sequence of statements
982 -- (e.g. to check that it does not end with a bad return statement).
984 -- Exception_Label (Node5-Sem)
985 -- Appears in N_Push_xxx_Label nodes. Points to the entity of the label
986 -- to be used for transforming the corresponding exception into a goto,
987 -- or contains Empty, if this exception is not to be transformed. Also
988 -- appears in N_Exception_Handler nodes, where, if set, it indicates
989 -- that there may be a local raise for the handler, so that expansion
990 -- to allow a goto is required (and this field contains the label for
991 -- this goto). See Exp_Ch11.Expand_Local_Exception_Handlers for details.
993 -- Expansion_Delayed (Flag11-Sem)
994 -- Set on aggregates and extension aggregates that need a top-down rather
995 -- than bottom-up expansion. Typically aggregate expansion happens bottom
996 -- up. For nested aggregates the expansion is delayed until the enclosing
997 -- aggregate itself is expanded, e.g. in the context of a declaration. To
998 -- delay it we set this flag. This is done to avoid creating a temporary
999 -- for each level of a nested aggregates, and also to prevent the
1000 -- premature generation of constraint checks. This is also a requirement
1001 -- if we want to generate the proper attachment to the internal
1002 -- finalization lists (for record with controlled components). Top down
1003 -- expansion of aggregates is also used for in-place array aggregate
1004 -- assignment or initialization. When the full context is known, the
1005 -- target of the assignment or initialization is used to generate the
1006 -- left-hand side of individual assignment to each sub-component.
1008 -- First_Inlined_Subprogram (Node3-Sem)
1009 -- Present in the N_Compilation_Unit node for the main program. Points
1010 -- to a chain of entities for subprograms that are to be inlined. The
1011 -- Next_Inlined_Subprogram field of these entities is used as a link
1012 -- pointer with Empty marking the end of the list. This field is Empty
1013 -- if there are no inlined subprograms or inlining is not active.
1015 -- First_Named_Actual (Node4-Sem)
1016 -- Present in procedure call statement and function call nodes, and also
1017 -- in Intrinsic nodes. Set during semantic analysis to point to the first
1018 -- named parameter where parameters are ordered by declaration order (as
1019 -- opposed to the actual order in the call which may be different due to
1020 -- named associations). Note: this field points to the explicit actual
1021 -- parameter itself, not the N_Parameter_Association node (its parent).
1023 -- First_Real_Statement (Node2-Sem)
1024 -- Present in N_Handled_Sequence_Of_Statements node. Normally set to
1025 -- Empty. Used only when declarations are moved into the statement part
1026 -- of a construct as a result of wrapping an AT END handler that is
1027 -- required to cover the declarations. In this case, this field is used
1028 -- to remember the location in the statements list of the first real
1029 -- statement, i.e. the statement that used to be first in the statement
1030 -- list before the declarations were prepended.
1032 -- First_Subtype_Link (Node5-Sem)
1033 -- Present in N_Freeze_Entity node for an anonymous base type that is
1034 -- implicitly created by the declaration of a first subtype. It points
1035 -- to the entity for the first subtype.
1037 -- Float_Truncate (Flag11-Sem)
1038 -- A flag present in type conversion nodes. This is used for float to
1039 -- integer conversions where truncation is required rather than rounding.
1040 -- Note that Gigi does not handle type conversions from real to integer
1041 -- with rounding (see Expand_N_Type_Conversion).
1043 -- Forwards_OK (Flag5-Sem)
1044 -- A flag present in the N_Assignment_Statement node. It is used only
1045 -- if the type being assigned is an array type, and is set if analysis
1046 -- determines that it is definitely safe to do the copy forwards, i.e.
1047 -- starting at the lowest addressed element. This is the case if either
1048 -- the operands do not overlap, or they may overlap, but if they do,
1049 -- then the left operand is at a lower address than the right operand.
1051 -- Note: If neither of the flags Forwards_OK or Backwards_OK is set, it
1052 -- means that the front end could not determine that either direction is
1053 -- definitely safe, and a runtime check may be required if the backend
1054 -- cannot figure it out. If both flags Forwards_OK and Backwards_OK are
1055 -- set, it means that the front end can assure no overlap of operands.
1057 -- From_At_End (Flag4-Sem)
1058 -- This flag is set on an N_Raise_Statement node if it corresponds to
1059 -- the reraise statement generated as the last statement of an AT END
1060 -- handler when SJLJ exception handling is active. It is used to stop
1061 -- a bogus violation of restriction (No_Exception_Propagation), bogus
1062 -- because if the restriction is set, the reraise is not generated.
1064 -- From_At_Mod (Flag4-Sem)
1065 -- This flag is set on the attribute definition clause node that is
1066 -- generated by a transformation of an at mod phrase in a record
1067 -- representation clause. This is used to give slightly different (Ada 83
1068 -- compatible) semantics to such a clause, namely it is used to specify a
1069 -- minimum acceptable alignment for the base type and all subtypes. In
1070 -- Ada 95 terms, the actual alignment of the base type and all subtypes
1071 -- must be a multiple of the given value, and the representation clause
1072 -- is considered to be type specific instead of subtype specific.
1074 -- From_Default (Flag6-Sem)
1075 -- This flag is set on the subprogram renaming declaration created in an
1076 -- instance for a formal subprogram, when the formal is declared with a
1077 -- box, and there is no explicit actual. If the flag is present, the
1078 -- declaration is treated as an implicit reference to the formal in the
1081 -- Generic_Parent (Node5-Sem)
1082 -- Generic_Parent is defined on declaration nodes that are instances. The
1083 -- value of Generic_Parent is the generic entity from which the instance
1084 -- is obtained. Generic_Parent is also defined for the renaming
1085 -- declarations and object declarations created for the actuals in an
1086 -- instantiation. The generic parent of such a declaration is the
1087 -- corresponding generic association in the Instantiation node.
1089 -- Generic_Parent_Type (Node4-Sem)
1090 -- Generic_Parent_Type is defined on Subtype_Declaration nodes for the
1091 -- actuals of formal private and derived types. Within the instance, the
1092 -- operations on the actual are those inherited from the parent. For a
1093 -- formal private type, the parent type is the generic type itself. The
1094 -- Generic_Parent_Type is also used in an instance to determine whether a
1095 -- private operation overrides an inherited one.
1097 -- Handler_List_Entry (Node2-Sem)
1098 -- This field is present in N_Object_Declaration nodes. It is set only
1099 -- for the Handler_Record entry generated for an exception in zero cost
1100 -- exception handling mode. It references the corresponding item in the
1101 -- handler list, and is used to delete this entry if the corresponding
1102 -- handler is deleted during optimization. For further details on why
1103 -- this is required, see Exp_Ch11.Remove_Handler_Entries.
1105 -- Has_No_Elaboration_Code (Flag17-Sem)
1106 -- A flag that appears in the N_Compilation_Unit node to indicate whether
1107 -- or not elaboration code is present for this unit. It is initially set
1108 -- true for subprogram specs and bodies and for all generic units and
1109 -- false for non-generic package specs and bodies. Gigi may set the flag
1110 -- in the non-generic package case if it determines that no elaboration
1111 -- code is generated. Note that this flag is not related to the
1112 -- Is_Preelaborated status, there can be preelaborated packages that
1113 -- generate elaboration code, and non-preelaborated packages which do
1114 -- not generate elaboration code.
1116 -- Has_Priority_Pragma (Flag6-Sem)
1117 -- A flag present in N_Subprogram_Body, N_Task_Definition and
1118 -- N_Protected_Definition nodes to flag the presence of either a Priority
1119 -- or Interrupt_Priority pragma in the declaration sequence (public or
1120 -- private in the task and protected cases)
1122 -- Has_Private_View (Flag11-Sem)
1123 -- A flag present in generic nodes that have an entity, to indicate that
1124 -- the node has a private type. Used to exchange private and full
1125 -- declarations if the visibility at instantiation is different from the
1126 -- visibility at generic definition.
1128 -- Has_Relative_Deadline_Pragma (Flag9-Sem)
1129 -- A flag present in N_Subprogram_Body and N_Task_Definition nodes to
1130 -- flag the presence of a pragma Relative_Deadline.
1132 -- Has_Self_Reference (Flag13-Sem)
1133 -- Present in N_Aggregate and N_Extension_Aggregate. Indicates that one
1134 -- of the expressions contains an access attribute reference to the
1135 -- enclosing type. Such a self-reference can only appear in default-
1136 -- initialized aggregate for a record type.
1138 -- Has_Storage_Size_Pragma (Flag5-Sem)
1139 -- A flag present in an N_Task_Definition node to flag the presence of a
1140 -- Storage_Size pragma.
1142 -- Has_Task_Info_Pragma (Flag7-Sem)
1143 -- A flag present in an N_Task_Definition node to flag the presence of a
1144 -- Task_Info pragma. Used to detect duplicate pragmas.
1146 -- Has_Task_Name_Pragma (Flag8-Sem)
1147 -- A flag present in N_Task_Definition nodes to flag the presence of a
1148 -- Task_Name pragma in the declaration sequence for the task.
1150 -- Has_Wide_Character (Flag11-Sem)
1151 -- Present in string literals, set if any wide character (i.e. character
1152 -- code outside the Character range) appears in the string.
1154 -- Hidden_By_Use_Clause (Elist4-Sem)
1155 -- An entity list present in use clauses that appear within
1156 -- instantiations. For the resolution of local entities, entities
1157 -- introduced by these use clauses have priority over global ones, and
1158 -- outer entities must be explicitly hidden/restored on exit.
1160 -- Implicit_With (Flag16-Sem)
1161 -- This flag is set in the N_With_Clause node that is implicitly
1162 -- generated for runtime units that are loaded by the expander, and also
1163 -- for package System, if it is loaded implicitly by a use of the
1164 -- 'Address or 'Tag attribute. ???There are other implicit with clauses
1167 -- Includes_Infinities (Flag11-Sem)
1168 -- This flag is present in N_Range nodes. It is set for the range of
1169 -- unconstrained float types defined in Standard, which include not only
1170 -- the given range of values, but also legitimately can include infinite
1171 -- values. This flag is false for any float type for which an explicit
1172 -- range is given by the programmer, even if that range is identical to
1173 -- the range for Float.
1175 -- Instance_Spec (Node5-Sem)
1176 -- This field is present in generic instantiation nodes, and also in
1177 -- formal package declaration nodes (formal package declarations are
1178 -- treated in a manner very similar to package instantiations). It points
1179 -- to the node for the spec of the instance, inserted as part of the
1180 -- semantic processing for instantiations in Sem_Ch12.
1182 -- Is_Asynchronous_Call_Block (Flag7-Sem)
1183 -- A flag set in a Block_Statement node to indicate that it is the
1184 -- expansion of an asynchronous entry call. Such a block needs cleanup
1185 -- handler to assure that the call is cancelled.
1187 -- Is_Component_Left_Opnd (Flag13-Sem)
1188 -- Is_Component_Right_Opnd (Flag14-Sem)
1189 -- Present in concatenation nodes, to indicate that the corresponding
1190 -- operand is of the component type of the result. Used in resolving
1191 -- concatenation nodes in instances.
1193 -- Is_Controlling_Actual (Flag16-Sem)
1194 -- This flag is set on in an expression that is a controlling argument in
1195 -- a dispatching call. It is off in all other cases. See Sem_Disp for
1196 -- details of its use.
1198 -- Is_Dynamic_Coextension (Flag18-Sem)
1199 -- Present in allocator nodes, to indicate that this is an allocator
1200 -- for an access discriminant of a dynamically allocated object. The
1201 -- coextension must be deallocated and finalized at the same time as
1202 -- the enclosing object.
1204 -- Is_Entry_Barrier_Function (Flag8-Sem)
1205 -- This flag is set in an N_Subprogram_Body node which is the expansion
1206 -- of an entry barrier from a protected entry body. It is used for the
1207 -- circuitry checking for incorrect use of Current_Task.
1209 -- Is_Expanded_Build_In_Place_Call (Flag11-Sem)
1210 -- This flag is set in an N_Function_Call node to indicate that the extra
1211 -- actuals to support a build-in-place style of call have been added to
1214 -- Is_In_Discriminant_Check (Flag11-Sem)
1215 -- This flag is present in a selected component, and is used to indicate
1216 -- that the reference occurs within a discriminant check. The
1217 -- significance is that optimizations based on assuming that the
1218 -- discriminant check has a correct value cannot be performed in this
1219 -- case (or the discriminant check may be optimized away!)
1221 -- Is_Machine_Number (Flag11-Sem)
1222 -- This flag is set in an N_Real_Literal node to indicate that the value
1223 -- is a machine number. This avoids some unnecessary cases of converting
1224 -- real literals to machine numbers.
1226 -- Is_Null_Loop (Flag16-Sem)
1227 -- This flag is set in an N_Loop_Statement node if the corresponding loop
1228 -- can be determined to be null at compile time. This is used to remove
1229 -- the loop entirely at expansion time.
1231 -- Is_Overloaded (Flag5-Sem)
1232 -- A flag present in all expression nodes. Used temporarily during
1233 -- overloading determination. The setting of this flag is not relevant
1234 -- once overloading analysis is complete.
1236 -- Is_Power_Of_2_For_Shift (Flag13-Sem)
1237 -- A flag present only in N_Op_Expon nodes. It is set when the
1238 -- exponentiation is of the form 2 ** N, where the type of N is an
1239 -- unsigned integral subtype whose size does not exceed the size of
1240 -- Standard_Integer (i.e. a type that can be safely converted to
1241 -- Natural), and the exponentiation appears as the right operand of an
1242 -- integer multiplication or an integer division where the dividend is
1243 -- unsigned. It is also required that overflow checking is off for both
1244 -- the exponentiation and the multiply/divide node. If this set of
1245 -- conditions holds, and the flag is set, then the division or
1246 -- multiplication can be (and is) converted to a shift.
1248 -- Is_Protected_Subprogram_Body (Flag7-Sem)
1249 -- A flag set in a Subprogram_Body block to indicate that it is the
1250 -- implementation of a protected subprogram. Such a body needs cleanup
1251 -- handler to make sure that the associated protected object is unlocked
1252 -- when the subprogram completes.
1254 -- Is_Static_Coextension (Flag14-Sem)
1255 -- Present in N_Allocator nodes. Set if the allocator is a coextension
1256 -- of an object allocated on the stack rather than the heap.
1258 -- Is_Static_Expression (Flag6-Sem)
1259 -- Indicates that an expression is a static expression (RM 4.9). See spec
1260 -- of package Sem_Eval for full details on the use of this flag.
1262 -- Is_Subprogram_Descriptor (Flag16-Sem)
1263 -- Present in N_Object_Declaration, and set only for the object
1264 -- declaration generated for a subprogram descriptor in fast exception
1265 -- mode. See Exp_Ch11 for details of use.
1267 -- Is_Task_Allocation_Block (Flag6-Sem)
1268 -- A flag set in a Block_Statement node to indicate that it is the
1269 -- expansion of a task allocator, or the allocator of an object
1270 -- containing tasks. Such a block requires a cleanup handler to call
1271 -- Expunge_Unactivated_Tasks to complete any tasks that have been
1272 -- allocated but not activated when the allocator completes abnormally.
1274 -- Is_Task_Master (Flag5-Sem)
1275 -- A flag set in a Subprogram_Body, Block_Statement or Task_Body node to
1276 -- indicate that the construct is a task master (i.e. has declared tasks
1277 -- or declares an access to a task type).
1279 -- Itype (Node1-Sem)
1280 -- Used in N_Itype_Reference node to reference an itype for which it is
1281 -- important to ensure that it is defined. See description of this node
1282 -- for further details.
1284 -- Kill_Range_Check (Flag11-Sem)
1285 -- Used in an N_Unchecked_Type_Conversion node to indicate that the
1286 -- result should not be subjected to range checks. This is used for the
1287 -- implementation of Normalize_Scalars.
1289 -- Label_Construct (Node2-Sem)
1290 -- Used in an N_Implicit_Label_Declaration node. Refers to an N_Label,
1291 -- N_Block_Statement or N_Loop_Statement node to which the label
1292 -- declaration applies. This is not currently used in the compiler
1293 -- itself, but it is useful in the implementation of ASIS queries.
1294 -- This field is left empty for the special labels generated as part
1295 -- of expanding raise statements with a local exception handler.
1297 -- Library_Unit (Node4-Sem)
1298 -- In a stub node, Library_Unit points to the compilation unit node of
1299 -- the corresponding subunit.
1301 -- In a with clause node, Library_Unit points to the spec of the with'ed
1304 -- In a compilation unit node, the usage depends on the unit type:
1306 -- For a library unit body, Library_Unit points to the compilation unit
1307 -- node of the corresponding spec, unless it's a subprogram body with
1308 -- Acts_As_Spec set, in which case it points to itself.
1310 -- For a spec, Library_Unit points to the compilation unit node of the
1311 -- corresponding body, if present. The body will be present if the spec
1312 -- is or contains generics that we needed to instantiate. Similarly, the
1313 -- body will be present if we needed it for inlining purposes. Thus, if
1314 -- we have a spec/body pair, both of which are present, they point to
1315 -- each other via Library_Unit.
1317 -- For a subunit, Library_Unit points to the compilation unit node of
1320 -- Note that this field is not used to hold the parent pointer for child
1321 -- unit (which might in any case need to use it for some other purpose as
1322 -- described above). Instead for a child unit, implicit with's are
1323 -- generated for all parents.
1325 -- Local_Raise_Statements (Elist1)
1326 -- This field is present in exception handler nodes. It is set to
1327 -- No_Elist in the normal case. If there is at least one raise statement
1328 -- which can potentially be handled as a local raise, then this field
1329 -- points to a list of raise nodes, which are calls to a routine to raise
1330 -- an exception. These are raise nodes which can be optimized into gotos
1331 -- if the handler turns out to meet the conditions which permit this
1332 -- transformation. Note that this does NOT include instances of the
1333 -- N_Raise_xxx_Error nodes since the transformation of these nodes is
1334 -- handled by the back end (using the N_Push/N_Pop mechanism).
1336 -- Loop_Actions (List2-Sem)
1337 -- A list present in Component_Association nodes in array aggregates.
1338 -- Used to collect actions that must be executed within the loop because
1339 -- they may need to be evaluated anew each time through.
1341 -- Limited_View_Installed (Flag18-Sem)
1342 -- Present in With_Clauses and in package specifications. If set on
1343 -- with_clause, it indicates that this clause has created the current
1344 -- limited view of the designated package. On a package specification, it
1345 -- indicates that the limited view has already been created because the
1346 -- package is mentioned in a limited_with_clause in the closure of the
1347 -- unit being compiled.
1349 -- Local_Raise_Not_OK (Flag7-Sem)
1350 -- Present in N_Exception_Handler nodes. Set if the handler contains
1351 -- a construct (reraise statement, or call to subprogram in package
1352 -- GNAT.Current_Exception) that makes the handler unsuitable as a target
1353 -- for a local raise (one that could otherwise be converted to a goto).
1355 -- Must_Be_Byte_Aligned (Flag14-Sem)
1356 -- This flag is present in N_Attribute_Reference nodes. It can be set
1357 -- only for the Address and Unrestricted_Access attributes. If set it
1358 -- means that the object for which the address/access is given must be on
1359 -- a byte (more accurately a storage unit) boundary. If necessary, a copy
1360 -- of the object is to be made before taking the address (this copy is in
1361 -- the current scope on the stack frame). This is used for certain cases
1362 -- of code generated by the expander that passes parameters by address.
1364 -- The reason the copy is not made by the front end is that the back end
1365 -- has more information about type layout and may be able to (but is not
1366 -- guaranteed to) prevent making unnecessary copies.
1368 -- Must_Not_Freeze (Flag8-Sem)
1369 -- A flag present in all expression nodes. Normally expressions cause
1370 -- freezing as described in the RM. If this flag is set, then this is
1371 -- inhibited. This is used by the analyzer and expander to label nodes
1372 -- that are created by semantic analysis or expansion and which must not
1373 -- cause freezing even though they normally would. This flag is also
1374 -- present in an N_Subtype_Indication node, since we also use these in
1375 -- calls to Freeze_Expression.
1377 -- Next_Entity (Node2-Sem)
1378 -- Present in defining identifiers, defining character literals and
1379 -- defining operator symbols (i.e. in all entities). The entities of a
1380 -- scope are chained, and this field is used as the forward pointer for
1381 -- this list. See Einfo for further details.
1383 -- Next_Implicit_With (Node3-Sem)
1384 -- Present in N_With_Clause. Part of a chain of with_clauses generated
1385 -- in rtsfind to indicate implicit dependencies on predefined units. Used
1386 -- to prevent multiple with_clauses for the same unit in a given context.
1387 -- A postorder traversal of the tree whose nodes are units and whose
1388 -- links are with_clauses defines the order in which Inspector must
1389 -- examine a compiled unit and its full context. This ordering ensures
1390 -- that any subprogram call is examined after the subprogram declartion
1393 -- Next_Named_Actual (Node4-Sem)
1394 -- Present in parameter association node. Set during semantic analysis to
1395 -- point to the next named parameter, where parameters are ordered by
1396 -- declaration order (as opposed to the actual order in the call, which
1397 -- may be different due to named associations). Not that this field
1398 -- points to the explicit actual parameter itself, not to the
1399 -- N_Parameter_Association node (its parent).
1401 -- Next_Pragma (Node1-Sem)
1402 -- Present in N_Pragma nodes. Used to create a linked list of pragma
1403 -- nodes. Currently used for two purposes:
1405 -- Create a list of linked Check_Policy pragmas. The head of this list
1406 -- is stored in Opt.Check_Policy_List (which has further details).
1408 -- Used by processing for Pre/Postcondition pragmas to store a list of
1409 -- pragmas associated with the spec of a subprogram (see Sem_Prag for
1412 -- Next_Rep_Item (Node5-Sem)
1413 -- Present in pragma nodes and attribute definition nodes. Used to link
1414 -- representation items that apply to an entity. See description of
1415 -- First_Rep_Item field in Einfo for full details.
1417 -- Next_Use_Clause (Node3-Sem)
1418 -- While use clauses are active during semantic processing, they are
1419 -- chained from the scope stack entry, using Next_Use_Clause as a link
1420 -- pointer, with Empty marking the end of the list. The head pointer is
1421 -- in the scope stack entry (First_Use_Clause). At the end of semantic
1422 -- processing (i.e. when Gigi sees the tree, the contents of this field
1423 -- is undefined and should not be read).
1425 -- No_Ctrl_Actions (Flag7-Sem)
1426 -- Present in N_Assignment_Statement to indicate that no finalize nor
1427 -- adjust should take place on this assignment even though the rhs is
1428 -- controlled. This is used in init procs and aggregate expansions where
1429 -- the generated assignments are more initialisations than real
1432 -- No_Elaboration_Check (Flag14-Sem)
1433 -- Present in N_Function_Call and N_Procedure_Call_Statement. Indicates
1434 -- that no elaboration check is needed on the call, because it appears in
1435 -- the context of a local Suppress pragma. This is used on calls within
1436 -- task bodies, where the actual elaboration checks are applied after
1437 -- analysis, when the local scope stack is not present.
1439 -- No_Entities_Ref_In_Spec (Flag8-Sem)
1440 -- Present in N_With_Clause nodes. Set if the with clause is on the
1441 -- package or subprogram spec where the main unit is the corresponding
1442 -- body, and no entities of the with'ed unit are referenced by the spec
1443 -- (an entity may still be referenced in the body, so this flag is used
1444 -- to generate the proper message (see Sem_Util.Check_Unused_Withs for
1447 -- No_Initialization (Flag13-Sem)
1448 -- Present in N_Object_Declaration and N_Allocator to indicate that the
1449 -- object must not be initialized (by Initialize or call to an init
1450 -- proc). This is needed for controlled aggregates. When the Object
1451 -- declaration has an expression, this flag means that this expression
1452 -- should not be taken into account (needed for in place initialization
1453 -- with aggregates).
1455 -- No_Truncation (Flag17-Sem)
1456 -- Present in N_Unchecked_Type_Conversion node. This flag has an effect
1457 -- only if the RM_Size of the source is greater than the RM_Size of the
1458 -- target for scalar operands. Normally in such a case we truncate some
1459 -- higher order bits of the source, and then sign/zero extend the result
1460 -- to form the output value. But if this flag is set, then we do not do
1461 -- any truncation, so for example, if an 8 bit input is converted to 5
1462 -- bit result which is in fact stored in 8 bits, then the high order
1463 -- three bits of the target result will be copied from the source. This
1464 -- is used for properly setting out of range values for use by pragmas
1465 -- Initialize_Scalars and Normalize_Scalars.
1467 -- Original_Discriminant (Node2-Sem)
1468 -- Present in identifiers. Used in references to discriminants that
1469 -- appear in generic units. Because the names of the discriminants may be
1470 -- different in an instance, we use this field to recover the position of
1471 -- the discriminant in the original type, and replace it with the
1472 -- discriminant at the same position in the instantiated type.
1474 -- Original_Entity (Node2-Sem)
1475 -- Present in numeric literals. Used to denote the named number that has
1476 -- been constant-folded into the given literal. If literal is from
1477 -- source, or the result of some other constant-folding operation, then
1478 -- Original_Entity is empty. This field is needed to handle properly
1479 -- named numbers in generic units, where the Associated_Node field
1480 -- interferes with the Entity field, making it impossible to preserve the
1481 -- original entity at the point of instantiation (ASIS problem).
1483 -- Others_Discrete_Choices (List1-Sem)
1484 -- When a case statement or variant is analyzed, the semantic checks
1485 -- determine the actual list of choices that correspond to an others
1486 -- choice. This list is materialized for later use by the expander and
1487 -- the Others_Discrete_Choices field of an N_Others_Choice node points to
1488 -- this materialized list of choices, which is in standard format for a
1489 -- list of discrete choices, except that of course it cannot contain an
1490 -- N_Others_Choice entry.
1492 -- Parameter_List_Truncated (Flag17-Sem)
1493 -- Present in N_Function_Call and N_Procedure_Call_Statement nodes. Set
1494 -- (for OpenVMS ports of GNAT only) if the parameter list is truncated as
1495 -- a result of a First_Optional_Parameter specification in an
1496 -- Import_Function, Import_Procedure, or Import_Valued_Procedure pragma.
1497 -- The truncation is done by the expander by removing trailing parameters
1498 -- from the argument list, in accordance with the set of rules allowing
1499 -- such parameter removal. In particular, parameters can be removed
1500 -- working from the end of the parameter list backwards up to and
1501 -- including the entry designated by First_Optional_Parameter in the
1502 -- Import pragma. Parameters can be removed if they are implicit and the
1503 -- default value is a known-at-compile-time value, including the use of
1504 -- the Null_Parameter attribute, or if explicit parameter values are
1505 -- present that match the corresponding defaults.
1507 -- Parent_Spec (Node4-Sem)
1508 -- For a library unit that is a child unit spec (package or subprogram
1509 -- declaration, generic declaration or instantiation, or library level
1510 -- rename, this field points to the compilation unit node for the parent
1511 -- package specification. This field is Empty for library bodies (the
1512 -- parent spec in this case can be found from the corresponding spec).
1514 -- PPC_Enabled (Flag5-Sem)
1515 -- Present in N_Pragma nodes. This flag is relevant only for precondition
1516 -- and postcondition nodes. It is true if the check corresponding to the
1517 -- pragma type is enabled at the point where the pragma appears.
1519 -- Present_Expr (Uint3-Sem)
1520 -- Present in an N_Variant node. This has a meaningful value only after
1521 -- Gigi has back annotated the tree with representation information. At
1522 -- this point, it contains a reference to a gcc expression that depends
1523 -- on the values of one or more discriminants. Give a set of discriminant
1524 -- values, this expression evaluates to False (zero) if variant is not
1525 -- present, and True (non-zero) if it is present. See unit Repinfo for
1526 -- further details on gigi back annotation. This field is used during
1527 -- ASIS processing (data decomposition annex) to determine if a field is
1530 -- Print_In_Hex (Flag13-Sem)
1531 -- Set on an N_Integer_Literal node to indicate that the value should be
1532 -- printed in hexadecimal in the sprint listing. Has no effect on
1533 -- legality or semantics of program, only on the displayed output. This
1534 -- is used to clarify output from the packed array cases.
1536 -- Procedure_To_Call (Node2-Sem)
1537 -- Present in N_Allocator, N_Free_Statement, N_Simple_Return_Statement,
1538 -- and N_Extended_Return_Statement nodes. References the entity for the
1539 -- declaration of the procedure to be called to accomplish the required
1540 -- operation (i.e. for the Allocate procedure in the case of N_Allocator
1541 -- and N_Simple_Return_Statement and N_Extended_Return_Statement (for
1542 -- allocating the return value), and for the Deallocate procedure in the
1543 -- case of N_Free_Statement.
1545 -- Raises_Constraint_Error (Flag7-Sem)
1546 -- Set on an expression whose evaluation will definitely fail constraint
1547 -- error check. In the case of static expressions, this flag must be set
1548 -- accurately (and if it is set, the expression is typically illegal
1549 -- unless it appears as a non-elaborated branch of a short-circuit form).
1550 -- For a non-static expression, this flag may be set whenever an
1551 -- expression (e.g. an aggregate) is known to raise constraint error. If
1552 -- set, the expression definitely will raise CE if elaborated at runtime.
1553 -- If not set, the expression may or may not raise CE. In other words, on
1554 -- static expressions, the flag is set accurately, on non-static
1555 -- expressions it is set conservatively.
1557 -- Redundant_Use (Flag13-Sem)
1558 -- Present in nodes that can appear as an operand in a use clause or use
1559 -- type clause (identifiers, expanded names, attribute references). Set
1560 -- to indicate that a use is redundant (and therefore need not be undone
1563 -- Renaming_Exception (Node2-Sem)
1564 -- Present in N_Exception_Declaration node. Used to point back to the
1565 -- exception renaming for an exception declared within a subprogram.
1566 -- What happens is that an exception declared in a subprogram is moved
1567 -- to the library level with a unique name, and the original exception
1568 -- becomes a renaming. This link from the library level exception to the
1569 -- renaming declaration allows registering of the proper exception name.
1571 -- Return_Statement_Entity (Node5-Sem)
1572 -- Present in N_Simple_Return_Statement and N_Extended_Return_Statement.
1573 -- Points to an E_Return_Statement representing the return statement.
1575 -- Return_Object_Declarations (List3)
1576 -- Present in N_Extended_Return_Statement.
1577 -- Points to a list initially containing a single
1578 -- N_Object_Declaration representing the return object.
1579 -- We use a list (instead of just a pointer to the object decl)
1580 -- because Analyze wants to insert extra actions on this list.
1582 -- Rounded_Result (Flag18-Sem)
1583 -- Present in N_Type_Conversion, N_Op_Divide and N_Op_Multiply nodes.
1584 -- Used in the fixed-point cases to indicate that the result must be
1585 -- rounded as a result of the use of the 'Round attribute. Also used for
1586 -- integer N_Op_Divide nodes to indicate that the result should be
1587 -- rounded to the nearest integer (breaking ties away from zero), rather
1588 -- than truncated towards zero as usual. These rounded integer operations
1589 -- are the result of expansion of rounded fixed-point divide, conversion
1590 -- and multiplication operations.
1592 -- SCIL_Entity (Node4-Sem)
1593 -- Present in SCIL nodes. Used to reference the tagged type associated
1594 -- with the SCIL node.
1596 -- SCIL_Related_Node (Node1-Sem)
1597 -- Present in SCIL nodes. Used to reference a tree node that requires
1598 -- special processing in the CodePeer backend.
1600 -- SCIL_Controlling_Tag (Node5-Sem)
1601 -- Present in N_SCIL_Dispatching_Call nodes. Used to reference the
1602 -- controlling tag of a dispatching call.
1604 -- SCIL_Target_Prim (Node2-Sem)
1605 -- Present in N_SCIL_Dispatching_Call nodes. Used to reference the tagged
1606 -- type primitive associated with the SCIL node.
1608 -- Scope (Node3-Sem)
1609 -- Present in defining identifiers, defining character literals and
1610 -- defining operator symbols (i.e. in all entities). The entities of a
1611 -- scope all use this field to reference the corresponding scope entity.
1612 -- See Einfo for further details.
1614 -- Shift_Count_OK (Flag4-Sem)
1615 -- A flag present in shift nodes to indicate that the shift count is
1616 -- known to be in range, i.e. is in the range from zero to word length
1617 -- minus one. If this flag is not set, then the shift count may be
1618 -- outside this range, i.e. larger than the word length, and the code
1619 -- must ensure that such shift counts give the appropriate result.
1621 -- Source_Type (Node1-Sem)
1622 -- Used in an N_Validate_Unchecked_Conversion node to point to the
1623 -- source type entity for the unchecked conversion instantiation
1624 -- which gigi must do size validation for.
1626 -- Static_Processing_OK (Flag4-Sem)
1627 -- Present in N_Aggregate nodes. When the Compile_Time_Known_Aggregate
1628 -- flag is set, the full value of the aggregate can be determined at
1629 -- compile time and the aggregate can be passed as is to the back-end.
1630 -- In this event it is irrelevant whether this flag is set or not.
1631 -- However, if the flag Compile_Time_Known_Aggregate is not set but
1632 -- Static_Processing_OK is set, the aggregate can (but need not) be
1633 -- converted into a compile time known aggregate by the expander. See
1634 -- Sem_Aggr for the specific conditions under which an aggregate has its
1635 -- Static_Processing_OK flag set.
1637 -- Storage_Pool (Node1-Sem)
1638 -- Present in N_Allocator, N_Free_Statement, N_Simple_Return_Statement,
1639 -- and N_Extended_Return_Statement nodes. References the entity for the
1640 -- storage pool to be used for the allocate or free call or for the
1641 -- allocation of the returned value from function. Empty indicates that
1642 -- the global default pool is to be used. Note that in the case
1643 -- of a return statement, this field is set only if the function returns
1644 -- value of a type whose size is not known at compile time on the
1647 -- Suppress_Loop_Warnings (Flag17-Sem)
1648 -- Used in N_Loop_Statement node to indicate that warnings within the
1649 -- body of the loop should be suppressed. This is set when the range
1650 -- of a FOR loop is known to be null, or is probably null (loop would
1651 -- only execute if invalid values are present).
1653 -- Target_Type (Node2-Sem)
1654 -- Used in an N_Validate_Unchecked_Conversion node to point to the target
1655 -- type entity for the unchecked conversion instantiation which gigi must
1656 -- do size validation for.
1658 -- Then_Actions (List3-Sem)
1659 -- This field is present in conditional expression nodes. During code
1660 -- expansion we use the Insert_Actions procedure (in Exp_Util) to insert
1661 -- actions at an appropriate place in the tree to get elaborated at the
1662 -- right time. For conditional expressions, we have to be sure that the
1663 -- actions for the Then branch are only elaborated if the condition is
1664 -- True. The Then_Actions field is used as a temporary parking place for
1665 -- these actions. The final tree is always rewritten to eliminate the
1666 -- need for this field, so in the tree passed to Gigi, this field is
1667 -- always set to No_List.
1669 -- Treat_Fixed_As_Integer (Flag14-Sem)
1670 -- This flag appears in operator nodes for divide, multiply, mod and rem
1671 -- on fixed-point operands. It indicates that the operands are to be
1672 -- treated as integer values, ignoring small values. This flag is only
1673 -- set as a result of expansion of fixed-point operations. Typically a
1674 -- fixed-point multiplication in the source generates subsidiary
1675 -- multiplication and division operations that work with the underlying
1676 -- integer values and have this flag set. Note that this flag is not
1677 -- needed on other arithmetic operations (add, neg, subtract etc.) since
1678 -- in these cases it is always the case that fixed is treated as integer.
1679 -- The Etype field MUST be set if this flag is set. The analyzer knows to
1680 -- leave such nodes alone, and whoever makes them must set the correct
1683 -- TSS_Elist (Elist3-Sem)
1684 -- Present in N_Freeze_Entity nodes. Holds an element list containing
1685 -- entries for each TSS (type support subprogram) associated with the
1686 -- frozen type. The elements of the list are the entities for the
1687 -- subprograms (see package Exp_TSS for further details). Set to No_Elist
1688 -- if there are no type support subprograms for the type or if the freeze
1689 -- node is not for a type.
1691 -- Unreferenced_In_Spec (Flag7-Sem)
1692 -- Present in N_With_Clause nodes. Set if the with clause is on the
1693 -- package or subprogram spec where the main unit is the corresponding
1694 -- body, and is not referenced by the spec (it may still be referenced by
1695 -- the body, so this flag is used to generate the proper message (see
1696 -- Sem_Util.Check_Unused_Withs for details)
1698 -- Was_Originally_Stub (Flag13-Sem)
1699 -- This flag is set in the node for a proper body that replaces stub.
1700 -- During the analysis procedure, stubs in some situations get rewritten
1701 -- by the corresponding bodies, and we set this flag to remember that
1702 -- this happened. Note that it is not good enough to rely on the use of
1703 -- Original_Node here because of the case of nested instantiations where
1704 -- the substituted node can be copied.
1706 -- Zero_Cost_Handling (Flag5-Sem)
1707 -- This flag is set in all handled sequence of statement and exception
1708 -- handler nodes if exceptions are to be handled using the zero-cost
1709 -- mechanism (see Ada.Exceptions and System.Exceptions in files
1710 -- a-except.ads/adb and s-except.ads for full details). What gigi needs
1711 -- to do for such a handler is simply to put the code in the handler
1712 -- somewhere. The front end has generated all necessary labels.
1714 --------------------------------------------------
1715 -- Note on Use of End_Label and End_Span Fields --
1716 --------------------------------------------------
1718 -- Several constructs have end lines:
1720 -- Loop Statement end loop [loop_IDENTIFIER];
1721 -- Package Specification end [[PARENT_UNIT_NAME .] IDENTIFIER]
1722 -- Task Definition end [task_IDENTIFIER]
1723 -- Protected Definition end [protected_IDENTIFIER]
1724 -- Protected Body end [protected_IDENTIFIER]
1726 -- Block Statement end [block_IDENTIFIER];
1727 -- Subprogram Body end [DESIGNATOR];
1728 -- Package Body end [[PARENT_UNIT_NAME .] IDENTIFIER];
1729 -- Task Body end [task_IDENTIFIER];
1730 -- Accept Statement end [entry_IDENTIFIER]];
1731 -- Entry Body end [entry_IDENTIFIER];
1733 -- If Statement end if;
1734 -- Case Statement end case;
1736 -- Record Definition end record;
1737 -- Enumeration Definition );
1739 -- The End_Label and End_Span fields are used to mark the locations of
1740 -- these lines, and also keep track of the label in the case where a label
1743 -- For the first group above, the End_Label field of the corresponding node
1744 -- is used to point to the label identifier. In the case where there is no
1745 -- label in the source, the parser supplies a dummy identifier (with
1746 -- Comes_From_Source set to False), and the Sloc of this dummy identifier
1747 -- marks the location of the token following the END token.
1749 -- For the second group, the use of End_Label is similar, but the End_Label
1750 -- is found in the N_Handled_Sequence_Of_Statements node. This is done
1751 -- simply because in some cases there is no room in the parent node.
1753 -- For the third group, there is never any label, and instead of using
1754 -- End_Label, we use the End_Span field which gives the location of the
1755 -- token following END, relative to the starting Sloc of the construct,
1756 -- i.e. add Sloc (Node) + End_Span (Node) to get the Sloc of the IF or CASE
1757 -- following the End_Label.
1759 -- The record definition case is handled specially, we treat it as though
1760 -- it required an optional label which is never present, and so the parser
1761 -- always builds a dummy identifier with Comes From Source set False. The
1762 -- reason we do this, rather than using End_Span in this case, is that we
1763 -- want to generate a cross-ref entry for the end of a record, since it
1764 -- represents a scope for name declaration purposes.
1766 -- The enumeration definition case is handled in an exactly similar manner,
1767 -- building a dummy identifier to get a cross-reference.
1769 -- Note: the reason we store the difference as a Uint, instead of storing
1770 -- the Source_Ptr value directly, is that Source_Ptr values cannot be
1771 -- distinguished from other types of values, and we count on all general
1772 -- use fields being self describing. To make things easier for clients,
1773 -- note that we provide function End_Location, and procedure
1774 -- Set_End_Location to allow access to the logical value (which is the
1775 -- Source_Ptr value for the end token).
1777 ---------------------
1778 -- Syntactic Nodes --
1779 ---------------------
1781 ---------------------
1782 -- 2.3 Identifier --
1783 ---------------------
1785 -- IDENTIFIER ::= IDENTIFIER_LETTER {[UNDERLINE] LETTER_OR_DIGIT}
1786 -- LETTER_OR_DIGIT ::= IDENTIFIER_LETTER | DIGIT
1788 -- An IDENTIFIER shall not be a reserved word
1790 -- In the Ada grammar identifiers are the bottom level tokens which have
1791 -- very few semantics. Actual program identifiers are direct names. If
1792 -- we were being 100% honest with the grammar, then we would have a node
1793 -- called N_Direct_Name which would point to an identifier. However,
1794 -- that's too many extra nodes, so we just use the N_Identifier node
1795 -- directly as a direct name, and it contains the expression fields and
1796 -- Entity field that correspond to its use as a direct name. In those
1797 -- few cases where identifiers appear in contexts where they are not
1798 -- direct names (pragmas, pragma argument associations, attribute
1799 -- references and attribute definition clauses), the Chars field of the
1800 -- node contains the Name_Id for the identifier name.
1802 -- Note: in GNAT, a reserved word can be treated as an identifier in two
1803 -- cases. First, an incorrect use of a reserved word as an identifier is
1804 -- diagnosed and then treated as a normal identifier. Second, an
1805 -- attribute designator of the form of a reserved word (access, delta,
1806 -- digits, range) is treated as an identifier.
1808 -- Note: The set of letters that is permitted in an identifier depends
1809 -- on the character set in use. See package Csets for full details.
1812 -- Sloc points to identifier
1813 -- Chars (Name1) contains the Name_Id for the identifier
1814 -- Entity (Node4-Sem)
1815 -- Associated_Node (Node4-Sem)
1816 -- Original_Discriminant (Node2-Sem)
1817 -- Redundant_Use (Flag13-Sem)
1818 -- Has_Private_View (Flag11-Sem) (set in generic units)
1819 -- plus fields for expression
1821 --------------------------
1822 -- 2.4 Numeric Literal --
1823 --------------------------
1825 -- NUMERIC_LITERAL ::= DECIMAL_LITERAL | BASED_LITERAL
1827 ----------------------------
1828 -- 2.4.1 Decimal Literal --
1829 ----------------------------
1831 -- DECIMAL_LITERAL ::= NUMERAL [.NUMERAL] [EXPONENT]
1833 -- NUMERAL ::= DIGIT {[UNDERLINE] DIGIT}
1835 -- EXPONENT ::= E [+] NUMERAL | E - NUMERAL
1837 -- Decimal literals appear in the tree as either integer literal nodes
1838 -- or real literal nodes, depending on whether a period is present.
1840 -- Note: literal nodes appear as a result of direct use of literals
1841 -- in the source program, and also as the result of evaluating
1842 -- expressions at compile time. In the latter case, it is possible
1843 -- to construct real literals that have no syntactic representation
1844 -- using the standard literal format. Such literals are listed by
1845 -- Sprint using the notation [numerator / denominator].
1847 -- Note: the value of an integer literal node created by the front end
1848 -- is never outside the range of values of the base type. However, it
1849 -- can be the case that the value is outside the range of the
1850 -- particular subtype. This happens in the case of integer overflows
1851 -- with checks suppressed.
1853 -- N_Integer_Literal
1854 -- Sloc points to literal
1855 -- Original_Entity (Node2-Sem) If not Empty, holds Named_Number that
1856 -- has been constant-folded into its literal value.
1857 -- Intval (Uint3) contains integer value of literal
1858 -- plus fields for expression
1859 -- Print_In_Hex (Flag13-Sem)
1862 -- Sloc points to literal
1863 -- Original_Entity (Node2-Sem) If not Empty, holds Named_Number that
1864 -- has been constant-folded into its literal value.
1865 -- Realval (Ureal3) contains real value of literal
1866 -- Corresponding_Integer_Value (Uint4-Sem)
1867 -- Is_Machine_Number (Flag11-Sem)
1868 -- plus fields for expression
1870 --------------------------
1871 -- 2.4.2 Based Literal --
1872 --------------------------
1874 -- BASED_LITERAL ::=
1875 -- BASE # BASED_NUMERAL [.BASED_NUMERAL] # [EXPONENT]
1879 -- BASED_NUMERAL ::=
1880 -- EXTENDED_DIGIT {[UNDERLINE] EXTENDED_DIGIT}
1882 -- EXTENDED_DIGIT ::= DIGIT | A | B | C | D | E | F
1884 -- Based literals appear in the tree as either integer literal nodes
1885 -- or real literal nodes, depending on whether a period is present.
1887 ----------------------------
1888 -- 2.5 Character Literal --
1889 ----------------------------
1891 -- CHARACTER_LITERAL ::= ' GRAPHIC_CHARACTER '
1893 -- N_Character_Literal
1894 -- Sloc points to literal
1895 -- Chars (Name1) contains the Name_Id for the identifier
1896 -- Char_Literal_Value (Uint2) contains the literal value
1897 -- Entity (Node4-Sem)
1898 -- Associated_Node (Node4-Sem)
1899 -- Has_Private_View (Flag11-Sem) set in generic units.
1900 -- plus fields for expression
1902 -- Note: the Entity field will be missing (set to Empty) for character
1903 -- literals whose type is Standard.Wide_Character or Standard.Character
1904 -- or a type derived from one of these two. In this case the character
1905 -- literal stands for its own coding. The reason we take this irregular
1906 -- short cut is to avoid the need to build lots of junk defining
1907 -- character literal nodes.
1909 -------------------------
1910 -- 2.6 String Literal --
1911 -------------------------
1913 -- STRING LITERAL ::= "{STRING_ELEMENT}"
1915 -- A STRING_ELEMENT is either a pair of quotation marks ("), or a
1916 -- single GRAPHIC_CHARACTER other than a quotation mark.
1918 -- Is_Folded_In_Parser is True if the parser created this literal by
1919 -- folding a sequence of "&" operators. For example, if the source code
1920 -- says "aaa" & "bbb" & "ccc", and this produces "aaabbbccc", the flag
1921 -- is set. This flag is needed because the parser doesn't know about
1922 -- visibility, so the folded result might be wrong, and semantic
1923 -- analysis needs to check for that.
1926 -- Sloc points to literal
1927 -- Strval (Str3) contains Id of string value
1928 -- Has_Wide_Character (Flag11-Sem)
1929 -- Is_Folded_In_Parser (Flag4)
1930 -- plus fields for expression
1936 -- A COMMENT starts with two adjacent hyphens and extends up to the
1937 -- end of the line. A COMMENT may appear on any line of a program.
1939 -- Comments are skipped by the scanner and do not appear in the tree.
1940 -- It is possible to reconstruct the position of comments with respect
1941 -- to the elements of the tree by using the source position (Sloc)
1942 -- pointers that appear in every tree node.
1948 -- PRAGMA ::= pragma IDENTIFIER
1949 -- [(PRAGMA_ARGUMENT_ASSOCIATION {, PRAGMA_ARGUMENT_ASSOCIATION})];
1951 -- Note that a pragma may appear in the tree anywhere a declaration
1952 -- or a statement may appear, as well as in some other situations
1953 -- which are explicitly documented.
1956 -- Sloc points to pragma identifier
1957 -- Next_Pragma (Node1-Sem)
1958 -- Pragma_Argument_Associations (List2) (set to No_List if none)
1959 -- Debug_Statement (Node3) (set to Empty if not Debug, Assert)
1960 -- Pragma_Identifier (Node4)
1961 -- Next_Rep_Item (Node5-Sem)
1962 -- PPC_Enabled (Flag5-Sem)
1964 -- Note: we should have a section on what pragmas are passed on to
1965 -- the back end to be processed. This section should note that pragma
1966 -- Psect_Object is always converted to Common_Object, but there are
1967 -- undoubtedly many other similar notes required ???
1969 -- Note: a utility function Pragma_Name may be applied to pragma nodes
1970 -- to conveniently obtain the Chars field of the Pragma_Identifier.
1972 --------------------------------------
1973 -- 2.8 Pragma Argument Association --
1974 --------------------------------------
1976 -- PRAGMA_ARGUMENT_ASSOCIATION ::=
1977 -- [pragma_argument_IDENTIFIER =>] NAME
1978 -- | [pragma_argument_IDENTIFIER =>] EXPRESSION
1980 -- N_Pragma_Argument_Association
1981 -- Sloc points to first token in association
1982 -- Chars (Name1) (set to No_Name if no pragma argument identifier)
1983 -- Expression (Node3)
1985 ------------------------
1986 -- 2.9 Reserved Word --
1987 ------------------------
1989 -- Reserved words are parsed by the scanner, and returned as the
1990 -- corresponding token types (e.g. PACKAGE is returned as Tok_Package)
1992 ----------------------------
1993 -- 3.1 Basic Declaration --
1994 ----------------------------
1996 -- BASIC_DECLARATION ::=
1997 -- TYPE_DECLARATION | SUBTYPE_DECLARATION
1998 -- | OBJECT_DECLARATION | NUMBER_DECLARATION
1999 -- | SUBPROGRAM_DECLARATION | ABSTRACT_SUBPROGRAM_DECLARATION
2000 -- | PACKAGE_DECLARATION | RENAMING_DECLARATION
2001 -- | EXCEPTION_DECLARATION | GENERIC_DECLARATION
2002 -- | GENERIC_INSTANTIATION
2004 -- Basic declaration also includes IMPLICIT_LABEL_DECLARATION
2005 -- see further description in section on semantic nodes.
2007 -- Also, in the tree that is constructed, a pragma may appear
2008 -- anywhere that a declaration may appear.
2010 ------------------------------
2011 -- 3.1 Defining Identifier --
2012 ------------------------------
2014 -- DEFINING_IDENTIFIER ::= IDENTIFIER
2016 -- A defining identifier is an entity, which has additional fields
2017 -- depending on the setting of the Ekind field. These additional
2018 -- fields are defined (and access subprograms declared) in package
2021 -- Note: N_Defining_Identifier is an extended node whose fields are
2022 -- deliberate layed out to match the layout of fields in an ordinary
2023 -- N_Identifier node allowing for easy alteration of an identifier
2024 -- node into a defining identifier node. For details, see procedure
2025 -- Sinfo.CN.Change_Identifier_To_Defining_Identifier.
2027 -- N_Defining_Identifier
2028 -- Sloc points to identifier
2029 -- Chars (Name1) contains the Name_Id for the identifier
2030 -- Next_Entity (Node2-Sem)
2031 -- Scope (Node3-Sem)
2032 -- Etype (Node5-Sem)
2034 -----------------------------
2035 -- 3.2.1 Type Declaration --
2036 -----------------------------
2038 -- TYPE_DECLARATION ::=
2039 -- FULL_TYPE_DECLARATION
2040 -- | INCOMPLETE_TYPE_DECLARATION
2041 -- | PRIVATE_TYPE_DECLARATION
2042 -- | PRIVATE_EXTENSION_DECLARATION
2044 ----------------------------------
2045 -- 3.2.1 Full Type Declaration --
2046 ----------------------------------
2048 -- FULL_TYPE_DECLARATION ::=
2049 -- type DEFINING_IDENTIFIER [KNOWN_DISCRIMINANT_PART]
2050 -- is TYPE_DEFINITION;
2051 -- | TASK_TYPE_DECLARATION
2052 -- | PROTECTED_TYPE_DECLARATION
2054 -- The full type declaration node is used only for the first case. The
2055 -- second case (concurrent type declaration), is represented directly
2056 -- by a task type declaration or a protected type declaration.
2058 -- N_Full_Type_Declaration
2059 -- Sloc points to TYPE
2060 -- Defining_Identifier (Node1)
2061 -- Discriminant_Specifications (List4) (set to No_List if none)
2062 -- Type_Definition (Node3)
2063 -- Discr_Check_Funcs_Built (Flag11-Sem)
2065 ----------------------------
2066 -- 3.2.1 Type Definition --
2067 ----------------------------
2069 -- TYPE_DEFINITION ::=
2070 -- ENUMERATION_TYPE_DEFINITION | INTEGER_TYPE_DEFINITION
2071 -- | REAL_TYPE_DEFINITION | ARRAY_TYPE_DEFINITION
2072 -- | RECORD_TYPE_DEFINITION | ACCESS_TYPE_DEFINITION
2073 -- | DERIVED_TYPE_DEFINITION | INTERFACE_TYPE_DEFINITION
2075 --------------------------------
2076 -- 3.2.2 Subtype Declaration --
2077 --------------------------------
2079 -- SUBTYPE_DECLARATION ::=
2080 -- subtype DEFINING_IDENTIFIER is [NULL_EXCLUSION] SUBTYPE_INDICATION;
2082 -- The subtype indication field is set to Empty for subtypes
2083 -- declared in package Standard (Positive, Natural).
2085 -- N_Subtype_Declaration
2086 -- Sloc points to SUBTYPE
2087 -- Defining_Identifier (Node1)
2088 -- Null_Exclusion_Present (Flag11)
2089 -- Subtype_Indication (Node5)
2090 -- Generic_Parent_Type (Node4-Sem) (set for an actual derived type).
2091 -- Exception_Junk (Flag8-Sem)
2093 -------------------------------
2094 -- 3.2.2 Subtype Indication --
2095 -------------------------------
2097 -- SUBTYPE_INDICATION ::= SUBTYPE_MARK [CONSTRAINT]
2099 -- Note: if no constraint is present, the subtype indication appears
2100 -- directly in the tree as a subtype mark. The N_Subtype_Indication
2101 -- node is used only if a constraint is present.
2103 -- Note: [For Ada 2005 (AI-231)]: Because Ada 2005 extends this rule
2104 -- with the null-exclusion part (see AI-231), we had to introduce a new
2105 -- attribute in all the parents of subtype_indication nodes to indicate
2106 -- if the null-exclusion is present.
2108 -- Note: the reason that this node has expression fields is that a
2109 -- subtype indication can appear as an operand of a membership test.
2111 -- N_Subtype_Indication
2112 -- Sloc points to first token of subtype mark
2113 -- Subtype_Mark (Node4)
2114 -- Constraint (Node3)
2115 -- Etype (Node5-Sem)
2116 -- Must_Not_Freeze (Flag8-Sem)
2118 -- Note: Etype is a copy of the Etype field of the Subtype_Mark. The
2119 -- reason for this redundancy is so that in a list of array index types,
2120 -- the Etype can be uniformly accessed to determine the subscript type.
2121 -- This means that no Itype is constructed for the actual subtype that
2122 -- is created by the subtype indication. If such an Itype is required,
2123 -- it is constructed in the context in which the indication appears.
2125 -------------------------
2126 -- 3.2.2 Subtype Mark --
2127 -------------------------
2129 -- SUBTYPE_MARK ::= subtype_NAME
2131 -----------------------
2132 -- 3.2.2 Constraint --
2133 -----------------------
2135 -- CONSTRAINT ::= SCALAR_CONSTRAINT | COMPOSITE_CONSTRAINT
2137 ------------------------------
2138 -- 3.2.2 Scalar Constraint --
2139 ------------------------------
2141 -- SCALAR_CONSTRAINT ::=
2142 -- RANGE_CONSTRAINT | DIGITS_CONSTRAINT | DELTA_CONSTRAINT
2144 ---------------------------------
2145 -- 3.2.2 Composite Constraint --
2146 ---------------------------------
2148 -- COMPOSITE_CONSTRAINT ::=
2149 -- INDEX_CONSTRAINT | DISCRIMINANT_CONSTRAINT
2151 -------------------------------
2152 -- 3.3.1 Object Declaration --
2153 -------------------------------
2155 -- OBJECT_DECLARATION ::=
2156 -- DEFINING_IDENTIFIER_LIST : [aliased] [constant]
2157 -- [NULL_EXCLUSION] SUBTYPE_INDICATION [:= EXPRESSION];
2158 -- | DEFINING_IDENTIFIER_LIST : [aliased] [constant]
2159 -- ACCESS_DEFINITION [:= EXPRESSION];
2160 -- | DEFINING_IDENTIFIER_LIST : [aliased] [constant]
2161 -- ARRAY_TYPE_DEFINITION [:= EXPRESSION];
2162 -- | SINGLE_TASK_DECLARATION
2163 -- | SINGLE_PROTECTED_DECLARATION
2165 -- Note: aliased is not permitted in Ada 83 mode
2167 -- The N_Object_Declaration node is only for the first two cases.
2168 -- Single task declaration is handled by P_Task (9.1)
2169 -- Single protected declaration is handled by P_protected (9.5)
2171 -- Although the syntax allows multiple identifiers in the list, the
2172 -- semantics is as though successive declarations were given with
2173 -- identical type definition and expression components. To simplify
2174 -- semantic processing, the parser represents a multiple declaration
2175 -- case as a sequence of single declarations, using the More_Ids and
2176 -- Prev_Ids flags to preserve the original source form as described
2177 -- in the section on "Handling of Defining Identifier Lists".
2179 -- The flag Has_Init_Expression is set if an initializing expression
2180 -- is present. Normally it is set if and only if Expression contains
2181 -- a non-empty value, but there is an exception to this. When the
2182 -- initializing expression is an aggregate which requires explicit
2183 -- assignments, the Expression field gets set to Empty, but this flag
2184 -- is still set, so we don't forget we had an initializing expression.
2186 -- Note: if a range check is required for the initialization
2187 -- expression then the Do_Range_Check flag is set in the Expression,
2188 -- with the check being done against the type given by the object
2189 -- definition, which is also the Etype of the defining identifier.
2191 -- Note: the contents of the Expression field must be ignored (i.e.
2192 -- treated as though it were Empty) if No_Initialization is set True.
2194 -- Note: the back end places some restrictions on the form of the
2195 -- Expression field. If the object being declared is Atomic, then
2196 -- the Expression may not have the form of an aggregate (since this
2197 -- might cause the back end to generate separate assignments). In this
2198 -- case the front end must generate an extra temporary and initialize
2199 -- this temporary as required (the temporary itself is not atomic).
2201 -- Note: there is not node kind for object definition. Instead, the
2202 -- corresponding field holds a subtype indication, an array type
2203 -- definition, or (Ada 2005, AI-406) an access definition.
2205 -- N_Object_Declaration
2206 -- Sloc points to first identifier
2207 -- Defining_Identifier (Node1)
2208 -- Aliased_Present (Flag4) set if ALIASED appears
2209 -- Constant_Present (Flag17) set if CONSTANT appears
2210 -- Null_Exclusion_Present (Flag11)
2211 -- Object_Definition (Node4) subtype indic./array type def./access def.
2212 -- Expression (Node3) (set to Empty if not present)
2213 -- Handler_List_Entry (Node2-Sem)
2214 -- Corresponding_Generic_Association (Node5-Sem)
2215 -- More_Ids (Flag5) (set to False if no more identifiers in list)
2216 -- Prev_Ids (Flag6) (set to False if no previous identifiers in list)
2217 -- No_Initialization (Flag13-Sem)
2218 -- Assignment_OK (Flag15-Sem)
2219 -- Exception_Junk (Flag8-Sem)
2220 -- Is_Subprogram_Descriptor (Flag16-Sem)
2221 -- Has_Init_Expression (Flag14)
2223 -------------------------------------
2224 -- 3.3.1 Defining Identifier List --
2225 -------------------------------------
2227 -- DEFINING_IDENTIFIER_LIST ::=
2228 -- DEFINING_IDENTIFIER {, DEFINING_IDENTIFIER}
2230 -------------------------------
2231 -- 3.3.2 Number Declaration --
2232 -------------------------------
2234 -- NUMBER_DECLARATION ::=
2235 -- DEFINING_IDENTIFIER_LIST : constant := static_EXPRESSION;
2237 -- Although the syntax allows multiple identifiers in the list, the
2238 -- semantics is as though successive declarations were given with
2239 -- identical expressions. To simplify semantic processing, the parser
2240 -- represents a multiple declaration case as a sequence of single
2241 -- declarations, using the More_Ids and Prev_Ids flags to preserve
2242 -- the original source form as described in the section on "Handling
2243 -- of Defining Identifier Lists".
2245 -- N_Number_Declaration
2246 -- Sloc points to first identifier
2247 -- Defining_Identifier (Node1)
2248 -- Expression (Node3)
2249 -- More_Ids (Flag5) (set to False if no more identifiers in list)
2250 -- Prev_Ids (Flag6) (set to False if no previous identifiers in list)
2252 ----------------------------------
2253 -- 3.4 Derived Type Definition --
2254 ----------------------------------
2256 -- DERIVED_TYPE_DEFINITION ::=
2257 -- [abstract] [limited] new [NULL_EXCLUSION] parent_SUBTYPE_INDICATION
2258 -- [[and INTERFACE_LIST] RECORD_EXTENSION_PART]
2260 -- Note: ABSTRACT, LIMITED and record extension part are not permitted
2263 -- Note: a record extension part is required if ABSTRACT is present
2265 -- N_Derived_Type_Definition
2266 -- Sloc points to NEW
2267 -- Abstract_Present (Flag4)
2268 -- Null_Exclusion_Present (Flag11) (set to False if not present)
2269 -- Subtype_Indication (Node5)
2270 -- Record_Extension_Part (Node3) (set to Empty if not present)
2271 -- Limited_Present (Flag17)
2272 -- Task_Present (Flag5) set in task interfaces
2273 -- Protected_Present (Flag6) set in protected interfaces
2274 -- Synchronized_Present (Flag7) set in interfaces
2275 -- Interface_List (List2) (set to No_List if none)
2276 -- Interface_Present (Flag16) set in abstract interfaces
2278 -- Note: Task_Present, Protected_Present, Synchronized_Present,
2279 -- Interface_List, and Interface_Present are used for abstract
2280 -- interfaces (see comments for INTERFACE_TYPE_DEFINITION).
2282 ---------------------------
2283 -- 3.5 Range Constraint --
2284 ---------------------------
2286 -- RANGE_CONSTRAINT ::= range RANGE
2288 -- N_Range_Constraint
2289 -- Sloc points to RANGE
2290 -- Range_Expression (Node4)
2297 -- RANGE_ATTRIBUTE_REFERENCE
2298 -- | SIMPLE_EXPRESSION .. SIMPLE_EXPRESSION
2300 -- Note: the case of a range given as a range attribute reference
2301 -- appears directly in the tree as an attribute reference.
2303 -- Note: the field name for a reference to a range is Range_Expression
2304 -- rather than Range, because range is a reserved keyword in Ada!
2306 -- Note: the reason that this node has expression fields is that a
2307 -- range can appear as an operand of a membership test. The Etype
2308 -- field is the type of the range (we do NOT construct an implicit
2309 -- subtype to represent the range exactly).
2312 -- Sloc points to ..
2313 -- Low_Bound (Node1)
2314 -- High_Bound (Node2)
2315 -- Includes_Infinities (Flag11)
2316 -- plus fields for expression
2318 -- Note: if the range appears in a context, such as a subtype
2319 -- declaration, where range checks are required on one or both of
2320 -- the expression fields, then type conversion nodes are inserted
2321 -- to represent the required checks.
2323 ----------------------------------------
2324 -- 3.5.1 Enumeration Type Definition --
2325 ----------------------------------------
2327 -- ENUMERATION_TYPE_DEFINITION ::=
2328 -- (ENUMERATION_LITERAL_SPECIFICATION
2329 -- {, ENUMERATION_LITERAL_SPECIFICATION})
2331 -- Note: the Literals field in the node described below is null for
2332 -- the case of the standard types CHARACTER and WIDE_CHARACTER, for
2333 -- which special processing handles these types as special cases.
2335 -- N_Enumeration_Type_Definition
2336 -- Sloc points to left parenthesis
2337 -- Literals (List1) (Empty for CHARACTER or WIDE_CHARACTER)
2338 -- End_Label (Node4) (set to Empty if internally generated record)
2340 ----------------------------------------------
2341 -- 3.5.1 Enumeration Literal Specification --
2342 ----------------------------------------------
2344 -- ENUMERATION_LITERAL_SPECIFICATION ::=
2345 -- DEFINING_IDENTIFIER | DEFINING_CHARACTER_LITERAL
2347 ---------------------------------------
2348 -- 3.5.1 Defining Character Literal --
2349 ---------------------------------------
2351 -- DEFINING_CHARACTER_LITERAL ::= CHARACTER_LITERAL
2353 -- A defining character literal is an entity, which has additional
2354 -- fields depending on the setting of the Ekind field. These
2355 -- additional fields are defined (and access subprograms declared)
2356 -- in package Einfo.
2358 -- Note: N_Defining_Character_Literal is an extended node whose fields
2359 -- are deliberate layed out to match the layout of fields in an ordinary
2360 -- N_Character_Literal node allowing for easy alteration of a character
2361 -- literal node into a defining character literal node. For details, see
2362 -- Sinfo.CN.Change_Character_Literal_To_Defining_Character_Literal.
2364 -- N_Defining_Character_Literal
2365 -- Sloc points to literal
2366 -- Chars (Name1) contains the Name_Id for the identifier
2367 -- Next_Entity (Node2-Sem)
2368 -- Scope (Node3-Sem)
2369 -- Etype (Node5-Sem)
2371 ------------------------------------
2372 -- 3.5.4 Integer Type Definition --
2373 ------------------------------------
2375 -- Note: there is an error in this rule in the latest version of the
2376 -- grammar, so we have retained the old rule pending clarification.
2378 -- INTEGER_TYPE_DEFINITION ::=
2379 -- SIGNED_INTEGER_TYPE_DEFINITION
2380 -- | MODULAR_TYPE_DEFINITION
2382 -------------------------------------------
2383 -- 3.5.4 Signed Integer Type Definition --
2384 -------------------------------------------
2386 -- SIGNED_INTEGER_TYPE_DEFINITION ::=
2387 -- range static_SIMPLE_EXPRESSION .. static_SIMPLE_EXPRESSION
2389 -- Note: the Low_Bound and High_Bound fields are set to Empty
2390 -- for integer types defined in package Standard.
2392 -- N_Signed_Integer_Type_Definition
2393 -- Sloc points to RANGE
2394 -- Low_Bound (Node1)
2395 -- High_Bound (Node2)
2397 ------------------------------------
2398 -- 3.5.4 Modular Type Definition --
2399 ------------------------------------
2401 -- MODULAR_TYPE_DEFINITION ::= mod static_EXPRESSION
2403 -- N_Modular_Type_Definition
2404 -- Sloc points to MOD
2405 -- Expression (Node3)
2407 ---------------------------------
2408 -- 3.5.6 Real Type Definition --
2409 ---------------------------------
2411 -- REAL_TYPE_DEFINITION ::=
2412 -- FLOATING_POINT_DEFINITION | FIXED_POINT_DEFINITION
2414 --------------------------------------
2415 -- 3.5.7 Floating Point Definition --
2416 --------------------------------------
2418 -- FLOATING_POINT_DEFINITION ::=
2419 -- digits static_SIMPLE_EXPRESSION [REAL_RANGE_SPECIFICATION]
2421 -- Note: The Digits_Expression and Real_Range_Specifications fields
2422 -- are set to Empty for floating-point types declared in Standard.
2424 -- N_Floating_Point_Definition
2425 -- Sloc points to DIGITS
2426 -- Digits_Expression (Node2)
2427 -- Real_Range_Specification (Node4) (set to Empty if not present)
2429 -------------------------------------
2430 -- 3.5.7 Real Range Specification --
2431 -------------------------------------
2433 -- REAL_RANGE_SPECIFICATION ::=
2434 -- range static_SIMPLE_EXPRESSION .. static_SIMPLE_EXPRESSION
2436 -- N_Real_Range_Specification
2437 -- Sloc points to RANGE
2438 -- Low_Bound (Node1)
2439 -- High_Bound (Node2)
2441 -----------------------------------
2442 -- 3.5.9 Fixed Point Definition --
2443 -----------------------------------
2445 -- FIXED_POINT_DEFINITION ::=
2446 -- ORDINARY_FIXED_POINT_DEFINITION | DECIMAL_FIXED_POINT_DEFINITION
2448 --------------------------------------------
2449 -- 3.5.9 Ordinary Fixed Point Definition --
2450 --------------------------------------------
2452 -- ORDINARY_FIXED_POINT_DEFINITION ::=
2453 -- delta static_EXPRESSION REAL_RANGE_SPECIFICATION
2455 -- Note: In Ada 83, the EXPRESSION must be a SIMPLE_EXPRESSION
2457 -- N_Ordinary_Fixed_Point_Definition
2458 -- Sloc points to DELTA
2459 -- Delta_Expression (Node3)
2460 -- Real_Range_Specification (Node4)
2462 -------------------------------------------
2463 -- 3.5.9 Decimal Fixed Point Definition --
2464 -------------------------------------------
2466 -- DECIMAL_FIXED_POINT_DEFINITION ::=
2467 -- delta static_EXPRESSION
2468 -- digits static_EXPRESSION [REAL_RANGE_SPECIFICATION]
2470 -- Note: decimal types are not permitted in Ada 83 mode
2472 -- N_Decimal_Fixed_Point_Definition
2473 -- Sloc points to DELTA
2474 -- Delta_Expression (Node3)
2475 -- Digits_Expression (Node2)
2476 -- Real_Range_Specification (Node4) (set to Empty if not present)
2478 ------------------------------
2479 -- 3.5.9 Digits Constraint --
2480 ------------------------------
2482 -- DIGITS_CONSTRAINT ::=
2483 -- digits static_EXPRESSION [RANGE_CONSTRAINT]
2485 -- Note: in Ada 83, the EXPRESSION must be a SIMPLE_EXPRESSION
2486 -- Note: in Ada 95, reduced accuracy subtypes are obsolescent
2488 -- N_Digits_Constraint
2489 -- Sloc points to DIGITS
2490 -- Digits_Expression (Node2)
2491 -- Range_Constraint (Node4) (set to Empty if not present)
2493 --------------------------------
2494 -- 3.6 Array Type Definition --
2495 --------------------------------
2497 -- ARRAY_TYPE_DEFINITION ::=
2498 -- UNCONSTRAINED_ARRAY_DEFINITION | CONSTRAINED_ARRAY_DEFINITION
2500 -----------------------------------------
2501 -- 3.6 Unconstrained Array Definition --
2502 -----------------------------------------
2504 -- UNCONSTRAINED_ARRAY_DEFINITION ::=
2505 -- array (INDEX_SUBTYPE_DEFINITION {, INDEX_SUBTYPE_DEFINITION}) of
2506 -- COMPONENT_DEFINITION
2508 -- Note: dimensionality of array is indicated by number of entries in
2509 -- the Subtype_Marks list, which has one entry for each dimension.
2511 -- N_Unconstrained_Array_Definition
2512 -- Sloc points to ARRAY
2513 -- Subtype_Marks (List2)
2514 -- Component_Definition (Node4)
2516 -----------------------------------
2517 -- 3.6 Index Subtype Definition --
2518 -----------------------------------
2520 -- INDEX_SUBTYPE_DEFINITION ::= SUBTYPE_MARK range <>
2522 -- There is no explicit node in the tree for an index subtype
2523 -- definition since the N_Unconstrained_Array_Definition node
2524 -- incorporates the type marks which appear in this context.
2526 ---------------------------------------
2527 -- 3.6 Constrained Array Definition --
2528 ---------------------------------------
2530 -- CONSTRAINED_ARRAY_DEFINITION ::=
2531 -- array (DISCRETE_SUBTYPE_DEFINITION
2532 -- {, DISCRETE_SUBTYPE_DEFINITION})
2533 -- of COMPONENT_DEFINITION
2535 -- Note: dimensionality of array is indicated by number of entries
2536 -- in the Discrete_Subtype_Definitions list, which has one entry
2537 -- for each dimension.
2539 -- N_Constrained_Array_Definition
2540 -- Sloc points to ARRAY
2541 -- Discrete_Subtype_Definitions (List2)
2542 -- Component_Definition (Node4)
2544 --------------------------------------
2545 -- 3.6 Discrete Subtype Definition --
2546 --------------------------------------
2548 -- DISCRETE_SUBTYPE_DEFINITION ::=
2549 -- discrete_SUBTYPE_INDICATION | RANGE
2551 -------------------------------
2552 -- 3.6 Component Definition --
2553 -------------------------------
2555 -- COMPONENT_DEFINITION ::=
2556 -- [aliased] [NULL_EXCLUSION] SUBTYPE_INDICATION | ACCESS_DEFINITION
2558 -- Note: although the syntax does not permit a component definition to
2559 -- be an anonymous array (and the parser will diagnose such an attempt
2560 -- with an appropriate message), it is possible for anonymous arrays
2561 -- to appear as component definitions. The semantics and back end handle
2562 -- this case properly, and the expander in fact generates such cases.
2563 -- Access_Definition is an optional field that gives support to
2564 -- Ada 2005 (AI-230). The parser generates nodes that have either the
2565 -- Subtype_Indication field or else the Access_Definition field.
2567 -- N_Component_Definition
2568 -- Sloc points to ALIASED, ACCESS or to first token of subtype mark
2569 -- Aliased_Present (Flag4)
2570 -- Null_Exclusion_Present (Flag11)
2571 -- Subtype_Indication (Node5) (set to Empty if not present)
2572 -- Access_Definition (Node3) (set to Empty if not present)
2574 -----------------------------
2575 -- 3.6.1 Index Constraint --
2576 -----------------------------
2578 -- INDEX_CONSTRAINT ::= (DISCRETE_RANGE {, DISCRETE_RANGE})
2580 -- It is not in general possible to distinguish between discriminant
2581 -- constraints and index constraints at parse time, since a simple
2582 -- name could be either the subtype mark of a discrete range, or an
2583 -- expression in a discriminant association with no name. Either
2584 -- entry appears simply as the name, and the semantic parse must
2585 -- distinguish between the two cases. Thus we use a common tree
2586 -- node format for both of these constraint types.
2588 -- See Discriminant_Constraint for format of node
2590 ---------------------------
2591 -- 3.6.1 Discrete Range --
2592 ---------------------------
2594 -- DISCRETE_RANGE ::= discrete_SUBTYPE_INDICATION | RANGE
2596 ----------------------------
2597 -- 3.7 Discriminant Part --
2598 ----------------------------
2600 -- DISCRIMINANT_PART ::=
2601 -- UNKNOWN_DISCRIMINANT_PART | KNOWN_DISCRIMINANT_PART
2603 ------------------------------------
2604 -- 3.7 Unknown Discriminant Part --
2605 ------------------------------------
2607 -- UNKNOWN_DISCRIMINANT_PART ::= (<>)
2609 -- Note: unknown discriminant parts are not permitted in Ada 83 mode
2611 -- There is no explicit node in the tree for an unknown discriminant
2612 -- part. Instead the Unknown_Discriminants_Present flag is set in the
2615 ----------------------------------
2616 -- 3.7 Known Discriminant Part --
2617 ----------------------------------
2619 -- KNOWN_DISCRIMINANT_PART ::=
2620 -- (DISCRIMINANT_SPECIFICATION {; DISCRIMINANT_SPECIFICATION})
2622 -------------------------------------
2623 -- 3.7 Discriminant Specification --
2624 -------------------------------------
2626 -- DISCRIMINANT_SPECIFICATION ::=
2627 -- DEFINING_IDENTIFIER_LIST : [NULL_EXCLUSION] SUBTYPE_MARK
2628 -- [:= DEFAULT_EXPRESSION]
2629 -- | DEFINING_IDENTIFIER_LIST : ACCESS_DEFINITION
2630 -- [:= DEFAULT_EXPRESSION]
2632 -- Although the syntax allows multiple identifiers in the list, the
2633 -- semantics is as though successive specifications were given with
2634 -- identical type definition and expression components. To simplify
2635 -- semantic processing, the parser represents a multiple declaration
2636 -- case as a sequence of single specifications, using the More_Ids and
2637 -- Prev_Ids flags to preserve the original source form as described
2638 -- in the section on "Handling of Defining Identifier Lists".
2640 -- N_Discriminant_Specification
2641 -- Sloc points to first identifier
2642 -- Defining_Identifier (Node1)
2643 -- Null_Exclusion_Present (Flag11)
2644 -- Discriminant_Type (Node5) subtype mark or access parameter definition
2645 -- Expression (Node3) (set to Empty if no default expression)
2646 -- More_Ids (Flag5) (set to False if no more identifiers in list)
2647 -- Prev_Ids (Flag6) (set to False if no previous identifiers in list)
2649 -----------------------------
2650 -- 3.7 Default Expression --
2651 -----------------------------
2653 -- DEFAULT_EXPRESSION ::= EXPRESSION
2655 ------------------------------------
2656 -- 3.7.1 Discriminant Constraint --
2657 ------------------------------------
2659 -- DISCRIMINANT_CONSTRAINT ::=
2660 -- (DISCRIMINANT_ASSOCIATION {, DISCRIMINANT_ASSOCIATION})
2662 -- It is not in general possible to distinguish between discriminant
2663 -- constraints and index constraints at parse time, since a simple
2664 -- name could be either the subtype mark of a discrete range, or an
2665 -- expression in a discriminant association with no name. Either
2666 -- entry appears simply as the name, and the semantic parse must
2667 -- distinguish between the two cases. Thus we use a common tree
2668 -- node format for both of these constraint types.
2670 -- N_Index_Or_Discriminant_Constraint
2671 -- Sloc points to left paren
2672 -- Constraints (List1) points to list of discrete ranges or
2673 -- discriminant associations
2675 -------------------------------------
2676 -- 3.7.1 Discriminant Association --
2677 -------------------------------------
2679 -- DISCRIMINANT_ASSOCIATION ::=
2680 -- [discriminant_SELECTOR_NAME
2681 -- {| discriminant_SELECTOR_NAME} =>] EXPRESSION
2683 -- Note: a discriminant association that has no selector name list
2684 -- appears directly as an expression in the tree.
2686 -- N_Discriminant_Association
2687 -- Sloc points to first token of discriminant association
2688 -- Selector_Names (List1) (always non-empty, since if no selector
2689 -- names are present, this node is not used, see comment above)
2690 -- Expression (Node3)
2692 ---------------------------------
2693 -- 3.8 Record Type Definition --
2694 ---------------------------------
2696 -- RECORD_TYPE_DEFINITION ::=
2697 -- [[abstract] tagged] [limited] RECORD_DEFINITION
2699 -- Note: ABSTRACT, TAGGED, LIMITED are not permitted in Ada 83 mode
2701 -- There is no explicit node in the tree for a record type definition.
2702 -- Instead the flags for Tagged_Present and Limited_Present appear in
2703 -- the N_Record_Definition node for a record definition appearing in
2704 -- the context of a record type definition.
2706 ----------------------------
2707 -- 3.8 Record Definition --
2708 ----------------------------
2710 -- RECORD_DEFINITION ::=
2716 -- Note: the Abstract_Present, Tagged_Present and Limited_Present
2717 -- flags appear only for a record definition appearing in a record
2720 -- Note: the NULL RECORD case is not permitted in Ada 83
2722 -- N_Record_Definition
2723 -- Sloc points to RECORD or NULL
2724 -- End_Label (Node4) (set to Empty if internally generated record)
2725 -- Abstract_Present (Flag4)
2726 -- Tagged_Present (Flag15)
2727 -- Limited_Present (Flag17)
2728 -- Component_List (Node1) empty in null record case
2729 -- Null_Present (Flag13) set in null record case
2730 -- Task_Present (Flag5) set in task interfaces
2731 -- Protected_Present (Flag6) set in protected interfaces
2732 -- Synchronized_Present (Flag7) set in interfaces
2733 -- Interface_Present (Flag16) set in abstract interfaces
2734 -- Interface_List (List2) (set to No_List if none)
2736 -- Note: Task_Present, Protected_Present, Synchronized _Present,
2737 -- Interface_List and Interface_Present are used for abstract
2738 -- interfaces (see comments for INTERFACE_TYPE_DEFINITION).
2740 -------------------------
2741 -- 3.8 Component List --
2742 -------------------------
2744 -- COMPONENT_LIST ::=
2745 -- COMPONENT_ITEM {COMPONENT_ITEM}
2746 -- | {COMPONENT_ITEM} VARIANT_PART
2750 -- Sloc points to first token of component list
2751 -- Component_Items (List3)
2752 -- Variant_Part (Node4) (set to Empty if no variant part)
2753 -- Null_Present (Flag13)
2755 -------------------------
2756 -- 3.8 Component Item --
2757 -------------------------
2759 -- COMPONENT_ITEM ::= COMPONENT_DECLARATION | REPRESENTATION_CLAUSE
2761 -- Note: A component item can also be a pragma, and in the tree
2762 -- that is obtained after semantic processing, a component item
2763 -- can be an N_Null node resulting from a non-recognized pragma.
2765 --------------------------------
2766 -- 3.8 Component Declaration --
2767 --------------------------------
2769 -- COMPONENT_DECLARATION ::=
2770 -- DEFINING_IDENTIFIER_LIST : COMPONENT_DEFINITION
2771 -- [:= DEFAULT_EXPRESSION]
2773 -- Note: although the syntax does not permit a component definition to
2774 -- be an anonymous array (and the parser will diagnose such an attempt
2775 -- with an appropriate message), it is possible for anonymous arrays
2776 -- to appear as component definitions. The semantics and back end handle
2777 -- this case properly, and the expander in fact generates such cases.
2779 -- Although the syntax allows multiple identifiers in the list, the
2780 -- semantics is as though successive declarations were given with the
2781 -- same component definition and expression components. To simplify
2782 -- semantic processing, the parser represents a multiple declaration
2783 -- case as a sequence of single declarations, using the More_Ids and
2784 -- Prev_Ids flags to preserve the original source form as described
2785 -- in the section on "Handling of Defining Identifier Lists".
2787 -- N_Component_Declaration
2788 -- Sloc points to first identifier
2789 -- Defining_Identifier (Node1)
2790 -- Component_Definition (Node4)
2791 -- Expression (Node3) (set to Empty if no default expression)
2792 -- More_Ids (Flag5) (set to False if no more identifiers in list)
2793 -- Prev_Ids (Flag6) (set to False if no previous identifiers in list)
2795 -------------------------
2796 -- 3.8.1 Variant Part --
2797 -------------------------
2800 -- case discriminant_DIRECT_NAME is
2805 -- Note: the variants list can contain pragmas as well as variants.
2806 -- In a properly formed program there is at least one variant.
2809 -- Sloc points to CASE
2813 --------------------
2815 --------------------
2818 -- when DISCRETE_CHOICE_LIST =>
2822 -- Sloc points to WHEN
2823 -- Discrete_Choices (List4)
2824 -- Component_List (Node1)
2825 -- Enclosing_Variant (Node2-Sem)
2826 -- Present_Expr (Uint3-Sem)
2827 -- Dcheck_Function (Node5-Sem)
2829 ---------------------------------
2830 -- 3.8.1 Discrete Choice List --
2831 ---------------------------------
2833 -- DISCRETE_CHOICE_LIST ::= DISCRETE_CHOICE {| DISCRETE_CHOICE}
2835 ----------------------------
2836 -- 3.8.1 Discrete Choice --
2837 ----------------------------
2839 -- DISCRETE_CHOICE ::= EXPRESSION | DISCRETE_RANGE | others
2841 -- Note: in Ada 83 mode, the expression must be a simple expression
2843 -- The only choice that appears explicitly is the OTHERS choice, as
2844 -- defined here. Other cases of discrete choice (expression and
2845 -- discrete range) appear directly. This production is also used
2846 -- for the OTHERS possibility of an exception choice.
2848 -- Note: in accordance with the syntax, the parser does not check that
2849 -- OTHERS appears at the end on its own in a choice list context. This
2850 -- is a semantic check.
2853 -- Sloc points to OTHERS
2854 -- Others_Discrete_Choices (List1-Sem)
2855 -- All_Others (Flag11-Sem)
2857 ----------------------------------
2858 -- 3.9.1 Record Extension Part --
2859 ----------------------------------
2861 -- RECORD_EXTENSION_PART ::= with RECORD_DEFINITION
2863 -- Note: record extension parts are not permitted in Ada 83 mode
2865 --------------------------------------
2866 -- 3.9.4 Interface Type Definition --
2867 --------------------------------------
2869 -- INTERFACE_TYPE_DEFINITION ::=
2870 -- [limited | task | protected | synchronized]
2871 -- interface [interface_list]
2873 -- Note: Interfaces are implemented with N_Record_Definition and
2874 -- N_Derived_Type_Definition nodes because most of the support
2875 -- for the analysis of abstract types has been reused to
2876 -- analyze abstract interfaces.
2878 ----------------------------------
2879 -- 3.10 Access Type Definition --
2880 ----------------------------------
2882 -- ACCESS_TYPE_DEFINITION ::=
2883 -- ACCESS_TO_OBJECT_DEFINITION
2884 -- | ACCESS_TO_SUBPROGRAM_DEFINITION
2886 --------------------------
2887 -- 3.10 Null Exclusion --
2888 --------------------------
2890 -- NULL_EXCLUSION ::= not null
2892 ---------------------------------------
2893 -- 3.10 Access To Object Definition --
2894 ---------------------------------------
2896 -- ACCESS_TO_OBJECT_DEFINITION ::=
2897 -- [NULL_EXCLUSION] access [GENERAL_ACCESS_MODIFIER]
2898 -- SUBTYPE_INDICATION
2900 -- N_Access_To_Object_Definition
2901 -- Sloc points to ACCESS
2902 -- All_Present (Flag15)
2903 -- Null_Exclusion_Present (Flag11)
2904 -- Subtype_Indication (Node5)
2905 -- Constant_Present (Flag17)
2907 -----------------------------------
2908 -- 3.10 General Access Modifier --
2909 -----------------------------------
2911 -- GENERAL_ACCESS_MODIFIER ::= all | constant
2913 -- Note: general access modifiers are not permitted in Ada 83 mode
2915 -- There is no explicit node in the tree for general access modifier.
2916 -- Instead the All_Present or Constant_Present flags are set in the
2919 -------------------------------------------
2920 -- 3.10 Access To Subprogram Definition --
2921 -------------------------------------------
2923 -- ACCESS_TO_SUBPROGRAM_DEFINITION
2924 -- [NULL_EXCLUSION] access [protected] procedure PARAMETER_PROFILE
2925 -- | [NULL_EXCLUSION] access [protected] function
2926 -- PARAMETER_AND_RESULT_PROFILE
2928 -- Note: access to subprograms are not permitted in Ada 83 mode
2930 -- N_Access_Function_Definition
2931 -- Sloc points to ACCESS
2932 -- Null_Exclusion_Present (Flag11)
2933 -- Null_Exclusion_In_Return_Present (Flag14)
2934 -- Protected_Present (Flag6)
2935 -- Parameter_Specifications (List3) (set to No_List if no formal part)
2936 -- Result_Definition (Node4) result subtype (subtype mark or access def)
2938 -- N_Access_Procedure_Definition
2939 -- Sloc points to ACCESS
2940 -- Null_Exclusion_Present (Flag11)
2941 -- Protected_Present (Flag6)
2942 -- Parameter_Specifications (List3) (set to No_List if no formal part)
2944 -----------------------------
2945 -- 3.10 Access Definition --
2946 -----------------------------
2948 -- ACCESS_DEFINITION ::=
2949 -- [NULL_EXCLUSION] access [GENERAL_ACCESS_MODIFIER] SUBTYPE_MARK
2950 -- | ACCESS_TO_SUBPROGRAM_DEFINITION
2952 -- Note: access to subprograms are an Ada 2005 (AI-254) extension
2954 -- N_Access_Definition
2955 -- Sloc points to ACCESS
2956 -- Null_Exclusion_Present (Flag11)
2957 -- All_Present (Flag15)
2958 -- Constant_Present (Flag17)
2959 -- Subtype_Mark (Node4)
2960 -- Access_To_Subprogram_Definition (Node3) (set to Empty if not present)
2962 -----------------------------------------
2963 -- 3.10.1 Incomplete Type Declaration --
2964 -----------------------------------------
2966 -- INCOMPLETE_TYPE_DECLARATION ::=
2967 -- type DEFINING_IDENTIFIER [DISCRIMINANT_PART] [IS TAGGED];
2969 -- N_Incomplete_Type_Declaration
2970 -- Sloc points to TYPE
2971 -- Defining_Identifier (Node1)
2972 -- Discriminant_Specifications (List4) (set to No_List if no
2973 -- discriminant part, or if the discriminant part is an
2974 -- unknown discriminant part)
2975 -- Unknown_Discriminants_Present (Flag13) set if (<>) discriminant
2976 -- Tagged_Present (Flag15)
2978 ----------------------------
2979 -- 3.11 Declarative Part --
2980 ----------------------------
2982 -- DECLARATIVE_PART ::= {DECLARATIVE_ITEM}
2984 -- Note: although the parser enforces the syntactic requirement that
2985 -- a declarative part can contain only declarations, the semantic
2986 -- processing may add statements to the list of actions in a
2987 -- declarative part, so the code generator should be prepared
2988 -- to accept a statement in this position.
2990 ----------------------------
2991 -- 3.11 Declarative Item --
2992 ----------------------------
2994 -- DECLARATIVE_ITEM ::= BASIC_DECLARATIVE_ITEM | BODY
2996 ----------------------------------
2997 -- 3.11 Basic Declarative Item --
2998 ----------------------------------
3000 -- BASIC_DECLARATIVE_ITEM ::=
3001 -- BASIC_DECLARATION | REPRESENTATION_CLAUSE | USE_CLAUSE
3007 -- BODY ::= PROPER_BODY | BODY_STUB
3009 -----------------------
3010 -- 3.11 Proper Body --
3011 -----------------------
3014 -- SUBPROGRAM_BODY | PACKAGE_BODY | TASK_BODY | PROTECTED_BODY
3021 -- DIRECT_NAME | EXPLICIT_DEREFERENCE
3022 -- | INDEXED_COMPONENT | SLICE
3023 -- | SELECTED_COMPONENT | ATTRIBUTE_REFERENCE
3024 -- | TYPE_CONVERSION | FUNCTION_CALL
3025 -- | CHARACTER_LITERAL
3027 ----------------------
3028 -- 4.1 Direct Name --
3029 ----------------------
3031 -- DIRECT_NAME ::= IDENTIFIER | OPERATOR_SYMBOL
3037 -- PREFIX ::= NAME | IMPLICIT_DEREFERENCE
3039 -------------------------------
3040 -- 4.1 Explicit Dereference --
3041 -------------------------------
3043 -- EXPLICIT_DEREFERENCE ::= NAME . all
3045 -- N_Explicit_Dereference
3046 -- Sloc points to ALL
3048 -- Actual_Designated_Subtype (Node4-Sem)
3049 -- plus fields for expression
3051 -------------------------------
3052 -- 4.1 Implicit Dereference --
3053 -------------------------------
3055 -- IMPLICIT_DEREFERENCE ::= NAME
3057 ------------------------------
3058 -- 4.1.1 Indexed Component --
3059 ------------------------------
3061 -- INDEXED_COMPONENT ::= PREFIX (EXPRESSION {, EXPRESSION})
3063 -- Note: the parser may generate this node in some situations where it
3064 -- should be a function call. The semantic pass must correct this
3065 -- misidentification (which is inevitable at the parser level).
3067 -- N_Indexed_Component
3068 -- Sloc contains a copy of the Sloc value of the Prefix
3070 -- Expressions (List1)
3071 -- plus fields for expression
3073 -- Note: if any of the subscripts requires a range check, then the
3074 -- Do_Range_Check flag is set on the corresponding expression, with
3075 -- the index type being determined from the type of the Prefix, which
3076 -- references the array being indexed.
3078 -- Note: in a fully analyzed and expanded indexed component node, and
3079 -- hence in any such node that gigi sees, if the prefix is an access
3080 -- type, then an explicit dereference operation has been inserted.
3086 -- SLICE ::= PREFIX (DISCRETE_RANGE)
3088 -- Note: an implicit subtype is created to describe the resulting
3089 -- type, so that the bounds of this type are the bounds of the slice.
3092 -- Sloc points to first token of prefix
3094 -- Discrete_Range (Node4)
3095 -- plus fields for expression
3097 -------------------------------
3098 -- 4.1.3 Selected Component --
3099 -------------------------------
3101 -- SELECTED_COMPONENT ::= PREFIX . SELECTOR_NAME
3103 -- Note: selected components that are semantically expanded names get
3104 -- changed during semantic processing into the separate N_Expanded_Name
3105 -- node. See description of this node in the section on semantic nodes.
3107 -- N_Selected_Component
3108 -- Sloc points to period
3110 -- Selector_Name (Node2)
3111 -- Associated_Node (Node4-Sem)
3112 -- Do_Discriminant_Check (Flag13-Sem)
3113 -- Is_In_Discriminant_Check (Flag11-Sem)
3114 -- plus fields for expression
3116 --------------------------
3117 -- 4.1.3 Selector Name --
3118 --------------------------
3120 -- SELECTOR_NAME ::= IDENTIFIER | CHARACTER_LITERAL | OPERATOR_SYMBOL
3122 --------------------------------
3123 -- 4.1.4 Attribute Reference --
3124 --------------------------------
3126 -- ATTRIBUTE_REFERENCE ::= PREFIX ' ATTRIBUTE_DESIGNATOR
3128 -- Note: the syntax is quite ambiguous at this point. Consider:
3130 -- A'Length (X) X is part of the attribute designator
3131 -- A'Pos (X) X is an explicit actual parameter of function A'Pos
3132 -- A'Class (X) X is the expression of a type conversion
3134 -- It would be possible for the parser to distinguish these cases
3135 -- by looking at the attribute identifier. However, that would mean
3136 -- more work in introducing new implementation defined attributes,
3137 -- and also it would mean that special processing for attributes
3138 -- would be scattered around, instead of being centralized in the
3139 -- semantic routine that handles an N_Attribute_Reference node.
3140 -- Consequently, the parser in all the above cases stores the
3141 -- expression (X in these examples) as a single element list in
3142 -- in the Expressions field of the N_Attribute_Reference node.
3144 -- Similarly, for attributes like Max which take two arguments,
3145 -- we store the two arguments as a two element list in the
3146 -- Expressions field. Of course it is clear at parse time that
3147 -- this case is really a function call with an attribute as the
3148 -- prefix, but it turns out to be convenient to handle the two
3149 -- argument case in a similar manner to the one argument case,
3150 -- and indeed in general the parser will accept any number of
3151 -- expressions in this position and store them as a list in the
3152 -- attribute reference node. This allows for future addition of
3153 -- attributes that take more than two arguments.
3155 -- Note: named associates are not permitted in function calls where
3156 -- the function is an attribute (see RM 6.4(3)) so it is legitimate
3157 -- to skip the normal subprogram argument processing.
3159 -- Note: for the attributes whose designators are technically keywords,
3160 -- i.e. digits, access, delta, range, the Attribute_Name field contains
3161 -- the corresponding name, even though no identifier is involved.
3163 -- Note: the generated code may contain stream attributes applied to
3164 -- limited types for which no stream routines exist officially. In such
3165 -- case, the result is to use the stream attribute for the underlying
3166 -- full type, or in the case of a protected type, the components
3167 -- (including any discriminants) are merely streamed in order.
3169 -- See Exp_Attr for a complete description of which attributes are
3170 -- passed onto Gigi, and which are handled entirely by the front end.
3172 -- Gigi restriction: For the Pos attribute, the prefix cannot be
3173 -- a non-standard enumeration type or a nonzero/zero semantics
3174 -- boolean type, so the value is simply the stored representation.
3176 -- Gigi requirement: For the Mechanism_Code attribute, if the prefix
3177 -- references a subprogram that is a renaming, then the front end must
3178 -- rewrite the attribute to refer directly to the renamed entity.
3180 -- Note: In generated code, the Address and Unrestricted_Access
3181 -- attributes can be applied to any expression, and the meaning is
3182 -- to create an object containing the value (the object is in the
3183 -- current stack frame), and pass the address of this value. If the
3184 -- Must_Be_Byte_Aligned flag is set, then the object whose address
3185 -- is taken must be on a byte (storage unit) boundary, and if it is
3186 -- not (or may not be), then the generated code must create a copy
3187 -- that is byte aligned, and pass the address of this copy.
3189 -- N_Attribute_Reference
3190 -- Sloc points to apostrophe
3192 -- Attribute_Name (Name2) identifier name from attribute designator
3193 -- Expressions (List1) (set to No_List if no associated expressions)
3194 -- Entity (Node4-Sem) used if the attribute yields a type
3195 -- Associated_Node (Node4-Sem)
3196 -- Do_Overflow_Check (Flag17-Sem)
3197 -- Redundant_Use (Flag13-Sem)
3198 -- Must_Be_Byte_Aligned (Flag14)
3199 -- plus fields for expression
3201 ---------------------------------
3202 -- 4.1.4 Attribute Designator --
3203 ---------------------------------
3205 -- ATTRIBUTE_DESIGNATOR ::=
3206 -- IDENTIFIER [(static_EXPRESSION)]
3207 -- | access | delta | digits
3209 -- There is no explicit node in the tree for an attribute designator.
3210 -- Instead the Attribute_Name and Expressions fields of the parent
3211 -- node (N_Attribute_Reference node) hold the information.
3213 -- Note: if ACCESS, DELTA or DIGITS appears in an attribute
3214 -- designator, then they are treated as identifiers internally
3215 -- rather than the keywords of the same name.
3217 --------------------------------------
3218 -- 4.1.4 Range Attribute Reference --
3219 --------------------------------------
3221 -- RANGE_ATTRIBUTE_REFERENCE ::= PREFIX ' RANGE_ATTRIBUTE_DESIGNATOR
3223 -- A range attribute reference is represented in the tree using the
3224 -- normal N_Attribute_Reference node.
3226 ---------------------------------------
3227 -- 4.1.4 Range Attribute Designator --
3228 ---------------------------------------
3230 -- RANGE_ATTRIBUTE_DESIGNATOR ::= Range [(static_EXPRESSION)]
3232 -- A range attribute designator is represented in the tree using the
3233 -- normal N_Attribute_Reference node.
3235 --------------------
3237 --------------------
3240 -- RECORD_AGGREGATE | EXTENSION_AGGREGATE | ARRAY_AGGREGATE
3242 -----------------------------
3243 -- 4.3.1 Record Aggregate --
3244 -----------------------------
3246 -- RECORD_AGGREGATE ::= (RECORD_COMPONENT_ASSOCIATION_LIST)
3249 -- Sloc points to left parenthesis
3250 -- Expressions (List1) (set to No_List if none or null record case)
3251 -- Component_Associations (List2) (set to No_List if none)
3252 -- Null_Record_Present (Flag17)
3253 -- Aggregate_Bounds (Node3-Sem)
3254 -- Associated_Node (Node4-Sem)
3255 -- Static_Processing_OK (Flag4-Sem)
3256 -- Compile_Time_Known_Aggregate (Flag18-Sem)
3257 -- Expansion_Delayed (Flag11-Sem)
3258 -- Has_Self_Reference (Flag13-Sem)
3259 -- plus fields for expression
3261 -- Note: this structure is used for both record and array aggregates
3262 -- since the two cases are not separable by the parser. The parser
3263 -- makes no attempt to enforce consistency here, so it is up to the
3264 -- semantic phase to make sure that the aggregate is consistent (i.e.
3265 -- that it is not a "half-and-half" case that mixes record and array
3266 -- syntax. In particular, for a record aggregate, the expressions
3267 -- field will be set if there are positional associations.
3269 -- Note: N_Aggregate is not used for all aggregates; in particular,
3270 -- there is a separate node kind for extension aggregates.
3272 -- Note: gigi/gcc can handle array aggregates correctly providing that
3273 -- they are entirely positional, and the array subtype involved has a
3274 -- known at compile time length and is not bit packed, or a convention
3275 -- Fortran array with more than one dimension. If these conditions
3276 -- are not met, then the front end must translate the aggregate into
3277 -- an appropriate set of assignments into a temporary.
3279 -- Note: for the record aggregate case, gigi/gcc can handle all cases
3280 -- of record aggregates, including those for packed, and rep-claused
3281 -- records, and also variant records, providing that there are no
3282 -- variable length fields whose size is not known at runtime, and
3283 -- providing that the aggregate is presented in fully named form.
3285 ----------------------------------------------
3286 -- 4.3.1 Record Component Association List --
3287 ----------------------------------------------
3289 -- RECORD_COMPONENT_ASSOCIATION_LIST ::=
3290 -- RECORD_COMPONENT_ASSOCIATION {, RECORD_COMPONENT_ASSOCIATION}
3293 -- There is no explicit node in the tree for a record component
3294 -- association list. Instead the Null_Record_Present flag is set in
3295 -- the parent node for the NULL RECORD case.
3297 ------------------------------------------------------
3298 -- 4.3.1 Record Component Association (also 4.3.3) --
3299 ------------------------------------------------------
3301 -- RECORD_COMPONENT_ASSOCIATION ::=
3302 -- [COMPONENT_CHOICE_LIST =>] EXPRESSION
3304 -- N_Component_Association
3305 -- Sloc points to first selector name
3307 -- Loop_Actions (List2-Sem)
3308 -- Expression (Node3)
3309 -- Box_Present (Flag15)
3311 -- Note: this structure is used for both record component associations
3312 -- and array component associations, since the two cases aren't always
3313 -- separable by the parser. The choices list may represent either a
3314 -- list of selector names in the record aggregate case, or a list of
3315 -- discrete choices in the array aggregate case or an N_Others_Choice
3316 -- node (which appears as a singleton list). Box_Present gives support
3317 -- to Ada 2005 (AI-287).
3319 ----------------------------------
3320 -- 4.3.1 Component Choice List --
3321 ----------------------------------
3323 -- COMPONENT_CHOICE_LIST ::=
3324 -- component_SELECTOR_NAME {| component_SELECTOR_NAME}
3327 -- The entries of a component choice list appear in the Choices list of
3328 -- the associated N_Component_Association, as either selector names, or
3329 -- as an N_Others_Choice node.
3331 --------------------------------
3332 -- 4.3.2 Extension Aggregate --
3333 --------------------------------
3335 -- EXTENSION_AGGREGATE ::=
3336 -- (ANCESTOR_PART with RECORD_COMPONENT_ASSOCIATION_LIST)
3338 -- Note: extension aggregates are not permitted in Ada 83 mode
3340 -- N_Extension_Aggregate
3341 -- Sloc points to left parenthesis
3342 -- Ancestor_Part (Node3)
3343 -- Associated_Node (Node4-Sem)
3344 -- Expressions (List1) (set to No_List if none or null record case)
3345 -- Component_Associations (List2) (set to No_List if none)
3346 -- Null_Record_Present (Flag17)
3347 -- Expansion_Delayed (Flag11-Sem)
3348 -- Has_Self_Reference (Flag13-Sem)
3349 -- plus fields for expression
3351 --------------------------
3352 -- 4.3.2 Ancestor Part --
3353 --------------------------
3355 -- ANCESTOR_PART ::= EXPRESSION | SUBTYPE_MARK
3357 ----------------------------
3358 -- 4.3.3 Array Aggregate --
3359 ----------------------------
3361 -- ARRAY_AGGREGATE ::=
3362 -- POSITIONAL_ARRAY_AGGREGATE | NAMED_ARRAY_AGGREGATE
3364 ---------------------------------------
3365 -- 4.3.3 Positional Array Aggregate --
3366 ---------------------------------------
3368 -- POSITIONAL_ARRAY_AGGREGATE ::=
3369 -- (EXPRESSION, EXPRESSION {, EXPRESSION})
3370 -- | (EXPRESSION {, EXPRESSION}, others => EXPRESSION)
3372 -- See Record_Aggregate (4.3.1) for node structure
3374 ----------------------------------
3375 -- 4.3.3 Named Array Aggregate --
3376 ----------------------------------
3378 -- NAMED_ARRAY_AGGREGATE ::=
3379 -- | (ARRAY_COMPONENT_ASSOCIATION {, ARRAY_COMPONENT_ASSOCIATION})
3381 -- See Record_Aggregate (4.3.1) for node structure
3383 ----------------------------------------
3384 -- 4.3.3 Array Component Association --
3385 ----------------------------------------
3387 -- ARRAY_COMPONENT_ASSOCIATION ::=
3388 -- DISCRETE_CHOICE_LIST => EXPRESSION
3390 -- See Record_Component_Association (4.3.1) for node structure
3392 --------------------------------------------------
3393 -- 4.4 Expression/Relation/Term/Factor/Primary --
3394 --------------------------------------------------
3397 -- RELATION {and RELATION} | RELATION {and then RELATION}
3398 -- | RELATION {or RELATION} | RELATION {or else RELATION}
3399 -- | RELATION {xor RELATION}
3402 -- SIMPLE_EXPRESSION [RELATIONAL_OPERATOR SIMPLE_EXPRESSION]
3403 -- | SIMPLE_EXPRESSION [not] in RANGE
3404 -- | SIMPLE_EXPRESSION [not] in SUBTYPE_MARK
3406 -- SIMPLE_EXPRESSION ::=
3407 -- [UNARY_ADDING_OPERATOR] TERM {BINARY_ADDING_OPERATOR TERM}
3409 -- TERM ::= FACTOR {MULTIPLYING_OPERATOR FACTOR}
3411 -- FACTOR ::= PRIMARY [** PRIMARY] | abs PRIMARY | not PRIMARY
3413 -- No nodes are generated for any of these constructs. Instead, the
3414 -- node for the operator appears directly. When we refer to an
3415 -- expression in this description, we mean any of the possible
3416 -- constituent components of an expression (e.g. identifier is
3417 -- an example of an expression).
3424 -- NUMERIC_LITERAL | null
3425 -- | STRING_LITERAL | AGGREGATE
3426 -- | NAME | QUALIFIED_EXPRESSION
3427 -- | ALLOCATOR | (EXPRESSION)
3429 -- Usually there is no explicit node in the tree for primary. Instead
3430 -- the constituent (e.g. AGGREGATE) appears directly. There are two
3431 -- exceptions. First, there is an explicit node for a null primary.
3434 -- Sloc points to NULL
3435 -- plus fields for expression
3437 -- Second, the case of (EXPRESSION) is handled specially. Ada requires
3438 -- that the parser keep track of which subexpressions are enclosed
3439 -- in parentheses, and how many levels of parentheses are used. This
3440 -- information is required for optimization purposes, and also for
3441 -- some semantic checks (e.g. (((1))) in a procedure spec does not
3442 -- conform with ((((1)))) in the body).
3444 -- The parentheses are recorded by keeping a Paren_Count field in every
3445 -- subexpression node (it is actually present in all nodes, but only
3446 -- used in subexpression nodes). This count records the number of
3447 -- levels of parentheses. If the number of levels in the source exceeds
3448 -- the maximum accommodated by this count, then the count is simply left
3449 -- at the maximum value. This means that there are some pathological
3450 -- cases of failure to detect conformance failures (e.g. an expression
3451 -- with 500 levels of parens will conform with one with 501 levels),
3452 -- but we do not need to lose sleep over this.
3454 -- Historical note: in versions of GNAT prior to 1.75, there was a node
3455 -- type N_Parenthesized_Expression used to accurately record unlimited
3456 -- numbers of levels of parentheses. However, it turned out to be a
3457 -- real nuisance to have to take into account the possible presence of
3458 -- this node during semantic analysis, since basically parentheses have
3459 -- zero relevance to semantic analysis.
3461 -- Note: the level of parentheses always present in things like
3462 -- aggregates does not count, only the parentheses in the primary
3463 -- (EXPRESSION) affect the setting of the Paren_Count field.
3465 -- 2nd Note: the contents of the Expression field must be ignored (i.e.
3466 -- treated as though it were Empty) if No_Initialization is set True.
3468 --------------------------------------
3469 -- 4.5 Short Circuit Control Forms --
3470 --------------------------------------
3473 -- RELATION {and then RELATION} | RELATION {or else RELATION}
3475 -- Gigi restriction: For both these control forms, the operand and
3476 -- result types are always Standard.Boolean. The expander inserts the
3477 -- required conversion operations where needed to ensure this is the
3481 -- Sloc points to AND of AND THEN
3482 -- Left_Opnd (Node2)
3483 -- Right_Opnd (Node3)
3484 -- Actions (List1-Sem)
3485 -- plus fields for expression
3488 -- Sloc points to OR of OR ELSE
3489 -- Left_Opnd (Node2)
3490 -- Right_Opnd (Node3)
3491 -- Actions (List1-Sem)
3492 -- plus fields for expression
3494 -- Note: The Actions field is used to hold actions associated with
3495 -- the right hand operand. These have to be treated specially since
3496 -- they are not unconditionally executed. See Insert_Actions for a
3497 -- more detailed description of how these actions are handled.
3499 ---------------------------
3500 -- 4.5 Membership Tests --
3501 ---------------------------
3504 -- SIMPLE_EXPRESSION [not] in RANGE
3505 -- | SIMPLE_EXPRESSION [not] in SUBTYPE_MARK
3507 -- Note: although the grammar above allows only a range or a subtype
3508 -- mark, the parser in fact will accept any simple expression in place
3509 -- of a subtype mark. This means that the semantic analyzer must be able
3510 -- to deal with, and diagnose a simple expression other than a name for
3511 -- the right operand. This simplifies error recovery in the parser.
3513 -- If extensions are enabled, the grammar is as follows:
3516 -- SIMPLE_EXPRESSION [not] in SET_ALTERNATIVE {| SET_ALTERNATIVE}
3518 -- SET_ALTERNATIVE ::= RANGE | SUBTYPE_MARK
3520 -- The Alternatives field below is present only if there is more than
3521 -- one Set_Alternative present, in which case Right_Opnd is set to
3522 -- Empty, and Alternatives contains the list of alternatives. In the
3523 -- tree passed to the back end, Alternatives is always No_List, and
3524 -- Right_Opnd is set (i.e. the expansion circuitry expands out the
3525 -- complex set membership case using simple membership operations).
3528 -- Sloc points to IN
3529 -- Left_Opnd (Node2)
3530 -- Right_Opnd (Node3)
3531 -- Alternatives (List4) (set to No_List if only one set alternative)
3532 -- plus fields for expression
3535 -- Sloc points to NOT of NOT IN
3536 -- Left_Opnd (Node2)
3537 -- Right_Opnd (Node3)
3538 -- Alternatives (List4) (set to No_List if only one set alternative)
3539 -- plus fields for expression
3541 --------------------
3543 --------------------
3545 -- LOGICAL_OPERATOR ::= and | or | xor
3547 -- RELATIONAL_OPERATOR ::= = | /= | < | <= | > | >=
3549 -- BINARY_ADDING_OPERATOR ::= + | - | &
3551 -- UNARY_ADDING_OPERATOR ::= + | -
3553 -- MULTIPLYING_OPERATOR ::= * | / | mod | rem
3555 -- HIGHEST_PRECEDENCE_OPERATOR ::= ** | abs | not
3557 -- Sprint syntax if Treat_Fixed_As_Integer is set:
3564 -- Gigi restriction: For * / mod rem with fixed-point operands, Gigi
3565 -- will only be given nodes with the Treat_Fixed_As_Integer flag set.
3566 -- All handling of smalls for multiplication and division is handled
3567 -- by the front end (mod and rem result only from expansion). Gigi
3568 -- thus never needs to worry about small values (for other operators
3569 -- operating on fixed-point, e.g. addition, the small value does not
3570 -- have any semantic effect anyway, these are always integer operations.
3572 -- Gigi restriction: For all operators taking Boolean operands, the
3573 -- type is always Standard.Boolean. The expander inserts the required
3574 -- conversion operations where needed to ensure this is the case.
3577 -- Sloc points to AND
3578 -- Do_Length_Check (Flag4-Sem)
3579 -- plus fields for binary operator
3580 -- plus fields for expression
3583 -- Sloc points to OR
3584 -- Do_Length_Check (Flag4-Sem)
3585 -- plus fields for binary operator
3586 -- plus fields for expression
3589 -- Sloc points to XOR
3590 -- Do_Length_Check (Flag4-Sem)
3591 -- plus fields for binary operator
3592 -- plus fields for expression
3596 -- plus fields for binary operator
3597 -- plus fields for expression
3600 -- Sloc points to /=
3601 -- plus fields for binary operator
3602 -- plus fields for expression
3606 -- plus fields for binary operator
3607 -- plus fields for expression
3610 -- Sloc points to <=
3611 -- plus fields for binary operator
3612 -- plus fields for expression
3616 -- plus fields for binary operator
3617 -- plus fields for expression
3620 -- Sloc points to >=
3621 -- plus fields for binary operator
3622 -- plus fields for expression
3625 -- Sloc points to + (binary)
3626 -- plus fields for binary operator
3627 -- plus fields for expression
3630 -- Sloc points to - (binary)
3631 -- plus fields for binary operator
3632 -- plus fields for expression
3636 -- Is_Component_Left_Opnd (Flag13-Sem)
3637 -- Is_Component_Right_Opnd (Flag14-Sem)
3638 -- plus fields for binary operator
3639 -- plus fields for expression
3643 -- Treat_Fixed_As_Integer (Flag14-Sem)
3644 -- Rounded_Result (Flag18-Sem)
3645 -- plus fields for binary operator
3646 -- plus fields for expression
3650 -- Treat_Fixed_As_Integer (Flag14-Sem)
3651 -- Do_Division_Check (Flag13-Sem)
3652 -- Rounded_Result (Flag18-Sem)
3653 -- plus fields for binary operator
3654 -- plus fields for expression
3657 -- Sloc points to MOD
3658 -- Treat_Fixed_As_Integer (Flag14-Sem)
3659 -- Do_Division_Check (Flag13-Sem)
3660 -- plus fields for binary operator
3661 -- plus fields for expression
3664 -- Sloc points to REM
3665 -- Treat_Fixed_As_Integer (Flag14-Sem)
3666 -- Do_Division_Check (Flag13-Sem)
3667 -- plus fields for binary operator
3668 -- plus fields for expression
3671 -- Is_Power_Of_2_For_Shift (Flag13-Sem)
3672 -- Sloc points to **
3673 -- plus fields for binary operator
3674 -- plus fields for expression
3677 -- Sloc points to + (unary)
3678 -- plus fields for unary operator
3679 -- plus fields for expression
3682 -- Sloc points to - (unary)
3683 -- plus fields for unary operator
3684 -- plus fields for expression
3687 -- Sloc points to ABS
3688 -- plus fields for unary operator
3689 -- plus fields for expression
3692 -- Sloc points to NOT
3693 -- plus fields for unary operator
3694 -- plus fields for expression
3696 -- See also shift operators in section B.2
3698 -- Note on fixed-point operations passed to Gigi: For adding operators,
3699 -- the semantics is to treat these simply as integer operations, with
3700 -- the small values being ignored (the bounds are already stored in
3701 -- units of small, so that constraint checking works as usual). For the
3702 -- case of multiply/divide/rem/mod operations, Gigi will only see fixed
3703 -- point operands if the Treat_Fixed_As_Integer flag is set and will
3704 -- thus treat these nodes in identical manner, ignoring small values.
3706 --------------------------
3707 -- 4.6 Type Conversion --
3708 --------------------------
3710 -- TYPE_CONVERSION ::=
3711 -- SUBTYPE_MARK (EXPRESSION) | SUBTYPE_MARK (NAME)
3713 -- In the (NAME) case, the name is stored as the expression
3715 -- Note: the parser never generates a type conversion node, since it
3716 -- looks like an indexed component which is generated by preference.
3717 -- The semantic pass must correct this misidentification.
3719 -- Gigi handles conversions that involve no change in the root type,
3720 -- and also all conversions from integer to floating-point types.
3721 -- Conversions from floating-point to integer are only handled in
3722 -- the case where Float_Truncate flag set. Other conversions from
3723 -- floating-point to integer (involving rounding) and all conversions
3724 -- involving fixed-point types are handled by the expander.
3726 -- Sprint syntax if Float_Truncate set: X^(Y)
3727 -- Sprint syntax if Conversion_OK set X?(Y)
3728 -- Sprint syntax if both flags set X?^(Y)
3730 -- Note: If either the operand or result type is fixed-point, Gigi will
3731 -- only see a type conversion node with Conversion_OK set. The front end
3732 -- takes care of all handling of small's for fixed-point conversions.
3734 -- N_Type_Conversion
3735 -- Sloc points to first token of subtype mark
3736 -- Subtype_Mark (Node4)
3737 -- Expression (Node3)
3738 -- Do_Tag_Check (Flag13-Sem)
3739 -- Do_Length_Check (Flag4-Sem)
3740 -- Do_Overflow_Check (Flag17-Sem)
3741 -- Float_Truncate (Flag11-Sem)
3742 -- Rounded_Result (Flag18-Sem)
3743 -- Conversion_OK (Flag14-Sem)
3744 -- plus fields for expression
3746 -- Note: if a range check is required, then the Do_Range_Check flag
3747 -- is set in the Expression with the check being done against the
3748 -- target type range (after the base type conversion, if any).
3750 -------------------------------
3751 -- 4.7 Qualified Expression --
3752 -------------------------------
3754 -- QUALIFIED_EXPRESSION ::=
3755 -- SUBTYPE_MARK ' (EXPRESSION) | SUBTYPE_MARK ' AGGREGATE
3757 -- Note: the parentheses in the (EXPRESSION) case are deemed to enclose
3758 -- the expression, so the Expression field of this node always points
3759 -- to a parenthesized expression in this case (i.e. Paren_Count will
3760 -- always be non-zero for the referenced expression if it is not an
3763 -- N_Qualified_Expression
3764 -- Sloc points to apostrophe
3765 -- Subtype_Mark (Node4)
3766 -- Expression (Node3) expression or aggregate
3767 -- plus fields for expression
3769 --------------------
3771 --------------------
3774 -- new [NULL_EXCLUSION] SUBTYPE_INDICATION | new QUALIFIED_EXPRESSION
3776 -- Sprint syntax (when storage pool present)
3777 -- new xxx (storage_pool = pool)
3780 -- Sloc points to NEW
3781 -- Expression (Node3) subtype indication or qualified expression
3782 -- Storage_Pool (Node1-Sem)
3783 -- Procedure_To_Call (Node2-Sem)
3784 -- Coextensions (Elist4-Sem)
3785 -- Null_Exclusion_Present (Flag11)
3786 -- No_Initialization (Flag13-Sem)
3787 -- Is_Static_Coextension (Flag14-Sem)
3788 -- Do_Storage_Check (Flag17-Sem)
3789 -- Is_Dynamic_Coextension (Flag18-Sem)
3790 -- plus fields for expression
3792 -- Note: like all nodes, the N_Allocator has the Comes_From_Source flag.
3793 -- This flag has a special function in conjunction with the restriction
3794 -- No_Implicit_Heap_Allocations, which will be triggered if this flag
3795 -- is not set. This means that if a source allocator is replaced with
3796 -- a constructed allocator, the Comes_From_Source flag should be copied
3797 -- to the newly created allocator.
3799 ---------------------------------
3800 -- 5.1 Sequence Of Statements --
3801 ---------------------------------
3803 -- SEQUENCE_OF_STATEMENTS ::= STATEMENT {STATEMENT}
3805 -- Note: Although the parser will not accept a declaration as a
3806 -- statement, the semantic analyzer may insert declarations (e.g.
3807 -- declarations of implicit types needed for execution of other
3808 -- statements) into a sequence of statements, so the code generator
3809 -- should be prepared to accept a declaration where a statement is
3810 -- expected. Note also that pragmas can appear as statements.
3812 --------------------
3814 --------------------
3817 -- {LABEL} SIMPLE_STATEMENT | {LABEL} COMPOUND_STATEMENT
3819 -- There is no explicit node in the tree for a statement. Instead, the
3820 -- individual statement appears directly. Labels are treated as a
3821 -- kind of statement, i.e. they are linked into a statement list at
3822 -- the point they appear, so the labeled statement appears following
3823 -- the label or labels in the statement list.
3825 ---------------------------
3826 -- 5.1 Simple Statement --
3827 ---------------------------
3829 -- SIMPLE_STATEMENT ::= NULL_STATEMENT
3830 -- | ASSIGNMENT_STATEMENT | EXIT_STATEMENT
3831 -- | GOTO_STATEMENT | PROCEDURE_CALL_STATEMENT
3832 -- | SIMPLE_RETURN_STATEMENT | ENTRY_CALL_STATEMENT
3833 -- | REQUEUE_STATEMENT | DELAY_STATEMENT
3834 -- | ABORT_STATEMENT | RAISE_STATEMENT
3837 -----------------------------
3838 -- 5.1 Compound Statement --
3839 -----------------------------
3841 -- COMPOUND_STATEMENT ::=
3842 -- IF_STATEMENT | CASE_STATEMENT
3843 -- | LOOP_STATEMENT | BLOCK_STATEMENT
3844 -- | EXTENDED_RETURN_STATEMENT
3845 -- | ACCEPT_STATEMENT | SELECT_STATEMENT
3847 -------------------------
3848 -- 5.1 Null Statement --
3849 -------------------------
3851 -- NULL_STATEMENT ::= null;
3854 -- Sloc points to NULL
3860 -- LABEL ::= <<label_STATEMENT_IDENTIFIER>>
3862 -- Note that the occurrence of a label is not a defining identifier,
3863 -- but rather a referencing occurrence. The defining occurrence is
3864 -- in the implicit label declaration which occurs in the innermost
3868 -- Sloc points to <<
3869 -- Identifier (Node1) direct name of statement identifier
3870 -- Exception_Junk (Flag8-Sem)
3872 -------------------------------
3873 -- 5.1 Statement Identifier --
3874 -------------------------------
3876 -- STATEMENT_IDENTIFIER ::= DIRECT_NAME
3878 -- The IDENTIFIER of a STATEMENT_IDENTIFIER shall be an identifier
3879 -- (not an OPERATOR_SYMBOL)
3881 -------------------------------
3882 -- 5.2 Assignment Statement --
3883 -------------------------------
3885 -- ASSIGNMENT_STATEMENT ::=
3886 -- variable_NAME := EXPRESSION;
3888 -- N_Assignment_Statement
3889 -- Sloc points to :=
3891 -- Expression (Node3)
3892 -- Do_Tag_Check (Flag13-Sem)
3893 -- Do_Length_Check (Flag4-Sem)
3894 -- Forwards_OK (Flag5-Sem)
3895 -- Backwards_OK (Flag6-Sem)
3896 -- No_Ctrl_Actions (Flag7-Sem)
3897 -- Componentwise_Assignment (Flag14-Sem)
3899 -- Note: if a range check is required, then the Do_Range_Check flag
3900 -- is set in the Expression (right hand side), with the check being
3901 -- done against the type of the Name (left hand side).
3903 -- Note: the back end places some restrictions on the form of the
3904 -- Expression field. If the object being assigned to is Atomic, then
3905 -- the Expression may not have the form of an aggregate (since this
3906 -- might cause the back end to generate separate assignments). In this
3907 -- case the front end must generate an extra temporary and initialize
3908 -- this temporary as required (the temporary itself is not atomic).
3910 -----------------------
3911 -- 5.3 If Statement --
3912 -----------------------
3915 -- if CONDITION then
3916 -- SEQUENCE_OF_STATEMENTS
3917 -- {elsif CONDITION then
3918 -- SEQUENCE_OF_STATEMENTS}
3920 -- SEQUENCE_OF_STATEMENTS]
3923 -- Gigi restriction: This expander ensures that the type of the
3924 -- Condition fields is always Standard.Boolean, even if the type
3925 -- in the source is some non-standard boolean type.
3928 -- Sloc points to IF
3929 -- Condition (Node1)
3930 -- Then_Statements (List2)
3931 -- Elsif_Parts (List3) (set to No_List if none present)
3932 -- Else_Statements (List4) (set to No_List if no else part present)
3933 -- End_Span (Uint5) (set to No_Uint if expander generated)
3936 -- Sloc points to ELSIF
3937 -- Condition (Node1)
3938 -- Then_Statements (List2)
3939 -- Condition_Actions (List3-Sem)
3941 --------------------
3943 --------------------
3945 -- CONDITION ::= boolean_EXPRESSION
3947 -------------------------
3948 -- 5.4 Case Statement --
3949 -------------------------
3951 -- CASE_STATEMENT ::=
3952 -- case EXPRESSION is
3953 -- CASE_STATEMENT_ALTERNATIVE
3954 -- {CASE_STATEMENT_ALTERNATIVE}
3957 -- Note: the Alternatives can contain pragmas. These only occur at
3958 -- the start of the list, since any pragmas occurring after the first
3959 -- alternative are absorbed into the corresponding statement sequence.
3962 -- Sloc points to CASE
3963 -- Expression (Node3)
3964 -- Alternatives (List4)
3965 -- End_Span (Uint5) (set to No_Uint if expander generated)
3967 -------------------------------------
3968 -- 5.4 Case Statement Alternative --
3969 -------------------------------------
3971 -- CASE_STATEMENT_ALTERNATIVE ::=
3972 -- when DISCRETE_CHOICE_LIST =>
3973 -- SEQUENCE_OF_STATEMENTS
3975 -- N_Case_Statement_Alternative
3976 -- Sloc points to WHEN
3977 -- Discrete_Choices (List4)
3978 -- Statements (List3)
3980 -------------------------
3981 -- 5.5 Loop Statement --
3982 -------------------------
3984 -- LOOP_STATEMENT ::=
3985 -- [loop_STATEMENT_IDENTIFIER :]
3986 -- [ITERATION_SCHEME] loop
3987 -- SEQUENCE_OF_STATEMENTS
3988 -- end loop [loop_IDENTIFIER];
3990 -- Note: The occurrence of a loop label is not a defining identifier
3991 -- but rather a referencing occurrence. The defining occurrence is in
3992 -- the implicit label declaration which occurs in the innermost
3995 -- Note: there is always a loop statement identifier present in
3996 -- the tree, even if none was given in the source. In the case where
3997 -- no loop identifier is given in the source, the parser creates
3998 -- a name of the form _Loop_n, where n is a decimal integer (the
3999 -- two underlines ensure that the loop names created in this manner
4000 -- do not conflict with any user defined identifiers), and the flag
4001 -- Has_Created_Identifier is set to True. The only exception to the
4002 -- rule that all loop statement nodes have identifiers occurs for
4003 -- loops constructed by the expander, and the semantic analyzer will
4004 -- create and supply dummy loop identifiers in these cases.
4007 -- Sloc points to LOOP
4008 -- Identifier (Node1) loop identifier (set to Empty if no identifier)
4009 -- Iteration_Scheme (Node2) (set to Empty if no iteration scheme)
4010 -- Statements (List3)
4011 -- End_Label (Node4)
4012 -- Has_Created_Identifier (Flag15)
4013 -- Is_Null_Loop (Flag16)
4014 -- Suppress_Loop_Warnings (Flag17)
4016 --------------------------
4017 -- 5.5 Iteration Scheme --
4018 --------------------------
4020 -- ITERATION_SCHEME ::=
4021 -- while CONDITION | for LOOP_PARAMETER_SPECIFICATION
4023 -- Gigi restriction: This expander ensures that the type of the
4024 -- Condition field is always Standard.Boolean, even if the type
4025 -- in the source is some non-standard boolean type.
4027 -- N_Iteration_Scheme
4028 -- Sloc points to WHILE or FOR
4029 -- Condition (Node1) (set to Empty if FOR case)
4030 -- Condition_Actions (List3-Sem)
4031 -- Loop_Parameter_Specification (Node4) (set to Empty if WHILE case)
4033 ---------------------------------------
4034 -- 5.5 Loop parameter specification --
4035 ---------------------------------------
4037 -- LOOP_PARAMETER_SPECIFICATION ::=
4038 -- DEFINING_IDENTIFIER in [reverse] DISCRETE_SUBTYPE_DEFINITION
4040 -- N_Loop_Parameter_Specification
4041 -- Sloc points to first identifier
4042 -- Defining_Identifier (Node1)
4043 -- Reverse_Present (Flag15)
4044 -- Discrete_Subtype_Definition (Node4)
4046 --------------------------
4047 -- 5.6 Block Statement --
4048 --------------------------
4050 -- BLOCK_STATEMENT ::=
4051 -- [block_STATEMENT_IDENTIFIER:]
4053 -- DECLARATIVE_PART]
4055 -- HANDLED_SEQUENCE_OF_STATEMENTS
4056 -- end [block_IDENTIFIER];
4058 -- Note that the occurrence of a block identifier is not a defining
4059 -- identifier, but rather a referencing occurrence. The defining
4060 -- occurrence is an E_Block entity declared by the implicit label
4061 -- declaration which occurs in the innermost enclosing block statement
4062 -- or body; the block identifier denotes that E_Block.
4064 -- For block statements that come from source code, there is always a
4065 -- block statement identifier present in the tree, denoting an
4066 -- E_Block. In the case where no block identifier is given in the
4067 -- source, the parser creates a name of the form B_n, where n is a
4068 -- decimal integer, and the flag Has_Created_Identifier is set to
4069 -- True. Blocks constructed by the expander usually have no identifier,
4070 -- and no corresponding entity.
4072 -- Note: the block statement created for an extended return statement
4073 -- has an entity, and this entity is an E_Return_Statement, rather than
4074 -- the usual E_Block.
4076 -- Note: Exception_Junk is set for the wrapping blocks created during
4077 -- local raise optimization (Exp_Ch11.Expand_Local_Exception_Handlers).
4079 -- N_Block_Statement
4080 -- Sloc points to DECLARE or BEGIN
4081 -- Identifier (Node1) block direct name (set to Empty if not present)
4082 -- Declarations (List2) (set to No_List if no DECLARE part)
4083 -- Handled_Statement_Sequence (Node4)
4084 -- Is_Task_Master (Flag5-Sem)
4085 -- Activation_Chain_Entity (Node3-Sem)
4086 -- Has_Created_Identifier (Flag15)
4087 -- Is_Task_Allocation_Block (Flag6)
4088 -- Is_Asynchronous_Call_Block (Flag7)
4089 -- Exception_Junk (Flag8-Sem)
4091 -------------------------
4092 -- 5.7 Exit Statement --
4093 -------------------------
4095 -- EXIT_STATEMENT ::= exit [loop_NAME] [when CONDITION];
4097 -- Gigi restriction: This expander ensures that the type of the
4098 -- Condition field is always Standard.Boolean, even if the type
4099 -- in the source is some non-standard boolean type.
4102 -- Sloc points to EXIT
4103 -- Name (Node2) (set to Empty if no loop name present)
4104 -- Condition (Node1) (set to Empty if no when part present)
4106 -------------------------
4107 -- 5.9 Goto Statement --
4108 -------------------------
4110 -- GOTO_STATEMENT ::= goto label_NAME;
4113 -- Sloc points to GOTO
4115 -- Exception_Junk (Flag8-Sem)
4117 ---------------------------------
4118 -- 6.1 Subprogram Declaration --
4119 ---------------------------------
4121 -- SUBPROGRAM_DECLARATION ::= SUBPROGRAM_SPECIFICATION;
4123 -- N_Subprogram_Declaration
4124 -- Sloc points to FUNCTION or PROCEDURE
4125 -- Specification (Node1)
4126 -- Body_To_Inline (Node3-Sem)
4127 -- Corresponding_Body (Node5-Sem)
4128 -- Parent_Spec (Node4-Sem)
4130 ------------------------------------------
4131 -- 6.1 Abstract Subprogram Declaration --
4132 ------------------------------------------
4134 -- ABSTRACT_SUBPROGRAM_DECLARATION ::=
4135 -- SUBPROGRAM_SPECIFICATION is abstract;
4137 -- N_Abstract_Subprogram_Declaration
4138 -- Sloc points to ABSTRACT
4139 -- Specification (Node1)
4141 -----------------------------------
4142 -- 6.1 Subprogram Specification --
4143 -----------------------------------
4145 -- SUBPROGRAM_SPECIFICATION ::=
4146 -- [[not] overriding]
4147 -- procedure DEFINING_PROGRAM_UNIT_NAME PARAMETER_PROFILE
4148 -- | [[not] overriding]
4149 -- function DEFINING_DESIGNATOR PARAMETER_AND_RESULT_PROFILE
4151 -- Note: there are no separate nodes for the profiles, instead the
4152 -- information appears directly in the following nodes.
4154 -- N_Function_Specification
4155 -- Sloc points to FUNCTION
4156 -- Defining_Unit_Name (Node1) (the designator)
4157 -- Elaboration_Boolean (Node2-Sem)
4158 -- Parameter_Specifications (List3) (set to No_List if no formal part)
4159 -- Null_Exclusion_Present (Flag11)
4160 -- Result_Definition (Node4) for result subtype
4161 -- Generic_Parent (Node5-Sem)
4162 -- Must_Override (Flag14) set if overriding indicator present
4163 -- Must_Not_Override (Flag15) set if not_overriding indicator present
4165 -- N_Procedure_Specification
4166 -- Sloc points to PROCEDURE
4167 -- Defining_Unit_Name (Node1)
4168 -- Elaboration_Boolean (Node2-Sem)
4169 -- Parameter_Specifications (List3) (set to No_List if no formal part)
4170 -- Generic_Parent (Node5-Sem)
4171 -- Null_Present (Flag13) set for null procedure case (Ada 2005 feature)
4172 -- Must_Override (Flag14) set if overriding indicator present
4173 -- Must_Not_Override (Flag15) set if not_overriding indicator present
4175 -- Note: overriding indicator is an Ada 2005 feature
4177 ---------------------
4178 -- 6.1 Designator --
4179 ---------------------
4182 -- [PARENT_UNIT_NAME .] IDENTIFIER | OPERATOR_SYMBOL
4184 -- Designators that are simply identifiers or operator symbols appear
4185 -- directly in the tree in this form. The following node is used only
4186 -- in the case where the designator has a parent unit name component.
4189 -- Sloc points to period
4190 -- Name (Node2) holds the parent unit name. Note that this is always
4191 -- non-Empty, since this node is only used for the case where a
4192 -- parent library unit package name is present.
4193 -- Identifier (Node1)
4195 -- Note that the identifier can also be an operator symbol here
4197 ------------------------------
4198 -- 6.1 Defining Designator --
4199 ------------------------------
4201 -- DEFINING_DESIGNATOR ::=
4202 -- DEFINING_PROGRAM_UNIT_NAME | DEFINING_OPERATOR_SYMBOL
4204 -------------------------------------
4205 -- 6.1 Defining Program Unit Name --
4206 -------------------------------------
4208 -- DEFINING_PROGRAM_UNIT_NAME ::=
4209 -- [PARENT_UNIT_NAME .] DEFINING_IDENTIFIER
4211 -- The parent unit name is present only in the case of a child unit
4212 -- name (permissible only for Ada 95 for a library level unit, i.e.
4213 -- a unit at scope level one). If no such name is present, the defining
4214 -- program unit name is represented simply as the defining identifier.
4215 -- In the child unit case, the following node is used to represent the
4218 -- N_Defining_Program_Unit_Name
4219 -- Sloc points to period
4220 -- Name (Node2) holds the parent unit name. Note that this is always
4221 -- non-Empty, since this node is only used for the case where a
4222 -- parent unit name is present.
4223 -- Defining_Identifier (Node1)
4225 --------------------------
4226 -- 6.1 Operator Symbol --
4227 --------------------------
4229 -- OPERATOR_SYMBOL ::= STRING_LITERAL
4231 -- Note: the fields of the N_Operator_Symbol node are laid out to
4232 -- match the corresponding fields of an N_Character_Literal node. This
4233 -- allows easy conversion of the operator symbol node into a character
4234 -- literal node in the case where a string constant of the form of an
4235 -- operator symbol is scanned out as such, but turns out semantically
4236 -- to be a string literal that is not an operator. For details see
4237 -- Sinfo.CN.Change_Operator_Symbol_To_String_Literal.
4239 -- N_Operator_Symbol
4240 -- Sloc points to literal
4241 -- Chars (Name1) contains the Name_Id for the operator symbol
4242 -- Strval (Str3) Id of string value. This is used if the operator
4243 -- symbol turns out to be a normal string after all.
4244 -- Entity (Node4-Sem)
4245 -- Associated_Node (Node4-Sem)
4246 -- Has_Private_View (Flag11-Sem) set in generic units.
4247 -- Etype (Node5-Sem)
4249 -- Note: the Strval field may be set to No_String for generated
4250 -- operator symbols that are known not to be string literals
4253 -----------------------------------
4254 -- 6.1 Defining Operator Symbol --
4255 -----------------------------------
4257 -- DEFINING_OPERATOR_SYMBOL ::= OPERATOR_SYMBOL
4259 -- A defining operator symbol is an entity, which has additional
4260 -- fields depending on the setting of the Ekind field. These
4261 -- additional fields are defined (and access subprograms declared)
4262 -- in package Einfo.
4264 -- Note: N_Defining_Operator_Symbol is an extended node whose fields
4265 -- are deliberately layed out to match the layout of fields in an
4266 -- ordinary N_Operator_Symbol node allowing for easy alteration of
4267 -- an operator symbol node into a defining operator symbol node.
4268 -- See Sinfo.CN.Change_Operator_Symbol_To_Defining_Operator_Symbol
4269 -- for further details.
4271 -- N_Defining_Operator_Symbol
4272 -- Sloc points to literal
4273 -- Chars (Name1) contains the Name_Id for the operator symbol
4274 -- Next_Entity (Node2-Sem)
4275 -- Scope (Node3-Sem)
4276 -- Etype (Node5-Sem)
4278 ----------------------------
4279 -- 6.1 Parameter Profile --
4280 ----------------------------
4282 -- PARAMETER_PROFILE ::= [FORMAL_PART]
4284 ---------------------------------------
4285 -- 6.1 Parameter and Result Profile --
4286 ---------------------------------------
4288 -- PARAMETER_AND_RESULT_PROFILE ::=
4289 -- [FORMAL_PART] return [NULL_EXCLUSION] SUBTYPE_MARK
4290 -- | [FORMAL_PART] return ACCESS_DEFINITION
4292 -- There is no explicit node in the tree for a parameter and result
4293 -- profile. Instead the information appears directly in the parent.
4295 ----------------------
4296 -- 6.1 Formal part --
4297 ----------------------
4300 -- (PARAMETER_SPECIFICATION {; PARAMETER_SPECIFICATION})
4302 ----------------------------------
4303 -- 6.1 Parameter specification --
4304 ----------------------------------
4306 -- PARAMETER_SPECIFICATION ::=
4307 -- DEFINING_IDENTIFIER_LIST : MODE [NULL_EXCLUSION] SUBTYPE_MARK
4308 -- [:= DEFAULT_EXPRESSION]
4309 -- | DEFINING_IDENTIFIER_LIST : ACCESS_DEFINITION
4310 -- [:= DEFAULT_EXPRESSION]
4312 -- Although the syntax allows multiple identifiers in the list, the
4313 -- semantics is as though successive specifications were given with
4314 -- identical type definition and expression components. To simplify
4315 -- semantic processing, the parser represents a multiple declaration
4316 -- case as a sequence of single Specifications, using the More_Ids and
4317 -- Prev_Ids flags to preserve the original source form as described
4318 -- in the section on "Handling of Defining Identifier Lists".
4320 -- N_Parameter_Specification
4321 -- Sloc points to first identifier
4322 -- Defining_Identifier (Node1)
4323 -- In_Present (Flag15)
4324 -- Out_Present (Flag17)
4325 -- Null_Exclusion_Present (Flag11)
4326 -- Parameter_Type (Node2) subtype mark or access definition
4327 -- Expression (Node3) (set to Empty if no default expression present)
4328 -- Do_Accessibility_Check (Flag13-Sem)
4329 -- More_Ids (Flag5) (set to False if no more identifiers in list)
4330 -- Prev_Ids (Flag6) (set to False if no previous identifiers in list)
4331 -- Default_Expression (Node5-Sem)
4337 -- MODE ::= [in] | in out | out
4339 -- There is no explicit node in the tree for the Mode. Instead the
4340 -- In_Present and Out_Present flags are set in the parent node to
4341 -- record the presence of keywords specifying the mode.
4343 --------------------------
4344 -- 6.3 Subprogram Body --
4345 --------------------------
4347 -- SUBPROGRAM_BODY ::=
4348 -- SUBPROGRAM_SPECIFICATION is
4351 -- HANDLED_SEQUENCE_OF_STATEMENTS
4352 -- end [DESIGNATOR];
4354 -- N_Subprogram_Body
4355 -- Sloc points to FUNCTION or PROCEDURE
4356 -- Specification (Node1)
4357 -- Declarations (List2)
4358 -- Handled_Statement_Sequence (Node4)
4359 -- Activation_Chain_Entity (Node3-Sem)
4360 -- Corresponding_Spec (Node5-Sem)
4361 -- Acts_As_Spec (Flag4-Sem)
4362 -- Bad_Is_Detected (Flag15) used only by parser
4363 -- Do_Storage_Check (Flag17-Sem)
4364 -- Has_Priority_Pragma (Flag6-Sem)
4365 -- Is_Protected_Subprogram_Body (Flag7-Sem)
4366 -- Is_Entry_Barrier_Function (Flag8-Sem)
4367 -- Is_Task_Master (Flag5-Sem)
4368 -- Was_Originally_Stub (Flag13-Sem)
4369 -- Has_Relative_Deadline_Pragma (Flag9-Sem)
4371 -----------------------------------
4372 -- 6.4 Procedure Call Statement --
4373 -----------------------------------
4375 -- PROCEDURE_CALL_STATEMENT ::=
4376 -- procedure_NAME; | procedure_PREFIX ACTUAL_PARAMETER_PART;
4378 -- Note: the reason that a procedure call has expression fields is
4379 -- that it semantically resembles an expression, e.g. overloading is
4380 -- allowed and a type is concocted for semantic processing purposes.
4381 -- Certain of these fields, such as Parens are not relevant, but it
4382 -- is easier to just supply all of them together!
4384 -- N_Procedure_Call_Statement
4385 -- Sloc points to first token of name or prefix
4386 -- Name (Node2) stores name or prefix
4387 -- Parameter_Associations (List3) (set to No_List if no
4388 -- actual parameter part)
4389 -- First_Named_Actual (Node4-Sem)
4390 -- Controlling_Argument (Node1-Sem) (set to Empty if not dispatching)
4391 -- Do_Tag_Check (Flag13-Sem)
4392 -- No_Elaboration_Check (Flag14-Sem)
4393 -- Parameter_List_Truncated (Flag17-Sem)
4394 -- ABE_Is_Certain (Flag18-Sem)
4395 -- plus fields for expression
4397 -- If any IN parameter requires a range check, then the corresponding
4398 -- argument expression has the Do_Range_Check flag set, and the range
4399 -- check is done against the formal type. Note that this argument
4400 -- expression may appear directly in the Parameter_Associations list,
4401 -- or may be a descendent of an N_Parameter_Association node that
4402 -- appears in this list.
4404 ------------------------
4405 -- 6.4 Function Call --
4406 ------------------------
4408 -- FUNCTION_CALL ::=
4409 -- function_NAME | function_PREFIX ACTUAL_PARAMETER_PART
4411 -- Note: the parser may generate an indexed component node or simply
4412 -- a name node instead of a function call node. The semantic pass must
4413 -- correct this misidentification.
4416 -- Sloc points to first token of name or prefix
4417 -- Name (Node2) stores name or prefix
4418 -- Parameter_Associations (List3) (set to No_List if no
4419 -- actual parameter part)
4420 -- First_Named_Actual (Node4-Sem)
4421 -- Controlling_Argument (Node1-Sem) (set to Empty if not dispatching)
4422 -- Is_Expanded_Build_In_Place_Call (Flag11-Sem)
4423 -- Do_Tag_Check (Flag13-Sem)
4424 -- No_Elaboration_Check (Flag14-Sem)
4425 -- Parameter_List_Truncated (Flag17-Sem)
4426 -- ABE_Is_Certain (Flag18-Sem)
4427 -- plus fields for expression
4429 --------------------------------
4430 -- 6.4 Actual Parameter Part --
4431 --------------------------------
4433 -- ACTUAL_PARAMETER_PART ::=
4434 -- (PARAMETER_ASSOCIATION {,PARAMETER_ASSOCIATION})
4436 --------------------------------
4437 -- 6.4 Parameter Association --
4438 --------------------------------
4440 -- PARAMETER_ASSOCIATION ::=
4441 -- [formal_parameter_SELECTOR_NAME =>] EXPLICIT_ACTUAL_PARAMETER
4443 -- Note: the N_Parameter_Association node is built only if a formal
4444 -- parameter selector name is present, otherwise the parameter
4445 -- association appears in the tree simply as the node for the
4446 -- explicit actual parameter.
4448 -- N_Parameter_Association
4449 -- Sloc points to formal parameter
4450 -- Selector_Name (Node2) (always non-Empty)
4451 -- Explicit_Actual_Parameter (Node3)
4452 -- Next_Named_Actual (Node4-Sem)
4454 ---------------------------
4455 -- 6.4 Actual Parameter --
4456 ---------------------------
4458 -- EXPLICIT_ACTUAL_PARAMETER ::= EXPRESSION | variable_NAME
4460 ---------------------------
4461 -- 6.5 Return Statement --
4462 ---------------------------
4464 -- RETURN_STATEMENT ::= return [EXPRESSION]; -- Ada 95
4466 -- In Ada 2005, we have:
4468 -- SIMPLE_RETURN_STATEMENT ::= return [EXPRESSION];
4470 -- EXTENDED_RETURN_STATEMENT ::=
4471 -- return DEFINING_IDENTIFIER : [aliased] RETURN_SUBTYPE_INDICATION
4472 -- [:= EXPRESSION] [do
4473 -- HANDLED_SEQUENCE_OF_STATEMENTS
4476 -- RETURN_SUBTYPE_INDICATION ::= SUBTYPE_INDICATION | ACCESS_DEFINITION
4478 -- So in Ada 2005, RETURN_STATEMENT is no longer a nonterminal, but
4479 -- "return statement" is defined in 6.5 to mean a
4480 -- SIMPLE_RETURN_STATEMENT or an EXTENDED_RETURN_STATEMENT.
4482 -- N_Return_Statement
4483 -- Sloc points to RETURN
4484 -- Return_Statement_Entity (Node5-Sem)
4485 -- Expression (Node3) (set to Empty if no expression present)
4486 -- Storage_Pool (Node1-Sem)
4487 -- Procedure_To_Call (Node2-Sem)
4488 -- Do_Tag_Check (Flag13-Sem)
4489 -- By_Ref (Flag5-Sem)
4490 -- Comes_From_Extended_Return_Statement (Flag18-Sem)
4492 -- N_Return_Statement represents a simple_return_statement, and is
4493 -- renamed to be N_Simple_Return_Statement below. Clients should refer
4494 -- to N_Simple_Return_Statement. We retain N_Return_Statement because
4495 -- that's how gigi knows it. See also renaming of Make_Return_Statement
4496 -- as Make_Simple_Return_Statement in Sem_Util.
4498 -- Note: Return_Statement_Entity points to an E_Return_Statement
4500 -- If a range check is required, then Do_Range_Check is set on the
4501 -- Expression. The check is against the return subtype of the function.
4503 -- N_Extended_Return_Statement
4504 -- Sloc points to RETURN
4505 -- Return_Statement_Entity (Node5-Sem)
4506 -- Return_Object_Declarations (List3)
4507 -- Handled_Statement_Sequence (Node4) (set to Empty if not present)
4508 -- Storage_Pool (Node1-Sem)
4509 -- Procedure_To_Call (Node2-Sem)
4510 -- Do_Tag_Check (Flag13-Sem)
4511 -- By_Ref (Flag5-Sem)
4513 -- Note: Return_Statement_Entity points to an E_Return_Statement.
4514 -- Note that Return_Object_Declarations is a list containing the
4515 -- N_Object_Declaration -- see comment on this field above.
4516 -- The declared object will have Is_Return_Object = True.
4517 -- There is no such syntactic category as return_object_declaration
4518 -- in the RM. Return_Object_Declarations represents this portion of
4519 -- the syntax for EXTENDED_RETURN_STATEMENT:
4520 -- DEFINING_IDENTIFIER : [aliased] RETURN_SUBTYPE_INDICATION
4523 -- There are two entities associated with an extended_return_statement:
4524 -- the Return_Statement_Entity represents the statement itself, and the
4525 -- Defining_Identifier of the Object_Declaration in
4526 -- Return_Object_Declarations represents the object being
4527 -- returned. N_Simple_Return_Statement has only the former.
4529 ------------------------------
4530 -- 7.1 Package Declaration --
4531 ------------------------------
4533 -- PACKAGE_DECLARATION ::= PACKAGE_SPECIFICATION;
4535 -- Note: the activation chain entity for a package spec is used for
4536 -- all tasks declared in the package spec, or in the package body.
4538 -- N_Package_Declaration
4539 -- Sloc points to PACKAGE
4540 -- Specification (Node1)
4541 -- Corresponding_Body (Node5-Sem)
4542 -- Parent_Spec (Node4-Sem)
4543 -- Activation_Chain_Entity (Node3-Sem)
4545 --------------------------------
4546 -- 7.1 Package Specification --
4547 --------------------------------
4549 -- PACKAGE_SPECIFICATION ::=
4550 -- package DEFINING_PROGRAM_UNIT_NAME is
4551 -- {BASIC_DECLARATIVE_ITEM}
4553 -- {BASIC_DECLARATIVE_ITEM}]
4554 -- end [[PARENT_UNIT_NAME .] IDENTIFIER]
4556 -- N_Package_Specification
4557 -- Sloc points to PACKAGE
4558 -- Defining_Unit_Name (Node1)
4559 -- Visible_Declarations (List2)
4560 -- Private_Declarations (List3) (set to No_List if no private
4562 -- End_Label (Node4)
4563 -- Generic_Parent (Node5-Sem)
4564 -- Limited_View_Installed (Flag18-Sem)
4566 -----------------------
4567 -- 7.1 Package Body --
4568 -----------------------
4571 -- package body DEFINING_PROGRAM_UNIT_NAME is
4574 -- HANDLED_SEQUENCE_OF_STATEMENTS]
4575 -- end [[PARENT_UNIT_NAME .] IDENTIFIER];
4578 -- Sloc points to PACKAGE
4579 -- Defining_Unit_Name (Node1)
4580 -- Declarations (List2)
4581 -- Handled_Statement_Sequence (Node4) (set to Empty if no HSS present)
4582 -- Corresponding_Spec (Node5-Sem)
4583 -- Was_Originally_Stub (Flag13-Sem)
4585 -- Note: if a source level package does not contain a handled sequence
4586 -- of statements, then the parser supplies a dummy one with a null
4587 -- sequence of statements. Comes_From_Source will be False in this
4588 -- constructed sequence. The reason we need this is for the End_Label
4589 -- field in the HSS.
4591 -----------------------------------
4592 -- 7.4 Private Type Declaration --
4593 -----------------------------------
4595 -- PRIVATE_TYPE_DECLARATION ::=
4596 -- type DEFINING_IDENTIFIER [DISCRIMINANT_PART]
4597 -- is [[abstract] tagged] [limited] private;
4599 -- Note: TAGGED is not permitted in Ada 83 mode
4601 -- N_Private_Type_Declaration
4602 -- Sloc points to TYPE
4603 -- Defining_Identifier (Node1)
4604 -- Discriminant_Specifications (List4) (set to No_List if no
4605 -- discriminant part)
4606 -- Unknown_Discriminants_Present (Flag13) set if (<>) discriminant
4607 -- Abstract_Present (Flag4)
4608 -- Tagged_Present (Flag15)
4609 -- Limited_Present (Flag17)
4611 ----------------------------------------
4612 -- 7.4 Private Extension Declaration --
4613 ----------------------------------------
4615 -- PRIVATE_EXTENSION_DECLARATION ::=
4616 -- type DEFINING_IDENTIFIER [DISCRIMINANT_PART] is
4617 -- [abstract] [limited | synchronized]
4618 -- new ancestor_SUBTYPE_INDICATION [and INTERFACE_LIST]
4621 -- Note: LIMITED, and private extension declarations are not allowed
4624 -- N_Private_Extension_Declaration
4625 -- Sloc points to TYPE
4626 -- Defining_Identifier (Node1)
4627 -- Discriminant_Specifications (List4) (set to No_List if no
4628 -- discriminant part)
4629 -- Unknown_Discriminants_Present (Flag13) set if (<>) discriminant
4630 -- Abstract_Present (Flag4)
4631 -- Limited_Present (Flag17)
4632 -- Synchronized_Present (Flag7)
4633 -- Subtype_Indication (Node5)
4634 -- Interface_List (List2) (set to No_List if none)
4636 ---------------------
4637 -- 8.4 Use Clause --
4638 ---------------------
4640 -- USE_CLAUSE ::= USE_PACKAGE_CLAUSE | USE_TYPE_CLAUSE
4642 -----------------------------
4643 -- 8.4 Use Package Clause --
4644 -----------------------------
4646 -- USE_PACKAGE_CLAUSE ::= use package_NAME {, package_NAME};
4648 -- N_Use_Package_Clause
4649 -- Sloc points to USE
4651 -- Next_Use_Clause (Node3-Sem)
4652 -- Hidden_By_Use_Clause (Elist4-Sem)
4654 --------------------------
4655 -- 8.4 Use Type Clause --
4656 --------------------------
4658 -- USE_TYPE_CLAUSE ::= use type SUBTYPE_MARK {, SUBTYPE_MARK};
4660 -- Note: use type clause is not permitted in Ada 83 mode
4662 -- N_Use_Type_Clause
4663 -- Sloc points to USE
4664 -- Subtype_Marks (List2)
4665 -- Next_Use_Clause (Node3-Sem)
4666 -- Hidden_By_Use_Clause (Elist4-Sem)
4668 -------------------------------
4669 -- 8.5 Renaming Declaration --
4670 -------------------------------
4672 -- RENAMING_DECLARATION ::=
4673 -- OBJECT_RENAMING_DECLARATION
4674 -- | EXCEPTION_RENAMING_DECLARATION
4675 -- | PACKAGE_RENAMING_DECLARATION
4676 -- | SUBPROGRAM_RENAMING_DECLARATION
4677 -- | GENERIC_RENAMING_DECLARATION
4679 --------------------------------------
4680 -- 8.5 Object Renaming Declaration --
4681 --------------------------------------
4683 -- OBJECT_RENAMING_DECLARATION ::=
4684 -- DEFINING_IDENTIFIER :
4685 -- [NULL_EXCLUSION] SUBTYPE_MARK renames object_NAME;
4686 -- | DEFINING_IDENTIFIER :
4687 -- ACCESS_DEFINITION renames object_NAME;
4689 -- Note: Access_Definition is an optional field that gives support to
4690 -- Ada 2005 (AI-230). The parser generates nodes that have either the
4691 -- Subtype_Indication field or else the Access_Definition field.
4693 -- N_Object_Renaming_Declaration
4694 -- Sloc points to first identifier
4695 -- Defining_Identifier (Node1)
4696 -- Null_Exclusion_Present (Flag11) (set to False if not present)
4697 -- Subtype_Mark (Node4) (set to Empty if not present)
4698 -- Access_Definition (Node3) (set to Empty if not present)
4700 -- Corresponding_Generic_Association (Node5-Sem)
4702 -----------------------------------------
4703 -- 8.5 Exception Renaming Declaration --
4704 -----------------------------------------
4706 -- EXCEPTION_RENAMING_DECLARATION ::=
4707 -- DEFINING_IDENTIFIER : exception renames exception_NAME;
4709 -- N_Exception_Renaming_Declaration
4710 -- Sloc points to first identifier
4711 -- Defining_Identifier (Node1)
4714 ---------------------------------------
4715 -- 8.5 Package Renaming Declaration --
4716 ---------------------------------------
4718 -- PACKAGE_RENAMING_DECLARATION ::=
4719 -- package DEFINING_PROGRAM_UNIT_NAME renames package_NAME;
4721 -- N_Package_Renaming_Declaration
4722 -- Sloc points to PACKAGE
4723 -- Defining_Unit_Name (Node1)
4725 -- Parent_Spec (Node4-Sem)
4727 ------------------------------------------
4728 -- 8.5 Subprogram Renaming Declaration --
4729 ------------------------------------------
4731 -- SUBPROGRAM_RENAMING_DECLARATION ::=
4732 -- SUBPROGRAM_SPECIFICATION renames callable_entity_NAME;
4734 -- N_Subprogram_Renaming_Declaration
4735 -- Sloc points to RENAMES
4736 -- Specification (Node1)
4738 -- Parent_Spec (Node4-Sem)
4739 -- Corresponding_Spec (Node5-Sem)
4740 -- Corresponding_Formal_Spec (Node3-Sem)
4741 -- From_Default (Flag6-Sem)
4743 -----------------------------------------
4744 -- 8.5.5 Generic Renaming Declaration --
4745 -----------------------------------------
4747 -- GENERIC_RENAMING_DECLARATION ::=
4748 -- generic package DEFINING_PROGRAM_UNIT_NAME
4749 -- renames generic_package_NAME
4750 -- | generic procedure DEFINING_PROGRAM_UNIT_NAME
4751 -- renames generic_procedure_NAME
4752 -- | generic function DEFINING_PROGRAM_UNIT_NAME
4753 -- renames generic_function_NAME
4755 -- N_Generic_Package_Renaming_Declaration
4756 -- Sloc points to GENERIC
4757 -- Defining_Unit_Name (Node1)
4759 -- Parent_Spec (Node4-Sem)
4761 -- N_Generic_Procedure_Renaming_Declaration
4762 -- Sloc points to GENERIC
4763 -- Defining_Unit_Name (Node1)
4765 -- Parent_Spec (Node4-Sem)
4767 -- N_Generic_Function_Renaming_Declaration
4768 -- Sloc points to GENERIC
4769 -- Defining_Unit_Name (Node1)
4771 -- Parent_Spec (Node4-Sem)
4773 --------------------------------
4774 -- 9.1 Task Type Declaration --
4775 --------------------------------
4777 -- TASK_TYPE_DECLARATION ::=
4778 -- task type DEFINING_IDENTIFIER [KNOWN_DISCRIMINANT_PART]
4779 -- [is [new INTERFACE_LIST with] TASK_DEFINITION];
4781 -- N_Task_Type_Declaration
4782 -- Sloc points to TASK
4783 -- Defining_Identifier (Node1)
4784 -- Discriminant_Specifications (List4) (set to No_List if no
4785 -- discriminant part)
4786 -- Interface_List (List2) (set to No_List if none)
4787 -- Task_Definition (Node3) (set to Empty if not present)
4788 -- Corresponding_Body (Node5-Sem)
4790 ----------------------------------
4791 -- 9.1 Single Task Declaration --
4792 ----------------------------------
4794 -- SINGLE_TASK_DECLARATION ::=
4795 -- task DEFINING_IDENTIFIER
4796 -- [is [new INTERFACE_LIST with] TASK_DEFINITION];
4798 -- N_Single_Task_Declaration
4799 -- Sloc points to TASK
4800 -- Defining_Identifier (Node1)
4801 -- Interface_List (List2) (set to No_List if none)
4802 -- Task_Definition (Node3) (set to Empty if not present)
4804 --------------------------
4805 -- 9.1 Task Definition --
4806 --------------------------
4808 -- TASK_DEFINITION ::=
4812 -- end [task_IDENTIFIER]
4814 -- Note: as a result of semantic analysis, the list of task items can
4815 -- include implicit type declarations resulting from entry families.
4817 -- N_Task_Definition
4818 -- Sloc points to first token of task definition
4819 -- Visible_Declarations (List2)
4820 -- Private_Declarations (List3) (set to No_List if no private part)
4821 -- End_Label (Node4)
4822 -- Has_Priority_Pragma (Flag6-Sem)
4823 -- Has_Storage_Size_Pragma (Flag5-Sem)
4824 -- Has_Task_Info_Pragma (Flag7-Sem)
4825 -- Has_Task_Name_Pragma (Flag8-Sem)
4826 -- Has_Relative_Deadline_Pragma (Flag9-Sem)
4828 --------------------
4830 --------------------
4832 -- TASK_ITEM ::= ENTRY_DECLARATION | REPRESENTATION_CLAUSE
4834 --------------------
4836 --------------------
4839 -- task body task_DEFINING_IDENTIFIER is
4842 -- HANDLED_SEQUENCE_OF_STATEMENTS
4843 -- end [task_IDENTIFIER];
4845 -- Gigi restriction: This node never appears
4848 -- Sloc points to TASK
4849 -- Defining_Identifier (Node1)
4850 -- Declarations (List2)
4851 -- Handled_Statement_Sequence (Node4)
4852 -- Is_Task_Master (Flag5-Sem)
4853 -- Activation_Chain_Entity (Node3-Sem)
4854 -- Corresponding_Spec (Node5-Sem)
4855 -- Was_Originally_Stub (Flag13-Sem)
4857 -------------------------------------
4858 -- 9.4 Protected Type Declaration --
4859 -------------------------------------
4861 -- PROTECTED_TYPE_DECLARATION ::=
4862 -- protected type DEFINING_IDENTIFIER [KNOWN_DISCRIMINANT_PART]
4863 -- is [new INTERFACE_LIST with] PROTECTED_DEFINITION;
4865 -- Note: protected type declarations are not permitted in Ada 83 mode
4867 -- N_Protected_Type_Declaration
4868 -- Sloc points to PROTECTED
4869 -- Defining_Identifier (Node1)
4870 -- Discriminant_Specifications (List4) (set to No_List if no
4871 -- discriminant part)
4872 -- Interface_List (List2) (set to No_List if none)
4873 -- Protected_Definition (Node3)
4874 -- Corresponding_Body (Node5-Sem)
4876 ---------------------------------------
4877 -- 9.4 Single Protected Declaration --
4878 ---------------------------------------
4880 -- SINGLE_PROTECTED_DECLARATION ::=
4881 -- protected DEFINING_IDENTIFIER
4882 -- is [new INTERFACE_LIST with] PROTECTED_DEFINITION;
4884 -- Note: single protected declarations are not allowed in Ada 83 mode
4886 -- N_Single_Protected_Declaration
4887 -- Sloc points to PROTECTED
4888 -- Defining_Identifier (Node1)
4889 -- Interface_List (List2) (set to No_List if none)
4890 -- Protected_Definition (Node3)
4892 -------------------------------
4893 -- 9.4 Protected Definition --
4894 -------------------------------
4896 -- PROTECTED_DEFINITION ::=
4897 -- {PROTECTED_OPERATION_DECLARATION}
4899 -- {PROTECTED_ELEMENT_DECLARATION}]
4900 -- end [protected_IDENTIFIER]
4902 -- N_Protected_Definition
4903 -- Sloc points to first token of protected definition
4904 -- Visible_Declarations (List2)
4905 -- Private_Declarations (List3) (set to No_List if no private part)
4906 -- End_Label (Node4)
4907 -- Has_Priority_Pragma (Flag6-Sem)
4909 ------------------------------------------
4910 -- 9.4 Protected Operation Declaration --
4911 ------------------------------------------
4913 -- PROTECTED_OPERATION_DECLARATION ::=
4914 -- SUBPROGRAM_DECLARATION
4915 -- | ENTRY_DECLARATION
4916 -- | REPRESENTATION_CLAUSE
4918 ----------------------------------------
4919 -- 9.4 Protected Element Declaration --
4920 ----------------------------------------
4922 -- PROTECTED_ELEMENT_DECLARATION ::=
4923 -- PROTECTED_OPERATION_DECLARATION | COMPONENT_DECLARATION
4925 -------------------------
4926 -- 9.4 Protected Body --
4927 -------------------------
4929 -- PROTECTED_BODY ::=
4930 -- protected body DEFINING_IDENTIFIER is
4931 -- {PROTECTED_OPERATION_ITEM}
4932 -- end [protected_IDENTIFIER];
4934 -- Note: protected bodies are not allowed in Ada 83 mode
4936 -- Gigi restriction: This node never appears
4939 -- Sloc points to PROTECTED
4940 -- Defining_Identifier (Node1)
4941 -- Declarations (List2) protected operation items (and pragmas)
4942 -- End_Label (Node4)
4943 -- Corresponding_Spec (Node5-Sem)
4944 -- Was_Originally_Stub (Flag13-Sem)
4946 -----------------------------------
4947 -- 9.4 Protected Operation Item --
4948 -----------------------------------
4950 -- PROTECTED_OPERATION_ITEM ::=
4951 -- SUBPROGRAM_DECLARATION
4952 -- | SUBPROGRAM_BODY
4954 -- | REPRESENTATION_CLAUSE
4956 ------------------------------
4957 -- 9.5.2 Entry Declaration --
4958 ------------------------------
4960 -- ENTRY_DECLARATION ::=
4961 -- [[not] overriding]
4962 -- entry DEFINING_IDENTIFIER
4963 -- [(DISCRETE_SUBTYPE_DEFINITION)] PARAMETER_PROFILE;
4965 -- N_Entry_Declaration
4966 -- Sloc points to ENTRY
4967 -- Defining_Identifier (Node1)
4968 -- Discrete_Subtype_Definition (Node4) (set to Empty if not present)
4969 -- Parameter_Specifications (List3) (set to No_List if no formal part)
4970 -- Corresponding_Body (Node5-Sem)
4971 -- Must_Override (Flag14) set if overriding indicator present
4972 -- Must_Not_Override (Flag15) set if not_overriding indicator present
4974 -- Note: overriding indicator is an Ada 2005 feature
4976 -----------------------------
4977 -- 9.5.2 Accept statement --
4978 -----------------------------
4980 -- ACCEPT_STATEMENT ::=
4981 -- accept entry_DIRECT_NAME
4982 -- [(ENTRY_INDEX)] PARAMETER_PROFILE [do
4983 -- HANDLED_SEQUENCE_OF_STATEMENTS
4984 -- end [entry_IDENTIFIER]];
4986 -- Gigi restriction: This node never appears
4988 -- Note: there are no explicit declarations allowed in an accept
4989 -- statement. However, the implicit declarations for any statement
4990 -- identifiers (labels and block/loop identifiers) are declarations
4991 -- that belong logically to the accept statement, and that is why
4992 -- there is a Declarations field in this node.
4994 -- N_Accept_Statement
4995 -- Sloc points to ACCEPT
4996 -- Entry_Direct_Name (Node1)
4997 -- Entry_Index (Node5) (set to Empty if not present)
4998 -- Parameter_Specifications (List3) (set to No_List if no formal part)
4999 -- Handled_Statement_Sequence (Node4)
5000 -- Declarations (List2) (set to No_List if no declarations)
5002 ------------------------
5003 -- 9.5.2 Entry Index --
5004 ------------------------
5006 -- ENTRY_INDEX ::= EXPRESSION
5008 -----------------------
5009 -- 9.5.2 Entry Body --
5010 -----------------------
5013 -- entry DEFINING_IDENTIFIER ENTRY_BODY_FORMAL_PART ENTRY_BARRIER is
5016 -- HANDLED_SEQUENCE_OF_STATEMENTS
5017 -- end [entry_IDENTIFIER];
5019 -- ENTRY_BARRIER ::= when CONDITION
5021 -- Note: we store the CONDITION of the ENTRY_BARRIER in the node for
5022 -- the ENTRY_BODY_FORMAL_PART to avoid the N_Entry_Body node getting
5023 -- too full (it would otherwise have too many fields)
5025 -- Gigi restriction: This node never appears
5028 -- Sloc points to ENTRY
5029 -- Defining_Identifier (Node1)
5030 -- Entry_Body_Formal_Part (Node5)
5031 -- Declarations (List2)
5032 -- Handled_Statement_Sequence (Node4)
5033 -- Activation_Chain_Entity (Node3-Sem)
5035 -----------------------------------
5036 -- 9.5.2 Entry Body Formal Part --
5037 -----------------------------------
5039 -- ENTRY_BODY_FORMAL_PART ::=
5040 -- [(ENTRY_INDEX_SPECIFICATION)] PARAMETER_PROFILE
5042 -- Note that an entry body formal part node is present even if it is
5043 -- empty. This reflects the grammar, in which it is the components of
5044 -- the entry body formal part that are optional, not the entry body
5045 -- formal part itself. Also this means that the barrier condition
5046 -- always has somewhere to be stored.
5048 -- Gigi restriction: This node never appears
5050 -- N_Entry_Body_Formal_Part
5051 -- Sloc points to first token
5052 -- Entry_Index_Specification (Node4) (set to Empty if not present)
5053 -- Parameter_Specifications (List3) (set to No_List if no formal part)
5054 -- Condition (Node1) from entry barrier of entry body
5056 --------------------------
5057 -- 9.5.2 Entry Barrier --
5058 --------------------------
5060 -- ENTRY_BARRIER ::= when CONDITION
5062 --------------------------------------
5063 -- 9.5.2 Entry Index Specification --
5064 --------------------------------------
5066 -- ENTRY_INDEX_SPECIFICATION ::=
5067 -- for DEFINING_IDENTIFIER in DISCRETE_SUBTYPE_DEFINITION
5069 -- Gigi restriction: This node never appears
5071 -- N_Entry_Index_Specification
5072 -- Sloc points to FOR
5073 -- Defining_Identifier (Node1)
5074 -- Discrete_Subtype_Definition (Node4)
5076 ---------------------------------
5077 -- 9.5.3 Entry Call Statement --
5078 ---------------------------------
5080 -- ENTRY_CALL_STATEMENT ::= entry_NAME [ACTUAL_PARAMETER_PART];
5082 -- The parser may generate a procedure call for this construct. The
5083 -- semantic pass must correct this misidentification where needed.
5085 -- Gigi restriction: This node never appears
5087 -- N_Entry_Call_Statement
5088 -- Sloc points to first token of name
5090 -- Parameter_Associations (List3) (set to No_List if no
5091 -- actual parameter part)
5092 -- First_Named_Actual (Node4-Sem)
5094 ------------------------------
5095 -- 9.5.4 Requeue Statement --
5096 ------------------------------
5098 -- REQUEUE_STATEMENT ::= requeue entry_NAME [with abort];
5100 -- Note: requeue statements are not permitted in Ada 83 mode
5102 -- Gigi restriction: This node never appears
5104 -- N_Requeue_Statement
5105 -- Sloc points to REQUEUE
5107 -- Abort_Present (Flag15)
5109 --------------------------
5110 -- 9.6 Delay Statement --
5111 --------------------------
5113 -- DELAY_STATEMENT ::=
5114 -- DELAY_UNTIL_STATEMENT
5115 -- | DELAY_RELATIVE_STATEMENT
5117 --------------------------------
5118 -- 9.6 Delay Until Statement --
5119 --------------------------------
5121 -- DELAY_UNTIL_STATEMENT ::= delay until delay_EXPRESSION;
5123 -- Note: delay until statements are not permitted in Ada 83 mode
5125 -- Gigi restriction: This node never appears
5127 -- N_Delay_Until_Statement
5128 -- Sloc points to DELAY
5129 -- Expression (Node3)
5131 -----------------------------------
5132 -- 9.6 Delay Relative Statement --
5133 -----------------------------------
5135 -- DELAY_RELATIVE_STATEMENT ::= delay delay_EXPRESSION;
5137 -- Gigi restriction: This node never appears
5139 -- N_Delay_Relative_Statement
5140 -- Sloc points to DELAY
5141 -- Expression (Node3)
5143 ---------------------------
5144 -- 9.7 Select Statement --
5145 ---------------------------
5147 -- SELECT_STATEMENT ::=
5149 -- | TIMED_ENTRY_CALL
5150 -- | CONDITIONAL_ENTRY_CALL
5151 -- | ASYNCHRONOUS_SELECT
5153 -----------------------------
5154 -- 9.7.1 Selective Accept --
5155 -----------------------------
5157 -- SELECTIVE_ACCEPT ::=
5160 -- SELECT_ALTERNATIVE
5163 -- SELECT_ALTERNATIVE}
5165 -- SEQUENCE_OF_STATEMENTS]
5168 -- Gigi restriction: This node never appears
5170 -- Note: the guard expression, if present, appears in the node for
5171 -- the select alternative.
5173 -- N_Selective_Accept
5174 -- Sloc points to SELECT
5175 -- Select_Alternatives (List1)
5176 -- Else_Statements (List4) (set to No_List if no else part)
5182 -- GUARD ::= when CONDITION =>
5184 -- As noted above, the CONDITION that is part of a GUARD is included
5185 -- in the node for the select alternative for convenience.
5187 -------------------------------
5188 -- 9.7.1 Select Alternative --
5189 -------------------------------
5191 -- SELECT_ALTERNATIVE ::=
5192 -- ACCEPT_ALTERNATIVE
5193 -- | DELAY_ALTERNATIVE
5194 -- | TERMINATE_ALTERNATIVE
5196 -------------------------------
5197 -- 9.7.1 Accept Alternative --
5198 -------------------------------
5200 -- ACCEPT_ALTERNATIVE ::=
5201 -- ACCEPT_STATEMENT [SEQUENCE_OF_STATEMENTS]
5203 -- Gigi restriction: This node never appears
5205 -- N_Accept_Alternative
5206 -- Sloc points to ACCEPT
5207 -- Accept_Statement (Node2)
5208 -- Condition (Node1) from the guard (set to Empty if no guard present)
5209 -- Statements (List3) (set to Empty_List if no statements)
5210 -- Pragmas_Before (List4) pragmas before alt (set to No_List if none)
5211 -- Accept_Handler_Records (List5-Sem)
5213 ------------------------------
5214 -- 9.7.1 Delay Alternative --
5215 ------------------------------
5217 -- DELAY_ALTERNATIVE ::=
5218 -- DELAY_STATEMENT [SEQUENCE_OF_STATEMENTS]
5220 -- Gigi restriction: This node never appears
5222 -- N_Delay_Alternative
5223 -- Sloc points to DELAY
5224 -- Delay_Statement (Node2)
5225 -- Condition (Node1) from the guard (set to Empty if no guard present)
5226 -- Statements (List3) (set to Empty_List if no statements)
5227 -- Pragmas_Before (List4) pragmas before alt (set to No_List if none)
5229 ----------------------------------
5230 -- 9.7.1 Terminate Alternative --
5231 ----------------------------------
5233 -- TERMINATE_ALTERNATIVE ::= terminate;
5235 -- Gigi restriction: This node never appears
5237 -- N_Terminate_Alternative
5238 -- Sloc points to TERMINATE
5239 -- Condition (Node1) from the guard (set to Empty if no guard present)
5240 -- Pragmas_Before (List4) pragmas before alt (set to No_List if none)
5241 -- Pragmas_After (List5) pragmas after alt (set to No_List if none)
5243 -----------------------------
5244 -- 9.7.2 Timed Entry Call --
5245 -----------------------------
5247 -- TIMED_ENTRY_CALL ::=
5249 -- ENTRY_CALL_ALTERNATIVE
5251 -- DELAY_ALTERNATIVE
5254 -- Gigi restriction: This node never appears
5256 -- N_Timed_Entry_Call
5257 -- Sloc points to SELECT
5258 -- Entry_Call_Alternative (Node1)
5259 -- Delay_Alternative (Node4)
5261 -----------------------------------
5262 -- 9.7.2 Entry Call Alternative --
5263 -----------------------------------
5265 -- ENTRY_CALL_ALTERNATIVE ::=
5266 -- PROCEDURE_OR_ENTRY_CALL [SEQUENCE_OF_STATEMENTS]
5268 -- PROCEDURE_OR_ENTRY_CALL ::=
5269 -- PROCEDURE_CALL_STATEMENT | ENTRY_CALL_STATEMENT
5271 -- Gigi restriction: This node never appears
5273 -- N_Entry_Call_Alternative
5274 -- Sloc points to first token of entry call statement
5275 -- Entry_Call_Statement (Node1)
5276 -- Statements (List3) (set to Empty_List if no statements)
5277 -- Pragmas_Before (List4) pragmas before alt (set to No_List if none)
5279 -----------------------------------
5280 -- 9.7.3 Conditional Entry Call --
5281 -----------------------------------
5283 -- CONDITIONAL_ENTRY_CALL ::=
5285 -- ENTRY_CALL_ALTERNATIVE
5287 -- SEQUENCE_OF_STATEMENTS
5290 -- Gigi restriction: This node never appears
5292 -- N_Conditional_Entry_Call
5293 -- Sloc points to SELECT
5294 -- Entry_Call_Alternative (Node1)
5295 -- Else_Statements (List4)
5297 --------------------------------
5298 -- 9.7.4 Asynchronous Select --
5299 --------------------------------
5301 -- ASYNCHRONOUS_SELECT ::=
5303 -- TRIGGERING_ALTERNATIVE
5308 -- Note: asynchronous select is not permitted in Ada 83 mode
5310 -- Gigi restriction: This node never appears
5312 -- N_Asynchronous_Select
5313 -- Sloc points to SELECT
5314 -- Triggering_Alternative (Node1)
5315 -- Abortable_Part (Node2)
5317 -----------------------------------
5318 -- 9.7.4 Triggering Alternative --
5319 -----------------------------------
5321 -- TRIGGERING_ALTERNATIVE ::=
5322 -- TRIGGERING_STATEMENT [SEQUENCE_OF_STATEMENTS]
5324 -- Gigi restriction: This node never appears
5326 -- N_Triggering_Alternative
5327 -- Sloc points to first token of triggering statement
5328 -- Triggering_Statement (Node1)
5329 -- Statements (List3) (set to Empty_List if no statements)
5330 -- Pragmas_Before (List4) pragmas before alt (set to No_List if none)
5332 ---------------------------------
5333 -- 9.7.4 Triggering Statement --
5334 ---------------------------------
5336 -- TRIGGERING_STATEMENT ::= PROCEDURE_OR_ENTRY_CALL | DELAY_STATEMENT
5338 ---------------------------
5339 -- 9.7.4 Abortable Part --
5340 ---------------------------
5342 -- ABORTABLE_PART ::= SEQUENCE_OF_STATEMENTS
5344 -- Gigi restriction: This node never appears
5347 -- Sloc points to ABORT
5348 -- Statements (List3)
5350 --------------------------
5351 -- 9.8 Abort Statement --
5352 --------------------------
5354 -- ABORT_STATEMENT ::= abort task_NAME {, task_NAME};
5356 -- Gigi restriction: This node never appears
5358 -- N_Abort_Statement
5359 -- Sloc points to ABORT
5362 -------------------------
5363 -- 10.1.1 Compilation --
5364 -------------------------
5366 -- COMPILATION ::= {COMPILATION_UNIT}
5368 -- There is no explicit node in the tree for a compilation, since in
5369 -- general the compiler is processing only a single compilation unit
5370 -- at a time. It is possible to parse multiple units in syntax check
5371 -- only mode, but the trees are discarded in that case.
5373 ------------------------------
5374 -- 10.1.1 Compilation Unit --
5375 ------------------------------
5377 -- COMPILATION_UNIT ::=
5378 -- CONTEXT_CLAUSE LIBRARY_ITEM
5379 -- | CONTEXT_CLAUSE SUBUNIT
5381 -- The N_Compilation_Unit node itself represents the above syntax.
5382 -- However, there are two additional items not reflected in the above
5383 -- syntax. First we have the global declarations that are added by the
5384 -- code generator. These are outer level declarations (so they cannot
5385 -- be represented as being inside the units). An example is the wrapper
5386 -- subprograms that are created to do ABE checking. As always a list of
5387 -- declarations can contain actions as well (i.e. statements), and such
5388 -- statements are executed as part of the elaboration of the unit. Note
5389 -- that all such declarations are elaborated before the library unit.
5391 -- Similarly, certain actions need to be elaborated at the completion
5392 -- of elaboration of the library unit (notably the statement that sets
5393 -- the Boolean flag indicating that elaboration is complete).
5395 -- The third item not reflected in the syntax is pragmas that appear
5396 -- after the compilation unit. As always pragmas are a problem since
5397 -- they are not part of the formal syntax, but can be stuck into the
5398 -- source following a set of ad hoc rules, and we have to find an ad
5399 -- hoc way of sticking them into the tree. For pragmas that appear
5400 -- before the library unit, we just consider them to be part of the
5401 -- context clause, and pragmas can appear in the Context_Items list
5402 -- of the compilation unit. However, pragmas can also appear after
5403 -- the library item.
5405 -- To deal with all these problems, we create an auxiliary node for
5406 -- a compilation unit, referenced from the N_Compilation_Unit node
5407 -- that contains these three items.
5409 -- N_Compilation_Unit
5410 -- Sloc points to first token of defining unit name
5411 -- Library_Unit (Node4-Sem) corresponding/parent spec/body
5412 -- Context_Items (List1) context items and pragmas preceding unit
5413 -- Private_Present (Flag15) set if library unit has private keyword
5414 -- Unit (Node2) library item or subunit
5415 -- Aux_Decls_Node (Node5) points to the N_Compilation_Unit_Aux node
5416 -- Has_No_Elaboration_Code (Flag17-Sem)
5417 -- Body_Required (Flag13-Sem) set for spec if body is required
5418 -- Acts_As_Spec (Flag4-Sem) flag for subprogram body with no spec
5419 -- Context_Pending (Flag16-Sem)
5420 -- First_Inlined_Subprogram (Node3-Sem)
5422 -- N_Compilation_Unit_Aux
5423 -- Sloc is a copy of the Sloc from the N_Compilation_Unit node
5424 -- Declarations (List2) (set to No_List if no global declarations)
5425 -- Actions (List1) (set to No_List if no actions)
5426 -- Pragmas_After (List5) pragmas after unit (set to No_List if none)
5427 -- Config_Pragmas (List4) config pragmas (set to Empty_List if none)
5429 --------------------------
5430 -- 10.1.1 Library Item --
5431 --------------------------
5434 -- [private] LIBRARY_UNIT_DECLARATION
5435 -- | LIBRARY_UNIT_BODY
5436 -- | [private] LIBRARY_UNIT_RENAMING_DECLARATION
5438 -- Note: PRIVATE is not allowed in Ada 83 mode
5440 -- There is no explicit node in the tree for library item, instead
5441 -- the declaration or body, and the flag for private if present,
5442 -- appear in the N_Compilation_Unit node.
5444 --------------------------------------
5445 -- 10.1.1 Library Unit Declaration --
5446 --------------------------------------
5448 -- LIBRARY_UNIT_DECLARATION ::=
5449 -- SUBPROGRAM_DECLARATION | PACKAGE_DECLARATION
5450 -- | GENERIC_DECLARATION | GENERIC_INSTANTIATION
5452 -----------------------------------------------
5453 -- 10.1.1 Library Unit Renaming Declaration --
5454 -----------------------------------------------
5456 -- LIBRARY_UNIT_RENAMING_DECLARATION ::=
5457 -- PACKAGE_RENAMING_DECLARATION
5458 -- | GENERIC_RENAMING_DECLARATION
5459 -- | SUBPROGRAM_RENAMING_DECLARATION
5461 -------------------------------
5462 -- 10.1.1 Library unit body --
5463 -------------------------------
5465 -- LIBRARY_UNIT_BODY ::= SUBPROGRAM_BODY | PACKAGE_BODY
5467 ------------------------------
5468 -- 10.1.1 Parent Unit Name --
5469 ------------------------------
5471 -- PARENT_UNIT_NAME ::= NAME
5473 ----------------------------
5474 -- 10.1.2 Context clause --
5475 ----------------------------
5477 -- CONTEXT_CLAUSE ::= {CONTEXT_ITEM}
5479 -- The context clause can include pragmas, and any pragmas that appear
5480 -- before the context clause proper (i.e. all configuration pragmas,
5481 -- also appear at the front of this list).
5483 --------------------------
5484 -- 10.1.2 Context_Item --
5485 --------------------------
5487 -- CONTEXT_ITEM ::= WITH_CLAUSE | USE_CLAUSE | WITH_TYPE_CLAUSE
5489 -------------------------
5490 -- 10.1.2 With clause --
5491 -------------------------
5494 -- with library_unit_NAME {,library_unit_NAME};
5496 -- A separate With clause is built for each name, so that we have
5497 -- a Corresponding_Spec field for each with'ed spec. The flags
5498 -- First_Name and Last_Name are used to reconstruct the exact
5499 -- source form. When a list of names appears in one with clause,
5500 -- the first name in the list has First_Name set, and the last
5501 -- has Last_Name set. If the with clause has only one name, then
5502 -- both of the flags First_Name and Last_Name are set in this name.
5504 -- Note: in the case of implicit with's that are installed by the
5505 -- Rtsfind routine, Implicit_With is set, and the Sloc is typically
5506 -- set to Standard_Location, but it is incorrect to test the Sloc
5507 -- to find out if a with clause is implicit, test the flag instead.
5510 -- Sloc points to first token of library unit name
5512 -- Next_Implicit_With (Node3-Sem)
5513 -- Library_Unit (Node4-Sem)
5514 -- Corresponding_Spec (Node5-Sem)
5515 -- First_Name (Flag5) (set to True if first name or only one name)
5516 -- Last_Name (Flag6) (set to True if last name or only one name)
5517 -- Context_Installed (Flag13-Sem)
5518 -- Elaborate_Present (Flag4-Sem)
5519 -- Elaborate_All_Present (Flag14-Sem)
5520 -- Elaborate_All_Desirable (Flag9-Sem)
5521 -- Elaborate_Desirable (Flag11-Sem)
5522 -- Private_Present (Flag15) set if with_clause has private keyword
5523 -- Implicit_With (Flag16-Sem)
5524 -- Limited_Present (Flag17) set if LIMITED is present
5525 -- Limited_View_Installed (Flag18-Sem)
5526 -- Unreferenced_In_Spec (Flag7-Sem)
5527 -- No_Entities_Ref_In_Spec (Flag8-Sem)
5529 -- Note: Limited_Present and Limited_View_Installed give support to
5530 -- Ada 2005 (AI-50217).
5531 -- Similarly, Private_Present gives support to AI-50262.
5533 ----------------------
5534 -- With_Type clause --
5535 ----------------------
5537 -- This is a GNAT extension, used to implement mutually recursive
5538 -- types declared in different packages.
5539 -- Note: this is now obsolete. The functionality of this construct
5540 -- is now implemented by the Ada 2005 Limited_with_Clause.
5542 ---------------------
5543 -- 10.2 Body stub --
5544 ---------------------
5547 -- SUBPROGRAM_BODY_STUB
5548 -- | PACKAGE_BODY_STUB
5550 -- | PROTECTED_BODY_STUB
5552 ----------------------------------
5553 -- 10.1.3 Subprogram Body Stub --
5554 ----------------------------------
5556 -- SUBPROGRAM_BODY_STUB ::=
5557 -- SUBPROGRAM_SPECIFICATION is separate;
5559 -- N_Subprogram_Body_Stub
5560 -- Sloc points to FUNCTION or PROCEDURE
5561 -- Specification (Node1)
5562 -- Library_Unit (Node4-Sem) points to the subunit
5563 -- Corresponding_Body (Node5-Sem)
5565 -------------------------------
5566 -- 10.1.3 Package Body Stub --
5567 -------------------------------
5569 -- PACKAGE_BODY_STUB ::=
5570 -- package body DEFINING_IDENTIFIER is separate;
5572 -- N_Package_Body_Stub
5573 -- Sloc points to PACKAGE
5574 -- Defining_Identifier (Node1)
5575 -- Library_Unit (Node4-Sem) points to the subunit
5576 -- Corresponding_Body (Node5-Sem)
5578 ----------------------------
5579 -- 10.1.3 Task Body Stub --
5580 ----------------------------
5582 -- TASK_BODY_STUB ::=
5583 -- task body DEFINING_IDENTIFIER is separate;
5586 -- Sloc points to TASK
5587 -- Defining_Identifier (Node1)
5588 -- Library_Unit (Node4-Sem) points to the subunit
5589 -- Corresponding_Body (Node5-Sem)
5591 ---------------------------------
5592 -- 10.1.3 Protected Body Stub --
5593 ---------------------------------
5595 -- PROTECTED_BODY_STUB ::=
5596 -- protected body DEFINING_IDENTIFIER is separate;
5598 -- Note: protected body stubs are not allowed in Ada 83 mode
5600 -- N_Protected_Body_Stub
5601 -- Sloc points to PROTECTED
5602 -- Defining_Identifier (Node1)
5603 -- Library_Unit (Node4-Sem) points to the subunit
5604 -- Corresponding_Body (Node5-Sem)
5606 ---------------------
5607 -- 10.1.3 Subunit --
5608 ---------------------
5610 -- SUBUNIT ::= separate (PARENT_UNIT_NAME) PROPER_BODY
5613 -- Sloc points to SEPARATE
5614 -- Name (Node2) is the name of the parent unit
5615 -- Proper_Body (Node1) is the subunit body
5616 -- Corresponding_Stub (Node3-Sem) is the stub declaration for the unit.
5618 ---------------------------------
5619 -- 11.1 Exception Declaration --
5620 ---------------------------------
5622 -- EXCEPTION_DECLARATION ::= DEFINING_IDENTIFIER_LIST : exception;
5624 -- For consistency with object declarations etc., the parser converts
5625 -- the case of multiple identifiers being declared to a series of
5626 -- declarations in which the expression is copied, using the More_Ids
5627 -- and Prev_Ids flags to remember the source form as described in the
5628 -- section on "Handling of Defining Identifier Lists".
5630 -- N_Exception_Declaration
5631 -- Sloc points to EXCEPTION
5632 -- Defining_Identifier (Node1)
5633 -- Expression (Node3-Sem)
5634 -- Renaming_Exception (Node2-Sem)
5635 -- More_Ids (Flag5) (set to False if no more identifiers in list)
5636 -- Prev_Ids (Flag6) (set to False if no previous identifiers in list)
5638 ------------------------------------------
5639 -- 11.2 Handled Sequence Of Statements --
5640 ------------------------------------------
5642 -- HANDLED_SEQUENCE_OF_STATEMENTS ::=
5643 -- SEQUENCE_OF_STATEMENTS
5645 -- EXCEPTION_HANDLER
5646 -- {EXCEPTION_HANDLER}]
5648 -- cleanup_procedure_call (param, param, param, ...);]
5650 -- The AT END phrase is a GNAT extension to provide for cleanups. It is
5651 -- used only internally currently, but is considered to be syntactic.
5652 -- At the moment, the only cleanup action allowed is a single call to
5653 -- a parameterless procedure, and the Identifier field of the node is
5654 -- the procedure to be called. Also there is a current restriction
5655 -- that exception handles and a cleanup cannot be present in the same
5656 -- frame, so at least one of Exception_Handlers or the Identifier must
5659 -- Actually, more accurately, this restriction applies to the original
5660 -- source program. In the expanded tree, if the At_End_Proc field is
5661 -- present, then there will also be an exception handler of the form:
5663 -- when all others =>
5667 -- where cleanup is the procedure to be generated. The reason we do
5668 -- this is so that the front end can handle the necessary entries in
5669 -- the exception tables, and other exception handler actions required
5670 -- as part of the normal handling for exception handlers.
5672 -- The AT END cleanup handler protects only the sequence of statements
5673 -- (not the associated declarations of the parent), just like exception
5674 -- handlers. The big difference is that the cleanup procedure is called
5675 -- on either a normal or an abnormal exit from the statement sequence.
5677 -- Note: the list of Exception_Handlers can contain pragmas as well
5678 -- as actual handlers. In practice these pragmas can only occur at
5679 -- the start of the list, since any pragmas occurring later on will
5680 -- be included in the statement list of the corresponding handler.
5682 -- Note: although in the Ada syntax, the sequence of statements in
5683 -- a handled sequence of statements can only contain statements, we
5684 -- allow free mixing of declarations and statements in the resulting
5685 -- expanded tree. This is for example used to deal with the case of
5686 -- a cleanup procedure that must handle declarations as well as the
5687 -- statements of a block.
5689 -- N_Handled_Sequence_Of_Statements
5690 -- Sloc points to first token of first statement
5691 -- Statements (List3)
5692 -- End_Label (Node4) (set to Empty if expander generated)
5693 -- Exception_Handlers (List5) (set to No_List if none present)
5694 -- At_End_Proc (Node1) (set to Empty if no clean up procedure)
5695 -- First_Real_Statement (Node2-Sem)
5696 -- Zero_Cost_Handling (Flag5-Sem)
5698 -- Note: the parent always contains a Declarations field which contains
5699 -- declarations associated with the handled sequence of statements. This
5700 -- is true even in the case of an accept statement (see description of
5701 -- the N_Accept_Statement node).
5703 -- End_Label refers to the containing construct
5705 -----------------------------
5706 -- 11.2 Exception Handler --
5707 -----------------------------
5709 -- EXCEPTION_HANDLER ::=
5710 -- when [CHOICE_PARAMETER_SPECIFICATION :]
5711 -- EXCEPTION_CHOICE {| EXCEPTION_CHOICE} =>
5712 -- SEQUENCE_OF_STATEMENTS
5714 -- Note: choice parameter specification is not allowed in Ada 83 mode
5716 -- N_Exception_Handler
5717 -- Sloc points to WHEN
5718 -- Choice_Parameter (Node2) (set to Empty if not present)
5719 -- Exception_Choices (List4)
5720 -- Statements (List3)
5721 -- Exception_Label (Node5-Sem) (set to Empty of not present)
5722 -- Zero_Cost_Handling (Flag5-Sem)
5723 -- Local_Raise_Statements (Elist1-Sem) (set to No_Elist if not present)
5724 -- Local_Raise_Not_OK (Flag7-Sem)
5725 -- Has_Local_Raise (Flag8-Sem)
5727 ------------------------------------------
5728 -- 11.2 Choice parameter specification --
5729 ------------------------------------------
5731 -- CHOICE_PARAMETER_SPECIFICATION ::= DEFINING_IDENTIFIER
5733 ----------------------------
5734 -- 11.2 Exception Choice --
5735 ----------------------------
5737 -- EXCEPTION_CHOICE ::= exception_NAME | others
5739 -- Except in the case of OTHERS, no explicit node appears in the tree
5740 -- for exception choice. Instead the exception name appears directly.
5741 -- An OTHERS choice is represented by a N_Others_Choice node (see
5744 -- Note: for the exception choice created for an at end handler, the
5745 -- exception choice is an N_Others_Choice node with All_Others set.
5747 ---------------------------
5748 -- 11.3 Raise Statement --
5749 ---------------------------
5751 -- RAISE_STATEMENT ::= raise [exception_NAME];
5753 -- In Ada 2005, we have
5755 -- RAISE_STATEMENT ::= raise; | raise exception_NAME [with EXPRESSION];
5757 -- N_Raise_Statement
5758 -- Sloc points to RAISE
5759 -- Name (Node2) (set to Empty if no exception name present)
5760 -- Expression (Node3) (set to Empty if no expression present)
5761 -- From_At_End (Flag4-Sem)
5763 -------------------------------
5764 -- 12.1 Generic Declaration --
5765 -------------------------------
5767 -- GENERIC_DECLARATION ::=
5768 -- GENERIC_SUBPROGRAM_DECLARATION | GENERIC_PACKAGE_DECLARATION
5770 ------------------------------------------
5771 -- 12.1 Generic Subprogram Declaration --
5772 ------------------------------------------
5774 -- GENERIC_SUBPROGRAM_DECLARATION ::=
5775 -- GENERIC_FORMAL_PART SUBPROGRAM_SPECIFICATION;
5777 -- Note: Generic_Formal_Declarations can include pragmas
5779 -- N_Generic_Subprogram_Declaration
5780 -- Sloc points to GENERIC
5781 -- Specification (Node1) subprogram specification
5782 -- Corresponding_Body (Node5-Sem)
5783 -- Generic_Formal_Declarations (List2) from generic formal part
5784 -- Parent_Spec (Node4-Sem)
5786 ---------------------------------------
5787 -- 12.1 Generic Package Declaration --
5788 ---------------------------------------
5790 -- GENERIC_PACKAGE_DECLARATION ::=
5791 -- GENERIC_FORMAL_PART PACKAGE_SPECIFICATION;
5793 -- Note: when we do generics right, the Activation_Chain_Entity entry
5794 -- for this node can be removed (since the expander won't see generic
5795 -- units any more)???.
5797 -- Note: Generic_Formal_Declarations can include pragmas
5799 -- N_Generic_Package_Declaration
5800 -- Sloc points to GENERIC
5801 -- Specification (Node1) package specification
5802 -- Corresponding_Body (Node5-Sem)
5803 -- Generic_Formal_Declarations (List2) from generic formal part
5804 -- Parent_Spec (Node4-Sem)
5805 -- Activation_Chain_Entity (Node3-Sem)
5807 -------------------------------
5808 -- 12.1 Generic Formal Part --
5809 -------------------------------
5811 -- GENERIC_FORMAL_PART ::=
5812 -- generic {GENERIC_FORMAL_PARAMETER_DECLARATION | USE_CLAUSE}
5814 ------------------------------------------------
5815 -- 12.1 Generic Formal Parameter Declaration --
5816 ------------------------------------------------
5818 -- GENERIC_FORMAL_PARAMETER_DECLARATION ::=
5819 -- FORMAL_OBJECT_DECLARATION
5820 -- | FORMAL_TYPE_DECLARATION
5821 -- | FORMAL_SUBPROGRAM_DECLARATION
5822 -- | FORMAL_PACKAGE_DECLARATION
5824 ---------------------------------
5825 -- 12.3 Generic Instantiation --
5826 ---------------------------------
5828 -- GENERIC_INSTANTIATION ::=
5829 -- package DEFINING_PROGRAM_UNIT_NAME is
5830 -- new generic_package_NAME [GENERIC_ACTUAL_PART];
5831 -- | [[not] overriding]
5832 -- procedure DEFINING_PROGRAM_UNIT_NAME is
5833 -- new generic_procedure_NAME [GENERIC_ACTUAL_PART];
5834 -- | [[not] overriding]
5835 -- function DEFINING_DESIGNATOR is
5836 -- new generic_function_NAME [GENERIC_ACTUAL_PART];
5838 -- N_Package_Instantiation
5839 -- Sloc points to PACKAGE
5840 -- Defining_Unit_Name (Node1)
5842 -- Generic_Associations (List3) (set to No_List if no
5843 -- generic actual part)
5844 -- Parent_Spec (Node4-Sem)
5845 -- Instance_Spec (Node5-Sem)
5846 -- ABE_Is_Certain (Flag18-Sem)
5848 -- N_Procedure_Instantiation
5849 -- Sloc points to PROCEDURE
5850 -- Defining_Unit_Name (Node1)
5852 -- Parent_Spec (Node4-Sem)
5853 -- Generic_Associations (List3) (set to No_List if no
5854 -- generic actual part)
5855 -- Instance_Spec (Node5-Sem)
5856 -- Must_Override (Flag14) set if overriding indicator present
5857 -- Must_Not_Override (Flag15) set if not_overriding indicator present
5858 -- ABE_Is_Certain (Flag18-Sem)
5860 -- N_Function_Instantiation
5861 -- Sloc points to FUNCTION
5862 -- Defining_Unit_Name (Node1)
5864 -- Generic_Associations (List3) (set to No_List if no
5865 -- generic actual part)
5866 -- Parent_Spec (Node4-Sem)
5867 -- Instance_Spec (Node5-Sem)
5868 -- Must_Override (Flag14) set if overriding indicator present
5869 -- Must_Not_Override (Flag15) set if not_overriding indicator present
5870 -- ABE_Is_Certain (Flag18-Sem)
5872 -- Note: overriding indicator is an Ada 2005 feature
5874 -------------------------------
5875 -- 12.3 Generic Actual Part --
5876 -------------------------------
5878 -- GENERIC_ACTUAL_PART ::=
5879 -- (GENERIC_ASSOCIATION {, GENERIC_ASSOCIATION})
5881 -------------------------------
5882 -- 12.3 Generic Association --
5883 -------------------------------
5885 -- GENERIC_ASSOCIATION ::=
5886 -- [generic_formal_parameter_SELECTOR_NAME =>]
5888 -- Note: unlike the procedure call case, a generic association node
5889 -- is generated for every association, even if no formal parameter
5890 -- selector name is present. In this case the parser will leave the
5891 -- Selector_Name field set to Empty, to be filled in later by the
5894 -- In Ada 2005, a formal may be associated with a box, if the
5895 -- association is part of the list of actuals for a formal package.
5896 -- If the association is given by OTHERS => <>, the association is
5897 -- an N_Others_Choice.
5899 -- N_Generic_Association
5900 -- Sloc points to first token of generic association
5901 -- Selector_Name (Node2) (set to Empty if no formal
5902 -- parameter selector name)
5903 -- Explicit_Generic_Actual_Parameter (Node1) (Empty if box present)
5904 -- Box_Present (Flag15) (for formal_package associations with a box)
5906 ---------------------------------------------
5907 -- 12.3 Explicit Generic Actual Parameter --
5908 ---------------------------------------------
5910 -- EXPLICIT_GENERIC_ACTUAL_PARAMETER ::=
5911 -- EXPRESSION | variable_NAME | subprogram_NAME
5912 -- | entry_NAME | SUBTYPE_MARK | package_instance_NAME
5914 -------------------------------------
5915 -- 12.4 Formal Object Declaration --
5916 -------------------------------------
5918 -- FORMAL_OBJECT_DECLARATION ::=
5919 -- DEFINING_IDENTIFIER_LIST :
5920 -- MODE [NULL_EXCLUSION] SUBTYPE_MARK [:= DEFAULT_EXPRESSION];
5921 -- | DEFINING_IDENTIFIER_LIST :
5922 -- MODE ACCESS_DEFINITION [:= DEFAULT_EXPRESSION];
5924 -- Although the syntax allows multiple identifiers in the list, the
5925 -- semantics is as though successive declarations were given with
5926 -- identical type definition and expression components. To simplify
5927 -- semantic processing, the parser represents a multiple declaration
5928 -- case as a sequence of single declarations, using the More_Ids and
5929 -- Prev_Ids flags to preserve the original source form as described
5930 -- in the section on "Handling of Defining Identifier Lists".
5932 -- N_Formal_Object_Declaration
5933 -- Sloc points to first identifier
5934 -- Defining_Identifier (Node1)
5935 -- In_Present (Flag15)
5936 -- Out_Present (Flag17)
5937 -- Null_Exclusion_Present (Flag11) (set to False if not present)
5938 -- Subtype_Mark (Node4) (set to Empty if not present)
5939 -- Access_Definition (Node3) (set to Empty if not present)
5940 -- Default_Expression (Node5) (set to Empty if no default expression)
5941 -- More_Ids (Flag5) (set to False if no more identifiers in list)
5942 -- Prev_Ids (Flag6) (set to False if no previous identifiers in list)
5944 -----------------------------------
5945 -- 12.5 Formal Type Declaration --
5946 -----------------------------------
5948 -- FORMAL_TYPE_DECLARATION ::=
5949 -- type DEFINING_IDENTIFIER [DISCRIMINANT_PART]
5950 -- is FORMAL_TYPE_DEFINITION;
5952 -- N_Formal_Type_Declaration
5953 -- Sloc points to TYPE
5954 -- Defining_Identifier (Node1)
5955 -- Formal_Type_Definition (Node3)
5956 -- Discriminant_Specifications (List4) (set to No_List if no
5957 -- discriminant part)
5958 -- Unknown_Discriminants_Present (Flag13) set if (<>) discriminant
5960 ----------------------------------
5961 -- 12.5 Formal type definition --
5962 ----------------------------------
5964 -- FORMAL_TYPE_DEFINITION ::=
5965 -- FORMAL_PRIVATE_TYPE_DEFINITION
5966 -- | FORMAL_DERIVED_TYPE_DEFINITION
5967 -- | FORMAL_DISCRETE_TYPE_DEFINITION
5968 -- | FORMAL_SIGNED_INTEGER_TYPE_DEFINITION
5969 -- | FORMAL_MODULAR_TYPE_DEFINITION
5970 -- | FORMAL_FLOATING_POINT_DEFINITION
5971 -- | FORMAL_ORDINARY_FIXED_POINT_DEFINITION
5972 -- | FORMAL_DECIMAL_FIXED_POINT_DEFINITION
5973 -- | FORMAL_ARRAY_TYPE_DEFINITION
5974 -- | FORMAL_ACCESS_TYPE_DEFINITION
5975 -- | FORMAL_INTERFACE_TYPE_DEFINITION
5977 ---------------------------------------------
5978 -- 12.5.1 Formal Private Type Definition --
5979 ---------------------------------------------
5981 -- FORMAL_PRIVATE_TYPE_DEFINITION ::=
5982 -- [[abstract] tagged] [limited] private
5984 -- Note: TAGGED is not allowed in Ada 83 mode
5986 -- N_Formal_Private_Type_Definition
5987 -- Sloc points to PRIVATE
5988 -- Abstract_Present (Flag4)
5989 -- Tagged_Present (Flag15)
5990 -- Limited_Present (Flag17)
5992 --------------------------------------------
5993 -- 12.5.1 Formal Derived Type Definition --
5994 --------------------------------------------
5996 -- FORMAL_DERIVED_TYPE_DEFINITION ::=
5997 -- [abstract] [limited | synchronized]
5998 -- new SUBTYPE_MARK [[and INTERFACE_LIST] with private]
5999 -- Note: this construct is not allowed in Ada 83 mode
6001 -- N_Formal_Derived_Type_Definition
6002 -- Sloc points to NEW
6003 -- Subtype_Mark (Node4)
6004 -- Private_Present (Flag15)
6005 -- Abstract_Present (Flag4)
6006 -- Limited_Present (Flag17)
6007 -- Synchronized_Present (Flag7)
6008 -- Interface_List (List2) (set to No_List if none)
6010 ---------------------------------------------
6011 -- 12.5.2 Formal Discrete Type Definition --
6012 ---------------------------------------------
6014 -- FORMAL_DISCRETE_TYPE_DEFINITION ::= (<>)
6016 -- N_Formal_Discrete_Type_Definition
6019 ---------------------------------------------------
6020 -- 12.5.2 Formal Signed Integer Type Definition --
6021 ---------------------------------------------------
6023 -- FORMAL_SIGNED_INTEGER_TYPE_DEFINITION ::= range <>
6025 -- N_Formal_Signed_Integer_Type_Definition
6026 -- Sloc points to RANGE
6028 --------------------------------------------
6029 -- 12.5.2 Formal Modular Type Definition --
6030 --------------------------------------------
6032 -- FORMAL_MODULAR_TYPE_DEFINITION ::= mod <>
6034 -- N_Formal_Modular_Type_Definition
6035 -- Sloc points to MOD
6037 ----------------------------------------------
6038 -- 12.5.2 Formal Floating Point Definition --
6039 ----------------------------------------------
6041 -- FORMAL_FLOATING_POINT_DEFINITION ::= digits <>
6043 -- N_Formal_Floating_Point_Definition
6044 -- Sloc points to DIGITS
6046 ----------------------------------------------------
6047 -- 12.5.2 Formal Ordinary Fixed Point Definition --
6048 ----------------------------------------------------
6050 -- FORMAL_ORDINARY_FIXED_POINT_DEFINITION ::= delta <>
6052 -- N_Formal_Ordinary_Fixed_Point_Definition
6053 -- Sloc points to DELTA
6055 ---------------------------------------------------
6056 -- 12.5.2 Formal Decimal Fixed Point Definition --
6057 ---------------------------------------------------
6059 -- FORMAL_DECIMAL_FIXED_POINT_DEFINITION ::= delta <> digits <>
6061 -- Note: formal decimal fixed point definition not allowed in Ada 83
6063 -- N_Formal_Decimal_Fixed_Point_Definition
6064 -- Sloc points to DELTA
6066 ------------------------------------------
6067 -- 12.5.3 Formal Array Type Definition --
6068 ------------------------------------------
6070 -- FORMAL_ARRAY_TYPE_DEFINITION ::= ARRAY_TYPE_DEFINITION
6072 -------------------------------------------
6073 -- 12.5.4 Formal Access Type Definition --
6074 -------------------------------------------
6076 -- FORMAL_ACCESS_TYPE_DEFINITION ::= ACCESS_TYPE_DEFINITION
6078 ----------------------------------------------
6079 -- 12.5.5 Formal Interface Type Definition --
6080 ----------------------------------------------
6082 -- FORMAL_INTERFACE_TYPE_DEFINITION ::= INTERFACE_TYPE_DEFINITION
6084 -----------------------------------------
6085 -- 12.6 Formal Subprogram Declaration --
6086 -----------------------------------------
6088 -- FORMAL_SUBPROGRAM_DECLARATION ::=
6089 -- FORMAL_CONCRETE_SUBPROGRAM_DECLARATION
6090 -- | FORMAL_ABSTRACT_SUBPROGRAM_DECLARATION
6092 --------------------------------------------------
6093 -- 12.6 Formal Concrete Subprogram Declaration --
6094 --------------------------------------------------
6096 -- FORMAL_CONCRETE_SUBPROGRAM_DECLARATION ::=
6097 -- with SUBPROGRAM_SPECIFICATION [is SUBPROGRAM_DEFAULT];
6099 -- N_Formal_Concrete_Subprogram_Declaration
6100 -- Sloc points to WITH
6101 -- Specification (Node1)
6102 -- Default_Name (Node2) (set to Empty if no subprogram default)
6103 -- Box_Present (Flag15)
6105 -- Note: if no subprogram default is present, then Name is set
6106 -- to Empty, and Box_Present is False.
6108 --------------------------------------------------
6109 -- 12.6 Formal Abstract Subprogram Declaration --
6110 --------------------------------------------------
6112 -- FORMAL_ABSTRACT_SUBPROGRAM_DECLARATION ::=
6113 -- with SUBPROGRAM_SPECIFICATION is abstract [SUBPROGRAM_DEFAULT];
6115 -- N_Formal_Abstract_Subprogram_Declaration
6116 -- Sloc points to WITH
6117 -- Specification (Node1)
6118 -- Default_Name (Node2) (set to Empty if no subprogram default)
6119 -- Box_Present (Flag15)
6121 -- Note: if no subprogram default is present, then Name is set
6122 -- to Empty, and Box_Present is False.
6124 ------------------------------
6125 -- 12.6 Subprogram Default --
6126 ------------------------------
6128 -- SUBPROGRAM_DEFAULT ::= DEFAULT_NAME | <>
6130 -- There is no separate node in the tree for a subprogram default.
6131 -- Instead the parent (N_Formal_Concrete_Subprogram_Declaration
6132 -- or N_Formal_Abstract_Subprogram_Declaration) node contains the
6133 -- default name or box indication, as needed.
6135 ------------------------
6136 -- 12.6 Default Name --
6137 ------------------------
6139 -- DEFAULT_NAME ::= NAME
6141 --------------------------------------
6142 -- 12.7 Formal Package Declaration --
6143 --------------------------------------
6145 -- FORMAL_PACKAGE_DECLARATION ::=
6146 -- with package DEFINING_IDENTIFIER
6147 -- is new generic_package_NAME FORMAL_PACKAGE_ACTUAL_PART;
6149 -- Note: formal package declarations not allowed in Ada 83 mode
6151 -- N_Formal_Package_Declaration
6152 -- Sloc points to WITH
6153 -- Defining_Identifier (Node1)
6155 -- Generic_Associations (List3) (set to No_List if (<>) case or
6156 -- empty generic actual part)
6157 -- Box_Present (Flag15)
6158 -- Instance_Spec (Node5-Sem)
6159 -- ABE_Is_Certain (Flag18-Sem)
6161 --------------------------------------
6162 -- 12.7 Formal Package Actual Part --
6163 --------------------------------------
6165 -- FORMAL_PACKAGE_ACTUAL_PART ::=
6167 -- | [GENERIC_ACTUAL_PART]
6168 -- (FORMAL_PACKAGE_ASSOCIATION {. FORMAL_PACKAGE_ASSOCIATION}
6170 -- FORMAL_PACKAGE_ASSOCIATION ::=
6171 -- GENERIC_ASSOCIATION
6172 -- | GENERIC_FORMAL_PARAMETER_SELECTOR_NAME => <>
6174 -- There is no explicit node in the tree for a formal package actual
6175 -- part. Instead the information appears in the parent node (i.e. the
6176 -- formal package declaration node itself).
6178 -- There is no explicit node for a formal package association. All of
6179 -- them are represented either by a generic association, possibly with
6180 -- Box_Present, or by an N_Others_Choice.
6182 ---------------------------------
6183 -- 13.1 Representation clause --
6184 ---------------------------------
6186 -- REPRESENTATION_CLAUSE ::=
6187 -- ATTRIBUTE_DEFINITION_CLAUSE
6188 -- | ENUMERATION_REPRESENTATION_CLAUSE
6189 -- | RECORD_REPRESENTATION_CLAUSE
6192 ----------------------
6193 -- 13.1 Local Name --
6194 ----------------------
6198 -- | DIRECT_NAME'ATTRIBUTE_DESIGNATOR
6199 -- | library_unit_NAME
6201 -- The construct DIRECT_NAME'ATTRIBUTE_DESIGNATOR appears in the tree
6202 -- as an attribute reference, which has essentially the same form.
6204 ---------------------------------------
6205 -- 13.3 Attribute definition clause --
6206 ---------------------------------------
6208 -- ATTRIBUTE_DEFINITION_CLAUSE ::=
6209 -- for LOCAL_NAME'ATTRIBUTE_DESIGNATOR use EXPRESSION;
6210 -- | for LOCAL_NAME'ATTRIBUTE_DESIGNATOR use NAME;
6212 -- In Ada 83, the expression must be a simple expression and the
6213 -- local name must be a direct name.
6215 -- Note: the only attribute definition clause that is processed by
6216 -- gigi is an address clause. For all other cases, the information
6217 -- is extracted by the front end and either results in setting entity
6218 -- information, e.g. Esize for the Size clause, or in appropriate
6219 -- expansion actions (e.g. in the case of Storage_Size).
6221 -- For an address clause, Gigi constructs the appropriate addressing
6222 -- code. It also ensures that no aliasing optimizations are made
6223 -- for the object for which the address clause appears.
6225 -- Note: for an address clause used to achieve an overlay:
6229 -- for B'Address use A'Address;
6231 -- the above rule means that Gigi will ensure that no optimizations
6232 -- will be made for B that would violate the implementation advice
6233 -- of RM 13.3(19). However, this advice applies only to B and not
6234 -- to A, which seems unfortunate. The GNAT front end will mark the
6235 -- object A as volatile to also prevent unwanted optimization
6236 -- assumptions based on no aliasing being made for B.
6238 -- N_Attribute_Definition_Clause
6239 -- Sloc points to FOR
6240 -- Name (Node2) the local name
6241 -- Chars (Name1) the identifier name from the attribute designator
6242 -- Expression (Node3) the expression or name
6243 -- Entity (Node4-Sem)
6244 -- Next_Rep_Item (Node5-Sem)
6245 -- From_At_Mod (Flag4-Sem)
6246 -- Check_Address_Alignment (Flag11-Sem)
6247 -- Address_Warning_Posted (Flag18-Sem)
6249 ---------------------------------------------
6250 -- 13.4 Enumeration representation clause --
6251 ---------------------------------------------
6253 -- ENUMERATION_REPRESENTATION_CLAUSE ::=
6254 -- for first_subtype_LOCAL_NAME use ENUMERATION_AGGREGATE;
6256 -- In Ada 83, the name must be a direct name
6258 -- N_Enumeration_Representation_Clause
6259 -- Sloc points to FOR
6260 -- Identifier (Node1) direct name
6261 -- Array_Aggregate (Node3)
6262 -- Next_Rep_Item (Node5-Sem)
6264 ---------------------------------
6265 -- 13.4 Enumeration aggregate --
6266 ---------------------------------
6268 -- ENUMERATION_AGGREGATE ::= ARRAY_AGGREGATE
6270 ------------------------------------------
6271 -- 13.5.1 Record representation clause --
6272 ------------------------------------------
6274 -- RECORD_REPRESENTATION_CLAUSE ::=
6275 -- for first_subtype_LOCAL_NAME use
6276 -- record [MOD_CLAUSE]
6277 -- {COMPONENT_CLAUSE}
6280 -- Gigi restriction: Mod_Clause is always Empty (if present it is
6281 -- replaced by a corresponding Alignment attribute definition clause).
6283 -- Note: Component_Clauses can include pragmas
6285 -- N_Record_Representation_Clause
6286 -- Sloc points to FOR
6287 -- Identifier (Node1) direct name
6288 -- Mod_Clause (Node2) (set to Empty if no mod clause present)
6289 -- Component_Clauses (List3)
6290 -- Next_Rep_Item (Node5-Sem)
6292 ------------------------------
6293 -- 13.5.1 Component clause --
6294 ------------------------------
6296 -- COMPONENT_CLAUSE ::=
6297 -- component_LOCAL_NAME at POSITION
6298 -- range FIRST_BIT .. LAST_BIT;
6300 -- N_Component_Clause
6301 -- Sloc points to AT
6302 -- Component_Name (Node1) points to Name or Attribute_Reference
6304 -- First_Bit (Node3)
6307 ----------------------
6308 -- 13.5.1 Position --
6309 ----------------------
6311 -- POSITION ::= static_EXPRESSION
6313 -----------------------
6314 -- 13.5.1 First_Bit --
6315 -----------------------
6317 -- FIRST_BIT ::= static_SIMPLE_EXPRESSION
6319 ----------------------
6320 -- 13.5.1 Last_Bit --
6321 ----------------------
6323 -- LAST_BIT ::= static_SIMPLE_EXPRESSION
6325 --------------------------
6326 -- 13.8 Code statement --
6327 --------------------------
6329 -- CODE_STATEMENT ::= QUALIFIED_EXPRESSION;
6331 -- Note: in GNAT, the qualified expression has the form
6333 -- Asm_Insn'(Asm (...));
6335 -- See package System.Machine_Code in file s-maccod.ads for details on
6336 -- the allowed parameters to Asm. There are two ways this node can
6337 -- arise, as a code statement, in which case the expression is the
6338 -- qualified expression, or as a result of the expansion of an intrinsic
6339 -- call to the Asm or Asm_Input procedure.
6342 -- Sloc points to first token of the expression
6343 -- Expression (Node3)
6345 -- Note: package Exp_Code contains an abstract functional interface
6346 -- for use by Gigi in accessing the data from N_Code_Statement nodes.
6348 ------------------------
6349 -- 13.12 Restriction --
6350 ------------------------
6353 -- restriction_IDENTIFIER
6354 -- | restriction_parameter_IDENTIFIER => EXPRESSION
6356 -- There is no explicit node for restrictions. Instead the restriction
6357 -- appears in normal pragma syntax as a pragma argument association,
6358 -- which has the same syntactic form.
6360 --------------------------
6361 -- B.2 Shift Operators --
6362 --------------------------
6364 -- Calls to the intrinsic shift functions are converted to one of
6365 -- the following shift nodes, which have the form of normal binary
6366 -- operator names. Note that for a given shift operation, one node
6367 -- covers all possible types, as for normal operators.
6369 -- Note: it is perfectly permissible for the expander to generate
6370 -- shift operation nodes directly, in which case they will be analyzed
6371 -- and parsed in the usual manner.
6373 -- Sprint syntax: shift-function-name!(expr, count)
6375 -- Note: the Left_Opnd field holds the first argument (the value to
6376 -- be shifted). The Right_Opnd field holds the second argument (the
6377 -- shift count). The Chars field is the name of the intrinsic function.
6380 -- Sloc points to the function name
6381 -- plus fields for binary operator
6382 -- plus fields for expression
6383 -- Shift_Count_OK (Flag4-Sem)
6385 -- N_Op_Rotate_Right
6386 -- Sloc points to the function name
6387 -- plus fields for binary operator
6388 -- plus fields for expression
6389 -- Shift_Count_OK (Flag4-Sem)
6392 -- Sloc points to the function name
6393 -- plus fields for binary operator
6394 -- plus fields for expression
6395 -- Shift_Count_OK (Flag4-Sem)
6397 -- N_Op_Shift_Right_Arithmetic
6398 -- Sloc points to the function name
6399 -- plus fields for binary operator
6400 -- plus fields for expression
6401 -- Shift_Count_OK (Flag4-Sem)
6404 -- Sloc points to the function name
6405 -- plus fields for binary operator
6406 -- plus fields for expression
6407 -- Shift_Count_OK (Flag4-Sem)
6409 --------------------------
6410 -- Obsolescent Features --
6411 --------------------------
6413 -- The syntax descriptions and tree nodes for obsolescent features are
6414 -- grouped together, corresponding to their location in appendix I in
6415 -- the RM. However, parsing and semantic analysis for these constructs
6416 -- is located in an appropriate chapter (see individual notes).
6418 ---------------------------
6419 -- J.3 Delta Constraint --
6420 ---------------------------
6422 -- Note: the parse routine for this construct is located in section
6423 -- 3.5.9 of Par-Ch3, and semantic analysis is in Sem_Ch3, which is
6424 -- where delta constraint logically belongs.
6426 -- DELTA_CONSTRAINT ::= DELTA static_EXPRESSION [RANGE_CONSTRAINT]
6428 -- N_Delta_Constraint
6429 -- Sloc points to DELTA
6430 -- Delta_Expression (Node3)
6431 -- Range_Constraint (Node4) (set to Empty if not present)
6433 --------------------
6435 --------------------
6437 -- AT_CLAUSE ::= for DIRECT_NAME use at EXPRESSION;
6439 -- Note: the parse routine for this construct is located in Par-Ch13,
6440 -- and the semantic analysis is in Sem_Ch13, where at clause logically
6441 -- belongs if it were not obsolescent.
6443 -- Note: in Ada 83 the expression must be a simple expression
6445 -- Gigi restriction: This node never appears, it is rewritten as an
6446 -- address attribute definition clause.
6449 -- Sloc points to FOR
6450 -- Identifier (Node1)
6451 -- Expression (Node3)
6453 ---------------------
6454 -- J.8 Mod clause --
6455 ---------------------
6457 -- MOD_CLAUSE ::= at mod static_EXPRESSION;
6459 -- Note: the parse routine for this construct is located in Par-Ch13,
6460 -- and the semantic analysis is in Sem_Ch13, where mod clause logically
6461 -- belongs if it were not obsolescent.
6463 -- Note: in Ada 83, the expression must be a simple expression
6465 -- Gigi restriction: this node never appears. It is replaced
6466 -- by a corresponding Alignment attribute definition clause.
6468 -- Note: pragmas can appear before and after the MOD_CLAUSE since
6469 -- its name has "clause" in it. This is rather strange, but is quite
6470 -- definitely specified. The pragmas before are collected in the
6471 -- Pragmas_Before field of the mod clause node itself, and pragmas
6472 -- after are simply swallowed up in the list of component clauses.
6475 -- Sloc points to AT
6476 -- Expression (Node3)
6477 -- Pragmas_Before (List4) Pragmas before mod clause (No_List if none)
6479 --------------------
6480 -- Semantic Nodes --
6481 --------------------
6483 -- These semantic nodes are used to hold additional semantic information.
6484 -- They are inserted into the tree as a result of semantic processing.
6485 -- Although there are no legitimate source syntax constructions that
6486 -- correspond directly to these nodes, we need a source syntax for the
6487 -- reconstructed tree printed by Sprint, and the node descriptions here
6488 -- show this syntax.
6490 -- Note: Conditional_Expression is in this section for historical reasons.
6491 -- We will move it to its appropriate place when it is officially approved
6492 -- as an extension (and then we will know what the exact grammar and place
6493 -- in the Reference Manual is!)
6495 ----------------------------
6496 -- Conditional Expression --
6497 ----------------------------
6499 -- This node is used to represent an expression corresponding to the
6500 -- C construct (condition ? then-expression : else_expression), where
6501 -- Expressions is a three element list, whose first expression is the
6502 -- condition, and whose second and third expressions are the then and
6503 -- else expressions respectively.
6505 -- Note: the Then_Actions and Else_Actions fields are always set to
6506 -- No_List in the tree passed to Gigi. These fields are used only
6507 -- for temporary processing purposes in the expander.
6509 -- The Ada language does not permit conditional expressions, however
6510 -- this is under discussion as a possible extension by the ARG, and we
6511 -- have implemented a form of this capability in GNAT under control of
6512 -- the -gnatX switch. The syntax is:
6514 -- CONDITIONAL_EXPRESSION ::=
6515 -- if EXPRESSION then EXPRESSION
6516 -- {elsif EXPRESSION then EXPRESSION}
6517 -- [else EXPRESSION]
6519 -- And we add the additional constructs
6521 -- PRIMARY ::= ( CONDITIONAL_EXPRESION )
6522 -- PRAGMA_ARGUMENT_ASSOCIATION ::= CONDITIONAL_EXPRESSION
6524 -- Note: if we have (IF x1 THEN x2 ELSIF x3 THEN x4 ELSE x5) then it
6525 -- is represented as (IF x1 THEN x2 ELSE (IF x3 THEN x4 ELSE x5)) and
6526 -- the Is_Elsif flag is set on the inner conditional expression.
6528 -- N_Conditional_Expression
6529 -- Sloc points to IF or ELSIF keyword
6530 -- Expressions (List1)
6531 -- Then_Actions (List2-Sem)
6532 -- Else_Actions (List3-Sem)
6533 -- Is_Elsif (Flag13) (set if comes from ELSIF)
6534 -- plus fields for expression
6540 -- The N_Expanded_Name node is used to represent a selected component
6541 -- name that has been resolved to an expanded name. The semantic phase
6542 -- replaces N_Selected_Component nodes that represent names by the use
6543 -- of this node, leaving the N_Selected_Component node used only when
6544 -- the prefix is a record or protected type.
6546 -- The fields of the N_Expanded_Name node are layed out identically
6547 -- to those of the N_Selected_Component node, allowing conversion of
6548 -- an expanded name node to a selected component node to be done
6549 -- easily, see Sinfo.CN.Change_Selected_Component_To_Expanded_Name.
6551 -- There is no special sprint syntax for an expanded name
6554 -- Sloc points to the period
6555 -- Chars (Name1) copy of Chars field of selector name
6557 -- Selector_Name (Node2)
6558 -- Entity (Node4-Sem)
6559 -- Associated_Node (Node4-Sem)
6560 -- Redundant_Use (Flag13-Sem)
6561 -- Has_Private_View (Flag11-Sem) set in generic units.
6562 -- plus fields for expression
6564 --------------------
6565 -- Free Statement --
6566 --------------------
6568 -- The N_Free_Statement node is generated as a result of a call to an
6569 -- instantiation of Unchecked_Deallocation. The instantiation of this
6570 -- generic is handled specially and generates this node directly.
6572 -- Sprint syntax: free expression
6575 -- Sloc is copied from the unchecked deallocation call
6576 -- Expression (Node3) argument to unchecked deallocation call
6577 -- Storage_Pool (Node1-Sem)
6578 -- Procedure_To_Call (Node2-Sem)
6579 -- Actual_Designated_Subtype (Node4-Sem)
6581 -- Note: in the case where a debug source file is generated, the Sloc
6582 -- for this node points to the FREE keyword in the Sprint file output.
6588 -- This node marks the point in a declarative part at which an entity
6589 -- declared therein becomes frozen. The expander places initialization
6590 -- procedures for types at those points. Gigi uses the freezing point
6591 -- to elaborate entities that may depend on previous private types.
6593 -- See the section in Einfo "Delayed Freezing and Elaboration" for
6594 -- a full description of the use of this node.
6596 -- The Entity field points back to the entity for the type (whose
6597 -- Freeze_Node field points back to this freeze node).
6599 -- The Actions field contains a list of declarations and statements
6600 -- generated by the expander which are associated with the freeze
6601 -- node, and are elaborated as though the freeze node were replaced
6602 -- by this sequence of actions.
6604 -- Note: the Sloc field in the freeze node references a construct
6605 -- associated with the freezing point. This is used for posting
6606 -- messages in some error/warning situations, e.g. the case where
6607 -- a primitive operation of a tagged type is declared too late.
6609 -- Sprint syntax: freeze entity-name [
6614 -- Sloc points near freeze point (see above special note)
6615 -- Entity (Node4-Sem)
6616 -- Access_Types_To_Process (Elist2-Sem) (set to No_Elist if none)
6617 -- TSS_Elist (Elist3-Sem) (set to No_Elist if no associated TSS's)
6618 -- Actions (List1) (set to No_List if no freeze actions)
6619 -- First_Subtype_Link (Node5-Sem) (set to Empty if no link)
6621 -- The Actions field holds actions associated with the freeze. These
6622 -- actions are elaborated at the point where the type is frozen.
6624 -- Note: in the case where a debug source file is generated, the Sloc
6625 -- for this node points to the FREEZE keyword in the Sprint file output.
6627 --------------------------------
6628 -- Implicit Label Declaration --
6629 --------------------------------
6631 -- An implicit label declaration is created for every occurrence of a
6632 -- label on a statement or a label on a block or loop. It is chained
6633 -- in the declarations of the innermost enclosing block as specified
6634 -- in RM section 5.1 (3).
6636 -- The Defining_Identifier is the actual identifier for the statement
6637 -- identifier. Note that the occurrence of the label is a reference, NOT
6638 -- the defining occurrence. The defining occurrence occurs at the head
6639 -- of the innermost enclosing block, and is represented by this node.
6641 -- Note: from the grammar, this might better be called an implicit
6642 -- statement identifier declaration, but the term we choose seems
6643 -- friendlier, since at least informally statement identifiers are
6644 -- called labels in both cases (i.e. when used in labels, and when
6645 -- used as the identifiers of blocks and loops).
6647 -- Note: although this is logically a semantic node, since it does not
6648 -- correspond directly to a source syntax construction, these nodes are
6649 -- actually created by the parser in a post pass done just after parsing
6650 -- is complete, before semantic analysis is started (see Par.Labl).
6652 -- Sprint syntax: labelname : label;
6654 -- N_Implicit_Label_Declaration
6655 -- Sloc points to the << of the label
6656 -- Defining_Identifier (Node1)
6657 -- Label_Construct (Node2-Sem)
6659 -- Note: in the case where a debug source file is generated, the Sloc
6660 -- for this node points to the label name in the generated declaration.
6662 ---------------------
6663 -- Itype_Reference --
6664 ---------------------
6666 -- This node is used to create a reference to an Itype. The only purpose
6667 -- is to make sure the Itype is defined if this is the first reference.
6669 -- A typical use of this node is when an Itype is to be referenced in
6670 -- two branches of an IF statement. In this case it is important that
6671 -- the first use of the Itype not be inside the conditional, since then
6672 -- it might not be defined if the other branch of the IF is taken, in
6673 -- the case where the definition generates elaboration code.
6675 -- The Itype field points to the referenced Itype
6677 -- Sprint syntax: reference itype-name
6679 -- N_Itype_Reference
6680 -- Sloc points to the node generating the reference
6681 -- Itype (Node1-Sem)
6683 -- Note: in the case where a debug source file is generated, the Sloc
6684 -- for this node points to the REFERENCE keyword in the file output.
6686 ---------------------
6687 -- Raise_xxx_Error --
6688 ---------------------
6690 -- One of these nodes is created during semantic analysis to replace
6691 -- a node for an expression that is determined to definitely raise
6692 -- the corresponding exception.
6694 -- The N_Raise_xxx_Error node may also stand alone in place
6695 -- of a declaration or statement, in which case it simply causes
6696 -- the exception to be raised (i.e. it is equivalent to a raise
6697 -- statement that raises the corresponding exception). This use
6698 -- is distinguished by the fact that the Etype in this case is
6699 -- Standard_Void_Type, In the subexpression case, the Etype is the
6700 -- same as the type of the subexpression which it replaces.
6702 -- If Condition is empty, then the raise is unconditional. If the
6703 -- Condition field is non-empty, it is a boolean expression which
6704 -- is first evaluated, and the exception is raised only if the
6705 -- value of the expression is True. In the unconditional case, the
6706 -- creation of this node is usually accompanied by a warning message
6707 -- error. The creation of this node will usually be accompanied by a
6708 -- message (unless it appears within the right operand of a short
6709 -- circuit form whose left argument is static and decisively
6710 -- eliminates elaboration of the raise operation. The condition field
6711 -- can ONLY be present when the node is used as a statement form, it
6712 -- may NOT be present in the case where the node appears within an
6715 -- The exception is generated with a message that contains the
6716 -- file name and line number, and then appended text. The Reason
6717 -- code shows the text to be added. The Reason code is an element
6718 -- of the type Types.RT_Exception_Code, and indicates both the
6719 -- message to be added, and the exception to be raised (which must
6720 -- match the node type). The value is stored by storing a Uint which
6721 -- is the Pos value of the enumeration element in this type.
6723 -- Gigi restriction: This expander ensures that the type of the
6724 -- Condition field is always Standard.Boolean, even if the type
6725 -- in the source is some non-standard boolean type.
6727 -- Sprint syntax: [xxx_error "msg"]
6728 -- or: [xxx_error when condition "msg"]
6730 -- N_Raise_Constraint_Error
6731 -- Sloc references related construct
6732 -- Condition (Node1) (set to Empty if no condition)
6734 -- plus fields for expression
6736 -- N_Raise_Program_Error
6737 -- Sloc references related construct
6738 -- Condition (Node1) (set to Empty if no condition)
6740 -- plus fields for expression
6742 -- N_Raise_Storage_Error
6743 -- Sloc references related construct
6744 -- Condition (Node1) (set to Empty if no condition)
6746 -- plus fields for expression
6748 -- Note: Sloc is copied from the expression generating the exception.
6749 -- In the case where a debug source file is generated, the Sloc for
6750 -- this node points to the left bracket in the Sprint file output.
6752 -- Note: the back end may be required to translate these nodes into
6753 -- appropriate goto statements. See description of N_Push/Pop_xxx_Label.
6755 ---------------------------------------------
6756 -- Optimization of Exception Raise to Goto --
6757 ---------------------------------------------
6759 -- In some cases, the front end will determine that any exception raised
6760 -- by the back end for a certain exception should be transformed into a
6763 -- There are three kinds of exceptions raised by the back end (note that
6764 -- for this purpose we consider gigi to be part of the back end in the
6767 -- 1. Exceptions resulting from N_Raise_xxx_Error nodes
6768 -- 2. Exceptions from checks triggered by Do_xxx_Check flags
6769 -- 3. Other cases not specifically marked by the front end
6771 -- Normally all such exceptions are translated into calls to the proper
6772 -- Rcheck_xx procedure, where xx encodes both the exception to be raised
6773 -- and the exception message.
6775 -- The front end may determine that for a particular sequence of code,
6776 -- exceptions in any of these three categories for a particular builtin
6777 -- exception should result in a goto, rather than a call to Rcheck_xx.
6778 -- The exact sequence to be generated is:
6780 -- Local_Raise (exception'Identity);
6783 -- The front end marks such a sequence of code by bracketing it with
6784 -- push and pop nodes:
6786 -- N_Push_xxx_Label (referencing the label)
6788 -- (code where transformation is expected for exception xxx)
6792 -- The use of push/pop reflects the fact that such regions can properly
6793 -- nest, and one special case is a subregion in which no transformation
6794 -- is allowed. Such a region is marked by a N_Push_xxx_Label node whose
6795 -- Exception_Label field is Empty.
6797 -- N_Push_Constraint_Error_Label
6798 -- Sloc references first statement in region covered
6799 -- Exception_Label (Node5-Sem)
6801 -- N_Push_Program_Error_Label
6802 -- Sloc references first statement in region covered
6803 -- Exception_Label (Node5-Sem)
6805 -- N_Push_Storage_Error_Label
6806 -- Sloc references first statement in region covered
6807 -- Exception_Label (Node5-Sem)
6809 -- N_Pop_Constraint_Error_Label
6810 -- Sloc references last statement in region covered
6812 -- N_Pop_Program_Error_Label
6813 -- Sloc references last statement in region covered
6815 -- N_Pop_Storage_Error_Label
6816 -- Sloc references last statement in region covered
6822 -- For a number of purposes, we need to construct references to objects.
6823 -- These references are subsequently treated as normal access values.
6824 -- An example is the construction of the parameter block passed to a
6825 -- task entry. The N_Reference node is provided for this purpose. It is
6826 -- similar in effect to the use of the Unrestricted_Access attribute,
6827 -- and like Unrestricted_Access can be applied to objects which would
6828 -- not be valid prefixes for the Unchecked_Access attribute (e.g.
6829 -- objects which are not aliased, and slices). In addition it can be
6830 -- applied to composite type values as well as objects, including string
6831 -- values and aggregates.
6833 -- Note: we use the Prefix field for this expression so that the
6834 -- resulting node can be treated using common code with the attribute
6835 -- nodes for the 'Access and related attributes. Logically it would make
6836 -- more sense to call it an Expression field, but then we would have to
6837 -- special case the treatment of the N_Reference node.
6839 -- Sprint syntax: prefix'reference
6842 -- Sloc is copied from the expression
6844 -- plus fields for expression
6846 -- Note: in the case where a debug source file is generated, the Sloc
6847 -- for this node points to the quote in the Sprint file output.
6853 -- SCIL nodes are special nodes added to the tree when the CodePeer
6854 -- mode is active. They help the CodePeer backend to locate nodes that
6855 -- require special processing.
6857 -- Major documentation on the general design of the SCIL interface, and
6858 -- in particular detailed description of these nodes is missing and is
6859 -- to be supplied in the future, when the design has finalized ???
6861 -- Meanwhile these nodes should be considered in experimental form, and
6862 -- should be ignored by all code generating back ends. ???
6864 -- N_SCIL_Dispatch_Table_Object_Init
6865 -- Sloc references a declaration node containing a dispatch table
6866 -- SCIL_Related_Node (Node1-Sem)
6867 -- SCIL_Entity (Node4-Sem)
6869 -- N_SCIL_Dispatch_Table_Tag_Init
6870 -- Sloc references a node for a tag initialization
6871 -- SCIL_Related_Node (Node1-Sem)
6872 -- SCIL_Entity (Node4-Sem)
6874 -- N_SCIL_Dispatching_Call
6875 -- Sloc references the node of a dispatching call
6876 -- SCIL_Related_Node (Node1-Sem)
6877 -- SCIL_Target_Prim (Node2-Sem)
6878 -- SCIL_Entity (Node4-Sem)
6879 -- SCIL_Controlling_Tag (Node5-Sem)
6882 -- Sloc references the node of a tag component initialization
6883 -- SCIL_Related_Node (Node1-Sem)
6884 -- SCIL_Entity (Node4-Sem)
6886 ---------------------
6887 -- Subprogram_Info --
6888 ---------------------
6890 -- This node generates the appropriate Subprogram_Info value for a
6891 -- given procedure. See Ada.Exceptions for further details
6893 -- Sprint syntax: subprog'subprogram_info
6895 -- N_Subprogram_Info
6896 -- Sloc points to the entity for the procedure
6897 -- Identifier (Node1) identifier referencing the procedure
6898 -- Etype (Node5-Sem) type (always set to Ada.Exceptions.Code_Loc
6900 -- Note: in the case where a debug source file is generated, the Sloc
6901 -- for this node points to the quote in the Sprint file output.
6903 --------------------------
6904 -- Unchecked Expression --
6905 --------------------------
6907 -- An unchecked expression is one that must be analyzed and resolved
6908 -- with all checks off, regardless of the current setting of scope
6911 -- Sprint syntax: `(expression)
6913 -- Note: this node is always removed from the tree (and replaced by
6914 -- its constituent expression) on completion of analysis, so it only
6915 -- appears in intermediate trees, and will never be seen by Gigi.
6917 -- N_Unchecked_Expression
6918 -- Sloc is a copy of the Sloc of the expression
6919 -- Expression (Node3)
6920 -- plus fields for expression
6922 -- Note: in the case where a debug source file is generated, the Sloc
6923 -- for this node points to the back quote in the Sprint file output.
6925 -------------------------------
6926 -- Unchecked Type Conversion --
6927 -------------------------------
6929 -- An unchecked type conversion node represents the semantic action
6930 -- corresponding to a call to an instantiation of Unchecked_Conversion.
6931 -- It is generated as a result of actual use of Unchecked_Conversion
6932 -- and also the expander generates unchecked type conversion nodes
6933 -- directly for expansion of complex semantic actions.
6935 -- Note: an unchecked type conversion is a variable as far as the
6936 -- semantics are concerned, which is convenient for the expander.
6937 -- This does not change what Ada source programs are legal, since
6938 -- clearly a function call to an instantiation of Unchecked_Conversion
6939 -- is not a variable in any case.
6941 -- Sprint syntax: subtype-mark!(expression)
6943 -- N_Unchecked_Type_Conversion
6944 -- Sloc points to related node in source
6945 -- Subtype_Mark (Node4)
6946 -- Expression (Node3)
6947 -- Kill_Range_Check (Flag11-Sem)
6948 -- No_Truncation (Flag17-Sem)
6949 -- plus fields for expression
6951 -- Note: in the case where a debug source file is generated, the Sloc
6952 -- for this node points to the exclamation in the Sprint file output.
6954 -----------------------------------
6955 -- Validate_Unchecked_Conversion --
6956 -----------------------------------
6958 -- The front end does most of the validation of unchecked conversion,
6959 -- including checking sizes (this is done after the back end is called
6960 -- to take advantage of back-annotation of calculated sizes).
6962 -- The front end also deals with specific cases that are not allowed
6963 -- e.g. involving unconstrained array types.
6965 -- For the case of the standard gigi backend, this means that all
6966 -- checks are done in the front-end.
6968 -- However, in the case of specialized back-ends, notably the JVM
6969 -- backend for JGNAT, additional requirements and restrictions apply
6970 -- to unchecked conversion, and these are most conveniently performed
6971 -- in the specialized back-end.
6973 -- To accommodate this requirement, for such back ends, the following
6974 -- special node is generated recording an unchecked conversion that
6975 -- needs to be validated. The back end should post an appropriate
6976 -- error message if the unchecked conversion is invalid or warrants
6977 -- a special warning message.
6979 -- Source_Type and Target_Type point to the entities for the two
6980 -- types involved in the unchecked conversion instantiation that
6981 -- is to be validated.
6983 -- Sprint syntax: validate Unchecked_Conversion (source, target);
6985 -- N_Validate_Unchecked_Conversion
6986 -- Sloc points to instantiation (location for warning message)
6987 -- Source_Type (Node1-Sem)
6988 -- Target_Type (Node2-Sem)
6990 -- Note: in the case where a debug source file is generated, the Sloc
6991 -- for this node points to the VALIDATE keyword in the file output.
6997 -- Used as the contents of the Nkind field of the dummy Empty node
6998 -- and in some other situations to indicate an uninitialized value.
7001 -- Chars (Name1) is set to No_Name
7007 -- Used as the contents of the Nkind field of the dummy Error node.
7008 -- Has an Etype field, which gets set to Any_Type later on, to help
7009 -- error recovery (Error_Posted is also set in the Error node).
7012 -- Chars (Name1) is set to Error_Name
7013 -- Etype (Node5-Sem)
7015 --------------------------
7016 -- Node Type Definition --
7017 --------------------------
7019 -- The following is the definition of the Node_Kind type. As previously
7020 -- discussed, this is separated off to allow rearrangement of the order
7021 -- to facilitate definition of subtype ranges. The comments show the
7022 -- subtype classes which apply to each set of node kinds. The first
7023 -- entry in the comment characterizes the following list of nodes.
7028 -- N_Representation_Clause
7032 N_Enumeration_Representation_Clause,
7034 N_Record_Representation_Clause,
7036 -- N_Representation_Clause, N_Has_Chars
7038 N_Attribute_Definition_Clause,
7043 N_Pragma_Argument_Association,
7049 -- N_Entity, N_Has_Etype, N_Has_Chars
7051 N_Defining_Character_Literal,
7052 N_Defining_Identifier,
7053 N_Defining_Operator_Symbol,
7055 -- N_Subexpr, N_Has_Etype, N_Has_Chars, N_Has_Entity
7059 -- N_Direct_Name, N_Subexpr, N_Has_Etype,
7060 -- N_Has_Chars, N_Has_Entity
7065 -- N_Direct_Name, N_Subexpr, N_Has_Etype,
7066 -- N_Has_Chars, N_Has_Entity
7068 N_Character_Literal,
7070 -- N_Binary_Op, N_Op, N_Subexpr,
7071 -- N_Has_Etype, N_Has_Chars, N_Has_Entity
7078 -- N_Binary_Op, N_Op, N_Subexpr, N_Has_Treat_Fixed_As_Integer
7079 -- N_Has_Etype, N_Has_Chars, N_Has_Entity, N_Multiplying_Operator
7086 -- N_Binary_Op, N_Op, N_Subexpr, N_Has_Etype
7087 -- N_Has_Entity, N_Has_Chars, N_Op_Boolean
7091 -- N_Binary_Op, N_Op, N_Subexpr, N_Has_Etype
7092 -- N_Has_Entity, N_Has_Chars, N_Op_Boolean, N_Op_Compare
7101 -- N_Binary_Op, N_Op, N_Subexpr, N_Has_Etype
7102 -- N_Has_Entity, N_Has_Chars, N_Op_Boolean
7107 -- N_Binary_Op, N_Op, N_Subexpr, N_Has_Etype,
7108 -- N_Op_Shift, N_Has_Chars, N_Has_Entity
7114 N_Op_Shift_Right_Arithmetic,
7116 -- N_Unary_Op, N_Op, N_Subexpr, N_Has_Etype,
7117 -- N_Has_Chars, N_Has_Entity
7124 -- N_Subexpr, N_Has_Etype, N_Has_Entity
7126 N_Attribute_Reference,
7128 -- N_Subexpr, N_Has_Etype, N_Membership_Test
7133 -- N_Subexpr, N_Has_Etype, N_Short_Circuit
7138 -- N_Subexpr, N_Has_Etype
7140 N_Conditional_Expression,
7141 N_Explicit_Dereference,
7143 N_Indexed_Component,
7146 N_Procedure_Call_Statement,
7147 N_Qualified_Expression,
7149 -- N_Raise_xxx_Error, N_Subexpr, N_Has_Etype
7151 N_Raise_Constraint_Error,
7152 N_Raise_Program_Error,
7153 N_Raise_Storage_Error,
7155 -- N_Subexpr, N_Has_Etype
7159 N_Extension_Aggregate,
7163 N_Selected_Component,
7168 N_Unchecked_Expression,
7169 N_Unchecked_Type_Conversion,
7173 N_Subtype_Indication,
7177 N_Component_Declaration,
7178 N_Entry_Declaration,
7179 N_Formal_Object_Declaration,
7180 N_Formal_Type_Declaration,
7181 N_Full_Type_Declaration,
7182 N_Incomplete_Type_Declaration,
7183 N_Loop_Parameter_Specification,
7184 N_Object_Declaration,
7185 N_Protected_Type_Declaration,
7186 N_Private_Extension_Declaration,
7187 N_Private_Type_Declaration,
7188 N_Subtype_Declaration,
7190 -- N_Subprogram_Specification, N_Declaration
7192 N_Function_Specification,
7193 N_Procedure_Specification,
7195 -- N_Access_To_Subprogram_Definition
7197 N_Access_Function_Definition,
7198 N_Access_Procedure_Definition,
7200 -- N_Later_Decl_Item
7202 N_Task_Type_Declaration,
7204 -- N_Body_Stub, N_Later_Decl_Item
7206 N_Package_Body_Stub,
7207 N_Protected_Body_Stub,
7208 N_Subprogram_Body_Stub,
7211 -- N_Generic_Instantiation, N_Later_Decl_Item
7212 -- N_Subprogram_Instantiation
7214 N_Function_Instantiation,
7215 N_Procedure_Instantiation,
7217 -- N_Generic_Instantiation, N_Later_Decl_Item
7219 N_Package_Instantiation,
7221 -- N_Unit_Body, N_Later_Decl_Item, N_Proper_Body
7226 -- N_Later_Decl_Item, N_Proper_Body
7231 -- N_Later_Decl_Item
7233 N_Implicit_Label_Declaration,
7234 N_Package_Declaration,
7235 N_Single_Task_Declaration,
7236 N_Subprogram_Declaration,
7237 N_Use_Package_Clause,
7239 -- N_Generic_Declaration, N_Later_Decl_Item
7241 N_Generic_Package_Declaration,
7242 N_Generic_Subprogram_Declaration,
7244 -- N_Array_Type_Definition
7246 N_Constrained_Array_Definition,
7247 N_Unconstrained_Array_Definition,
7249 -- N_Renaming_Declaration
7251 N_Exception_Renaming_Declaration,
7252 N_Object_Renaming_Declaration,
7253 N_Package_Renaming_Declaration,
7254 N_Subprogram_Renaming_Declaration,
7256 -- N_Generic_Renaming_Declaration, N_Renaming_Declaration
7258 N_Generic_Function_Renaming_Declaration,
7259 N_Generic_Package_Renaming_Declaration,
7260 N_Generic_Procedure_Renaming_Declaration,
7262 -- N_Statement_Other_Than_Procedure_Call
7266 N_Assignment_Statement,
7267 N_Asynchronous_Select,
7271 N_Conditional_Entry_Call,
7273 -- N_Statement_Other_Than_Procedure_Call. N_Delay_Statement
7275 N_Delay_Relative_Statement,
7276 N_Delay_Until_Statement,
7278 -- N_Statement_Other_Than_Procedure_Call
7280 N_Entry_Call_Statement,
7286 N_Requeue_Statement,
7287 N_Return_Statement, -- renamed as N_Simple_Return_Statement below
7288 N_Extended_Return_Statement,
7292 -- N_Statement_Other_Than_Procedure_Call, N_Has_Condition
7299 N_Accept_Alternative,
7300 N_Delay_Alternative,
7302 N_Entry_Body_Formal_Part,
7304 N_Terminate_Alternative,
7306 -- N_Formal_Subprogram_Declaration
7308 N_Formal_Abstract_Subprogram_Declaration,
7309 N_Formal_Concrete_Subprogram_Declaration,
7311 -- N_Push_xxx_Label, N_Push_Pop_xxx_Label
7313 N_Push_Constraint_Error_Label,
7314 N_Push_Program_Error_Label,
7315 N_Push_Storage_Error_Label,
7317 -- N_Pop_xxx_Label, N_Push_Pop_xxx_Label
7319 N_Pop_Constraint_Error_Label,
7320 N_Pop_Program_Error_Label,
7321 N_Pop_Storage_Error_Label,
7325 N_SCIL_Dispatch_Table_Object_Init,
7326 N_SCIL_Dispatch_Table_Tag_Init,
7327 N_SCIL_Dispatching_Call,
7330 -- Other nodes (not part of any subtype class)
7333 N_Abstract_Subprogram_Declaration,
7334 N_Access_Definition,
7335 N_Access_To_Object_Definition,
7336 N_Case_Statement_Alternative,
7338 N_Compilation_Unit_Aux,
7339 N_Component_Association,
7340 N_Component_Definition,
7342 N_Derived_Type_Definition,
7343 N_Decimal_Fixed_Point_Definition,
7344 N_Defining_Program_Unit_Name,
7347 N_Digits_Constraint,
7348 N_Discriminant_Association,
7349 N_Discriminant_Specification,
7350 N_Enumeration_Type_Definition,
7352 N_Entry_Call_Alternative,
7353 N_Entry_Index_Specification,
7354 N_Exception_Declaration,
7355 N_Exception_Handler,
7356 N_Floating_Point_Definition,
7357 N_Formal_Decimal_Fixed_Point_Definition,
7358 N_Formal_Derived_Type_Definition,
7359 N_Formal_Discrete_Type_Definition,
7360 N_Formal_Floating_Point_Definition,
7361 N_Formal_Modular_Type_Definition,
7362 N_Formal_Ordinary_Fixed_Point_Definition,
7363 N_Formal_Package_Declaration,
7364 N_Formal_Private_Type_Definition,
7365 N_Formal_Signed_Integer_Type_Definition,
7367 N_Generic_Association,
7368 N_Handled_Sequence_Of_Statements,
7369 N_Index_Or_Discriminant_Constraint,
7372 N_Modular_Type_Definition,
7373 N_Number_Declaration,
7374 N_Ordinary_Fixed_Point_Definition,
7376 N_Package_Specification,
7377 N_Parameter_Association,
7378 N_Parameter_Specification,
7380 N_Protected_Definition,
7382 N_Real_Range_Specification,
7383 N_Record_Definition,
7384 N_Signed_Integer_Type_Definition,
7385 N_Single_Protected_Declaration,
7388 N_Triggering_Alternative,
7390 N_Validate_Unchecked_Conversion,
7396 for Node_Kind'Size use 8;
7397 -- The data structures in Atree assume this!
7399 ----------------------------
7400 -- Node Class Definitions --
7401 ----------------------------
7403 subtype N_Access_To_Subprogram_Definition is Node_Kind range
7404 N_Access_Function_Definition ..
7405 N_Access_Procedure_Definition;
7407 subtype N_Array_Type_Definition is Node_Kind range
7408 N_Constrained_Array_Definition ..
7409 N_Unconstrained_Array_Definition;
7411 subtype N_Binary_Op is Node_Kind range
7413 N_Op_Shift_Right_Arithmetic;
7415 subtype N_Body_Stub is Node_Kind range
7416 N_Package_Body_Stub ..
7419 subtype N_Declaration is Node_Kind range
7420 N_Component_Declaration ..
7421 N_Procedure_Specification;
7422 -- Note: this includes all constructs normally thought of as declarations
7423 -- except those which are separately grouped as later declarations.
7425 subtype N_Delay_Statement is Node_Kind range
7426 N_Delay_Relative_Statement ..
7427 N_Delay_Until_Statement;
7429 subtype N_Direct_Name is Node_Kind range
7431 N_Character_Literal;
7433 subtype N_Entity is Node_Kind range
7434 N_Defining_Character_Literal ..
7435 N_Defining_Operator_Symbol;
7437 subtype N_Formal_Subprogram_Declaration is Node_Kind range
7438 N_Formal_Abstract_Subprogram_Declaration ..
7439 N_Formal_Concrete_Subprogram_Declaration;
7441 subtype N_Generic_Declaration is Node_Kind range
7442 N_Generic_Package_Declaration ..
7443 N_Generic_Subprogram_Declaration;
7445 subtype N_Generic_Instantiation is Node_Kind range
7446 N_Function_Instantiation ..
7447 N_Package_Instantiation;
7449 subtype N_Generic_Renaming_Declaration is Node_Kind range
7450 N_Generic_Function_Renaming_Declaration ..
7451 N_Generic_Procedure_Renaming_Declaration;
7453 subtype N_Has_Chars is Node_Kind range
7454 N_Attribute_Definition_Clause ..
7457 subtype N_Has_Entity is Node_Kind range
7459 N_Attribute_Reference;
7460 -- Nodes that have Entity fields
7461 -- Warning: DOES NOT INCLUDE N_Freeze_Entity!
7463 subtype N_Has_Etype is Node_Kind range
7465 N_Subtype_Indication;
7467 subtype N_Has_Treat_Fixed_As_Integer is Node_Kind range
7471 subtype N_Multiplying_Operator is Node_Kind range
7475 subtype N_Later_Decl_Item is Node_Kind range
7476 N_Task_Type_Declaration ..
7477 N_Generic_Subprogram_Declaration;
7478 -- Note: this is Ada 83 relevant only (see Ada 83 RM 3.9 (2)) and includes
7479 -- only those items which can appear as later declarative items. This also
7480 -- includes N_Implicit_Label_Declaration which is not specifically in the
7481 -- grammar but may appear as a valid later declarative items. It does NOT
7482 -- include N_Pragma which can also appear among later declarative items.
7483 -- It does however include N_Protected_Body, which is a bit peculiar, but
7484 -- harmless since this cannot appear in Ada 83 mode anyway.
7486 subtype N_Membership_Test is Node_Kind range
7490 subtype N_Op is Node_Kind range
7494 subtype N_Op_Boolean is Node_Kind range
7497 -- Binary operators which take operands of a boolean type, and yield
7498 -- a result of a boolean type.
7500 subtype N_Op_Compare is Node_Kind range
7504 subtype N_Op_Shift is Node_Kind range
7506 N_Op_Shift_Right_Arithmetic;
7508 subtype N_Proper_Body is Node_Kind range
7512 subtype N_Push_xxx_Label is Node_Kind range
7513 N_Push_Constraint_Error_Label ..
7514 N_Push_Storage_Error_Label;
7516 subtype N_Pop_xxx_Label is Node_Kind range
7517 N_Pop_Constraint_Error_Label ..
7518 N_Pop_Storage_Error_Label;
7520 subtype N_Push_Pop_xxx_Label is Node_Kind range
7521 N_Push_Constraint_Error_Label ..
7522 N_Pop_Storage_Error_Label;
7524 subtype N_Raise_xxx_Error is Node_Kind range
7525 N_Raise_Constraint_Error ..
7526 N_Raise_Storage_Error;
7528 subtype N_Renaming_Declaration is Node_Kind range
7529 N_Exception_Renaming_Declaration ..
7530 N_Generic_Procedure_Renaming_Declaration;
7532 subtype N_Representation_Clause is Node_Kind range
7534 N_Attribute_Definition_Clause;
7536 subtype N_Short_Circuit is Node_Kind range
7540 subtype N_SCIL_Node is Node_Kind range
7541 N_SCIL_Dispatch_Table_Object_Init ..
7544 subtype N_Statement_Other_Than_Procedure_Call is Node_Kind range
7545 N_Abort_Statement ..
7547 -- Note that this includes all statement types except for the cases of the
7548 -- N_Procedure_Call_Statement which is considered to be a subexpression
7549 -- (since overloading is possible, so it needs to go through the normal
7550 -- overloading resolution for expressions).
7552 subtype N_Subprogram_Instantiation is Node_Kind range
7553 N_Function_Instantiation ..
7554 N_Procedure_Instantiation;
7556 subtype N_Has_Condition is Node_Kind range
7558 N_Terminate_Alternative;
7559 -- Nodes with condition fields (does not include N_Raise_xxx_Error)
7561 subtype N_Subexpr is Node_Kind range
7563 N_Unchecked_Type_Conversion;
7564 -- Nodes with expression fields
7566 subtype N_Subprogram_Specification is Node_Kind range
7567 N_Function_Specification ..
7568 N_Procedure_Specification;
7570 subtype N_Unary_Op is Node_Kind range
7574 subtype N_Unit_Body is Node_Kind range
7578 ---------------------------
7579 -- Node Access Functions --
7580 ---------------------------
7582 -- The following functions return the contents of the indicated field of
7583 -- the node referenced by the argument, which is a Node_Id. They provide
7584 -- logical access to fields in the node which could be accessed using the
7585 -- Atree.Unchecked_Access package, but the idea is always to use these
7586 -- higher level routines which preserve strong typing. In debug mode,
7587 -- these routines check that they are being applied to an appropriate
7588 -- node, as well as checking that the node is in range.
7590 function ABE_Is_Certain
7591 (N : Node_Id) return Boolean; -- Flag18
7593 function Abort_Present
7594 (N : Node_Id) return Boolean; -- Flag15
7596 function Abortable_Part
7597 (N : Node_Id) return Node_Id; -- Node2
7599 function Abstract_Present
7600 (N : Node_Id) return Boolean; -- Flag4
7602 function Accept_Handler_Records
7603 (N : Node_Id) return List_Id; -- List5
7605 function Accept_Statement
7606 (N : Node_Id) return Node_Id; -- Node2
7608 function Access_Definition
7609 (N : Node_Id) return Node_Id; -- Node3
7611 function Access_To_Subprogram_Definition
7612 (N : Node_Id) return Node_Id; -- Node3
7614 function Access_Types_To_Process
7615 (N : Node_Id) return Elist_Id; -- Elist2
7618 (N : Node_Id) return List_Id; -- List1
7620 function Activation_Chain_Entity
7621 (N : Node_Id) return Node_Id; -- Node3
7623 function Acts_As_Spec
7624 (N : Node_Id) return Boolean; -- Flag4
7626 function Actual_Designated_Subtype
7627 (N : Node_Id) return Node_Id; -- Node4
7629 function Address_Warning_Posted
7630 (N : Node_Id) return Boolean; -- Flag18
7632 function Aggregate_Bounds
7633 (N : Node_Id) return Node_Id; -- Node3
7635 function Aliased_Present
7636 (N : Node_Id) return Boolean; -- Flag4
7639 (N : Node_Id) return Boolean; -- Flag11
7641 function All_Present
7642 (N : Node_Id) return Boolean; -- Flag15
7644 function Alternatives
7645 (N : Node_Id) return List_Id; -- List4
7647 function Ancestor_Part
7648 (N : Node_Id) return Node_Id; -- Node3
7650 function Array_Aggregate
7651 (N : Node_Id) return Node_Id; -- Node3
7653 function Assignment_OK
7654 (N : Node_Id) return Boolean; -- Flag15
7656 function Associated_Node
7657 (N : Node_Id) return Node_Id; -- Node4
7659 function At_End_Proc
7660 (N : Node_Id) return Node_Id; -- Node1
7662 function Attribute_Name
7663 (N : Node_Id) return Name_Id; -- Name2
7665 function Aux_Decls_Node
7666 (N : Node_Id) return Node_Id; -- Node5
7668 function Backwards_OK
7669 (N : Node_Id) return Boolean; -- Flag6
7671 function Bad_Is_Detected
7672 (N : Node_Id) return Boolean; -- Flag15
7675 (N : Node_Id) return Boolean; -- Flag5
7677 function Body_Required
7678 (N : Node_Id) return Boolean; -- Flag13
7680 function Body_To_Inline
7681 (N : Node_Id) return Node_Id; -- Node3
7683 function Box_Present
7684 (N : Node_Id) return Boolean; -- Flag15
7686 function Char_Literal_Value
7687 (N : Node_Id) return Uint; -- Uint2
7690 (N : Node_Id) return Name_Id; -- Name1
7692 function Check_Address_Alignment
7693 (N : Node_Id) return Boolean; -- Flag11
7695 function Choice_Parameter
7696 (N : Node_Id) return Node_Id; -- Node2
7699 (N : Node_Id) return List_Id; -- List1
7701 function Coextensions
7702 (N : Node_Id) return Elist_Id; -- Elist4
7704 function Comes_From_Extended_Return_Statement
7705 (N : Node_Id) return Boolean; -- Flag18
7707 function Compile_Time_Known_Aggregate
7708 (N : Node_Id) return Boolean; -- Flag18
7710 function Component_Associations
7711 (N : Node_Id) return List_Id; -- List2
7713 function Component_Clauses
7714 (N : Node_Id) return List_Id; -- List3
7716 function Component_Definition
7717 (N : Node_Id) return Node_Id; -- Node4
7719 function Component_Items
7720 (N : Node_Id) return List_Id; -- List3
7722 function Component_List
7723 (N : Node_Id) return Node_Id; -- Node1
7725 function Component_Name
7726 (N : Node_Id) return Node_Id; -- Node1
7728 function Componentwise_Assignment
7729 (N : Node_Id) return Boolean; -- Flag14
7732 (N : Node_Id) return Node_Id; -- Node1
7734 function Condition_Actions
7735 (N : Node_Id) return List_Id; -- List3
7737 function Config_Pragmas
7738 (N : Node_Id) return List_Id; -- List4
7740 function Constant_Present
7741 (N : Node_Id) return Boolean; -- Flag17
7744 (N : Node_Id) return Node_Id; -- Node3
7746 function Constraints
7747 (N : Node_Id) return List_Id; -- List1
7749 function Context_Installed
7750 (N : Node_Id) return Boolean; -- Flag13
7752 function Context_Pending
7753 (N : Node_Id) return Boolean; -- Flag16
7755 function Context_Items
7756 (N : Node_Id) return List_Id; -- List1
7758 function Controlling_Argument
7759 (N : Node_Id) return Node_Id; -- Node1
7761 function Conversion_OK
7762 (N : Node_Id) return Boolean; -- Flag14
7764 function Corresponding_Body
7765 (N : Node_Id) return Node_Id; -- Node5
7767 function Corresponding_Formal_Spec
7768 (N : Node_Id) return Node_Id; -- Node3
7770 function Corresponding_Generic_Association
7771 (N : Node_Id) return Node_Id; -- Node5
7773 function Corresponding_Integer_Value
7774 (N : Node_Id) return Uint; -- Uint4
7776 function Corresponding_Spec
7777 (N : Node_Id) return Node_Id; -- Node5
7779 function Corresponding_Stub
7780 (N : Node_Id) return Node_Id; -- Node3
7782 function Dcheck_Function
7783 (N : Node_Id) return Entity_Id; -- Node5
7785 function Debug_Statement
7786 (N : Node_Id) return Node_Id; -- Node3
7788 function Declarations
7789 (N : Node_Id) return List_Id; -- List2
7791 function Default_Expression
7792 (N : Node_Id) return Node_Id; -- Node5
7794 function Default_Name
7795 (N : Node_Id) return Node_Id; -- Node2
7797 function Defining_Identifier
7798 (N : Node_Id) return Entity_Id; -- Node1
7800 function Defining_Unit_Name
7801 (N : Node_Id) return Node_Id; -- Node1
7803 function Delay_Alternative
7804 (N : Node_Id) return Node_Id; -- Node4
7806 function Delay_Statement
7807 (N : Node_Id) return Node_Id; -- Node2
7809 function Delta_Expression
7810 (N : Node_Id) return Node_Id; -- Node3
7812 function Digits_Expression
7813 (N : Node_Id) return Node_Id; -- Node2
7815 function Discr_Check_Funcs_Built
7816 (N : Node_Id) return Boolean; -- Flag11
7818 function Discrete_Choices
7819 (N : Node_Id) return List_Id; -- List4
7821 function Discrete_Range
7822 (N : Node_Id) return Node_Id; -- Node4
7824 function Discrete_Subtype_Definition
7825 (N : Node_Id) return Node_Id; -- Node4
7827 function Discrete_Subtype_Definitions
7828 (N : Node_Id) return List_Id; -- List2
7830 function Discriminant_Specifications
7831 (N : Node_Id) return List_Id; -- List4
7833 function Discriminant_Type
7834 (N : Node_Id) return Node_Id; -- Node5
7836 function Do_Accessibility_Check
7837 (N : Node_Id) return Boolean; -- Flag13
7839 function Do_Discriminant_Check
7840 (N : Node_Id) return Boolean; -- Flag13
7842 function Do_Division_Check
7843 (N : Node_Id) return Boolean; -- Flag13
7845 function Do_Length_Check
7846 (N : Node_Id) return Boolean; -- Flag4
7848 function Do_Overflow_Check
7849 (N : Node_Id) return Boolean; -- Flag17
7851 function Do_Range_Check
7852 (N : Node_Id) return Boolean; -- Flag9
7854 function Do_Storage_Check
7855 (N : Node_Id) return Boolean; -- Flag17
7857 function Do_Tag_Check
7858 (N : Node_Id) return Boolean; -- Flag13
7860 function Elaborate_All_Desirable
7861 (N : Node_Id) return Boolean; -- Flag9
7863 function Elaborate_All_Present
7864 (N : Node_Id) return Boolean; -- Flag14
7866 function Elaborate_Desirable
7867 (N : Node_Id) return Boolean; -- Flag11
7869 function Elaborate_Present
7870 (N : Node_Id) return Boolean; -- Flag4
7872 function Elaboration_Boolean
7873 (N : Node_Id) return Node_Id; -- Node2
7875 function Else_Actions
7876 (N : Node_Id) return List_Id; -- List3
7878 function Else_Statements
7879 (N : Node_Id) return List_Id; -- List4
7881 function Elsif_Parts
7882 (N : Node_Id) return List_Id; -- List3
7884 function Enclosing_Variant
7885 (N : Node_Id) return Node_Id; -- Node2
7888 (N : Node_Id) return Node_Id; -- Node4
7891 (N : Node_Id) return Uint; -- Uint5
7894 (N : Node_Id) return Node_Id; -- Node4
7896 function Entity_Or_Associated_Node
7897 (N : Node_Id) return Node_Id; -- Node4
7899 function Entry_Body_Formal_Part
7900 (N : Node_Id) return Node_Id; -- Node5
7902 function Entry_Call_Alternative
7903 (N : Node_Id) return Node_Id; -- Node1
7905 function Entry_Call_Statement
7906 (N : Node_Id) return Node_Id; -- Node1
7908 function Entry_Direct_Name
7909 (N : Node_Id) return Node_Id; -- Node1
7911 function Entry_Index
7912 (N : Node_Id) return Node_Id; -- Node5
7914 function Entry_Index_Specification
7915 (N : Node_Id) return Node_Id; -- Node4
7918 (N : Node_Id) return Node_Id; -- Node5
7920 function Exception_Choices
7921 (N : Node_Id) return List_Id; -- List4
7923 function Exception_Handlers
7924 (N : Node_Id) return List_Id; -- List5
7926 function Exception_Junk
7927 (N : Node_Id) return Boolean; -- Flag8
7929 function Exception_Label
7930 (N : Node_Id) return Node_Id; -- Node5
7932 function Explicit_Actual_Parameter
7933 (N : Node_Id) return Node_Id; -- Node3
7935 function Expansion_Delayed
7936 (N : Node_Id) return Boolean; -- Flag11
7938 function Explicit_Generic_Actual_Parameter
7939 (N : Node_Id) return Node_Id; -- Node1
7942 (N : Node_Id) return Node_Id; -- Node3
7944 function Expressions
7945 (N : Node_Id) return List_Id; -- List1
7948 (N : Node_Id) return Node_Id; -- Node3
7950 function First_Inlined_Subprogram
7951 (N : Node_Id) return Entity_Id; -- Node3
7954 (N : Node_Id) return Boolean; -- Flag5
7956 function First_Named_Actual
7957 (N : Node_Id) return Node_Id; -- Node4
7959 function First_Real_Statement
7960 (N : Node_Id) return Node_Id; -- Node2
7962 function First_Subtype_Link
7963 (N : Node_Id) return Entity_Id; -- Node5
7965 function Float_Truncate
7966 (N : Node_Id) return Boolean; -- Flag11
7968 function Formal_Type_Definition
7969 (N : Node_Id) return Node_Id; -- Node3
7971 function Forwards_OK
7972 (N : Node_Id) return Boolean; -- Flag5
7974 function From_At_End
7975 (N : Node_Id) return Boolean; -- Flag4
7977 function From_At_Mod
7978 (N : Node_Id) return Boolean; -- Flag4
7980 function From_Default
7981 (N : Node_Id) return Boolean; -- Flag6
7983 function Generic_Associations
7984 (N : Node_Id) return List_Id; -- List3
7986 function Generic_Formal_Declarations
7987 (N : Node_Id) return List_Id; -- List2
7989 function Generic_Parent
7990 (N : Node_Id) return Node_Id; -- Node5
7992 function Generic_Parent_Type
7993 (N : Node_Id) return Node_Id; -- Node4
7995 function Handled_Statement_Sequence
7996 (N : Node_Id) return Node_Id; -- Node4
7998 function Handler_List_Entry
7999 (N : Node_Id) return Node_Id; -- Node2
8001 function Has_Created_Identifier
8002 (N : Node_Id) return Boolean; -- Flag15
8004 function Has_Dynamic_Length_Check
8005 (N : Node_Id) return Boolean; -- Flag10
8007 function Has_Dynamic_Range_Check
8008 (N : Node_Id) return Boolean; -- Flag12
8010 function Has_Init_Expression
8011 (N : Node_Id) return Boolean; -- Flag14
8013 function Has_Local_Raise
8014 (N : Node_Id) return Boolean; -- Flag8
8016 function Has_No_Elaboration_Code
8017 (N : Node_Id) return Boolean; -- Flag17
8019 function Has_Priority_Pragma
8020 (N : Node_Id) return Boolean; -- Flag6
8022 function Has_Private_View
8023 (N : Node_Id) return Boolean; -- Flag11
8025 function Has_Relative_Deadline_Pragma
8026 (N : Node_Id) return Boolean; -- Flag9
8028 function Has_Self_Reference
8029 (N : Node_Id) return Boolean; -- Flag13
8031 function Has_Storage_Size_Pragma
8032 (N : Node_Id) return Boolean; -- Flag5
8034 function Has_Task_Info_Pragma
8035 (N : Node_Id) return Boolean; -- Flag7
8037 function Has_Task_Name_Pragma
8038 (N : Node_Id) return Boolean; -- Flag8
8040 function Has_Wide_Character
8041 (N : Node_Id) return Boolean; -- Flag11
8043 function Hidden_By_Use_Clause
8044 (N : Node_Id) return Elist_Id; -- Elist4
8047 (N : Node_Id) return Node_Id; -- Node2
8050 (N : Node_Id) return Node_Id; -- Node1
8052 function Interface_List
8053 (N : Node_Id) return List_Id; -- List2
8055 function Interface_Present
8056 (N : Node_Id) return Boolean; -- Flag16
8058 function Implicit_With
8059 (N : Node_Id) return Boolean; -- Flag16
8062 (N : Node_Id) return Boolean; -- Flag15
8064 function Includes_Infinities
8065 (N : Node_Id) return Boolean; -- Flag11
8067 function Instance_Spec
8068 (N : Node_Id) return Node_Id; -- Node5
8071 (N : Node_Id) return Uint; -- Uint3
8073 function Is_Asynchronous_Call_Block
8074 (N : Node_Id) return Boolean; -- Flag7
8076 function Is_Component_Left_Opnd
8077 (N : Node_Id) return Boolean; -- Flag13
8079 function Is_Component_Right_Opnd
8080 (N : Node_Id) return Boolean; -- Flag14
8082 function Is_Controlling_Actual
8083 (N : Node_Id) return Boolean; -- Flag16
8085 function Is_Dynamic_Coextension
8086 (N : Node_Id) return Boolean; -- Flag18
8089 (N : Node_Id) return Boolean; -- Flag13
8091 function Is_Entry_Barrier_Function
8092 (N : Node_Id) return Boolean; -- Flag8
8094 function Is_Expanded_Build_In_Place_Call
8095 (N : Node_Id) return Boolean; -- Flag11
8097 function Is_Folded_In_Parser
8098 (N : Node_Id) return Boolean; -- Flag4
8100 function Is_In_Discriminant_Check
8101 (N : Node_Id) return Boolean; -- Flag11
8103 function Is_Machine_Number
8104 (N : Node_Id) return Boolean; -- Flag11
8106 function Is_Null_Loop
8107 (N : Node_Id) return Boolean; -- Flag16
8109 function Is_Overloaded
8110 (N : Node_Id) return Boolean; -- Flag5
8112 function Is_Power_Of_2_For_Shift
8113 (N : Node_Id) return Boolean; -- Flag13
8115 function Is_Protected_Subprogram_Body
8116 (N : Node_Id) return Boolean; -- Flag7
8118 function Is_Static_Coextension
8119 (N : Node_Id) return Boolean; -- Flag14
8121 function Is_Static_Expression
8122 (N : Node_Id) return Boolean; -- Flag6
8124 function Is_Subprogram_Descriptor
8125 (N : Node_Id) return Boolean; -- Flag16
8127 function Is_Task_Allocation_Block
8128 (N : Node_Id) return Boolean; -- Flag6
8130 function Is_Task_Master
8131 (N : Node_Id) return Boolean; -- Flag5
8133 function Iteration_Scheme
8134 (N : Node_Id) return Node_Id; -- Node2
8137 (N : Node_Id) return Entity_Id; -- Node1
8139 function Kill_Range_Check
8140 (N : Node_Id) return Boolean; -- Flag11
8142 function Label_Construct
8143 (N : Node_Id) return Node_Id; -- Node2
8146 (N : Node_Id) return Node_Id; -- Node2
8149 (N : Node_Id) return Node_Id; -- Node4
8152 (N : Node_Id) return Boolean; -- Flag6
8154 function Library_Unit
8155 (N : Node_Id) return Node_Id; -- Node4
8157 function Limited_View_Installed
8158 (N : Node_Id) return Boolean; -- Flag18
8160 function Limited_Present
8161 (N : Node_Id) return Boolean; -- Flag17
8164 (N : Node_Id) return List_Id; -- List1
8166 function Local_Raise_Not_OK
8167 (N : Node_Id) return Boolean; -- Flag7
8169 function Local_Raise_Statements
8170 (N : Node_Id) return Elist_Id; -- Elist1
8172 function Loop_Actions
8173 (N : Node_Id) return List_Id; -- List2
8175 function Loop_Parameter_Specification
8176 (N : Node_Id) return Node_Id; -- Node4
8179 (N : Node_Id) return Node_Id; -- Node1
8182 (N : Node_Id) return Node_Id; -- Node2
8185 (N : Node_Id) return Boolean; -- Flag5
8187 function Must_Be_Byte_Aligned
8188 (N : Node_Id) return Boolean; -- Flag14
8190 function Must_Not_Freeze
8191 (N : Node_Id) return Boolean; -- Flag8
8193 function Must_Not_Override
8194 (N : Node_Id) return Boolean; -- Flag15
8196 function Must_Override
8197 (N : Node_Id) return Boolean; -- Flag14
8200 (N : Node_Id) return Node_Id; -- Node2
8203 (N : Node_Id) return List_Id; -- List2
8205 function Next_Entity
8206 (N : Node_Id) return Node_Id; -- Node2
8208 function Next_Implicit_With
8209 (N : Node_Id) return Node_Id; -- Node3
8211 function Next_Named_Actual
8212 (N : Node_Id) return Node_Id; -- Node4
8214 function Next_Pragma
8215 (N : Node_Id) return Node_Id; -- Node1
8217 function Next_Rep_Item
8218 (N : Node_Id) return Node_Id; -- Node5
8220 function Next_Use_Clause
8221 (N : Node_Id) return Node_Id; -- Node3
8223 function No_Ctrl_Actions
8224 (N : Node_Id) return Boolean; -- Flag7
8226 function No_Elaboration_Check
8227 (N : Node_Id) return Boolean; -- Flag14
8229 function No_Entities_Ref_In_Spec
8230 (N : Node_Id) return Boolean; -- Flag8
8232 function No_Initialization
8233 (N : Node_Id) return Boolean; -- Flag13
8235 function No_Truncation
8236 (N : Node_Id) return Boolean; -- Flag17
8238 function Null_Present
8239 (N : Node_Id) return Boolean; -- Flag13
8241 function Null_Exclusion_Present
8242 (N : Node_Id) return Boolean; -- Flag11
8244 function Null_Exclusion_In_Return_Present
8245 (N : Node_Id) return Boolean; -- Flag14
8247 function Null_Record_Present
8248 (N : Node_Id) return Boolean; -- Flag17
8250 function Object_Definition
8251 (N : Node_Id) return Node_Id; -- Node4
8253 function Original_Discriminant
8254 (N : Node_Id) return Node_Id; -- Node2
8256 function Original_Entity
8257 (N : Node_Id) return Entity_Id; -- Node2
8259 function Others_Discrete_Choices
8260 (N : Node_Id) return List_Id; -- List1
8262 function Out_Present
8263 (N : Node_Id) return Boolean; -- Flag17
8265 function Parameter_Associations
8266 (N : Node_Id) return List_Id; -- List3
8268 function Parameter_List_Truncated
8269 (N : Node_Id) return Boolean; -- Flag17
8271 function Parameter_Specifications
8272 (N : Node_Id) return List_Id; -- List3
8274 function Parameter_Type
8275 (N : Node_Id) return Node_Id; -- Node2
8277 function Parent_Spec
8278 (N : Node_Id) return Node_Id; -- Node4
8280 function PPC_Enabled
8281 (N : Node_Id) return Boolean; -- Flag5
8284 (N : Node_Id) return Node_Id; -- Node2
8286 function Pragma_Argument_Associations
8287 (N : Node_Id) return List_Id; -- List2
8289 function Pragma_Identifier
8290 (N : Node_Id) return Node_Id; -- Node4
8292 function Pragmas_After
8293 (N : Node_Id) return List_Id; -- List5
8295 function Pragmas_Before
8296 (N : Node_Id) return List_Id; -- List4
8299 (N : Node_Id) return Node_Id; -- Node3
8301 function Present_Expr
8302 (N : Node_Id) return Uint; -- Uint3
8305 (N : Node_Id) return Boolean; -- Flag6
8307 function Print_In_Hex
8308 (N : Node_Id) return Boolean; -- Flag13
8310 function Private_Declarations
8311 (N : Node_Id) return List_Id; -- List3
8313 function Private_Present
8314 (N : Node_Id) return Boolean; -- Flag15
8316 function Procedure_To_Call
8317 (N : Node_Id) return Node_Id; -- Node2
8319 function Proper_Body
8320 (N : Node_Id) return Node_Id; -- Node1
8322 function Protected_Definition
8323 (N : Node_Id) return Node_Id; -- Node3
8325 function Protected_Present
8326 (N : Node_Id) return Boolean; -- Flag6
8328 function Raises_Constraint_Error
8329 (N : Node_Id) return Boolean; -- Flag7
8331 function Range_Constraint
8332 (N : Node_Id) return Node_Id; -- Node4
8334 function Range_Expression
8335 (N : Node_Id) return Node_Id; -- Node4
8337 function Real_Range_Specification
8338 (N : Node_Id) return Node_Id; -- Node4
8341 (N : Node_Id) return Ureal; -- Ureal3
8344 (N : Node_Id) return Uint; -- Uint3
8346 function Record_Extension_Part
8347 (N : Node_Id) return Node_Id; -- Node3
8349 function Redundant_Use
8350 (N : Node_Id) return Boolean; -- Flag13
8352 function Renaming_Exception
8353 (N : Node_Id) return Node_Id; -- Node2
8355 function Result_Definition
8356 (N : Node_Id) return Node_Id; -- Node4
8358 function Return_Object_Declarations
8359 (N : Node_Id) return List_Id; -- List3
8361 function Return_Statement_Entity
8362 (N : Node_Id) return Node_Id; -- Node5
8364 function Reverse_Present
8365 (N : Node_Id) return Boolean; -- Flag15
8368 (N : Node_Id) return Node_Id; -- Node3
8370 function Rounded_Result
8371 (N : Node_Id) return Boolean; -- Flag18
8373 function SCIL_Controlling_Tag
8374 (N : Node_Id) return Node_Id; -- Node5
8376 function SCIL_Entity
8377 (N : Node_Id) return Node_Id; -- Node4
8379 function SCIL_Related_Node
8380 (N : Node_Id) return Node_Id; -- Node1
8382 function SCIL_Target_Prim
8383 (N : Node_Id) return Node_Id; -- Node2
8386 (N : Node_Id) return Node_Id; -- Node3
8388 function Select_Alternatives
8389 (N : Node_Id) return List_Id; -- List1
8391 function Selector_Name
8392 (N : Node_Id) return Node_Id; -- Node2
8394 function Selector_Names
8395 (N : Node_Id) return List_Id; -- List1
8397 function Shift_Count_OK
8398 (N : Node_Id) return Boolean; -- Flag4
8400 function Source_Type
8401 (N : Node_Id) return Entity_Id; -- Node1
8403 function Specification
8404 (N : Node_Id) return Node_Id; -- Node1
8407 (N : Node_Id) return List_Id; -- List3
8409 function Static_Processing_OK
8410 (N : Node_Id) return Boolean; -- Flag4
8412 function Storage_Pool
8413 (N : Node_Id) return Node_Id; -- Node1
8416 (N : Node_Id) return String_Id; -- Str3
8418 function Subtype_Indication
8419 (N : Node_Id) return Node_Id; -- Node5
8421 function Subtype_Mark
8422 (N : Node_Id) return Node_Id; -- Node4
8424 function Subtype_Marks
8425 (N : Node_Id) return List_Id; -- List2
8427 function Suppress_Loop_Warnings
8428 (N : Node_Id) return Boolean; -- Flag17
8430 function Synchronized_Present
8431 (N : Node_Id) return Boolean; -- Flag7
8433 function Tagged_Present
8434 (N : Node_Id) return Boolean; -- Flag15
8436 function Target_Type
8437 (N : Node_Id) return Entity_Id; -- Node2
8439 function Task_Definition
8440 (N : Node_Id) return Node_Id; -- Node3
8442 function Task_Present
8443 (N : Node_Id) return Boolean; -- Flag5
8445 function Then_Actions
8446 (N : Node_Id) return List_Id; -- List2
8448 function Then_Statements
8449 (N : Node_Id) return List_Id; -- List2
8451 function Treat_Fixed_As_Integer
8452 (N : Node_Id) return Boolean; -- Flag14
8454 function Triggering_Alternative
8455 (N : Node_Id) return Node_Id; -- Node1
8457 function Triggering_Statement
8458 (N : Node_Id) return Node_Id; -- Node1
8461 (N : Node_Id) return Elist_Id; -- Elist3
8463 function Type_Definition
8464 (N : Node_Id) return Node_Id; -- Node3
8467 (N : Node_Id) return Node_Id; -- Node2
8469 function Unknown_Discriminants_Present
8470 (N : Node_Id) return Boolean; -- Flag13
8472 function Unreferenced_In_Spec
8473 (N : Node_Id) return Boolean; -- Flag7
8475 function Variant_Part
8476 (N : Node_Id) return Node_Id; -- Node4
8479 (N : Node_Id) return List_Id; -- List1
8481 function Visible_Declarations
8482 (N : Node_Id) return List_Id; -- List2
8484 function Was_Originally_Stub
8485 (N : Node_Id) return Boolean; -- Flag13
8487 function Zero_Cost_Handling
8488 (N : Node_Id) return Boolean; -- Flag5
8490 -- End functions (note used by xsinfo utility program to end processing)
8492 ----------------------------
8493 -- Node Update Procedures --
8494 ----------------------------
8496 -- These are the corresponding node update routines, which again provide
8497 -- a high level logical access with type checking. In addition to setting
8498 -- the indicated field of the node N to the given Val, in the case of
8499 -- tree pointers (List1-4), the parent pointer of the Val node is set to
8500 -- point back to node N. This automates the setting of the parent pointer.
8502 procedure Set_ABE_Is_Certain
8503 (N : Node_Id; Val : Boolean := True); -- Flag18
8505 procedure Set_Abort_Present
8506 (N : Node_Id; Val : Boolean := True); -- Flag15
8508 procedure Set_Abortable_Part
8509 (N : Node_Id; Val : Node_Id); -- Node2
8511 procedure Set_Abstract_Present
8512 (N : Node_Id; Val : Boolean := True); -- Flag4
8514 procedure Set_Accept_Handler_Records
8515 (N : Node_Id; Val : List_Id); -- List5
8517 procedure Set_Accept_Statement
8518 (N : Node_Id; Val : Node_Id); -- Node2
8520 procedure Set_Access_Definition
8521 (N : Node_Id; Val : Node_Id); -- Node3
8523 procedure Set_Access_To_Subprogram_Definition
8524 (N : Node_Id; Val : Node_Id); -- Node3
8526 procedure Set_Access_Types_To_Process
8527 (N : Node_Id; Val : Elist_Id); -- Elist2
8529 procedure Set_Actions
8530 (N : Node_Id; Val : List_Id); -- List1
8532 procedure Set_Activation_Chain_Entity
8533 (N : Node_Id; Val : Node_Id); -- Node3
8535 procedure Set_Acts_As_Spec
8536 (N : Node_Id; Val : Boolean := True); -- Flag4
8538 procedure Set_Actual_Designated_Subtype
8539 (N : Node_Id; Val : Node_Id); -- Node4
8541 procedure Set_Address_Warning_Posted
8542 (N : Node_Id; Val : Boolean := True); -- Flag18
8544 procedure Set_Aggregate_Bounds
8545 (N : Node_Id; Val : Node_Id); -- Node3
8547 procedure Set_Aliased_Present
8548 (N : Node_Id; Val : Boolean := True); -- Flag4
8550 procedure Set_All_Others
8551 (N : Node_Id; Val : Boolean := True); -- Flag11
8553 procedure Set_All_Present
8554 (N : Node_Id; Val : Boolean := True); -- Flag15
8556 procedure Set_Alternatives
8557 (N : Node_Id; Val : List_Id); -- List4
8559 procedure Set_Ancestor_Part
8560 (N : Node_Id; Val : Node_Id); -- Node3
8562 procedure Set_Array_Aggregate
8563 (N : Node_Id; Val : Node_Id); -- Node3
8565 procedure Set_Assignment_OK
8566 (N : Node_Id; Val : Boolean := True); -- Flag15
8568 procedure Set_Associated_Node
8569 (N : Node_Id; Val : Node_Id); -- Node4
8571 procedure Set_Attribute_Name
8572 (N : Node_Id; Val : Name_Id); -- Name2
8574 procedure Set_At_End_Proc
8575 (N : Node_Id; Val : Node_Id); -- Node1
8577 procedure Set_Aux_Decls_Node
8578 (N : Node_Id; Val : Node_Id); -- Node5
8580 procedure Set_Backwards_OK
8581 (N : Node_Id; Val : Boolean := True); -- Flag6
8583 procedure Set_Bad_Is_Detected
8584 (N : Node_Id; Val : Boolean := True); -- Flag15
8586 procedure Set_Body_Required
8587 (N : Node_Id; Val : Boolean := True); -- Flag13
8589 procedure Set_Body_To_Inline
8590 (N : Node_Id; Val : Node_Id); -- Node3
8592 procedure Set_Box_Present
8593 (N : Node_Id; Val : Boolean := True); -- Flag15
8595 procedure Set_By_Ref
8596 (N : Node_Id; Val : Boolean := True); -- Flag5
8598 procedure Set_Char_Literal_Value
8599 (N : Node_Id; Val : Uint); -- Uint2
8602 (N : Node_Id; Val : Name_Id); -- Name1
8604 procedure Set_Check_Address_Alignment
8605 (N : Node_Id; Val : Boolean := True); -- Flag11
8607 procedure Set_Choice_Parameter
8608 (N : Node_Id; Val : Node_Id); -- Node2
8610 procedure Set_Coextensions
8611 (N : Node_Id; Val : Elist_Id); -- Elist4
8613 procedure Set_Choices
8614 (N : Node_Id; Val : List_Id); -- List1
8616 procedure Set_Comes_From_Extended_Return_Statement
8617 (N : Node_Id; Val : Boolean := True); -- Flag18
8619 procedure Set_Compile_Time_Known_Aggregate
8620 (N : Node_Id; Val : Boolean := True); -- Flag18
8622 procedure Set_Component_Associations
8623 (N : Node_Id; Val : List_Id); -- List2
8625 procedure Set_Component_Clauses
8626 (N : Node_Id; Val : List_Id); -- List3
8628 procedure Set_Component_Definition
8629 (N : Node_Id; Val : Node_Id); -- Node4
8631 procedure Set_Component_Items
8632 (N : Node_Id; Val : List_Id); -- List3
8634 procedure Set_Component_List
8635 (N : Node_Id; Val : Node_Id); -- Node1
8637 procedure Set_Component_Name
8638 (N : Node_Id; Val : Node_Id); -- Node1
8640 procedure Set_Componentwise_Assignment
8641 (N : Node_Id; Val : Boolean := True); -- Flag14
8643 procedure Set_Condition
8644 (N : Node_Id; Val : Node_Id); -- Node1
8646 procedure Set_Condition_Actions
8647 (N : Node_Id; Val : List_Id); -- List3
8649 procedure Set_Config_Pragmas
8650 (N : Node_Id; Val : List_Id); -- List4
8652 procedure Set_Constant_Present
8653 (N : Node_Id; Val : Boolean := True); -- Flag17
8655 procedure Set_Constraint
8656 (N : Node_Id; Val : Node_Id); -- Node3
8658 procedure Set_Constraints
8659 (N : Node_Id; Val : List_Id); -- List1
8661 procedure Set_Context_Installed
8662 (N : Node_Id; Val : Boolean := True); -- Flag13
8664 procedure Set_Context_Items
8665 (N : Node_Id; Val : List_Id); -- List1
8667 procedure Set_Context_Pending
8668 (N : Node_Id; Val : Boolean := True); -- Flag16
8670 procedure Set_Controlling_Argument
8671 (N : Node_Id; Val : Node_Id); -- Node1
8673 procedure Set_Conversion_OK
8674 (N : Node_Id; Val : Boolean := True); -- Flag14
8676 procedure Set_Corresponding_Body
8677 (N : Node_Id; Val : Node_Id); -- Node5
8679 procedure Set_Corresponding_Formal_Spec
8680 (N : Node_Id; Val : Node_Id); -- Node3
8682 procedure Set_Corresponding_Generic_Association
8683 (N : Node_Id; Val : Node_Id); -- Node5
8685 procedure Set_Corresponding_Integer_Value
8686 (N : Node_Id; Val : Uint); -- Uint4
8688 procedure Set_Corresponding_Spec
8689 (N : Node_Id; Val : Node_Id); -- Node5
8691 procedure Set_Corresponding_Stub
8692 (N : Node_Id; Val : Node_Id); -- Node3
8694 procedure Set_Dcheck_Function
8695 (N : Node_Id; Val : Entity_Id); -- Node5
8697 procedure Set_Debug_Statement
8698 (N : Node_Id; Val : Node_Id); -- Node3
8700 procedure Set_Declarations
8701 (N : Node_Id; Val : List_Id); -- List2
8703 procedure Set_Default_Expression
8704 (N : Node_Id; Val : Node_Id); -- Node5
8706 procedure Set_Default_Name
8707 (N : Node_Id; Val : Node_Id); -- Node2
8709 procedure Set_Defining_Identifier
8710 (N : Node_Id; Val : Entity_Id); -- Node1
8712 procedure Set_Defining_Unit_Name
8713 (N : Node_Id; Val : Node_Id); -- Node1
8715 procedure Set_Delay_Alternative
8716 (N : Node_Id; Val : Node_Id); -- Node4
8718 procedure Set_Delay_Statement
8719 (N : Node_Id; Val : Node_Id); -- Node2
8721 procedure Set_Delta_Expression
8722 (N : Node_Id; Val : Node_Id); -- Node3
8724 procedure Set_Digits_Expression
8725 (N : Node_Id; Val : Node_Id); -- Node2
8727 procedure Set_Discr_Check_Funcs_Built
8728 (N : Node_Id; Val : Boolean := True); -- Flag11
8730 procedure Set_Discrete_Choices
8731 (N : Node_Id; Val : List_Id); -- List4
8733 procedure Set_Discrete_Range
8734 (N : Node_Id; Val : Node_Id); -- Node4
8736 procedure Set_Discrete_Subtype_Definition
8737 (N : Node_Id; Val : Node_Id); -- Node4
8739 procedure Set_Discrete_Subtype_Definitions
8740 (N : Node_Id; Val : List_Id); -- List2
8742 procedure Set_Discriminant_Specifications
8743 (N : Node_Id; Val : List_Id); -- List4
8745 procedure Set_Discriminant_Type
8746 (N : Node_Id; Val : Node_Id); -- Node5
8748 procedure Set_Do_Accessibility_Check
8749 (N : Node_Id; Val : Boolean := True); -- Flag13
8751 procedure Set_Do_Discriminant_Check
8752 (N : Node_Id; Val : Boolean := True); -- Flag13
8754 procedure Set_Do_Division_Check
8755 (N : Node_Id; Val : Boolean := True); -- Flag13
8757 procedure Set_Do_Length_Check
8758 (N : Node_Id; Val : Boolean := True); -- Flag4
8760 procedure Set_Do_Overflow_Check
8761 (N : Node_Id; Val : Boolean := True); -- Flag17
8763 procedure Set_Do_Range_Check
8764 (N : Node_Id; Val : Boolean := True); -- Flag9
8766 procedure Set_Do_Storage_Check
8767 (N : Node_Id; Val : Boolean := True); -- Flag17
8769 procedure Set_Do_Tag_Check
8770 (N : Node_Id; Val : Boolean := True); -- Flag13
8772 procedure Set_Elaborate_All_Desirable
8773 (N : Node_Id; Val : Boolean := True); -- Flag9
8775 procedure Set_Elaborate_All_Present
8776 (N : Node_Id; Val : Boolean := True); -- Flag14
8778 procedure Set_Elaborate_Desirable
8779 (N : Node_Id; Val : Boolean := True); -- Flag11
8781 procedure Set_Elaborate_Present
8782 (N : Node_Id; Val : Boolean := True); -- Flag4
8784 procedure Set_Elaboration_Boolean
8785 (N : Node_Id; Val : Node_Id); -- Node2
8787 procedure Set_Else_Actions
8788 (N : Node_Id; Val : List_Id); -- List3
8790 procedure Set_Else_Statements
8791 (N : Node_Id; Val : List_Id); -- List4
8793 procedure Set_Elsif_Parts
8794 (N : Node_Id; Val : List_Id); -- List3
8796 procedure Set_Enclosing_Variant
8797 (N : Node_Id; Val : Node_Id); -- Node2
8799 procedure Set_End_Label
8800 (N : Node_Id; Val : Node_Id); -- Node4
8802 procedure Set_End_Span
8803 (N : Node_Id; Val : Uint); -- Uint5
8805 procedure Set_Entity
8806 (N : Node_Id; Val : Node_Id); -- Node4
8808 procedure Set_Entry_Body_Formal_Part
8809 (N : Node_Id; Val : Node_Id); -- Node5
8811 procedure Set_Entry_Call_Alternative
8812 (N : Node_Id; Val : Node_Id); -- Node1
8814 procedure Set_Entry_Call_Statement
8815 (N : Node_Id; Val : Node_Id); -- Node1
8817 procedure Set_Entry_Direct_Name
8818 (N : Node_Id; Val : Node_Id); -- Node1
8820 procedure Set_Entry_Index
8821 (N : Node_Id; Val : Node_Id); -- Node5
8823 procedure Set_Entry_Index_Specification
8824 (N : Node_Id; Val : Node_Id); -- Node4
8827 (N : Node_Id; Val : Node_Id); -- Node5
8829 procedure Set_Exception_Choices
8830 (N : Node_Id; Val : List_Id); -- List4
8832 procedure Set_Exception_Handlers
8833 (N : Node_Id; Val : List_Id); -- List5
8835 procedure Set_Exception_Junk
8836 (N : Node_Id; Val : Boolean := True); -- Flag8
8838 procedure Set_Exception_Label
8839 (N : Node_Id; Val : Node_Id); -- Node5
8841 procedure Set_Expansion_Delayed
8842 (N : Node_Id; Val : Boolean := True); -- Flag11
8844 procedure Set_Explicit_Actual_Parameter
8845 (N : Node_Id; Val : Node_Id); -- Node3
8847 procedure Set_Explicit_Generic_Actual_Parameter
8848 (N : Node_Id; Val : Node_Id); -- Node1
8850 procedure Set_Expression
8851 (N : Node_Id; Val : Node_Id); -- Node3
8853 procedure Set_Expressions
8854 (N : Node_Id; Val : List_Id); -- List1
8856 procedure Set_First_Bit
8857 (N : Node_Id; Val : Node_Id); -- Node3
8859 procedure Set_First_Inlined_Subprogram
8860 (N : Node_Id; Val : Entity_Id); -- Node3
8862 procedure Set_First_Name
8863 (N : Node_Id; Val : Boolean := True); -- Flag5
8865 procedure Set_First_Named_Actual
8866 (N : Node_Id; Val : Node_Id); -- Node4
8868 procedure Set_First_Real_Statement
8869 (N : Node_Id; Val : Node_Id); -- Node2
8871 procedure Set_First_Subtype_Link
8872 (N : Node_Id; Val : Entity_Id); -- Node5
8874 procedure Set_Float_Truncate
8875 (N : Node_Id; Val : Boolean := True); -- Flag11
8877 procedure Set_Formal_Type_Definition
8878 (N : Node_Id; Val : Node_Id); -- Node3
8880 procedure Set_Forwards_OK
8881 (N : Node_Id; Val : Boolean := True); -- Flag5
8883 procedure Set_From_At_Mod
8884 (N : Node_Id; Val : Boolean := True); -- Flag4
8886 procedure Set_From_At_End
8887 (N : Node_Id; Val : Boolean := True); -- Flag4
8889 procedure Set_From_Default
8890 (N : Node_Id; Val : Boolean := True); -- Flag6
8892 procedure Set_Generic_Associations
8893 (N : Node_Id; Val : List_Id); -- List3
8895 procedure Set_Generic_Formal_Declarations
8896 (N : Node_Id; Val : List_Id); -- List2
8898 procedure Set_Generic_Parent
8899 (N : Node_Id; Val : Node_Id); -- Node5
8901 procedure Set_Generic_Parent_Type
8902 (N : Node_Id; Val : Node_Id); -- Node4
8904 procedure Set_Handled_Statement_Sequence
8905 (N : Node_Id; Val : Node_Id); -- Node4
8907 procedure Set_Handler_List_Entry
8908 (N : Node_Id; Val : Node_Id); -- Node2
8910 procedure Set_Has_Created_Identifier
8911 (N : Node_Id; Val : Boolean := True); -- Flag15
8913 procedure Set_Has_Dynamic_Length_Check
8914 (N : Node_Id; Val : Boolean := True); -- Flag10
8916 procedure Set_Has_Dynamic_Range_Check
8917 (N : Node_Id; Val : Boolean := True); -- Flag12
8919 procedure Set_Has_Init_Expression
8920 (N : Node_Id; Val : Boolean := True); -- Flag14
8922 procedure Set_Has_Local_Raise
8923 (N : Node_Id; Val : Boolean := True); -- Flag8
8925 procedure Set_Has_No_Elaboration_Code
8926 (N : Node_Id; Val : Boolean := True); -- Flag17
8928 procedure Set_Has_Priority_Pragma
8929 (N : Node_Id; Val : Boolean := True); -- Flag6
8931 procedure Set_Has_Private_View
8932 (N : Node_Id; Val : Boolean := True); -- Flag11
8934 procedure Set_Has_Relative_Deadline_Pragma
8935 (N : Node_Id; Val : Boolean := True); -- Flag9
8937 procedure Set_Has_Self_Reference
8938 (N : Node_Id; Val : Boolean := True); -- Flag13
8940 procedure Set_Has_Storage_Size_Pragma
8941 (N : Node_Id; Val : Boolean := True); -- Flag5
8943 procedure Set_Has_Task_Info_Pragma
8944 (N : Node_Id; Val : Boolean := True); -- Flag7
8946 procedure Set_Has_Task_Name_Pragma
8947 (N : Node_Id; Val : Boolean := True); -- Flag8
8949 procedure Set_Has_Wide_Character
8950 (N : Node_Id; Val : Boolean := True); -- Flag11
8952 procedure Set_Hidden_By_Use_Clause
8953 (N : Node_Id; Val : Elist_Id); -- Elist4
8955 procedure Set_High_Bound
8956 (N : Node_Id; Val : Node_Id); -- Node2
8958 procedure Set_Identifier
8959 (N : Node_Id; Val : Node_Id); -- Node1
8961 procedure Set_Interface_List
8962 (N : Node_Id; Val : List_Id); -- List2
8964 procedure Set_Interface_Present
8965 (N : Node_Id; Val : Boolean := True); -- Flag16
8967 procedure Set_Implicit_With
8968 (N : Node_Id; Val : Boolean := True); -- Flag16
8970 procedure Set_In_Present
8971 (N : Node_Id; Val : Boolean := True); -- Flag15
8973 procedure Set_Includes_Infinities
8974 (N : Node_Id; Val : Boolean := True); -- Flag11
8976 procedure Set_Instance_Spec
8977 (N : Node_Id; Val : Node_Id); -- Node5
8979 procedure Set_Intval
8980 (N : Node_Id; Val : Uint); -- Uint3
8982 procedure Set_Is_Asynchronous_Call_Block
8983 (N : Node_Id; Val : Boolean := True); -- Flag7
8985 procedure Set_Is_Component_Left_Opnd
8986 (N : Node_Id; Val : Boolean := True); -- Flag13
8988 procedure Set_Is_Component_Right_Opnd
8989 (N : Node_Id; Val : Boolean := True); -- Flag14
8991 procedure Set_Is_Controlling_Actual
8992 (N : Node_Id; Val : Boolean := True); -- Flag16
8994 procedure Set_Is_Dynamic_Coextension
8995 (N : Node_Id; Val : Boolean := True); -- Flag18
8997 procedure Set_Is_Elsif
8998 (N : Node_Id; Val : Boolean := True); -- Flag13
9000 procedure Set_Is_Entry_Barrier_Function
9001 (N : Node_Id; Val : Boolean := True); -- Flag8
9003 procedure Set_Is_Expanded_Build_In_Place_Call
9004 (N : Node_Id; Val : Boolean := True); -- Flag11
9006 procedure Set_Is_Folded_In_Parser
9007 (N : Node_Id; Val : Boolean := True); -- Flag4
9009 procedure Set_Is_In_Discriminant_Check
9010 (N : Node_Id; Val : Boolean := True); -- Flag11
9012 procedure Set_Is_Machine_Number
9013 (N : Node_Id; Val : Boolean := True); -- Flag11
9015 procedure Set_Is_Null_Loop
9016 (N : Node_Id; Val : Boolean := True); -- Flag16
9018 procedure Set_Is_Overloaded
9019 (N : Node_Id; Val : Boolean := True); -- Flag5
9021 procedure Set_Is_Power_Of_2_For_Shift
9022 (N : Node_Id; Val : Boolean := True); -- Flag13
9024 procedure Set_Is_Protected_Subprogram_Body
9025 (N : Node_Id; Val : Boolean := True); -- Flag7
9027 procedure Set_Is_Static_Coextension
9028 (N : Node_Id; Val : Boolean := True); -- Flag14
9030 procedure Set_Is_Static_Expression
9031 (N : Node_Id; Val : Boolean := True); -- Flag6
9033 procedure Set_Is_Subprogram_Descriptor
9034 (N : Node_Id; Val : Boolean := True); -- Flag16
9036 procedure Set_Is_Task_Allocation_Block
9037 (N : Node_Id; Val : Boolean := True); -- Flag6
9039 procedure Set_Is_Task_Master
9040 (N : Node_Id; Val : Boolean := True); -- Flag5
9042 procedure Set_Iteration_Scheme
9043 (N : Node_Id; Val : Node_Id); -- Node2
9046 (N : Node_Id; Val : Entity_Id); -- Node1
9048 procedure Set_Kill_Range_Check
9049 (N : Node_Id; Val : Boolean := True); -- Flag11
9051 procedure Set_Last_Bit
9052 (N : Node_Id; Val : Node_Id); -- Node4
9054 procedure Set_Last_Name
9055 (N : Node_Id; Val : Boolean := True); -- Flag6
9057 procedure Set_Library_Unit
9058 (N : Node_Id; Val : Node_Id); -- Node4
9060 procedure Set_Label_Construct
9061 (N : Node_Id; Val : Node_Id); -- Node2
9063 procedure Set_Left_Opnd
9064 (N : Node_Id; Val : Node_Id); -- Node2
9066 procedure Set_Limited_View_Installed
9067 (N : Node_Id; Val : Boolean := True); -- Flag18
9069 procedure Set_Limited_Present
9070 (N : Node_Id; Val : Boolean := True); -- Flag17
9072 procedure Set_Literals
9073 (N : Node_Id; Val : List_Id); -- List1
9075 procedure Set_Local_Raise_Not_OK
9076 (N : Node_Id; Val : Boolean := True); -- Flag7
9078 procedure Set_Local_Raise_Statements
9079 (N : Node_Id; Val : Elist_Id); -- Elist1
9081 procedure Set_Loop_Actions
9082 (N : Node_Id; Val : List_Id); -- List2
9084 procedure Set_Loop_Parameter_Specification
9085 (N : Node_Id; Val : Node_Id); -- Node4
9087 procedure Set_Low_Bound
9088 (N : Node_Id; Val : Node_Id); -- Node1
9090 procedure Set_Mod_Clause
9091 (N : Node_Id; Val : Node_Id); -- Node2
9093 procedure Set_More_Ids
9094 (N : Node_Id; Val : Boolean := True); -- Flag5
9096 procedure Set_Must_Be_Byte_Aligned
9097 (N : Node_Id; Val : Boolean := True); -- Flag14
9099 procedure Set_Must_Not_Freeze
9100 (N : Node_Id; Val : Boolean := True); -- Flag8
9102 procedure Set_Must_Not_Override
9103 (N : Node_Id; Val : Boolean := True); -- Flag15
9105 procedure Set_Must_Override
9106 (N : Node_Id; Val : Boolean := True); -- Flag14
9109 (N : Node_Id; Val : Node_Id); -- Node2
9112 (N : Node_Id; Val : List_Id); -- List2
9114 procedure Set_Next_Entity
9115 (N : Node_Id; Val : Node_Id); -- Node2
9117 procedure Set_Next_Implicit_With
9118 (N : Node_Id; Val : Node_Id); -- Node3
9120 procedure Set_Next_Named_Actual
9121 (N : Node_Id; Val : Node_Id); -- Node4
9123 procedure Set_Next_Pragma
9124 (N : Node_Id; Val : Node_Id); -- Node1
9126 procedure Set_Next_Rep_Item
9127 (N : Node_Id; Val : Node_Id); -- Node5
9129 procedure Set_Next_Use_Clause
9130 (N : Node_Id; Val : Node_Id); -- Node3
9132 procedure Set_No_Ctrl_Actions
9133 (N : Node_Id; Val : Boolean := True); -- Flag7
9135 procedure Set_No_Elaboration_Check
9136 (N : Node_Id; Val : Boolean := True); -- Flag14
9138 procedure Set_No_Entities_Ref_In_Spec
9139 (N : Node_Id; Val : Boolean := True); -- Flag8
9141 procedure Set_No_Initialization
9142 (N : Node_Id; Val : Boolean := True); -- Flag13
9144 procedure Set_No_Truncation
9145 (N : Node_Id; Val : Boolean := True); -- Flag17
9147 procedure Set_Null_Present
9148 (N : Node_Id; Val : Boolean := True); -- Flag13
9150 procedure Set_Null_Exclusion_Present
9151 (N : Node_Id; Val : Boolean := True); -- Flag11
9153 procedure Set_Null_Exclusion_In_Return_Present
9154 (N : Node_Id; Val : Boolean := True); -- Flag14
9156 procedure Set_Null_Record_Present
9157 (N : Node_Id; Val : Boolean := True); -- Flag17
9159 procedure Set_Object_Definition
9160 (N : Node_Id; Val : Node_Id); -- Node4
9162 procedure Set_Original_Discriminant
9163 (N : Node_Id; Val : Node_Id); -- Node2
9165 procedure Set_Original_Entity
9166 (N : Node_Id; Val : Entity_Id); -- Node2
9168 procedure Set_Others_Discrete_Choices
9169 (N : Node_Id; Val : List_Id); -- List1
9171 procedure Set_Out_Present
9172 (N : Node_Id; Val : Boolean := True); -- Flag17
9174 procedure Set_Parameter_Associations
9175 (N : Node_Id; Val : List_Id); -- List3
9177 procedure Set_Parameter_List_Truncated
9178 (N : Node_Id; Val : Boolean := True); -- Flag17
9180 procedure Set_Parameter_Specifications
9181 (N : Node_Id; Val : List_Id); -- List3
9183 procedure Set_Parameter_Type
9184 (N : Node_Id; Val : Node_Id); -- Node2
9186 procedure Set_Parent_Spec
9187 (N : Node_Id; Val : Node_Id); -- Node4
9189 procedure Set_PPC_Enabled
9190 (N : Node_Id; Val : Boolean := True); -- Flag5
9192 procedure Set_Position
9193 (N : Node_Id; Val : Node_Id); -- Node2
9195 procedure Set_Pragma_Argument_Associations
9196 (N : Node_Id; Val : List_Id); -- List2
9198 procedure Set_Pragma_Identifier
9199 (N : Node_Id; Val : Node_Id); -- Node4
9201 procedure Set_Pragmas_After
9202 (N : Node_Id; Val : List_Id); -- List5
9204 procedure Set_Pragmas_Before
9205 (N : Node_Id; Val : List_Id); -- List4
9207 procedure Set_Prefix
9208 (N : Node_Id; Val : Node_Id); -- Node3
9210 procedure Set_Present_Expr
9211 (N : Node_Id; Val : Uint); -- Uint3
9213 procedure Set_Prev_Ids
9214 (N : Node_Id; Val : Boolean := True); -- Flag6
9216 procedure Set_Print_In_Hex
9217 (N : Node_Id; Val : Boolean := True); -- Flag13
9219 procedure Set_Private_Declarations
9220 (N : Node_Id; Val : List_Id); -- List3
9222 procedure Set_Private_Present
9223 (N : Node_Id; Val : Boolean := True); -- Flag15
9225 procedure Set_Procedure_To_Call
9226 (N : Node_Id; Val : Node_Id); -- Node2
9228 procedure Set_Proper_Body
9229 (N : Node_Id; Val : Node_Id); -- Node1
9231 procedure Set_Protected_Definition
9232 (N : Node_Id; Val : Node_Id); -- Node3
9234 procedure Set_Protected_Present
9235 (N : Node_Id; Val : Boolean := True); -- Flag6
9237 procedure Set_Raises_Constraint_Error
9238 (N : Node_Id; Val : Boolean := True); -- Flag7
9240 procedure Set_Range_Constraint
9241 (N : Node_Id; Val : Node_Id); -- Node4
9243 procedure Set_Range_Expression
9244 (N : Node_Id; Val : Node_Id); -- Node4
9246 procedure Set_Real_Range_Specification
9247 (N : Node_Id; Val : Node_Id); -- Node4
9249 procedure Set_Realval
9250 (N : Node_Id; Val : Ureal); -- Ureal3
9252 procedure Set_Reason
9253 (N : Node_Id; Val : Uint); -- Uint3
9255 procedure Set_Record_Extension_Part
9256 (N : Node_Id; Val : Node_Id); -- Node3
9258 procedure Set_Redundant_Use
9259 (N : Node_Id; Val : Boolean := True); -- Flag13
9261 procedure Set_Renaming_Exception
9262 (N : Node_Id; Val : Node_Id); -- Node2
9264 procedure Set_Result_Definition
9265 (N : Node_Id; Val : Node_Id); -- Node4
9267 procedure Set_Return_Object_Declarations
9268 (N : Node_Id; Val : List_Id); -- List3
9270 procedure Set_Return_Statement_Entity
9271 (N : Node_Id; Val : Node_Id); -- Node5
9273 procedure Set_Reverse_Present
9274 (N : Node_Id; Val : Boolean := True); -- Flag15
9276 procedure Set_Right_Opnd
9277 (N : Node_Id; Val : Node_Id); -- Node3
9279 procedure Set_Rounded_Result
9280 (N : Node_Id; Val : Boolean := True); -- Flag18
9282 procedure Set_SCIL_Controlling_Tag
9283 (N : Node_Id; Val : Node_Id); -- Node5
9285 procedure Set_SCIL_Entity
9286 (N : Node_Id; Val : Node_Id); -- Node4
9288 procedure Set_SCIL_Related_Node
9289 (N : Node_Id; Val : Node_Id); -- Node1
9291 procedure Set_SCIL_Target_Prim
9292 (N : Node_Id; Val : Node_Id); -- Node2
9295 (N : Node_Id; Val : Node_Id); -- Node3
9297 procedure Set_Select_Alternatives
9298 (N : Node_Id; Val : List_Id); -- List1
9300 procedure Set_Selector_Name
9301 (N : Node_Id; Val : Node_Id); -- Node2
9303 procedure Set_Selector_Names
9304 (N : Node_Id; Val : List_Id); -- List1
9306 procedure Set_Shift_Count_OK
9307 (N : Node_Id; Val : Boolean := True); -- Flag4
9309 procedure Set_Source_Type
9310 (N : Node_Id; Val : Entity_Id); -- Node1
9312 procedure Set_Specification
9313 (N : Node_Id; Val : Node_Id); -- Node1
9315 procedure Set_Statements
9316 (N : Node_Id; Val : List_Id); -- List3
9318 procedure Set_Static_Processing_OK
9319 (N : Node_Id; Val : Boolean); -- Flag4
9321 procedure Set_Storage_Pool
9322 (N : Node_Id; Val : Node_Id); -- Node1
9324 procedure Set_Strval
9325 (N : Node_Id; Val : String_Id); -- Str3
9327 procedure Set_Subtype_Indication
9328 (N : Node_Id; Val : Node_Id); -- Node5
9330 procedure Set_Subtype_Mark
9331 (N : Node_Id; Val : Node_Id); -- Node4
9333 procedure Set_Subtype_Marks
9334 (N : Node_Id; Val : List_Id); -- List2
9336 procedure Set_Suppress_Loop_Warnings
9337 (N : Node_Id; Val : Boolean := True); -- Flag17
9339 procedure Set_Synchronized_Present
9340 (N : Node_Id; Val : Boolean := True); -- Flag7
9342 procedure Set_Tagged_Present
9343 (N : Node_Id; Val : Boolean := True); -- Flag15
9345 procedure Set_Target_Type
9346 (N : Node_Id; Val : Entity_Id); -- Node2
9348 procedure Set_Task_Definition
9349 (N : Node_Id; Val : Node_Id); -- Node3
9351 procedure Set_Task_Present
9352 (N : Node_Id; Val : Boolean := True); -- Flag5
9354 procedure Set_Then_Actions
9355 (N : Node_Id; Val : List_Id); -- List2
9357 procedure Set_Then_Statements
9358 (N : Node_Id; Val : List_Id); -- List2
9360 procedure Set_Treat_Fixed_As_Integer
9361 (N : Node_Id; Val : Boolean := True); -- Flag14
9363 procedure Set_Triggering_Alternative
9364 (N : Node_Id; Val : Node_Id); -- Node1
9366 procedure Set_Triggering_Statement
9367 (N : Node_Id; Val : Node_Id); -- Node1
9369 procedure Set_TSS_Elist
9370 (N : Node_Id; Val : Elist_Id); -- Elist3
9372 procedure Set_Type_Definition
9373 (N : Node_Id; Val : Node_Id); -- Node3
9376 (N : Node_Id; Val : Node_Id); -- Node2
9378 procedure Set_Unknown_Discriminants_Present
9379 (N : Node_Id; Val : Boolean := True); -- Flag13
9381 procedure Set_Unreferenced_In_Spec
9382 (N : Node_Id; Val : Boolean := True); -- Flag7
9384 procedure Set_Variant_Part
9385 (N : Node_Id; Val : Node_Id); -- Node4
9387 procedure Set_Variants
9388 (N : Node_Id; Val : List_Id); -- List1
9390 procedure Set_Visible_Declarations
9391 (N : Node_Id; Val : List_Id); -- List2
9393 procedure Set_Was_Originally_Stub
9394 (N : Node_Id; Val : Boolean := True); -- Flag13
9396 procedure Set_Zero_Cost_Handling
9397 (N : Node_Id; Val : Boolean := True); -- Flag5
9399 -------------------------
9400 -- Iterator Procedures --
9401 -------------------------
9403 -- The call to Next_xxx (N) is equivalent to N := Next_xxx (N)
9405 procedure Next_Entity (N : in out Node_Id);
9406 procedure Next_Named_Actual (N : in out Node_Id);
9407 procedure Next_Rep_Item (N : in out Node_Id);
9408 procedure Next_Use_Clause (N : in out Node_Id);
9410 --------------------------------------
9411 -- Logical Access to End_Span Field --
9412 --------------------------------------
9414 function End_Location (N : Node_Id) return Source_Ptr;
9415 -- N is an N_If_Statement or N_Case_Statement node, and this
9416 -- function returns the location of the IF token in the END IF
9417 -- sequence by translating the value of the End_Span field.
9419 procedure Set_End_Location (N : Node_Id; S : Source_Ptr);
9420 -- N is an N_If_Statement or N_Case_Statement node. This procedure
9421 -- sets the End_Span field to correspond to the given value S. In
9422 -- other words, End_Span is set to the difference between S and
9423 -- Sloc (N), the starting location.
9425 --------------------------------
9426 -- Node_Kind Membership Tests --
9427 --------------------------------
9429 -- The following functions allow a convenient notation for testing whether
9430 -- a Node_Kind value matches any one of a list of possible values. In each
9431 -- case True is returned if the given T argument is equal to any of the V
9432 -- arguments. Note that there is a similar set of functions defined in
9433 -- Atree where the first argument is a Node_Id whose Nkind field is tested.
9438 V2 : Node_Kind) return Boolean;
9444 V3 : Node_Kind) return Boolean;
9451 V4 : Node_Kind) return Boolean;
9459 V5 : Node_Kind) return Boolean;
9468 V6 : Node_Kind) return Boolean;
9478 V7 : Node_Kind) return Boolean;
9489 V8 : Node_Kind) return Boolean;
9501 V9 : Node_Kind) return Boolean;
9503 pragma Inline (Nkind_In);
9504 -- Inline all above functions
9506 -----------------------
9507 -- Utility Functions --
9508 -----------------------
9510 function Pragma_Name (N : Node_Id) return Name_Id;
9511 pragma Inline (Pragma_Name);
9512 -- Convenient function to obtain Chars field of Pragma_Identifier
9514 -----------------------------
9515 -- Syntactic Parent Tables --
9516 -----------------------------
9518 -- These tables show for each node, and for each of the five fields,
9519 -- whether the corresponding field is syntactic (True) or semantic (False).
9520 -- Unused entries are also set to False.
9522 subtype Field_Num is Natural range 1 .. 5;
9524 Is_Syntactic_Field : constant array (Node_Kind, Field_Num) of Boolean := (
9526 -- Following entries can be built automatically from the sinfo sources
9527 -- using the makeisf utility (currently this program is in spitbol).
9530 (1 => True, -- Chars (Name1)
9531 2 => False, -- Original_Discriminant (Node2-Sem)
9532 3 => False, -- unused
9533 4 => False, -- Entity (Node4-Sem)
9534 5 => False), -- Etype (Node5-Sem)
9536 N_Integer_Literal =>
9537 (1 => False, -- unused
9538 2 => False, -- Original_Entity (Node2-Sem)
9539 3 => True, -- Intval (Uint3)
9540 4 => False, -- unused
9541 5 => False), -- Etype (Node5-Sem)
9544 (1 => False, -- unused
9545 2 => False, -- Original_Entity (Node2-Sem)
9546 3 => True, -- Realval (Ureal3)
9547 4 => False, -- Corresponding_Integer_Value (Uint4-Sem)
9548 5 => False), -- Etype (Node5-Sem)
9550 N_Character_Literal =>
9551 (1 => True, -- Chars (Name1)
9552 2 => True, -- Char_Literal_Value (Uint2)
9553 3 => False, -- unused
9554 4 => False, -- Entity (Node4-Sem)
9555 5 => False), -- Etype (Node5-Sem)
9558 (1 => False, -- unused
9559 2 => False, -- unused
9560 3 => True, -- Strval (Str3)
9561 4 => False, -- unused
9562 5 => False), -- Etype (Node5-Sem)
9565 (1 => False, -- Next_Pragma (Node1-Sem)
9566 2 => True, -- Pragma_Argument_Associations (List2)
9567 3 => True, -- Debug_Statement (Node3)
9568 4 => True, -- Pragma_Identifier (Node4)
9569 5 => False), -- Next_Rep_Item (Node5-Sem)
9571 N_Pragma_Argument_Association =>
9572 (1 => True, -- Chars (Name1)
9573 2 => False, -- unused
9574 3 => True, -- Expression (Node3)
9575 4 => False, -- unused
9576 5 => False), -- unused
9578 N_Defining_Identifier =>
9579 (1 => True, -- Chars (Name1)
9580 2 => False, -- Next_Entity (Node2-Sem)
9581 3 => False, -- Scope (Node3-Sem)
9582 4 => False, -- unused
9583 5 => False), -- Etype (Node5-Sem)
9585 N_Full_Type_Declaration =>
9586 (1 => True, -- Defining_Identifier (Node1)
9587 2 => False, -- unused
9588 3 => True, -- Type_Definition (Node3)
9589 4 => True, -- Discriminant_Specifications (List4)
9590 5 => False), -- unused
9592 N_Subtype_Declaration =>
9593 (1 => True, -- Defining_Identifier (Node1)
9594 2 => False, -- unused
9595 3 => False, -- unused
9596 4 => False, -- Generic_Parent_Type (Node4-Sem)
9597 5 => True), -- Subtype_Indication (Node5)
9599 N_Subtype_Indication =>
9600 (1 => False, -- unused
9601 2 => False, -- unused
9602 3 => True, -- Constraint (Node3)
9603 4 => True, -- Subtype_Mark (Node4)
9604 5 => False), -- Etype (Node5-Sem)
9606 N_Object_Declaration =>
9607 (1 => True, -- Defining_Identifier (Node1)
9608 2 => False, -- Handler_List_Entry (Node2-Sem)
9609 3 => True, -- Expression (Node3)
9610 4 => True, -- Object_Definition (Node4)
9611 5 => False), -- Corresponding_Generic_Association (Node5-Sem)
9613 N_Number_Declaration =>
9614 (1 => True, -- Defining_Identifier (Node1)
9615 2 => False, -- unused
9616 3 => True, -- Expression (Node3)
9617 4 => False, -- unused
9618 5 => False), -- unused
9620 N_Derived_Type_Definition =>
9621 (1 => False, -- unused
9622 2 => True, -- Interface_List (List2)
9623 3 => True, -- Record_Extension_Part (Node3)
9624 4 => False, -- unused
9625 5 => True), -- Subtype_Indication (Node5)
9627 N_Range_Constraint =>
9628 (1 => False, -- unused
9629 2 => False, -- unused
9630 3 => False, -- unused
9631 4 => True, -- Range_Expression (Node4)
9632 5 => False), -- unused
9635 (1 => True, -- Low_Bound (Node1)
9636 2 => True, -- High_Bound (Node2)
9637 3 => False, -- unused
9638 4 => False, -- unused
9639 5 => False), -- Etype (Node5-Sem)
9641 N_Enumeration_Type_Definition =>
9642 (1 => True, -- Literals (List1)
9643 2 => False, -- unused
9644 3 => False, -- unused
9645 4 => True, -- End_Label (Node4)
9646 5 => False), -- unused
9648 N_Defining_Character_Literal =>
9649 (1 => True, -- Chars (Name1)
9650 2 => False, -- Next_Entity (Node2-Sem)
9651 3 => False, -- Scope (Node3-Sem)
9652 4 => False, -- unused
9653 5 => False), -- Etype (Node5-Sem)
9655 N_Signed_Integer_Type_Definition =>
9656 (1 => True, -- Low_Bound (Node1)
9657 2 => True, -- High_Bound (Node2)
9658 3 => False, -- unused
9659 4 => False, -- unused
9660 5 => False), -- unused
9662 N_Modular_Type_Definition =>
9663 (1 => False, -- unused
9664 2 => False, -- unused
9665 3 => True, -- Expression (Node3)
9666 4 => False, -- unused
9667 5 => False), -- unused
9669 N_Floating_Point_Definition =>
9670 (1 => False, -- unused
9671 2 => True, -- Digits_Expression (Node2)
9672 3 => False, -- unused
9673 4 => True, -- Real_Range_Specification (Node4)
9674 5 => False), -- unused
9676 N_Real_Range_Specification =>
9677 (1 => True, -- Low_Bound (Node1)
9678 2 => True, -- High_Bound (Node2)
9679 3 => False, -- unused
9680 4 => False, -- unused
9681 5 => False), -- unused
9683 N_Ordinary_Fixed_Point_Definition =>
9684 (1 => False, -- unused
9685 2 => False, -- unused
9686 3 => True, -- Delta_Expression (Node3)
9687 4 => True, -- Real_Range_Specification (Node4)
9688 5 => False), -- unused
9690 N_Decimal_Fixed_Point_Definition =>
9691 (1 => False, -- unused
9692 2 => True, -- Digits_Expression (Node2)
9693 3 => True, -- Delta_Expression (Node3)
9694 4 => True, -- Real_Range_Specification (Node4)
9695 5 => False), -- unused
9697 N_Digits_Constraint =>
9698 (1 => False, -- unused
9699 2 => True, -- Digits_Expression (Node2)
9700 3 => False, -- unused
9701 4 => True, -- Range_Constraint (Node4)
9702 5 => False), -- unused
9704 N_Unconstrained_Array_Definition =>
9705 (1 => False, -- unused
9706 2 => True, -- Subtype_Marks (List2)
9707 3 => False, -- unused
9708 4 => True, -- Component_Definition (Node4)
9709 5 => False), -- unused
9711 N_Constrained_Array_Definition =>
9712 (1 => False, -- unused
9713 2 => True, -- Discrete_Subtype_Definitions (List2)
9714 3 => False, -- unused
9715 4 => True, -- Component_Definition (Node4)
9716 5 => False), -- unused
9718 N_Component_Definition =>
9719 (1 => False, -- unused
9720 2 => False, -- unused
9721 3 => True, -- Access_Definition (Node3)
9722 4 => False, -- unused
9723 5 => True), -- Subtype_Indication (Node5)
9725 N_Discriminant_Specification =>
9726 (1 => True, -- Defining_Identifier (Node1)
9727 2 => False, -- unused
9728 3 => True, -- Expression (Node3)
9729 4 => False, -- unused
9730 5 => True), -- Discriminant_Type (Node5)
9732 N_Index_Or_Discriminant_Constraint =>
9733 (1 => True, -- Constraints (List1)
9734 2 => False, -- unused
9735 3 => False, -- unused
9736 4 => False, -- unused
9737 5 => False), -- unused
9739 N_Discriminant_Association =>
9740 (1 => True, -- Selector_Names (List1)
9741 2 => False, -- unused
9742 3 => True, -- Expression (Node3)
9743 4 => False, -- unused
9744 5 => False), -- unused
9746 N_Record_Definition =>
9747 (1 => True, -- Component_List (Node1)
9748 2 => True, -- Interface_List (List2)
9749 3 => False, -- unused
9750 4 => True, -- End_Label (Node4)
9751 5 => False), -- unused
9754 (1 => False, -- unused
9755 2 => False, -- unused
9756 3 => True, -- Component_Items (List3)
9757 4 => True, -- Variant_Part (Node4)
9758 5 => False), -- unused
9760 N_Component_Declaration =>
9761 (1 => True, -- Defining_Identifier (Node1)
9762 2 => False, -- unused
9763 3 => True, -- Expression (Node3)
9764 4 => True, -- Component_Definition (Node4)
9765 5 => False), -- unused
9768 (1 => True, -- Variants (List1)
9769 2 => True, -- Name (Node2)
9770 3 => False, -- unused
9771 4 => False, -- unused
9772 5 => False), -- unused
9775 (1 => True, -- Component_List (Node1)
9776 2 => False, -- Enclosing_Variant (Node2-Sem)
9777 3 => False, -- Present_Expr (Uint3-Sem)
9778 4 => True, -- Discrete_Choices (List4)
9779 5 => False), -- Dcheck_Function (Node5-Sem)
9782 (1 => False, -- Others_Discrete_Choices (List1-Sem)
9783 2 => False, -- unused
9784 3 => False, -- unused
9785 4 => False, -- unused
9786 5 => False), -- unused
9788 N_Access_To_Object_Definition =>
9789 (1 => False, -- unused
9790 2 => False, -- unused
9791 3 => False, -- unused
9792 4 => False, -- unused
9793 5 => True), -- Subtype_Indication (Node5)
9795 N_Access_Function_Definition =>
9796 (1 => False, -- unused
9797 2 => False, -- unused
9798 3 => True, -- Parameter_Specifications (List3)
9799 4 => True, -- Result_Definition (Node4)
9800 5 => False), -- unused
9802 N_Access_Procedure_Definition =>
9803 (1 => False, -- unused
9804 2 => False, -- unused
9805 3 => True, -- Parameter_Specifications (List3)
9806 4 => False, -- unused
9807 5 => False), -- unused
9809 N_Access_Definition =>
9810 (1 => False, -- unused
9811 2 => False, -- unused
9812 3 => True, -- Access_To_Subprogram_Definition (Node3)
9813 4 => True, -- Subtype_Mark (Node4)
9814 5 => False), -- unused
9816 N_Incomplete_Type_Declaration =>
9817 (1 => True, -- Defining_Identifier (Node1)
9818 2 => False, -- unused
9819 3 => False, -- unused
9820 4 => True, -- Discriminant_Specifications (List4)
9821 5 => False), -- unused
9823 N_Explicit_Dereference =>
9824 (1 => False, -- unused
9825 2 => False, -- unused
9826 3 => True, -- Prefix (Node3)
9827 4 => False, -- Actual_Designated_Subtype (Node4-Sem)
9828 5 => False), -- Etype (Node5-Sem)
9830 N_Indexed_Component =>
9831 (1 => True, -- Expressions (List1)
9832 2 => False, -- unused
9833 3 => True, -- Prefix (Node3)
9834 4 => False, -- unused
9835 5 => False), -- Etype (Node5-Sem)
9838 (1 => False, -- unused
9839 2 => False, -- unused
9840 3 => True, -- Prefix (Node3)
9841 4 => True, -- Discrete_Range (Node4)
9842 5 => False), -- Etype (Node5-Sem)
9844 N_Selected_Component =>
9845 (1 => False, -- unused
9846 2 => True, -- Selector_Name (Node2)
9847 3 => True, -- Prefix (Node3)
9848 4 => False, -- unused
9849 5 => False), -- Etype (Node5-Sem)
9851 N_Attribute_Reference =>
9852 (1 => True, -- Expressions (List1)
9853 2 => True, -- Attribute_Name (Name2)
9854 3 => True, -- Prefix (Node3)
9855 4 => False, -- Entity (Node4-Sem)
9856 5 => False), -- Etype (Node5-Sem)
9859 (1 => True, -- Expressions (List1)
9860 2 => True, -- Component_Associations (List2)
9861 3 => False, -- Aggregate_Bounds (Node3-Sem)
9862 4 => False, -- unused
9863 5 => False), -- Etype (Node5-Sem)
9865 N_Component_Association =>
9866 (1 => True, -- Choices (List1)
9867 2 => False, -- Loop_Actions (List2-Sem)
9868 3 => True, -- Expression (Node3)
9869 4 => False, -- unused
9870 5 => False), -- unused
9872 N_Extension_Aggregate =>
9873 (1 => True, -- Expressions (List1)
9874 2 => True, -- Component_Associations (List2)
9875 3 => True, -- Ancestor_Part (Node3)
9876 4 => False, -- unused
9877 5 => False), -- Etype (Node5-Sem)
9880 (1 => False, -- unused
9881 2 => False, -- unused
9882 3 => False, -- unused
9883 4 => False, -- unused
9884 5 => False), -- Etype (Node5-Sem)
9887 (1 => False, -- Actions (List1-Sem)
9888 2 => True, -- Left_Opnd (Node2)
9889 3 => True, -- Right_Opnd (Node3)
9890 4 => False, -- unused
9891 5 => False), -- Etype (Node5-Sem)
9894 (1 => False, -- Actions (List1-Sem)
9895 2 => True, -- Left_Opnd (Node2)
9896 3 => True, -- Right_Opnd (Node3)
9897 4 => False, -- unused
9898 5 => False), -- Etype (Node5-Sem)
9901 (1 => False, -- unused
9902 2 => True, -- Left_Opnd (Node2)
9903 3 => True, -- Right_Opnd (Node3)
9904 4 => True, -- Alternatives (List4)
9905 5 => False), -- Etype (Node5-Sem)
9908 (1 => False, -- unused
9909 2 => True, -- Left_Opnd (Node2)
9910 3 => True, -- Right_Opnd (Node3)
9911 4 => True, -- Alternatives (List4)
9912 5 => False), -- Etype (Node5-Sem)
9915 (1 => True, -- Chars (Name1)
9916 2 => True, -- Left_Opnd (Node2)
9917 3 => True, -- Right_Opnd (Node3)
9918 4 => False, -- Entity (Node4-Sem)
9919 5 => False), -- Etype (Node5-Sem)
9922 (1 => True, -- Chars (Name1)
9923 2 => True, -- Left_Opnd (Node2)
9924 3 => True, -- Right_Opnd (Node3)
9925 4 => False, -- Entity (Node4-Sem)
9926 5 => False), -- Etype (Node5-Sem)
9929 (1 => True, -- Chars (Name1)
9930 2 => True, -- Left_Opnd (Node2)
9931 3 => True, -- Right_Opnd (Node3)
9932 4 => False, -- Entity (Node4-Sem)
9933 5 => False), -- Etype (Node5-Sem)
9936 (1 => True, -- Chars (Name1)
9937 2 => True, -- Left_Opnd (Node2)
9938 3 => True, -- Right_Opnd (Node3)
9939 4 => False, -- Entity (Node4-Sem)
9940 5 => False), -- Etype (Node5-Sem)
9943 (1 => True, -- Chars (Name1)
9944 2 => True, -- Left_Opnd (Node2)
9945 3 => True, -- Right_Opnd (Node3)
9946 4 => False, -- Entity (Node4-Sem)
9947 5 => False), -- Etype (Node5-Sem)
9950 (1 => True, -- Chars (Name1)
9951 2 => True, -- Left_Opnd (Node2)
9952 3 => True, -- Right_Opnd (Node3)
9953 4 => False, -- Entity (Node4-Sem)
9954 5 => False), -- Etype (Node5-Sem)
9957 (1 => True, -- Chars (Name1)
9958 2 => True, -- Left_Opnd (Node2)
9959 3 => True, -- Right_Opnd (Node3)
9960 4 => False, -- Entity (Node4-Sem)
9961 5 => False), -- Etype (Node5-Sem)
9964 (1 => True, -- Chars (Name1)
9965 2 => True, -- Left_Opnd (Node2)
9966 3 => True, -- Right_Opnd (Node3)
9967 4 => False, -- Entity (Node4-Sem)
9968 5 => False), -- Etype (Node5-Sem)
9971 (1 => True, -- Chars (Name1)
9972 2 => True, -- Left_Opnd (Node2)
9973 3 => True, -- Right_Opnd (Node3)
9974 4 => False, -- Entity (Node4-Sem)
9975 5 => False), -- Etype (Node5-Sem)
9978 (1 => True, -- Chars (Name1)
9979 2 => True, -- Left_Opnd (Node2)
9980 3 => True, -- Right_Opnd (Node3)
9981 4 => False, -- Entity (Node4-Sem)
9982 5 => False), -- Etype (Node5-Sem)
9985 (1 => True, -- Chars (Name1)
9986 2 => True, -- Left_Opnd (Node2)
9987 3 => True, -- Right_Opnd (Node3)
9988 4 => False, -- Entity (Node4-Sem)
9989 5 => False), -- Etype (Node5-Sem)
9992 (1 => True, -- Chars (Name1)
9993 2 => True, -- Left_Opnd (Node2)
9994 3 => True, -- Right_Opnd (Node3)
9995 4 => False, -- Entity (Node4-Sem)
9996 5 => False), -- Etype (Node5-Sem)
9999 (1 => True, -- Chars (Name1)
10000 2 => True, -- Left_Opnd (Node2)
10001 3 => True, -- Right_Opnd (Node3)
10002 4 => False, -- Entity (Node4-Sem)
10003 5 => False), -- Etype (Node5-Sem)
10006 (1 => True, -- Chars (Name1)
10007 2 => True, -- Left_Opnd (Node2)
10008 3 => True, -- Right_Opnd (Node3)
10009 4 => False, -- Entity (Node4-Sem)
10010 5 => False), -- Etype (Node5-Sem)
10013 (1 => True, -- Chars (Name1)
10014 2 => True, -- Left_Opnd (Node2)
10015 3 => True, -- Right_Opnd (Node3)
10016 4 => False, -- Entity (Node4-Sem)
10017 5 => False), -- Etype (Node5-Sem)
10020 (1 => True, -- Chars (Name1)
10021 2 => True, -- Left_Opnd (Node2)
10022 3 => True, -- Right_Opnd (Node3)
10023 4 => False, -- Entity (Node4-Sem)
10024 5 => False), -- Etype (Node5-Sem)
10027 (1 => True, -- Chars (Name1)
10028 2 => True, -- Left_Opnd (Node2)
10029 3 => True, -- Right_Opnd (Node3)
10030 4 => False, -- Entity (Node4-Sem)
10031 5 => False), -- Etype (Node5-Sem)
10034 (1 => True, -- Chars (Name1)
10035 2 => False, -- unused
10036 3 => True, -- Right_Opnd (Node3)
10037 4 => False, -- Entity (Node4-Sem)
10038 5 => False), -- Etype (Node5-Sem)
10041 (1 => True, -- Chars (Name1)
10042 2 => False, -- unused
10043 3 => True, -- Right_Opnd (Node3)
10044 4 => False, -- Entity (Node4-Sem)
10045 5 => False), -- Etype (Node5-Sem)
10048 (1 => True, -- Chars (Name1)
10049 2 => False, -- unused
10050 3 => True, -- Right_Opnd (Node3)
10051 4 => False, -- Entity (Node4-Sem)
10052 5 => False), -- Etype (Node5-Sem)
10055 (1 => True, -- Chars (Name1)
10056 2 => False, -- unused
10057 3 => True, -- Right_Opnd (Node3)
10058 4 => False, -- Entity (Node4-Sem)
10059 5 => False), -- Etype (Node5-Sem)
10061 N_Type_Conversion =>
10062 (1 => False, -- unused
10063 2 => False, -- unused
10064 3 => True, -- Expression (Node3)
10065 4 => True, -- Subtype_Mark (Node4)
10066 5 => False), -- Etype (Node5-Sem)
10068 N_Qualified_Expression =>
10069 (1 => False, -- unused
10070 2 => False, -- unused
10071 3 => True, -- Expression (Node3)
10072 4 => True, -- Subtype_Mark (Node4)
10073 5 => False), -- Etype (Node5-Sem)
10076 (1 => False, -- Storage_Pool (Node1-Sem)
10077 2 => False, -- Procedure_To_Call (Node2-Sem)
10078 3 => True, -- Expression (Node3)
10079 4 => False, -- Coextensions (Elist4-Sem)
10080 5 => False), -- Etype (Node5-Sem)
10082 N_Null_Statement =>
10083 (1 => False, -- unused
10084 2 => False, -- unused
10085 3 => False, -- unused
10086 4 => False, -- unused
10087 5 => False), -- unused
10090 (1 => True, -- Identifier (Node1)
10091 2 => False, -- unused
10092 3 => False, -- unused
10093 4 => False, -- unused
10094 5 => False), -- unused
10096 N_Assignment_Statement =>
10097 (1 => False, -- unused
10098 2 => True, -- Name (Node2)
10099 3 => True, -- Expression (Node3)
10100 4 => False, -- unused
10101 5 => False), -- unused
10104 (1 => True, -- Condition (Node1)
10105 2 => True, -- Then_Statements (List2)
10106 3 => True, -- Elsif_Parts (List3)
10107 4 => True, -- Else_Statements (List4)
10108 5 => True), -- End_Span (Uint5)
10111 (1 => True, -- Condition (Node1)
10112 2 => True, -- Then_Statements (List2)
10113 3 => False, -- Condition_Actions (List3-Sem)
10114 4 => False, -- unused
10115 5 => False), -- unused
10117 N_Case_Statement =>
10118 (1 => False, -- unused
10119 2 => False, -- unused
10120 3 => True, -- Expression (Node3)
10121 4 => True, -- Alternatives (List4)
10122 5 => True), -- End_Span (Uint5)
10124 N_Case_Statement_Alternative =>
10125 (1 => False, -- unused
10126 2 => False, -- unused
10127 3 => True, -- Statements (List3)
10128 4 => True, -- Discrete_Choices (List4)
10129 5 => False), -- unused
10131 N_Loop_Statement =>
10132 (1 => True, -- Identifier (Node1)
10133 2 => True, -- Iteration_Scheme (Node2)
10134 3 => True, -- Statements (List3)
10135 4 => True, -- End_Label (Node4)
10136 5 => False), -- unused
10138 N_Iteration_Scheme =>
10139 (1 => True, -- Condition (Node1)
10140 2 => False, -- unused
10141 3 => False, -- Condition_Actions (List3-Sem)
10142 4 => True, -- Loop_Parameter_Specification (Node4)
10143 5 => False), -- unused
10145 N_Loop_Parameter_Specification =>
10146 (1 => True, -- Defining_Identifier (Node1)
10147 2 => False, -- unused
10148 3 => False, -- unused
10149 4 => True, -- Discrete_Subtype_Definition (Node4)
10150 5 => False), -- unused
10152 N_Block_Statement =>
10153 (1 => True, -- Identifier (Node1)
10154 2 => True, -- Declarations (List2)
10155 3 => False, -- Activation_Chain_Entity (Node3-Sem)
10156 4 => True, -- Handled_Statement_Sequence (Node4)
10157 5 => False), -- unused
10159 N_Exit_Statement =>
10160 (1 => True, -- Condition (Node1)
10161 2 => True, -- Name (Node2)
10162 3 => False, -- unused
10163 4 => False, -- unused
10164 5 => False), -- unused
10166 N_Goto_Statement =>
10167 (1 => False, -- unused
10168 2 => True, -- Name (Node2)
10169 3 => False, -- unused
10170 4 => False, -- unused
10171 5 => False), -- unused
10173 N_Subprogram_Declaration =>
10174 (1 => True, -- Specification (Node1)
10175 2 => False, -- unused
10176 3 => False, -- Body_To_Inline (Node3-Sem)
10177 4 => False, -- Parent_Spec (Node4-Sem)
10178 5 => False), -- Corresponding_Body (Node5-Sem)
10180 N_Abstract_Subprogram_Declaration =>
10181 (1 => True, -- Specification (Node1)
10182 2 => False, -- unused
10183 3 => False, -- unused
10184 4 => False, -- unused
10185 5 => False), -- unused
10187 N_Function_Specification =>
10188 (1 => True, -- Defining_Unit_Name (Node1)
10189 2 => False, -- Elaboration_Boolean (Node2-Sem)
10190 3 => True, -- Parameter_Specifications (List3)
10191 4 => True, -- Result_Definition (Node4)
10192 5 => False), -- Generic_Parent (Node5-Sem)
10194 N_Procedure_Specification =>
10195 (1 => True, -- Defining_Unit_Name (Node1)
10196 2 => False, -- Elaboration_Boolean (Node2-Sem)
10197 3 => True, -- Parameter_Specifications (List3)
10198 4 => False, -- unused
10199 5 => False), -- Generic_Parent (Node5-Sem)
10202 (1 => True, -- Identifier (Node1)
10203 2 => True, -- Name (Node2)
10204 3 => False, -- unused
10205 4 => False, -- unused
10206 5 => False), -- unused
10208 N_Defining_Program_Unit_Name =>
10209 (1 => True, -- Defining_Identifier (Node1)
10210 2 => True, -- Name (Node2)
10211 3 => False, -- unused
10212 4 => False, -- unused
10213 5 => False), -- unused
10215 N_Operator_Symbol =>
10216 (1 => True, -- Chars (Name1)
10217 2 => False, -- unused
10218 3 => True, -- Strval (Str3)
10219 4 => False, -- Entity (Node4-Sem)
10220 5 => False), -- Etype (Node5-Sem)
10222 N_Defining_Operator_Symbol =>
10223 (1 => True, -- Chars (Name1)
10224 2 => False, -- Next_Entity (Node2-Sem)
10225 3 => False, -- Scope (Node3-Sem)
10226 4 => False, -- unused
10227 5 => False), -- Etype (Node5-Sem)
10229 N_Parameter_Specification =>
10230 (1 => True, -- Defining_Identifier (Node1)
10231 2 => True, -- Parameter_Type (Node2)
10232 3 => True, -- Expression (Node3)
10233 4 => False, -- unused
10234 5 => False), -- Default_Expression (Node5-Sem)
10236 N_Subprogram_Body =>
10237 (1 => True, -- Specification (Node1)
10238 2 => True, -- Declarations (List2)
10239 3 => False, -- Activation_Chain_Entity (Node3-Sem)
10240 4 => True, -- Handled_Statement_Sequence (Node4)
10241 5 => False), -- Corresponding_Spec (Node5-Sem)
10243 N_Procedure_Call_Statement =>
10244 (1 => False, -- Controlling_Argument (Node1-Sem)
10245 2 => True, -- Name (Node2)
10246 3 => True, -- Parameter_Associations (List3)
10247 4 => False, -- First_Named_Actual (Node4-Sem)
10248 5 => False), -- Etype (Node5-Sem)
10251 (1 => False, -- Controlling_Argument (Node1-Sem)
10252 2 => True, -- Name (Node2)
10253 3 => True, -- Parameter_Associations (List3)
10254 4 => False, -- First_Named_Actual (Node4-Sem)
10255 5 => False), -- Etype (Node5-Sem)
10257 N_Parameter_Association =>
10258 (1 => False, -- unused
10259 2 => True, -- Selector_Name (Node2)
10260 3 => True, -- Explicit_Actual_Parameter (Node3)
10261 4 => False, -- Next_Named_Actual (Node4-Sem)
10262 5 => False), -- unused
10264 N_Return_Statement =>
10265 (1 => False, -- Storage_Pool (Node1-Sem)
10266 2 => False, -- Procedure_To_Call (Node2-Sem)
10267 3 => True, -- Expression (Node3)
10268 4 => False, -- unused
10269 5 => False), -- Return_Statement_Entity (Node5-Sem)
10271 N_Extended_Return_Statement =>
10272 (1 => False, -- Storage_Pool (Node1-Sem)
10273 2 => False, -- Procedure_To_Call (Node2-Sem)
10274 3 => True, -- Return_Object_Declarations (List3)
10275 4 => True, -- Handled_Statement_Sequence (Node4)
10276 5 => False), -- Return_Statement_Entity (Node5-Sem)
10278 N_Package_Declaration =>
10279 (1 => True, -- Specification (Node1)
10280 2 => False, -- unused
10281 3 => False, -- Activation_Chain_Entity (Node3-Sem)
10282 4 => False, -- Parent_Spec (Node4-Sem)
10283 5 => False), -- Corresponding_Body (Node5-Sem)
10285 N_Package_Specification =>
10286 (1 => True, -- Defining_Unit_Name (Node1)
10287 2 => True, -- Visible_Declarations (List2)
10288 3 => True, -- Private_Declarations (List3)
10289 4 => True, -- End_Label (Node4)
10290 5 => False), -- Generic_Parent (Node5-Sem)
10293 (1 => True, -- Defining_Unit_Name (Node1)
10294 2 => True, -- Declarations (List2)
10295 3 => False, -- unused
10296 4 => True, -- Handled_Statement_Sequence (Node4)
10297 5 => False), -- Corresponding_Spec (Node5-Sem)
10299 N_Private_Type_Declaration =>
10300 (1 => True, -- Defining_Identifier (Node1)
10301 2 => False, -- unused
10302 3 => False, -- unused
10303 4 => True, -- Discriminant_Specifications (List4)
10304 5 => False), -- unused
10306 N_Private_Extension_Declaration =>
10307 (1 => True, -- Defining_Identifier (Node1)
10308 2 => True, -- Interface_List (List2)
10309 3 => False, -- unused
10310 4 => True, -- Discriminant_Specifications (List4)
10311 5 => True), -- Subtype_Indication (Node5)
10313 N_Use_Package_Clause =>
10314 (1 => False, -- unused
10315 2 => True, -- Names (List2)
10316 3 => False, -- Next_Use_Clause (Node3-Sem)
10317 4 => False, -- Hidden_By_Use_Clause (Elist4-Sem)
10318 5 => False), -- unused
10320 N_Use_Type_Clause =>
10321 (1 => False, -- unused
10322 2 => True, -- Subtype_Marks (List2)
10323 3 => False, -- Next_Use_Clause (Node3-Sem)
10324 4 => False, -- Hidden_By_Use_Clause (Elist4-Sem)
10325 5 => False), -- unused
10327 N_Object_Renaming_Declaration =>
10328 (1 => True, -- Defining_Identifier (Node1)
10329 2 => True, -- Name (Node2)
10330 3 => True, -- Access_Definition (Node3)
10331 4 => True, -- Subtype_Mark (Node4)
10332 5 => False), -- Corresponding_Generic_Association (Node5-Sem)
10334 N_Exception_Renaming_Declaration =>
10335 (1 => True, -- Defining_Identifier (Node1)
10336 2 => True, -- Name (Node2)
10337 3 => False, -- unused
10338 4 => False, -- unused
10339 5 => False), -- unused
10341 N_Package_Renaming_Declaration =>
10342 (1 => True, -- Defining_Unit_Name (Node1)
10343 2 => True, -- Name (Node2)
10344 3 => False, -- unused
10345 4 => False, -- Parent_Spec (Node4-Sem)
10346 5 => False), -- unused
10348 N_Subprogram_Renaming_Declaration =>
10349 (1 => True, -- Specification (Node1)
10350 2 => True, -- Name (Node2)
10351 3 => False, -- Corresponding_Formal_Spec (Node3-Sem)
10352 4 => False, -- Parent_Spec (Node4-Sem)
10353 5 => False), -- Corresponding_Spec (Node5-Sem)
10355 N_Generic_Package_Renaming_Declaration =>
10356 (1 => True, -- Defining_Unit_Name (Node1)
10357 2 => True, -- Name (Node2)
10358 3 => False, -- unused
10359 4 => False, -- Parent_Spec (Node4-Sem)
10360 5 => False), -- unused
10362 N_Generic_Procedure_Renaming_Declaration =>
10363 (1 => True, -- Defining_Unit_Name (Node1)
10364 2 => True, -- Name (Node2)
10365 3 => False, -- unused
10366 4 => False, -- Parent_Spec (Node4-Sem)
10367 5 => False), -- unused
10369 N_Generic_Function_Renaming_Declaration =>
10370 (1 => True, -- Defining_Unit_Name (Node1)
10371 2 => True, -- Name (Node2)
10372 3 => False, -- unused
10373 4 => False, -- Parent_Spec (Node4-Sem)
10374 5 => False), -- unused
10376 N_Task_Type_Declaration =>
10377 (1 => True, -- Defining_Identifier (Node1)
10378 2 => True, -- Interface_List (List2)
10379 3 => True, -- Task_Definition (Node3)
10380 4 => True, -- Discriminant_Specifications (List4)
10381 5 => False), -- Corresponding_Body (Node5-Sem)
10383 N_Single_Task_Declaration =>
10384 (1 => True, -- Defining_Identifier (Node1)
10385 2 => True, -- Interface_List (List2)
10386 3 => True, -- Task_Definition (Node3)
10387 4 => False, -- unused
10388 5 => False), -- unused
10390 N_Task_Definition =>
10391 (1 => False, -- unused
10392 2 => True, -- Visible_Declarations (List2)
10393 3 => True, -- Private_Declarations (List3)
10394 4 => True, -- End_Label (Node4)
10395 5 => False), -- unused
10398 (1 => True, -- Defining_Identifier (Node1)
10399 2 => True, -- Declarations (List2)
10400 3 => False, -- Activation_Chain_Entity (Node3-Sem)
10401 4 => True, -- Handled_Statement_Sequence (Node4)
10402 5 => False), -- Corresponding_Spec (Node5-Sem)
10404 N_Protected_Type_Declaration =>
10405 (1 => True, -- Defining_Identifier (Node1)
10406 2 => True, -- Interface_List (List2)
10407 3 => True, -- Protected_Definition (Node3)
10408 4 => True, -- Discriminant_Specifications (List4)
10409 5 => False), -- Corresponding_Body (Node5-Sem)
10411 N_Single_Protected_Declaration =>
10412 (1 => True, -- Defining_Identifier (Node1)
10413 2 => True, -- Interface_List (List2)
10414 3 => True, -- Protected_Definition (Node3)
10415 4 => False, -- unused
10416 5 => False), -- unused
10418 N_Protected_Definition =>
10419 (1 => False, -- unused
10420 2 => True, -- Visible_Declarations (List2)
10421 3 => True, -- Private_Declarations (List3)
10422 4 => True, -- End_Label (Node4)
10423 5 => False), -- unused
10425 N_Protected_Body =>
10426 (1 => True, -- Defining_Identifier (Node1)
10427 2 => True, -- Declarations (List2)
10428 3 => False, -- unused
10429 4 => True, -- End_Label (Node4)
10430 5 => False), -- Corresponding_Spec (Node5-Sem)
10432 N_Entry_Declaration =>
10433 (1 => True, -- Defining_Identifier (Node1)
10434 2 => False, -- unused
10435 3 => True, -- Parameter_Specifications (List3)
10436 4 => True, -- Discrete_Subtype_Definition (Node4)
10437 5 => False), -- Corresponding_Body (Node5-Sem)
10439 N_Accept_Statement =>
10440 (1 => True, -- Entry_Direct_Name (Node1)
10441 2 => True, -- Declarations (List2)
10442 3 => True, -- Parameter_Specifications (List3)
10443 4 => True, -- Handled_Statement_Sequence (Node4)
10444 5 => True), -- Entry_Index (Node5)
10447 (1 => True, -- Defining_Identifier (Node1)
10448 2 => True, -- Declarations (List2)
10449 3 => False, -- Activation_Chain_Entity (Node3-Sem)
10450 4 => True, -- Handled_Statement_Sequence (Node4)
10451 5 => True), -- Entry_Body_Formal_Part (Node5)
10453 N_Entry_Body_Formal_Part =>
10454 (1 => True, -- Condition (Node1)
10455 2 => False, -- unused
10456 3 => True, -- Parameter_Specifications (List3)
10457 4 => True, -- Entry_Index_Specification (Node4)
10458 5 => False), -- unused
10460 N_Entry_Index_Specification =>
10461 (1 => True, -- Defining_Identifier (Node1)
10462 2 => False, -- unused
10463 3 => False, -- unused
10464 4 => True, -- Discrete_Subtype_Definition (Node4)
10465 5 => False), -- unused
10467 N_Entry_Call_Statement =>
10468 (1 => False, -- unused
10469 2 => True, -- Name (Node2)
10470 3 => True, -- Parameter_Associations (List3)
10471 4 => False, -- First_Named_Actual (Node4-Sem)
10472 5 => False), -- unused
10474 N_Requeue_Statement =>
10475 (1 => False, -- unused
10476 2 => True, -- Name (Node2)
10477 3 => False, -- unused
10478 4 => False, -- unused
10479 5 => False), -- unused
10481 N_Delay_Until_Statement =>
10482 (1 => False, -- unused
10483 2 => False, -- unused
10484 3 => True, -- Expression (Node3)
10485 4 => False, -- unused
10486 5 => False), -- unused
10488 N_Delay_Relative_Statement =>
10489 (1 => False, -- unused
10490 2 => False, -- unused
10491 3 => True, -- Expression (Node3)
10492 4 => False, -- unused
10493 5 => False), -- unused
10495 N_Selective_Accept =>
10496 (1 => True, -- Select_Alternatives (List1)
10497 2 => False, -- unused
10498 3 => False, -- unused
10499 4 => True, -- Else_Statements (List4)
10500 5 => False), -- unused
10502 N_Accept_Alternative =>
10503 (1 => True, -- Condition (Node1)
10504 2 => True, -- Accept_Statement (Node2)
10505 3 => True, -- Statements (List3)
10506 4 => True, -- Pragmas_Before (List4)
10507 5 => False), -- Accept_Handler_Records (List5-Sem)
10509 N_Delay_Alternative =>
10510 (1 => True, -- Condition (Node1)
10511 2 => True, -- Delay_Statement (Node2)
10512 3 => True, -- Statements (List3)
10513 4 => True, -- Pragmas_Before (List4)
10514 5 => False), -- unused
10516 N_Terminate_Alternative =>
10517 (1 => True, -- Condition (Node1)
10518 2 => False, -- unused
10519 3 => False, -- unused
10520 4 => True, -- Pragmas_Before (List4)
10521 5 => True), -- Pragmas_After (List5)
10523 N_Timed_Entry_Call =>
10524 (1 => True, -- Entry_Call_Alternative (Node1)
10525 2 => False, -- unused
10526 3 => False, -- unused
10527 4 => True, -- Delay_Alternative (Node4)
10528 5 => False), -- unused
10530 N_Entry_Call_Alternative =>
10531 (1 => True, -- Entry_Call_Statement (Node1)
10532 2 => False, -- unused
10533 3 => True, -- Statements (List3)
10534 4 => True, -- Pragmas_Before (List4)
10535 5 => False), -- unused
10537 N_Conditional_Entry_Call =>
10538 (1 => True, -- Entry_Call_Alternative (Node1)
10539 2 => False, -- unused
10540 3 => False, -- unused
10541 4 => True, -- Else_Statements (List4)
10542 5 => False), -- unused
10544 N_Asynchronous_Select =>
10545 (1 => True, -- Triggering_Alternative (Node1)
10546 2 => True, -- Abortable_Part (Node2)
10547 3 => False, -- unused
10548 4 => False, -- unused
10549 5 => False), -- unused
10551 N_Triggering_Alternative =>
10552 (1 => True, -- Triggering_Statement (Node1)
10553 2 => False, -- unused
10554 3 => True, -- Statements (List3)
10555 4 => True, -- Pragmas_Before (List4)
10556 5 => False), -- unused
10558 N_Abortable_Part =>
10559 (1 => False, -- unused
10560 2 => False, -- unused
10561 3 => True, -- Statements (List3)
10562 4 => False, -- unused
10563 5 => False), -- unused
10565 N_Abort_Statement =>
10566 (1 => False, -- unused
10567 2 => True, -- Names (List2)
10568 3 => False, -- unused
10569 4 => False, -- unused
10570 5 => False), -- unused
10572 N_Compilation_Unit =>
10573 (1 => True, -- Context_Items (List1)
10574 2 => True, -- Unit (Node2)
10575 3 => False, -- First_Inlined_Subprogram (Node3-Sem)
10576 4 => False, -- Library_Unit (Node4-Sem)
10577 5 => True), -- Aux_Decls_Node (Node5)
10579 N_Compilation_Unit_Aux =>
10580 (1 => True, -- Actions (List1)
10581 2 => True, -- Declarations (List2)
10582 3 => False, -- unused
10583 4 => True, -- Config_Pragmas (List4)
10584 5 => True), -- Pragmas_After (List5)
10587 (1 => False, -- unused
10588 2 => True, -- Name (Node2)
10589 3 => False, -- unused
10590 4 => False, -- Library_Unit (Node4-Sem)
10591 5 => False), -- Corresponding_Spec (Node5-Sem)
10593 N_Subprogram_Body_Stub =>
10594 (1 => True, -- Specification (Node1)
10595 2 => False, -- unused
10596 3 => False, -- unused
10597 4 => False, -- Library_Unit (Node4-Sem)
10598 5 => False), -- Corresponding_Body (Node5-Sem)
10600 N_Package_Body_Stub =>
10601 (1 => True, -- Defining_Identifier (Node1)
10602 2 => False, -- unused
10603 3 => False, -- unused
10604 4 => False, -- Library_Unit (Node4-Sem)
10605 5 => False), -- Corresponding_Body (Node5-Sem)
10607 N_Task_Body_Stub =>
10608 (1 => True, -- Defining_Identifier (Node1)
10609 2 => False, -- unused
10610 3 => False, -- unused
10611 4 => False, -- Library_Unit (Node4-Sem)
10612 5 => False), -- Corresponding_Body (Node5-Sem)
10614 N_Protected_Body_Stub =>
10615 (1 => True, -- Defining_Identifier (Node1)
10616 2 => False, -- unused
10617 3 => False, -- unused
10618 4 => False, -- Library_Unit (Node4-Sem)
10619 5 => False), -- Corresponding_Body (Node5-Sem)
10622 (1 => True, -- Proper_Body (Node1)
10623 2 => True, -- Name (Node2)
10624 3 => False, -- Corresponding_Stub (Node3-Sem)
10625 4 => False, -- unused
10626 5 => False), -- unused
10628 N_Exception_Declaration =>
10629 (1 => True, -- Defining_Identifier (Node1)
10630 2 => False, -- unused
10631 3 => False, -- Expression (Node3-Sem)
10632 4 => False, -- unused
10633 5 => False), -- unused
10635 N_Handled_Sequence_Of_Statements =>
10636 (1 => True, -- At_End_Proc (Node1)
10637 2 => False, -- First_Real_Statement (Node2-Sem)
10638 3 => True, -- Statements (List3)
10639 4 => True, -- End_Label (Node4)
10640 5 => True), -- Exception_Handlers (List5)
10642 N_Exception_Handler =>
10643 (1 => False, -- Local_Raise_Statements (Elist1)
10644 2 => True, -- Choice_Parameter (Node2)
10645 3 => True, -- Statements (List3)
10646 4 => True, -- Exception_Choices (List4)
10647 5 => False), -- Exception_Label (Node5)
10649 N_Raise_Statement =>
10650 (1 => False, -- unused
10651 2 => True, -- Name (Node2)
10652 3 => True, -- Expression (Node3)
10653 4 => False, -- unused
10654 5 => False), -- unused
10656 N_Generic_Subprogram_Declaration =>
10657 (1 => True, -- Specification (Node1)
10658 2 => True, -- Generic_Formal_Declarations (List2)
10659 3 => False, -- unused
10660 4 => False, -- Parent_Spec (Node4-Sem)
10661 5 => False), -- Corresponding_Body (Node5-Sem)
10663 N_Generic_Package_Declaration =>
10664 (1 => True, -- Specification (Node1)
10665 2 => True, -- Generic_Formal_Declarations (List2)
10666 3 => False, -- Activation_Chain_Entity (Node3-Sem)
10667 4 => False, -- Parent_Spec (Node4-Sem)
10668 5 => False), -- Corresponding_Body (Node5-Sem)
10670 N_Package_Instantiation =>
10671 (1 => True, -- Defining_Unit_Name (Node1)
10672 2 => True, -- Name (Node2)
10673 3 => True, -- Generic_Associations (List3)
10674 4 => False, -- Parent_Spec (Node4-Sem)
10675 5 => False), -- Instance_Spec (Node5-Sem)
10677 N_Procedure_Instantiation =>
10678 (1 => True, -- Defining_Unit_Name (Node1)
10679 2 => True, -- Name (Node2)
10680 3 => True, -- Generic_Associations (List3)
10681 4 => False, -- Parent_Spec (Node4-Sem)
10682 5 => False), -- Instance_Spec (Node5-Sem)
10684 N_Function_Instantiation =>
10685 (1 => True, -- Defining_Unit_Name (Node1)
10686 2 => True, -- Name (Node2)
10687 3 => True, -- Generic_Associations (List3)
10688 4 => False, -- Parent_Spec (Node4-Sem)
10689 5 => False), -- Instance_Spec (Node5-Sem)
10691 N_Generic_Association =>
10692 (1 => True, -- Explicit_Generic_Actual_Parameter (Node1)
10693 2 => True, -- Selector_Name (Node2)
10694 3 => False, -- unused
10695 4 => False, -- unused
10696 5 => False), -- unused
10698 N_Formal_Object_Declaration =>
10699 (1 => True, -- Defining_Identifier (Node1)
10700 2 => False, -- unused
10701 3 => True, -- Access_Definition (Node3)
10702 4 => True, -- Subtype_Mark (Node4)
10703 5 => True), -- Default_Expression (Node5)
10705 N_Formal_Type_Declaration =>
10706 (1 => True, -- Defining_Identifier (Node1)
10707 2 => False, -- unused
10708 3 => True, -- Formal_Type_Definition (Node3)
10709 4 => True, -- Discriminant_Specifications (List4)
10710 5 => False), -- unused
10712 N_Formal_Private_Type_Definition =>
10713 (1 => False, -- unused
10714 2 => False, -- unused
10715 3 => False, -- unused
10716 4 => False, -- unused
10717 5 => False), -- unused
10719 N_Formal_Derived_Type_Definition =>
10720 (1 => False, -- unused
10721 2 => True, -- Interface_List (List2)
10722 3 => False, -- unused
10723 4 => True, -- Subtype_Mark (Node4)
10724 5 => False), -- unused
10726 N_Formal_Discrete_Type_Definition =>
10727 (1 => False, -- unused
10728 2 => False, -- unused
10729 3 => False, -- unused
10730 4 => False, -- unused
10731 5 => False), -- unused
10733 N_Formal_Signed_Integer_Type_Definition =>
10734 (1 => False, -- unused
10735 2 => False, -- unused
10736 3 => False, -- unused
10737 4 => False, -- unused
10738 5 => False), -- unused
10740 N_Formal_Modular_Type_Definition =>
10741 (1 => False, -- unused
10742 2 => False, -- unused
10743 3 => False, -- unused
10744 4 => False, -- unused
10745 5 => False), -- unused
10747 N_Formal_Floating_Point_Definition =>
10748 (1 => False, -- unused
10749 2 => False, -- unused
10750 3 => False, -- unused
10751 4 => False, -- unused
10752 5 => False), -- unused
10754 N_Formal_Ordinary_Fixed_Point_Definition =>
10755 (1 => False, -- unused
10756 2 => False, -- unused
10757 3 => False, -- unused
10758 4 => False, -- unused
10759 5 => False), -- unused
10761 N_Formal_Decimal_Fixed_Point_Definition =>
10762 (1 => False, -- unused
10763 2 => False, -- unused
10764 3 => False, -- unused
10765 4 => False, -- unused
10766 5 => False), -- unused
10768 N_Formal_Concrete_Subprogram_Declaration =>
10769 (1 => True, -- Specification (Node1)
10770 2 => True, -- Default_Name (Node2)
10771 3 => False, -- unused
10772 4 => False, -- unused
10773 5 => False), -- unused
10775 N_Formal_Abstract_Subprogram_Declaration =>
10776 (1 => True, -- Specification (Node1)
10777 2 => True, -- Default_Name (Node2)
10778 3 => False, -- unused
10779 4 => False, -- unused
10780 5 => False), -- unused
10782 N_Formal_Package_Declaration =>
10783 (1 => True, -- Defining_Identifier (Node1)
10784 2 => True, -- Name (Node2)
10785 3 => True, -- Generic_Associations (List3)
10786 4 => False, -- unused
10787 5 => False), -- Instance_Spec (Node5-Sem)
10789 N_Attribute_Definition_Clause =>
10790 (1 => True, -- Chars (Name1)
10791 2 => True, -- Name (Node2)
10792 3 => True, -- Expression (Node3)
10793 4 => False, -- unused
10794 5 => False), -- Next_Rep_Item (Node5-Sem)
10796 N_Enumeration_Representation_Clause =>
10797 (1 => True, -- Identifier (Node1)
10798 2 => False, -- unused
10799 3 => True, -- Array_Aggregate (Node3)
10800 4 => False, -- unused
10801 5 => False), -- Next_Rep_Item (Node5-Sem)
10803 N_Record_Representation_Clause =>
10804 (1 => True, -- Identifier (Node1)
10805 2 => True, -- Mod_Clause (Node2)
10806 3 => True, -- Component_Clauses (List3)
10807 4 => False, -- unused
10808 5 => False), -- Next_Rep_Item (Node5-Sem)
10810 N_Component_Clause =>
10811 (1 => True, -- Component_Name (Node1)
10812 2 => True, -- Position (Node2)
10813 3 => True, -- First_Bit (Node3)
10814 4 => True, -- Last_Bit (Node4)
10815 5 => False), -- unused
10817 N_Code_Statement =>
10818 (1 => False, -- unused
10819 2 => False, -- unused
10820 3 => True, -- Expression (Node3)
10821 4 => False, -- unused
10822 5 => False), -- unused
10824 N_Op_Rotate_Left =>
10825 (1 => True, -- Chars (Name1)
10826 2 => True, -- Left_Opnd (Node2)
10827 3 => True, -- Right_Opnd (Node3)
10828 4 => False, -- Entity (Node4-Sem)
10829 5 => False), -- Etype (Node5-Sem)
10831 N_Op_Rotate_Right =>
10832 (1 => True, -- Chars (Name1)
10833 2 => True, -- Left_Opnd (Node2)
10834 3 => True, -- Right_Opnd (Node3)
10835 4 => False, -- Entity (Node4-Sem)
10836 5 => False), -- Etype (Node5-Sem)
10839 (1 => True, -- Chars (Name1)
10840 2 => True, -- Left_Opnd (Node2)
10841 3 => True, -- Right_Opnd (Node3)
10842 4 => False, -- Entity (Node4-Sem)
10843 5 => False), -- Etype (Node5-Sem)
10845 N_Op_Shift_Right_Arithmetic =>
10846 (1 => True, -- Chars (Name1)
10847 2 => True, -- Left_Opnd (Node2)
10848 3 => True, -- Right_Opnd (Node3)
10849 4 => False, -- Entity (Node4-Sem)
10850 5 => False), -- Etype (Node5-Sem)
10852 N_Op_Shift_Right =>
10853 (1 => True, -- Chars (Name1)
10854 2 => True, -- Left_Opnd (Node2)
10855 3 => True, -- Right_Opnd (Node3)
10856 4 => False, -- Entity (Node4-Sem)
10857 5 => False), -- Etype (Node5-Sem)
10859 N_Delta_Constraint =>
10860 (1 => False, -- unused
10861 2 => False, -- unused
10862 3 => True, -- Delta_Expression (Node3)
10863 4 => True, -- Range_Constraint (Node4)
10864 5 => False), -- unused
10867 (1 => True, -- Identifier (Node1)
10868 2 => False, -- unused
10869 3 => True, -- Expression (Node3)
10870 4 => False, -- unused
10871 5 => False), -- unused
10874 (1 => False, -- unused
10875 2 => False, -- unused
10876 3 => True, -- Expression (Node3)
10877 4 => True, -- Pragmas_Before (List4)
10878 5 => False), -- unused
10880 N_Conditional_Expression =>
10881 (1 => True, -- Expressions (List1)
10882 2 => False, -- Then_Actions (List2-Sem)
10883 3 => False, -- Else_Actions (List3-Sem)
10884 4 => False, -- unused
10885 5 => False), -- Etype (Node5-Sem)
10888 (1 => True, -- Chars (Name1)
10889 2 => True, -- Selector_Name (Node2)
10890 3 => True, -- Prefix (Node3)
10891 4 => False, -- Entity (Node4-Sem)
10892 5 => False), -- Etype (Node5-Sem)
10894 N_Free_Statement =>
10895 (1 => False, -- Storage_Pool (Node1-Sem)
10896 2 => False, -- Procedure_To_Call (Node2-Sem)
10897 3 => True, -- Expression (Node3)
10898 4 => False, -- Actual_Designated_Subtype (Node4-Sem)
10899 5 => False), -- unused
10902 (1 => True, -- Actions (List1)
10903 2 => False, -- Access_Types_To_Process (Elist2-Sem)
10904 3 => False, -- TSS_Elist (Elist3-Sem)
10905 4 => False, -- Entity (Node4-Sem)
10906 5 => False), -- First_Subtype_Link (Node5-Sem)
10908 N_Implicit_Label_Declaration =>
10909 (1 => True, -- Defining_Identifier (Node1)
10910 2 => False, -- Label_Construct (Node2-Sem)
10911 3 => False, -- unused
10912 4 => False, -- unused
10913 5 => False), -- unused
10915 N_Itype_Reference =>
10916 (1 => False, -- Itype (Node1-Sem)
10917 2 => False, -- unused
10918 3 => False, -- unused
10919 4 => False, -- unused
10920 5 => False), -- unused
10922 N_Raise_Constraint_Error =>
10923 (1 => True, -- Condition (Node1)
10924 2 => False, -- unused
10925 3 => True, -- Reason (Uint3)
10926 4 => False, -- unused
10927 5 => False), -- Etype (Node5-Sem)
10929 N_Raise_Program_Error =>
10930 (1 => True, -- Condition (Node1)
10931 2 => False, -- unused
10932 3 => True, -- Reason (Uint3)
10933 4 => False, -- unused
10934 5 => False), -- Etype (Node5-Sem)
10936 N_Raise_Storage_Error =>
10937 (1 => True, -- Condition (Node1)
10938 2 => False, -- unused
10939 3 => True, -- Reason (Uint3)
10940 4 => False, -- unused
10941 5 => False), -- Etype (Node5-Sem)
10943 N_Push_Constraint_Error_Label =>
10944 (1 => False, -- unused
10945 2 => False, -- unused
10946 3 => False, -- unused
10947 4 => False, -- unused
10948 5 => False), -- unused
10950 N_Push_Program_Error_Label =>
10951 (1 => False, -- Exception_Label
10952 2 => False, -- unused
10953 3 => False, -- unused
10954 4 => False, -- unused
10955 5 => False), -- Exception_Label
10957 N_Push_Storage_Error_Label =>
10958 (1 => False, -- Exception_Label
10959 2 => False, -- unused
10960 3 => False, -- unused
10961 4 => False, -- unused
10962 5 => False), -- Exception_Label
10964 N_Pop_Constraint_Error_Label =>
10965 (1 => False, -- unused
10966 2 => False, -- unused
10967 3 => False, -- unused
10968 4 => False, -- unused
10969 5 => False), -- unused
10971 N_Pop_Program_Error_Label =>
10972 (1 => False, -- unused
10973 2 => False, -- unused
10974 3 => False, -- unused
10975 4 => False, -- unused
10976 5 => False), -- unused
10978 N_Pop_Storage_Error_Label =>
10979 (1 => False, -- unused
10980 2 => False, -- unused
10981 3 => False, -- unused
10982 4 => False, -- unused
10983 5 => False), -- unused
10986 (1 => False, -- unused
10987 2 => False, -- unused
10988 3 => True, -- Prefix (Node3)
10989 4 => False, -- unused
10990 5 => False), -- Etype (Node5-Sem)
10992 N_Subprogram_Info =>
10993 (1 => True, -- Identifier (Node1)
10994 2 => False, -- unused
10995 3 => False, -- unused
10996 4 => False, -- unused
10997 5 => False), -- Etype (Node5-Sem)
10999 N_Unchecked_Expression =>
11000 (1 => False, -- unused
11001 2 => False, -- unused
11002 3 => True, -- Expression (Node3)
11003 4 => False, -- unused
11004 5 => False), -- Etype (Node5-Sem)
11006 N_Unchecked_Type_Conversion =>
11007 (1 => False, -- unused
11008 2 => False, -- unused
11009 3 => True, -- Expression (Node3)
11010 4 => True, -- Subtype_Mark (Node4)
11011 5 => False), -- Etype (Node5-Sem)
11013 N_Validate_Unchecked_Conversion =>
11014 (1 => False, -- Source_Type (Node1-Sem)
11015 2 => False, -- Target_Type (Node2-Sem)
11016 3 => False, -- unused
11017 4 => False, -- unused
11018 5 => False), -- unused
11020 -- End of inserted output from makeisf program
11022 -- Entries for SCIL nodes
11024 N_SCIL_Dispatch_Table_Object_Init =>
11025 (1 => False, -- SCIL_Related_Node (Node1-Sem)
11026 2 => False, -- unused
11027 3 => False, -- unused
11028 4 => False, -- SCIL_Entity (Node4-Sem)
11029 5 => False), -- unused
11031 N_SCIL_Dispatch_Table_Tag_Init =>
11032 (1 => False, -- SCIL_Related_Node (Node1-Sem)
11033 2 => False, -- unused
11034 3 => False, -- unused
11035 4 => False, -- SCIL_Entity (Node4-Sem)
11036 5 => False), -- unused
11038 N_SCIL_Dispatching_Call =>
11039 (1 => False, -- SCIL_Related_Node (Node1-Sem)
11040 2 => False, -- SCIL_Target_Prim (Node2-Sem)
11041 3 => False, -- unused
11042 4 => False, -- SCIL_Entity (Node4-Sem)
11043 5 => False), -- SCIL_Controlling_Tag (Node5-Sem)
11046 (1 => False, -- SCIL_Related_Node (Node1-Sem)
11047 2 => False, -- unused
11048 3 => False, -- unused
11049 4 => False, -- SCIL_Entity (Node4-Sem)
11050 5 => False), -- unused
11052 -- Entries for Empty, Error and Unused. Even thought these have a Chars
11053 -- field for debugging purposes, they are not really syntactic fields, so
11054 -- we mark all fields as unused.
11057 (1 => False, -- unused
11058 2 => False, -- unused
11059 3 => False, -- unused
11060 4 => False, -- unused
11061 5 => False), -- unused
11064 (1 => False, -- unused
11065 2 => False, -- unused
11066 3 => False, -- unused
11067 4 => False, -- unused
11068 5 => False), -- unused
11070 N_Unused_At_Start =>
11071 (1 => False, -- unused
11072 2 => False, -- unused
11073 3 => False, -- unused
11074 4 => False, -- unused
11075 5 => False), -- unused
11078 (1 => False, -- unused
11079 2 => False, -- unused
11080 3 => False, -- unused
11081 4 => False, -- unused
11082 5 => False)); -- unused
11084 --------------------
11085 -- Inline Pragmas --
11086 --------------------
11088 pragma Inline (ABE_Is_Certain);
11089 pragma Inline (Abort_Present);
11090 pragma Inline (Abortable_Part);
11091 pragma Inline (Abstract_Present);
11092 pragma Inline (Accept_Handler_Records);
11093 pragma Inline (Accept_Statement);
11094 pragma Inline (Access_Definition);
11095 pragma Inline (Access_To_Subprogram_Definition);
11096 pragma Inline (Access_Types_To_Process);
11097 pragma Inline (Actions);
11098 pragma Inline (Activation_Chain_Entity);
11099 pragma Inline (Acts_As_Spec);
11100 pragma Inline (Actual_Designated_Subtype);
11101 pragma Inline (Address_Warning_Posted);
11102 pragma Inline (Aggregate_Bounds);
11103 pragma Inline (Aliased_Present);
11104 pragma Inline (All_Others);
11105 pragma Inline (All_Present);
11106 pragma Inline (Alternatives);
11107 pragma Inline (Ancestor_Part);
11108 pragma Inline (Array_Aggregate);
11109 pragma Inline (Assignment_OK);
11110 pragma Inline (Associated_Node);
11111 pragma Inline (At_End_Proc);
11112 pragma Inline (Attribute_Name);
11113 pragma Inline (Aux_Decls_Node);
11114 pragma Inline (Backwards_OK);
11115 pragma Inline (Bad_Is_Detected);
11116 pragma Inline (Body_To_Inline);
11117 pragma Inline (Body_Required);
11118 pragma Inline (By_Ref);
11119 pragma Inline (Box_Present);
11120 pragma Inline (Char_Literal_Value);
11121 pragma Inline (Chars);
11122 pragma Inline (Check_Address_Alignment);
11123 pragma Inline (Choice_Parameter);
11124 pragma Inline (Choices);
11125 pragma Inline (Coextensions);
11126 pragma Inline (Comes_From_Extended_Return_Statement);
11127 pragma Inline (Compile_Time_Known_Aggregate);
11128 pragma Inline (Component_Associations);
11129 pragma Inline (Component_Clauses);
11130 pragma Inline (Component_Definition);
11131 pragma Inline (Component_Items);
11132 pragma Inline (Component_List);
11133 pragma Inline (Component_Name);
11134 pragma Inline (Componentwise_Assignment);
11135 pragma Inline (Condition);
11136 pragma Inline (Condition_Actions);
11137 pragma Inline (Config_Pragmas);
11138 pragma Inline (Constant_Present);
11139 pragma Inline (Constraint);
11140 pragma Inline (Constraints);
11141 pragma Inline (Context_Installed);
11142 pragma Inline (Context_Items);
11143 pragma Inline (Context_Pending);
11144 pragma Inline (Controlling_Argument);
11145 pragma Inline (Conversion_OK);
11146 pragma Inline (Corresponding_Body);
11147 pragma Inline (Corresponding_Formal_Spec);
11148 pragma Inline (Corresponding_Generic_Association);
11149 pragma Inline (Corresponding_Integer_Value);
11150 pragma Inline (Corresponding_Spec);
11151 pragma Inline (Corresponding_Stub);
11152 pragma Inline (Dcheck_Function);
11153 pragma Inline (Debug_Statement);
11154 pragma Inline (Declarations);
11155 pragma Inline (Default_Expression);
11156 pragma Inline (Default_Name);
11157 pragma Inline (Defining_Identifier);
11158 pragma Inline (Defining_Unit_Name);
11159 pragma Inline (Delay_Alternative);
11160 pragma Inline (Delay_Statement);
11161 pragma Inline (Delta_Expression);
11162 pragma Inline (Digits_Expression);
11163 pragma Inline (Discr_Check_Funcs_Built);
11164 pragma Inline (Discrete_Choices);
11165 pragma Inline (Discrete_Range);
11166 pragma Inline (Discrete_Subtype_Definition);
11167 pragma Inline (Discrete_Subtype_Definitions);
11168 pragma Inline (Discriminant_Specifications);
11169 pragma Inline (Discriminant_Type);
11170 pragma Inline (Do_Accessibility_Check);
11171 pragma Inline (Do_Discriminant_Check);
11172 pragma Inline (Do_Length_Check);
11173 pragma Inline (Do_Division_Check);
11174 pragma Inline (Do_Overflow_Check);
11175 pragma Inline (Do_Range_Check);
11176 pragma Inline (Do_Storage_Check);
11177 pragma Inline (Do_Tag_Check);
11178 pragma Inline (Elaborate_Present);
11179 pragma Inline (Elaborate_All_Desirable);
11180 pragma Inline (Elaborate_All_Present);
11181 pragma Inline (Elaborate_Desirable);
11182 pragma Inline (Elaboration_Boolean);
11183 pragma Inline (Else_Actions);
11184 pragma Inline (Else_Statements);
11185 pragma Inline (Elsif_Parts);
11186 pragma Inline (Enclosing_Variant);
11187 pragma Inline (End_Label);
11188 pragma Inline (End_Span);
11189 pragma Inline (Entity);
11190 pragma Inline (Entity_Or_Associated_Node);
11191 pragma Inline (Entry_Body_Formal_Part);
11192 pragma Inline (Entry_Call_Alternative);
11193 pragma Inline (Entry_Call_Statement);
11194 pragma Inline (Entry_Direct_Name);
11195 pragma Inline (Entry_Index);
11196 pragma Inline (Entry_Index_Specification);
11197 pragma Inline (Etype);
11198 pragma Inline (Exception_Choices);
11199 pragma Inline (Exception_Handlers);
11200 pragma Inline (Exception_Junk);
11201 pragma Inline (Exception_Label);
11202 pragma Inline (Expansion_Delayed);
11203 pragma Inline (Explicit_Actual_Parameter);
11204 pragma Inline (Explicit_Generic_Actual_Parameter);
11205 pragma Inline (Expression);
11206 pragma Inline (Expressions);
11207 pragma Inline (First_Bit);
11208 pragma Inline (First_Inlined_Subprogram);
11209 pragma Inline (First_Name);
11210 pragma Inline (First_Named_Actual);
11211 pragma Inline (First_Real_Statement);
11212 pragma Inline (First_Subtype_Link);
11213 pragma Inline (Float_Truncate);
11214 pragma Inline (Formal_Type_Definition);
11215 pragma Inline (Forwards_OK);
11216 pragma Inline (From_At_End);
11217 pragma Inline (From_At_Mod);
11218 pragma Inline (From_Default);
11219 pragma Inline (Generic_Associations);
11220 pragma Inline (Generic_Formal_Declarations);
11221 pragma Inline (Generic_Parent);
11222 pragma Inline (Generic_Parent_Type);
11223 pragma Inline (Handled_Statement_Sequence);
11224 pragma Inline (Handler_List_Entry);
11225 pragma Inline (Has_Created_Identifier);
11226 pragma Inline (Has_Dynamic_Length_Check);
11227 pragma Inline (Has_Dynamic_Range_Check);
11228 pragma Inline (Has_Init_Expression);
11229 pragma Inline (Has_Local_Raise);
11230 pragma Inline (Has_Self_Reference);
11231 pragma Inline (Has_No_Elaboration_Code);
11232 pragma Inline (Has_Priority_Pragma);
11233 pragma Inline (Has_Private_View);
11234 pragma Inline (Has_Relative_Deadline_Pragma);
11235 pragma Inline (Has_Storage_Size_Pragma);
11236 pragma Inline (Has_Task_Info_Pragma);
11237 pragma Inline (Has_Task_Name_Pragma);
11238 pragma Inline (Has_Wide_Character);
11239 pragma Inline (Hidden_By_Use_Clause);
11240 pragma Inline (High_Bound);
11241 pragma Inline (Identifier);
11242 pragma Inline (Implicit_With);
11243 pragma Inline (Interface_List);
11244 pragma Inline (Interface_Present);
11245 pragma Inline (Includes_Infinities);
11246 pragma Inline (In_Present);
11247 pragma Inline (Instance_Spec);
11248 pragma Inline (Intval);
11249 pragma Inline (Is_Asynchronous_Call_Block);
11250 pragma Inline (Is_Component_Left_Opnd);
11251 pragma Inline (Is_Component_Right_Opnd);
11252 pragma Inline (Is_Controlling_Actual);
11253 pragma Inline (Is_Dynamic_Coextension);
11254 pragma Inline (Is_Elsif);
11255 pragma Inline (Is_Entry_Barrier_Function);
11256 pragma Inline (Is_Expanded_Build_In_Place_Call);
11257 pragma Inline (Is_Folded_In_Parser);
11258 pragma Inline (Is_In_Discriminant_Check);
11259 pragma Inline (Is_Machine_Number);
11260 pragma Inline (Is_Null_Loop);
11261 pragma Inline (Is_Overloaded);
11262 pragma Inline (Is_Power_Of_2_For_Shift);
11263 pragma Inline (Is_Protected_Subprogram_Body);
11264 pragma Inline (Is_Static_Coextension);
11265 pragma Inline (Is_Static_Expression);
11266 pragma Inline (Is_Subprogram_Descriptor);
11267 pragma Inline (Is_Task_Allocation_Block);
11268 pragma Inline (Is_Task_Master);
11269 pragma Inline (Iteration_Scheme);
11270 pragma Inline (Itype);
11271 pragma Inline (Kill_Range_Check);
11272 pragma Inline (Last_Bit);
11273 pragma Inline (Last_Name);
11274 pragma Inline (Library_Unit);
11275 pragma Inline (Label_Construct);
11276 pragma Inline (Left_Opnd);
11277 pragma Inline (Limited_View_Installed);
11278 pragma Inline (Limited_Present);
11279 pragma Inline (Literals);
11280 pragma Inline (Local_Raise_Not_OK);
11281 pragma Inline (Local_Raise_Statements);
11282 pragma Inline (Loop_Actions);
11283 pragma Inline (Loop_Parameter_Specification);
11284 pragma Inline (Low_Bound);
11285 pragma Inline (Mod_Clause);
11286 pragma Inline (More_Ids);
11287 pragma Inline (Must_Be_Byte_Aligned);
11288 pragma Inline (Must_Not_Freeze);
11289 pragma Inline (Must_Not_Override);
11290 pragma Inline (Must_Override);
11291 pragma Inline (Name);
11292 pragma Inline (Names);
11293 pragma Inline (Next_Entity);
11294 pragma Inline (Next_Implicit_With);
11295 pragma Inline (Next_Named_Actual);
11296 pragma Inline (Next_Pragma);
11297 pragma Inline (Next_Rep_Item);
11298 pragma Inline (Next_Use_Clause);
11299 pragma Inline (No_Ctrl_Actions);
11300 pragma Inline (No_Elaboration_Check);
11301 pragma Inline (No_Entities_Ref_In_Spec);
11302 pragma Inline (No_Initialization);
11303 pragma Inline (No_Truncation);
11304 pragma Inline (Null_Present);
11305 pragma Inline (Null_Exclusion_Present);
11306 pragma Inline (Null_Exclusion_In_Return_Present);
11307 pragma Inline (Null_Record_Present);
11308 pragma Inline (Object_Definition);
11309 pragma Inline (Original_Discriminant);
11310 pragma Inline (Original_Entity);
11311 pragma Inline (Others_Discrete_Choices);
11312 pragma Inline (Out_Present);
11313 pragma Inline (Parameter_Associations);
11314 pragma Inline (Parameter_Specifications);
11315 pragma Inline (Parameter_List_Truncated);
11316 pragma Inline (Parameter_Type);
11317 pragma Inline (Parent_Spec);
11318 pragma Inline (PPC_Enabled);
11319 pragma Inline (Position);
11320 pragma Inline (Pragma_Argument_Associations);
11321 pragma Inline (Pragma_Identifier);
11322 pragma Inline (Pragmas_After);
11323 pragma Inline (Pragmas_Before);
11324 pragma Inline (Prefix);
11325 pragma Inline (Present_Expr);
11326 pragma Inline (Prev_Ids);
11327 pragma Inline (Print_In_Hex);
11328 pragma Inline (Private_Declarations);
11329 pragma Inline (Private_Present);
11330 pragma Inline (Procedure_To_Call);
11331 pragma Inline (Proper_Body);
11332 pragma Inline (Protected_Definition);
11333 pragma Inline (Protected_Present);
11334 pragma Inline (Raises_Constraint_Error);
11335 pragma Inline (Range_Constraint);
11336 pragma Inline (Range_Expression);
11337 pragma Inline (Real_Range_Specification);
11338 pragma Inline (Realval);
11339 pragma Inline (Reason);
11340 pragma Inline (Record_Extension_Part);
11341 pragma Inline (Redundant_Use);
11342 pragma Inline (Renaming_Exception);
11343 pragma Inline (Result_Definition);
11344 pragma Inline (Return_Object_Declarations);
11345 pragma Inline (Return_Statement_Entity);
11346 pragma Inline (Reverse_Present);
11347 pragma Inline (Right_Opnd);
11348 pragma Inline (Rounded_Result);
11349 pragma Inline (SCIL_Controlling_Tag);
11350 pragma Inline (SCIL_Entity);
11351 pragma Inline (SCIL_Related_Node);
11352 pragma Inline (SCIL_Target_Prim);
11353 pragma Inline (Scope);
11354 pragma Inline (Select_Alternatives);
11355 pragma Inline (Selector_Name);
11356 pragma Inline (Selector_Names);
11357 pragma Inline (Shift_Count_OK);
11358 pragma Inline (Source_Type);
11359 pragma Inline (Specification);
11360 pragma Inline (Statements);
11361 pragma Inline (Static_Processing_OK);
11362 pragma Inline (Storage_Pool);
11363 pragma Inline (Strval);
11364 pragma Inline (Subtype_Indication);
11365 pragma Inline (Subtype_Mark);
11366 pragma Inline (Subtype_Marks);
11367 pragma Inline (Suppress_Loop_Warnings);
11368 pragma Inline (Synchronized_Present);
11369 pragma Inline (Tagged_Present);
11370 pragma Inline (Target_Type);
11371 pragma Inline (Task_Definition);
11372 pragma Inline (Task_Present);
11373 pragma Inline (Then_Actions);
11374 pragma Inline (Then_Statements);
11375 pragma Inline (Triggering_Alternative);
11376 pragma Inline (Triggering_Statement);
11377 pragma Inline (Treat_Fixed_As_Integer);
11378 pragma Inline (TSS_Elist);
11379 pragma Inline (Type_Definition);
11380 pragma Inline (Unit);
11381 pragma Inline (Unknown_Discriminants_Present);
11382 pragma Inline (Unreferenced_In_Spec);
11383 pragma Inline (Variant_Part);
11384 pragma Inline (Variants);
11385 pragma Inline (Visible_Declarations);
11386 pragma Inline (Was_Originally_Stub);
11387 pragma Inline (Zero_Cost_Handling);
11389 pragma Inline (Set_ABE_Is_Certain);
11390 pragma Inline (Set_Abort_Present);
11391 pragma Inline (Set_Abortable_Part);
11392 pragma Inline (Set_Abstract_Present);
11393 pragma Inline (Set_Accept_Handler_Records);
11394 pragma Inline (Set_Accept_Statement);
11395 pragma Inline (Set_Access_Definition);
11396 pragma Inline (Set_Access_To_Subprogram_Definition);
11397 pragma Inline (Set_Access_Types_To_Process);
11398 pragma Inline (Set_Actions);
11399 pragma Inline (Set_Activation_Chain_Entity);
11400 pragma Inline (Set_Acts_As_Spec);
11401 pragma Inline (Set_Actual_Designated_Subtype);
11402 pragma Inline (Set_Address_Warning_Posted);
11403 pragma Inline (Set_Aggregate_Bounds);
11404 pragma Inline (Set_Aliased_Present);
11405 pragma Inline (Set_All_Others);
11406 pragma Inline (Set_All_Present);
11407 pragma Inline (Set_Alternatives);
11408 pragma Inline (Set_Ancestor_Part);
11409 pragma Inline (Set_Array_Aggregate);
11410 pragma Inline (Set_Assignment_OK);
11411 pragma Inline (Set_Associated_Node);
11412 pragma Inline (Set_At_End_Proc);
11413 pragma Inline (Set_Attribute_Name);
11414 pragma Inline (Set_Aux_Decls_Node);
11415 pragma Inline (Set_Backwards_OK);
11416 pragma Inline (Set_Bad_Is_Detected);
11417 pragma Inline (Set_Body_To_Inline);
11418 pragma Inline (Set_Body_Required);
11419 pragma Inline (Set_By_Ref);
11420 pragma Inline (Set_Box_Present);
11421 pragma Inline (Set_Char_Literal_Value);
11422 pragma Inline (Set_Chars);
11423 pragma Inline (Set_Check_Address_Alignment);
11424 pragma Inline (Set_Choice_Parameter);
11425 pragma Inline (Set_Choices);
11426 pragma Inline (Set_Coextensions);
11427 pragma Inline (Set_Comes_From_Extended_Return_Statement);
11428 pragma Inline (Set_Compile_Time_Known_Aggregate);
11429 pragma Inline (Set_Component_Associations);
11430 pragma Inline (Set_Component_Clauses);
11431 pragma Inline (Set_Component_Definition);
11432 pragma Inline (Set_Component_Items);
11433 pragma Inline (Set_Component_List);
11434 pragma Inline (Set_Component_Name);
11435 pragma Inline (Set_Componentwise_Assignment);
11436 pragma Inline (Set_Condition);
11437 pragma Inline (Set_Condition_Actions);
11438 pragma Inline (Set_Config_Pragmas);
11439 pragma Inline (Set_Constant_Present);
11440 pragma Inline (Set_Constraint);
11441 pragma Inline (Set_Constraints);
11442 pragma Inline (Set_Context_Installed);
11443 pragma Inline (Set_Context_Items);
11444 pragma Inline (Set_Context_Pending);
11445 pragma Inline (Set_Controlling_Argument);
11446 pragma Inline (Set_Conversion_OK);
11447 pragma Inline (Set_Corresponding_Body);
11448 pragma Inline (Set_Corresponding_Formal_Spec);
11449 pragma Inline (Set_Corresponding_Generic_Association);
11450 pragma Inline (Set_Corresponding_Integer_Value);
11451 pragma Inline (Set_Corresponding_Spec);
11452 pragma Inline (Set_Corresponding_Stub);
11453 pragma Inline (Set_Dcheck_Function);
11454 pragma Inline (Set_Debug_Statement);
11455 pragma Inline (Set_Declarations);
11456 pragma Inline (Set_Default_Expression);
11457 pragma Inline (Set_Default_Name);
11458 pragma Inline (Set_Defining_Identifier);
11459 pragma Inline (Set_Defining_Unit_Name);
11460 pragma Inline (Set_Delay_Alternative);
11461 pragma Inline (Set_Delay_Statement);
11462 pragma Inline (Set_Delta_Expression);
11463 pragma Inline (Set_Digits_Expression);
11464 pragma Inline (Set_Discr_Check_Funcs_Built);
11465 pragma Inline (Set_Discrete_Choices);
11466 pragma Inline (Set_Discrete_Range);
11467 pragma Inline (Set_Discrete_Subtype_Definition);
11468 pragma Inline (Set_Discrete_Subtype_Definitions);
11469 pragma Inline (Set_Discriminant_Specifications);
11470 pragma Inline (Set_Discriminant_Type);
11471 pragma Inline (Set_Do_Accessibility_Check);
11472 pragma Inline (Set_Do_Discriminant_Check);
11473 pragma Inline (Set_Do_Length_Check);
11474 pragma Inline (Set_Do_Division_Check);
11475 pragma Inline (Set_Do_Overflow_Check);
11476 pragma Inline (Set_Do_Range_Check);
11477 pragma Inline (Set_Do_Storage_Check);
11478 pragma Inline (Set_Do_Tag_Check);
11479 pragma Inline (Set_Elaborate_Present);
11480 pragma Inline (Set_Elaborate_All_Desirable);
11481 pragma Inline (Set_Elaborate_All_Present);
11482 pragma Inline (Set_Elaborate_Desirable);
11483 pragma Inline (Set_Elaboration_Boolean);
11484 pragma Inline (Set_Else_Actions);
11485 pragma Inline (Set_Else_Statements);
11486 pragma Inline (Set_Elsif_Parts);
11487 pragma Inline (Set_Enclosing_Variant);
11488 pragma Inline (Set_End_Label);
11489 pragma Inline (Set_End_Span);
11490 pragma Inline (Set_Entity);
11491 pragma Inline (Set_Entry_Body_Formal_Part);
11492 pragma Inline (Set_Entry_Call_Alternative);
11493 pragma Inline (Set_Entry_Call_Statement);
11494 pragma Inline (Set_Entry_Direct_Name);
11495 pragma Inline (Set_Entry_Index);
11496 pragma Inline (Set_Entry_Index_Specification);
11497 pragma Inline (Set_Etype);
11498 pragma Inline (Set_Exception_Choices);
11499 pragma Inline (Set_Exception_Handlers);
11500 pragma Inline (Set_Exception_Junk);
11501 pragma Inline (Set_Exception_Label);
11502 pragma Inline (Set_Expansion_Delayed);
11503 pragma Inline (Set_Explicit_Actual_Parameter);
11504 pragma Inline (Set_Explicit_Generic_Actual_Parameter);
11505 pragma Inline (Set_Expression);
11506 pragma Inline (Set_Expressions);
11507 pragma Inline (Set_First_Bit);
11508 pragma Inline (Set_First_Inlined_Subprogram);
11509 pragma Inline (Set_First_Name);
11510 pragma Inline (Set_First_Named_Actual);
11511 pragma Inline (Set_First_Real_Statement);
11512 pragma Inline (Set_First_Subtype_Link);
11513 pragma Inline (Set_Float_Truncate);
11514 pragma Inline (Set_Formal_Type_Definition);
11515 pragma Inline (Set_Forwards_OK);
11516 pragma Inline (Set_From_At_End);
11517 pragma Inline (Set_From_At_Mod);
11518 pragma Inline (Set_From_Default);
11519 pragma Inline (Set_Generic_Associations);
11520 pragma Inline (Set_Generic_Formal_Declarations);
11521 pragma Inline (Set_Generic_Parent);
11522 pragma Inline (Set_Generic_Parent_Type);
11523 pragma Inline (Set_Handled_Statement_Sequence);
11524 pragma Inline (Set_Handler_List_Entry);
11525 pragma Inline (Set_Has_Created_Identifier);
11526 pragma Inline (Set_Has_Dynamic_Length_Check);
11527 pragma Inline (Set_Has_Init_Expression);
11528 pragma Inline (Set_Has_Local_Raise);
11529 pragma Inline (Set_Has_Dynamic_Range_Check);
11530 pragma Inline (Set_Has_No_Elaboration_Code);
11531 pragma Inline (Set_Has_Priority_Pragma);
11532 pragma Inline (Set_Has_Private_View);
11533 pragma Inline (Set_Has_Relative_Deadline_Pragma);
11534 pragma Inline (Set_Has_Storage_Size_Pragma);
11535 pragma Inline (Set_Has_Task_Info_Pragma);
11536 pragma Inline (Set_Has_Task_Name_Pragma);
11537 pragma Inline (Set_Has_Wide_Character);
11538 pragma Inline (Set_Hidden_By_Use_Clause);
11539 pragma Inline (Set_High_Bound);
11540 pragma Inline (Set_Identifier);
11541 pragma Inline (Set_Implicit_With);
11542 pragma Inline (Set_Includes_Infinities);
11543 pragma Inline (Set_Interface_List);
11544 pragma Inline (Set_Interface_Present);
11545 pragma Inline (Set_In_Present);
11546 pragma Inline (Set_Instance_Spec);
11547 pragma Inline (Set_Intval);
11548 pragma Inline (Set_Is_Asynchronous_Call_Block);
11549 pragma Inline (Set_Is_Component_Left_Opnd);
11550 pragma Inline (Set_Is_Component_Right_Opnd);
11551 pragma Inline (Set_Is_Controlling_Actual);
11552 pragma Inline (Set_Is_Dynamic_Coextension);
11553 pragma Inline (Set_Is_Elsif);
11554 pragma Inline (Set_Is_Entry_Barrier_Function);
11555 pragma Inline (Set_Is_Expanded_Build_In_Place_Call);
11556 pragma Inline (Set_Is_Folded_In_Parser);
11557 pragma Inline (Set_Is_In_Discriminant_Check);
11558 pragma Inline (Set_Is_Machine_Number);
11559 pragma Inline (Set_Is_Null_Loop);
11560 pragma Inline (Set_Is_Overloaded);
11561 pragma Inline (Set_Is_Power_Of_2_For_Shift);
11562 pragma Inline (Set_Is_Protected_Subprogram_Body);
11563 pragma Inline (Set_Has_Self_Reference);
11564 pragma Inline (Set_Is_Static_Coextension);
11565 pragma Inline (Set_Is_Static_Expression);
11566 pragma Inline (Set_Is_Subprogram_Descriptor);
11567 pragma Inline (Set_Is_Task_Allocation_Block);
11568 pragma Inline (Set_Is_Task_Master);
11569 pragma Inline (Set_Iteration_Scheme);
11570 pragma Inline (Set_Itype);
11571 pragma Inline (Set_Kill_Range_Check);
11572 pragma Inline (Set_Last_Bit);
11573 pragma Inline (Set_Last_Name);
11574 pragma Inline (Set_Library_Unit);
11575 pragma Inline (Set_Label_Construct);
11576 pragma Inline (Set_Left_Opnd);
11577 pragma Inline (Set_Limited_View_Installed);
11578 pragma Inline (Set_Limited_Present);
11579 pragma Inline (Set_Literals);
11580 pragma Inline (Set_Local_Raise_Not_OK);
11581 pragma Inline (Set_Local_Raise_Statements);
11582 pragma Inline (Set_Loop_Actions);
11583 pragma Inline (Set_Loop_Parameter_Specification);
11584 pragma Inline (Set_Low_Bound);
11585 pragma Inline (Set_Mod_Clause);
11586 pragma Inline (Set_More_Ids);
11587 pragma Inline (Set_Must_Be_Byte_Aligned);
11588 pragma Inline (Set_Must_Not_Freeze);
11589 pragma Inline (Set_Must_Not_Override);
11590 pragma Inline (Set_Must_Override);
11591 pragma Inline (Set_Name);
11592 pragma Inline (Set_Names);
11593 pragma Inline (Set_Next_Entity);
11594 pragma Inline (Set_Next_Implicit_With);
11595 pragma Inline (Set_Next_Named_Actual);
11596 pragma Inline (Set_Next_Pragma);
11597 pragma Inline (Set_Next_Rep_Item);
11598 pragma Inline (Set_Next_Use_Clause);
11599 pragma Inline (Set_No_Ctrl_Actions);
11600 pragma Inline (Set_No_Elaboration_Check);
11601 pragma Inline (Set_No_Entities_Ref_In_Spec);
11602 pragma Inline (Set_No_Initialization);
11603 pragma Inline (Set_No_Truncation);
11604 pragma Inline (Set_Null_Present);
11605 pragma Inline (Set_Null_Exclusion_Present);
11606 pragma Inline (Set_Null_Exclusion_In_Return_Present);
11607 pragma Inline (Set_Null_Record_Present);
11608 pragma Inline (Set_Object_Definition);
11609 pragma Inline (Set_Original_Discriminant);
11610 pragma Inline (Set_Original_Entity);
11611 pragma Inline (Set_Others_Discrete_Choices);
11612 pragma Inline (Set_Out_Present);
11613 pragma Inline (Set_Parameter_Associations);
11614 pragma Inline (Set_Parameter_Specifications);
11615 pragma Inline (Set_Parameter_List_Truncated);
11616 pragma Inline (Set_Parameter_Type);
11617 pragma Inline (Set_Parent_Spec);
11618 pragma Inline (Set_PPC_Enabled);
11619 pragma Inline (Set_Position);
11620 pragma Inline (Set_Pragma_Argument_Associations);
11621 pragma Inline (Set_Pragma_Identifier);
11622 pragma Inline (Set_Pragmas_After);
11623 pragma Inline (Set_Pragmas_Before);
11624 pragma Inline (Set_Prefix);
11625 pragma Inline (Set_Present_Expr);
11626 pragma Inline (Set_Prev_Ids);
11627 pragma Inline (Set_Print_In_Hex);
11628 pragma Inline (Set_Private_Declarations);
11629 pragma Inline (Set_Private_Present);
11630 pragma Inline (Set_Procedure_To_Call);
11631 pragma Inline (Set_Proper_Body);
11632 pragma Inline (Set_Protected_Definition);
11633 pragma Inline (Set_Protected_Present);
11634 pragma Inline (Set_Raises_Constraint_Error);
11635 pragma Inline (Set_Range_Constraint);
11636 pragma Inline (Set_Range_Expression);
11637 pragma Inline (Set_Real_Range_Specification);
11638 pragma Inline (Set_Realval);
11639 pragma Inline (Set_Reason);
11640 pragma Inline (Set_Record_Extension_Part);
11641 pragma Inline (Set_Redundant_Use);
11642 pragma Inline (Set_Renaming_Exception);
11643 pragma Inline (Set_Result_Definition);
11644 pragma Inline (Set_Return_Object_Declarations);
11645 pragma Inline (Set_Reverse_Present);
11646 pragma Inline (Set_Right_Opnd);
11647 pragma Inline (Set_Rounded_Result);
11648 pragma Inline (Set_SCIL_Controlling_Tag);
11649 pragma Inline (Set_SCIL_Entity);
11650 pragma Inline (Set_SCIL_Related_Node);
11651 pragma Inline (Set_SCIL_Target_Prim);
11652 pragma Inline (Set_Scope);
11653 pragma Inline (Set_Select_Alternatives);
11654 pragma Inline (Set_Selector_Name);
11655 pragma Inline (Set_Selector_Names);
11656 pragma Inline (Set_Shift_Count_OK);
11657 pragma Inline (Set_Source_Type);
11658 pragma Inline (Set_Specification);
11659 pragma Inline (Set_Statements);
11660 pragma Inline (Set_Static_Processing_OK);
11661 pragma Inline (Set_Storage_Pool);
11662 pragma Inline (Set_Strval);
11663 pragma Inline (Set_Subtype_Indication);
11664 pragma Inline (Set_Subtype_Mark);
11665 pragma Inline (Set_Subtype_Marks);
11666 pragma Inline (Set_Suppress_Loop_Warnings);
11667 pragma Inline (Set_Synchronized_Present);
11668 pragma Inline (Set_Tagged_Present);
11669 pragma Inline (Set_Target_Type);
11670 pragma Inline (Set_Task_Definition);
11671 pragma Inline (Set_Task_Present);
11672 pragma Inline (Set_Then_Actions);
11673 pragma Inline (Set_Then_Statements);
11674 pragma Inline (Set_Triggering_Alternative);
11675 pragma Inline (Set_Triggering_Statement);
11676 pragma Inline (Set_Treat_Fixed_As_Integer);
11677 pragma Inline (Set_TSS_Elist);
11678 pragma Inline (Set_Type_Definition);
11679 pragma Inline (Set_Unit);
11680 pragma Inline (Set_Unknown_Discriminants_Present);
11681 pragma Inline (Set_Unreferenced_In_Spec);
11682 pragma Inline (Set_Variant_Part);
11683 pragma Inline (Set_Variants);
11684 pragma Inline (Set_Visible_Declarations);
11685 pragma Inline (Set_Was_Originally_Stub);
11686 pragma Inline (Set_Zero_Cost_Handling);
11688 N_Simple_Return_Statement : constant Node_Kind := N_Return_Statement;
11689 -- Rename N_Return_Statement to be N_Simple_Return_Statement. Clients
11690 -- should refer to N_Simple_Return_Statement.