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
37 -- design, and is 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. Note that if neither of the
625 -- flags Forwards_OK or Backwards_OK is set, it means that the front end
626 -- could not determine that either direction is definitely safe, and a
627 -- runtime check may be required if the backend cannot figure it out.
629 -- Body_To_Inline (Node3-Sem)
630 -- present in subprogram declarations. Denotes analyzed but unexpanded
631 -- body of subprogram, to be used when inlining calls. Present when the
632 -- subprogram has an Inline pragma and inlining is enabled. If the
633 -- declaration is completed by a renaming_as_body, and the renamed en-
634 -- tity is a subprogram, the Body_To_Inline is the name of that entity,
635 -- which is used directly in later calls to the original subprogram.
637 -- Body_Required (Flag13-Sem)
638 -- A flag that appears in the N_Compilation_Unit node indicating that
639 -- the corresponding unit requires a body. For the package case, this
640 -- indicates that a completion is required. In Ada 95, if the flag is not
641 -- set for the package case, then a body may not be present. In Ada 83,
642 -- if the flag is not set for the package case, then body is optional.
643 -- For a subprogram declaration, the flag is set except in the case where
644 -- a pragma Import or Interface applies, in which case no body is
645 -- permitted (in Ada 83 or Ada 95).
647 -- By_Ref (Flag5-Sem)
648 -- Present in N_Simple_Return_Statement and N_Extended_Return_Statement,
649 -- this flag is set when the returned expression is already allocated on
650 -- the secondary stack and thus the result is passed by reference rather
651 -- than copied another time.
653 -- Check_Address_Alignment (Flag11-Sem)
654 -- A flag present in N_Attribute_Definition clause for a 'Address
655 -- attribute definition. This flag is set if a dynamic check should be
656 -- generated at the freeze point for the entity to which this address
657 -- clause applies. The reason that we need this flag is that we want to
658 -- check for range checks being suppressed at the point where the
659 -- attribute definition clause is given, rather than testing this at the
662 -- Coextensions (Elist4-Sem)
663 -- Present in allocators nodes. Points to list of allocators for the
664 -- access discriminants of the allocated object.
666 -- Comes_From_Extended_Return_Statement (Flag18-Sem)
667 -- Present in N_Simple_Return_Statement nodes. True if this node was
668 -- constructed as part of the N_Extended_Return_Statement expansion.
671 -- Compile_Time_Known_Aggregate (Flag18-Sem)
672 -- Present in N_Aggregate nodes. Set for aggregates which can be fully
673 -- evaluated at compile time without raising constraint error. Such
674 -- aggregates can be passed as is to Gigi without any expansion. See
675 -- Sem_Aggr for the specific conditions under which an aggregate has this
676 -- flag set. See also the flag Static_Processing_OK.
678 -- Condition_Actions (List3-Sem)
679 -- This field appears in else-if nodes and in the iteration scheme node
680 -- for while loops. This field is only used during semantic processing to
681 -- temporarily hold actions inserted into the tree. In the tree passed
682 -- to gigi, the condition actions field is always set to No_List. For
683 -- details on how this field is used, see the routine Insert_Actions in
684 -- package Exp_Util, and also the expansion routines for the relevant
687 -- Controlling_Argument (Node1-Sem)
688 -- This field is set in procedure and function call nodes if the call
689 -- is a dispatching call (it is Empty for a non-dispatching call). It
690 -- indicates the source of the call's controlling tag. For procedure
691 -- calls, the Controlling_Argument is one of the actuals. For function
692 -- that has a dispatching result, it is an entity in the context of the
693 -- call that can provide a tag, or else it is the tag of the root type
694 -- of the class. It can also specify a tag directly rather than being a
695 -- tagged object. The latter is needed by the implementations of AI-239
698 -- Conversion_OK (Flag14-Sem)
699 -- A flag set on type conversion nodes to indicate that the conversion
700 -- is to be considered as being valid, even though it is the case that
701 -- the conversion is not valid Ada. This is used for attributes Enum_Rep,
702 -- Fixed_Value and Integer_Value, for internal conversions done for
703 -- fixed-point operations, and for certain conversions for calls to
704 -- initialization procedures. If Conversion_OK is set, then Etype must be
705 -- set (the analyzer assumes that Etype has been set). For the case of
706 -- fixed-point operands, it also indicates that the conversion is to be
707 -- direct conversion of the underlying integer result, with no regard to
708 -- the small operand.
710 -- Corresponding_Body (Node5-Sem)
711 -- This field is set in subprogram declarations, package declarations,
712 -- entry declarations of protected types, and in generic units. It
713 -- points to the defining entity for the corresponding body (NOT the
714 -- node for the body itself).
716 -- Corresponding_Formal_Spec (Node3-Sem)
717 -- This field is set in subprogram renaming declarations, where it points
718 -- to the defining entity for a formal subprogram in the case where the
719 -- renaming corresponds to a generic formal subprogram association in an
720 -- instantiation. The field is Empty if the renaming does not correspond
721 -- to such a formal association.
723 -- Corresponding_Generic_Association (Node5-Sem)
724 -- This field is defined for object declarations and object renaming
725 -- declarations. It is set for the declarations within an instance that
726 -- map generic formals to their actuals. If set, the field points to
727 -- a generic_association which is the original parent of the expression
728 -- or name appearing in the declaration. This simplifies ASIS queries.
730 -- Corresponding_Integer_Value (Uint4-Sem)
731 -- This field is set in real literals of fixed-point types (it is not
732 -- used for floating-point types). It contains the integer value used
733 -- to represent the fixed-point value. It is also set on the universal
734 -- real literals used to represent bounds of fixed-point base types
735 -- and their first named subtypes.
737 -- Corresponding_Spec (Node5-Sem)
738 -- This field is set in subprogram, package, task, and protected body
739 -- nodes, where it points to the defining entity in the corresponding
740 -- spec. The attribute is also set in N_With_Clause nodes where it points
741 -- to the defining entity for the with'ed spec, and in a subprogram
742 -- renaming declaration when it is a Renaming_As_Body. The field is Empty
743 -- if there is no corresponding spec, as in the case of a subprogram body
744 -- that serves as its own spec.
746 -- Corresponding_Stub (Node3-Sem)
747 -- This field is present in an N_Subunit node. It holds the node in
748 -- the parent unit that is the stub declaration for the subunit. It is
749 -- set when analysis of the stub forces loading of the proper body. If
750 -- expansion of the proper body creates new declarative nodes, they are
751 -- inserted at the point of the corresponding_stub.
753 -- Dcheck_Function (Node5-Sem)
754 -- This field is present in an N_Variant node, It references the entity
755 -- for the discriminant checking function for the variant.
757 -- Debug_Statement (Node3)
758 -- This field is present in an N_Pragma node. It is used only for a Debug
759 -- pragma. The parameter is of the form of an expression, as required by
760 -- the pragma syntax, but is actually a procedure call. To simplify
761 -- semantic processing, the parser creates a copy of the argument
762 -- rearranged into a procedure call statement and places it in the
763 -- Debug_Statement field. Note that this field is considered syntactic
764 -- field, since it is created by the parser.
766 -- Default_Expression (Node5-Sem)
767 -- This field is Empty if there is no default expression. If there is a
768 -- simple default expression (one with no side effects), then this field
769 -- simply contains a copy of the Expression field (both point to the tree
770 -- for the default expression). Default_Expression is used for
771 -- conformance checking.
773 -- Discr_Check_Funcs_Built (Flag11-Sem)
774 -- This flag is present in N_Full_Type_Declaration nodes. It is set when
775 -- discriminant checking functions are constructed. The purpose is to
776 -- avoid attempting to set these functions more than once.
778 -- Do_Accessibility_Check (Flag13-Sem)
779 -- This flag is set on N_Parameter_Specification nodes to indicate
780 -- that an accessibility check is required for the parameter. It is
781 -- not yet decided who takes care of this check (TBD ???).
783 -- Do_Discriminant_Check (Flag13-Sem)
784 -- This flag is set on N_Selected_Component nodes to indicate that a
785 -- discriminant check is required using the discriminant check routine
786 -- associated with the selector. The actual check is generated by the
787 -- expander when processing selected components.
789 -- Do_Division_Check (Flag13-Sem)
790 -- This flag is set on a division operator (/ mod rem) to indicate
791 -- that a zero divide check is required. The actual check is dealt
792 -- with by the backend (all the front end does is to set the flag).
794 -- Do_Length_Check (Flag4-Sem)
795 -- This flag is set in an N_Assignment_Statement, N_Op_And, N_Op_Or,
796 -- N_Op_Xor, or N_Type_Conversion node to indicate that a length check
797 -- is required. It is not determined who deals with this flag (???).
799 -- Do_Overflow_Check (Flag17-Sem)
800 -- This flag is set on an operator where an overflow check is required on
801 -- the operation. The actual check is dealt with by the backend (all the
802 -- front end does is to set the flag). The other cases where this flag is
803 -- used is on a Type_Conversion node and for attribute reference nodes.
804 -- For a type conversion, it means that the conversion is from one base
805 -- type to another, and the value may not fit in the target base type.
806 -- See also the description of Do_Range_Check for this case. The only
807 -- attribute references which use this flag are Pred and Succ, where it
808 -- means that the result should be checked for going outside the base
811 -- Do_Range_Check (Flag9-Sem)
812 -- This flag is set on an expression which appears in a context where a
813 -- range check is required. The target type is clear from the context.
814 -- The contexts in which this flag can appear are the following:
816 -- Right side of an assignment. In this case the target type is
817 -- taken from the left side of the assignment, which is referenced
818 -- by the Name of the N_Assignment_Statement node.
820 -- Subscript expressions in an indexed component. In this case the
821 -- target type is determined from the type of the array, which is
822 -- referenced by the Prefix of the N_Indexed_Component node.
824 -- Argument expression for a parameter, appearing either directly in
825 -- the Parameter_Associations list of a call or as the Expression of an
826 -- N_Parameter_Association node that appears in this list. In either
827 -- case, the check is against the type of the formal. Note that the
828 -- flag is relevant only in IN and IN OUT parameters, and will be
829 -- ignored for OUT parameters, where no check is required in the call,
830 -- and if a check is required on the return, it is generated explicitly
831 -- with a type conversion.
833 -- Initialization expression for the initial value in an object
834 -- declaration. In this case the Do_Range_Check flag is set on
835 -- the initialization expression, and the check is against the
836 -- range of the type of the object being declared.
838 -- The expression of a type conversion. In this case the range check is
839 -- against the target type of the conversion. See also the use of
840 -- Do_Overflow_Check on a type conversion. The distinction is that the
841 -- overflow check protects against a value that is outside the range of
842 -- the target base type, whereas a range check checks that the
843 -- resulting value (which is a value of the base type of the target
844 -- type), satisfies the range constraint of the target type.
846 -- Note: when a range check is required in contexts other than those
847 -- listed above (e.g. in a return statement), an additional type
848 -- conversion node is introduced to represent the required check.
850 -- Do_Storage_Check (Flag17-Sem)
851 -- This flag is set in an N_Allocator node to indicate that a storage
852 -- check is required for the allocation, or in an N_Subprogram_Body node
853 -- to indicate that a stack check is required in the subprogram prolog.
854 -- The N_Allocator case is handled by the routine that expands the call
855 -- to the runtime routine. The N_Subprogram_Body case is handled by the
856 -- backend, and all the semantics does is set the flag.
858 -- Do_Tag_Check (Flag13-Sem)
859 -- This flag is set on an N_Assignment_Statement, N_Function_Call,
860 -- N_Procedure_Call_Statement, N_Type_Conversion,
861 -- N_Simple_Return_Statement, or N_Extended_Return_Statement
862 -- node to indicate that the tag check can be suppressed. It is not
863 -- yet decided how this flag is used (TBD ???).
865 -- Elaborate_Present (Flag4-Sem)
866 -- This flag is set in the N_With_Clause node to indicate that pragma
867 -- Elaborate pragma appears for the with'ed units.
869 -- Elaborate_All_Desirable (Flag9-Sem)
870 -- This flag is set in the N_With_Clause mode to indicate that the static
871 -- elaboration processing has determined that an Elaborate_All pragma is
872 -- desirable for correct elaboration for this unit.
874 -- Elaborate_All_Present (Flag14-Sem)
875 -- This flag is set in the N_With_Clause node to indicate that a
876 -- pragma Elaborate_All pragma appears for the with'ed units.
878 -- Elaborate_Desirable (Flag11-Sem)
879 -- This flag is set in the N_With_Clause mode to indicate that the static
880 -- elaboration processing has determined that an Elaborate pragma is
881 -- desirable for correct elaboration for this unit.
883 -- Elaboration_Boolean (Node2-Sem)
884 -- This field is present in function and procedure specification nodes.
885 -- If set, it points to the entity for a Boolean flag that must be tested
886 -- for certain calls to check for access before elaboration. See body of
887 -- Sem_Elab for further details. This field is Empty if no elaboration
888 -- boolean is required.
890 -- Else_Actions (List3-Sem)
891 -- This field is present in conditional expression nodes. During code
892 -- expansion we use the Insert_Actions procedure (in Exp_Util) to insert
893 -- actions at an appropriate place in the tree to get elaborated at the
894 -- right time. For conditional expressions, we have to be sure that the
895 -- actions for the Else branch are only elaborated if the condition is
896 -- False. The Else_Actions field is used as a temporary parking place for
897 -- these actions. The final tree is always rewritten to eliminate the
898 -- need for this field, so in the tree passed to Gigi, this field is
899 -- always set to No_List.
901 -- Enclosing_Variant (Node2-Sem)
902 -- This field is present in the N_Variant node and identifies the Node_Id
903 -- corresponding to the immediately enclosing variant when the variant is
904 -- nested, and N_Empty otherwise. Set during semantic processing of the
905 -- variant part of a record type.
907 -- Entity (Node4-Sem)
908 -- Appears in all direct names (identifiers, character literals, and
909 -- operator symbols), as well as expanded names, and attributes that
910 -- denote entities, such as 'Class. Points to entity for corresponding
911 -- defining occurrence. Set after name resolution. For identifiers in a
912 -- WITH list, the corresponding defining occurrence is in a separately
913 -- compiled file, and Entity must be set by the library Load procedure.
915 -- Note: During name resolution, the value in Entity may be temporarily
916 -- incorrect (e.g. during overload resolution, Entity is initially set to
917 -- the first possible correct interpretation, and then later modified if
918 -- necessary to contain the correct value after resolution).
920 -- Note: This field overlaps Associated_Node, which is used during
921 -- generic processing (see Sem_Ch12 for details). Note also that in
922 -- generic templates, this means that the Entity field does not always
923 -- point to an Entity. Since the back end is expected to ignore generic
924 -- templates, this is harmless.
926 -- Note: This field also appears in N_Attribute_Definition_Clause nodes.
927 -- It is used only for stream attributes definition clauses. In this
928 -- case, it denotes a (possibly dummy) subprogram entity that is declared
929 -- conceptually at the point of the clause. Thus the visibility of the
930 -- attribute definition clause (in the sense of 8.3(23) as amended by
931 -- AI-195) can be checked by testing the visibility of that subprogram.
933 -- Note: Normally the Entity field of an identifier points to the entity
934 -- for the corresponding defining identifier, and hence the Chars field
935 -- of an identifier will match the Chars field of the entity. However,
936 -- there is no requirement that these match, and there are obscure cases
937 -- of generated code where they do not match.
939 -- Entity_Or_Associated_Node (Node4-Sem)
940 -- A synonym for both Entity and Associated_Node. Used by convention in
941 -- the code when referencing this field in cases where it is not known
942 -- whether the field contains an Entity or an Associated_Node.
945 -- Appears in all expression nodes, all direct names, and all entities.
946 -- Points to the entity for the related type. Set after type resolution.
947 -- Normally this is the actual subtype of the expression. However, in
948 -- certain contexts such as the right side of an assignment, subscripts,
949 -- arguments to calls, returned value in a function, initial value etc.
950 -- it is the desired target type. In the event that this is different
951 -- from the actual type, the Do_Range_Check flag will be set if a range
952 -- check is required. Note: if the Is_Overloaded flag is set, then Etype
953 -- points to an essentially arbitrary choice from the possible set of
956 -- Exception_Junk (Flag8-Sem)
957 -- This flag is set in a various nodes appearing in a statement sequence
958 -- to indicate that the corresponding node is an artifact of the
959 -- generated code for exception handling, and should be ignored when
960 -- analyzing the control flow of the relevant sequence of statements
961 -- (e.g. to check that it does not end with a bad return statement).
963 -- Exception_Label (Node5-Sem)
964 -- Appears in N_Push_xxx_Label nodes. Points to the entity of the label
965 -- to be used for transforming the corresponding exception into a goto,
966 -- or contains Empty, if this exception is not to be transformed. Also
967 -- appears in N_Exception_Handler nodes, where, if set, it indicates
968 -- that there may be a local raise for the handler, so that expansion
969 -- to allow a goto is required (and this field contains the label for
970 -- this goto). See Exp_Ch11.Expand_Local_Exception_Handlers for details.
972 -- Expansion_Delayed (Flag11-Sem)
973 -- Set on aggregates and extension aggregates that need a top-down rather
974 -- than bottom up expansion. Typically aggregate expansion happens bottom
975 -- up. For nested aggregates the expansion is delayed until the enclosing
976 -- aggregate itself is expanded, e.g. in the context of a declaration. To
977 -- delay it we set this flag. This is done to avoid creating a temporary
978 -- for each level of a nested aggregates, and also to prevent the
979 -- premature generation of constraint checks. This is also a requirement
980 -- if we want to generate the proper attachment to the internal
981 -- finalization lists (for record with controlled components). Top down
982 -- expansion of aggregates is also used for in-place array aggregate
983 -- assignment or initialization. When the full context is known, the
984 -- target of the assignment or initialization is used to generate the
985 -- left-hand side of individual assignment to each sub-component.
987 -- First_Inlined_Subprogram (Node3-Sem)
988 -- Present in the N_Compilation_Unit node for the main program. Points
989 -- to a chain of entities for subprograms that are to be inlined. The
990 -- Next_Inlined_Subprogram field of these entities is used as a link
991 -- pointer with Empty marking the end of the list. This field is Empty
992 -- if there are no inlined subprograms or inlining is not active.
994 -- First_Named_Actual (Node4-Sem)
995 -- Present in procedure call statement and function call nodes, and also
996 -- in Intrinsic nodes. Set during semantic analysis to point to the first
997 -- named parameter where parameters are ordered by declaration order (as
998 -- opposed to the actual order in the call which may be different due to
999 -- named associations). Note: this field points to the explicit actual
1000 -- parameter itself, not the N_Parameter_Association node (its parent).
1002 -- First_Real_Statement (Node2-Sem)
1003 -- Present in N_Handled_Sequence_Of_Statements node. Normally set to
1004 -- Empty. Used only when declarations are moved into the statement part
1005 -- of a construct as a result of wrapping an AT END handler that is
1006 -- required to cover the declarations. In this case, this field is used
1007 -- to remember the location in the statements list of the first real
1008 -- statement, i.e. the statement that used to be first in the statement
1009 -- list before the declarations were prepended.
1011 -- First_Subtype_Link (Node5-Sem)
1012 -- Present in N_Freeze_Entity node for an anonymous base type that is
1013 -- implicitly created by the declaration of a first subtype. It points
1014 -- to the entity for the first subtype.
1016 -- Float_Truncate (Flag11-Sem)
1017 -- A flag present in type conversion nodes. This is used for float to
1018 -- integer conversions where truncation is required rather than rounding.
1019 -- Note that Gigi does not handle type conversions from real to integer
1020 -- with rounding (see Expand_N_Type_Conversion).
1022 -- Forwards_OK (Flag5-Sem)
1023 -- A flag present in the N_Assignment_Statement node. It is used only
1024 -- if the type being assigned is an array type, and is set if analysis
1025 -- determines that it is definitely safe to do the copy forwards, i.e.
1026 -- starting at the lowest addressed element. Note that if neither of the
1027 -- flags Forwards_OK or Backwards_OK is set, it means that the front end
1028 -- could not determine that either direction is definitely safe, and a
1029 -- runtime check is required.
1031 -- From_At_End (Flag4-Sem)
1032 -- This flag is set on an N_Raise_Statement node if it corresponds to
1033 -- the reraise statement generated as the last statement of an AT END
1034 -- handler when SJLJ exception handling is active. It is used to stop
1035 -- a bogus violation of restriction (No_Exception_Propagation), bogus
1036 -- because if the restriction is set, the reraise is not generated.
1038 -- From_At_Mod (Flag4-Sem)
1039 -- This flag is set on the attribute definition clause node that is
1040 -- generated by a transformation of an at mod phrase in a record
1041 -- representation clause. This is used to give slightly different (Ada 83
1042 -- compatible) semantics to such a clause, namely it is used to specify a
1043 -- minimum acceptable alignment for the base type and all subtypes. In
1044 -- Ada 95 terms, the actual alignment of the base type and all subtypes
1045 -- must be a multiple of the given value, and the representation clause
1046 -- is considered to be type specific instead of subtype specific.
1048 -- From_Default (Flag6-Sem)
1049 -- This flag is set on the subprogram renaming declaration created in an
1050 -- instance for a formal subprogram, when the formal is declared with a
1051 -- box, and there is no explicit actual. If the flag is present, the
1052 -- declaration is treated as an implicit reference to the formal in the
1055 -- Generic_Parent (Node5-Sem)
1056 -- Generic_Parent is defined on declaration nodes that are instances. The
1057 -- value of Generic_Parent is the generic entity from which the instance
1058 -- is obtained. Generic_Parent is also defined for the renaming
1059 -- declarations and object declarations created for the actuals in an
1060 -- instantiation. The generic parent of such a declaration is the
1061 -- corresponding generic association in the Instantiation node.
1063 -- Generic_Parent_Type (Node4-Sem)
1064 -- Generic_Parent_Type is defined on Subtype_Declaration nodes for the
1065 -- actuals of formal private and derived types. Within the instance, the
1066 -- operations on the actual are those inherited from the parent. For a
1067 -- formal private type, the parent type is the generic type itself. The
1068 -- Generic_Parent_Type is also used in an instance to determine whether a
1069 -- private operation overrides an inherited one.
1071 -- Handler_List_Entry (Node2-Sem)
1072 -- This field is present in N_Object_Declaration nodes. It is set only
1073 -- for the Handler_Record entry generated for an exception in zero cost
1074 -- exception handling mode. It references the corresponding item in the
1075 -- handler list, and is used to delete this entry if the corresponding
1076 -- handler is deleted during optimization. For further details on why
1077 -- this is required, see Exp_Ch11.Remove_Handler_Entries.
1079 -- Has_No_Elaboration_Code (Flag17-Sem)
1080 -- A flag that appears in the N_Compilation_Unit node to indicate whether
1081 -- or not elaboration code is present for this unit. It is initially set
1082 -- true for subprogram specs and bodies and for all generic units and
1083 -- false for non-generic package specs and bodies. Gigi may set the flag
1084 -- in the non-generic package case if it determines that no elaboration
1085 -- code is generated. Note that this flag is not related to the
1086 -- Is_Preelaborated status, there can be preelaborated packages that
1087 -- generate elaboration code, and non-preelaborated packages which do
1088 -- not generate elaboration code.
1090 -- Has_Priority_Pragma (Flag6-Sem)
1091 -- A flag present in N_Subprogram_Body, N_Task_Definition and
1092 -- N_Protected_Definition nodes to flag the presence of either a Priority
1093 -- or Interrupt_Priority pragma in the declaration sequence (public or
1094 -- private in the task and protected cases)
1096 -- Has_Private_View (Flag11-Sem)
1097 -- A flag present in generic nodes that have an entity, to indicate that
1098 -- the node has a private type. Used to exchange private and full
1099 -- declarations if the visibility at instantiation is different from the
1100 -- visibility at generic definition.
1102 -- Has_Relative_Deadline_Pragma (Flag9-Sem)
1103 -- A flag present in N_Subprogram_Body and N_Task_Definition nodes to
1104 -- flag the presence of a pragma Relative_Deadline.
1106 -- Has_Self_Reference (Flag13-Sem)
1107 -- Present in N_Aggregate and N_Extension_Aggregate. Indicates that one
1108 -- of the expressions contains an access attribute reference to the
1109 -- enclosing type. Such a self-reference can only appear in default-
1110 -- initialized aggregate for a record type.
1112 -- Has_Storage_Size_Pragma (Flag5-Sem)
1113 -- A flag present in an N_Task_Definition node to flag the presence of a
1114 -- Storage_Size pragma.
1116 -- Has_Task_Info_Pragma (Flag7-Sem)
1117 -- A flag present in an N_Task_Definition node to flag the presence of a
1118 -- Task_Info pragma. Used to detect duplicate pragmas.
1120 -- Has_Task_Name_Pragma (Flag8-Sem)
1121 -- A flag present in N_Task_Definition nodes to flag the presence of a
1122 -- Task_Name pragma in the declaration sequence for the task.
1124 -- Has_Wide_Character (Flag11-Sem)
1125 -- Present in string literals, set if any wide character (i.e. character
1126 -- code outside the Character range) appears in the string.
1128 -- Hidden_By_Use_Clause (Elist4-Sem)
1129 -- An entity list present in use clauses that appear within
1130 -- instantiations. For the resolution of local entities, entities
1131 -- introduced by these use clauses have priority over global ones, and
1132 -- outer entities must be explicitly hidden/restored on exit.
1134 -- Implicit_With (Flag16-Sem)
1135 -- This flag is set in the N_With_Clause node that is implicitly
1136 -- generated for runtime units that are loaded by the expander, and also
1137 -- for package System, if it is loaded implicitly by a use of the
1138 -- 'Address or 'Tag attribute. ???There are other implicit with clauses
1141 -- Includes_Infinities (Flag11-Sem)
1142 -- This flag is present in N_Range nodes. It is set for the range of
1143 -- unconstrained float types defined in Standard, which include not only
1144 -- the given range of values, but also legitimately can include infinite
1145 -- values. This flag is false for any float type for which an explicit
1146 -- range is given by the programmer, even if that range is identical to
1147 -- the range for Float.
1149 -- Instance_Spec (Node5-Sem)
1150 -- This field is present in generic instantiation nodes, and also in
1151 -- formal package declaration nodes (formal package declarations are
1152 -- treated in a manner very similar to package instantiations). It points
1153 -- to the node for the spec of the instance, inserted as part of the
1154 -- semantic processing for instantiations in Sem_Ch12.
1156 -- Is_Asynchronous_Call_Block (Flag7-Sem)
1157 -- A flag set in a Block_Statement node to indicate that it is the
1158 -- expansion of an asynchronous entry call. Such a block needs cleanup
1159 -- handler to assure that the call is cancelled.
1161 -- Is_Component_Left_Opnd (Flag13-Sem)
1162 -- Is_Component_Right_Opnd (Flag14-Sem)
1163 -- Present in concatenation nodes, to indicate that the corresponding
1164 -- operand is of the component type of the result. Used in resolving
1165 -- concatenation nodes in instances.
1167 -- Is_Controlling_Actual (Flag16-Sem)
1168 -- This flag is set on in an expression that is a controlling argument in
1169 -- a dispatching call. It is off in all other cases. See Sem_Disp for
1170 -- details of its use.
1172 -- Is_Dynamic_Coextension (Flag18-Sem)
1173 -- Present in allocator nodes, to indicate that this is an allocator
1174 -- for an access discriminant of a dynamically allocated object. The
1175 -- coextension must be deallocated and finalized at the same time as
1176 -- the enclosing object.
1178 -- Is_Entry_Barrier_Function (Flag8-Sem)
1179 -- This flag is set in an N_Subprogram_Body node which is the expansion
1180 -- of an entry barrier from a protected entry body. It is used for the
1181 -- circuitry checking for incorrect use of Current_Task.
1183 -- Is_Expanded_Build_In_Place_Call (Flag11-Sem)
1184 -- This flag is set in an N_Function_Call node to indicate that the extra
1185 -- actuals to support a build-in-place style of call have been added to
1188 -- Is_In_Discriminant_Check (Flag11-Sem)
1189 -- This flag is present in a selected component, and is used to indicate
1190 -- that the reference occurs within a discriminant check. The
1191 -- significance is that optimizations based on assuming that the
1192 -- discriminant check has a correct value cannot be performed in this
1193 -- case (or the discriminant check may be optimized away!)
1195 -- Is_Machine_Number (Flag11-Sem)
1196 -- This flag is set in an N_Real_Literal node to indicate that the value
1197 -- is a machine number. This avoids some unnecessary cases of converting
1198 -- real literals to machine numbers.
1200 -- Is_Null_Loop (Flag16-Sem)
1201 -- This flag is set in an N_Loop_Statement node if the corresponding loop
1202 -- can be determined to be null at compile time. This is used to remove
1203 -- the loop entirely at expansion time.
1205 -- Is_Overloaded (Flag5-Sem)
1206 -- A flag present in all expression nodes. Used temporarily during
1207 -- overloading determination. The setting of this flag is not relevant
1208 -- once overloading analysis is complete.
1210 -- Is_Power_Of_2_For_Shift (Flag13-Sem)
1211 -- A flag present only in N_Op_Expon nodes. It is set when the
1212 -- exponentiation is of the form 2 ** N, where the type of N is an
1213 -- unsigned integral subtype whose size does not exceed the size of
1214 -- Standard_Integer (i.e. a type that can be safely converted to
1215 -- Natural), and the exponentiation appears as the right operand of an
1216 -- integer multiplication or an integer division where the dividend is
1217 -- unsigned. It is also required that overflow checking is off for both
1218 -- the exponentiation and the multiply/divide node. If this set of
1219 -- conditions holds, and the flag is set, then the division or
1220 -- multiplication can be (and is) converted to a shift.
1222 -- Is_Protected_Subprogram_Body (Flag7-Sem)
1223 -- A flag set in a Subprogram_Body block to indicate that it is the
1224 -- implementation of a protected subprogram. Such a body needs cleanup
1225 -- handler to make sure that the associated protected object is unlocked
1226 -- when the subprogram completes.
1228 -- Is_Static_Coextension (Flag14-Sem)
1229 -- Present in N_Allocator nodes. Set if the allocator is a coextension
1230 -- of an object allocated on the stack rather than the heap.
1232 -- Is_Static_Expression (Flag6-Sem)
1233 -- Indicates that an expression is a static expression (RM 4.9). See spec
1234 -- of package Sem_Eval for full details on the use of this flag.
1236 -- Is_Subprogram_Descriptor (Flag16-Sem)
1237 -- Present in N_Object_Declaration, and set only for the object
1238 -- declaration generated for a subprogram descriptor in fast exception
1239 -- mode. See Exp_Ch11 for details of use.
1241 -- Is_Task_Allocation_Block (Flag6-Sem)
1242 -- A flag set in a Block_Statement node to indicate that it is the
1243 -- expansion of a task allocator, or the allocator of an object
1244 -- containing tasks. Such a block requires a cleanup handler to call
1245 -- Expunge_Unactivated_Tasks to complete any tasks that have been
1246 -- allocated but not activated when the allocator completes abnormally.
1248 -- Is_Task_Master (Flag5-Sem)
1249 -- A flag set in a Subprogram_Body, Block_Statement or Task_Body node to
1250 -- indicate that the construct is a task master (i.e. has declared tasks
1251 -- or declares an access to a task type).
1253 -- Itype (Node1-Sem)
1254 -- Used in N_Itype_Reference node to reference an itype for which it is
1255 -- important to ensure that it is defined. See description of this node
1256 -- for further details.
1258 -- Kill_Range_Check (Flag11-Sem)
1259 -- Used in an N_Unchecked_Type_Conversion node to indicate that the
1260 -- result should not be subjected to range checks. This is used for the
1261 -- implementation of Normalize_Scalars.
1263 -- Label_Construct (Node2-Sem)
1264 -- Used in an N_Implicit_Label_Declaration node. Refers to an N_Label,
1265 -- N_Block_Statement or N_Loop_Statement node to which the label
1266 -- declaration applies. This is not currently used in the compiler
1267 -- itself, but it is useful in the implementation of ASIS queries.
1268 -- This field is left empty for the special labels generated as part
1269 -- of expanding raise statements with a local exception handler.
1271 -- Library_Unit (Node4-Sem)
1272 -- In a stub node, Library_Unit points to the compilation unit node of
1273 -- the corresponding subunit.
1275 -- In a with clause node, Library_Unit points to the spec of the with'ed
1278 -- In a compilation unit node, the usage depends on the unit type:
1280 -- For a subprogram body, Library_Unit points to the compilation unit
1281 -- node of the corresponding spec, unless Acts_As_Spec is set, in which
1282 -- case it points to itself.
1284 -- For a package body, Library_Unit points to the compilation unit of
1285 -- the corresponding package spec.
1287 -- For a subprogram spec to which pragma Inline applies, Library_Unit
1288 -- points to the compilation unit node of the corresponding body, if
1289 -- inlining is active.
1291 -- For a generic declaration, Library_Unit points to the compilation
1292 -- unit node of the corresponding generic body.
1294 -- For a subunit, Library_Unit points to the compilation unit node of
1297 -- Note that this field is not used to hold the parent pointer for child
1298 -- unit (which might in any case need to use it for some other purpose as
1299 -- described above). Instead for a child unit, implicit with's are
1300 -- generated for all parents.
1302 -- Local_Raise_Statements (Elist1)
1303 -- This field is present in exception handler nodes. It is set to
1304 -- No_Elist in the normal case. If there is at least one raise statement
1305 -- which can potentially be handled as a local raise, then this field
1306 -- points to a list of raise nodes, which are calls to a routine to raise
1307 -- an exception. These are raise nodes which can be optimized into gotos
1308 -- if the handler turns out to meet the conditions which permit this
1309 -- transformation. Note that this does NOT include instances of the
1310 -- N_Raise_xxx_Error nodes since the transformation of these nodes is
1311 -- handled by the back end (using the N_Push/N_Pop mechanism).
1313 -- Loop_Actions (List2-Sem)
1314 -- A list present in Component_Association nodes in array aggregates.
1315 -- Used to collect actions that must be executed within the loop because
1316 -- they may need to be evaluated anew each time through.
1318 -- Limited_View_Installed (Flag18-Sem)
1319 -- Present in With_Clauses and in package specifications. If set on
1320 -- with_clause, it indicates that this clause has created the current
1321 -- limited view of the designated package. On a package specification, it
1322 -- indicates that the limited view has already been created because the
1323 -- package is mentioned in a limited_with_clause in the closure of the
1324 -- unit being compiled.
1326 -- Local_Raise_Not_OK (Flag7-Sem)
1327 -- Present in N_Exception_Handler nodes. Set if the handler contains
1328 -- a construct (reraise statement, or call to subprogram in package
1329 -- GNAT.Current_Exception) that makes the handler unsuitable as a target
1330 -- for a local raise (one that could otherwise be converted to a goto).
1332 -- Must_Be_Byte_Aligned (Flag14-Sem)
1333 -- This flag is present in N_Attribute_Reference nodes. It can be set
1334 -- only for the Address and Unrestricted_Access attributes. If set it
1335 -- means that the object for which the address/access is given must be on
1336 -- a byte (more accurately a storage unit) boundary. If necessary, a copy
1337 -- of the object is to be made before taking the address (this copy is in
1338 -- the current scope on the stack frame). This is used for certain cases
1339 -- of code generated by the expander that passes parameters by address.
1341 -- The reason the copy is not made by the front end is that the back end
1342 -- has more information about type layout and may be able to (but is not
1343 -- guaranteed to) prevent making unnecessary copies.
1345 -- Must_Not_Freeze (Flag8-Sem)
1346 -- A flag present in all expression nodes. Normally expressions cause
1347 -- freezing as described in the RM. If this flag is set, then this is
1348 -- inhibited. This is used by the analyzer and expander to label nodes
1349 -- that are created by semantic analysis or expansion and which must not
1350 -- cause freezing even though they normally would. This flag is also
1351 -- present in an N_Subtype_Indication node, since we also use these in
1352 -- calls to Freeze_Expression.
1354 -- Next_Entity (Node2-Sem)
1355 -- Present in defining identifiers, defining character literals and
1356 -- defining operator symbols (i.e. in all entities). The entities of a
1357 -- scope are chained, and this field is used as the forward pointer for
1358 -- this list. See Einfo for further details.
1360 -- Next_Named_Actual (Node4-Sem)
1361 -- Present in parameter association node. Set during semantic analysis to
1362 -- point to the next named parameter, where parameters are ordered by
1363 -- declaration order (as opposed to the actual order in the call, which
1364 -- may be different due to named associations). Not that this field
1365 -- points to the explicit actual parameter itself, not to the
1366 -- N_Parameter_Association node (its parent).
1368 -- Next_Pragma (Node1-Sem)
1369 -- Present in N_Pragma nodes. Used to create a linked list of pragma
1370 -- nodes. Currently used for two purposes:
1372 -- Create a list of linked Check_Policy pragmas. The head of this list
1373 -- is stored in Opt.Check_Policy_List (which has further details).
1375 -- Used by processing for Pre/Postcondition pragmas to store a list of
1376 -- pragmas associated with the spec of a subprogram (see Sem_Prag for
1379 -- Next_Rep_Item (Node5-Sem)
1380 -- Present in pragma nodes and attribute definition nodes. Used to link
1381 -- representation items that apply to an entity. See description of
1382 -- First_Rep_Item field in Einfo for full details.
1384 -- Next_Use_Clause (Node3-Sem)
1385 -- While use clauses are active during semantic processing, they are
1386 -- chained from the scope stack entry, using Next_Use_Clause as a link
1387 -- pointer, with Empty marking the end of the list. The head pointer is
1388 -- in the scope stack entry (First_Use_Clause). At the end of semantic
1389 -- processing (i.e. when Gigi sees the tree, the contents of this field
1390 -- is undefined and should not be read).
1392 -- No_Ctrl_Actions (Flag7-Sem)
1393 -- Present in N_Assignment_Statement to indicate that no finalize nor
1394 -- adjust should take place on this assignment even though the rhs is
1395 -- controlled. This is used in init procs and aggregate expansions where
1396 -- the generated assignments are more initialisations than real
1399 -- No_Elaboration_Check (Flag14-Sem)
1400 -- Present in N_Function_Call and N_Procedure_Call_Statement. Indicates
1401 -- that no elaboration check is needed on the call, because it appears in
1402 -- the context of a local Suppress pragma. This is used on calls within
1403 -- task bodies, where the actual elaboration checks are applied after
1404 -- analysis, when the local scope stack is not present.
1406 -- No_Entities_Ref_In_Spec (Flag8-Sem)
1407 -- Present in N_With_Clause nodes. Set if the with clause is on the
1408 -- package or subprogram spec where the main unit is the corresponding
1409 -- body, and no entities of the with'ed unit are referenced by the spec
1410 -- (an entity may still be referenced in the body, so this flag is used
1411 -- to generate the proper message (see Sem_Util.Check_Unused_Withs for
1414 -- No_Initialization (Flag13-Sem)
1415 -- Present in N_Object_Declaration and N_Allocator to indicate that the
1416 -- object must not be initialized (by Initialize or call to an init
1417 -- proc). This is needed for controlled aggregates. When the Object
1418 -- declaration has an expression, this flag means that this expression
1419 -- should not be taken into account (needed for in place initialization
1420 -- with aggregates).
1422 -- No_Truncation (Flag17-Sem)
1423 -- Present in N_Unchecked_Type_Conversion node. This flag has an effect
1424 -- only if the RM_Size of the source is greater than the RM_Size of the
1425 -- target for scalar operands. Normally in such a case we truncate some
1426 -- higher order bits of the source, and then sign/zero extend the result
1427 -- to form the output value. But if this flag is set, then we do not do
1428 -- any truncation, so for example, if an 8 bit input is converted to 5
1429 -- bit result which is in fact stored in 8 bits, then the high order
1430 -- three bits of the target result will be copied from the source. This
1431 -- is used for properly setting out of range values for use by pragmas
1432 -- Initialize_Scalars and Normalize_Scalars.
1434 -- Original_Discriminant (Node2-Sem)
1435 -- Present in identifiers. Used in references to discriminants that
1436 -- appear in generic units. Because the names of the discriminants may be
1437 -- different in an instance, we use this field to recover the position of
1438 -- the discriminant in the original type, and replace it with the
1439 -- discriminant at the same position in the instantiated type.
1441 -- Original_Entity (Node2-Sem)
1442 -- Present in numeric literals. Used to denote the named number that has
1443 -- been constant-folded into the given literal. If literal is from
1444 -- source, or the result of some other constant-folding operation, then
1445 -- Original_Entity is empty. This field is needed to handle properly
1446 -- named numbers in generic units, where the Associated_Node field
1447 -- interferes with the Entity field, making it impossible to preserve the
1448 -- original entity at the point of instantiation (ASIS problem).
1450 -- Others_Discrete_Choices (List1-Sem)
1451 -- When a case statement or variant is analyzed, the semantic checks
1452 -- determine the actual list of choices that correspond to an others
1453 -- choice. This list is materialized for later use by the expander and
1454 -- the Others_Discrete_Choices field of an N_Others_Choice node points to
1455 -- this materialized list of choices, which is in standard format for a
1456 -- list of discrete choices, except that of course it cannot contain an
1457 -- N_Others_Choice entry.
1459 -- Parameter_List_Truncated (Flag17-Sem)
1460 -- Present in N_Function_Call and N_Procedure_Call_Statement nodes. Set
1461 -- (for OpenVMS ports of GNAT only) if the parameter list is truncated as
1462 -- a result of a First_Optional_Parameter specification in an
1463 -- Import_Function, Import_Procedure, or Import_Valued_Procedure pragma.
1464 -- The truncation is done by the expander by removing trailing parameters
1465 -- from the argument list, in accordance with the set of rules allowing
1466 -- such parameter removal. In particular, parameters can be removed
1467 -- working from the end of the parameter list backwards up to and
1468 -- including the entry designated by First_Optional_Parameter in the
1469 -- Import pragma. Parameters can be removed if they are implicit and the
1470 -- default value is a known-at-compile-time value, including the use of
1471 -- the Null_Parameter attribute, or if explicit parameter values are
1472 -- present that match the corresponding defaults.
1474 -- Parent_Spec (Node4-Sem)
1475 -- For a library unit that is a child unit spec (package or subprogram
1476 -- declaration, generic declaration or instantiation, or library level
1477 -- rename, this field points to the compilation unit node for the parent
1478 -- package specification. This field is Empty for library bodies (the
1479 -- parent spec in this case can be found from the corresponding spec).
1481 -- PPC_Enabled (Flag5-Sem)
1482 -- Present in N_Pragma nodes. This flag is relevant only for precondition
1483 -- and postcondition nodes. It is true if the check corresponding to the
1484 -- pragma type is enabled at the point where the pragma appears.
1486 -- Present_Expr (Uint3-Sem)
1487 -- Present in an N_Variant node. This has a meaningful value only after
1488 -- Gigi has back annotated the tree with representation information. At
1489 -- this point, it contains a reference to a gcc expression that depends
1490 -- on the values of one or more discriminants. Give a set of discriminant
1491 -- values, this expression evaluates to False (zero) if variant is not
1492 -- present, and True (non-zero) if it is present. See unit Repinfo for
1493 -- further details on gigi back annotation. This field is used during
1494 -- ASIS processing (data decomposition annex) to determine if a field is
1497 -- Print_In_Hex (Flag13-Sem)
1498 -- Set on an N_Integer_Literal node to indicate that the value should be
1499 -- printed in hexadecimal in the sprint listing. Has no effect on
1500 -- legality or semantics of program, only on the displayed output. This
1501 -- is used to clarify output from the packed array cases.
1503 -- Procedure_To_Call (Node2-Sem)
1504 -- Present in N_Allocator, N_Free_Statement, N_Simple_Return_Statement,
1505 -- and N_Extended_Return_Statement nodes. References the entity for the
1506 -- declaration of the procedure to be called to accomplish the required
1507 -- operation (i.e. for the Allocate procedure in the case of N_Allocator
1508 -- and N_Simple_Return_Statement and N_Extended_Return_Statement (for
1509 -- allocating the return value), and for the Deallocate procedure in the
1510 -- case of N_Free_Statement.
1512 -- Raises_Constraint_Error (Flag7-Sem)
1513 -- Set on an expression whose evaluation will definitely fail constraint
1514 -- error check. In the case of static expressions, this flag must be set
1515 -- accurately (and if it is set, the expression is typically illegal
1516 -- unless it appears as a non-elaborated branch of a short-circuit form).
1517 -- For a non-static expression, this flag may be set whenever an
1518 -- expression (e.g. an aggregate) is known to raise constraint error. If
1519 -- set, the expression definitely will raise CE if elaborated at runtime.
1520 -- If not set, the expression may or may not raise CE. In other words, on
1521 -- static expressions, the flag is set accurately, on non-static
1522 -- expressions it is set conservatively.
1524 -- Redundant_Use (Flag13-Sem)
1525 -- Present in nodes that can appear as an operand in a use clause or use
1526 -- type clause (identifiers, expanded names, attribute references). Set
1527 -- to indicate that a use is redundant (and therefore need not be undone
1530 -- Renaming_Exception (Node2-Sem)
1531 -- Present in N_Exception_Declaration node. Used to point back to the
1532 -- exception renaming for an exception declared within a subprogram.
1533 -- What happens is that an exception declared in a subprogram is moved
1534 -- to the library level with a unique name, and the original exception
1535 -- becomes a renaming. This link from the library level exception to the
1536 -- renaming declaration allows registering of the proper exception name.
1538 -- Return_Statement_Entity (Node5-Sem)
1539 -- Present in N_Simple_Return_Statement and N_Extended_Return_Statement.
1540 -- Points to an E_Return_Statement representing the return statement.
1542 -- Return_Object_Declarations (List3)
1543 -- Present in N_Extended_Return_Statement.
1544 -- Points to a list initially containing a single
1545 -- N_Object_Declaration representing the return object.
1546 -- We use a list (instead of just a pointer to the object decl)
1547 -- because Analyze wants to insert extra actions on this list.
1549 -- Rounded_Result (Flag18-Sem)
1550 -- Present in N_Type_Conversion, N_Op_Divide and N_Op_Multiply nodes.
1551 -- Used in the fixed-point cases to indicate that the result must be
1552 -- rounded as a result of the use of the 'Round attribute. Also used for
1553 -- integer N_Op_Divide nodes to indicate that the result should be
1554 -- rounded to the nearest integer (breaking ties away from zero), rather
1555 -- than truncated towards zero as usual. These rounded integer operations
1556 -- are the result of expansion of rounded fixed-point divide, conversion
1557 -- and multiplication operations.
1559 -- Scope (Node3-Sem)
1560 -- Present in defining identifiers, defining character literals and
1561 -- defining operator symbols (i.e. in all entities). The entities of a
1562 -- scope all use this field to reference the corresponding scope entity.
1563 -- See Einfo for further details.
1565 -- Shift_Count_OK (Flag4-Sem)
1566 -- A flag present in shift nodes to indicate that the shift count is
1567 -- known to be in range, i.e. is in the range from zero to word length
1568 -- minus one. If this flag is not set, then the shift count may be
1569 -- outside this range, i.e. larger than the word length, and the code
1570 -- must ensure that such shift counts give the appropriate result.
1572 -- Source_Type (Node1-Sem)
1573 -- Used in an N_Validate_Unchecked_Conversion node to point to the
1574 -- source type entity for the unchecked conversion instantiation
1575 -- which gigi must do size validation for.
1577 -- Static_Processing_OK (Flag4-Sem)
1578 -- Present in N_Aggregate nodes. When the Compile_Time_Known_Aggregate
1579 -- flag is set, the full value of the aggregate can be determined at
1580 -- compile time and the aggregate can be passed as is to the back-end.
1581 -- In this event it is irrelevant whether this flag is set or not.
1582 -- However, if the flag Compile_Time_Known_Aggregate is not set but
1583 -- Static_Processing_OK is set, the aggregate can (but need not) be
1584 -- converted into a compile time known aggregate by the expander. See
1585 -- Sem_Aggr for the specific conditions under which an aggregate has its
1586 -- Static_Processing_OK flag set.
1588 -- Storage_Pool (Node1-Sem)
1589 -- Present in N_Allocator, N_Free_Statement, N_Simple_Return_Statement,
1590 -- and N_Extended_Return_Statement nodes. References the entity for the
1591 -- storage pool to be used for the allocate or free call or for the
1592 -- allocation of the returned value from function. Empty indicates that
1593 -- the global default pool is to be used. Note that in the case
1594 -- of a return statement, this field is set only if the function returns
1595 -- value of a type whose size is not known at compile time on the
1598 -- Suppress_Loop_Warnings (Flag17-Sem)
1599 -- Used in N_Loop_Statement node to indicate that warnings within the
1600 -- body of the loop should be suppressed. This is set when the range
1601 -- of a FOR loop is known to be null, or is probably null (loop would
1602 -- only execute if invalid values are present).
1604 -- Target_Type (Node2-Sem)
1605 -- Used in an N_Validate_Unchecked_Conversion node to point to the target
1606 -- type entity for the unchecked conversion instantiation which gigi must
1607 -- do size validation for.
1609 -- Then_Actions (List3-Sem)
1610 -- This field is present in conditional expression nodes. During code
1611 -- expansion we use the Insert_Actions procedure (in Exp_Util) to insert
1612 -- actions at an appropriate place in the tree to get elaborated at the
1613 -- right time. For conditional expressions, we have to be sure that the
1614 -- actions for the Then branch are only elaborated if the condition is
1615 -- True. The Then_Actions field is used as a temporary parking place for
1616 -- these actions. The final tree is always rewritten to eliminate the
1617 -- need for this field, so in the tree passed to Gigi, this field is
1618 -- always set to No_List.
1620 -- Treat_Fixed_As_Integer (Flag14-Sem)
1621 -- This flag appears in operator nodes for divide, multiply, mod and rem
1622 -- on fixed-point operands. It indicates that the operands are to be
1623 -- treated as integer values, ignoring small values. This flag is only
1624 -- set as a result of expansion of fixed-point operations. Typically a
1625 -- fixed-point multiplication in the source generates subsidiary
1626 -- multiplication and division operations that work with the underlying
1627 -- integer values and have this flag set. Note that this flag is not
1628 -- needed on other arithmetic operations (add, neg, subtract etc.) since
1629 -- in these cases it is always the case that fixed is treated as integer.
1630 -- The Etype field MUST be set if this flag is set. The analyzer knows to
1631 -- leave such nodes alone, and whoever makes them must set the correct
1634 -- TSS_Elist (Elist3-Sem)
1635 -- Present in N_Freeze_Entity nodes. Holds an element list containing
1636 -- entries for each TSS (type support subprogram) associated with the
1637 -- frozen type. The elements of the list are the entities for the
1638 -- subprograms (see package Exp_TSS for further details). Set to No_Elist
1639 -- if there are no type support subprograms for the type or if the freeze
1640 -- node is not for a type.
1642 -- Unreferenced_In_Spec (Flag7-Sem)
1643 -- Present in N_With_Clause nodes. Set if the with clause is on the
1644 -- package or subprogram spec where the main unit is the corresponding
1645 -- body, and is not referenced by the spec (it may still be referenced by
1646 -- the body, so this flag is used to generate the proper message (see
1647 -- Sem_Util.Check_Unused_Withs for details)
1649 -- Was_Originally_Stub (Flag13-Sem)
1650 -- This flag is set in the node for a proper body that replaces stub.
1651 -- During the analysis procedure, stubs in some situations get rewritten
1652 -- by the corresponding bodies, and we set this flag to remember that
1653 -- this happened. Note that it is not good enough to rely on the use of
1654 -- Original_Node here because of the case of nested instantiations where
1655 -- the substituted node can be copied.
1657 -- Zero_Cost_Handling (Flag5-Sem)
1658 -- This flag is set in all handled sequence of statement and exception
1659 -- handler nodes if exceptions are to be handled using the zero-cost
1660 -- mechanism (see Ada.Exceptions and System.Exceptions in files
1661 -- a-except.ads/adb and s-except.ads for full details). What gigi needs
1662 -- to do for such a handler is simply to put the code in the handler
1663 -- somewhere. The front end has generated all necessary labels.
1665 --------------------------------------------------
1666 -- Note on Use of End_Label and End_Span Fields --
1667 --------------------------------------------------
1669 -- Several constructs have end lines:
1671 -- Loop Statement end loop [loop_IDENTIFIER];
1672 -- Package Specification end [[PARENT_UNIT_NAME .] IDENTIFIER]
1673 -- Task Definition end [task_IDENTIFIER]
1674 -- Protected Definition end [protected_IDENTIFIER]
1675 -- Protected Body end [protected_IDENTIFIER]
1677 -- Block Statement end [block_IDENTIFIER];
1678 -- Subprogram Body end [DESIGNATOR];
1679 -- Package Body end [[PARENT_UNIT_NAME .] IDENTIFIER];
1680 -- Task Body end [task_IDENTIFIER];
1681 -- Accept Statement end [entry_IDENTIFIER]];
1682 -- Entry Body end [entry_IDENTIFIER];
1684 -- If Statement end if;
1685 -- Case Statement end case;
1687 -- Record Definition end record;
1688 -- Enumeration Definition );
1690 -- The End_Label and End_Span fields are used to mark the locations of
1691 -- these lines, and also keep track of the label in the case where a label
1694 -- For the first group above, the End_Label field of the corresponding node
1695 -- is used to point to the label identifier. In the case where there is no
1696 -- label in the source, the parser supplies a dummy identifier (with
1697 -- Comes_From_Source set to False), and the Sloc of this dummy identifier
1698 -- marks the location of the token following the END token.
1700 -- For the second group, the use of End_Label is similar, but the End_Label
1701 -- is found in the N_Handled_Sequence_Of_Statements node. This is done
1702 -- simply because in some cases there is no room in the parent node.
1704 -- For the third group, there is never any label, and instead of using
1705 -- End_Label, we use the End_Span field which gives the location of the
1706 -- token following END, relative to the starting Sloc of the construct,
1707 -- i.e. add Sloc (Node) + End_Span (Node) to get the Sloc of the IF or CASE
1708 -- following the End_Label.
1710 -- The record definition case is handled specially, we treat it as though
1711 -- it required an optional label which is never present, and so the parser
1712 -- always builds a dummy identifier with Comes From Source set False. The
1713 -- reason we do this, rather than using End_Span in this case, is that we
1714 -- want to generate a cross-ref entry for the end of a record, since it
1715 -- represents a scope for name declaration purposes.
1717 -- The enumeration definition case is handled in an exactly similar manner,
1718 -- building a dummy identifier to get a cross-reference.
1720 -- Note: the reason we store the difference as a Uint, instead of storing
1721 -- the Source_Ptr value directly, is that Source_Ptr values cannot be
1722 -- distinguished from other types of values, and we count on all general
1723 -- use fields being self describing. To make things easier for clients,
1724 -- note that we provide function End_Location, and procedure
1725 -- Set_End_Location to allow access to the logical value (which is the
1726 -- Source_Ptr value for the end token).
1728 ---------------------
1729 -- Syntactic Nodes --
1730 ---------------------
1732 ---------------------
1733 -- 2.3 Identifier --
1734 ---------------------
1736 -- IDENTIFIER ::= IDENTIFIER_LETTER {[UNDERLINE] LETTER_OR_DIGIT}
1737 -- LETTER_OR_DIGIT ::= IDENTIFIER_LETTER | DIGIT
1739 -- An IDENTIFIER shall not be a reserved word
1741 -- In the Ada grammar identifiers are the bottom level tokens which have
1742 -- very few semantics. Actual program identifiers are direct names. If
1743 -- we were being 100% honest with the grammar, then we would have a node
1744 -- called N_Direct_Name which would point to an identifier. However,
1745 -- that's too many extra nodes, so we just use the N_Identifier node
1746 -- directly as a direct name, and it contains the expression fields and
1747 -- Entity field that correspond to its use as a direct name. In those
1748 -- few cases where identifiers appear in contexts where they are not
1749 -- direct names (pragmas, pragma argument associations, attribute
1750 -- references and attribute definition clauses), the Chars field of the
1751 -- node contains the Name_Id for the identifier name.
1753 -- Note: in GNAT, a reserved word can be treated as an identifier in two
1754 -- cases. First, an incorrect use of a reserved word as an identifier is
1755 -- diagnosed and then treated as a normal identifier. Second, an
1756 -- attribute designator of the form of a reserved word (access, delta,
1757 -- digits, range) is treated as an identifier.
1759 -- Note: The set of letters that is permitted in an identifier depends
1760 -- on the character set in use. See package Csets for full details.
1763 -- Sloc points to identifier
1764 -- Chars (Name1) contains the Name_Id for the identifier
1765 -- Entity (Node4-Sem)
1766 -- Associated_Node (Node4-Sem)
1767 -- Original_Discriminant (Node2-Sem)
1768 -- Redundant_Use (Flag13-Sem)
1769 -- Has_Private_View (Flag11-Sem) (set in generic units)
1770 -- plus fields for expression
1772 --------------------------
1773 -- 2.4 Numeric Literal --
1774 --------------------------
1776 -- NUMERIC_LITERAL ::= DECIMAL_LITERAL | BASED_LITERAL
1778 ----------------------------
1779 -- 2.4.1 Decimal Literal --
1780 ----------------------------
1782 -- DECIMAL_LITERAL ::= NUMERAL [.NUMERAL] [EXPONENT]
1784 -- NUMERAL ::= DIGIT {[UNDERLINE] DIGIT}
1786 -- EXPONENT ::= E [+] NUMERAL | E - NUMERAL
1788 -- Decimal literals appear in the tree as either integer literal nodes
1789 -- or real literal nodes, depending on whether a period is present.
1791 -- Note: literal nodes appear as a result of direct use of literals
1792 -- in the source program, and also as the result of evaluating
1793 -- expressions at compile time. In the latter case, it is possible
1794 -- to construct real literals that have no syntactic representation
1795 -- using the standard literal format. Such literals are listed by
1796 -- Sprint using the notation [numerator / denominator].
1798 -- Note: the value of an integer literal node created by the front end
1799 -- is never outside the range of values of the base type. However, it
1800 -- can be the case that the value is outside the range of the
1801 -- particular subtype. This happens in the case of integer overflows
1802 -- with checks suppressed.
1804 -- N_Integer_Literal
1805 -- Sloc points to literal
1806 -- Original_Entity (Node2-Sem) If not Empty, holds Named_Number that
1807 -- has been constant-folded into its literal value.
1808 -- Intval (Uint3) contains integer value of literal
1809 -- plus fields for expression
1810 -- Print_In_Hex (Flag13-Sem)
1813 -- Sloc points to literal
1814 -- Original_Entity (Node2-Sem) If not Empty, holds Named_Number that
1815 -- has been constant-folded into its literal value.
1816 -- Realval (Ureal3) contains real value of literal
1817 -- Corresponding_Integer_Value (Uint4-Sem)
1818 -- Is_Machine_Number (Flag11-Sem)
1819 -- plus fields for expression
1821 --------------------------
1822 -- 2.4.2 Based Literal --
1823 --------------------------
1825 -- BASED_LITERAL ::=
1826 -- BASE # BASED_NUMERAL [.BASED_NUMERAL] # [EXPONENT]
1830 -- BASED_NUMERAL ::=
1831 -- EXTENDED_DIGIT {[UNDERLINE] EXTENDED_DIGIT}
1833 -- EXTENDED_DIGIT ::= DIGIT | A | B | C | D | E | F
1835 -- Based literals appear in the tree as either integer literal nodes
1836 -- or real literal nodes, depending on whether a period is present.
1838 ----------------------------
1839 -- 2.5 Character Literal --
1840 ----------------------------
1842 -- CHARACTER_LITERAL ::= ' GRAPHIC_CHARACTER '
1844 -- N_Character_Literal
1845 -- Sloc points to literal
1846 -- Chars (Name1) contains the Name_Id for the identifier
1847 -- Char_Literal_Value (Uint2) contains the literal value
1848 -- Entity (Node4-Sem)
1849 -- Associated_Node (Node4-Sem)
1850 -- Has_Private_View (Flag11-Sem) set in generic units.
1851 -- plus fields for expression
1853 -- Note: the Entity field will be missing (set to Empty) for character
1854 -- literals whose type is Standard.Wide_Character or Standard.Character
1855 -- or a type derived from one of these two. In this case the character
1856 -- literal stands for its own coding. The reason we take this irregular
1857 -- short cut is to avoid the need to build lots of junk defining
1858 -- character literal nodes.
1860 -------------------------
1861 -- 2.6 String Literal --
1862 -------------------------
1864 -- STRING LITERAL ::= "{STRING_ELEMENT}"
1866 -- A STRING_ELEMENT is either a pair of quotation marks ("), or a
1867 -- single GRAPHIC_CHARACTER other than a quotation mark.
1869 -- Is_Folded_In_Parser is True if the parser created this literal by
1870 -- folding a sequence of "&" operators. For example, if the source code
1871 -- says "aaa" & "bbb" & "ccc", and this produces "aaabbbccc", the flag
1872 -- is set. This flag is needed because the parser doesn't know about
1873 -- visibility, so the folded result might be wrong, and semantic
1874 -- analysis needs to check for that.
1877 -- Sloc points to literal
1878 -- Strval (Str3) contains Id of string value
1879 -- Has_Wide_Character (Flag11-Sem)
1880 -- Is_Folded_In_Parser (Flag4)
1881 -- plus fields for expression
1887 -- A COMMENT starts with two adjacent hyphens and extends up to the
1888 -- end of the line. A COMMENT may appear on any line of a program.
1890 -- Comments are skipped by the scanner and do not appear in the tree.
1891 -- It is possible to reconstruct the position of comments with respect
1892 -- to the elements of the tree by using the source position (Sloc)
1893 -- pointers that appear in every tree node.
1899 -- PRAGMA ::= pragma IDENTIFIER
1900 -- [(PRAGMA_ARGUMENT_ASSOCIATION {, PRAGMA_ARGUMENT_ASSOCIATION})];
1902 -- Note that a pragma may appear in the tree anywhere a declaration
1903 -- or a statement may appear, as well as in some other situations
1904 -- which are explicitly documented.
1907 -- Sloc points to pragma identifier
1908 -- Next_Pragma (Node1-Sem)
1909 -- Pragma_Argument_Associations (List2) (set to No_List if none)
1910 -- Debug_Statement (Node3) (set to Empty if not Debug, Assert)
1911 -- Pragma_Identifier (Node4)
1912 -- Next_Rep_Item (Node5-Sem)
1913 -- PPC_Enabled (Flag5-Sem)
1915 -- Note: we should have a section on what pragmas are passed on to
1916 -- the back end to be processed. This section should note that pragma
1917 -- Psect_Object is always converted to Common_Object, but there are
1918 -- undoubtedly many other similar notes required ???
1920 -- Note: a utility function Pragma_Name may be applied to pragma nodes
1921 -- to conveniently obtain the Chars field of the Pragma_Identifier.
1923 --------------------------------------
1924 -- 2.8 Pragma Argument Association --
1925 --------------------------------------
1927 -- PRAGMA_ARGUMENT_ASSOCIATION ::=
1928 -- [pragma_argument_IDENTIFIER =>] NAME
1929 -- | [pragma_argument_IDENTIFIER =>] EXPRESSION
1931 -- N_Pragma_Argument_Association
1932 -- Sloc points to first token in association
1933 -- Chars (Name1) (set to No_Name if no pragma argument identifier)
1934 -- Expression (Node3)
1936 ------------------------
1937 -- 2.9 Reserved Word --
1938 ------------------------
1940 -- Reserved words are parsed by the scanner, and returned as the
1941 -- corresponding token types (e.g. PACKAGE is returned as Tok_Package)
1943 ----------------------------
1944 -- 3.1 Basic Declaration --
1945 ----------------------------
1947 -- BASIC_DECLARATION ::=
1948 -- TYPE_DECLARATION | SUBTYPE_DECLARATION
1949 -- | OBJECT_DECLARATION | NUMBER_DECLARATION
1950 -- | SUBPROGRAM_DECLARATION | ABSTRACT_SUBPROGRAM_DECLARATION
1951 -- | PACKAGE_DECLARATION | RENAMING_DECLARATION
1952 -- | EXCEPTION_DECLARATION | GENERIC_DECLARATION
1953 -- | GENERIC_INSTANTIATION
1955 -- Basic declaration also includes IMPLICIT_LABEL_DECLARATION
1956 -- see further description in section on semantic nodes.
1958 -- Also, in the tree that is constructed, a pragma may appear
1959 -- anywhere that a declaration may appear.
1961 ------------------------------
1962 -- 3.1 Defining Identifier --
1963 ------------------------------
1965 -- DEFINING_IDENTIFIER ::= IDENTIFIER
1967 -- A defining identifier is an entity, which has additional fields
1968 -- depending on the setting of the Ekind field. These additional
1969 -- fields are defined (and access subprograms declared) in package
1972 -- Note: N_Defining_Identifier is an extended node whose fields are
1973 -- deliberate layed out to match the layout of fields in an ordinary
1974 -- N_Identifier node allowing for easy alteration of an identifier
1975 -- node into a defining identifier node. For details, see procedure
1976 -- Sinfo.CN.Change_Identifier_To_Defining_Identifier.
1978 -- N_Defining_Identifier
1979 -- Sloc points to identifier
1980 -- Chars (Name1) contains the Name_Id for the identifier
1981 -- Next_Entity (Node2-Sem)
1982 -- Scope (Node3-Sem)
1983 -- Etype (Node5-Sem)
1985 -----------------------------
1986 -- 3.2.1 Type Declaration --
1987 -----------------------------
1989 -- TYPE_DECLARATION ::=
1990 -- FULL_TYPE_DECLARATION
1991 -- | INCOMPLETE_TYPE_DECLARATION
1992 -- | PRIVATE_TYPE_DECLARATION
1993 -- | PRIVATE_EXTENSION_DECLARATION
1995 ----------------------------------
1996 -- 3.2.1 Full Type Declaration --
1997 ----------------------------------
1999 -- FULL_TYPE_DECLARATION ::=
2000 -- type DEFINING_IDENTIFIER [KNOWN_DISCRIMINANT_PART]
2001 -- is TYPE_DEFINITION;
2002 -- | TASK_TYPE_DECLARATION
2003 -- | PROTECTED_TYPE_DECLARATION
2005 -- The full type declaration node is used only for the first case. The
2006 -- second case (concurrent type declaration), is represented directly
2007 -- by a task type declaration or a protected type declaration.
2009 -- N_Full_Type_Declaration
2010 -- Sloc points to TYPE
2011 -- Defining_Identifier (Node1)
2012 -- Discriminant_Specifications (List4) (set to No_List if none)
2013 -- Type_Definition (Node3)
2014 -- Discr_Check_Funcs_Built (Flag11-Sem)
2016 ----------------------------
2017 -- 3.2.1 Type Definition --
2018 ----------------------------
2020 -- TYPE_DEFINITION ::=
2021 -- ENUMERATION_TYPE_DEFINITION | INTEGER_TYPE_DEFINITION
2022 -- | REAL_TYPE_DEFINITION | ARRAY_TYPE_DEFINITION
2023 -- | RECORD_TYPE_DEFINITION | ACCESS_TYPE_DEFINITION
2024 -- | DERIVED_TYPE_DEFINITION | INTERFACE_TYPE_DEFINITION
2026 --------------------------------
2027 -- 3.2.2 Subtype Declaration --
2028 --------------------------------
2030 -- SUBTYPE_DECLARATION ::=
2031 -- subtype DEFINING_IDENTIFIER is [NULL_EXCLUSION] SUBTYPE_INDICATION;
2033 -- The subtype indication field is set to Empty for subtypes
2034 -- declared in package Standard (Positive, Natural).
2036 -- N_Subtype_Declaration
2037 -- Sloc points to SUBTYPE
2038 -- Defining_Identifier (Node1)
2039 -- Null_Exclusion_Present (Flag11)
2040 -- Subtype_Indication (Node5)
2041 -- Generic_Parent_Type (Node4-Sem) (set for an actual derived type).
2042 -- Exception_Junk (Flag8-Sem)
2044 -------------------------------
2045 -- 3.2.2 Subtype Indication --
2046 -------------------------------
2048 -- SUBTYPE_INDICATION ::= SUBTYPE_MARK [CONSTRAINT]
2050 -- Note: if no constraint is present, the subtype indication appears
2051 -- directly in the tree as a subtype mark. The N_Subtype_Indication
2052 -- node is used only if a constraint is present.
2054 -- Note: [For Ada 2005 (AI-231)]: Because Ada 2005 extends this rule
2055 -- with the null-exclusion part (see AI-231), we had to introduce a new
2056 -- attribute in all the parents of subtype_indication nodes to indicate
2057 -- if the null-exclusion is present.
2059 -- Note: the reason that this node has expression fields is that a
2060 -- subtype indication can appear as an operand of a membership test.
2062 -- N_Subtype_Indication
2063 -- Sloc points to first token of subtype mark
2064 -- Subtype_Mark (Node4)
2065 -- Constraint (Node3)
2066 -- Etype (Node5-Sem)
2067 -- Must_Not_Freeze (Flag8-Sem)
2069 -- Note: Etype is a copy of the Etype field of the Subtype_Mark. The
2070 -- reason for this redundancy is so that in a list of array index types,
2071 -- the Etype can be uniformly accessed to determine the subscript type.
2072 -- This means that no Itype is constructed for the actual subtype that
2073 -- is created by the subtype indication. If such an Itype is required,
2074 -- it is constructed in the context in which the indication appears.
2076 -------------------------
2077 -- 3.2.2 Subtype Mark --
2078 -------------------------
2080 -- SUBTYPE_MARK ::= subtype_NAME
2082 -----------------------
2083 -- 3.2.2 Constraint --
2084 -----------------------
2086 -- CONSTRAINT ::= SCALAR_CONSTRAINT | COMPOSITE_CONSTRAINT
2088 ------------------------------
2089 -- 3.2.2 Scalar Constraint --
2090 ------------------------------
2092 -- SCALAR_CONSTRAINT ::=
2093 -- RANGE_CONSTRAINT | DIGITS_CONSTRAINT | DELTA_CONSTRAINT
2095 ---------------------------------
2096 -- 3.2.2 Composite Constraint --
2097 ---------------------------------
2099 -- COMPOSITE_CONSTRAINT ::=
2100 -- INDEX_CONSTRAINT | DISCRIMINANT_CONSTRAINT
2102 -------------------------------
2103 -- 3.3.1 Object Declaration --
2104 -------------------------------
2106 -- OBJECT_DECLARATION ::=
2107 -- DEFINING_IDENTIFIER_LIST : [aliased] [constant]
2108 -- [NULL_EXCLUSION] SUBTYPE_INDICATION [:= EXPRESSION];
2109 -- | DEFINING_IDENTIFIER_LIST : [aliased] [constant]
2110 -- ACCESS_DEFINITION [:= EXPRESSION];
2111 -- | DEFINING_IDENTIFIER_LIST : [aliased] [constant]
2112 -- ARRAY_TYPE_DEFINITION [:= EXPRESSION];
2113 -- | SINGLE_TASK_DECLARATION
2114 -- | SINGLE_PROTECTED_DECLARATION
2116 -- Note: aliased is not permitted in Ada 83 mode
2118 -- The N_Object_Declaration node is only for the first two cases.
2119 -- Single task declaration is handled by P_Task (9.1)
2120 -- Single protected declaration is handled by P_protected (9.5)
2122 -- Although the syntax allows multiple identifiers in the list, the
2123 -- semantics is as though successive declarations were given with
2124 -- identical type definition and expression components. To simplify
2125 -- semantic processing, the parser represents a multiple declaration
2126 -- case as a sequence of single declarations, using the More_Ids and
2127 -- Prev_Ids flags to preserve the original source form as described
2128 -- in the section on "Handling of Defining Identifier Lists".
2130 -- The flag Has_Init_Expression is set if an initializing expression
2131 -- is present. Normally it is set if and only if Expression contains
2132 -- a non-empty value, but there is an exception to this. When the
2133 -- initializing expression is an aggregate which requires explicit
2134 -- assignments, the Expression field gets set to Empty, but this flag
2135 -- is still set, so we don't forget we had an initializing expression.
2137 -- Note: if a range check is required for the initialization
2138 -- expression then the Do_Range_Check flag is set in the Expression,
2139 -- with the check being done against the type given by the object
2140 -- definition, which is also the Etype of the defining identifier.
2142 -- Note: the contents of the Expression field must be ignored (i.e.
2143 -- treated as though it were Empty) if No_Initialization is set True.
2145 -- Note: the back end places some restrictions on the form of the
2146 -- Expression field. If the object being declared is Atomic, then
2147 -- the Expression may not have the form of an aggregate (since this
2148 -- might cause the back end to generate separate assignments). It
2149 -- also cannot be a reference to an object marked as a true constant
2150 -- (Is_True_Constant flag set), where the object is itself initialized
2151 -- with an aggregate. If necessary the front end must generate an
2152 -- extra temporary (with Is_True_Constant set False), and initialize
2153 -- this temporary as required (the temporary itself is not atomic).
2155 -- Note: there is not node kind for object definition. Instead, the
2156 -- corresponding field holds a subtype indication, an array type
2157 -- definition, or (Ada 2005, AI-406) an access definition.
2159 -- N_Object_Declaration
2160 -- Sloc points to first identifier
2161 -- Defining_Identifier (Node1)
2162 -- Aliased_Present (Flag4) set if ALIASED appears
2163 -- Constant_Present (Flag17) set if CONSTANT appears
2164 -- Null_Exclusion_Present (Flag11)
2165 -- Object_Definition (Node4) subtype indic./array type def./ access def.
2166 -- Expression (Node3) (set to Empty if not present)
2167 -- Handler_List_Entry (Node2-Sem)
2168 -- Corresponding_Generic_Association (Node5-Sem)
2169 -- More_Ids (Flag5) (set to False if no more identifiers in list)
2170 -- Prev_Ids (Flag6) (set to False if no previous identifiers in list)
2171 -- No_Initialization (Flag13-Sem)
2172 -- Assignment_OK (Flag15-Sem)
2173 -- Exception_Junk (Flag8-Sem)
2174 -- Is_Subprogram_Descriptor (Flag16-Sem)
2175 -- Has_Init_Expression (Flag14)
2177 -------------------------------------
2178 -- 3.3.1 Defining Identifier List --
2179 -------------------------------------
2181 -- DEFINING_IDENTIFIER_LIST ::=
2182 -- DEFINING_IDENTIFIER {, DEFINING_IDENTIFIER}
2184 -------------------------------
2185 -- 3.3.2 Number Declaration --
2186 -------------------------------
2188 -- NUMBER_DECLARATION ::=
2189 -- DEFINING_IDENTIFIER_LIST : constant := static_EXPRESSION;
2191 -- Although the syntax allows multiple identifiers in the list, the
2192 -- semantics is as though successive declarations were given with
2193 -- identical expressions. To simplify semantic processing, the parser
2194 -- represents a multiple declaration case as a sequence of single
2195 -- declarations, using the More_Ids and Prev_Ids flags to preserve
2196 -- the original source form as described in the section on "Handling
2197 -- of Defining Identifier Lists".
2199 -- N_Number_Declaration
2200 -- Sloc points to first identifier
2201 -- Defining_Identifier (Node1)
2202 -- Expression (Node3)
2203 -- More_Ids (Flag5) (set to False if no more identifiers in list)
2204 -- Prev_Ids (Flag6) (set to False if no previous identifiers in list)
2206 ----------------------------------
2207 -- 3.4 Derived Type Definition --
2208 ----------------------------------
2210 -- DERIVED_TYPE_DEFINITION ::=
2211 -- [abstract] [limited] new [NULL_EXCLUSION] parent_SUBTYPE_INDICATION
2212 -- [[and INTERFACE_LIST] RECORD_EXTENSION_PART]
2214 -- Note: ABSTRACT, LIMITED and record extension part are not permitted
2217 -- Note: a record extension part is required if ABSTRACT is present
2219 -- N_Derived_Type_Definition
2220 -- Sloc points to NEW
2221 -- Abstract_Present (Flag4)
2222 -- Null_Exclusion_Present (Flag11) (set to False if not present)
2223 -- Subtype_Indication (Node5)
2224 -- Record_Extension_Part (Node3) (set to Empty if not present)
2225 -- Limited_Present (Flag17)
2226 -- Task_Present (Flag5) set in task interfaces
2227 -- Protected_Present (Flag6) set in protected interfaces
2228 -- Synchronized_Present (Flag7) set in interfaces
2229 -- Interface_List (List2) (set to No_List if none)
2230 -- Interface_Present (Flag16) set in abstract interfaces
2232 -- Note: Task_Present, Protected_Present, Synchronized_Present,
2233 -- Interface_List, and Interface_Present are used for abstract
2234 -- interfaces (see comments for INTERFACE_TYPE_DEFINITION).
2236 ---------------------------
2237 -- 3.5 Range Constraint --
2238 ---------------------------
2240 -- RANGE_CONSTRAINT ::= range RANGE
2242 -- N_Range_Constraint
2243 -- Sloc points to RANGE
2244 -- Range_Expression (Node4)
2251 -- RANGE_ATTRIBUTE_REFERENCE
2252 -- | SIMPLE_EXPRESSION .. SIMPLE_EXPRESSION
2254 -- Note: the case of a range given as a range attribute reference
2255 -- appears directly in the tree as an attribute reference.
2257 -- Note: the field name for a reference to a range is Range_Expression
2258 -- rather than Range, because range is a reserved keyword in Ada!
2260 -- Note: the reason that this node has expression fields is that a
2261 -- range can appear as an operand of a membership test. The Etype
2262 -- field is the type of the range (we do NOT construct an implicit
2263 -- subtype to represent the range exactly).
2266 -- Sloc points to ..
2267 -- Low_Bound (Node1)
2268 -- High_Bound (Node2)
2269 -- Includes_Infinities (Flag11)
2270 -- plus fields for expression
2272 -- Note: if the range appears in a context, such as a subtype
2273 -- declaration, where range checks are required on one or both of
2274 -- the expression fields, then type conversion nodes are inserted
2275 -- to represent the required checks.
2277 ----------------------------------------
2278 -- 3.5.1 Enumeration Type Definition --
2279 ----------------------------------------
2281 -- ENUMERATION_TYPE_DEFINITION ::=
2282 -- (ENUMERATION_LITERAL_SPECIFICATION
2283 -- {, ENUMERATION_LITERAL_SPECIFICATION})
2285 -- Note: the Literals field in the node described below is null for
2286 -- the case of the standard types CHARACTER and WIDE_CHARACTER, for
2287 -- which special processing handles these types as special cases.
2289 -- N_Enumeration_Type_Definition
2290 -- Sloc points to left parenthesis
2291 -- Literals (List1) (Empty for CHARACTER or WIDE_CHARACTER)
2292 -- End_Label (Node4) (set to Empty if internally generated record)
2294 ----------------------------------------------
2295 -- 3.5.1 Enumeration Literal Specification --
2296 ----------------------------------------------
2298 -- ENUMERATION_LITERAL_SPECIFICATION ::=
2299 -- DEFINING_IDENTIFIER | DEFINING_CHARACTER_LITERAL
2301 ---------------------------------------
2302 -- 3.5.1 Defining Character Literal --
2303 ---------------------------------------
2305 -- DEFINING_CHARACTER_LITERAL ::= CHARACTER_LITERAL
2307 -- A defining character literal is an entity, which has additional
2308 -- fields depending on the setting of the Ekind field. These
2309 -- additional fields are defined (and access subprograms declared)
2310 -- in package Einfo.
2312 -- Note: N_Defining_Character_Literal is an extended node whose fields
2313 -- are deliberate layed out to match the layout of fields in an ordinary
2314 -- N_Character_Literal node allowing for easy alteration of a character
2315 -- literal node into a defining character literal node. For details, see
2316 -- Sinfo.CN.Change_Character_Literal_To_Defining_Character_Literal.
2318 -- N_Defining_Character_Literal
2319 -- Sloc points to literal
2320 -- Chars (Name1) contains the Name_Id for the identifier
2321 -- Next_Entity (Node2-Sem)
2322 -- Scope (Node3-Sem)
2323 -- Etype (Node5-Sem)
2325 ------------------------------------
2326 -- 3.5.4 Integer Type Definition --
2327 ------------------------------------
2329 -- Note: there is an error in this rule in the latest version of the
2330 -- grammar, so we have retained the old rule pending clarification.
2332 -- INTEGER_TYPE_DEFINITION ::=
2333 -- SIGNED_INTEGER_TYPE_DEFINITION
2334 -- | MODULAR_TYPE_DEFINITION
2336 -------------------------------------------
2337 -- 3.5.4 Signed Integer Type Definition --
2338 -------------------------------------------
2340 -- SIGNED_INTEGER_TYPE_DEFINITION ::=
2341 -- range static_SIMPLE_EXPRESSION .. static_SIMPLE_EXPRESSION
2343 -- Note: the Low_Bound and High_Bound fields are set to Empty
2344 -- for integer types defined in package Standard.
2346 -- N_Signed_Integer_Type_Definition
2347 -- Sloc points to RANGE
2348 -- Low_Bound (Node1)
2349 -- High_Bound (Node2)
2351 ------------------------------------
2352 -- 3.5.4 Modular Type Definition --
2353 ------------------------------------
2355 -- MODULAR_TYPE_DEFINITION ::= mod static_EXPRESSION
2357 -- N_Modular_Type_Definition
2358 -- Sloc points to MOD
2359 -- Expression (Node3)
2361 ---------------------------------
2362 -- 3.5.6 Real Type Definition --
2363 ---------------------------------
2365 -- REAL_TYPE_DEFINITION ::=
2366 -- FLOATING_POINT_DEFINITION | FIXED_POINT_DEFINITION
2368 --------------------------------------
2369 -- 3.5.7 Floating Point Definition --
2370 --------------------------------------
2372 -- FLOATING_POINT_DEFINITION ::=
2373 -- digits static_SIMPLE_EXPRESSION [REAL_RANGE_SPECIFICATION]
2375 -- Note: The Digits_Expression and Real_Range_Specifications fields
2376 -- are set to Empty for floating-point types declared in Standard.
2378 -- N_Floating_Point_Definition
2379 -- Sloc points to DIGITS
2380 -- Digits_Expression (Node2)
2381 -- Real_Range_Specification (Node4) (set to Empty if not present)
2383 -------------------------------------
2384 -- 3.5.7 Real Range Specification --
2385 -------------------------------------
2387 -- REAL_RANGE_SPECIFICATION ::=
2388 -- range static_SIMPLE_EXPRESSION .. static_SIMPLE_EXPRESSION
2390 -- N_Real_Range_Specification
2391 -- Sloc points to RANGE
2392 -- Low_Bound (Node1)
2393 -- High_Bound (Node2)
2395 -----------------------------------
2396 -- 3.5.9 Fixed Point Definition --
2397 -----------------------------------
2399 -- FIXED_POINT_DEFINITION ::=
2400 -- ORDINARY_FIXED_POINT_DEFINITION | DECIMAL_FIXED_POINT_DEFINITION
2402 --------------------------------------------
2403 -- 3.5.9 Ordinary Fixed Point Definition --
2404 --------------------------------------------
2406 -- ORDINARY_FIXED_POINT_DEFINITION ::=
2407 -- delta static_EXPRESSION REAL_RANGE_SPECIFICATION
2409 -- Note: In Ada 83, the EXPRESSION must be a SIMPLE_EXPRESSION
2411 -- N_Ordinary_Fixed_Point_Definition
2412 -- Sloc points to DELTA
2413 -- Delta_Expression (Node3)
2414 -- Real_Range_Specification (Node4)
2416 -------------------------------------------
2417 -- 3.5.9 Decimal Fixed Point Definition --
2418 -------------------------------------------
2420 -- DECIMAL_FIXED_POINT_DEFINITION ::=
2421 -- delta static_EXPRESSION
2422 -- digits static_EXPRESSION [REAL_RANGE_SPECIFICATION]
2424 -- Note: decimal types are not permitted in Ada 83 mode
2426 -- N_Decimal_Fixed_Point_Definition
2427 -- Sloc points to DELTA
2428 -- Delta_Expression (Node3)
2429 -- Digits_Expression (Node2)
2430 -- Real_Range_Specification (Node4) (set to Empty if not present)
2432 ------------------------------
2433 -- 3.5.9 Digits Constraint --
2434 ------------------------------
2436 -- DIGITS_CONSTRAINT ::=
2437 -- digits static_EXPRESSION [RANGE_CONSTRAINT]
2439 -- Note: in Ada 83, the EXPRESSION must be a SIMPLE_EXPRESSION
2440 -- Note: in Ada 95, reduced accuracy subtypes are obsolescent
2442 -- N_Digits_Constraint
2443 -- Sloc points to DIGITS
2444 -- Digits_Expression (Node2)
2445 -- Range_Constraint (Node4) (set to Empty if not present)
2447 --------------------------------
2448 -- 3.6 Array Type Definition --
2449 --------------------------------
2451 -- ARRAY_TYPE_DEFINITION ::=
2452 -- UNCONSTRAINED_ARRAY_DEFINITION | CONSTRAINED_ARRAY_DEFINITION
2454 -----------------------------------------
2455 -- 3.6 Unconstrained Array Definition --
2456 -----------------------------------------
2458 -- UNCONSTRAINED_ARRAY_DEFINITION ::=
2459 -- array (INDEX_SUBTYPE_DEFINITION {, INDEX_SUBTYPE_DEFINITION}) of
2460 -- COMPONENT_DEFINITION
2462 -- Note: dimensionality of array is indicated by number of entries in
2463 -- the Subtype_Marks list, which has one entry for each dimension.
2465 -- N_Unconstrained_Array_Definition
2466 -- Sloc points to ARRAY
2467 -- Subtype_Marks (List2)
2468 -- Component_Definition (Node4)
2470 -----------------------------------
2471 -- 3.6 Index Subtype Definition --
2472 -----------------------------------
2474 -- INDEX_SUBTYPE_DEFINITION ::= SUBTYPE_MARK range <>
2476 -- There is no explicit node in the tree for an index subtype
2477 -- definition since the N_Unconstrained_Array_Definition node
2478 -- incorporates the type marks which appear in this context.
2480 ---------------------------------------
2481 -- 3.6 Constrained Array Definition --
2482 ---------------------------------------
2484 -- CONSTRAINED_ARRAY_DEFINITION ::=
2485 -- array (DISCRETE_SUBTYPE_DEFINITION
2486 -- {, DISCRETE_SUBTYPE_DEFINITION})
2487 -- of COMPONENT_DEFINITION
2489 -- Note: dimensionality of array is indicated by number of entries
2490 -- in the Discrete_Subtype_Definitions list, which has one entry
2491 -- for each dimension.
2493 -- N_Constrained_Array_Definition
2494 -- Sloc points to ARRAY
2495 -- Discrete_Subtype_Definitions (List2)
2496 -- Component_Definition (Node4)
2498 --------------------------------------
2499 -- 3.6 Discrete Subtype Definition --
2500 --------------------------------------
2502 -- DISCRETE_SUBTYPE_DEFINITION ::=
2503 -- discrete_SUBTYPE_INDICATION | RANGE
2505 -------------------------------
2506 -- 3.6 Component Definition --
2507 -------------------------------
2509 -- COMPONENT_DEFINITION ::=
2510 -- [aliased] [NULL_EXCLUSION] SUBTYPE_INDICATION | ACCESS_DEFINITION
2512 -- Note: although the syntax does not permit a component definition to
2513 -- be an anonymous array (and the parser will diagnose such an attempt
2514 -- with an appropriate message), it is possible for anonymous arrays
2515 -- to appear as component definitions. The semantics and back end handle
2516 -- this case properly, and the expander in fact generates such cases.
2517 -- Access_Definition is an optional field that gives support to
2518 -- Ada 2005 (AI-230). The parser generates nodes that have either the
2519 -- Subtype_Indication field or else the Access_Definition field.
2521 -- N_Component_Definition
2522 -- Sloc points to ALIASED, ACCESS or to first token of subtype mark
2523 -- Aliased_Present (Flag4)
2524 -- Null_Exclusion_Present (Flag11)
2525 -- Subtype_Indication (Node5) (set to Empty if not present)
2526 -- Access_Definition (Node3) (set to Empty if not present)
2528 -----------------------------
2529 -- 3.6.1 Index Constraint --
2530 -----------------------------
2532 -- INDEX_CONSTRAINT ::= (DISCRETE_RANGE {, DISCRETE_RANGE})
2534 -- It is not in general possible to distinguish between discriminant
2535 -- constraints and index constraints at parse time, since a simple
2536 -- name could be either the subtype mark of a discrete range, or an
2537 -- expression in a discriminant association with no name. Either
2538 -- entry appears simply as the name, and the semantic parse must
2539 -- distinguish between the two cases. Thus we use a common tree
2540 -- node format for both of these constraint types.
2542 -- See Discriminant_Constraint for format of node
2544 ---------------------------
2545 -- 3.6.1 Discrete Range --
2546 ---------------------------
2548 -- DISCRETE_RANGE ::= discrete_SUBTYPE_INDICATION | RANGE
2550 ----------------------------
2551 -- 3.7 Discriminant Part --
2552 ----------------------------
2554 -- DISCRIMINANT_PART ::=
2555 -- UNKNOWN_DISCRIMINANT_PART | KNOWN_DISCRIMINANT_PART
2557 ------------------------------------
2558 -- 3.7 Unknown Discriminant Part --
2559 ------------------------------------
2561 -- UNKNOWN_DISCRIMINANT_PART ::= (<>)
2563 -- Note: unknown discriminant parts are not permitted in Ada 83 mode
2565 -- There is no explicit node in the tree for an unknown discriminant
2566 -- part. Instead the Unknown_Discriminants_Present flag is set in the
2569 ----------------------------------
2570 -- 3.7 Known Discriminant Part --
2571 ----------------------------------
2573 -- KNOWN_DISCRIMINANT_PART ::=
2574 -- (DISCRIMINANT_SPECIFICATION {; DISCRIMINANT_SPECIFICATION})
2576 -------------------------------------
2577 -- 3.7 Discriminant Specification --
2578 -------------------------------------
2580 -- DISCRIMINANT_SPECIFICATION ::=
2581 -- DEFINING_IDENTIFIER_LIST : [NULL_EXCLUSION] SUBTYPE_MARK
2582 -- [:= DEFAULT_EXPRESSION]
2583 -- | DEFINING_IDENTIFIER_LIST : ACCESS_DEFINITION
2584 -- [:= DEFAULT_EXPRESSION]
2586 -- Although the syntax allows multiple identifiers in the list, the
2587 -- semantics is as though successive specifications were given with
2588 -- identical type definition and expression components. To simplify
2589 -- semantic processing, the parser represents a multiple declaration
2590 -- case as a sequence of single specifications, using the More_Ids and
2591 -- Prev_Ids flags to preserve the original source form as described
2592 -- in the section on "Handling of Defining Identifier Lists".
2594 -- N_Discriminant_Specification
2595 -- Sloc points to first identifier
2596 -- Defining_Identifier (Node1)
2597 -- Null_Exclusion_Present (Flag11)
2598 -- Discriminant_Type (Node5) subtype mark or access parameter definition
2599 -- Expression (Node3) (set to Empty if no default expression)
2600 -- More_Ids (Flag5) (set to False if no more identifiers in list)
2601 -- Prev_Ids (Flag6) (set to False if no previous identifiers in list)
2603 -----------------------------
2604 -- 3.7 Default Expression --
2605 -----------------------------
2607 -- DEFAULT_EXPRESSION ::= EXPRESSION
2609 ------------------------------------
2610 -- 3.7.1 Discriminant Constraint --
2611 ------------------------------------
2613 -- DISCRIMINANT_CONSTRAINT ::=
2614 -- (DISCRIMINANT_ASSOCIATION {, DISCRIMINANT_ASSOCIATION})
2616 -- It is not in general possible to distinguish between discriminant
2617 -- constraints and index constraints at parse time, since a simple
2618 -- name could be either the subtype mark of a discrete range, or an
2619 -- expression in a discriminant association with no name. Either
2620 -- entry appears simply as the name, and the semantic parse must
2621 -- distinguish between the two cases. Thus we use a common tree
2622 -- node format for both of these constraint types.
2624 -- N_Index_Or_Discriminant_Constraint
2625 -- Sloc points to left paren
2626 -- Constraints (List1) points to list of discrete ranges or
2627 -- discriminant associations
2629 -------------------------------------
2630 -- 3.7.1 Discriminant Association --
2631 -------------------------------------
2633 -- DISCRIMINANT_ASSOCIATION ::=
2634 -- [discriminant_SELECTOR_NAME
2635 -- {| discriminant_SELECTOR_NAME} =>] EXPRESSION
2637 -- Note: a discriminant association that has no selector name list
2638 -- appears directly as an expression in the tree.
2640 -- N_Discriminant_Association
2641 -- Sloc points to first token of discriminant association
2642 -- Selector_Names (List1) (always non-empty, since if no selector
2643 -- names are present, this node is not used, see comment above)
2644 -- Expression (Node3)
2646 ---------------------------------
2647 -- 3.8 Record Type Definition --
2648 ---------------------------------
2650 -- RECORD_TYPE_DEFINITION ::=
2651 -- [[abstract] tagged] [limited] RECORD_DEFINITION
2653 -- Note: ABSTRACT, TAGGED, LIMITED are not permitted in Ada 83 mode
2655 -- There is no explicit node in the tree for a record type definition.
2656 -- Instead the flags for Tagged_Present and Limited_Present appear in
2657 -- the N_Record_Definition node for a record definition appearing in
2658 -- the context of a record type definition.
2660 ----------------------------
2661 -- 3.8 Record Definition --
2662 ----------------------------
2664 -- RECORD_DEFINITION ::=
2670 -- Note: the Abstract_Present, Tagged_Present and Limited_Present
2671 -- flags appear only for a record definition appearing in a record
2674 -- Note: the NULL RECORD case is not permitted in Ada 83
2676 -- N_Record_Definition
2677 -- Sloc points to RECORD or NULL
2678 -- End_Label (Node4) (set to Empty if internally generated record)
2679 -- Abstract_Present (Flag4)
2680 -- Tagged_Present (Flag15)
2681 -- Limited_Present (Flag17)
2682 -- Component_List (Node1) empty in null record case
2683 -- Null_Present (Flag13) set in null record case
2684 -- Task_Present (Flag5) set in task interfaces
2685 -- Protected_Present (Flag6) set in protected interfaces
2686 -- Synchronized_Present (Flag7) set in interfaces
2687 -- Interface_Present (Flag16) set in abstract interfaces
2688 -- Interface_List (List2) (set to No_List if none)
2690 -- Note: Task_Present, Protected_Present, Synchronized _Present,
2691 -- Interface_List and Interface_Present are used for abstract
2692 -- interfaces (see comments for INTERFACE_TYPE_DEFINITION).
2694 -------------------------
2695 -- 3.8 Component List --
2696 -------------------------
2698 -- COMPONENT_LIST ::=
2699 -- COMPONENT_ITEM {COMPONENT_ITEM}
2700 -- | {COMPONENT_ITEM} VARIANT_PART
2704 -- Sloc points to first token of component list
2705 -- Component_Items (List3)
2706 -- Variant_Part (Node4) (set to Empty if no variant part)
2707 -- Null_Present (Flag13)
2709 -------------------------
2710 -- 3.8 Component Item --
2711 -------------------------
2713 -- COMPONENT_ITEM ::= COMPONENT_DECLARATION | REPRESENTATION_CLAUSE
2715 -- Note: A component item can also be a pragma, and in the tree
2716 -- that is obtained after semantic processing, a component item
2717 -- can be an N_Null node resulting from a non-recognized pragma.
2719 --------------------------------
2720 -- 3.8 Component Declaration --
2721 --------------------------------
2723 -- COMPONENT_DECLARATION ::=
2724 -- DEFINING_IDENTIFIER_LIST : COMPONENT_DEFINITION
2725 -- [:= DEFAULT_EXPRESSION]
2727 -- Note: although the syntax does not permit a component definition to
2728 -- be an anonymous array (and the parser will diagnose such an attempt
2729 -- with an appropriate message), it is possible for anonymous arrays
2730 -- to appear as component definitions. The semantics and back end handle
2731 -- this case properly, and the expander in fact generates such cases.
2733 -- Although the syntax allows multiple identifiers in the list, the
2734 -- semantics is as though successive declarations were given with the
2735 -- same component definition and expression components. To simplify
2736 -- semantic processing, the parser represents a multiple declaration
2737 -- case as a sequence of single declarations, using the More_Ids and
2738 -- Prev_Ids flags to preserve the original source form as described
2739 -- in the section on "Handling of Defining Identifier Lists".
2741 -- N_Component_Declaration
2742 -- Sloc points to first identifier
2743 -- Defining_Identifier (Node1)
2744 -- Component_Definition (Node4)
2745 -- Expression (Node3) (set to Empty if no default expression)
2746 -- More_Ids (Flag5) (set to False if no more identifiers in list)
2747 -- Prev_Ids (Flag6) (set to False if no previous identifiers in list)
2749 -------------------------
2750 -- 3.8.1 Variant Part --
2751 -------------------------
2754 -- case discriminant_DIRECT_NAME is
2759 -- Note: the variants list can contain pragmas as well as variants.
2760 -- In a properly formed program there is at least one variant.
2763 -- Sloc points to CASE
2767 --------------------
2769 --------------------
2772 -- when DISCRETE_CHOICE_LIST =>
2776 -- Sloc points to WHEN
2777 -- Discrete_Choices (List4)
2778 -- Component_List (Node1)
2779 -- Enclosing_Variant (Node2-Sem)
2780 -- Present_Expr (Uint3-Sem)
2781 -- Dcheck_Function (Node5-Sem)
2783 ---------------------------------
2784 -- 3.8.1 Discrete Choice List --
2785 ---------------------------------
2787 -- DISCRETE_CHOICE_LIST ::= DISCRETE_CHOICE {| DISCRETE_CHOICE}
2789 ----------------------------
2790 -- 3.8.1 Discrete Choice --
2791 ----------------------------
2793 -- DISCRETE_CHOICE ::= EXPRESSION | DISCRETE_RANGE | others
2795 -- Note: in Ada 83 mode, the expression must be a simple expression
2797 -- The only choice that appears explicitly is the OTHERS choice, as
2798 -- defined here. Other cases of discrete choice (expression and
2799 -- discrete range) appear directly. This production is also used
2800 -- for the OTHERS possibility of an exception choice.
2802 -- Note: in accordance with the syntax, the parser does not check that
2803 -- OTHERS appears at the end on its own in a choice list context. This
2804 -- is a semantic check.
2807 -- Sloc points to OTHERS
2808 -- Others_Discrete_Choices (List1-Sem)
2809 -- All_Others (Flag11-Sem)
2811 ----------------------------------
2812 -- 3.9.1 Record Extension Part --
2813 ----------------------------------
2815 -- RECORD_EXTENSION_PART ::= with RECORD_DEFINITION
2817 -- Note: record extension parts are not permitted in Ada 83 mode
2819 --------------------------------------
2820 -- 3.9.4 Interface Type Definition --
2821 --------------------------------------
2823 -- INTERFACE_TYPE_DEFINITION ::=
2824 -- [limited | task | protected | synchronized]
2825 -- interface [interface_list]
2827 -- Note: Interfaces are implemented with N_Record_Definition and
2828 -- N_Derived_Type_Definition nodes because most of the support
2829 -- for the analysis of abstract types has been reused to
2830 -- analyze abstract interfaces.
2832 ----------------------------------
2833 -- 3.10 Access Type Definition --
2834 ----------------------------------
2836 -- ACCESS_TYPE_DEFINITION ::=
2837 -- ACCESS_TO_OBJECT_DEFINITION
2838 -- | ACCESS_TO_SUBPROGRAM_DEFINITION
2840 --------------------------
2841 -- 3.10 Null Exclusion --
2842 --------------------------
2844 -- NULL_EXCLUSION ::= not null
2846 ---------------------------------------
2847 -- 3.10 Access To Object Definition --
2848 ---------------------------------------
2850 -- ACCESS_TO_OBJECT_DEFINITION ::=
2851 -- [NULL_EXCLUSION] access [GENERAL_ACCESS_MODIFIER]
2852 -- SUBTYPE_INDICATION
2854 -- N_Access_To_Object_Definition
2855 -- Sloc points to ACCESS
2856 -- All_Present (Flag15)
2857 -- Null_Exclusion_Present (Flag11)
2858 -- Subtype_Indication (Node5)
2859 -- Constant_Present (Flag17)
2861 -----------------------------------
2862 -- 3.10 General Access Modifier --
2863 -----------------------------------
2865 -- GENERAL_ACCESS_MODIFIER ::= all | constant
2867 -- Note: general access modifiers are not permitted in Ada 83 mode
2869 -- There is no explicit node in the tree for general access modifier.
2870 -- Instead the All_Present or Constant_Present flags are set in the
2873 -------------------------------------------
2874 -- 3.10 Access To Subprogram Definition --
2875 -------------------------------------------
2877 -- ACCESS_TO_SUBPROGRAM_DEFINITION
2878 -- [NULL_EXCLUSION] access [protected] procedure PARAMETER_PROFILE
2879 -- | [NULL_EXCLUSION] access [protected] function
2880 -- PARAMETER_AND_RESULT_PROFILE
2882 -- Note: access to subprograms are not permitted in Ada 83 mode
2884 -- N_Access_Function_Definition
2885 -- Sloc points to ACCESS
2886 -- Null_Exclusion_Present (Flag11)
2887 -- Null_Exclusion_In_Return_Present (Flag14)
2888 -- Protected_Present (Flag6)
2889 -- Parameter_Specifications (List3) (set to No_List if no formal part)
2890 -- Result_Definition (Node4) result subtype (subtype mark or access def)
2892 -- N_Access_Procedure_Definition
2893 -- Sloc points to ACCESS
2894 -- Null_Exclusion_Present (Flag11)
2895 -- Protected_Present (Flag6)
2896 -- Parameter_Specifications (List3) (set to No_List if no formal part)
2898 -----------------------------
2899 -- 3.10 Access Definition --
2900 -----------------------------
2902 -- ACCESS_DEFINITION ::=
2903 -- [NULL_EXCLUSION] access [GENERAL_ACCESS_MODIFIER] SUBTYPE_MARK
2904 -- | ACCESS_TO_SUBPROGRAM_DEFINITION
2906 -- Note: access to subprograms are an Ada 2005 (AI-254) extension
2908 -- N_Access_Definition
2909 -- Sloc points to ACCESS
2910 -- Null_Exclusion_Present (Flag11)
2911 -- All_Present (Flag15)
2912 -- Constant_Present (Flag17)
2913 -- Subtype_Mark (Node4)
2914 -- Access_To_Subprogram_Definition (Node3) (set to Empty if not present)
2916 -----------------------------------------
2917 -- 3.10.1 Incomplete Type Declaration --
2918 -----------------------------------------
2920 -- INCOMPLETE_TYPE_DECLARATION ::=
2921 -- type DEFINING_IDENTIFIER [DISCRIMINANT_PART] [IS TAGGED];
2923 -- N_Incomplete_Type_Declaration
2924 -- Sloc points to TYPE
2925 -- Defining_Identifier (Node1)
2926 -- Discriminant_Specifications (List4) (set to No_List if no
2927 -- discriminant part, or if the discriminant part is an
2928 -- unknown discriminant part)
2929 -- Unknown_Discriminants_Present (Flag13) set if (<>) discriminant
2930 -- Tagged_Present (Flag15)
2932 ----------------------------
2933 -- 3.11 Declarative Part --
2934 ----------------------------
2936 -- DECLARATIVE_PART ::= {DECLARATIVE_ITEM}
2938 -- Note: although the parser enforces the syntactic requirement that
2939 -- a declarative part can contain only declarations, the semantic
2940 -- processing may add statements to the list of actions in a
2941 -- declarative part, so the code generator should be prepared
2942 -- to accept a statement in this position.
2944 ----------------------------
2945 -- 3.11 Declarative Item --
2946 ----------------------------
2948 -- DECLARATIVE_ITEM ::= BASIC_DECLARATIVE_ITEM | BODY
2950 ----------------------------------
2951 -- 3.11 Basic Declarative Item --
2952 ----------------------------------
2954 -- BASIC_DECLARATIVE_ITEM ::=
2955 -- BASIC_DECLARATION | REPRESENTATION_CLAUSE | USE_CLAUSE
2961 -- BODY ::= PROPER_BODY | BODY_STUB
2963 -----------------------
2964 -- 3.11 Proper Body --
2965 -----------------------
2968 -- SUBPROGRAM_BODY | PACKAGE_BODY | TASK_BODY | PROTECTED_BODY
2975 -- DIRECT_NAME | EXPLICIT_DEREFERENCE
2976 -- | INDEXED_COMPONENT | SLICE
2977 -- | SELECTED_COMPONENT | ATTRIBUTE_REFERENCE
2978 -- | TYPE_CONVERSION | FUNCTION_CALL
2979 -- | CHARACTER_LITERAL
2981 ----------------------
2982 -- 4.1 Direct Name --
2983 ----------------------
2985 -- DIRECT_NAME ::= IDENTIFIER | OPERATOR_SYMBOL
2991 -- PREFIX ::= NAME | IMPLICIT_DEREFERENCE
2993 -------------------------------
2994 -- 4.1 Explicit Dereference --
2995 -------------------------------
2997 -- EXPLICIT_DEREFERENCE ::= NAME . all
2999 -- N_Explicit_Dereference
3000 -- Sloc points to ALL
3002 -- Actual_Designated_Subtype (Node4-Sem)
3003 -- plus fields for expression
3005 -------------------------------
3006 -- 4.1 Implicit Dereference --
3007 -------------------------------
3009 -- IMPLICIT_DEREFERENCE ::= NAME
3011 ------------------------------
3012 -- 4.1.1 Indexed Component --
3013 ------------------------------
3015 -- INDEXED_COMPONENT ::= PREFIX (EXPRESSION {, EXPRESSION})
3017 -- Note: the parser may generate this node in some situations where it
3018 -- should be a function call. The semantic pass must correct this
3019 -- misidentification (which is inevitable at the parser level).
3021 -- N_Indexed_Component
3022 -- Sloc contains a copy of the Sloc value of the Prefix
3024 -- Expressions (List1)
3025 -- plus fields for expression
3027 -- Note: if any of the subscripts requires a range check, then the
3028 -- Do_Range_Check flag is set on the corresponding expression, with
3029 -- the index type being determined from the type of the Prefix, which
3030 -- references the array being indexed.
3032 -- Note: in a fully analyzed and expanded indexed component node, and
3033 -- hence in any such node that gigi sees, if the prefix is an access
3034 -- type, then an explicit dereference operation has been inserted.
3040 -- SLICE ::= PREFIX (DISCRETE_RANGE)
3042 -- Note: an implicit subtype is created to describe the resulting
3043 -- type, so that the bounds of this type are the bounds of the slice.
3046 -- Sloc points to first token of prefix
3048 -- Discrete_Range (Node4)
3049 -- plus fields for expression
3051 -------------------------------
3052 -- 4.1.3 Selected Component --
3053 -------------------------------
3055 -- SELECTED_COMPONENT ::= PREFIX . SELECTOR_NAME
3057 -- Note: selected components that are semantically expanded names get
3058 -- changed during semantic processing into the separate N_Expanded_Name
3059 -- node. See description of this node in the section on semantic nodes.
3061 -- N_Selected_Component
3062 -- Sloc points to period
3064 -- Selector_Name (Node2)
3065 -- Associated_Node (Node4-Sem)
3066 -- Do_Discriminant_Check (Flag13-Sem)
3067 -- Is_In_Discriminant_Check (Flag11-Sem)
3068 -- plus fields for expression
3070 --------------------------
3071 -- 4.1.3 Selector Name --
3072 --------------------------
3074 -- SELECTOR_NAME ::= IDENTIFIER | CHARACTER_LITERAL | OPERATOR_SYMBOL
3076 --------------------------------
3077 -- 4.1.4 Attribute Reference --
3078 --------------------------------
3080 -- ATTRIBUTE_REFERENCE ::= PREFIX ' ATTRIBUTE_DESIGNATOR
3082 -- Note: the syntax is quite ambiguous at this point. Consider:
3084 -- A'Length (X) X is part of the attribute designator
3085 -- A'Pos (X) X is an explicit actual parameter of function A'Pos
3086 -- A'Class (X) X is the expression of a type conversion
3088 -- It would be possible for the parser to distinguish these cases
3089 -- by looking at the attribute identifier. However, that would mean
3090 -- more work in introducing new implementation defined attributes,
3091 -- and also it would mean that special processing for attributes
3092 -- would be scattered around, instead of being centralized in the
3093 -- semantic routine that handles an N_Attribute_Reference node.
3094 -- Consequently, the parser in all the above cases stores the
3095 -- expression (X in these examples) as a single element list in
3096 -- in the Expressions field of the N_Attribute_Reference node.
3098 -- Similarly, for attributes like Max which take two arguments,
3099 -- we store the two arguments as a two element list in the
3100 -- Expressions field. Of course it is clear at parse time that
3101 -- this case is really a function call with an attribute as the
3102 -- prefix, but it turns out to be convenient to handle the two
3103 -- argument case in a similar manner to the one argument case,
3104 -- and indeed in general the parser will accept any number of
3105 -- expressions in this position and store them as a list in the
3106 -- attribute reference node. This allows for future addition of
3107 -- attributes that take more than two arguments.
3109 -- Note: named associates are not permitted in function calls where
3110 -- the function is an attribute (see RM 6.4(3)) so it is legitimate
3111 -- to skip the normal subprogram argument processing.
3113 -- Note: for the attributes whose designators are technically keywords,
3114 -- i.e. digits, access, delta, range, the Attribute_Name field contains
3115 -- the corresponding name, even though no identifier is involved.
3117 -- Note: the generated code may contain stream attributes applied to
3118 -- limited types for which no stream routines exist officially. In such
3119 -- case, the result is to use the stream attribute for the underlying
3120 -- full type, or in the case of a protected type, the components
3121 -- (including any discriminants) are merely streamed in order.
3123 -- See Exp_Attr for a complete description of which attributes are
3124 -- passed onto Gigi, and which are handled entirely by the front end.
3126 -- Gigi restriction: For the Pos attribute, the prefix cannot be
3127 -- a non-standard enumeration type or a nonzero/zero semantics
3128 -- boolean type, so the value is simply the stored representation.
3130 -- Gigi requirement: For the Mechanism_Code attribute, if the prefix
3131 -- references a subprogram that is a renaming, then the front end must
3132 -- rewrite the attribute to refer directly to the renamed entity.
3134 -- Note: In generated code, the Address and Unrestricted_Access
3135 -- attributes can be applied to any expression, and the meaning is
3136 -- to create an object containing the value (the object is in the
3137 -- current stack frame), and pass the address of this value. If the
3138 -- Must_Be_Byte_Aligned flag is set, then the object whose address
3139 -- is taken must be on a byte (storage unit) boundary, and if it is
3140 -- not (or may not be), then the generated code must create a copy
3141 -- that is byte aligned, and pass the address of this copy.
3143 -- N_Attribute_Reference
3144 -- Sloc points to apostrophe
3146 -- Attribute_Name (Name2) identifier name from attribute designator
3147 -- Expressions (List1) (set to No_List if no associated expressions)
3148 -- Entity (Node4-Sem) used if the attribute yields a type
3149 -- Associated_Node (Node4-Sem)
3150 -- Do_Overflow_Check (Flag17-Sem)
3151 -- Redundant_Use (Flag13-Sem)
3152 -- Must_Be_Byte_Aligned (Flag14)
3153 -- plus fields for expression
3155 ---------------------------------
3156 -- 4.1.4 Attribute Designator --
3157 ---------------------------------
3159 -- ATTRIBUTE_DESIGNATOR ::=
3160 -- IDENTIFIER [(static_EXPRESSION)]
3161 -- | access | delta | digits
3163 -- There is no explicit node in the tree for an attribute designator.
3164 -- Instead the Attribute_Name and Expressions fields of the parent
3165 -- node (N_Attribute_Reference node) hold the information.
3167 -- Note: if ACCESS, DELTA or DIGITS appears in an attribute
3168 -- designator, then they are treated as identifiers internally
3169 -- rather than the keywords of the same name.
3171 --------------------------------------
3172 -- 4.1.4 Range Attribute Reference --
3173 --------------------------------------
3175 -- RANGE_ATTRIBUTE_REFERENCE ::= PREFIX ' RANGE_ATTRIBUTE_DESIGNATOR
3177 -- A range attribute reference is represented in the tree using the
3178 -- normal N_Attribute_Reference node.
3180 ---------------------------------------
3181 -- 4.1.4 Range Attribute Designator --
3182 ---------------------------------------
3184 -- RANGE_ATTRIBUTE_DESIGNATOR ::= Range [(static_EXPRESSION)]
3186 -- A range attribute designator is represented in the tree using the
3187 -- normal N_Attribute_Reference node.
3189 --------------------
3191 --------------------
3194 -- RECORD_AGGREGATE | EXTENSION_AGGREGATE | ARRAY_AGGREGATE
3196 -----------------------------
3197 -- 4.3.1 Record Aggregate --
3198 -----------------------------
3200 -- RECORD_AGGREGATE ::= (RECORD_COMPONENT_ASSOCIATION_LIST)
3203 -- Sloc points to left parenthesis
3204 -- Expressions (List1) (set to No_List if none or null record case)
3205 -- Component_Associations (List2) (set to No_List if none)
3206 -- Null_Record_Present (Flag17)
3207 -- Aggregate_Bounds (Node3-Sem)
3208 -- Associated_Node (Node4-Sem)
3209 -- Static_Processing_OK (Flag4-Sem)
3210 -- Compile_Time_Known_Aggregate (Flag18-Sem)
3211 -- Expansion_Delayed (Flag11-Sem)
3212 -- Has_Self_Reference (Flag13-Sem)
3213 -- plus fields for expression
3215 -- Note: this structure is used for both record and array aggregates
3216 -- since the two cases are not separable by the parser. The parser
3217 -- makes no attempt to enforce consistency here, so it is up to the
3218 -- semantic phase to make sure that the aggregate is consistent (i.e.
3219 -- that it is not a "half-and-half" case that mixes record and array
3220 -- syntax. In particular, for a record aggregate, the expressions
3221 -- field will be set if there are positional associations.
3223 -- Note: N_Aggregate is not used for all aggregates; in particular,
3224 -- there is a separate node kind for extension aggregates.
3226 -- Note: gigi/gcc can handle array aggregates correctly providing that
3227 -- they are entirely positional, and the array subtype involved has a
3228 -- known at compile time length and is not bit packed, or a convention
3229 -- Fortran array with more than one dimension. If these conditions
3230 -- are not met, then the front end must translate the aggregate into
3231 -- an appropriate set of assignments into a temporary.
3233 -- Note: for the record aggregate case, gigi/gcc can handle all cases
3234 -- of record aggregates, including those for packed, and rep-claused
3235 -- records, and also variant records, providing that there are no
3236 -- variable length fields whose size is not known at runtime, and
3237 -- providing that the aggregate is presented in fully named form.
3239 ----------------------------------------------
3240 -- 4.3.1 Record Component Association List --
3241 ----------------------------------------------
3243 -- RECORD_COMPONENT_ASSOCIATION_LIST ::=
3244 -- RECORD_COMPONENT_ASSOCIATION {, RECORD_COMPONENT_ASSOCIATION}
3247 -- There is no explicit node in the tree for a record component
3248 -- association list. Instead the Null_Record_Present flag is set in
3249 -- the parent node for the NULL RECORD case.
3251 ------------------------------------------------------
3252 -- 4.3.1 Record Component Association (also 4.3.3) --
3253 ------------------------------------------------------
3255 -- RECORD_COMPONENT_ASSOCIATION ::=
3256 -- [COMPONENT_CHOICE_LIST =>] EXPRESSION
3258 -- N_Component_Association
3259 -- Sloc points to first selector name
3261 -- Loop_Actions (List2-Sem)
3262 -- Expression (Node3)
3263 -- Box_Present (Flag15)
3265 -- Note: this structure is used for both record component associations
3266 -- and array component associations, since the two cases aren't always
3267 -- separable by the parser. The choices list may represent either a
3268 -- list of selector names in the record aggregate case, or a list of
3269 -- discrete choices in the array aggregate case or an N_Others_Choice
3270 -- node (which appears as a singleton list). Box_Present gives support
3271 -- to Ada 2005 (AI-287).
3273 ----------------------------------
3274 -- 4.3.1 Component Choice List --
3275 ----------------------------------
3277 -- COMPONENT_CHOICE_LIST ::=
3278 -- component_SELECTOR_NAME {| component_SELECTOR_NAME}
3281 -- The entries of a component choice list appear in the Choices list of
3282 -- the associated N_Component_Association, as either selector names, or
3283 -- as an N_Others_Choice node.
3285 --------------------------------
3286 -- 4.3.2 Extension Aggregate --
3287 --------------------------------
3289 -- EXTENSION_AGGREGATE ::=
3290 -- (ANCESTOR_PART with RECORD_COMPONENT_ASSOCIATION_LIST)
3292 -- Note: extension aggregates are not permitted in Ada 83 mode
3294 -- N_Extension_Aggregate
3295 -- Sloc points to left parenthesis
3296 -- Ancestor_Part (Node3)
3297 -- Associated_Node (Node4-Sem)
3298 -- Expressions (List1) (set to No_List if none or null record case)
3299 -- Component_Associations (List2) (set to No_List if none)
3300 -- Null_Record_Present (Flag17)
3301 -- Expansion_Delayed (Flag11-Sem)
3302 -- Has_Self_Reference (Flag13-Sem)
3303 -- plus fields for expression
3305 --------------------------
3306 -- 4.3.2 Ancestor Part --
3307 --------------------------
3309 -- ANCESTOR_PART ::= EXPRESSION | SUBTYPE_MARK
3311 ----------------------------
3312 -- 4.3.3 Array Aggregate --
3313 ----------------------------
3315 -- ARRAY_AGGREGATE ::=
3316 -- POSITIONAL_ARRAY_AGGREGATE | NAMED_ARRAY_AGGREGATE
3318 ---------------------------------------
3319 -- 4.3.3 Positional Array Aggregate --
3320 ---------------------------------------
3322 -- POSITIONAL_ARRAY_AGGREGATE ::=
3323 -- (EXPRESSION, EXPRESSION {, EXPRESSION})
3324 -- | (EXPRESSION {, EXPRESSION}, others => EXPRESSION)
3326 -- See Record_Aggregate (4.3.1) for node structure
3328 ----------------------------------
3329 -- 4.3.3 Named Array Aggregate --
3330 ----------------------------------
3332 -- NAMED_ARRAY_AGGREGATE ::=
3333 -- | (ARRAY_COMPONENT_ASSOCIATION {, ARRAY_COMPONENT_ASSOCIATION})
3335 -- See Record_Aggregate (4.3.1) for node structure
3337 ----------------------------------------
3338 -- 4.3.3 Array Component Association --
3339 ----------------------------------------
3341 -- ARRAY_COMPONENT_ASSOCIATION ::=
3342 -- DISCRETE_CHOICE_LIST => EXPRESSION
3344 -- See Record_Component_Association (4.3.1) for node structure
3346 --------------------------------------------------
3347 -- 4.4 Expression/Relation/Term/Factor/Primary --
3348 --------------------------------------------------
3351 -- RELATION {and RELATION} | RELATION {and then RELATION}
3352 -- | RELATION {or RELATION} | RELATION {or else RELATION}
3353 -- | RELATION {xor RELATION}
3356 -- SIMPLE_EXPRESSION [RELATIONAL_OPERATOR SIMPLE_EXPRESSION]
3357 -- | SIMPLE_EXPRESSION [not] in RANGE
3358 -- | SIMPLE_EXPRESSION [not] in SUBTYPE_MARK
3360 -- SIMPLE_EXPRESSION ::=
3361 -- [UNARY_ADDING_OPERATOR] TERM {BINARY_ADDING_OPERATOR TERM}
3363 -- TERM ::= FACTOR {MULTIPLYING_OPERATOR FACTOR}
3365 -- FACTOR ::= PRIMARY [** PRIMARY] | abs PRIMARY | not PRIMARY
3367 -- No nodes are generated for any of these constructs. Instead, the
3368 -- node for the operator appears directly. When we refer to an
3369 -- expression in this description, we mean any of the possible
3370 -- constituent components of an expression (e.g. identifier is
3371 -- an example of an expression).
3378 -- NUMERIC_LITERAL | null
3379 -- | STRING_LITERAL | AGGREGATE
3380 -- | NAME | QUALIFIED_EXPRESSION
3381 -- | ALLOCATOR | (EXPRESSION)
3383 -- Usually there is no explicit node in the tree for primary. Instead
3384 -- the constituent (e.g. AGGREGATE) appears directly. There are two
3385 -- exceptions. First, there is an explicit node for a null primary.
3388 -- Sloc points to NULL
3389 -- plus fields for expression
3391 -- Second, the case of (EXPRESSION) is handled specially. Ada requires
3392 -- that the parser keep track of which subexpressions are enclosed
3393 -- in parentheses, and how many levels of parentheses are used. This
3394 -- information is required for optimization purposes, and also for
3395 -- some semantic checks (e.g. (((1))) in a procedure spec does not
3396 -- conform with ((((1)))) in the body).
3398 -- The parentheses are recorded by keeping a Paren_Count field in every
3399 -- subexpression node (it is actually present in all nodes, but only
3400 -- used in subexpression nodes). This count records the number of
3401 -- levels of parentheses. If the number of levels in the source exceeds
3402 -- the maximum accommodated by this count, then the count is simply left
3403 -- at the maximum value. This means that there are some pathological
3404 -- cases of failure to detect conformance failures (e.g. an expression
3405 -- with 500 levels of parens will conform with one with 501 levels),
3406 -- but we do not need to lose sleep over this.
3408 -- Historical note: in versions of GNAT prior to 1.75, there was a node
3409 -- type N_Parenthesized_Expression used to accurately record unlimited
3410 -- numbers of levels of parentheses. However, it turned out to be a
3411 -- real nuisance to have to take into account the possible presence of
3412 -- this node during semantic analysis, since basically parentheses have
3413 -- zero relevance to semantic analysis.
3415 -- Note: the level of parentheses always present in things like
3416 -- aggregates does not count, only the parentheses in the primary
3417 -- (EXPRESSION) affect the setting of the Paren_Count field.
3419 -- 2nd Note: the contents of the Expression field must be ignored (i.e.
3420 -- treated as though it were Empty) if No_Initialization is set True.
3422 --------------------------------------
3423 -- 4.5 Short Circuit Control Forms --
3424 --------------------------------------
3427 -- RELATION {and then RELATION} | RELATION {or else RELATION}
3429 -- Gigi restriction: For both these control forms, the operand and
3430 -- result types are always Standard.Boolean. The expander inserts the
3431 -- required conversion operations where needed to ensure this is the
3435 -- Sloc points to AND of AND THEN
3436 -- Left_Opnd (Node2)
3437 -- Right_Opnd (Node3)
3438 -- Actions (List1-Sem)
3439 -- plus fields for expression
3442 -- Sloc points to OR of OR ELSE
3443 -- Left_Opnd (Node2)
3444 -- Right_Opnd (Node3)
3445 -- Actions (List1-Sem)
3446 -- plus fields for expression
3448 -- Note: The Actions field is used to hold actions associated with
3449 -- the right hand operand. These have to be treated specially since
3450 -- they are not unconditionally executed. See Insert_Actions for a
3451 -- more detailed description of how these actions are handled.
3453 ---------------------------
3454 -- 4.5 Membership Tests --
3455 ---------------------------
3458 -- SIMPLE_EXPRESSION [not] in RANGE
3459 -- | SIMPLE_EXPRESSION [not] in SUBTYPE_MARK
3461 -- Note: although the grammar above allows only a range or a
3462 -- subtype mark, the parser in fact will accept any simple
3463 -- expression in place of a subtype mark. This means that the
3464 -- semantic analyzer must be prepared to deal with, and diagnose
3465 -- a simple expression other than a name for the right operand.
3466 -- This simplifies error recovery in the parser.
3469 -- Sloc points to IN
3470 -- Left_Opnd (Node2)
3471 -- Right_Opnd (Node3)
3472 -- plus fields for expression
3475 -- Sloc points to NOT of NOT IN
3476 -- Left_Opnd (Node2)
3477 -- Right_Opnd (Node3)
3478 -- plus fields for expression
3480 --------------------
3482 --------------------
3484 -- LOGICAL_OPERATOR ::= and | or | xor
3486 -- RELATIONAL_OPERATOR ::= = | /= | < | <= | > | >=
3488 -- BINARY_ADDING_OPERATOR ::= + | - | &
3490 -- UNARY_ADDING_OPERATOR ::= + | -
3492 -- MULTIPLYING_OPERATOR ::= * | / | mod | rem
3494 -- HIGHEST_PRECEDENCE_OPERATOR ::= ** | abs | not
3496 -- Sprint syntax if Treat_Fixed_As_Integer is set:
3503 -- Gigi restriction: For * / mod rem with fixed-point operands, Gigi
3504 -- will only be given nodes with the Treat_Fixed_As_Integer flag set.
3505 -- All handling of smalls for multiplication and division is handled
3506 -- by the front end (mod and rem result only from expansion). Gigi
3507 -- thus never needs to worry about small values (for other operators
3508 -- operating on fixed-point, e.g. addition, the small value does not
3509 -- have any semantic effect anyway, these are always integer operations.
3511 -- Gigi restriction: For all operators taking Boolean operands, the
3512 -- type is always Standard.Boolean. The expander inserts the required
3513 -- conversion operations where needed to ensure this is the case.
3516 -- Sloc points to AND
3517 -- Do_Length_Check (Flag4-Sem)
3518 -- plus fields for binary operator
3519 -- plus fields for expression
3522 -- Sloc points to OR
3523 -- Do_Length_Check (Flag4-Sem)
3524 -- plus fields for binary operator
3525 -- plus fields for expression
3528 -- Sloc points to XOR
3529 -- Do_Length_Check (Flag4-Sem)
3530 -- plus fields for binary operator
3531 -- plus fields for expression
3535 -- plus fields for binary operator
3536 -- plus fields for expression
3539 -- Sloc points to /=
3540 -- plus fields for binary operator
3541 -- plus fields for expression
3545 -- plus fields for binary operator
3546 -- plus fields for expression
3549 -- Sloc points to <=
3550 -- plus fields for binary operator
3551 -- plus fields for expression
3555 -- plus fields for binary operator
3556 -- plus fields for expression
3559 -- Sloc points to >=
3560 -- plus fields for binary operator
3561 -- plus fields for expression
3564 -- Sloc points to + (binary)
3565 -- plus fields for binary operator
3566 -- plus fields for expression
3569 -- Sloc points to - (binary)
3570 -- plus fields for binary operator
3571 -- plus fields for expression
3575 -- Is_Component_Left_Opnd (Flag13-Sem)
3576 -- Is_Component_Right_Opnd (Flag14-Sem)
3577 -- plus fields for binary operator
3578 -- plus fields for expression
3582 -- Treat_Fixed_As_Integer (Flag14-Sem)
3583 -- Rounded_Result (Flag18-Sem)
3584 -- plus fields for binary operator
3585 -- plus fields for expression
3589 -- Treat_Fixed_As_Integer (Flag14-Sem)
3590 -- Do_Division_Check (Flag13-Sem)
3591 -- Rounded_Result (Flag18-Sem)
3592 -- plus fields for binary operator
3593 -- plus fields for expression
3596 -- Sloc points to MOD
3597 -- Treat_Fixed_As_Integer (Flag14-Sem)
3598 -- Do_Division_Check (Flag13-Sem)
3599 -- plus fields for binary operator
3600 -- plus fields for expression
3603 -- Sloc points to REM
3604 -- Treat_Fixed_As_Integer (Flag14-Sem)
3605 -- Do_Division_Check (Flag13-Sem)
3606 -- plus fields for binary operator
3607 -- plus fields for expression
3610 -- Is_Power_Of_2_For_Shift (Flag13-Sem)
3611 -- Sloc points to **
3612 -- plus fields for binary operator
3613 -- plus fields for expression
3616 -- Sloc points to + (unary)
3617 -- plus fields for unary operator
3618 -- plus fields for expression
3621 -- Sloc points to - (unary)
3622 -- plus fields for unary operator
3623 -- plus fields for expression
3626 -- Sloc points to ABS
3627 -- plus fields for unary operator
3628 -- plus fields for expression
3631 -- Sloc points to NOT
3632 -- plus fields for unary operator
3633 -- plus fields for expression
3635 -- See also shift operators in section B.2
3637 -- Note on fixed-point operations passed to Gigi: For adding operators,
3638 -- the semantics is to treat these simply as integer operations, with
3639 -- the small values being ignored (the bounds are already stored in
3640 -- units of small, so that constraint checking works as usual). For the
3641 -- case of multiply/divide/rem/mod operations, Gigi will only see fixed
3642 -- point operands if the Treat_Fixed_As_Integer flag is set and will
3643 -- thus treat these nodes in identical manner, ignoring small values.
3645 --------------------------
3646 -- 4.6 Type Conversion --
3647 --------------------------
3649 -- TYPE_CONVERSION ::=
3650 -- SUBTYPE_MARK (EXPRESSION) | SUBTYPE_MARK (NAME)
3652 -- In the (NAME) case, the name is stored as the expression
3654 -- Note: the parser never generates a type conversion node, since it
3655 -- looks like an indexed component which is generated by preference.
3656 -- The semantic pass must correct this misidentification.
3658 -- Gigi handles conversions that involve no change in the root type,
3659 -- and also all conversions from integer to floating-point types.
3660 -- Conversions from floating-point to integer are only handled in
3661 -- the case where Float_Truncate flag set. Other conversions from
3662 -- floating-point to integer (involving rounding) and all conversions
3663 -- involving fixed-point types are handled by the expander.
3665 -- Sprint syntax if Float_Truncate set: X^(Y)
3666 -- Sprint syntax if Conversion_OK set X?(Y)
3667 -- Sprint syntax if both flags set X?^(Y)
3669 -- Note: If either the operand or result type is fixed-point, Gigi will
3670 -- only see a type conversion node with Conversion_OK set. The front end
3671 -- takes care of all handling of small's for fixed-point conversions.
3673 -- N_Type_Conversion
3674 -- Sloc points to first token of subtype mark
3675 -- Subtype_Mark (Node4)
3676 -- Expression (Node3)
3677 -- Do_Tag_Check (Flag13-Sem)
3678 -- Do_Length_Check (Flag4-Sem)
3679 -- Do_Overflow_Check (Flag17-Sem)
3680 -- Float_Truncate (Flag11-Sem)
3681 -- Rounded_Result (Flag18-Sem)
3682 -- Conversion_OK (Flag14-Sem)
3683 -- plus fields for expression
3685 -- Note: if a range check is required, then the Do_Range_Check flag
3686 -- is set in the Expression with the check being done against the
3687 -- target type range (after the base type conversion, if any).
3689 -------------------------------
3690 -- 4.7 Qualified Expression --
3691 -------------------------------
3693 -- QUALIFIED_EXPRESSION ::=
3694 -- SUBTYPE_MARK ' (EXPRESSION) | SUBTYPE_MARK ' AGGREGATE
3696 -- Note: the parentheses in the (EXPRESSION) case are deemed to enclose
3697 -- the expression, so the Expression field of this node always points
3698 -- to a parenthesized expression in this case (i.e. Paren_Count will
3699 -- always be non-zero for the referenced expression if it is not an
3702 -- N_Qualified_Expression
3703 -- Sloc points to apostrophe
3704 -- Subtype_Mark (Node4)
3705 -- Expression (Node3) expression or aggregate
3706 -- plus fields for expression
3708 --------------------
3710 --------------------
3713 -- new [NULL_EXCLUSION] SUBTYPE_INDICATION | new QUALIFIED_EXPRESSION
3715 -- Sprint syntax (when storage pool present)
3716 -- new xxx (storage_pool = pool)
3719 -- Sloc points to NEW
3720 -- Expression (Node3) subtype indication or qualified expression
3721 -- Storage_Pool (Node1-Sem)
3722 -- Procedure_To_Call (Node2-Sem)
3723 -- Coextensions (Elist4-Sem)
3724 -- Null_Exclusion_Present (Flag11)
3725 -- No_Initialization (Flag13-Sem)
3726 -- Is_Static_Coextension (Flag14-Sem)
3727 -- Do_Storage_Check (Flag17-Sem)
3728 -- Is_Dynamic_Coextension (Flag18-Sem)
3729 -- plus fields for expression
3731 ---------------------------------
3732 -- 5.1 Sequence Of Statements --
3733 ---------------------------------
3735 -- SEQUENCE_OF_STATEMENTS ::= STATEMENT {STATEMENT}
3737 -- Note: Although the parser will not accept a declaration as a
3738 -- statement, the semantic analyzer may insert declarations (e.g.
3739 -- declarations of implicit types needed for execution of other
3740 -- statements) into a sequence of statements, so the code generator
3741 -- should be prepared to accept a declaration where a statement is
3742 -- expected. Note also that pragmas can appear as statements.
3744 --------------------
3746 --------------------
3749 -- {LABEL} SIMPLE_STATEMENT | {LABEL} COMPOUND_STATEMENT
3751 -- There is no explicit node in the tree for a statement. Instead, the
3752 -- individual statement appears directly. Labels are treated as a
3753 -- kind of statement, i.e. they are linked into a statement list at
3754 -- the point they appear, so the labeled statement appears following
3755 -- the label or labels in the statement list.
3757 ---------------------------
3758 -- 5.1 Simple Statement --
3759 ---------------------------
3761 -- SIMPLE_STATEMENT ::= NULL_STATEMENT
3762 -- | ASSIGNMENT_STATEMENT | EXIT_STATEMENT
3763 -- | GOTO_STATEMENT | PROCEDURE_CALL_STATEMENT
3764 -- | SIMPLE_RETURN_STATEMENT | ENTRY_CALL_STATEMENT
3765 -- | REQUEUE_STATEMENT | DELAY_STATEMENT
3766 -- | ABORT_STATEMENT | RAISE_STATEMENT
3769 -----------------------------
3770 -- 5.1 Compound Statement --
3771 -----------------------------
3773 -- COMPOUND_STATEMENT ::=
3774 -- IF_STATEMENT | CASE_STATEMENT
3775 -- | LOOP_STATEMENT | BLOCK_STATEMENT
3776 -- | EXTENDED_RETURN_STATEMENT
3777 -- | ACCEPT_STATEMENT | SELECT_STATEMENT
3779 -------------------------
3780 -- 5.1 Null Statement --
3781 -------------------------
3783 -- NULL_STATEMENT ::= null;
3786 -- Sloc points to NULL
3792 -- LABEL ::= <<label_STATEMENT_IDENTIFIER>>
3794 -- Note that the occurrence of a label is not a defining identifier,
3795 -- but rather a referencing occurrence. The defining occurrence is
3796 -- in the implicit label declaration which occurs in the innermost
3800 -- Sloc points to <<
3801 -- Identifier (Node1) direct name of statement identifier
3802 -- Exception_Junk (Flag8-Sem)
3804 -------------------------------
3805 -- 5.1 Statement Identifier --
3806 -------------------------------
3808 -- STATEMENT_IDENTIFIER ::= DIRECT_NAME
3810 -- The IDENTIFIER of a STATEMENT_IDENTIFIER shall be an identifier
3811 -- (not an OPERATOR_SYMBOL)
3813 -------------------------------
3814 -- 5.2 Assignment Statement --
3815 -------------------------------
3817 -- ASSIGNMENT_STATEMENT ::=
3818 -- variable_NAME := EXPRESSION;
3820 -- N_Assignment_Statement
3821 -- Sloc points to :=
3823 -- Expression (Node3)
3824 -- Do_Tag_Check (Flag13-Sem)
3825 -- Do_Length_Check (Flag4-Sem)
3826 -- Forwards_OK (Flag5-Sem)
3827 -- Backwards_OK (Flag6-Sem)
3828 -- No_Ctrl_Actions (Flag7-Sem)
3830 -- Note: if a range check is required, then the Do_Range_Check flag
3831 -- is set in the Expression (right hand side), with the check being
3832 -- done against the type of the Name (left hand side).
3834 -- Note: the back end places some restrictions on the form of the
3835 -- Expression field. If the object being assigned to is Atomic, then
3836 -- the Expression may not have the form of an aggregate (since this
3837 -- might cause the back end to generate separate assignments). It
3838 -- also cannot be a reference to an object marked as a true constant
3839 -- (Is_True_Constant flag set), where the object is itself initialized
3840 -- with an aggregate. If necessary the front end must generate an
3841 -- extra temporary (with Is_True_Constant set False), and initialize
3842 -- this temporary as required (the temporary itself is not atomic).
3844 -----------------------
3845 -- 5.3 If Statement --
3846 -----------------------
3849 -- if CONDITION then
3850 -- SEQUENCE_OF_STATEMENTS
3851 -- {elsif CONDITION then
3852 -- SEQUENCE_OF_STATEMENTS}
3854 -- SEQUENCE_OF_STATEMENTS]
3857 -- Gigi restriction: This expander ensures that the type of the
3858 -- Condition fields is always Standard.Boolean, even if the type
3859 -- in the source is some non-standard boolean type.
3862 -- Sloc points to IF
3863 -- Condition (Node1)
3864 -- Then_Statements (List2)
3865 -- Elsif_Parts (List3) (set to No_List if none present)
3866 -- Else_Statements (List4) (set to No_List if no else part present)
3867 -- End_Span (Uint5) (set to No_Uint if expander generated)
3870 -- Sloc points to ELSIF
3871 -- Condition (Node1)
3872 -- Then_Statements (List2)
3873 -- Condition_Actions (List3-Sem)
3875 --------------------
3877 --------------------
3879 -- CONDITION ::= boolean_EXPRESSION
3881 -------------------------
3882 -- 5.4 Case Statement --
3883 -------------------------
3885 -- CASE_STATEMENT ::=
3886 -- case EXPRESSION is
3887 -- CASE_STATEMENT_ALTERNATIVE
3888 -- {CASE_STATEMENT_ALTERNATIVE}
3891 -- Note: the Alternatives can contain pragmas. These only occur at
3892 -- the start of the list, since any pragmas occurring after the first
3893 -- alternative are absorbed into the corresponding statement sequence.
3896 -- Sloc points to CASE
3897 -- Expression (Node3)
3898 -- Alternatives (List4)
3899 -- End_Span (Uint5) (set to No_Uint if expander generated)
3901 -------------------------------------
3902 -- 5.4 Case Statement Alternative --
3903 -------------------------------------
3905 -- CASE_STATEMENT_ALTERNATIVE ::=
3906 -- when DISCRETE_CHOICE_LIST =>
3907 -- SEQUENCE_OF_STATEMENTS
3909 -- N_Case_Statement_Alternative
3910 -- Sloc points to WHEN
3911 -- Discrete_Choices (List4)
3912 -- Statements (List3)
3914 -------------------------
3915 -- 5.5 Loop Statement --
3916 -------------------------
3918 -- LOOP_STATEMENT ::=
3919 -- [loop_STATEMENT_IDENTIFIER :]
3920 -- [ITERATION_SCHEME] loop
3921 -- SEQUENCE_OF_STATEMENTS
3922 -- end loop [loop_IDENTIFIER];
3924 -- Note: The occurrence of a loop label is not a defining identifier
3925 -- but rather a referencing occurrence. The defining occurrence is in
3926 -- the implicit label declaration which occurs in the innermost
3929 -- Note: there is always a loop statement identifier present in
3930 -- the tree, even if none was given in the source. In the case where
3931 -- no loop identifier is given in the source, the parser creates
3932 -- a name of the form _Loop_n, where n is a decimal integer (the
3933 -- two underlines ensure that the loop names created in this manner
3934 -- do not conflict with any user defined identifiers), and the flag
3935 -- Has_Created_Identifier is set to True. The only exception to the
3936 -- rule that all loop statement nodes have identifiers occurs for
3937 -- loops constructed by the expander, and the semantic analyzer will
3938 -- create and supply dummy loop identifiers in these cases.
3941 -- Sloc points to LOOP
3942 -- Identifier (Node1) loop identifier (set to Empty if no identifier)
3943 -- Iteration_Scheme (Node2) (set to Empty if no iteration scheme)
3944 -- Statements (List3)
3945 -- End_Label (Node4)
3946 -- Has_Created_Identifier (Flag15)
3947 -- Is_Null_Loop (Flag16)
3948 -- Suppress_Loop_Warnings (Flag17)
3950 --------------------------
3951 -- 5.5 Iteration Scheme --
3952 --------------------------
3954 -- ITERATION_SCHEME ::=
3955 -- while CONDITION | for LOOP_PARAMETER_SPECIFICATION
3957 -- Gigi restriction: This expander ensures that the type of the
3958 -- Condition field is always Standard.Boolean, even if the type
3959 -- in the source is some non-standard boolean type.
3961 -- N_Iteration_Scheme
3962 -- Sloc points to WHILE or FOR
3963 -- Condition (Node1) (set to Empty if FOR case)
3964 -- Condition_Actions (List3-Sem)
3965 -- Loop_Parameter_Specification (Node4) (set to Empty if WHILE case)
3967 ---------------------------------------
3968 -- 5.5 Loop parameter specification --
3969 ---------------------------------------
3971 -- LOOP_PARAMETER_SPECIFICATION ::=
3972 -- DEFINING_IDENTIFIER in [reverse] DISCRETE_SUBTYPE_DEFINITION
3974 -- N_Loop_Parameter_Specification
3975 -- Sloc points to first identifier
3976 -- Defining_Identifier (Node1)
3977 -- Reverse_Present (Flag15)
3978 -- Discrete_Subtype_Definition (Node4)
3980 --------------------------
3981 -- 5.6 Block Statement --
3982 --------------------------
3984 -- BLOCK_STATEMENT ::=
3985 -- [block_STATEMENT_IDENTIFIER:]
3987 -- DECLARATIVE_PART]
3989 -- HANDLED_SEQUENCE_OF_STATEMENTS
3990 -- end [block_IDENTIFIER];
3992 -- Note that the occurrence of a block identifier is not a defining
3993 -- identifier, but rather a referencing occurrence. The defining
3994 -- occurrence is an E_Block entity declared by the implicit label
3995 -- declaration which occurs in the innermost enclosing block statement
3996 -- or body; the block identifier denotes that E_Block.
3998 -- For block statements that come from source code, there is always a
3999 -- block statement identifier present in the tree, denoting an
4000 -- E_Block. In the case where no block identifier is given in the
4001 -- source, the parser creates a name of the form B_n, where n is a
4002 -- decimal integer, and the flag Has_Created_Identifier is set to
4003 -- True. Blocks constructed by the expander usually have no identifier,
4004 -- and no corresponding entity.
4006 -- Note: the block statement created for an extended return statement
4007 -- has an entity, and this entity is an E_Return_Statement, rather than
4008 -- the usual E_Block.
4010 -- Note: Exception_Junk is set for the wrapping blocks created during
4011 -- local raise optimization (Exp_Ch11.Expand_Local_Exception_Handlers).
4013 -- N_Block_Statement
4014 -- Sloc points to DECLARE or BEGIN
4015 -- Identifier (Node1) block direct name (set to Empty if not present)
4016 -- Declarations (List2) (set to No_List if no DECLARE part)
4017 -- Handled_Statement_Sequence (Node4)
4018 -- Is_Task_Master (Flag5-Sem)
4019 -- Activation_Chain_Entity (Node3-Sem)
4020 -- Has_Created_Identifier (Flag15)
4021 -- Is_Task_Allocation_Block (Flag6)
4022 -- Is_Asynchronous_Call_Block (Flag7)
4023 -- Exception_Junk (Flag8-Sem)
4025 -------------------------
4026 -- 5.7 Exit Statement --
4027 -------------------------
4029 -- EXIT_STATEMENT ::= exit [loop_NAME] [when CONDITION];
4031 -- Gigi restriction: This expander ensures that the type of the
4032 -- Condition field is always Standard.Boolean, even if the type
4033 -- in the source is some non-standard boolean type.
4036 -- Sloc points to EXIT
4037 -- Name (Node2) (set to Empty if no loop name present)
4038 -- Condition (Node1) (set to Empty if no when part present)
4040 -------------------------
4041 -- 5.9 Goto Statement --
4042 -------------------------
4044 -- GOTO_STATEMENT ::= goto label_NAME;
4047 -- Sloc points to GOTO
4049 -- Exception_Junk (Flag8-Sem)
4051 ---------------------------------
4052 -- 6.1 Subprogram Declaration --
4053 ---------------------------------
4055 -- SUBPROGRAM_DECLARATION ::= SUBPROGRAM_SPECIFICATION;
4057 -- N_Subprogram_Declaration
4058 -- Sloc points to FUNCTION or PROCEDURE
4059 -- Specification (Node1)
4060 -- Body_To_Inline (Node3-Sem)
4061 -- Corresponding_Body (Node5-Sem)
4062 -- Parent_Spec (Node4-Sem)
4064 ------------------------------------------
4065 -- 6.1 Abstract Subprogram Declaration --
4066 ------------------------------------------
4068 -- ABSTRACT_SUBPROGRAM_DECLARATION ::=
4069 -- SUBPROGRAM_SPECIFICATION is abstract;
4071 -- N_Abstract_Subprogram_Declaration
4072 -- Sloc points to ABSTRACT
4073 -- Specification (Node1)
4075 -----------------------------------
4076 -- 6.1 Subprogram Specification --
4077 -----------------------------------
4079 -- SUBPROGRAM_SPECIFICATION ::=
4080 -- [[not] overriding]
4081 -- procedure DEFINING_PROGRAM_UNIT_NAME PARAMETER_PROFILE
4082 -- | [[not] overriding]
4083 -- function DEFINING_DESIGNATOR PARAMETER_AND_RESULT_PROFILE
4085 -- Note: there are no separate nodes for the profiles, instead the
4086 -- information appears directly in the following nodes.
4088 -- N_Function_Specification
4089 -- Sloc points to FUNCTION
4090 -- Defining_Unit_Name (Node1) (the designator)
4091 -- Elaboration_Boolean (Node2-Sem)
4092 -- Parameter_Specifications (List3) (set to No_List if no formal part)
4093 -- Null_Exclusion_Present (Flag11)
4094 -- Result_Definition (Node4) for result subtype
4095 -- Generic_Parent (Node5-Sem)
4096 -- Must_Override (Flag14) set if overriding indicator present
4097 -- Must_Not_Override (Flag15) set if not_overriding indicator present
4099 -- N_Procedure_Specification
4100 -- Sloc points to PROCEDURE
4101 -- Defining_Unit_Name (Node1)
4102 -- Elaboration_Boolean (Node2-Sem)
4103 -- Parameter_Specifications (List3) (set to No_List if no formal part)
4104 -- Generic_Parent (Node5-Sem)
4105 -- Null_Present (Flag13) set for null procedure case (Ada 2005 feature)
4106 -- Must_Override (Flag14) set if overriding indicator present
4107 -- Must_Not_Override (Flag15) set if not_overriding indicator present
4109 -- Note: overriding indicator is an Ada 2005 feature
4111 ---------------------
4112 -- 6.1 Designator --
4113 ---------------------
4116 -- [PARENT_UNIT_NAME .] IDENTIFIER | OPERATOR_SYMBOL
4118 -- Designators that are simply identifiers or operator symbols appear
4119 -- directly in the tree in this form. The following node is used only
4120 -- in the case where the designator has a parent unit name component.
4123 -- Sloc points to period
4124 -- Name (Node2) holds the parent unit name. Note that this is always
4125 -- non-Empty, since this node is only used for the case where a
4126 -- parent library unit package name is present.
4127 -- Identifier (Node1)
4129 -- Note that the identifier can also be an operator symbol here
4131 ------------------------------
4132 -- 6.1 Defining Designator --
4133 ------------------------------
4135 -- DEFINING_DESIGNATOR ::=
4136 -- DEFINING_PROGRAM_UNIT_NAME | DEFINING_OPERATOR_SYMBOL
4138 -------------------------------------
4139 -- 6.1 Defining Program Unit Name --
4140 -------------------------------------
4142 -- DEFINING_PROGRAM_UNIT_NAME ::=
4143 -- [PARENT_UNIT_NAME .] DEFINING_IDENTIFIER
4145 -- The parent unit name is present only in the case of a child unit
4146 -- name (permissible only for Ada 95 for a library level unit, i.e.
4147 -- a unit at scope level one). If no such name is present, the defining
4148 -- program unit name is represented simply as the defining identifier.
4149 -- In the child unit case, the following node is used to represent the
4152 -- N_Defining_Program_Unit_Name
4153 -- Sloc points to period
4154 -- Name (Node2) holds the parent unit name. Note that this is always
4155 -- non-Empty, since this node is only used for the case where a
4156 -- parent unit name is present.
4157 -- Defining_Identifier (Node1)
4159 --------------------------
4160 -- 6.1 Operator Symbol --
4161 --------------------------
4163 -- OPERATOR_SYMBOL ::= STRING_LITERAL
4165 -- Note: the fields of the N_Operator_Symbol node are laid out to
4166 -- match the corresponding fields of an N_Character_Literal node. This
4167 -- allows easy conversion of the operator symbol node into a character
4168 -- literal node in the case where a string constant of the form of an
4169 -- operator symbol is scanned out as such, but turns out semantically
4170 -- to be a string literal that is not an operator. For details see
4171 -- Sinfo.CN.Change_Operator_Symbol_To_String_Literal.
4173 -- N_Operator_Symbol
4174 -- Sloc points to literal
4175 -- Chars (Name1) contains the Name_Id for the operator symbol
4176 -- Strval (Str3) Id of string value. This is used if the operator
4177 -- symbol turns out to be a normal string after all.
4178 -- Entity (Node4-Sem)
4179 -- Associated_Node (Node4-Sem)
4180 -- Has_Private_View (Flag11-Sem) set in generic units.
4181 -- Etype (Node5-Sem)
4183 -- Note: the Strval field may be set to No_String for generated
4184 -- operator symbols that are known not to be string literals
4187 -----------------------------------
4188 -- 6.1 Defining Operator Symbol --
4189 -----------------------------------
4191 -- DEFINING_OPERATOR_SYMBOL ::= OPERATOR_SYMBOL
4193 -- A defining operator symbol is an entity, which has additional
4194 -- fields depending on the setting of the Ekind field. These
4195 -- additional fields are defined (and access subprograms declared)
4196 -- in package Einfo.
4198 -- Note: N_Defining_Operator_Symbol is an extended node whose fields
4199 -- are deliberately layed out to match the layout of fields in an
4200 -- ordinary N_Operator_Symbol node allowing for easy alteration of
4201 -- an operator symbol node into a defining operator symbol node.
4202 -- See Sinfo.CN.Change_Operator_Symbol_To_Defining_Operator_Symbol
4203 -- for further details.
4205 -- N_Defining_Operator_Symbol
4206 -- Sloc points to literal
4207 -- Chars (Name1) contains the Name_Id for the operator symbol
4208 -- Next_Entity (Node2-Sem)
4209 -- Scope (Node3-Sem)
4210 -- Etype (Node5-Sem)
4212 ----------------------------
4213 -- 6.1 Parameter Profile --
4214 ----------------------------
4216 -- PARAMETER_PROFILE ::= [FORMAL_PART]
4218 ---------------------------------------
4219 -- 6.1 Parameter and Result Profile --
4220 ---------------------------------------
4222 -- PARAMETER_AND_RESULT_PROFILE ::=
4223 -- [FORMAL_PART] return [NULL_EXCLUSION] SUBTYPE_MARK
4224 -- | [FORMAL_PART] return ACCESS_DEFINITION
4226 -- There is no explicit node in the tree for a parameter and result
4227 -- profile. Instead the information appears directly in the parent.
4229 ----------------------
4230 -- 6.1 Formal part --
4231 ----------------------
4234 -- (PARAMETER_SPECIFICATION {; PARAMETER_SPECIFICATION})
4236 ----------------------------------
4237 -- 6.1 Parameter specification --
4238 ----------------------------------
4240 -- PARAMETER_SPECIFICATION ::=
4241 -- DEFINING_IDENTIFIER_LIST : MODE [NULL_EXCLUSION] SUBTYPE_MARK
4242 -- [:= DEFAULT_EXPRESSION]
4243 -- | DEFINING_IDENTIFIER_LIST : ACCESS_DEFINITION
4244 -- [:= DEFAULT_EXPRESSION]
4246 -- Although the syntax allows multiple identifiers in the list, the
4247 -- semantics is as though successive specifications were given with
4248 -- identical type definition and expression components. To simplify
4249 -- semantic processing, the parser represents a multiple declaration
4250 -- case as a sequence of single Specifications, using the More_Ids and
4251 -- Prev_Ids flags to preserve the original source form as described
4252 -- in the section on "Handling of Defining Identifier Lists".
4254 -- N_Parameter_Specification
4255 -- Sloc points to first identifier
4256 -- Defining_Identifier (Node1)
4257 -- In_Present (Flag15)
4258 -- Out_Present (Flag17)
4259 -- Null_Exclusion_Present (Flag11)
4260 -- Parameter_Type (Node2) subtype mark or access definition
4261 -- Expression (Node3) (set to Empty if no default expression present)
4262 -- Do_Accessibility_Check (Flag13-Sem)
4263 -- More_Ids (Flag5) (set to False if no more identifiers in list)
4264 -- Prev_Ids (Flag6) (set to False if no previous identifiers in list)
4265 -- Default_Expression (Node5-Sem)
4271 -- MODE ::= [in] | in out | out
4273 -- There is no explicit node in the tree for the Mode. Instead the
4274 -- In_Present and Out_Present flags are set in the parent node to
4275 -- record the presence of keywords specifying the mode.
4277 --------------------------
4278 -- 6.3 Subprogram Body --
4279 --------------------------
4281 -- SUBPROGRAM_BODY ::=
4282 -- SUBPROGRAM_SPECIFICATION is
4285 -- HANDLED_SEQUENCE_OF_STATEMENTS
4286 -- end [DESIGNATOR];
4288 -- N_Subprogram_Body
4289 -- Sloc points to FUNCTION or PROCEDURE
4290 -- Specification (Node1)
4291 -- Declarations (List2)
4292 -- Handled_Statement_Sequence (Node4)
4293 -- Activation_Chain_Entity (Node3-Sem)
4294 -- Corresponding_Spec (Node5-Sem)
4295 -- Acts_As_Spec (Flag4-Sem)
4296 -- Bad_Is_Detected (Flag15) used only by parser
4297 -- Do_Storage_Check (Flag17-Sem)
4298 -- Has_Priority_Pragma (Flag6-Sem)
4299 -- Is_Protected_Subprogram_Body (Flag7-Sem)
4300 -- Is_Entry_Barrier_Function (Flag8-Sem)
4301 -- Is_Task_Master (Flag5-Sem)
4302 -- Was_Originally_Stub (Flag13-Sem)
4303 -- Has_Relative_Deadline_Pragma (Flag9-Sem)
4305 -----------------------------------
4306 -- 6.4 Procedure Call Statement --
4307 -----------------------------------
4309 -- PROCEDURE_CALL_STATEMENT ::=
4310 -- procedure_NAME; | procedure_PREFIX ACTUAL_PARAMETER_PART;
4312 -- Note: the reason that a procedure call has expression fields is
4313 -- that it semantically resembles an expression, e.g. overloading is
4314 -- allowed and a type is concocted for semantic processing purposes.
4315 -- Certain of these fields, such as Parens are not relevant, but it
4316 -- is easier to just supply all of them together!
4318 -- N_Procedure_Call_Statement
4319 -- Sloc points to first token of name or prefix
4320 -- Name (Node2) stores name or prefix
4321 -- Parameter_Associations (List3) (set to No_List if no
4322 -- actual parameter part)
4323 -- First_Named_Actual (Node4-Sem)
4324 -- Controlling_Argument (Node1-Sem) (set to Empty if not dispatching)
4325 -- Do_Tag_Check (Flag13-Sem)
4326 -- No_Elaboration_Check (Flag14-Sem)
4327 -- Parameter_List_Truncated (Flag17-Sem)
4328 -- ABE_Is_Certain (Flag18-Sem)
4329 -- plus fields for expression
4331 -- If any IN parameter requires a range check, then the corresponding
4332 -- argument expression has the Do_Range_Check flag set, and the range
4333 -- check is done against the formal type. Note that this argument
4334 -- expression may appear directly in the Parameter_Associations list,
4335 -- or may be a descendent of an N_Parameter_Association node that
4336 -- appears in this list.
4338 ------------------------
4339 -- 6.4 Function Call --
4340 ------------------------
4342 -- FUNCTION_CALL ::=
4343 -- function_NAME | function_PREFIX ACTUAL_PARAMETER_PART
4345 -- Note: the parser may generate an indexed component node or simply
4346 -- a name node instead of a function call node. The semantic pass must
4347 -- correct this misidentification.
4350 -- Sloc points to first token of name or prefix
4351 -- Name (Node2) stores name or prefix
4352 -- Parameter_Associations (List3) (set to No_List if no
4353 -- actual parameter part)
4354 -- First_Named_Actual (Node4-Sem)
4355 -- Controlling_Argument (Node1-Sem) (set to Empty if not dispatching)
4356 -- Is_Expanded_Build_In_Place_Call (Flag11-Sem)
4357 -- Do_Tag_Check (Flag13-Sem)
4358 -- No_Elaboration_Check (Flag14-Sem)
4359 -- Parameter_List_Truncated (Flag17-Sem)
4360 -- ABE_Is_Certain (Flag18-Sem)
4361 -- plus fields for expression
4363 --------------------------------
4364 -- 6.4 Actual Parameter Part --
4365 --------------------------------
4367 -- ACTUAL_PARAMETER_PART ::=
4368 -- (PARAMETER_ASSOCIATION {,PARAMETER_ASSOCIATION})
4370 --------------------------------
4371 -- 6.4 Parameter Association --
4372 --------------------------------
4374 -- PARAMETER_ASSOCIATION ::=
4375 -- [formal_parameter_SELECTOR_NAME =>] EXPLICIT_ACTUAL_PARAMETER
4377 -- Note: the N_Parameter_Association node is built only if a formal
4378 -- parameter selector name is present, otherwise the parameter
4379 -- association appears in the tree simply as the node for the
4380 -- explicit actual parameter.
4382 -- N_Parameter_Association
4383 -- Sloc points to formal parameter
4384 -- Selector_Name (Node2) (always non-Empty)
4385 -- Explicit_Actual_Parameter (Node3)
4386 -- Next_Named_Actual (Node4-Sem)
4388 ---------------------------
4389 -- 6.4 Actual Parameter --
4390 ---------------------------
4392 -- EXPLICIT_ACTUAL_PARAMETER ::= EXPRESSION | variable_NAME
4394 ---------------------------
4395 -- 6.5 Return Statement --
4396 ---------------------------
4398 -- RETURN_STATEMENT ::= return [EXPRESSION]; -- Ada 95
4400 -- In Ada 2005, we have:
4402 -- SIMPLE_RETURN_STATEMENT ::= return [EXPRESSION];
4404 -- EXTENDED_RETURN_STATEMENT ::=
4405 -- return DEFINING_IDENTIFIER : [aliased] RETURN_SUBTYPE_INDICATION
4406 -- [:= EXPRESSION] [do
4407 -- HANDLED_SEQUENCE_OF_STATEMENTS
4410 -- RETURN_SUBTYPE_INDICATION ::= SUBTYPE_INDICATION | ACCESS_DEFINITION
4412 -- So in Ada 2005, RETURN_STATEMENT is no longer a nonterminal, but
4413 -- "return statement" is defined in 6.5 to mean a
4414 -- SIMPLE_RETURN_STATEMENT or an EXTENDED_RETURN_STATEMENT.
4416 -- N_Return_Statement
4417 -- Sloc points to RETURN
4418 -- Return_Statement_Entity (Node5-Sem)
4419 -- Expression (Node3) (set to Empty if no expression present)
4420 -- Storage_Pool (Node1-Sem)
4421 -- Procedure_To_Call (Node2-Sem)
4422 -- Do_Tag_Check (Flag13-Sem)
4423 -- By_Ref (Flag5-Sem)
4424 -- Comes_From_Extended_Return_Statement (Flag18-Sem)
4426 -- N_Return_Statement represents a simple_return_statement, and is
4427 -- renamed to be N_Simple_Return_Statement below. Clients should refer
4428 -- to N_Simple_Return_Statement. We retain N_Return_Statement because
4429 -- that's how gigi knows it. See also renaming of Make_Return_Statement
4430 -- as Make_Simple_Return_Statement in Sem_Util.
4432 -- Note: Return_Statement_Entity points to an E_Return_Statement
4434 -- If a range check is required, then Do_Range_Check is set on the
4435 -- Expression. The check is against the return subtype of the function.
4437 -- N_Extended_Return_Statement
4438 -- Sloc points to RETURN
4439 -- Return_Statement_Entity (Node5-Sem)
4440 -- Return_Object_Declarations (List3)
4441 -- Handled_Statement_Sequence (Node4) (set to Empty if not present)
4442 -- Storage_Pool (Node1-Sem)
4443 -- Procedure_To_Call (Node2-Sem)
4444 -- Do_Tag_Check (Flag13-Sem)
4445 -- By_Ref (Flag5-Sem)
4447 -- Note: Return_Statement_Entity points to an E_Return_Statement.
4448 -- Note that Return_Object_Declarations is a list containing the
4449 -- N_Object_Declaration -- see comment on this field above.
4450 -- The declared object will have Is_Return_Object = True.
4451 -- There is no such syntactic category as return_object_declaration
4452 -- in the RM. Return_Object_Declarations represents this portion of
4453 -- the syntax for EXTENDED_RETURN_STATEMENT:
4454 -- DEFINING_IDENTIFIER : [aliased] RETURN_SUBTYPE_INDICATION
4457 -- There are two entities associated with an extended_return_statement:
4458 -- the Return_Statement_Entity represents the statement itself, and the
4459 -- Defining_Identifier of the Object_Declaration in
4460 -- Return_Object_Declarations represents the object being
4461 -- returned. N_Simple_Return_Statement has only the former.
4463 ------------------------------
4464 -- 7.1 Package Declaration --
4465 ------------------------------
4467 -- PACKAGE_DECLARATION ::= PACKAGE_SPECIFICATION;
4469 -- Note: the activation chain entity for a package spec is used for
4470 -- all tasks declared in the package spec, or in the package body.
4472 -- N_Package_Declaration
4473 -- Sloc points to PACKAGE
4474 -- Specification (Node1)
4475 -- Corresponding_Body (Node5-Sem)
4476 -- Parent_Spec (Node4-Sem)
4477 -- Activation_Chain_Entity (Node3-Sem)
4479 --------------------------------
4480 -- 7.1 Package Specification --
4481 --------------------------------
4483 -- PACKAGE_SPECIFICATION ::=
4484 -- package DEFINING_PROGRAM_UNIT_NAME is
4485 -- {BASIC_DECLARATIVE_ITEM}
4487 -- {BASIC_DECLARATIVE_ITEM}]
4488 -- end [[PARENT_UNIT_NAME .] IDENTIFIER]
4490 -- N_Package_Specification
4491 -- Sloc points to PACKAGE
4492 -- Defining_Unit_Name (Node1)
4493 -- Visible_Declarations (List2)
4494 -- Private_Declarations (List3) (set to No_List if no private
4496 -- End_Label (Node4)
4497 -- Generic_Parent (Node5-Sem)
4498 -- Limited_View_Installed (Flag18-Sem)
4500 -----------------------
4501 -- 7.1 Package Body --
4502 -----------------------
4505 -- package body DEFINING_PROGRAM_UNIT_NAME is
4508 -- HANDLED_SEQUENCE_OF_STATEMENTS]
4509 -- end [[PARENT_UNIT_NAME .] IDENTIFIER];
4512 -- Sloc points to PACKAGE
4513 -- Defining_Unit_Name (Node1)
4514 -- Declarations (List2)
4515 -- Handled_Statement_Sequence (Node4) (set to Empty if no HSS present)
4516 -- Corresponding_Spec (Node5-Sem)
4517 -- Was_Originally_Stub (Flag13-Sem)
4519 -- Note: if a source level package does not contain a handled sequence
4520 -- of statements, then the parser supplies a dummy one with a null
4521 -- sequence of statements. Comes_From_Source will be False in this
4522 -- constructed sequence. The reason we need this is for the End_Label
4523 -- field in the HSS.
4525 -----------------------------------
4526 -- 7.4 Private Type Declaration --
4527 -----------------------------------
4529 -- PRIVATE_TYPE_DECLARATION ::=
4530 -- type DEFINING_IDENTIFIER [DISCRIMINANT_PART]
4531 -- is [[abstract] tagged] [limited] private;
4533 -- Note: TAGGED is not permitted in Ada 83 mode
4535 -- N_Private_Type_Declaration
4536 -- Sloc points to TYPE
4537 -- Defining_Identifier (Node1)
4538 -- Discriminant_Specifications (List4) (set to No_List if no
4539 -- discriminant part)
4540 -- Unknown_Discriminants_Present (Flag13) set if (<>) discriminant
4541 -- Abstract_Present (Flag4)
4542 -- Tagged_Present (Flag15)
4543 -- Limited_Present (Flag17)
4545 ----------------------------------------
4546 -- 7.4 Private Extension Declaration --
4547 ----------------------------------------
4549 -- PRIVATE_EXTENSION_DECLARATION ::=
4550 -- type DEFINING_IDENTIFIER [DISCRIMINANT_PART] is
4551 -- [abstract] [limited | synchronized]
4552 -- new ancestor_SUBTYPE_INDICATION [and INTERFACE_LIST]
4555 -- Note: LIMITED, and private extension declarations are not allowed
4558 -- N_Private_Extension_Declaration
4559 -- Sloc points to TYPE
4560 -- Defining_Identifier (Node1)
4561 -- Discriminant_Specifications (List4) (set to No_List if no
4562 -- discriminant part)
4563 -- Unknown_Discriminants_Present (Flag13) set if (<>) discriminant
4564 -- Abstract_Present (Flag4)
4565 -- Limited_Present (Flag17)
4566 -- Synchronized_Present (Flag7)
4567 -- Subtype_Indication (Node5)
4568 -- Interface_List (List2) (set to No_List if none)
4570 ---------------------
4571 -- 8.4 Use Clause --
4572 ---------------------
4574 -- USE_CLAUSE ::= USE_PACKAGE_CLAUSE | USE_TYPE_CLAUSE
4576 -----------------------------
4577 -- 8.4 Use Package Clause --
4578 -----------------------------
4580 -- USE_PACKAGE_CLAUSE ::= use package_NAME {, package_NAME};
4582 -- N_Use_Package_Clause
4583 -- Sloc points to USE
4585 -- Next_Use_Clause (Node3-Sem)
4586 -- Hidden_By_Use_Clause (Elist4-Sem)
4588 --------------------------
4589 -- 8.4 Use Type Clause --
4590 --------------------------
4592 -- USE_TYPE_CLAUSE ::= use type SUBTYPE_MARK {, SUBTYPE_MARK};
4594 -- Note: use type clause is not permitted in Ada 83 mode
4596 -- N_Use_Type_Clause
4597 -- Sloc points to USE
4598 -- Subtype_Marks (List2)
4599 -- Next_Use_Clause (Node3-Sem)
4600 -- Hidden_By_Use_Clause (Elist4-Sem)
4602 -------------------------------
4603 -- 8.5 Renaming Declaration --
4604 -------------------------------
4606 -- RENAMING_DECLARATION ::=
4607 -- OBJECT_RENAMING_DECLARATION
4608 -- | EXCEPTION_RENAMING_DECLARATION
4609 -- | PACKAGE_RENAMING_DECLARATION
4610 -- | SUBPROGRAM_RENAMING_DECLARATION
4611 -- | GENERIC_RENAMING_DECLARATION
4613 --------------------------------------
4614 -- 8.5 Object Renaming Declaration --
4615 --------------------------------------
4617 -- OBJECT_RENAMING_DECLARATION ::=
4618 -- DEFINING_IDENTIFIER :
4619 -- [NULL_EXCLUSION] SUBTYPE_MARK renames object_NAME;
4620 -- | DEFINING_IDENTIFIER :
4621 -- ACCESS_DEFINITION renames object_NAME;
4623 -- Note: Access_Definition is an optional field that gives support to
4624 -- Ada 2005 (AI-230). The parser generates nodes that have either the
4625 -- Subtype_Indication field or else the Access_Definition field.
4627 -- N_Object_Renaming_Declaration
4628 -- Sloc points to first identifier
4629 -- Defining_Identifier (Node1)
4630 -- Null_Exclusion_Present (Flag11) (set to False if not present)
4631 -- Subtype_Mark (Node4) (set to Empty if not present)
4632 -- Access_Definition (Node3) (set to Empty if not present)
4634 -- Corresponding_Generic_Association (Node5-Sem)
4636 -----------------------------------------
4637 -- 8.5 Exception Renaming Declaration --
4638 -----------------------------------------
4640 -- EXCEPTION_RENAMING_DECLARATION ::=
4641 -- DEFINING_IDENTIFIER : exception renames exception_NAME;
4643 -- N_Exception_Renaming_Declaration
4644 -- Sloc points to first identifier
4645 -- Defining_Identifier (Node1)
4648 ---------------------------------------
4649 -- 8.5 Package Renaming Declaration --
4650 ---------------------------------------
4652 -- PACKAGE_RENAMING_DECLARATION ::=
4653 -- package DEFINING_PROGRAM_UNIT_NAME renames package_NAME;
4655 -- N_Package_Renaming_Declaration
4656 -- Sloc points to PACKAGE
4657 -- Defining_Unit_Name (Node1)
4659 -- Parent_Spec (Node4-Sem)
4661 ------------------------------------------
4662 -- 8.5 Subprogram Renaming Declaration --
4663 ------------------------------------------
4665 -- SUBPROGRAM_RENAMING_DECLARATION ::=
4666 -- SUBPROGRAM_SPECIFICATION renames callable_entity_NAME;
4668 -- N_Subprogram_Renaming_Declaration
4669 -- Sloc points to RENAMES
4670 -- Specification (Node1)
4672 -- Parent_Spec (Node4-Sem)
4673 -- Corresponding_Spec (Node5-Sem)
4674 -- Corresponding_Formal_Spec (Node3-Sem)
4675 -- From_Default (Flag6-Sem)
4677 -----------------------------------------
4678 -- 8.5.5 Generic Renaming Declaration --
4679 -----------------------------------------
4681 -- GENERIC_RENAMING_DECLARATION ::=
4682 -- generic package DEFINING_PROGRAM_UNIT_NAME
4683 -- renames generic_package_NAME
4684 -- | generic procedure DEFINING_PROGRAM_UNIT_NAME
4685 -- renames generic_procedure_NAME
4686 -- | generic function DEFINING_PROGRAM_UNIT_NAME
4687 -- renames generic_function_NAME
4689 -- N_Generic_Package_Renaming_Declaration
4690 -- Sloc points to GENERIC
4691 -- Defining_Unit_Name (Node1)
4693 -- Parent_Spec (Node4-Sem)
4695 -- N_Generic_Procedure_Renaming_Declaration
4696 -- Sloc points to GENERIC
4697 -- Defining_Unit_Name (Node1)
4699 -- Parent_Spec (Node4-Sem)
4701 -- N_Generic_Function_Renaming_Declaration
4702 -- Sloc points to GENERIC
4703 -- Defining_Unit_Name (Node1)
4705 -- Parent_Spec (Node4-Sem)
4707 --------------------------------
4708 -- 9.1 Task Type Declaration --
4709 --------------------------------
4711 -- TASK_TYPE_DECLARATION ::=
4712 -- task type DEFINING_IDENTIFIER [KNOWN_DISCRIMINANT_PART]
4713 -- [is [new INTERFACE_LIST with] TASK_DEFINITION];
4715 -- N_Task_Type_Declaration
4716 -- Sloc points to TASK
4717 -- Defining_Identifier (Node1)
4718 -- Discriminant_Specifications (List4) (set to No_List if no
4719 -- discriminant part)
4720 -- Interface_List (List2) (set to No_List if none)
4721 -- Task_Definition (Node3) (set to Empty if not present)
4722 -- Corresponding_Body (Node5-Sem)
4724 ----------------------------------
4725 -- 9.1 Single Task Declaration --
4726 ----------------------------------
4728 -- SINGLE_TASK_DECLARATION ::=
4729 -- task DEFINING_IDENTIFIER
4730 -- [is [new INTERFACE_LIST with] TASK_DEFINITION];
4732 -- N_Single_Task_Declaration
4733 -- Sloc points to TASK
4734 -- Defining_Identifier (Node1)
4735 -- Interface_List (List2) (set to No_List if none)
4736 -- Task_Definition (Node3) (set to Empty if not present)
4738 --------------------------
4739 -- 9.1 Task Definition --
4740 --------------------------
4742 -- TASK_DEFINITION ::=
4746 -- end [task_IDENTIFIER]
4748 -- Note: as a result of semantic analysis, the list of task items can
4749 -- include implicit type declarations resulting from entry families.
4751 -- N_Task_Definition
4752 -- Sloc points to first token of task definition
4753 -- Visible_Declarations (List2)
4754 -- Private_Declarations (List3) (set to No_List if no private part)
4755 -- End_Label (Node4)
4756 -- Has_Priority_Pragma (Flag6-Sem)
4757 -- Has_Storage_Size_Pragma (Flag5-Sem)
4758 -- Has_Task_Info_Pragma (Flag7-Sem)
4759 -- Has_Task_Name_Pragma (Flag8-Sem)
4760 -- Has_Relative_Deadline_Pragma (Flag9-Sem)
4762 --------------------
4764 --------------------
4766 -- TASK_ITEM ::= ENTRY_DECLARATION | REPRESENTATION_CLAUSE
4768 --------------------
4770 --------------------
4773 -- task body task_DEFINING_IDENTIFIER is
4776 -- HANDLED_SEQUENCE_OF_STATEMENTS
4777 -- end [task_IDENTIFIER];
4779 -- Gigi restriction: This node never appears
4782 -- Sloc points to TASK
4783 -- Defining_Identifier (Node1)
4784 -- Declarations (List2)
4785 -- Handled_Statement_Sequence (Node4)
4786 -- Is_Task_Master (Flag5-Sem)
4787 -- Activation_Chain_Entity (Node3-Sem)
4788 -- Corresponding_Spec (Node5-Sem)
4789 -- Was_Originally_Stub (Flag13-Sem)
4791 -------------------------------------
4792 -- 9.4 Protected Type Declaration --
4793 -------------------------------------
4795 -- PROTECTED_TYPE_DECLARATION ::=
4796 -- protected type DEFINING_IDENTIFIER [KNOWN_DISCRIMINANT_PART]
4797 -- is [new INTERFACE_LIST with] PROTECTED_DEFINITION;
4799 -- Note: protected type declarations are not permitted in Ada 83 mode
4801 -- N_Protected_Type_Declaration
4802 -- Sloc points to PROTECTED
4803 -- Defining_Identifier (Node1)
4804 -- Discriminant_Specifications (List4) (set to No_List if no
4805 -- discriminant part)
4806 -- Interface_List (List2) (set to No_List if none)
4807 -- Protected_Definition (Node3)
4808 -- Corresponding_Body (Node5-Sem)
4810 ---------------------------------------
4811 -- 9.4 Single Protected Declaration --
4812 ---------------------------------------
4814 -- SINGLE_PROTECTED_DECLARATION ::=
4815 -- protected DEFINING_IDENTIFIER
4816 -- is [new INTERFACE_LIST with] PROTECTED_DEFINITION;
4818 -- Note: single protected declarations are not allowed in Ada 83 mode
4820 -- N_Single_Protected_Declaration
4821 -- Sloc points to PROTECTED
4822 -- Defining_Identifier (Node1)
4823 -- Interface_List (List2) (set to No_List if none)
4824 -- Protected_Definition (Node3)
4826 -------------------------------
4827 -- 9.4 Protected Definition --
4828 -------------------------------
4830 -- PROTECTED_DEFINITION ::=
4831 -- {PROTECTED_OPERATION_DECLARATION}
4833 -- {PROTECTED_ELEMENT_DECLARATION}]
4834 -- end [protected_IDENTIFIER]
4836 -- N_Protected_Definition
4837 -- Sloc points to first token of protected definition
4838 -- Visible_Declarations (List2)
4839 -- Private_Declarations (List3) (set to No_List if no private part)
4840 -- End_Label (Node4)
4841 -- Has_Priority_Pragma (Flag6-Sem)
4843 ------------------------------------------
4844 -- 9.4 Protected Operation Declaration --
4845 ------------------------------------------
4847 -- PROTECTED_OPERATION_DECLARATION ::=
4848 -- SUBPROGRAM_DECLARATION
4849 -- | ENTRY_DECLARATION
4850 -- | REPRESENTATION_CLAUSE
4852 ----------------------------------------
4853 -- 9.4 Protected Element Declaration --
4854 ----------------------------------------
4856 -- PROTECTED_ELEMENT_DECLARATION ::=
4857 -- PROTECTED_OPERATION_DECLARATION | COMPONENT_DECLARATION
4859 -------------------------
4860 -- 9.4 Protected Body --
4861 -------------------------
4863 -- PROTECTED_BODY ::=
4864 -- protected body DEFINING_IDENTIFIER is
4865 -- {PROTECTED_OPERATION_ITEM}
4866 -- end [protected_IDENTIFIER];
4868 -- Note: protected bodies are not allowed in Ada 83 mode
4870 -- Gigi restriction: This node never appears
4873 -- Sloc points to PROTECTED
4874 -- Defining_Identifier (Node1)
4875 -- Declarations (List2) protected operation items (and pragmas)
4876 -- End_Label (Node4)
4877 -- Corresponding_Spec (Node5-Sem)
4878 -- Was_Originally_Stub (Flag13-Sem)
4880 -----------------------------------
4881 -- 9.4 Protected Operation Item --
4882 -----------------------------------
4884 -- PROTECTED_OPERATION_ITEM ::=
4885 -- SUBPROGRAM_DECLARATION
4886 -- | SUBPROGRAM_BODY
4888 -- | REPRESENTATION_CLAUSE
4890 ------------------------------
4891 -- 9.5.2 Entry Declaration --
4892 ------------------------------
4894 -- ENTRY_DECLARATION ::=
4895 -- [[not] overriding]
4896 -- entry DEFINING_IDENTIFIER
4897 -- [(DISCRETE_SUBTYPE_DEFINITION)] PARAMETER_PROFILE;
4899 -- N_Entry_Declaration
4900 -- Sloc points to ENTRY
4901 -- Defining_Identifier (Node1)
4902 -- Discrete_Subtype_Definition (Node4) (set to Empty if not present)
4903 -- Parameter_Specifications (List3) (set to No_List if no formal part)
4904 -- Corresponding_Body (Node5-Sem)
4905 -- Must_Override (Flag14) set if overriding indicator present
4906 -- Must_Not_Override (Flag15) set if not_overriding indicator present
4908 -- Note: overriding indicator is an Ada 2005 feature
4910 -----------------------------
4911 -- 9.5.2 Accept statement --
4912 -----------------------------
4914 -- ACCEPT_STATEMENT ::=
4915 -- accept entry_DIRECT_NAME
4916 -- [(ENTRY_INDEX)] PARAMETER_PROFILE [do
4917 -- HANDLED_SEQUENCE_OF_STATEMENTS
4918 -- end [entry_IDENTIFIER]];
4920 -- Gigi restriction: This node never appears
4922 -- Note: there are no explicit declarations allowed in an accept
4923 -- statement. However, the implicit declarations for any statement
4924 -- identifiers (labels and block/loop identifiers) are declarations
4925 -- that belong logically to the accept statement, and that is why
4926 -- there is a Declarations field in this node.
4928 -- N_Accept_Statement
4929 -- Sloc points to ACCEPT
4930 -- Entry_Direct_Name (Node1)
4931 -- Entry_Index (Node5) (set to Empty if not present)
4932 -- Parameter_Specifications (List3) (set to No_List if no formal part)
4933 -- Handled_Statement_Sequence (Node4)
4934 -- Declarations (List2) (set to No_List if no declarations)
4936 ------------------------
4937 -- 9.5.2 Entry Index --
4938 ------------------------
4940 -- ENTRY_INDEX ::= EXPRESSION
4942 -----------------------
4943 -- 9.5.2 Entry Body --
4944 -----------------------
4947 -- entry DEFINING_IDENTIFIER ENTRY_BODY_FORMAL_PART ENTRY_BARRIER is
4950 -- HANDLED_SEQUENCE_OF_STATEMENTS
4951 -- end [entry_IDENTIFIER];
4953 -- ENTRY_BARRIER ::= when CONDITION
4955 -- Note: we store the CONDITION of the ENTRY_BARRIER in the node for
4956 -- the ENTRY_BODY_FORMAL_PART to avoid the N_Entry_Body node getting
4957 -- too full (it would otherwise have too many fields)
4959 -- Gigi restriction: This node never appears
4962 -- Sloc points to ENTRY
4963 -- Defining_Identifier (Node1)
4964 -- Entry_Body_Formal_Part (Node5)
4965 -- Declarations (List2)
4966 -- Handled_Statement_Sequence (Node4)
4967 -- Activation_Chain_Entity (Node3-Sem)
4969 -----------------------------------
4970 -- 9.5.2 Entry Body Formal Part --
4971 -----------------------------------
4973 -- ENTRY_BODY_FORMAL_PART ::=
4974 -- [(ENTRY_INDEX_SPECIFICATION)] PARAMETER_PROFILE
4976 -- Note that an entry body formal part node is present even if it is
4977 -- empty. This reflects the grammar, in which it is the components of
4978 -- the entry body formal part that are optional, not the entry body
4979 -- formal part itself. Also this means that the barrier condition
4980 -- always has somewhere to be stored.
4982 -- Gigi restriction: This node never appears
4984 -- N_Entry_Body_Formal_Part
4985 -- Sloc points to first token
4986 -- Entry_Index_Specification (Node4) (set to Empty if not present)
4987 -- Parameter_Specifications (List3) (set to No_List if no formal part)
4988 -- Condition (Node1) from entry barrier of entry body
4990 --------------------------
4991 -- 9.5.2 Entry Barrier --
4992 --------------------------
4994 -- ENTRY_BARRIER ::= when CONDITION
4996 --------------------------------------
4997 -- 9.5.2 Entry Index Specification --
4998 --------------------------------------
5000 -- ENTRY_INDEX_SPECIFICATION ::=
5001 -- for DEFINING_IDENTIFIER in DISCRETE_SUBTYPE_DEFINITION
5003 -- Gigi restriction: This node never appears
5005 -- N_Entry_Index_Specification
5006 -- Sloc points to FOR
5007 -- Defining_Identifier (Node1)
5008 -- Discrete_Subtype_Definition (Node4)
5010 ---------------------------------
5011 -- 9.5.3 Entry Call Statement --
5012 ---------------------------------
5014 -- ENTRY_CALL_STATEMENT ::= entry_NAME [ACTUAL_PARAMETER_PART];
5016 -- The parser may generate a procedure call for this construct. The
5017 -- semantic pass must correct this misidentification where needed.
5019 -- Gigi restriction: This node never appears
5021 -- N_Entry_Call_Statement
5022 -- Sloc points to first token of name
5024 -- Parameter_Associations (List3) (set to No_List if no
5025 -- actual parameter part)
5026 -- First_Named_Actual (Node4-Sem)
5028 ------------------------------
5029 -- 9.5.4 Requeue Statement --
5030 ------------------------------
5032 -- REQUEUE_STATEMENT ::= requeue entry_NAME [with abort];
5034 -- Note: requeue statements are not permitted in Ada 83 mode
5036 -- Gigi restriction: This node never appears
5038 -- N_Requeue_Statement
5039 -- Sloc points to REQUEUE
5041 -- Abort_Present (Flag15)
5043 --------------------------
5044 -- 9.6 Delay Statement --
5045 --------------------------
5047 -- DELAY_STATEMENT ::=
5048 -- DELAY_UNTIL_STATEMENT
5049 -- | DELAY_RELATIVE_STATEMENT
5051 --------------------------------
5052 -- 9.6 Delay Until Statement --
5053 --------------------------------
5055 -- DELAY_UNTIL_STATEMENT ::= delay until delay_EXPRESSION;
5057 -- Note: delay until statements are not permitted in Ada 83 mode
5059 -- Gigi restriction: This node never appears
5061 -- N_Delay_Until_Statement
5062 -- Sloc points to DELAY
5063 -- Expression (Node3)
5065 -----------------------------------
5066 -- 9.6 Delay Relative Statement --
5067 -----------------------------------
5069 -- DELAY_RELATIVE_STATEMENT ::= delay delay_EXPRESSION;
5071 -- Gigi restriction: This node never appears
5073 -- N_Delay_Relative_Statement
5074 -- Sloc points to DELAY
5075 -- Expression (Node3)
5077 ---------------------------
5078 -- 9.7 Select Statement --
5079 ---------------------------
5081 -- SELECT_STATEMENT ::=
5083 -- | TIMED_ENTRY_CALL
5084 -- | CONDITIONAL_ENTRY_CALL
5085 -- | ASYNCHRONOUS_SELECT
5087 -----------------------------
5088 -- 9.7.1 Selective Accept --
5089 -----------------------------
5091 -- SELECTIVE_ACCEPT ::=
5094 -- SELECT_ALTERNATIVE
5097 -- SELECT_ALTERNATIVE}
5099 -- SEQUENCE_OF_STATEMENTS]
5102 -- Gigi restriction: This node never appears
5104 -- Note: the guard expression, if present, appears in the node for
5105 -- the select alternative.
5107 -- N_Selective_Accept
5108 -- Sloc points to SELECT
5109 -- Select_Alternatives (List1)
5110 -- Else_Statements (List4) (set to No_List if no else part)
5116 -- GUARD ::= when CONDITION =>
5118 -- As noted above, the CONDITION that is part of a GUARD is included
5119 -- in the node for the select alternative for convenience.
5121 -------------------------------
5122 -- 9.7.1 Select Alternative --
5123 -------------------------------
5125 -- SELECT_ALTERNATIVE ::=
5126 -- ACCEPT_ALTERNATIVE
5127 -- | DELAY_ALTERNATIVE
5128 -- | TERMINATE_ALTERNATIVE
5130 -------------------------------
5131 -- 9.7.1 Accept Alternative --
5132 -------------------------------
5134 -- ACCEPT_ALTERNATIVE ::=
5135 -- ACCEPT_STATEMENT [SEQUENCE_OF_STATEMENTS]
5137 -- Gigi restriction: This node never appears
5139 -- N_Accept_Alternative
5140 -- Sloc points to ACCEPT
5141 -- Accept_Statement (Node2)
5142 -- Condition (Node1) from the guard (set to Empty if no guard present)
5143 -- Statements (List3) (set to Empty_List if no statements)
5144 -- Pragmas_Before (List4) pragmas before alt (set to No_List if none)
5145 -- Accept_Handler_Records (List5-Sem)
5147 ------------------------------
5148 -- 9.7.1 Delay Alternative --
5149 ------------------------------
5151 -- DELAY_ALTERNATIVE ::=
5152 -- DELAY_STATEMENT [SEQUENCE_OF_STATEMENTS]
5154 -- Gigi restriction: This node never appears
5156 -- N_Delay_Alternative
5157 -- Sloc points to DELAY
5158 -- Delay_Statement (Node2)
5159 -- Condition (Node1) from the guard (set to Empty if no guard present)
5160 -- Statements (List3) (set to Empty_List if no statements)
5161 -- Pragmas_Before (List4) pragmas before alt (set to No_List if none)
5163 ----------------------------------
5164 -- 9.7.1 Terminate Alternative --
5165 ----------------------------------
5167 -- TERMINATE_ALTERNATIVE ::= terminate;
5169 -- Gigi restriction: This node never appears
5171 -- N_Terminate_Alternative
5172 -- Sloc points to TERMINATE
5173 -- Condition (Node1) from the guard (set to Empty if no guard present)
5174 -- Pragmas_Before (List4) pragmas before alt (set to No_List if none)
5175 -- Pragmas_After (List5) pragmas after alt (set to No_List if none)
5177 -----------------------------
5178 -- 9.7.2 Timed Entry Call --
5179 -----------------------------
5181 -- TIMED_ENTRY_CALL ::=
5183 -- ENTRY_CALL_ALTERNATIVE
5185 -- DELAY_ALTERNATIVE
5188 -- Gigi restriction: This node never appears
5190 -- N_Timed_Entry_Call
5191 -- Sloc points to SELECT
5192 -- Entry_Call_Alternative (Node1)
5193 -- Delay_Alternative (Node4)
5195 -----------------------------------
5196 -- 9.7.2 Entry Call Alternative --
5197 -----------------------------------
5199 -- ENTRY_CALL_ALTERNATIVE ::=
5200 -- PROCEDURE_OR_ENTRY_CALL [SEQUENCE_OF_STATEMENTS]
5202 -- PROCEDURE_OR_ENTRY_CALL ::=
5203 -- PROCEDURE_CALL_STATEMENT | ENTRY_CALL_STATEMENT
5205 -- Gigi restriction: This node never appears
5207 -- N_Entry_Call_Alternative
5208 -- Sloc points to first token of entry call statement
5209 -- Entry_Call_Statement (Node1)
5210 -- Statements (List3) (set to Empty_List if no statements)
5211 -- Pragmas_Before (List4) pragmas before alt (set to No_List if none)
5213 -----------------------------------
5214 -- 9.7.3 Conditional Entry Call --
5215 -----------------------------------
5217 -- CONDITIONAL_ENTRY_CALL ::=
5219 -- ENTRY_CALL_ALTERNATIVE
5221 -- SEQUENCE_OF_STATEMENTS
5224 -- Gigi restriction: This node never appears
5226 -- N_Conditional_Entry_Call
5227 -- Sloc points to SELECT
5228 -- Entry_Call_Alternative (Node1)
5229 -- Else_Statements (List4)
5231 --------------------------------
5232 -- 9.7.4 Asynchronous Select --
5233 --------------------------------
5235 -- ASYNCHRONOUS_SELECT ::=
5237 -- TRIGGERING_ALTERNATIVE
5242 -- Note: asynchronous select is not permitted in Ada 83 mode
5244 -- Gigi restriction: This node never appears
5246 -- N_Asynchronous_Select
5247 -- Sloc points to SELECT
5248 -- Triggering_Alternative (Node1)
5249 -- Abortable_Part (Node2)
5251 -----------------------------------
5252 -- 9.7.4 Triggering Alternative --
5253 -----------------------------------
5255 -- TRIGGERING_ALTERNATIVE ::=
5256 -- TRIGGERING_STATEMENT [SEQUENCE_OF_STATEMENTS]
5258 -- Gigi restriction: This node never appears
5260 -- N_Triggering_Alternative
5261 -- Sloc points to first token of triggering statement
5262 -- Triggering_Statement (Node1)
5263 -- Statements (List3) (set to Empty_List if no statements)
5264 -- Pragmas_Before (List4) pragmas before alt (set to No_List if none)
5266 ---------------------------------
5267 -- 9.7.4 Triggering Statement --
5268 ---------------------------------
5270 -- TRIGGERING_STATEMENT ::= PROCEDURE_OR_ENTRY_CALL | DELAY_STATEMENT
5272 ---------------------------
5273 -- 9.7.4 Abortable Part --
5274 ---------------------------
5276 -- ABORTABLE_PART ::= SEQUENCE_OF_STATEMENTS
5278 -- Gigi restriction: This node never appears
5281 -- Sloc points to ABORT
5282 -- Statements (List3)
5284 --------------------------
5285 -- 9.8 Abort Statement --
5286 --------------------------
5288 -- ABORT_STATEMENT ::= abort task_NAME {, task_NAME};
5290 -- Gigi restriction: This node never appears
5292 -- N_Abort_Statement
5293 -- Sloc points to ABORT
5296 -------------------------
5297 -- 10.1.1 Compilation --
5298 -------------------------
5300 -- COMPILATION ::= {COMPILATION_UNIT}
5302 -- There is no explicit node in the tree for a compilation, since in
5303 -- general the compiler is processing only a single compilation unit
5304 -- at a time. It is possible to parse multiple units in syntax check
5305 -- only mode, but they the trees are discarded in any case.
5307 ------------------------------
5308 -- 10.1.1 Compilation Unit --
5309 ------------------------------
5311 -- COMPILATION_UNIT ::=
5312 -- CONTEXT_CLAUSE LIBRARY_ITEM
5313 -- | CONTEXT_CLAUSE SUBUNIT
5315 -- The N_Compilation_Unit node itself represents the above syntax.
5316 -- However, there are two additional items not reflected in the above
5317 -- syntax. First we have the global declarations that are added by the
5318 -- code generator. These are outer level declarations (so they cannot
5319 -- be represented as being inside the units). An example is the wrapper
5320 -- subprograms that are created to do ABE checking. As always a list of
5321 -- declarations can contain actions as well (i.e. statements), and such
5322 -- statements are executed as part of the elaboration of the unit. Note
5323 -- that all such declarations are elaborated before the library unit.
5325 -- Similarly, certain actions need to be elaborated at the completion
5326 -- of elaboration of the library unit (notably the statement that sets
5327 -- the Boolean flag indicating that elaboration is complete).
5329 -- The third item not reflected in the syntax is pragmas that appear
5330 -- after the compilation unit. As always pragmas are a problem since
5331 -- they are not part of the formal syntax, but can be stuck into the
5332 -- source following a set of ad hoc rules, and we have to find an ad
5333 -- hoc way of sticking them into the tree. For pragmas that appear
5334 -- before the library unit, we just consider them to be part of the
5335 -- context clause, and pragmas can appear in the Context_Items list
5336 -- of the compilation unit. However, pragmas can also appear after
5337 -- the library item.
5339 -- To deal with all these problems, we create an auxiliary node for
5340 -- a compilation unit, referenced from the N_Compilation_Unit node
5341 -- that contains these three items.
5343 -- N_Compilation_Unit
5344 -- Sloc points to first token of defining unit name
5345 -- Library_Unit (Node4-Sem) corresponding/parent spec/body
5346 -- Context_Items (List1) context items and pragmas preceding unit
5347 -- Private_Present (Flag15) set if library unit has private keyword
5348 -- Unit (Node2) library item or subunit
5349 -- Aux_Decls_Node (Node5) points to the N_Compilation_Unit_Aux node
5350 -- Has_No_Elaboration_Code (Flag17-Sem)
5351 -- Body_Required (Flag13-Sem) set for spec if body is required
5352 -- Acts_As_Spec (Flag4-Sem) flag for subprogram body with no spec
5353 -- First_Inlined_Subprogram (Node3-Sem)
5355 -- N_Compilation_Unit_Aux
5356 -- Sloc is a copy of the Sloc from the N_Compilation_Unit node
5357 -- Declarations (List2) (set to No_List if no global declarations)
5358 -- Actions (List1) (set to No_List if no actions)
5359 -- Pragmas_After (List5) pragmas after unit (set to No_List if none)
5360 -- Config_Pragmas (List4) config pragmas (set to Empty_List if none)
5362 --------------------------
5363 -- 10.1.1 Library Item --
5364 --------------------------
5367 -- [private] LIBRARY_UNIT_DECLARATION
5368 -- | LIBRARY_UNIT_BODY
5369 -- | [private] LIBRARY_UNIT_RENAMING_DECLARATION
5371 -- Note: PRIVATE is not allowed in Ada 83 mode
5373 -- There is no explicit node in the tree for library item, instead
5374 -- the declaration or body, and the flag for private if present,
5375 -- appear in the N_Compilation_Unit clause.
5377 --------------------------------------
5378 -- 10.1.1 Library Unit Declaration --
5379 --------------------------------------
5381 -- LIBRARY_UNIT_DECLARATION ::=
5382 -- SUBPROGRAM_DECLARATION | PACKAGE_DECLARATION
5383 -- | GENERIC_DECLARATION | GENERIC_INSTANTIATION
5385 -----------------------------------------------
5386 -- 10.1.1 Library Unit Renaming Declaration --
5387 -----------------------------------------------
5389 -- LIBRARY_UNIT_RENAMING_DECLARATION ::=
5390 -- PACKAGE_RENAMING_DECLARATION
5391 -- | GENERIC_RENAMING_DECLARATION
5392 -- | SUBPROGRAM_RENAMING_DECLARATION
5394 -------------------------------
5395 -- 10.1.1 Library unit body --
5396 -------------------------------
5398 -- LIBRARY_UNIT_BODY ::= SUBPROGRAM_BODY | PACKAGE_BODY
5400 ------------------------------
5401 -- 10.1.1 Parent Unit Name --
5402 ------------------------------
5404 -- PARENT_UNIT_NAME ::= NAME
5406 ----------------------------
5407 -- 10.1.2 Context clause --
5408 ----------------------------
5410 -- CONTEXT_CLAUSE ::= {CONTEXT_ITEM}
5412 -- The context clause can include pragmas, and any pragmas that appear
5413 -- before the context clause proper (i.e. all configuration pragmas,
5414 -- also appear at the front of this list).
5416 --------------------------
5417 -- 10.1.2 Context_Item --
5418 --------------------------
5420 -- CONTEXT_ITEM ::= WITH_CLAUSE | USE_CLAUSE | WITH_TYPE_CLAUSE
5422 -------------------------
5423 -- 10.1.2 With clause --
5424 -------------------------
5427 -- with library_unit_NAME {,library_unit_NAME};
5429 -- A separate With clause is built for each name, so that we have
5430 -- a Corresponding_Spec field for each with'ed spec. The flags
5431 -- First_Name and Last_Name are used to reconstruct the exact
5432 -- source form. When a list of names appears in one with clause,
5433 -- the first name in the list has First_Name set, and the last
5434 -- has Last_Name set. If the with clause has only one name, then
5435 -- both of the flags First_Name and Last_Name are set in this name.
5437 -- Note: in the case of implicit with's that are installed by the
5438 -- Rtsfind routine, Implicit_With is set, and the Sloc is typically
5439 -- set to Standard_Location, but it is incorrect to test the Sloc
5440 -- to find out if a with clause is implicit, test the flag instead.
5443 -- Sloc points to first token of library unit name
5445 -- Library_Unit (Node4-Sem)
5446 -- Corresponding_Spec (Node5-Sem)
5447 -- First_Name (Flag5) (set to True if first name or only one name)
5448 -- Last_Name (Flag6) (set to True if last name or only one name)
5449 -- Context_Installed (Flag13-Sem)
5450 -- Elaborate_Present (Flag4-Sem)
5451 -- Elaborate_All_Present (Flag14-Sem)
5452 -- Elaborate_All_Desirable (Flag9-Sem)
5453 -- Elaborate_Desirable (Flag11-Sem)
5454 -- Private_Present (Flag15) set if with_clause has private keyword
5455 -- Implicit_With (Flag16-Sem)
5456 -- Limited_Present (Flag17) set if LIMITED is present
5457 -- Limited_View_Installed (Flag18-Sem)
5458 -- Unreferenced_In_Spec (Flag7-Sem)
5459 -- No_Entities_Ref_In_Spec (Flag8-Sem)
5461 -- Note: Limited_Present and Limited_View_Installed give support to
5462 -- Ada 2005 (AI-50217).
5463 -- Similarly, Private_Present gives support to AI-50262.
5465 ----------------------
5466 -- With_Type clause --
5467 ----------------------
5469 -- This is a GNAT extension, used to implement mutually recursive
5470 -- types declared in different packages.
5471 -- Note: this is now obsolete. The functionality of this construct
5472 -- is now implemented by the Ada 2005 Limited_with_Clause.
5474 ---------------------
5475 -- 10.2 Body stub --
5476 ---------------------
5479 -- SUBPROGRAM_BODY_STUB
5480 -- | PACKAGE_BODY_STUB
5482 -- | PROTECTED_BODY_STUB
5484 ----------------------------------
5485 -- 10.1.3 Subprogram Body Stub --
5486 ----------------------------------
5488 -- SUBPROGRAM_BODY_STUB ::=
5489 -- SUBPROGRAM_SPECIFICATION is separate;
5491 -- N_Subprogram_Body_Stub
5492 -- Sloc points to FUNCTION or PROCEDURE
5493 -- Specification (Node1)
5494 -- Library_Unit (Node4-Sem) points to the subunit
5495 -- Corresponding_Body (Node5-Sem)
5497 -------------------------------
5498 -- 10.1.3 Package Body Stub --
5499 -------------------------------
5501 -- PACKAGE_BODY_STUB ::=
5502 -- package body DEFINING_IDENTIFIER is separate;
5504 -- N_Package_Body_Stub
5505 -- Sloc points to PACKAGE
5506 -- Defining_Identifier (Node1)
5507 -- Library_Unit (Node4-Sem) points to the subunit
5508 -- Corresponding_Body (Node5-Sem)
5510 ----------------------------
5511 -- 10.1.3 Task Body Stub --
5512 ----------------------------
5514 -- TASK_BODY_STUB ::=
5515 -- task body DEFINING_IDENTIFIER is separate;
5518 -- Sloc points to TASK
5519 -- Defining_Identifier (Node1)
5520 -- Library_Unit (Node4-Sem) points to the subunit
5521 -- Corresponding_Body (Node5-Sem)
5523 ---------------------------------
5524 -- 10.1.3 Protected Body Stub --
5525 ---------------------------------
5527 -- PROTECTED_BODY_STUB ::=
5528 -- protected body DEFINING_IDENTIFIER is separate;
5530 -- Note: protected body stubs are not allowed in Ada 83 mode
5532 -- N_Protected_Body_Stub
5533 -- Sloc points to PROTECTED
5534 -- Defining_Identifier (Node1)
5535 -- Library_Unit (Node4-Sem) points to the subunit
5536 -- Corresponding_Body (Node5-Sem)
5538 ---------------------
5539 -- 10.1.3 Subunit --
5540 ---------------------
5542 -- SUBUNIT ::= separate (PARENT_UNIT_NAME) PROPER_BODY
5545 -- Sloc points to SEPARATE
5546 -- Name (Node2) is the name of the parent unit
5547 -- Proper_Body (Node1) is the subunit body
5548 -- Corresponding_Stub (Node3-Sem) is the stub declaration for the unit.
5550 ---------------------------------
5551 -- 11.1 Exception Declaration --
5552 ---------------------------------
5554 -- EXCEPTION_DECLARATION ::= DEFINING_IDENTIFIER_LIST : exception;
5556 -- For consistency with object declarations etc., the parser converts
5557 -- the case of multiple identifiers being declared to a series of
5558 -- declarations in which the expression is copied, using the More_Ids
5559 -- and Prev_Ids flags to remember the source form as described in the
5560 -- section on "Handling of Defining Identifier Lists".
5562 -- N_Exception_Declaration
5563 -- Sloc points to EXCEPTION
5564 -- Defining_Identifier (Node1)
5565 -- Expression (Node3-Sem)
5566 -- Renaming_Exception (Node2-Sem)
5567 -- More_Ids (Flag5) (set to False if no more identifiers in list)
5568 -- Prev_Ids (Flag6) (set to False if no previous identifiers in list)
5570 ------------------------------------------
5571 -- 11.2 Handled Sequence Of Statements --
5572 ------------------------------------------
5574 -- HANDLED_SEQUENCE_OF_STATEMENTS ::=
5575 -- SEQUENCE_OF_STATEMENTS
5577 -- EXCEPTION_HANDLER
5578 -- {EXCEPTION_HANDLER}]
5580 -- cleanup_procedure_call (param, param, param, ...);]
5582 -- The AT END phrase is a GNAT extension to provide for cleanups. It is
5583 -- used only internally currently, but is considered to be syntactic.
5584 -- At the moment, the only cleanup action allowed is a single call to
5585 -- a parameterless procedure, and the Identifier field of the node is
5586 -- the procedure to be called. Also there is a current restriction
5587 -- that exception handles and a cleanup cannot be present in the same
5588 -- frame, so at least one of Exception_Handlers or the Identifier must
5591 -- Actually, more accurately, this restriction applies to the original
5592 -- source program. In the expanded tree, if the At_End_Proc field is
5593 -- present, then there will also be an exception handler of the form:
5595 -- when all others =>
5599 -- where cleanup is the procedure to be generated. The reason we do
5600 -- this is so that the front end can handle the necessary entries in
5601 -- the exception tables, and other exception handler actions required
5602 -- as part of the normal handling for exception handlers.
5604 -- The AT END cleanup handler protects only the sequence of statements
5605 -- (not the associated declarations of the parent), just like exception
5606 -- handlers. The big difference is that the cleanup procedure is called
5607 -- on either a normal or an abnormal exit from the statement sequence.
5609 -- Note: the list of Exception_Handlers can contain pragmas as well
5610 -- as actual handlers. In practice these pragmas can only occur at
5611 -- the start of the list, since any pragmas occurring later on will
5612 -- be included in the statement list of the corresponding handler.
5614 -- Note: although in the Ada syntax, the sequence of statements in
5615 -- a handled sequence of statements can only contain statements, we
5616 -- allow free mixing of declarations and statements in the resulting
5617 -- expanded tree. This is for example used to deal with the case of
5618 -- a cleanup procedure that must handle declarations as well as the
5619 -- statements of a block.
5621 -- N_Handled_Sequence_Of_Statements
5622 -- Sloc points to first token of first statement
5623 -- Statements (List3)
5624 -- End_Label (Node4) (set to Empty if expander generated)
5625 -- Exception_Handlers (List5) (set to No_List if none present)
5626 -- At_End_Proc (Node1) (set to Empty if no clean up procedure)
5627 -- First_Real_Statement (Node2-Sem)
5628 -- Zero_Cost_Handling (Flag5-Sem)
5630 -- Note: the parent always contains a Declarations field which contains
5631 -- declarations associated with the handled sequence of statements. This
5632 -- is true even in the case of an accept statement (see description of
5633 -- the N_Accept_Statement node).
5635 -- End_Label refers to the containing construct
5637 -----------------------------
5638 -- 11.2 Exception Handler --
5639 -----------------------------
5641 -- EXCEPTION_HANDLER ::=
5642 -- when [CHOICE_PARAMETER_SPECIFICATION :]
5643 -- EXCEPTION_CHOICE {| EXCEPTION_CHOICE} =>
5644 -- SEQUENCE_OF_STATEMENTS
5646 -- Note: choice parameter specification is not allowed in Ada 83 mode
5648 -- N_Exception_Handler
5649 -- Sloc points to WHEN
5650 -- Choice_Parameter (Node2) (set to Empty if not present)
5651 -- Exception_Choices (List4)
5652 -- Statements (List3)
5653 -- Exception_Label (Node5-Sem) (set to Empty of not present)
5654 -- Zero_Cost_Handling (Flag5-Sem)
5655 -- Local_Raise_Statements (Elist1-Sem) (set to No_Elist if not present)
5656 -- Local_Raise_Not_OK (Flag7-Sem)
5657 -- Has_Local_Raise (Flag8-Sem)
5659 ------------------------------------------
5660 -- 11.2 Choice parameter specification --
5661 ------------------------------------------
5663 -- CHOICE_PARAMETER_SPECIFICATION ::= DEFINING_IDENTIFIER
5665 ----------------------------
5666 -- 11.2 Exception Choice --
5667 ----------------------------
5669 -- EXCEPTION_CHOICE ::= exception_NAME | others
5671 -- Except in the case of OTHERS, no explicit node appears in the tree
5672 -- for exception choice. Instead the exception name appears directly.
5673 -- An OTHERS choice is represented by a N_Others_Choice node (see
5676 -- Note: for the exception choice created for an at end handler, the
5677 -- exception choice is an N_Others_Choice node with All_Others set.
5679 ---------------------------
5680 -- 11.3 Raise Statement --
5681 ---------------------------
5683 -- RAISE_STATEMENT ::= raise [exception_NAME];
5685 -- In Ada 2005, we have
5687 -- RAISE_STATEMENT ::= raise; | raise exception_NAME [with EXPRESSION];
5689 -- N_Raise_Statement
5690 -- Sloc points to RAISE
5691 -- Name (Node2) (set to Empty if no exception name present)
5692 -- Expression (Node3) (set to Empty if no expression present)
5693 -- From_At_End (Flag4-Sem)
5695 -------------------------------
5696 -- 12.1 Generic Declaration --
5697 -------------------------------
5699 -- GENERIC_DECLARATION ::=
5700 -- GENERIC_SUBPROGRAM_DECLARATION | GENERIC_PACKAGE_DECLARATION
5702 ------------------------------------------
5703 -- 12.1 Generic Subprogram Declaration --
5704 ------------------------------------------
5706 -- GENERIC_SUBPROGRAM_DECLARATION ::=
5707 -- GENERIC_FORMAL_PART SUBPROGRAM_SPECIFICATION;
5709 -- Note: Generic_Formal_Declarations can include pragmas
5711 -- N_Generic_Subprogram_Declaration
5712 -- Sloc points to GENERIC
5713 -- Specification (Node1) subprogram specification
5714 -- Corresponding_Body (Node5-Sem)
5715 -- Generic_Formal_Declarations (List2) from generic formal part
5716 -- Parent_Spec (Node4-Sem)
5718 ---------------------------------------
5719 -- 12.1 Generic Package Declaration --
5720 ---------------------------------------
5722 -- GENERIC_PACKAGE_DECLARATION ::=
5723 -- GENERIC_FORMAL_PART PACKAGE_SPECIFICATION;
5725 -- Note: when we do generics right, the Activation_Chain_Entity entry
5726 -- for this node can be removed (since the expander won't see generic
5727 -- units any more)???.
5729 -- Note: Generic_Formal_Declarations can include pragmas
5731 -- N_Generic_Package_Declaration
5732 -- Sloc points to GENERIC
5733 -- Specification (Node1) package specification
5734 -- Corresponding_Body (Node5-Sem)
5735 -- Generic_Formal_Declarations (List2) from generic formal part
5736 -- Parent_Spec (Node4-Sem)
5737 -- Activation_Chain_Entity (Node3-Sem)
5739 -------------------------------
5740 -- 12.1 Generic Formal Part --
5741 -------------------------------
5743 -- GENERIC_FORMAL_PART ::=
5744 -- generic {GENERIC_FORMAL_PARAMETER_DECLARATION | USE_CLAUSE}
5746 ------------------------------------------------
5747 -- 12.1 Generic Formal Parameter Declaration --
5748 ------------------------------------------------
5750 -- GENERIC_FORMAL_PARAMETER_DECLARATION ::=
5751 -- FORMAL_OBJECT_DECLARATION
5752 -- | FORMAL_TYPE_DECLARATION
5753 -- | FORMAL_SUBPROGRAM_DECLARATION
5754 -- | FORMAL_PACKAGE_DECLARATION
5756 ---------------------------------
5757 -- 12.3 Generic Instantiation --
5758 ---------------------------------
5760 -- GENERIC_INSTANTIATION ::=
5761 -- package DEFINING_PROGRAM_UNIT_NAME is
5762 -- new generic_package_NAME [GENERIC_ACTUAL_PART];
5763 -- | [[not] overriding]
5764 -- procedure DEFINING_PROGRAM_UNIT_NAME is
5765 -- new generic_procedure_NAME [GENERIC_ACTUAL_PART];
5766 -- | [[not] overriding]
5767 -- function DEFINING_DESIGNATOR is
5768 -- new generic_function_NAME [GENERIC_ACTUAL_PART];
5770 -- N_Package_Instantiation
5771 -- Sloc points to PACKAGE
5772 -- Defining_Unit_Name (Node1)
5774 -- Generic_Associations (List3) (set to No_List if no
5775 -- generic actual part)
5776 -- Parent_Spec (Node4-Sem)
5777 -- Instance_Spec (Node5-Sem)
5778 -- ABE_Is_Certain (Flag18-Sem)
5780 -- N_Procedure_Instantiation
5781 -- Sloc points to PROCEDURE
5782 -- Defining_Unit_Name (Node1)
5784 -- Parent_Spec (Node4-Sem)
5785 -- Generic_Associations (List3) (set to No_List if no
5786 -- generic actual part)
5787 -- Instance_Spec (Node5-Sem)
5788 -- Must_Override (Flag14) set if overriding indicator present
5789 -- Must_Not_Override (Flag15) set if not_overriding indicator present
5790 -- ABE_Is_Certain (Flag18-Sem)
5792 -- N_Function_Instantiation
5793 -- Sloc points to FUNCTION
5794 -- Defining_Unit_Name (Node1)
5796 -- Generic_Associations (List3) (set to No_List if no
5797 -- generic actual part)
5798 -- Parent_Spec (Node4-Sem)
5799 -- Instance_Spec (Node5-Sem)
5800 -- Must_Override (Flag14) set if overriding indicator present
5801 -- Must_Not_Override (Flag15) set if not_overriding indicator present
5802 -- ABE_Is_Certain (Flag18-Sem)
5804 -- Note: overriding indicator is an Ada 2005 feature
5806 -------------------------------
5807 -- 12.3 Generic Actual Part --
5808 -------------------------------
5810 -- GENERIC_ACTUAL_PART ::=
5811 -- (GENERIC_ASSOCIATION {, GENERIC_ASSOCIATION})
5813 -------------------------------
5814 -- 12.3 Generic Association --
5815 -------------------------------
5817 -- GENERIC_ASSOCIATION ::=
5818 -- [generic_formal_parameter_SELECTOR_NAME =>]
5820 -- Note: unlike the procedure call case, a generic association node
5821 -- is generated for every association, even if no formal parameter
5822 -- selector name is present. In this case the parser will leave the
5823 -- Selector_Name field set to Empty, to be filled in later by the
5826 -- In Ada 2005, a formal may be associated with a box, if the
5827 -- association is part of the list of actuals for a formal package.
5828 -- If the association is given by OTHERS => <>, the association is
5829 -- an N_Others_Choice.
5831 -- N_Generic_Association
5832 -- Sloc points to first token of generic association
5833 -- Selector_Name (Node2) (set to Empty if no formal
5834 -- parameter selector name)
5835 -- Explicit_Generic_Actual_Parameter (Node1) (Empty if box present)
5836 -- Box_Present (Flag15) (for formal_package associations with a box)
5838 ---------------------------------------------
5839 -- 12.3 Explicit Generic Actual Parameter --
5840 ---------------------------------------------
5842 -- EXPLICIT_GENERIC_ACTUAL_PARAMETER ::=
5843 -- EXPRESSION | variable_NAME | subprogram_NAME
5844 -- | entry_NAME | SUBTYPE_MARK | package_instance_NAME
5846 -------------------------------------
5847 -- 12.4 Formal Object Declaration --
5848 -------------------------------------
5850 -- FORMAL_OBJECT_DECLARATION ::=
5851 -- DEFINING_IDENTIFIER_LIST :
5852 -- MODE [NULL_EXCLUSION] SUBTYPE_MARK [:= DEFAULT_EXPRESSION];
5853 -- | DEFINING_IDENTIFIER_LIST :
5854 -- MODE ACCESS_DEFINITION [:= DEFAULT_EXPRESSION];
5856 -- Although the syntax allows multiple identifiers in the list, the
5857 -- semantics is as though successive declarations were given with
5858 -- identical type definition and expression components. To simplify
5859 -- semantic processing, the parser represents a multiple declaration
5860 -- case as a sequence of single declarations, using the More_Ids and
5861 -- Prev_Ids flags to preserve the original source form as described
5862 -- in the section on "Handling of Defining Identifier Lists".
5864 -- N_Formal_Object_Declaration
5865 -- Sloc points to first identifier
5866 -- Defining_Identifier (Node1)
5867 -- In_Present (Flag15)
5868 -- Out_Present (Flag17)
5869 -- Null_Exclusion_Present (Flag11) (set to False if not present)
5870 -- Subtype_Mark (Node4) (set to Empty if not present)
5871 -- Access_Definition (Node3) (set to Empty if not present)
5872 -- Default_Expression (Node5) (set to Empty if no default expression)
5873 -- More_Ids (Flag5) (set to False if no more identifiers in list)
5874 -- Prev_Ids (Flag6) (set to False if no previous identifiers in list)
5876 -----------------------------------
5877 -- 12.5 Formal Type Declaration --
5878 -----------------------------------
5880 -- FORMAL_TYPE_DECLARATION ::=
5881 -- type DEFINING_IDENTIFIER [DISCRIMINANT_PART]
5882 -- is FORMAL_TYPE_DEFINITION;
5884 -- N_Formal_Type_Declaration
5885 -- Sloc points to TYPE
5886 -- Defining_Identifier (Node1)
5887 -- Formal_Type_Definition (Node3)
5888 -- Discriminant_Specifications (List4) (set to No_List if no
5889 -- discriminant part)
5890 -- Unknown_Discriminants_Present (Flag13) set if (<>) discriminant
5892 ----------------------------------
5893 -- 12.5 Formal type definition --
5894 ----------------------------------
5896 -- FORMAL_TYPE_DEFINITION ::=
5897 -- FORMAL_PRIVATE_TYPE_DEFINITION
5898 -- | FORMAL_DERIVED_TYPE_DEFINITION
5899 -- | FORMAL_DISCRETE_TYPE_DEFINITION
5900 -- | FORMAL_SIGNED_INTEGER_TYPE_DEFINITION
5901 -- | FORMAL_MODULAR_TYPE_DEFINITION
5902 -- | FORMAL_FLOATING_POINT_DEFINITION
5903 -- | FORMAL_ORDINARY_FIXED_POINT_DEFINITION
5904 -- | FORMAL_DECIMAL_FIXED_POINT_DEFINITION
5905 -- | FORMAL_ARRAY_TYPE_DEFINITION
5906 -- | FORMAL_ACCESS_TYPE_DEFINITION
5907 -- | FORMAL_INTERFACE_TYPE_DEFINITION
5909 ---------------------------------------------
5910 -- 12.5.1 Formal Private Type Definition --
5911 ---------------------------------------------
5913 -- FORMAL_PRIVATE_TYPE_DEFINITION ::=
5914 -- [[abstract] tagged] [limited] private
5916 -- Note: TAGGED is not allowed in Ada 83 mode
5918 -- N_Formal_Private_Type_Definition
5919 -- Sloc points to PRIVATE
5920 -- Abstract_Present (Flag4)
5921 -- Tagged_Present (Flag15)
5922 -- Limited_Present (Flag17)
5924 --------------------------------------------
5925 -- 12.5.1 Formal Derived Type Definition --
5926 --------------------------------------------
5928 -- FORMAL_DERIVED_TYPE_DEFINITION ::=
5929 -- [abstract] [limited | synchronized]
5930 -- new SUBTYPE_MARK [[and INTERFACE_LIST] with private]
5931 -- Note: this construct is not allowed in Ada 83 mode
5933 -- N_Formal_Derived_Type_Definition
5934 -- Sloc points to NEW
5935 -- Subtype_Mark (Node4)
5936 -- Private_Present (Flag15)
5937 -- Abstract_Present (Flag4)
5938 -- Limited_Present (Flag17)
5939 -- Synchronized_Present (Flag7)
5940 -- Interface_List (List2) (set to No_List if none)
5942 ---------------------------------------------
5943 -- 12.5.2 Formal Discrete Type Definition --
5944 ---------------------------------------------
5946 -- FORMAL_DISCRETE_TYPE_DEFINITION ::= (<>)
5948 -- N_Formal_Discrete_Type_Definition
5951 ---------------------------------------------------
5952 -- 12.5.2 Formal Signed Integer Type Definition --
5953 ---------------------------------------------------
5955 -- FORMAL_SIGNED_INTEGER_TYPE_DEFINITION ::= range <>
5957 -- N_Formal_Signed_Integer_Type_Definition
5958 -- Sloc points to RANGE
5960 --------------------------------------------
5961 -- 12.5.2 Formal Modular Type Definition --
5962 --------------------------------------------
5964 -- FORMAL_MODULAR_TYPE_DEFINITION ::= mod <>
5966 -- N_Formal_Modular_Type_Definition
5967 -- Sloc points to MOD
5969 ----------------------------------------------
5970 -- 12.5.2 Formal Floating Point Definition --
5971 ----------------------------------------------
5973 -- FORMAL_FLOATING_POINT_DEFINITION ::= digits <>
5975 -- N_Formal_Floating_Point_Definition
5976 -- Sloc points to DIGITS
5978 ----------------------------------------------------
5979 -- 12.5.2 Formal Ordinary Fixed Point Definition --
5980 ----------------------------------------------------
5982 -- FORMAL_ORDINARY_FIXED_POINT_DEFINITION ::= delta <>
5984 -- N_Formal_Ordinary_Fixed_Point_Definition
5985 -- Sloc points to DELTA
5987 ---------------------------------------------------
5988 -- 12.5.2 Formal Decimal Fixed Point Definition --
5989 ---------------------------------------------------
5991 -- FORMAL_DECIMAL_FIXED_POINT_DEFINITION ::= delta <> digits <>
5993 -- Note: formal decimal fixed point definition not allowed in Ada 83
5995 -- N_Formal_Decimal_Fixed_Point_Definition
5996 -- Sloc points to DELTA
5998 ------------------------------------------
5999 -- 12.5.3 Formal Array Type Definition --
6000 ------------------------------------------
6002 -- FORMAL_ARRAY_TYPE_DEFINITION ::= ARRAY_TYPE_DEFINITION
6004 -------------------------------------------
6005 -- 12.5.4 Formal Access Type Definition --
6006 -------------------------------------------
6008 -- FORMAL_ACCESS_TYPE_DEFINITION ::= ACCESS_TYPE_DEFINITION
6010 ----------------------------------------------
6011 -- 12.5.5 Formal Interface Type Definition --
6012 ----------------------------------------------
6014 -- FORMAL_INTERFACE_TYPE_DEFINITION ::= INTERFACE_TYPE_DEFINITION
6016 -----------------------------------------
6017 -- 12.6 Formal Subprogram Declaration --
6018 -----------------------------------------
6020 -- FORMAL_SUBPROGRAM_DECLARATION ::=
6021 -- FORMAL_CONCRETE_SUBPROGRAM_DECLARATION
6022 -- | FORMAL_ABSTRACT_SUBPROGRAM_DECLARATION
6024 --------------------------------------------------
6025 -- 12.6 Formal Concrete Subprogram Declaration --
6026 --------------------------------------------------
6028 -- FORMAL_CONCRETE_SUBPROGRAM_DECLARATION ::=
6029 -- with SUBPROGRAM_SPECIFICATION [is SUBPROGRAM_DEFAULT];
6031 -- N_Formal_Concrete_Subprogram_Declaration
6032 -- Sloc points to WITH
6033 -- Specification (Node1)
6034 -- Default_Name (Node2) (set to Empty if no subprogram default)
6035 -- Box_Present (Flag15)
6037 -- Note: if no subprogram default is present, then Name is set
6038 -- to Empty, and Box_Present is False.
6040 --------------------------------------------------
6041 -- 12.6 Formal Abstract Subprogram Declaration --
6042 --------------------------------------------------
6044 -- FORMAL_ABSTRACT_SUBPROGRAM_DECLARATION ::=
6045 -- with SUBPROGRAM_SPECIFICATION is abstract [SUBPROGRAM_DEFAULT];
6047 -- N_Formal_Abstract_Subprogram_Declaration
6048 -- Sloc points to WITH
6049 -- Specification (Node1)
6050 -- Default_Name (Node2) (set to Empty if no subprogram default)
6051 -- Box_Present (Flag15)
6053 -- Note: if no subprogram default is present, then Name is set
6054 -- to Empty, and Box_Present is False.
6056 ------------------------------
6057 -- 12.6 Subprogram Default --
6058 ------------------------------
6060 -- SUBPROGRAM_DEFAULT ::= DEFAULT_NAME | <>
6062 -- There is no separate node in the tree for a subprogram default.
6063 -- Instead the parent (N_Formal_Concrete_Subprogram_Declaration
6064 -- or N_Formal_Abstract_Subprogram_Declaration) node contains the
6065 -- default name or box indication, as needed.
6067 ------------------------
6068 -- 12.6 Default Name --
6069 ------------------------
6071 -- DEFAULT_NAME ::= NAME
6073 --------------------------------------
6074 -- 12.7 Formal Package Declaration --
6075 --------------------------------------
6077 -- FORMAL_PACKAGE_DECLARATION ::=
6078 -- with package DEFINING_IDENTIFIER
6079 -- is new generic_package_NAME FORMAL_PACKAGE_ACTUAL_PART;
6081 -- Note: formal package declarations not allowed in Ada 83 mode
6083 -- N_Formal_Package_Declaration
6084 -- Sloc points to WITH
6085 -- Defining_Identifier (Node1)
6087 -- Generic_Associations (List3) (set to No_List if (<>) case or
6088 -- empty generic actual part)
6089 -- Box_Present (Flag15)
6090 -- Instance_Spec (Node5-Sem)
6091 -- ABE_Is_Certain (Flag18-Sem)
6093 --------------------------------------
6094 -- 12.7 Formal Package Actual Part --
6095 --------------------------------------
6097 -- FORMAL_PACKAGE_ACTUAL_PART ::=
6099 -- | [GENERIC_ACTUAL_PART]
6100 -- (FORMAL_PACKAGE_ASSOCIATION {. FORMAL_PACKAGE_ASSOCIATION}
6102 -- FORMAL_PACKAGE_ASSOCIATION ::=
6103 -- GENERIC_ASSOCIATION
6104 -- | GENERIC_FORMAL_PARAMETER_SELECTOR_NAME => <>
6106 -- There is no explicit node in the tree for a formal package actual
6107 -- part. Instead the information appears in the parent node (i.e. the
6108 -- formal package declaration node itself).
6110 -- There is no explicit node for a formal package association. All of
6111 -- them are represented either by a generic association, possibly with
6112 -- Box_Present, or by an N_Others_Choice.
6114 ---------------------------------
6115 -- 13.1 Representation clause --
6116 ---------------------------------
6118 -- REPRESENTATION_CLAUSE ::=
6119 -- ATTRIBUTE_DEFINITION_CLAUSE
6120 -- | ENUMERATION_REPRESENTATION_CLAUSE
6121 -- | RECORD_REPRESENTATION_CLAUSE
6124 ----------------------
6125 -- 13.1 Local Name --
6126 ----------------------
6130 -- | DIRECT_NAME'ATTRIBUTE_DESIGNATOR
6131 -- | library_unit_NAME
6133 -- The construct DIRECT_NAME'ATTRIBUTE_DESIGNATOR appears in the tree
6134 -- as an attribute reference, which has essentially the same form.
6136 ---------------------------------------
6137 -- 13.3 Attribute definition clause --
6138 ---------------------------------------
6140 -- ATTRIBUTE_DEFINITION_CLAUSE ::=
6141 -- for LOCAL_NAME'ATTRIBUTE_DESIGNATOR use EXPRESSION;
6142 -- | for LOCAL_NAME'ATTRIBUTE_DESIGNATOR use NAME;
6144 -- In Ada 83, the expression must be a simple expression and the
6145 -- local name must be a direct name.
6147 -- Note: the only attribute definition clause that is processed by
6148 -- gigi is an address clause. For all other cases, the information
6149 -- is extracted by the front end and either results in setting entity
6150 -- information, e.g. Esize for the Size clause, or in appropriate
6151 -- expansion actions (e.g. in the case of Storage_Size).
6153 -- For an address clause, Gigi constructs the appropriate addressing
6154 -- code. It also ensures that no aliasing optimizations are made
6155 -- for the object for which the address clause appears.
6157 -- Note: for an address clause used to achieve an overlay:
6161 -- for B'Address use A'Address;
6163 -- the above rule means that Gigi will ensure that no optimizations
6164 -- will be made for B that would violate the implementation advice
6165 -- of RM 13.3(19). However, this advice applies only to B and not
6166 -- to A, which seems unfortunate. The GNAT front end will mark the
6167 -- object A as volatile to also prevent unwanted optimization
6168 -- assumptions based on no aliasing being made for B.
6170 -- N_Attribute_Definition_Clause
6171 -- Sloc points to FOR
6172 -- Name (Node2) the local name
6173 -- Chars (Name1) the identifier name from the attribute designator
6174 -- Expression (Node3) the expression or name
6175 -- Entity (Node4-Sem)
6176 -- Next_Rep_Item (Node5-Sem)
6177 -- From_At_Mod (Flag4-Sem)
6178 -- Check_Address_Alignment (Flag11-Sem)
6179 -- Address_Warning_Posted (Flag18-Sem)
6181 ---------------------------------------------
6182 -- 13.4 Enumeration representation clause --
6183 ---------------------------------------------
6185 -- ENUMERATION_REPRESENTATION_CLAUSE ::=
6186 -- for first_subtype_LOCAL_NAME use ENUMERATION_AGGREGATE;
6188 -- In Ada 83, the name must be a direct name
6190 -- N_Enumeration_Representation_Clause
6191 -- Sloc points to FOR
6192 -- Identifier (Node1) direct name
6193 -- Array_Aggregate (Node3)
6194 -- Next_Rep_Item (Node5-Sem)
6196 ---------------------------------
6197 -- 13.4 Enumeration aggregate --
6198 ---------------------------------
6200 -- ENUMERATION_AGGREGATE ::= ARRAY_AGGREGATE
6202 ------------------------------------------
6203 -- 13.5.1 Record representation clause --
6204 ------------------------------------------
6206 -- RECORD_REPRESENTATION_CLAUSE ::=
6207 -- for first_subtype_LOCAL_NAME use
6208 -- record [MOD_CLAUSE]
6209 -- {COMPONENT_CLAUSE}
6212 -- Gigi restriction: Mod_Clause is always Empty (if present it is
6213 -- replaced by a corresponding Alignment attribute definition clause).
6215 -- Note: Component_Clauses can include pragmas
6217 -- N_Record_Representation_Clause
6218 -- Sloc points to FOR
6219 -- Identifier (Node1) direct name
6220 -- Mod_Clause (Node2) (set to Empty if no mod clause present)
6221 -- Component_Clauses (List3)
6222 -- Next_Rep_Item (Node5-Sem)
6224 ------------------------------
6225 -- 13.5.1 Component clause --
6226 ------------------------------
6228 -- COMPONENT_CLAUSE ::=
6229 -- component_LOCAL_NAME at POSITION
6230 -- range FIRST_BIT .. LAST_BIT;
6232 -- N_Component_Clause
6233 -- Sloc points to AT
6234 -- Component_Name (Node1) points to Name or Attribute_Reference
6236 -- First_Bit (Node3)
6239 ----------------------
6240 -- 13.5.1 Position --
6241 ----------------------
6243 -- POSITION ::= static_EXPRESSION
6245 -----------------------
6246 -- 13.5.1 First_Bit --
6247 -----------------------
6249 -- FIRST_BIT ::= static_SIMPLE_EXPRESSION
6251 ----------------------
6252 -- 13.5.1 Last_Bit --
6253 ----------------------
6255 -- LAST_BIT ::= static_SIMPLE_EXPRESSION
6257 --------------------------
6258 -- 13.8 Code statement --
6259 --------------------------
6261 -- CODE_STATEMENT ::= QUALIFIED_EXPRESSION;
6263 -- Note: in GNAT, the qualified expression has the form
6265 -- Asm_Insn'(Asm (...));
6267 -- See package System.Machine_Code in file s-maccod.ads for details on
6268 -- the allowed parameters to Asm. There are two ways this node can
6269 -- arise, as a code statement, in which case the expression is the
6270 -- qualified expression, or as a result of the expansion of an intrinsic
6271 -- call to the Asm or Asm_Input procedure.
6274 -- Sloc points to first token of the expression
6275 -- Expression (Node3)
6277 -- Note: package Exp_Code contains an abstract functional interface
6278 -- for use by Gigi in accessing the data from N_Code_Statement nodes.
6280 ------------------------
6281 -- 13.12 Restriction --
6282 ------------------------
6285 -- restriction_IDENTIFIER
6286 -- | restriction_parameter_IDENTIFIER => EXPRESSION
6288 -- There is no explicit node for restrictions. Instead the restriction
6289 -- appears in normal pragma syntax as a pragma argument association,
6290 -- which has the same syntactic form.
6292 --------------------------
6293 -- B.2 Shift Operators --
6294 --------------------------
6296 -- Calls to the intrinsic shift functions are converted to one of
6297 -- the following shift nodes, which have the form of normal binary
6298 -- operator names. Note that for a given shift operation, one node
6299 -- covers all possible types, as for normal operators.
6301 -- Note: it is perfectly permissible for the expander to generate
6302 -- shift operation nodes directly, in which case they will be analyzed
6303 -- and parsed in the usual manner.
6305 -- Sprint syntax: shift-function-name!(expr, count)
6307 -- Note: the Left_Opnd field holds the first argument (the value to
6308 -- be shifted). The Right_Opnd field holds the second argument (the
6309 -- shift count). The Chars field is the name of the intrinsic function.
6312 -- Sloc points to the function name
6313 -- plus fields for binary operator
6314 -- plus fields for expression
6315 -- Shift_Count_OK (Flag4-Sem)
6317 -- N_Op_Rotate_Right
6318 -- Sloc points to the function name
6319 -- plus fields for binary operator
6320 -- plus fields for expression
6321 -- Shift_Count_OK (Flag4-Sem)
6324 -- Sloc points to the function name
6325 -- plus fields for binary operator
6326 -- plus fields for expression
6327 -- Shift_Count_OK (Flag4-Sem)
6329 -- N_Op_Shift_Right_Arithmetic
6330 -- Sloc points to the function name
6331 -- plus fields for binary operator
6332 -- plus fields for expression
6333 -- Shift_Count_OK (Flag4-Sem)
6336 -- Sloc points to the function name
6337 -- plus fields for binary operator
6338 -- plus fields for expression
6339 -- Shift_Count_OK (Flag4-Sem)
6341 --------------------------
6342 -- Obsolescent Features --
6343 --------------------------
6345 -- The syntax descriptions and tree nodes for obsolescent features are
6346 -- grouped together, corresponding to their location in appendix I in
6347 -- the RM. However, parsing and semantic analysis for these constructs
6348 -- is located in an appropriate chapter (see individual notes).
6350 ---------------------------
6351 -- J.3 Delta Constraint --
6352 ---------------------------
6354 -- Note: the parse routine for this construct is located in section
6355 -- 3.5.9 of Par-Ch3, and semantic analysis is in Sem_Ch3, which is
6356 -- where delta constraint logically belongs.
6358 -- DELTA_CONSTRAINT ::= DELTA static_EXPRESSION [RANGE_CONSTRAINT]
6360 -- N_Delta_Constraint
6361 -- Sloc points to DELTA
6362 -- Delta_Expression (Node3)
6363 -- Range_Constraint (Node4) (set to Empty if not present)
6365 --------------------
6367 --------------------
6369 -- AT_CLAUSE ::= for DIRECT_NAME use at EXPRESSION;
6371 -- Note: the parse routine for this construct is located in Par-Ch13,
6372 -- and the semantic analysis is in Sem_Ch13, where at clause logically
6373 -- belongs if it were not obsolescent.
6375 -- Note: in Ada 83 the expression must be a simple expression
6377 -- Gigi restriction: This node never appears, it is rewritten as an
6378 -- address attribute definition clause.
6381 -- Sloc points to FOR
6382 -- Identifier (Node1)
6383 -- Expression (Node3)
6385 ---------------------
6386 -- J.8 Mod clause --
6387 ---------------------
6389 -- MOD_CLAUSE ::= at mod static_EXPRESSION;
6391 -- Note: the parse routine for this construct is located in Par-Ch13,
6392 -- and the semantic analysis is in Sem_Ch13, where mod clause logically
6393 -- belongs if it were not obsolescent.
6395 -- Note: in Ada 83, the expression must be a simple expression
6397 -- Gigi restriction: this node never appears. It is replaced
6398 -- by a corresponding Alignment attribute definition clause.
6400 -- Note: pragmas can appear before and after the MOD_CLAUSE since
6401 -- its name has "clause" in it. This is rather strange, but is quite
6402 -- definitely specified. The pragmas before are collected in the
6403 -- Pragmas_Before field of the mod clause node itself, and pragmas
6404 -- after are simply swallowed up in the list of component clauses.
6407 -- Sloc points to AT
6408 -- Expression (Node3)
6409 -- Pragmas_Before (List4) Pragmas before mod clause (No_List if none)
6411 --------------------
6412 -- Semantic Nodes --
6413 --------------------
6415 -- These semantic nodes are used to hold additional semantic information.
6416 -- They are inserted into the tree as a result of semantic processing.
6417 -- Although there are no legitimate source syntax constructions that
6418 -- correspond directly to these nodes, we need a source syntax for the
6419 -- reconstructed tree printed by Sprint, and the node descriptions here
6420 -- show this syntax.
6422 ----------------------------
6423 -- Conditional Expression --
6424 ----------------------------
6426 -- This node is used to represent an expression corresponding to the
6427 -- C construct (condition ? then-expression : else_expression), where
6428 -- Expressions is a three element list, whose first expression is the
6429 -- condition, and whose second and third expressions are the then and
6430 -- else expressions respectively.
6432 -- Note: the Then_Actions and Else_Actions fields are always set to
6433 -- No_List in the tree passed to Gigi. These fields are used only
6434 -- for temporary processing purposes in the expander.
6436 -- Sprint syntax: (if expr then expr else expr)
6438 -- N_Conditional_Expression
6439 -- Sloc points to related node
6440 -- Expressions (List1)
6441 -- Then_Actions (List2-Sem)
6442 -- Else_Actions (List3-Sem)
6443 -- plus fields for expression
6445 -- Note: in the case where a debug source file is generated, the Sloc
6446 -- for this node points to the IF keyword in the Sprint file output.
6452 -- The N_Expanded_Name node is used to represent a selected component
6453 -- name that has been resolved to an expanded name. The semantic phase
6454 -- replaces N_Selected_Component nodes that represent names by the use
6455 -- of this node, leaving the N_Selected_Component node used only when
6456 -- the prefix is a record or protected type.
6458 -- The fields of the N_Expanded_Name node are layed out identically
6459 -- to those of the N_Selected_Component node, allowing conversion of
6460 -- an expanded name node to a selected component node to be done
6461 -- easily, see Sinfo.CN.Change_Selected_Component_To_Expanded_Name.
6463 -- There is no special sprint syntax for an expanded name
6466 -- Sloc points to the period
6467 -- Chars (Name1) copy of Chars field of selector name
6469 -- Selector_Name (Node2)
6470 -- Entity (Node4-Sem)
6471 -- Associated_Node (Node4-Sem)
6472 -- Redundant_Use (Flag13-Sem)
6473 -- Has_Private_View (Flag11-Sem) set in generic units.
6474 -- plus fields for expression
6476 --------------------
6477 -- Free Statement --
6478 --------------------
6480 -- The N_Free_Statement node is generated as a result of a call to an
6481 -- instantiation of Unchecked_Deallocation. The instantiation of this
6482 -- generic is handled specially and generates this node directly.
6484 -- Sprint syntax: free expression
6487 -- Sloc is copied from the unchecked deallocation call
6488 -- Expression (Node3) argument to unchecked deallocation call
6489 -- Storage_Pool (Node1-Sem)
6490 -- Procedure_To_Call (Node2-Sem)
6491 -- Actual_Designated_Subtype (Node4-Sem)
6493 -- Note: in the case where a debug source file is generated, the Sloc
6494 -- for this node points to the FREE keyword in the Sprint file output.
6500 -- This node marks the point in a declarative part at which an entity
6501 -- declared therein becomes frozen. The expander places initialization
6502 -- procedures for types at those points. Gigi uses the freezing point
6503 -- to elaborate entities that may depend on previous private types.
6505 -- See the section in Einfo "Delayed Freezing and Elaboration" for
6506 -- a full description of the use of this node.
6508 -- The Entity field points back to the entity for the type (whose
6509 -- Freeze_Node field points back to this freeze node).
6511 -- The Actions field contains a list of declarations and statements
6512 -- generated by the expander which are associated with the freeze
6513 -- node, and are elaborated as though the freeze node were replaced
6514 -- by this sequence of actions.
6516 -- Note: the Sloc field in the freeze node references a construct
6517 -- associated with the freezing point. This is used for posting
6518 -- messages in some error/warning situations, e.g. the case where
6519 -- a primitive operation of a tagged type is declared too late.
6521 -- Sprint syntax: freeze entity-name [
6526 -- Sloc points near freeze point (see above special note)
6527 -- Entity (Node4-Sem)
6528 -- Access_Types_To_Process (Elist2-Sem) (set to No_Elist if none)
6529 -- TSS_Elist (Elist3-Sem) (set to No_Elist if no associated TSS's)
6530 -- Actions (List1) (set to No_List if no freeze actions)
6531 -- First_Subtype_Link (Node5-Sem) (set to Empty if no link)
6533 -- The Actions field holds actions associated with the freeze. These
6534 -- actions are elaborated at the point where the type is frozen.
6536 -- Note: in the case where a debug source file is generated, the Sloc
6537 -- for this node points to the FREEZE keyword in the Sprint file output.
6539 --------------------------------
6540 -- Implicit Label Declaration --
6541 --------------------------------
6543 -- An implicit label declaration is created for every occurrence of a
6544 -- label on a statement or a label on a block or loop. It is chained
6545 -- in the declarations of the innermost enclosing block as specified
6546 -- in RM section 5.1 (3).
6548 -- The Defining_Identifier is the actual identifier for the
6549 -- statement identifier. Note that the occurrence of the label
6550 -- is a reference, NOT the defining occurrence. The defining
6551 -- occurrence occurs at the head of the innermost enclosing
6552 -- block, and is represented by this node.
6554 -- Note: from the grammar, this might better be called an implicit
6555 -- statement identifier declaration, but the term we choose seems
6556 -- friendlier, since at least informally statement identifiers are
6557 -- called labels in both cases (i.e. when used in labels, and when
6558 -- used as the identifiers of blocks and loops).
6560 -- Note: although this is logically a semantic node, since it does
6561 -- not correspond directly to a source syntax construction, these
6562 -- nodes are actually created by the parser in a post pass done just
6563 -- after parsing is complete, before semantic analysis is started (see
6564 -- the Par.Labl subunit in file par-labl.adb).
6566 -- Sprint syntax: labelname : label;
6568 -- N_Implicit_Label_Declaration
6569 -- Sloc points to the << of the label
6570 -- Defining_Identifier (Node1)
6571 -- Label_Construct (Node2-Sem)
6573 -- Note: in the case where a debug source file is generated, the Sloc
6574 -- for this node points to the label name in the generated declaration.
6576 ---------------------
6577 -- Itype_Reference --
6578 ---------------------
6580 -- This node is used to create a reference to an Itype. The only
6581 -- purpose is to make sure that the Itype is defined if this is the
6584 -- A typical use of this node is when an Itype is to be referenced in
6585 -- two branches of an if statement. In this case it is important that
6586 -- the first use of the Itype not be inside the conditional, since
6587 -- then it might not be defined if the wrong branch of the if is
6588 -- taken in the case where the definition generates elaboration code.
6590 -- The Itype field points to the referenced Itype
6592 -- sprint syntax: reference itype-name
6594 -- N_Itype_Reference
6595 -- Sloc points to the node generating the reference
6596 -- Itype (Node1-Sem)
6598 -- Note: in the case where a debug source file is generated, the Sloc
6599 -- for this node points to the REFERENCE keyword in the file output.
6601 ---------------------
6602 -- Raise_xxx_Error --
6603 ---------------------
6605 -- One of these nodes is created during semantic analysis to replace
6606 -- a node for an expression that is determined to definitely raise
6607 -- the corresponding exception.
6609 -- The N_Raise_xxx_Error node may also stand alone in place
6610 -- of a declaration or statement, in which case it simply causes
6611 -- the exception to be raised (i.e. it is equivalent to a raise
6612 -- statement that raises the corresponding exception). This use
6613 -- is distinguished by the fact that the Etype in this case is
6614 -- Standard_Void_Type, In the subexpression case, the Etype is the
6615 -- same as the type of the subexpression which it replaces.
6617 -- If Condition is empty, then the raise is unconditional. If the
6618 -- Condition field is non-empty, it is a boolean expression which
6619 -- is first evaluated, and the exception is raised only if the
6620 -- value of the expression is True. In the unconditional case, the
6621 -- creation of this node is usually accompanied by a warning message
6622 -- error. The creation of this node will usually be accompanied by a
6623 -- message (unless it appears within the right operand of a short
6624 -- circuit form whose left argument is static and decisively
6625 -- eliminates elaboration of the raise operation. The condition field
6626 -- can ONLY be present when the node is used as a statement form, it
6627 -- may NOT be present in the case where the node appears within an
6630 -- The exception is generated with a message that contains the
6631 -- file name and line number, and then appended text. The Reason
6632 -- code shows the text to be added. The Reason code is an element
6633 -- of the type Types.RT_Exception_Code, and indicates both the
6634 -- message to be added, and the exception to be raised (which must
6635 -- match the node type). The value is stored by storing a Uint which
6636 -- is the Pos value of the enumeration element in this type.
6638 -- Gigi restriction: This expander ensures that the type of the
6639 -- Condition field is always Standard.Boolean, even if the type
6640 -- in the source is some non-standard boolean type.
6642 -- Sprint syntax: [xxx_error "msg"]
6643 -- or: [xxx_error when condition "msg"]
6645 -- N_Raise_Constraint_Error
6646 -- Sloc references related construct
6647 -- Condition (Node1) (set to Empty if no condition)
6649 -- plus fields for expression
6651 -- N_Raise_Program_Error
6652 -- Sloc references related construct
6653 -- Condition (Node1) (set to Empty if no condition)
6655 -- plus fields for expression
6657 -- N_Raise_Storage_Error
6658 -- Sloc references related construct
6659 -- Condition (Node1) (set to Empty if no condition)
6661 -- plus fields for expression
6663 -- Note: Sloc is copied from the expression generating the exception.
6664 -- In the case where a debug source file is generated, the Sloc for
6665 -- this node points to the left bracket in the Sprint file output.
6667 -- Note: the back end may be required to translate these nodes into
6668 -- appropriate goto statements. See description of N_Push/Pop_xxx_Label.
6670 ---------------------------------------------
6671 -- Optimization of Exception Raise to Goto --
6672 ---------------------------------------------
6674 -- In some cases, the front end will determine that any exception raised
6675 -- by the back end for a certain exception should be transformed into a
6678 -- There are three kinds of exceptions raised by the back end (note that
6679 -- for this purpose we consider gigi to be part of the back end in the
6682 -- 1. Exceptions resulting from N_Raise_xxx_Error nodes
6683 -- 2. Exceptions from checks triggered by Do_xxx_Check flags
6684 -- 3. Other cases not specifically marked by the front end
6686 -- Normally all such exceptions are translated into calls to the proper
6687 -- Rcheck_xx procedure, where xx encodes both the exception to be raised
6688 -- and the exception message.
6690 -- The front end may determine that for a particular sequence of code,
6691 -- exceptions in any of these three categories for a particular builtin
6692 -- exception should result in a goto, rather than a call to Rcheck_xx.
6693 -- The exact sequence to be generated is:
6695 -- Local_Raise (exception'Identity);
6698 -- The front end marks such a sequence of code by bracketing it with
6699 -- push and pop nodes:
6701 -- N_Push_xxx_Label (referencing the label)
6703 -- (code where transformation is expected for exception xxx)
6707 -- The use of push/pop reflects the fact that such regions can properly
6708 -- nest, and one special case is a subregion in which no transformation
6709 -- is allowed. Such a region is marked by a N_Push_xxx_Label node whose
6710 -- Exception_Label field is Empty.
6712 -- N_Push_Constraint_Error_Label
6713 -- Sloc references first statement in region covered
6714 -- Exception_Label (Node5-Sem)
6716 -- N_Push_Program_Error_Label
6717 -- Sloc references first statement in region covered
6718 -- Exception_Label (Node5-Sem)
6720 -- N_Push_Storage_Error_Label
6721 -- Sloc references first statement in region covered
6722 -- Exception_Label (Node5-Sem)
6724 -- N_Pop_Constraint_Error_Label
6725 -- Sloc references last statement in region covered
6727 -- N_Pop_Program_Error_Label
6728 -- Sloc references last statement in region covered
6730 -- N_Pop_Storage_Error_Label
6731 -- Sloc references last statement in region covered
6737 -- For a number of purposes, we need to construct references to objects.
6738 -- These references are subsequently treated as normal access values.
6739 -- An example is the construction of the parameter block passed to a
6740 -- task entry. The N_Reference node is provided for this purpose. It is
6741 -- similar in effect to the use of the Unrestricted_Access attribute,
6742 -- and like Unrestricted_Access can be applied to objects which would
6743 -- not be valid prefixes for the Unchecked_Access attribute (e.g.
6744 -- objects which are not aliased, and slices). In addition it can be
6745 -- applied to composite type values as well as objects, including string
6746 -- values and aggregates.
6748 -- Note: we use the Prefix field for this expression so that the
6749 -- resulting node can be treated using common code with the attribute
6750 -- nodes for the 'Access and related attributes. Logically it would make
6751 -- more sense to call it an Expression field, but then we would have to
6752 -- special case the treatment of the N_Reference node.
6754 -- Sprint syntax: prefix'reference
6757 -- Sloc is copied from the expression
6759 -- plus fields for expression
6761 -- Note: in the case where a debug source file is generated, the Sloc
6762 -- for this node points to the quote in the Sprint file output.
6764 ---------------------
6765 -- Subprogram_Info --
6766 ---------------------
6768 -- This node generates the appropriate Subprogram_Info value for a
6769 -- given procedure. See Ada.Exceptions for further details
6771 -- Sprint syntax: subprog'subprogram_info
6773 -- N_Subprogram_Info
6774 -- Sloc points to the entity for the procedure
6775 -- Identifier (Node1) identifier referencing the procedure
6776 -- Etype (Node5-Sem) type (always set to Ada.Exceptions.Code_Loc
6778 -- Note: in the case where a debug source file is generated, the Sloc
6779 -- for this node points to the quote in the Sprint file output.
6781 --------------------------
6782 -- Unchecked Expression --
6783 --------------------------
6785 -- An unchecked expression is one that must be analyzed and resolved
6786 -- with all checks off, regardless of the current setting of scope
6789 -- Sprint syntax: `(expression)
6791 -- Note: this node is always removed from the tree (and replaced by
6792 -- its constituent expression) on completion of analysis, so it only
6793 -- appears in intermediate trees, and will never be seen by Gigi.
6795 -- N_Unchecked_Expression
6796 -- Sloc is a copy of the Sloc of the expression
6797 -- Expression (Node3)
6798 -- plus fields for expression
6800 -- Note: in the case where a debug source file is generated, the Sloc
6801 -- for this node points to the back quote in the Sprint file output.
6803 -------------------------------
6804 -- Unchecked Type Conversion --
6805 -------------------------------
6807 -- An unchecked type conversion node represents the semantic action
6808 -- corresponding to a call to an instantiation of Unchecked_Conversion.
6809 -- It is generated as a result of actual use of Unchecked_Conversion
6810 -- and also the expander generates unchecked type conversion nodes
6811 -- directly for expansion of complex semantic actions.
6813 -- Note: an unchecked type conversion is a variable as far as the
6814 -- semantics are concerned, which is convenient for the expander.
6815 -- This does not change what Ada source programs are legal, since
6816 -- clearly a function call to an instantiation of Unchecked_Conversion
6817 -- is not a variable in any case.
6819 -- Sprint syntax: subtype-mark!(expression)
6821 -- N_Unchecked_Type_Conversion
6822 -- Sloc points to related node in source
6823 -- Subtype_Mark (Node4)
6824 -- Expression (Node3)
6825 -- Kill_Range_Check (Flag11-Sem)
6826 -- No_Truncation (Flag17-Sem)
6827 -- plus fields for expression
6829 -- Note: in the case where a debug source file is generated, the Sloc
6830 -- for this node points to the exclamation in the Sprint file output.
6832 -----------------------------------
6833 -- Validate_Unchecked_Conversion --
6834 -----------------------------------
6836 -- The front end does most of the validation of unchecked conversion,
6837 -- including checking sizes (this is done after the back end is called
6838 -- to take advantage of back-annotation of calculated sizes).
6840 -- The front end also deals with specific cases that are not allowed
6841 -- e.g. involving unconstrained array types.
6843 -- For the case of the standard gigi backend, this means that all
6844 -- checks are done in the front-end.
6846 -- However, in the case of specialized back-ends, notably the JVM
6847 -- backend for JGNAT, additional requirements and restrictions apply
6848 -- to unchecked conversion, and these are most conveniently performed
6849 -- in the specialized back-end.
6851 -- To accommodate this requirement, for such back ends, the following
6852 -- special node is generated recording an unchecked conversion that
6853 -- needs to be validated. The back end should post an appropriate
6854 -- error message if the unchecked conversion is invalid or warrants
6855 -- a special warning message.
6857 -- Source_Type and Target_Type point to the entities for the two
6858 -- types involved in the unchecked conversion instantiation that
6859 -- is to be validated.
6861 -- Sprint syntax: validate Unchecked_Conversion (source, target);
6863 -- N_Validate_Unchecked_Conversion
6864 -- Sloc points to instantiation (location for warning message)
6865 -- Source_Type (Node1-Sem)
6866 -- Target_Type (Node2-Sem)
6868 -- Note: in the case where a debug source file is generated, the Sloc
6869 -- for this node points to the VALIDATE keyword in the file output.
6875 -- Used as the contents of the Nkind field of the dummy Empty node
6876 -- and in some other situations to indicate an uninitialized value.
6879 -- Chars (Name1) is set to No_Name
6885 -- Used as the contents of the Nkind field of the dummy Error node.
6886 -- Has an Etype field, which gets set to Any_Type later on, to help
6887 -- error recovery (Error_Posted is also set in the Error node).
6890 -- Chars (Name1) is set to Error_Name
6891 -- Etype (Node5-Sem)
6893 --------------------------
6894 -- Node Type Definition --
6895 --------------------------
6897 -- The following is the definition of the Node_Kind type. As previously
6898 -- discussed, this is separated off to allow rearrangement of the order
6899 -- to facilitate definition of subtype ranges. The comments show the
6900 -- subtype classes which apply to each set of node kinds. The first
6901 -- entry in the comment characterizes the following list of nodes.
6906 -- N_Representation_Clause
6910 N_Enumeration_Representation_Clause,
6912 N_Record_Representation_Clause,
6914 -- N_Representation_Clause, N_Has_Chars
6916 N_Attribute_Definition_Clause,
6921 N_Pragma_Argument_Association,
6927 -- N_Entity, N_Has_Etype, N_Has_Chars
6929 N_Defining_Character_Literal,
6930 N_Defining_Identifier,
6931 N_Defining_Operator_Symbol,
6933 -- N_Subexpr, N_Has_Etype, N_Has_Chars, N_Has_Entity
6937 -- N_Direct_Name, N_Subexpr, N_Has_Etype,
6938 -- N_Has_Chars, N_Has_Entity
6943 -- N_Direct_Name, N_Subexpr, N_Has_Etype,
6944 -- N_Has_Chars, N_Has_Entity
6946 N_Character_Literal,
6948 -- N_Binary_Op, N_Op, N_Subexpr,
6949 -- N_Has_Etype, N_Has_Chars, N_Has_Entity
6956 -- N_Binary_Op, N_Op, N_Subexpr, N_Has_Treat_Fixed_As_Integer
6957 -- N_Has_Etype, N_Has_Chars, N_Has_Entity, N_Multiplying_Operator
6964 -- N_Binary_Op, N_Op, N_Subexpr, N_Has_Etype
6965 -- N_Has_Entity, N_Has_Chars, N_Op_Boolean
6969 -- N_Binary_Op, N_Op, N_Subexpr, N_Has_Etype
6970 -- N_Has_Entity, N_Has_Chars, N_Op_Boolean, N_Op_Compare
6979 -- N_Binary_Op, N_Op, N_Subexpr, N_Has_Etype
6980 -- N_Has_Entity, N_Has_Chars, N_Op_Boolean
6985 -- N_Binary_Op, N_Op, N_Subexpr, N_Has_Etype,
6986 -- N_Op_Shift, N_Has_Chars, N_Has_Entity
6992 N_Op_Shift_Right_Arithmetic,
6994 -- N_Unary_Op, N_Op, N_Subexpr, N_Has_Etype,
6995 -- N_Has_Chars, N_Has_Entity
7002 -- N_Subexpr, N_Has_Etype, N_Has_Entity
7004 N_Attribute_Reference,
7006 -- N_Subexpr, N_Has_Etype, N_Membership_Test
7011 -- N_Subexpr, N_Has_Etype
7014 N_Conditional_Expression,
7015 N_Explicit_Dereference,
7017 N_Indexed_Component,
7021 N_Procedure_Call_Statement,
7022 N_Qualified_Expression,
7024 -- N_Raise_xxx_Error, N_Subexpr, N_Has_Etype
7026 N_Raise_Constraint_Error,
7027 N_Raise_Program_Error,
7028 N_Raise_Storage_Error,
7030 -- N_Subexpr, N_Has_Etype
7034 N_Extension_Aggregate,
7038 N_Selected_Component,
7043 N_Unchecked_Expression,
7044 N_Unchecked_Type_Conversion,
7048 N_Subtype_Indication,
7052 N_Component_Declaration,
7053 N_Entry_Declaration,
7054 N_Formal_Object_Declaration,
7055 N_Formal_Type_Declaration,
7056 N_Full_Type_Declaration,
7057 N_Incomplete_Type_Declaration,
7058 N_Loop_Parameter_Specification,
7059 N_Object_Declaration,
7060 N_Protected_Type_Declaration,
7061 N_Private_Extension_Declaration,
7062 N_Private_Type_Declaration,
7063 N_Subtype_Declaration,
7065 -- N_Subprogram_Specification, N_Declaration
7067 N_Function_Specification,
7068 N_Procedure_Specification,
7070 -- N_Access_To_Subprogram_Definition
7072 N_Access_Function_Definition,
7073 N_Access_Procedure_Definition,
7075 -- N_Later_Decl_Item
7077 N_Task_Type_Declaration,
7079 -- N_Body_Stub, N_Later_Decl_Item
7081 N_Package_Body_Stub,
7082 N_Protected_Body_Stub,
7083 N_Subprogram_Body_Stub,
7086 -- N_Generic_Instantiation, N_Later_Decl_Item
7087 -- N_Subprogram_Instantiation
7089 N_Function_Instantiation,
7090 N_Procedure_Instantiation,
7092 -- N_Generic_Instantiation, N_Later_Decl_Item
7094 N_Package_Instantiation,
7096 -- N_Unit_Body, N_Later_Decl_Item, N_Proper_Body
7101 -- N_Later_Decl_Item, N_Proper_Body
7106 -- N_Later_Decl_Item
7108 N_Implicit_Label_Declaration,
7109 N_Package_Declaration,
7110 N_Single_Task_Declaration,
7111 N_Subprogram_Declaration,
7112 N_Use_Package_Clause,
7114 -- N_Generic_Declaration, N_Later_Decl_Item
7116 N_Generic_Package_Declaration,
7117 N_Generic_Subprogram_Declaration,
7119 -- N_Array_Type_Definition
7121 N_Constrained_Array_Definition,
7122 N_Unconstrained_Array_Definition,
7124 -- N_Renaming_Declaration
7126 N_Exception_Renaming_Declaration,
7127 N_Object_Renaming_Declaration,
7128 N_Package_Renaming_Declaration,
7129 N_Subprogram_Renaming_Declaration,
7131 -- N_Generic_Renaming_Declaration, N_Renaming_Declaration
7133 N_Generic_Function_Renaming_Declaration,
7134 N_Generic_Package_Renaming_Declaration,
7135 N_Generic_Procedure_Renaming_Declaration,
7137 -- N_Statement_Other_Than_Procedure_Call
7141 N_Assignment_Statement,
7142 N_Asynchronous_Select,
7146 N_Conditional_Entry_Call,
7148 -- N_Statement_Other_Than_Procedure_Call. N_Delay_Statement
7150 N_Delay_Relative_Statement,
7151 N_Delay_Until_Statement,
7153 -- N_Statement_Other_Than_Procedure_Call
7155 N_Entry_Call_Statement,
7161 N_Requeue_Statement,
7162 N_Return_Statement, -- renamed as N_Simple_Return_Statement below
7163 N_Extended_Return_Statement,
7167 -- N_Statement_Other_Than_Procedure_Call, N_Has_Condition
7174 N_Accept_Alternative,
7175 N_Delay_Alternative,
7177 N_Entry_Body_Formal_Part,
7179 N_Terminate_Alternative,
7181 -- N_Formal_Subprogram_Declaration
7183 N_Formal_Abstract_Subprogram_Declaration,
7184 N_Formal_Concrete_Subprogram_Declaration,
7186 -- N_Push_xxx_Label, N_Push_Pop_xxx_Label
7188 N_Push_Constraint_Error_Label,
7189 N_Push_Program_Error_Label,
7190 N_Push_Storage_Error_Label,
7192 -- N_Pop_xxx_Label, N_Push_Pop_xxx_Label
7194 N_Pop_Constraint_Error_Label,
7195 N_Pop_Program_Error_Label,
7196 N_Pop_Storage_Error_Label,
7198 -- Other nodes (not part of any subtype class)
7201 N_Abstract_Subprogram_Declaration,
7202 N_Access_Definition,
7203 N_Access_To_Object_Definition,
7204 N_Case_Statement_Alternative,
7206 N_Compilation_Unit_Aux,
7207 N_Component_Association,
7208 N_Component_Definition,
7210 N_Derived_Type_Definition,
7211 N_Decimal_Fixed_Point_Definition,
7212 N_Defining_Program_Unit_Name,
7215 N_Digits_Constraint,
7216 N_Discriminant_Association,
7217 N_Discriminant_Specification,
7218 N_Enumeration_Type_Definition,
7220 N_Entry_Call_Alternative,
7221 N_Entry_Index_Specification,
7222 N_Exception_Declaration,
7223 N_Exception_Handler,
7224 N_Floating_Point_Definition,
7225 N_Formal_Decimal_Fixed_Point_Definition,
7226 N_Formal_Derived_Type_Definition,
7227 N_Formal_Discrete_Type_Definition,
7228 N_Formal_Floating_Point_Definition,
7229 N_Formal_Modular_Type_Definition,
7230 N_Formal_Ordinary_Fixed_Point_Definition,
7231 N_Formal_Package_Declaration,
7232 N_Formal_Private_Type_Definition,
7233 N_Formal_Signed_Integer_Type_Definition,
7235 N_Generic_Association,
7236 N_Handled_Sequence_Of_Statements,
7237 N_Index_Or_Discriminant_Constraint,
7240 N_Modular_Type_Definition,
7241 N_Number_Declaration,
7242 N_Ordinary_Fixed_Point_Definition,
7244 N_Package_Specification,
7245 N_Parameter_Association,
7246 N_Parameter_Specification,
7248 N_Protected_Definition,
7250 N_Real_Range_Specification,
7251 N_Record_Definition,
7252 N_Signed_Integer_Type_Definition,
7253 N_Single_Protected_Declaration,
7256 N_Triggering_Alternative,
7258 N_Validate_Unchecked_Conversion,
7264 for Node_Kind'Size use 8;
7265 -- The data structures in Atree assume this!
7267 ----------------------------
7268 -- Node Class Definitions --
7269 ----------------------------
7271 subtype N_Access_To_Subprogram_Definition is Node_Kind range
7272 N_Access_Function_Definition ..
7273 N_Access_Procedure_Definition;
7275 subtype N_Array_Type_Definition is Node_Kind range
7276 N_Constrained_Array_Definition ..
7277 N_Unconstrained_Array_Definition;
7279 subtype N_Binary_Op is Node_Kind range
7281 N_Op_Shift_Right_Arithmetic;
7283 subtype N_Body_Stub is Node_Kind range
7284 N_Package_Body_Stub ..
7287 subtype N_Declaration is Node_Kind range
7288 N_Component_Declaration ..
7289 N_Procedure_Specification;
7290 -- Note: this includes all constructs normally thought of as declarations
7291 -- except those which are separately grouped as later declarations.
7293 subtype N_Delay_Statement is Node_Kind range
7294 N_Delay_Relative_Statement ..
7295 N_Delay_Until_Statement;
7297 subtype N_Direct_Name is Node_Kind range
7299 N_Character_Literal;
7301 subtype N_Entity is Node_Kind range
7302 N_Defining_Character_Literal ..
7303 N_Defining_Operator_Symbol;
7305 subtype N_Formal_Subprogram_Declaration is Node_Kind range
7306 N_Formal_Abstract_Subprogram_Declaration ..
7307 N_Formal_Concrete_Subprogram_Declaration;
7309 subtype N_Generic_Declaration is Node_Kind range
7310 N_Generic_Package_Declaration ..
7311 N_Generic_Subprogram_Declaration;
7313 subtype N_Generic_Instantiation is Node_Kind range
7314 N_Function_Instantiation ..
7315 N_Package_Instantiation;
7317 subtype N_Generic_Renaming_Declaration is Node_Kind range
7318 N_Generic_Function_Renaming_Declaration ..
7319 N_Generic_Procedure_Renaming_Declaration;
7321 subtype N_Has_Chars is Node_Kind range
7322 N_Attribute_Definition_Clause ..
7325 subtype N_Has_Entity is Node_Kind range
7327 N_Attribute_Reference;
7328 -- Nodes that have Entity fields
7329 -- Warning: DOES NOT INCLUDE N_Freeze_Entity!
7331 subtype N_Has_Etype is Node_Kind range
7333 N_Subtype_Indication;
7335 subtype N_Has_Treat_Fixed_As_Integer is Node_Kind range
7339 subtype N_Multiplying_Operator is Node_Kind range
7343 subtype N_Later_Decl_Item is Node_Kind range
7344 N_Task_Type_Declaration ..
7345 N_Generic_Subprogram_Declaration;
7346 -- Note: this is Ada 83 relevant only (see Ada 83 RM 3.9 (2)) and
7347 -- includes only those items which can appear as later declarative
7348 -- items. This also includes N_Implicit_Label_Declaration which is
7349 -- not specifically in the grammar but may appear as a valid later
7350 -- declarative items. It does NOT include N_Pragma which can also
7351 -- appear among later declarative items. It does however include
7352 -- N_Protected_Body, which is a bit peculiar, but harmless since
7353 -- this cannot appear in Ada 83 mode anyway.
7355 subtype N_Membership_Test is Node_Kind range
7359 subtype N_Op is Node_Kind range
7363 subtype N_Op_Boolean is Node_Kind range
7366 -- Binary operators which take operands of a boolean type, and yield
7367 -- a result of a boolean type.
7369 subtype N_Op_Compare is Node_Kind range
7373 subtype N_Op_Shift is Node_Kind range
7375 N_Op_Shift_Right_Arithmetic;
7377 subtype N_Proper_Body is Node_Kind range
7381 subtype N_Push_xxx_Label is Node_Kind range
7382 N_Push_Constraint_Error_Label ..
7383 N_Push_Storage_Error_Label;
7385 subtype N_Pop_xxx_Label is Node_Kind range
7386 N_Pop_Constraint_Error_Label ..
7387 N_Pop_Storage_Error_Label;
7389 subtype N_Push_Pop_xxx_Label is Node_Kind range
7390 N_Push_Constraint_Error_Label ..
7391 N_Pop_Storage_Error_Label;
7393 subtype N_Raise_xxx_Error is Node_Kind range
7394 N_Raise_Constraint_Error ..
7395 N_Raise_Storage_Error;
7397 subtype N_Renaming_Declaration is Node_Kind range
7398 N_Exception_Renaming_Declaration ..
7399 N_Generic_Procedure_Renaming_Declaration;
7401 subtype N_Representation_Clause is Node_Kind range
7403 N_Attribute_Definition_Clause;
7405 subtype N_Statement_Other_Than_Procedure_Call is Node_Kind range
7406 N_Abort_Statement ..
7408 -- Note that this includes all statement types except for the cases of the
7409 -- N_Procedure_Call_Statement which is considered to be a subexpression
7410 -- (since overloading is possible, so it needs to go through the normal
7411 -- overloading resolution for expressions).
7413 subtype N_Subprogram_Instantiation is Node_Kind range
7414 N_Function_Instantiation ..
7415 N_Procedure_Instantiation;
7417 subtype N_Has_Condition is Node_Kind range
7419 N_Terminate_Alternative;
7420 -- Nodes with condition fields (does not include N_Raise_xxx_Error)
7422 subtype N_Subexpr is Node_Kind range
7424 N_Unchecked_Type_Conversion;
7425 -- Nodes with expression fields
7427 subtype N_Subprogram_Specification is Node_Kind range
7428 N_Function_Specification ..
7429 N_Procedure_Specification;
7431 subtype N_Unary_Op is Node_Kind range
7435 subtype N_Unit_Body is Node_Kind range
7439 ---------------------------
7440 -- Node Access Functions --
7441 ---------------------------
7443 -- The following functions return the contents of the indicated field of
7444 -- the node referenced by the argument, which is a Node_Id. They provide
7445 -- logical access to fields in the node which could be accessed using the
7446 -- Atree.Unchecked_Access package, but the idea is always to use these
7447 -- higher level routines which preserve strong typing. In debug mode,
7448 -- these routines check that they are being applied to an appropriate
7449 -- node, as well as checking that the node is in range.
7451 function ABE_Is_Certain
7452 (N : Node_Id) return Boolean; -- Flag18
7454 function Abort_Present
7455 (N : Node_Id) return Boolean; -- Flag15
7457 function Abortable_Part
7458 (N : Node_Id) return Node_Id; -- Node2
7460 function Abstract_Present
7461 (N : Node_Id) return Boolean; -- Flag4
7463 function Accept_Handler_Records
7464 (N : Node_Id) return List_Id; -- List5
7466 function Accept_Statement
7467 (N : Node_Id) return Node_Id; -- Node2
7469 function Access_Definition
7470 (N : Node_Id) return Node_Id; -- Node3
7472 function Access_To_Subprogram_Definition
7473 (N : Node_Id) return Node_Id; -- Node3
7475 function Access_Types_To_Process
7476 (N : Node_Id) return Elist_Id; -- Elist2
7479 (N : Node_Id) return List_Id; -- List1
7481 function Activation_Chain_Entity
7482 (N : Node_Id) return Node_Id; -- Node3
7484 function Acts_As_Spec
7485 (N : Node_Id) return Boolean; -- Flag4
7487 function Actual_Designated_Subtype
7488 (N : Node_Id) return Node_Id; -- Node4
7490 function Address_Warning_Posted
7491 (N : Node_Id) return Boolean; -- Flag18
7493 function Aggregate_Bounds
7494 (N : Node_Id) return Node_Id; -- Node3
7496 function Aliased_Present
7497 (N : Node_Id) return Boolean; -- Flag4
7500 (N : Node_Id) return Boolean; -- Flag11
7502 function All_Present
7503 (N : Node_Id) return Boolean; -- Flag15
7505 function Alternatives
7506 (N : Node_Id) return List_Id; -- List4
7508 function Ancestor_Part
7509 (N : Node_Id) return Node_Id; -- Node3
7511 function Array_Aggregate
7512 (N : Node_Id) return Node_Id; -- Node3
7514 function Assignment_OK
7515 (N : Node_Id) return Boolean; -- Flag15
7517 function Associated_Node
7518 (N : Node_Id) return Node_Id; -- Node4
7520 function At_End_Proc
7521 (N : Node_Id) return Node_Id; -- Node1
7523 function Attribute_Name
7524 (N : Node_Id) return Name_Id; -- Name2
7526 function Aux_Decls_Node
7527 (N : Node_Id) return Node_Id; -- Node5
7529 function Backwards_OK
7530 (N : Node_Id) return Boolean; -- Flag6
7532 function Bad_Is_Detected
7533 (N : Node_Id) return Boolean; -- Flag15
7536 (N : Node_Id) return Boolean; -- Flag5
7538 function Body_Required
7539 (N : Node_Id) return Boolean; -- Flag13
7541 function Body_To_Inline
7542 (N : Node_Id) return Node_Id; -- Node3
7544 function Box_Present
7545 (N : Node_Id) return Boolean; -- Flag15
7547 function Char_Literal_Value
7548 (N : Node_Id) return Uint; -- Uint2
7551 (N : Node_Id) return Name_Id; -- Name1
7553 function Check_Address_Alignment
7554 (N : Node_Id) return Boolean; -- Flag11
7556 function Choice_Parameter
7557 (N : Node_Id) return Node_Id; -- Node2
7560 (N : Node_Id) return List_Id; -- List1
7562 function Coextensions
7563 (N : Node_Id) return Elist_Id; -- Elist4
7565 function Comes_From_Extended_Return_Statement
7566 (N : Node_Id) return Boolean; -- Flag18
7568 function Compile_Time_Known_Aggregate
7569 (N : Node_Id) return Boolean; -- Flag18
7571 function Component_Associations
7572 (N : Node_Id) return List_Id; -- List2
7574 function Component_Clauses
7575 (N : Node_Id) return List_Id; -- List3
7577 function Component_Definition
7578 (N : Node_Id) return Node_Id; -- Node4
7580 function Component_Items
7581 (N : Node_Id) return List_Id; -- List3
7583 function Component_List
7584 (N : Node_Id) return Node_Id; -- Node1
7586 function Component_Name
7587 (N : Node_Id) return Node_Id; -- Node1
7590 (N : Node_Id) return Node_Id; -- Node1
7592 function Condition_Actions
7593 (N : Node_Id) return List_Id; -- List3
7595 function Config_Pragmas
7596 (N : Node_Id) return List_Id; -- List4
7598 function Constant_Present
7599 (N : Node_Id) return Boolean; -- Flag17
7602 (N : Node_Id) return Node_Id; -- Node3
7604 function Constraints
7605 (N : Node_Id) return List_Id; -- List1
7607 function Context_Installed
7608 (N : Node_Id) return Boolean; -- Flag13
7610 function Context_Items
7611 (N : Node_Id) return List_Id; -- List1
7613 function Controlling_Argument
7614 (N : Node_Id) return Node_Id; -- Node1
7616 function Conversion_OK
7617 (N : Node_Id) return Boolean; -- Flag14
7619 function Corresponding_Body
7620 (N : Node_Id) return Node_Id; -- Node5
7622 function Corresponding_Formal_Spec
7623 (N : Node_Id) return Node_Id; -- Node3
7625 function Corresponding_Generic_Association
7626 (N : Node_Id) return Node_Id; -- Node5
7628 function Corresponding_Integer_Value
7629 (N : Node_Id) return Uint; -- Uint4
7631 function Corresponding_Spec
7632 (N : Node_Id) return Node_Id; -- Node5
7634 function Corresponding_Stub
7635 (N : Node_Id) return Node_Id; -- Node3
7637 function Dcheck_Function
7638 (N : Node_Id) return Entity_Id; -- Node5
7640 function Debug_Statement
7641 (N : Node_Id) return Node_Id; -- Node3
7643 function Declarations
7644 (N : Node_Id) return List_Id; -- List2
7646 function Default_Expression
7647 (N : Node_Id) return Node_Id; -- Node5
7649 function Default_Name
7650 (N : Node_Id) return Node_Id; -- Node2
7652 function Defining_Identifier
7653 (N : Node_Id) return Entity_Id; -- Node1
7655 function Defining_Unit_Name
7656 (N : Node_Id) return Node_Id; -- Node1
7658 function Delay_Alternative
7659 (N : Node_Id) return Node_Id; -- Node4
7661 function Delay_Statement
7662 (N : Node_Id) return Node_Id; -- Node2
7664 function Delta_Expression
7665 (N : Node_Id) return Node_Id; -- Node3
7667 function Digits_Expression
7668 (N : Node_Id) return Node_Id; -- Node2
7670 function Discr_Check_Funcs_Built
7671 (N : Node_Id) return Boolean; -- Flag11
7673 function Discrete_Choices
7674 (N : Node_Id) return List_Id; -- List4
7676 function Discrete_Range
7677 (N : Node_Id) return Node_Id; -- Node4
7679 function Discrete_Subtype_Definition
7680 (N : Node_Id) return Node_Id; -- Node4
7682 function Discrete_Subtype_Definitions
7683 (N : Node_Id) return List_Id; -- List2
7685 function Discriminant_Specifications
7686 (N : Node_Id) return List_Id; -- List4
7688 function Discriminant_Type
7689 (N : Node_Id) return Node_Id; -- Node5
7691 function Do_Accessibility_Check
7692 (N : Node_Id) return Boolean; -- Flag13
7694 function Do_Discriminant_Check
7695 (N : Node_Id) return Boolean; -- Flag13
7697 function Do_Division_Check
7698 (N : Node_Id) return Boolean; -- Flag13
7700 function Do_Length_Check
7701 (N : Node_Id) return Boolean; -- Flag4
7703 function Do_Overflow_Check
7704 (N : Node_Id) return Boolean; -- Flag17
7706 function Do_Range_Check
7707 (N : Node_Id) return Boolean; -- Flag9
7709 function Do_Storage_Check
7710 (N : Node_Id) return Boolean; -- Flag17
7712 function Do_Tag_Check
7713 (N : Node_Id) return Boolean; -- Flag13
7715 function Elaborate_All_Desirable
7716 (N : Node_Id) return Boolean; -- Flag9
7718 function Elaborate_All_Present
7719 (N : Node_Id) return Boolean; -- Flag14
7721 function Elaborate_Desirable
7722 (N : Node_Id) return Boolean; -- Flag11
7724 function Elaborate_Present
7725 (N : Node_Id) return Boolean; -- Flag4
7727 function Elaboration_Boolean
7728 (N : Node_Id) return Node_Id; -- Node2
7730 function Else_Actions
7731 (N : Node_Id) return List_Id; -- List3
7733 function Else_Statements
7734 (N : Node_Id) return List_Id; -- List4
7736 function Elsif_Parts
7737 (N : Node_Id) return List_Id; -- List3
7739 function Enclosing_Variant
7740 (N : Node_Id) return Node_Id; -- Node2
7743 (N : Node_Id) return Node_Id; -- Node4
7746 (N : Node_Id) return Uint; -- Uint5
7749 (N : Node_Id) return Node_Id; -- Node4
7751 function Entity_Or_Associated_Node
7752 (N : Node_Id) return Node_Id; -- Node4
7754 function Entry_Body_Formal_Part
7755 (N : Node_Id) return Node_Id; -- Node5
7757 function Entry_Call_Alternative
7758 (N : Node_Id) return Node_Id; -- Node1
7760 function Entry_Call_Statement
7761 (N : Node_Id) return Node_Id; -- Node1
7763 function Entry_Direct_Name
7764 (N : Node_Id) return Node_Id; -- Node1
7766 function Entry_Index
7767 (N : Node_Id) return Node_Id; -- Node5
7769 function Entry_Index_Specification
7770 (N : Node_Id) return Node_Id; -- Node4
7773 (N : Node_Id) return Node_Id; -- Node5
7775 function Exception_Choices
7776 (N : Node_Id) return List_Id; -- List4
7778 function Exception_Handlers
7779 (N : Node_Id) return List_Id; -- List5
7781 function Exception_Junk
7782 (N : Node_Id) return Boolean; -- Flag8
7784 function Exception_Label
7785 (N : Node_Id) return Node_Id; -- Node5
7787 function Explicit_Actual_Parameter
7788 (N : Node_Id) return Node_Id; -- Node3
7790 function Expansion_Delayed
7791 (N : Node_Id) return Boolean; -- Flag11
7793 function Explicit_Generic_Actual_Parameter
7794 (N : Node_Id) return Node_Id; -- Node1
7797 (N : Node_Id) return Node_Id; -- Node3
7799 function Expressions
7800 (N : Node_Id) return List_Id; -- List1
7803 (N : Node_Id) return Node_Id; -- Node3
7805 function First_Inlined_Subprogram
7806 (N : Node_Id) return Entity_Id; -- Node3
7809 (N : Node_Id) return Boolean; -- Flag5
7811 function First_Named_Actual
7812 (N : Node_Id) return Node_Id; -- Node4
7814 function First_Real_Statement
7815 (N : Node_Id) return Node_Id; -- Node2
7817 function First_Subtype_Link
7818 (N : Node_Id) return Entity_Id; -- Node5
7820 function Float_Truncate
7821 (N : Node_Id) return Boolean; -- Flag11
7823 function Formal_Type_Definition
7824 (N : Node_Id) return Node_Id; -- Node3
7826 function Forwards_OK
7827 (N : Node_Id) return Boolean; -- Flag5
7829 function From_At_End
7830 (N : Node_Id) return Boolean; -- Flag4
7832 function From_At_Mod
7833 (N : Node_Id) return Boolean; -- Flag4
7835 function From_Default
7836 (N : Node_Id) return Boolean; -- Flag6
7838 function Generic_Associations
7839 (N : Node_Id) return List_Id; -- List3
7841 function Generic_Formal_Declarations
7842 (N : Node_Id) return List_Id; -- List2
7844 function Generic_Parent
7845 (N : Node_Id) return Node_Id; -- Node5
7847 function Generic_Parent_Type
7848 (N : Node_Id) return Node_Id; -- Node4
7850 function Handled_Statement_Sequence
7851 (N : Node_Id) return Node_Id; -- Node4
7853 function Handler_List_Entry
7854 (N : Node_Id) return Node_Id; -- Node2
7856 function Has_Created_Identifier
7857 (N : Node_Id) return Boolean; -- Flag15
7859 function Has_Dynamic_Length_Check
7860 (N : Node_Id) return Boolean; -- Flag10
7862 function Has_Dynamic_Range_Check
7863 (N : Node_Id) return Boolean; -- Flag12
7865 function Has_Init_Expression
7866 (N : Node_Id) return Boolean; -- Flag14
7868 function Has_Local_Raise
7869 (N : Node_Id) return Boolean; -- Flag8
7871 function Has_No_Elaboration_Code
7872 (N : Node_Id) return Boolean; -- Flag17
7874 function Has_Priority_Pragma
7875 (N : Node_Id) return Boolean; -- Flag6
7877 function Has_Private_View
7878 (N : Node_Id) return Boolean; -- Flag11
7880 function Has_Relative_Deadline_Pragma
7881 (N : Node_Id) return Boolean; -- Flag9
7883 function Has_Self_Reference
7884 (N : Node_Id) return Boolean; -- Flag13
7886 function Has_Storage_Size_Pragma
7887 (N : Node_Id) return Boolean; -- Flag5
7889 function Has_Task_Info_Pragma
7890 (N : Node_Id) return Boolean; -- Flag7
7892 function Has_Task_Name_Pragma
7893 (N : Node_Id) return Boolean; -- Flag8
7895 function Has_Wide_Character
7896 (N : Node_Id) return Boolean; -- Flag11
7898 function Hidden_By_Use_Clause
7899 (N : Node_Id) return Elist_Id; -- Elist4
7902 (N : Node_Id) return Node_Id; -- Node2
7905 (N : Node_Id) return Node_Id; -- Node1
7907 function Interface_List
7908 (N : Node_Id) return List_Id; -- List2
7910 function Interface_Present
7911 (N : Node_Id) return Boolean; -- Flag16
7913 function Implicit_With
7914 (N : Node_Id) return Boolean; -- Flag16
7917 (N : Node_Id) return Boolean; -- Flag15
7919 function Includes_Infinities
7920 (N : Node_Id) return Boolean; -- Flag11
7922 function Instance_Spec
7923 (N : Node_Id) return Node_Id; -- Node5
7926 (N : Node_Id) return Uint; -- Uint3
7928 function Is_Asynchronous_Call_Block
7929 (N : Node_Id) return Boolean; -- Flag7
7931 function Is_Component_Left_Opnd
7932 (N : Node_Id) return Boolean; -- Flag13
7934 function Is_Component_Right_Opnd
7935 (N : Node_Id) return Boolean; -- Flag14
7937 function Is_Controlling_Actual
7938 (N : Node_Id) return Boolean; -- Flag16
7940 function Is_Dynamic_Coextension
7941 (N : Node_Id) return Boolean; -- Flag18
7943 function Is_Entry_Barrier_Function
7944 (N : Node_Id) return Boolean; -- Flag8
7946 function Is_Expanded_Build_In_Place_Call
7947 (N : Node_Id) return Boolean; -- Flag11
7949 function Is_Folded_In_Parser
7950 (N : Node_Id) return Boolean; -- Flag4
7952 function Is_In_Discriminant_Check
7953 (N : Node_Id) return Boolean; -- Flag11
7955 function Is_Machine_Number
7956 (N : Node_Id) return Boolean; -- Flag11
7958 function Is_Null_Loop
7959 (N : Node_Id) return Boolean; -- Flag16
7961 function Is_Overloaded
7962 (N : Node_Id) return Boolean; -- Flag5
7964 function Is_Power_Of_2_For_Shift
7965 (N : Node_Id) return Boolean; -- Flag13
7967 function Is_Protected_Subprogram_Body
7968 (N : Node_Id) return Boolean; -- Flag7
7970 function Is_Static_Coextension
7971 (N : Node_Id) return Boolean; -- Flag14
7973 function Is_Static_Expression
7974 (N : Node_Id) return Boolean; -- Flag6
7976 function Is_Subprogram_Descriptor
7977 (N : Node_Id) return Boolean; -- Flag16
7979 function Is_Task_Allocation_Block
7980 (N : Node_Id) return Boolean; -- Flag6
7982 function Is_Task_Master
7983 (N : Node_Id) return Boolean; -- Flag5
7985 function Iteration_Scheme
7986 (N : Node_Id) return Node_Id; -- Node2
7989 (N : Node_Id) return Entity_Id; -- Node1
7991 function Kill_Range_Check
7992 (N : Node_Id) return Boolean; -- Flag11
7994 function Label_Construct
7995 (N : Node_Id) return Node_Id; -- Node2
7998 (N : Node_Id) return Node_Id; -- Node2
8001 (N : Node_Id) return Node_Id; -- Node4
8004 (N : Node_Id) return Boolean; -- Flag6
8006 function Library_Unit
8007 (N : Node_Id) return Node_Id; -- Node4
8009 function Limited_View_Installed
8010 (N : Node_Id) return Boolean; -- Flag18
8012 function Limited_Present
8013 (N : Node_Id) return Boolean; -- Flag17
8016 (N : Node_Id) return List_Id; -- List1
8018 function Local_Raise_Not_OK
8019 (N : Node_Id) return Boolean; -- Flag7
8021 function Local_Raise_Statements
8022 (N : Node_Id) return Elist_Id; -- Elist1
8024 function Loop_Actions
8025 (N : Node_Id) return List_Id; -- List2
8027 function Loop_Parameter_Specification
8028 (N : Node_Id) return Node_Id; -- Node4
8031 (N : Node_Id) return Node_Id; -- Node1
8034 (N : Node_Id) return Node_Id; -- Node2
8037 (N : Node_Id) return Boolean; -- Flag5
8039 function Must_Be_Byte_Aligned
8040 (N : Node_Id) return Boolean; -- Flag14
8042 function Must_Not_Freeze
8043 (N : Node_Id) return Boolean; -- Flag8
8045 function Must_Not_Override
8046 (N : Node_Id) return Boolean; -- Flag15
8048 function Must_Override
8049 (N : Node_Id) return Boolean; -- Flag14
8052 (N : Node_Id) return Node_Id; -- Node2
8055 (N : Node_Id) return List_Id; -- List2
8057 function Next_Entity
8058 (N : Node_Id) return Node_Id; -- Node2
8060 function Next_Named_Actual
8061 (N : Node_Id) return Node_Id; -- Node4
8063 function Next_Pragma
8064 (N : Node_Id) return Node_Id; -- Node1
8066 function Next_Rep_Item
8067 (N : Node_Id) return Node_Id; -- Node5
8069 function Next_Use_Clause
8070 (N : Node_Id) return Node_Id; -- Node3
8072 function No_Ctrl_Actions
8073 (N : Node_Id) return Boolean; -- Flag7
8075 function No_Elaboration_Check
8076 (N : Node_Id) return Boolean; -- Flag14
8078 function No_Entities_Ref_In_Spec
8079 (N : Node_Id) return Boolean; -- Flag8
8081 function No_Initialization
8082 (N : Node_Id) return Boolean; -- Flag13
8084 function No_Truncation
8085 (N : Node_Id) return Boolean; -- Flag17
8087 function Null_Present
8088 (N : Node_Id) return Boolean; -- Flag13
8090 function Null_Exclusion_Present
8091 (N : Node_Id) return Boolean; -- Flag11
8093 function Null_Exclusion_In_Return_Present
8094 (N : Node_Id) return Boolean; -- Flag14
8096 function Null_Record_Present
8097 (N : Node_Id) return Boolean; -- Flag17
8099 function Object_Definition
8100 (N : Node_Id) return Node_Id; -- Node4
8102 function Original_Discriminant
8103 (N : Node_Id) return Node_Id; -- Node2
8105 function Original_Entity
8106 (N : Node_Id) return Entity_Id; -- Node2
8108 function Others_Discrete_Choices
8109 (N : Node_Id) return List_Id; -- List1
8111 function Out_Present
8112 (N : Node_Id) return Boolean; -- Flag17
8114 function Parameter_Associations
8115 (N : Node_Id) return List_Id; -- List3
8117 function Parameter_List_Truncated
8118 (N : Node_Id) return Boolean; -- Flag17
8120 function Parameter_Specifications
8121 (N : Node_Id) return List_Id; -- List3
8123 function Parameter_Type
8124 (N : Node_Id) return Node_Id; -- Node2
8126 function Parent_Spec
8127 (N : Node_Id) return Node_Id; -- Node4
8129 function PPC_Enabled
8130 (N : Node_Id) return Boolean; -- Flag5
8133 (N : Node_Id) return Node_Id; -- Node2
8135 function Pragma_Argument_Associations
8136 (N : Node_Id) return List_Id; -- List2
8138 function Pragma_Identifier
8139 (N : Node_Id) return Node_Id; -- Node4
8141 function Pragmas_After
8142 (N : Node_Id) return List_Id; -- List5
8144 function Pragmas_Before
8145 (N : Node_Id) return List_Id; -- List4
8148 (N : Node_Id) return Node_Id; -- Node3
8150 function Present_Expr
8151 (N : Node_Id) return Uint; -- Uint3
8154 (N : Node_Id) return Boolean; -- Flag6
8156 function Print_In_Hex
8157 (N : Node_Id) return Boolean; -- Flag13
8159 function Private_Declarations
8160 (N : Node_Id) return List_Id; -- List3
8162 function Private_Present
8163 (N : Node_Id) return Boolean; -- Flag15
8165 function Procedure_To_Call
8166 (N : Node_Id) return Node_Id; -- Node2
8168 function Proper_Body
8169 (N : Node_Id) return Node_Id; -- Node1
8171 function Protected_Definition
8172 (N : Node_Id) return Node_Id; -- Node3
8174 function Protected_Present
8175 (N : Node_Id) return Boolean; -- Flag6
8177 function Raises_Constraint_Error
8178 (N : Node_Id) return Boolean; -- Flag7
8180 function Range_Constraint
8181 (N : Node_Id) return Node_Id; -- Node4
8183 function Range_Expression
8184 (N : Node_Id) return Node_Id; -- Node4
8186 function Real_Range_Specification
8187 (N : Node_Id) return Node_Id; -- Node4
8190 (N : Node_Id) return Ureal; -- Ureal3
8193 (N : Node_Id) return Uint; -- Uint3
8195 function Record_Extension_Part
8196 (N : Node_Id) return Node_Id; -- Node3
8198 function Redundant_Use
8199 (N : Node_Id) return Boolean; -- Flag13
8201 function Renaming_Exception
8202 (N : Node_Id) return Node_Id; -- Node2
8204 function Result_Definition
8205 (N : Node_Id) return Node_Id; -- Node4
8207 function Return_Object_Declarations
8208 (N : Node_Id) return List_Id; -- List3
8210 function Return_Statement_Entity
8211 (N : Node_Id) return Node_Id; -- Node5
8213 function Reverse_Present
8214 (N : Node_Id) return Boolean; -- Flag15
8217 (N : Node_Id) return Node_Id; -- Node3
8219 function Rounded_Result
8220 (N : Node_Id) return Boolean; -- Flag18
8223 (N : Node_Id) return Node_Id; -- Node3
8225 function Select_Alternatives
8226 (N : Node_Id) return List_Id; -- List1
8228 function Selector_Name
8229 (N : Node_Id) return Node_Id; -- Node2
8231 function Selector_Names
8232 (N : Node_Id) return List_Id; -- List1
8234 function Shift_Count_OK
8235 (N : Node_Id) return Boolean; -- Flag4
8237 function Source_Type
8238 (N : Node_Id) return Entity_Id; -- Node1
8240 function Specification
8241 (N : Node_Id) return Node_Id; -- Node1
8244 (N : Node_Id) return List_Id; -- List3
8246 function Static_Processing_OK
8247 (N : Node_Id) return Boolean; -- Flag4
8249 function Storage_Pool
8250 (N : Node_Id) return Node_Id; -- Node1
8253 (N : Node_Id) return String_Id; -- Str3
8255 function Subtype_Indication
8256 (N : Node_Id) return Node_Id; -- Node5
8258 function Subtype_Mark
8259 (N : Node_Id) return Node_Id; -- Node4
8261 function Subtype_Marks
8262 (N : Node_Id) return List_Id; -- List2
8264 function Suppress_Loop_Warnings
8265 (N : Node_Id) return Boolean; -- Flag17
8267 function Synchronized_Present
8268 (N : Node_Id) return Boolean; -- Flag7
8270 function Tagged_Present
8271 (N : Node_Id) return Boolean; -- Flag15
8273 function Target_Type
8274 (N : Node_Id) return Entity_Id; -- Node2
8276 function Task_Definition
8277 (N : Node_Id) return Node_Id; -- Node3
8279 function Task_Present
8280 (N : Node_Id) return Boolean; -- Flag5
8282 function Then_Actions
8283 (N : Node_Id) return List_Id; -- List2
8285 function Then_Statements
8286 (N : Node_Id) return List_Id; -- List2
8288 function Treat_Fixed_As_Integer
8289 (N : Node_Id) return Boolean; -- Flag14
8291 function Triggering_Alternative
8292 (N : Node_Id) return Node_Id; -- Node1
8294 function Triggering_Statement
8295 (N : Node_Id) return Node_Id; -- Node1
8298 (N : Node_Id) return Elist_Id; -- Elist3
8300 function Type_Definition
8301 (N : Node_Id) return Node_Id; -- Node3
8304 (N : Node_Id) return Node_Id; -- Node2
8306 function Unknown_Discriminants_Present
8307 (N : Node_Id) return Boolean; -- Flag13
8309 function Unreferenced_In_Spec
8310 (N : Node_Id) return Boolean; -- Flag7
8312 function Variant_Part
8313 (N : Node_Id) return Node_Id; -- Node4
8316 (N : Node_Id) return List_Id; -- List1
8318 function Visible_Declarations
8319 (N : Node_Id) return List_Id; -- List2
8321 function Was_Originally_Stub
8322 (N : Node_Id) return Boolean; -- Flag13
8324 function Zero_Cost_Handling
8325 (N : Node_Id) return Boolean; -- Flag5
8327 -- End functions (note used by xsinfo utility program to end processing)
8329 ----------------------------
8330 -- Node Update Procedures --
8331 ----------------------------
8333 -- These are the corresponding node update routines, which again provide
8334 -- a high level logical access with type checking. In addition to setting
8335 -- the indicated field of the node N to the given Val, in the case of
8336 -- tree pointers (List1-4), the parent pointer of the Val node is set to
8337 -- point back to node N. This automates the setting of the parent pointer.
8339 procedure Set_ABE_Is_Certain
8340 (N : Node_Id; Val : Boolean := True); -- Flag18
8342 procedure Set_Abort_Present
8343 (N : Node_Id; Val : Boolean := True); -- Flag15
8345 procedure Set_Abortable_Part
8346 (N : Node_Id; Val : Node_Id); -- Node2
8348 procedure Set_Abstract_Present
8349 (N : Node_Id; Val : Boolean := True); -- Flag4
8351 procedure Set_Accept_Handler_Records
8352 (N : Node_Id; Val : List_Id); -- List5
8354 procedure Set_Accept_Statement
8355 (N : Node_Id; Val : Node_Id); -- Node2
8357 procedure Set_Access_Definition
8358 (N : Node_Id; Val : Node_Id); -- Node3
8360 procedure Set_Access_To_Subprogram_Definition
8361 (N : Node_Id; Val : Node_Id); -- Node3
8363 procedure Set_Access_Types_To_Process
8364 (N : Node_Id; Val : Elist_Id); -- Elist2
8366 procedure Set_Actions
8367 (N : Node_Id; Val : List_Id); -- List1
8369 procedure Set_Activation_Chain_Entity
8370 (N : Node_Id; Val : Node_Id); -- Node3
8372 procedure Set_Acts_As_Spec
8373 (N : Node_Id; Val : Boolean := True); -- Flag4
8375 procedure Set_Actual_Designated_Subtype
8376 (N : Node_Id; Val : Node_Id); -- Node4
8378 procedure Set_Address_Warning_Posted
8379 (N : Node_Id; Val : Boolean := True); -- Flag18
8381 procedure Set_Aggregate_Bounds
8382 (N : Node_Id; Val : Node_Id); -- Node3
8384 procedure Set_Aliased_Present
8385 (N : Node_Id; Val : Boolean := True); -- Flag4
8387 procedure Set_All_Others
8388 (N : Node_Id; Val : Boolean := True); -- Flag11
8390 procedure Set_All_Present
8391 (N : Node_Id; Val : Boolean := True); -- Flag15
8393 procedure Set_Alternatives
8394 (N : Node_Id; Val : List_Id); -- List4
8396 procedure Set_Ancestor_Part
8397 (N : Node_Id; Val : Node_Id); -- Node3
8399 procedure Set_Array_Aggregate
8400 (N : Node_Id; Val : Node_Id); -- Node3
8402 procedure Set_Assignment_OK
8403 (N : Node_Id; Val : Boolean := True); -- Flag15
8405 procedure Set_Associated_Node
8406 (N : Node_Id; Val : Node_Id); -- Node4
8408 procedure Set_Attribute_Name
8409 (N : Node_Id; Val : Name_Id); -- Name2
8411 procedure Set_At_End_Proc
8412 (N : Node_Id; Val : Node_Id); -- Node1
8414 procedure Set_Aux_Decls_Node
8415 (N : Node_Id; Val : Node_Id); -- Node5
8417 procedure Set_Backwards_OK
8418 (N : Node_Id; Val : Boolean := True); -- Flag6
8420 procedure Set_Bad_Is_Detected
8421 (N : Node_Id; Val : Boolean := True); -- Flag15
8423 procedure Set_Body_Required
8424 (N : Node_Id; Val : Boolean := True); -- Flag13
8426 procedure Set_Body_To_Inline
8427 (N : Node_Id; Val : Node_Id); -- Node3
8429 procedure Set_Box_Present
8430 (N : Node_Id; Val : Boolean := True); -- Flag15
8432 procedure Set_By_Ref
8433 (N : Node_Id; Val : Boolean := True); -- Flag5
8435 procedure Set_Char_Literal_Value
8436 (N : Node_Id; Val : Uint); -- Uint2
8439 (N : Node_Id; Val : Name_Id); -- Name1
8441 procedure Set_Check_Address_Alignment
8442 (N : Node_Id; Val : Boolean := True); -- Flag11
8444 procedure Set_Choice_Parameter
8445 (N : Node_Id; Val : Node_Id); -- Node2
8447 procedure Set_Coextensions
8448 (N : Node_Id; Val : Elist_Id); -- Elist4
8450 procedure Set_Choices
8451 (N : Node_Id; Val : List_Id); -- List1
8453 procedure Set_Comes_From_Extended_Return_Statement
8454 (N : Node_Id; Val : Boolean := True); -- Flag18
8456 procedure Set_Compile_Time_Known_Aggregate
8457 (N : Node_Id; Val : Boolean := True); -- Flag18
8459 procedure Set_Component_Associations
8460 (N : Node_Id; Val : List_Id); -- List2
8462 procedure Set_Component_Clauses
8463 (N : Node_Id; Val : List_Id); -- List3
8465 procedure Set_Component_Definition
8466 (N : Node_Id; Val : Node_Id); -- Node4
8468 procedure Set_Component_Items
8469 (N : Node_Id; Val : List_Id); -- List3
8471 procedure Set_Component_List
8472 (N : Node_Id; Val : Node_Id); -- Node1
8474 procedure Set_Component_Name
8475 (N : Node_Id; Val : Node_Id); -- Node1
8477 procedure Set_Condition
8478 (N : Node_Id; Val : Node_Id); -- Node1
8480 procedure Set_Condition_Actions
8481 (N : Node_Id; Val : List_Id); -- List3
8483 procedure Set_Config_Pragmas
8484 (N : Node_Id; Val : List_Id); -- List4
8486 procedure Set_Constant_Present
8487 (N : Node_Id; Val : Boolean := True); -- Flag17
8489 procedure Set_Constraint
8490 (N : Node_Id; Val : Node_Id); -- Node3
8492 procedure Set_Constraints
8493 (N : Node_Id; Val : List_Id); -- List1
8495 procedure Set_Context_Installed
8496 (N : Node_Id; Val : Boolean := True); -- Flag13
8498 procedure Set_Context_Items
8499 (N : Node_Id; Val : List_Id); -- List1
8501 procedure Set_Controlling_Argument
8502 (N : Node_Id; Val : Node_Id); -- Node1
8504 procedure Set_Conversion_OK
8505 (N : Node_Id; Val : Boolean := True); -- Flag14
8507 procedure Set_Corresponding_Body
8508 (N : Node_Id; Val : Node_Id); -- Node5
8510 procedure Set_Corresponding_Formal_Spec
8511 (N : Node_Id; Val : Node_Id); -- Node3
8513 procedure Set_Corresponding_Generic_Association
8514 (N : Node_Id; Val : Node_Id); -- Node5
8516 procedure Set_Corresponding_Integer_Value
8517 (N : Node_Id; Val : Uint); -- Uint4
8519 procedure Set_Corresponding_Spec
8520 (N : Node_Id; Val : Node_Id); -- Node5
8522 procedure Set_Corresponding_Stub
8523 (N : Node_Id; Val : Node_Id); -- Node3
8525 procedure Set_Dcheck_Function
8526 (N : Node_Id; Val : Entity_Id); -- Node5
8528 procedure Set_Debug_Statement
8529 (N : Node_Id; Val : Node_Id); -- Node3
8531 procedure Set_Declarations
8532 (N : Node_Id; Val : List_Id); -- List2
8534 procedure Set_Default_Expression
8535 (N : Node_Id; Val : Node_Id); -- Node5
8537 procedure Set_Default_Name
8538 (N : Node_Id; Val : Node_Id); -- Node2
8540 procedure Set_Defining_Identifier
8541 (N : Node_Id; Val : Entity_Id); -- Node1
8543 procedure Set_Defining_Unit_Name
8544 (N : Node_Id; Val : Node_Id); -- Node1
8546 procedure Set_Delay_Alternative
8547 (N : Node_Id; Val : Node_Id); -- Node4
8549 procedure Set_Delay_Statement
8550 (N : Node_Id; Val : Node_Id); -- Node2
8552 procedure Set_Delta_Expression
8553 (N : Node_Id; Val : Node_Id); -- Node3
8555 procedure Set_Digits_Expression
8556 (N : Node_Id; Val : Node_Id); -- Node2
8558 procedure Set_Discr_Check_Funcs_Built
8559 (N : Node_Id; Val : Boolean := True); -- Flag11
8561 procedure Set_Discrete_Choices
8562 (N : Node_Id; Val : List_Id); -- List4
8564 procedure Set_Discrete_Range
8565 (N : Node_Id; Val : Node_Id); -- Node4
8567 procedure Set_Discrete_Subtype_Definition
8568 (N : Node_Id; Val : Node_Id); -- Node4
8570 procedure Set_Discrete_Subtype_Definitions
8571 (N : Node_Id; Val : List_Id); -- List2
8573 procedure Set_Discriminant_Specifications
8574 (N : Node_Id; Val : List_Id); -- List4
8576 procedure Set_Discriminant_Type
8577 (N : Node_Id; Val : Node_Id); -- Node5
8579 procedure Set_Do_Accessibility_Check
8580 (N : Node_Id; Val : Boolean := True); -- Flag13
8582 procedure Set_Do_Discriminant_Check
8583 (N : Node_Id; Val : Boolean := True); -- Flag13
8585 procedure Set_Do_Division_Check
8586 (N : Node_Id; Val : Boolean := True); -- Flag13
8588 procedure Set_Do_Length_Check
8589 (N : Node_Id; Val : Boolean := True); -- Flag4
8591 procedure Set_Do_Overflow_Check
8592 (N : Node_Id; Val : Boolean := True); -- Flag17
8594 procedure Set_Do_Range_Check
8595 (N : Node_Id; Val : Boolean := True); -- Flag9
8597 procedure Set_Do_Storage_Check
8598 (N : Node_Id; Val : Boolean := True); -- Flag17
8600 procedure Set_Do_Tag_Check
8601 (N : Node_Id; Val : Boolean := True); -- Flag13
8603 procedure Set_Elaborate_All_Desirable
8604 (N : Node_Id; Val : Boolean := True); -- Flag9
8606 procedure Set_Elaborate_All_Present
8607 (N : Node_Id; Val : Boolean := True); -- Flag14
8609 procedure Set_Elaborate_Desirable
8610 (N : Node_Id; Val : Boolean := True); -- Flag11
8612 procedure Set_Elaborate_Present
8613 (N : Node_Id; Val : Boolean := True); -- Flag4
8615 procedure Set_Elaboration_Boolean
8616 (N : Node_Id; Val : Node_Id); -- Node2
8618 procedure Set_Else_Actions
8619 (N : Node_Id; Val : List_Id); -- List3
8621 procedure Set_Else_Statements
8622 (N : Node_Id; Val : List_Id); -- List4
8624 procedure Set_Elsif_Parts
8625 (N : Node_Id; Val : List_Id); -- List3
8627 procedure Set_Enclosing_Variant
8628 (N : Node_Id; Val : Node_Id); -- Node2
8630 procedure Set_End_Label
8631 (N : Node_Id; Val : Node_Id); -- Node4
8633 procedure Set_End_Span
8634 (N : Node_Id; Val : Uint); -- Uint5
8636 procedure Set_Entity
8637 (N : Node_Id; Val : Node_Id); -- Node4
8639 procedure Set_Entry_Body_Formal_Part
8640 (N : Node_Id; Val : Node_Id); -- Node5
8642 procedure Set_Entry_Call_Alternative
8643 (N : Node_Id; Val : Node_Id); -- Node1
8645 procedure Set_Entry_Call_Statement
8646 (N : Node_Id; Val : Node_Id); -- Node1
8648 procedure Set_Entry_Direct_Name
8649 (N : Node_Id; Val : Node_Id); -- Node1
8651 procedure Set_Entry_Index
8652 (N : Node_Id; Val : Node_Id); -- Node5
8654 procedure Set_Entry_Index_Specification
8655 (N : Node_Id; Val : Node_Id); -- Node4
8658 (N : Node_Id; Val : Node_Id); -- Node5
8660 procedure Set_Exception_Choices
8661 (N : Node_Id; Val : List_Id); -- List4
8663 procedure Set_Exception_Handlers
8664 (N : Node_Id; Val : List_Id); -- List5
8666 procedure Set_Exception_Junk
8667 (N : Node_Id; Val : Boolean := True); -- Flag8
8669 procedure Set_Exception_Label
8670 (N : Node_Id; Val : Node_Id); -- Node5
8672 procedure Set_Expansion_Delayed
8673 (N : Node_Id; Val : Boolean := True); -- Flag11
8675 procedure Set_Explicit_Actual_Parameter
8676 (N : Node_Id; Val : Node_Id); -- Node3
8678 procedure Set_Explicit_Generic_Actual_Parameter
8679 (N : Node_Id; Val : Node_Id); -- Node1
8681 procedure Set_Expression
8682 (N : Node_Id; Val : Node_Id); -- Node3
8684 procedure Set_Expressions
8685 (N : Node_Id; Val : List_Id); -- List1
8687 procedure Set_First_Bit
8688 (N : Node_Id; Val : Node_Id); -- Node3
8690 procedure Set_First_Inlined_Subprogram
8691 (N : Node_Id; Val : Entity_Id); -- Node3
8693 procedure Set_First_Name
8694 (N : Node_Id; Val : Boolean := True); -- Flag5
8696 procedure Set_First_Named_Actual
8697 (N : Node_Id; Val : Node_Id); -- Node4
8699 procedure Set_First_Real_Statement
8700 (N : Node_Id; Val : Node_Id); -- Node2
8702 procedure Set_First_Subtype_Link
8703 (N : Node_Id; Val : Entity_Id); -- Node5
8705 procedure Set_Float_Truncate
8706 (N : Node_Id; Val : Boolean := True); -- Flag11
8708 procedure Set_Formal_Type_Definition
8709 (N : Node_Id; Val : Node_Id); -- Node3
8711 procedure Set_Forwards_OK
8712 (N : Node_Id; Val : Boolean := True); -- Flag5
8714 procedure Set_From_At_Mod
8715 (N : Node_Id; Val : Boolean := True); -- Flag4
8717 procedure Set_From_At_End
8718 (N : Node_Id; Val : Boolean := True); -- Flag4
8720 procedure Set_From_Default
8721 (N : Node_Id; Val : Boolean := True); -- Flag6
8723 procedure Set_Generic_Associations
8724 (N : Node_Id; Val : List_Id); -- List3
8726 procedure Set_Generic_Formal_Declarations
8727 (N : Node_Id; Val : List_Id); -- List2
8729 procedure Set_Generic_Parent
8730 (N : Node_Id; Val : Node_Id); -- Node5
8732 procedure Set_Generic_Parent_Type
8733 (N : Node_Id; Val : Node_Id); -- Node4
8735 procedure Set_Handled_Statement_Sequence
8736 (N : Node_Id; Val : Node_Id); -- Node4
8738 procedure Set_Handler_List_Entry
8739 (N : Node_Id; Val : Node_Id); -- Node2
8741 procedure Set_Has_Created_Identifier
8742 (N : Node_Id; Val : Boolean := True); -- Flag15
8744 procedure Set_Has_Dynamic_Length_Check
8745 (N : Node_Id; Val : Boolean := True); -- Flag10
8747 procedure Set_Has_Dynamic_Range_Check
8748 (N : Node_Id; Val : Boolean := True); -- Flag12
8750 procedure Set_Has_Init_Expression
8751 (N : Node_Id; Val : Boolean := True); -- Flag14
8753 procedure Set_Has_Local_Raise
8754 (N : Node_Id; Val : Boolean := True); -- Flag8
8756 procedure Set_Has_No_Elaboration_Code
8757 (N : Node_Id; Val : Boolean := True); -- Flag17
8759 procedure Set_Has_Priority_Pragma
8760 (N : Node_Id; Val : Boolean := True); -- Flag6
8762 procedure Set_Has_Private_View
8763 (N : Node_Id; Val : Boolean := True); -- Flag11
8765 procedure Set_Has_Relative_Deadline_Pragma
8766 (N : Node_Id; Val : Boolean := True); -- Flag9
8768 procedure Set_Has_Self_Reference
8769 (N : Node_Id; Val : Boolean := True); -- Flag13
8771 procedure Set_Has_Storage_Size_Pragma
8772 (N : Node_Id; Val : Boolean := True); -- Flag5
8774 procedure Set_Has_Task_Info_Pragma
8775 (N : Node_Id; Val : Boolean := True); -- Flag7
8777 procedure Set_Has_Task_Name_Pragma
8778 (N : Node_Id; Val : Boolean := True); -- Flag8
8780 procedure Set_Has_Wide_Character
8781 (N : Node_Id; Val : Boolean := True); -- Flag11
8783 procedure Set_Hidden_By_Use_Clause
8784 (N : Node_Id; Val : Elist_Id); -- Elist4
8786 procedure Set_High_Bound
8787 (N : Node_Id; Val : Node_Id); -- Node2
8789 procedure Set_Identifier
8790 (N : Node_Id; Val : Node_Id); -- Node1
8792 procedure Set_Interface_List
8793 (N : Node_Id; Val : List_Id); -- List2
8795 procedure Set_Interface_Present
8796 (N : Node_Id; Val : Boolean := True); -- Flag16
8798 procedure Set_Implicit_With
8799 (N : Node_Id; Val : Boolean := True); -- Flag16
8801 procedure Set_In_Present
8802 (N : Node_Id; Val : Boolean := True); -- Flag15
8804 procedure Set_Includes_Infinities
8805 (N : Node_Id; Val : Boolean := True); -- Flag11
8807 procedure Set_Instance_Spec
8808 (N : Node_Id; Val : Node_Id); -- Node5
8810 procedure Set_Intval
8811 (N : Node_Id; Val : Uint); -- Uint3
8813 procedure Set_Is_Asynchronous_Call_Block
8814 (N : Node_Id; Val : Boolean := True); -- Flag7
8816 procedure Set_Is_Component_Left_Opnd
8817 (N : Node_Id; Val : Boolean := True); -- Flag13
8819 procedure Set_Is_Component_Right_Opnd
8820 (N : Node_Id; Val : Boolean := True); -- Flag14
8822 procedure Set_Is_Controlling_Actual
8823 (N : Node_Id; Val : Boolean := True); -- Flag16
8825 procedure Set_Is_Dynamic_Coextension
8826 (N : Node_Id; Val : Boolean := True); -- Flag18
8828 procedure Set_Is_Entry_Barrier_Function
8829 (N : Node_Id; Val : Boolean := True); -- Flag8
8831 procedure Set_Is_Expanded_Build_In_Place_Call
8832 (N : Node_Id; Val : Boolean := True); -- Flag11
8834 procedure Set_Is_Folded_In_Parser
8835 (N : Node_Id; Val : Boolean := True); -- Flag4
8837 procedure Set_Is_In_Discriminant_Check
8838 (N : Node_Id; Val : Boolean := True); -- Flag11
8840 procedure Set_Is_Machine_Number
8841 (N : Node_Id; Val : Boolean := True); -- Flag11
8843 procedure Set_Is_Null_Loop
8844 (N : Node_Id; Val : Boolean := True); -- Flag16
8846 procedure Set_Is_Overloaded
8847 (N : Node_Id; Val : Boolean := True); -- Flag5
8849 procedure Set_Is_Power_Of_2_For_Shift
8850 (N : Node_Id; Val : Boolean := True); -- Flag13
8852 procedure Set_Is_Protected_Subprogram_Body
8853 (N : Node_Id; Val : Boolean := True); -- Flag7
8855 procedure Set_Is_Static_Coextension
8856 (N : Node_Id; Val : Boolean := True); -- Flag14
8858 procedure Set_Is_Static_Expression
8859 (N : Node_Id; Val : Boolean := True); -- Flag6
8861 procedure Set_Is_Subprogram_Descriptor
8862 (N : Node_Id; Val : Boolean := True); -- Flag16
8864 procedure Set_Is_Task_Allocation_Block
8865 (N : Node_Id; Val : Boolean := True); -- Flag6
8867 procedure Set_Is_Task_Master
8868 (N : Node_Id; Val : Boolean := True); -- Flag5
8870 procedure Set_Iteration_Scheme
8871 (N : Node_Id; Val : Node_Id); -- Node2
8874 (N : Node_Id; Val : Entity_Id); -- Node1
8876 procedure Set_Kill_Range_Check
8877 (N : Node_Id; Val : Boolean := True); -- Flag11
8879 procedure Set_Last_Bit
8880 (N : Node_Id; Val : Node_Id); -- Node4
8882 procedure Set_Last_Name
8883 (N : Node_Id; Val : Boolean := True); -- Flag6
8885 procedure Set_Library_Unit
8886 (N : Node_Id; Val : Node_Id); -- Node4
8888 procedure Set_Label_Construct
8889 (N : Node_Id; Val : Node_Id); -- Node2
8891 procedure Set_Left_Opnd
8892 (N : Node_Id; Val : Node_Id); -- Node2
8894 procedure Set_Limited_View_Installed
8895 (N : Node_Id; Val : Boolean := True); -- Flag18
8897 procedure Set_Limited_Present
8898 (N : Node_Id; Val : Boolean := True); -- Flag17
8900 procedure Set_Literals
8901 (N : Node_Id; Val : List_Id); -- List1
8903 procedure Set_Local_Raise_Not_OK
8904 (N : Node_Id; Val : Boolean := True); -- Flag7
8906 procedure Set_Local_Raise_Statements
8907 (N : Node_Id; Val : Elist_Id); -- Elist1
8909 procedure Set_Loop_Actions
8910 (N : Node_Id; Val : List_Id); -- List2
8912 procedure Set_Loop_Parameter_Specification
8913 (N : Node_Id; Val : Node_Id); -- Node4
8915 procedure Set_Low_Bound
8916 (N : Node_Id; Val : Node_Id); -- Node1
8918 procedure Set_Mod_Clause
8919 (N : Node_Id; Val : Node_Id); -- Node2
8921 procedure Set_More_Ids
8922 (N : Node_Id; Val : Boolean := True); -- Flag5
8924 procedure Set_Must_Be_Byte_Aligned
8925 (N : Node_Id; Val : Boolean := True); -- Flag14
8927 procedure Set_Must_Not_Freeze
8928 (N : Node_Id; Val : Boolean := True); -- Flag8
8930 procedure Set_Must_Not_Override
8931 (N : Node_Id; Val : Boolean := True); -- Flag15
8933 procedure Set_Must_Override
8934 (N : Node_Id; Val : Boolean := True); -- Flag14
8937 (N : Node_Id; Val : Node_Id); -- Node2
8940 (N : Node_Id; Val : List_Id); -- List2
8942 procedure Set_Next_Entity
8943 (N : Node_Id; Val : Node_Id); -- Node2
8945 procedure Set_Next_Named_Actual
8946 (N : Node_Id; Val : Node_Id); -- Node4
8948 procedure Set_Next_Pragma
8949 (N : Node_Id; Val : Node_Id); -- Node1
8951 procedure Set_Next_Rep_Item
8952 (N : Node_Id; Val : Node_Id); -- Node5
8954 procedure Set_Next_Use_Clause
8955 (N : Node_Id; Val : Node_Id); -- Node3
8957 procedure Set_No_Ctrl_Actions
8958 (N : Node_Id; Val : Boolean := True); -- Flag7
8960 procedure Set_No_Elaboration_Check
8961 (N : Node_Id; Val : Boolean := True); -- Flag14
8963 procedure Set_No_Entities_Ref_In_Spec
8964 (N : Node_Id; Val : Boolean := True); -- Flag8
8966 procedure Set_No_Initialization
8967 (N : Node_Id; Val : Boolean := True); -- Flag13
8969 procedure Set_No_Truncation
8970 (N : Node_Id; Val : Boolean := True); -- Flag17
8972 procedure Set_Null_Present
8973 (N : Node_Id; Val : Boolean := True); -- Flag13
8975 procedure Set_Null_Exclusion_Present
8976 (N : Node_Id; Val : Boolean := True); -- Flag11
8978 procedure Set_Null_Exclusion_In_Return_Present
8979 (N : Node_Id; Val : Boolean := True); -- Flag14
8981 procedure Set_Null_Record_Present
8982 (N : Node_Id; Val : Boolean := True); -- Flag17
8984 procedure Set_Object_Definition
8985 (N : Node_Id; Val : Node_Id); -- Node4
8987 procedure Set_Original_Discriminant
8988 (N : Node_Id; Val : Node_Id); -- Node2
8990 procedure Set_Original_Entity
8991 (N : Node_Id; Val : Entity_Id); -- Node2
8993 procedure Set_Others_Discrete_Choices
8994 (N : Node_Id; Val : List_Id); -- List1
8996 procedure Set_Out_Present
8997 (N : Node_Id; Val : Boolean := True); -- Flag17
8999 procedure Set_Parameter_Associations
9000 (N : Node_Id; Val : List_Id); -- List3
9002 procedure Set_Parameter_List_Truncated
9003 (N : Node_Id; Val : Boolean := True); -- Flag17
9005 procedure Set_Parameter_Specifications
9006 (N : Node_Id; Val : List_Id); -- List3
9008 procedure Set_Parameter_Type
9009 (N : Node_Id; Val : Node_Id); -- Node2
9011 procedure Set_Parent_Spec
9012 (N : Node_Id; Val : Node_Id); -- Node4
9014 procedure Set_PPC_Enabled
9015 (N : Node_Id; Val : Boolean := True); -- Flag5
9017 procedure Set_Position
9018 (N : Node_Id; Val : Node_Id); -- Node2
9020 procedure Set_Pragma_Argument_Associations
9021 (N : Node_Id; Val : List_Id); -- List2
9023 procedure Set_Pragma_Identifier
9024 (N : Node_Id; Val : Node_Id); -- Node4
9026 procedure Set_Pragmas_After
9027 (N : Node_Id; Val : List_Id); -- List5
9029 procedure Set_Pragmas_Before
9030 (N : Node_Id; Val : List_Id); -- List4
9032 procedure Set_Prefix
9033 (N : Node_Id; Val : Node_Id); -- Node3
9035 procedure Set_Present_Expr
9036 (N : Node_Id; Val : Uint); -- Uint3
9038 procedure Set_Prev_Ids
9039 (N : Node_Id; Val : Boolean := True); -- Flag6
9041 procedure Set_Print_In_Hex
9042 (N : Node_Id; Val : Boolean := True); -- Flag13
9044 procedure Set_Private_Declarations
9045 (N : Node_Id; Val : List_Id); -- List3
9047 procedure Set_Private_Present
9048 (N : Node_Id; Val : Boolean := True); -- Flag15
9050 procedure Set_Procedure_To_Call
9051 (N : Node_Id; Val : Node_Id); -- Node2
9053 procedure Set_Proper_Body
9054 (N : Node_Id; Val : Node_Id); -- Node1
9056 procedure Set_Protected_Definition
9057 (N : Node_Id; Val : Node_Id); -- Node3
9059 procedure Set_Protected_Present
9060 (N : Node_Id; Val : Boolean := True); -- Flag6
9062 procedure Set_Raises_Constraint_Error
9063 (N : Node_Id; Val : Boolean := True); -- Flag7
9065 procedure Set_Range_Constraint
9066 (N : Node_Id; Val : Node_Id); -- Node4
9068 procedure Set_Range_Expression
9069 (N : Node_Id; Val : Node_Id); -- Node4
9071 procedure Set_Real_Range_Specification
9072 (N : Node_Id; Val : Node_Id); -- Node4
9074 procedure Set_Realval
9075 (N : Node_Id; Val : Ureal); -- Ureal3
9077 procedure Set_Reason
9078 (N : Node_Id; Val : Uint); -- Uint3
9080 procedure Set_Record_Extension_Part
9081 (N : Node_Id; Val : Node_Id); -- Node3
9083 procedure Set_Redundant_Use
9084 (N : Node_Id; Val : Boolean := True); -- Flag13
9086 procedure Set_Renaming_Exception
9087 (N : Node_Id; Val : Node_Id); -- Node2
9089 procedure Set_Result_Definition
9090 (N : Node_Id; Val : Node_Id); -- Node4
9092 procedure Set_Return_Object_Declarations
9093 (N : Node_Id; Val : List_Id); -- List3
9095 procedure Set_Return_Statement_Entity
9096 (N : Node_Id; Val : Node_Id); -- Node5
9098 procedure Set_Reverse_Present
9099 (N : Node_Id; Val : Boolean := True); -- Flag15
9101 procedure Set_Right_Opnd
9102 (N : Node_Id; Val : Node_Id); -- Node3
9104 procedure Set_Rounded_Result
9105 (N : Node_Id; Val : Boolean := True); -- Flag18
9108 (N : Node_Id; Val : Node_Id); -- Node3
9110 procedure Set_Select_Alternatives
9111 (N : Node_Id; Val : List_Id); -- List1
9113 procedure Set_Selector_Name
9114 (N : Node_Id; Val : Node_Id); -- Node2
9116 procedure Set_Selector_Names
9117 (N : Node_Id; Val : List_Id); -- List1
9119 procedure Set_Shift_Count_OK
9120 (N : Node_Id; Val : Boolean := True); -- Flag4
9122 procedure Set_Source_Type
9123 (N : Node_Id; Val : Entity_Id); -- Node1
9125 procedure Set_Specification
9126 (N : Node_Id; Val : Node_Id); -- Node1
9128 procedure Set_Statements
9129 (N : Node_Id; Val : List_Id); -- List3
9131 procedure Set_Static_Processing_OK
9132 (N : Node_Id; Val : Boolean); -- Flag4
9134 procedure Set_Storage_Pool
9135 (N : Node_Id; Val : Node_Id); -- Node1
9137 procedure Set_Strval
9138 (N : Node_Id; Val : String_Id); -- Str3
9140 procedure Set_Subtype_Indication
9141 (N : Node_Id; Val : Node_Id); -- Node5
9143 procedure Set_Subtype_Mark
9144 (N : Node_Id; Val : Node_Id); -- Node4
9146 procedure Set_Subtype_Marks
9147 (N : Node_Id; Val : List_Id); -- List2
9149 procedure Set_Suppress_Loop_Warnings
9150 (N : Node_Id; Val : Boolean := True); -- Flag17
9152 procedure Set_Synchronized_Present
9153 (N : Node_Id; Val : Boolean := True); -- Flag7
9155 procedure Set_Tagged_Present
9156 (N : Node_Id; Val : Boolean := True); -- Flag15
9158 procedure Set_Target_Type
9159 (N : Node_Id; Val : Entity_Id); -- Node2
9161 procedure Set_Task_Definition
9162 (N : Node_Id; Val : Node_Id); -- Node3
9164 procedure Set_Task_Present
9165 (N : Node_Id; Val : Boolean := True); -- Flag5
9167 procedure Set_Then_Actions
9168 (N : Node_Id; Val : List_Id); -- List2
9170 procedure Set_Then_Statements
9171 (N : Node_Id; Val : List_Id); -- List2
9173 procedure Set_Treat_Fixed_As_Integer
9174 (N : Node_Id; Val : Boolean := True); -- Flag14
9176 procedure Set_Triggering_Alternative
9177 (N : Node_Id; Val : Node_Id); -- Node1
9179 procedure Set_Triggering_Statement
9180 (N : Node_Id; Val : Node_Id); -- Node1
9182 procedure Set_TSS_Elist
9183 (N : Node_Id; Val : Elist_Id); -- Elist3
9185 procedure Set_Type_Definition
9186 (N : Node_Id; Val : Node_Id); -- Node3
9189 (N : Node_Id; Val : Node_Id); -- Node2
9191 procedure Set_Unknown_Discriminants_Present
9192 (N : Node_Id; Val : Boolean := True); -- Flag13
9194 procedure Set_Unreferenced_In_Spec
9195 (N : Node_Id; Val : Boolean := True); -- Flag7
9197 procedure Set_Variant_Part
9198 (N : Node_Id; Val : Node_Id); -- Node4
9200 procedure Set_Variants
9201 (N : Node_Id; Val : List_Id); -- List1
9203 procedure Set_Visible_Declarations
9204 (N : Node_Id; Val : List_Id); -- List2
9206 procedure Set_Was_Originally_Stub
9207 (N : Node_Id; Val : Boolean := True); -- Flag13
9209 procedure Set_Zero_Cost_Handling
9210 (N : Node_Id; Val : Boolean := True); -- Flag5
9212 -------------------------
9213 -- Iterator Procedures --
9214 -------------------------
9216 -- The call to Next_xxx (N) is equivalent to N := Next_xxx (N)
9218 procedure Next_Entity (N : in out Node_Id);
9219 procedure Next_Named_Actual (N : in out Node_Id);
9220 procedure Next_Rep_Item (N : in out Node_Id);
9221 procedure Next_Use_Clause (N : in out Node_Id);
9223 --------------------------------------
9224 -- Logical Access to End_Span Field --
9225 --------------------------------------
9227 function End_Location (N : Node_Id) return Source_Ptr;
9228 -- N is an N_If_Statement or N_Case_Statement node, and this
9229 -- function returns the location of the IF token in the END IF
9230 -- sequence by translating the value of the End_Span field.
9232 procedure Set_End_Location (N : Node_Id; S : Source_Ptr);
9233 -- N is an N_If_Statement or N_Case_Statement node. This procedure
9234 -- sets the End_Span field to correspond to the given value S. In
9235 -- other words, End_Span is set to the difference between S and
9236 -- Sloc (N), the starting location.
9238 --------------------------------
9239 -- Node_Kind Membership Tests --
9240 --------------------------------
9242 -- The following functions allow a convenient notation for testing whether
9243 -- a Node_Kind value matches any one of a list of possible values. In each
9244 -- case True is returned if the given T argument is equal to any of the V
9245 -- arguments. Note that there is a similar set of functions defined in
9246 -- Atree where the first argument is a Node_Id whose Nkind field is tested.
9251 V2 : Node_Kind) return Boolean;
9257 V3 : Node_Kind) return Boolean;
9264 V4 : Node_Kind) return Boolean;
9272 V5 : Node_Kind) return Boolean;
9281 V6 : Node_Kind) return Boolean;
9291 V7 : Node_Kind) return Boolean;
9302 V8 : Node_Kind) return Boolean;
9304 pragma Inline (Nkind_In);
9305 -- Inline all above functions
9307 -----------------------
9308 -- Utility Functions --
9309 -----------------------
9311 function Pragma_Name (N : Node_Id) return Name_Id;
9312 pragma Inline (Pragma_Name);
9313 -- Convenient function to obtain Chars field of Pragma_Identifier
9315 -----------------------------
9316 -- Syntactic Parent Tables --
9317 -----------------------------
9319 -- These tables show for each node, and for each of the five fields,
9320 -- whether the corresponding field is syntactic (True) or semantic (False).
9321 -- Unused entries are also set to False.
9323 subtype Field_Num is Natural range 1 .. 5;
9325 Is_Syntactic_Field : constant array (Node_Kind, Field_Num) of Boolean := (
9327 -- Following entries can be built automatically from the sinfo sources
9328 -- using the makeisf utility (currently this program is in spitbol).
9331 (1 => True, -- Chars (Name1)
9332 2 => False, -- Original_Discriminant (Node2-Sem)
9333 3 => False, -- unused
9334 4 => False, -- Entity (Node4-Sem)
9335 5 => False), -- Etype (Node5-Sem)
9337 N_Integer_Literal =>
9338 (1 => False, -- unused
9339 2 => False, -- Original_Entity (Node2-Sem)
9340 3 => True, -- Intval (Uint3)
9341 4 => False, -- unused
9342 5 => False), -- Etype (Node5-Sem)
9345 (1 => False, -- unused
9346 2 => False, -- Original_Entity (Node2-Sem)
9347 3 => True, -- Realval (Ureal3)
9348 4 => False, -- Corresponding_Integer_Value (Uint4-Sem)
9349 5 => False), -- Etype (Node5-Sem)
9351 N_Character_Literal =>
9352 (1 => True, -- Chars (Name1)
9353 2 => True, -- Char_Literal_Value (Uint2)
9354 3 => False, -- unused
9355 4 => False, -- Entity (Node4-Sem)
9356 5 => False), -- Etype (Node5-Sem)
9359 (1 => False, -- unused
9360 2 => False, -- unused
9361 3 => True, -- Strval (Str3)
9362 4 => False, -- unused
9363 5 => False), -- Etype (Node5-Sem)
9366 (1 => False, -- Next_Pragma (Node1-Sem)
9367 2 => True, -- Pragma_Argument_Associations (List2)
9368 3 => True, -- Debug_Statement (Node3)
9369 4 => True, -- Pragma_Identifier (Node4)
9370 5 => False), -- Next_Rep_Item (Node5-Sem)
9372 N_Pragma_Argument_Association =>
9373 (1 => True, -- Chars (Name1)
9374 2 => False, -- unused
9375 3 => True, -- Expression (Node3)
9376 4 => False, -- unused
9377 5 => False), -- unused
9379 N_Defining_Identifier =>
9380 (1 => True, -- Chars (Name1)
9381 2 => False, -- Next_Entity (Node2-Sem)
9382 3 => False, -- Scope (Node3-Sem)
9383 4 => False, -- unused
9384 5 => False), -- Etype (Node5-Sem)
9386 N_Full_Type_Declaration =>
9387 (1 => True, -- Defining_Identifier (Node1)
9388 2 => False, -- unused
9389 3 => True, -- Type_Definition (Node3)
9390 4 => True, -- Discriminant_Specifications (List4)
9391 5 => False), -- unused
9393 N_Subtype_Declaration =>
9394 (1 => True, -- Defining_Identifier (Node1)
9395 2 => False, -- unused
9396 3 => False, -- unused
9397 4 => False, -- Generic_Parent_Type (Node4-Sem)
9398 5 => True), -- Subtype_Indication (Node5)
9400 N_Subtype_Indication =>
9401 (1 => False, -- unused
9402 2 => False, -- unused
9403 3 => True, -- Constraint (Node3)
9404 4 => True, -- Subtype_Mark (Node4)
9405 5 => False), -- Etype (Node5-Sem)
9407 N_Object_Declaration =>
9408 (1 => True, -- Defining_Identifier (Node1)
9409 2 => False, -- Handler_List_Entry (Node2-Sem)
9410 3 => True, -- Expression (Node3)
9411 4 => True, -- Object_Definition (Node4)
9412 5 => False), -- Corresponding_Generic_Association (Node5-Sem)
9414 N_Number_Declaration =>
9415 (1 => True, -- Defining_Identifier (Node1)
9416 2 => False, -- unused
9417 3 => True, -- Expression (Node3)
9418 4 => False, -- unused
9419 5 => False), -- unused
9421 N_Derived_Type_Definition =>
9422 (1 => False, -- unused
9423 2 => True, -- Interface_List (List2)
9424 3 => True, -- Record_Extension_Part (Node3)
9425 4 => False, -- unused
9426 5 => True), -- Subtype_Indication (Node5)
9428 N_Range_Constraint =>
9429 (1 => False, -- unused
9430 2 => False, -- unused
9431 3 => False, -- unused
9432 4 => True, -- Range_Expression (Node4)
9433 5 => False), -- unused
9436 (1 => True, -- Low_Bound (Node1)
9437 2 => True, -- High_Bound (Node2)
9438 3 => False, -- unused
9439 4 => False, -- unused
9440 5 => False), -- Etype (Node5-Sem)
9442 N_Enumeration_Type_Definition =>
9443 (1 => True, -- Literals (List1)
9444 2 => False, -- unused
9445 3 => False, -- unused
9446 4 => True, -- End_Label (Node4)
9447 5 => False), -- unused
9449 N_Defining_Character_Literal =>
9450 (1 => True, -- Chars (Name1)
9451 2 => False, -- Next_Entity (Node2-Sem)
9452 3 => False, -- Scope (Node3-Sem)
9453 4 => False, -- unused
9454 5 => False), -- Etype (Node5-Sem)
9456 N_Signed_Integer_Type_Definition =>
9457 (1 => True, -- Low_Bound (Node1)
9458 2 => True, -- High_Bound (Node2)
9459 3 => False, -- unused
9460 4 => False, -- unused
9461 5 => False), -- unused
9463 N_Modular_Type_Definition =>
9464 (1 => False, -- unused
9465 2 => False, -- unused
9466 3 => True, -- Expression (Node3)
9467 4 => False, -- unused
9468 5 => False), -- unused
9470 N_Floating_Point_Definition =>
9471 (1 => False, -- unused
9472 2 => True, -- Digits_Expression (Node2)
9473 3 => False, -- unused
9474 4 => True, -- Real_Range_Specification (Node4)
9475 5 => False), -- unused
9477 N_Real_Range_Specification =>
9478 (1 => True, -- Low_Bound (Node1)
9479 2 => True, -- High_Bound (Node2)
9480 3 => False, -- unused
9481 4 => False, -- unused
9482 5 => False), -- unused
9484 N_Ordinary_Fixed_Point_Definition =>
9485 (1 => False, -- unused
9486 2 => False, -- unused
9487 3 => True, -- Delta_Expression (Node3)
9488 4 => True, -- Real_Range_Specification (Node4)
9489 5 => False), -- unused
9491 N_Decimal_Fixed_Point_Definition =>
9492 (1 => False, -- unused
9493 2 => True, -- Digits_Expression (Node2)
9494 3 => True, -- Delta_Expression (Node3)
9495 4 => True, -- Real_Range_Specification (Node4)
9496 5 => False), -- unused
9498 N_Digits_Constraint =>
9499 (1 => False, -- unused
9500 2 => True, -- Digits_Expression (Node2)
9501 3 => False, -- unused
9502 4 => True, -- Range_Constraint (Node4)
9503 5 => False), -- unused
9505 N_Unconstrained_Array_Definition =>
9506 (1 => False, -- unused
9507 2 => True, -- Subtype_Marks (List2)
9508 3 => False, -- unused
9509 4 => True, -- Component_Definition (Node4)
9510 5 => False), -- unused
9512 N_Constrained_Array_Definition =>
9513 (1 => False, -- unused
9514 2 => True, -- Discrete_Subtype_Definitions (List2)
9515 3 => False, -- unused
9516 4 => True, -- Component_Definition (Node4)
9517 5 => False), -- unused
9519 N_Component_Definition =>
9520 (1 => False, -- unused
9521 2 => False, -- unused
9522 3 => True, -- Access_Definition (Node3)
9523 4 => False, -- unused
9524 5 => True), -- Subtype_Indication (Node5)
9526 N_Discriminant_Specification =>
9527 (1 => True, -- Defining_Identifier (Node1)
9528 2 => False, -- unused
9529 3 => True, -- Expression (Node3)
9530 4 => False, -- unused
9531 5 => True), -- Discriminant_Type (Node5)
9533 N_Index_Or_Discriminant_Constraint =>
9534 (1 => True, -- Constraints (List1)
9535 2 => False, -- unused
9536 3 => False, -- unused
9537 4 => False, -- unused
9538 5 => False), -- unused
9540 N_Discriminant_Association =>
9541 (1 => True, -- Selector_Names (List1)
9542 2 => False, -- unused
9543 3 => True, -- Expression (Node3)
9544 4 => False, -- unused
9545 5 => False), -- unused
9547 N_Record_Definition =>
9548 (1 => True, -- Component_List (Node1)
9549 2 => True, -- Interface_List (List2)
9550 3 => False, -- unused
9551 4 => True, -- End_Label (Node4)
9552 5 => False), -- unused
9555 (1 => False, -- unused
9556 2 => False, -- unused
9557 3 => True, -- Component_Items (List3)
9558 4 => True, -- Variant_Part (Node4)
9559 5 => False), -- unused
9561 N_Component_Declaration =>
9562 (1 => True, -- Defining_Identifier (Node1)
9563 2 => False, -- unused
9564 3 => True, -- Expression (Node3)
9565 4 => True, -- Component_Definition (Node4)
9566 5 => False), -- unused
9569 (1 => True, -- Variants (List1)
9570 2 => True, -- Name (Node2)
9571 3 => False, -- unused
9572 4 => False, -- unused
9573 5 => False), -- unused
9576 (1 => True, -- Component_List (Node1)
9577 2 => False, -- Enclosing_Variant (Node2-Sem)
9578 3 => False, -- Present_Expr (Uint3-Sem)
9579 4 => True, -- Discrete_Choices (List4)
9580 5 => False), -- Dcheck_Function (Node5-Sem)
9583 (1 => False, -- Others_Discrete_Choices (List1-Sem)
9584 2 => False, -- unused
9585 3 => False, -- unused
9586 4 => False, -- unused
9587 5 => False), -- unused
9589 N_Access_To_Object_Definition =>
9590 (1 => False, -- unused
9591 2 => False, -- unused
9592 3 => False, -- unused
9593 4 => False, -- unused
9594 5 => True), -- Subtype_Indication (Node5)
9596 N_Access_Function_Definition =>
9597 (1 => False, -- unused
9598 2 => False, -- unused
9599 3 => True, -- Parameter_Specifications (List3)
9600 4 => True, -- Result_Definition (Node4)
9601 5 => False), -- unused
9603 N_Access_Procedure_Definition =>
9604 (1 => False, -- unused
9605 2 => False, -- unused
9606 3 => True, -- Parameter_Specifications (List3)
9607 4 => False, -- unused
9608 5 => False), -- unused
9610 N_Access_Definition =>
9611 (1 => False, -- unused
9612 2 => False, -- unused
9613 3 => True, -- Access_To_Subprogram_Definition (Node3)
9614 4 => True, -- Subtype_Mark (Node4)
9615 5 => False), -- unused
9617 N_Incomplete_Type_Declaration =>
9618 (1 => True, -- Defining_Identifier (Node1)
9619 2 => False, -- unused
9620 3 => False, -- unused
9621 4 => True, -- Discriminant_Specifications (List4)
9622 5 => False), -- unused
9624 N_Explicit_Dereference =>
9625 (1 => False, -- unused
9626 2 => False, -- unused
9627 3 => True, -- Prefix (Node3)
9628 4 => False, -- Actual_Designated_Subtype (Node4-Sem)
9629 5 => False), -- Etype (Node5-Sem)
9631 N_Indexed_Component =>
9632 (1 => True, -- Expressions (List1)
9633 2 => False, -- unused
9634 3 => True, -- Prefix (Node3)
9635 4 => False, -- unused
9636 5 => False), -- Etype (Node5-Sem)
9639 (1 => False, -- unused
9640 2 => False, -- unused
9641 3 => True, -- Prefix (Node3)
9642 4 => True, -- Discrete_Range (Node4)
9643 5 => False), -- Etype (Node5-Sem)
9645 N_Selected_Component =>
9646 (1 => False, -- unused
9647 2 => True, -- Selector_Name (Node2)
9648 3 => True, -- Prefix (Node3)
9649 4 => False, -- unused
9650 5 => False), -- Etype (Node5-Sem)
9652 N_Attribute_Reference =>
9653 (1 => True, -- Expressions (List1)
9654 2 => True, -- Attribute_Name (Name2)
9655 3 => True, -- Prefix (Node3)
9656 4 => False, -- Entity (Node4-Sem)
9657 5 => False), -- Etype (Node5-Sem)
9660 (1 => True, -- Expressions (List1)
9661 2 => True, -- Component_Associations (List2)
9662 3 => False, -- Aggregate_Bounds (Node3-Sem)
9663 4 => False, -- unused
9664 5 => False), -- Etype (Node5-Sem)
9666 N_Component_Association =>
9667 (1 => True, -- Choices (List1)
9668 2 => False, -- Loop_Actions (List2-Sem)
9669 3 => True, -- Expression (Node3)
9670 4 => False, -- unused
9671 5 => False), -- unused
9673 N_Extension_Aggregate =>
9674 (1 => True, -- Expressions (List1)
9675 2 => True, -- Component_Associations (List2)
9676 3 => True, -- Ancestor_Part (Node3)
9677 4 => False, -- unused
9678 5 => False), -- Etype (Node5-Sem)
9681 (1 => False, -- unused
9682 2 => False, -- unused
9683 3 => False, -- unused
9684 4 => False, -- unused
9685 5 => False), -- Etype (Node5-Sem)
9688 (1 => False, -- Actions (List1-Sem)
9689 2 => True, -- Left_Opnd (Node2)
9690 3 => True, -- Right_Opnd (Node3)
9691 4 => False, -- unused
9692 5 => False), -- Etype (Node5-Sem)
9695 (1 => False, -- Actions (List1-Sem)
9696 2 => True, -- Left_Opnd (Node2)
9697 3 => True, -- Right_Opnd (Node3)
9698 4 => False, -- unused
9699 5 => False), -- Etype (Node5-Sem)
9702 (1 => False, -- unused
9703 2 => True, -- Left_Opnd (Node2)
9704 3 => True, -- Right_Opnd (Node3)
9705 4 => False, -- unused
9706 5 => False), -- Etype (Node5-Sem)
9709 (1 => False, -- unused
9710 2 => True, -- Left_Opnd (Node2)
9711 3 => True, -- Right_Opnd (Node3)
9712 4 => False, -- unused
9713 5 => False), -- Etype (Node5-Sem)
9716 (1 => True, -- Chars (Name1)
9717 2 => True, -- Left_Opnd (Node2)
9718 3 => True, -- Right_Opnd (Node3)
9719 4 => False, -- Entity (Node4-Sem)
9720 5 => False), -- Etype (Node5-Sem)
9723 (1 => True, -- Chars (Name1)
9724 2 => True, -- Left_Opnd (Node2)
9725 3 => True, -- Right_Opnd (Node3)
9726 4 => False, -- Entity (Node4-Sem)
9727 5 => False), -- Etype (Node5-Sem)
9730 (1 => True, -- Chars (Name1)
9731 2 => True, -- Left_Opnd (Node2)
9732 3 => True, -- Right_Opnd (Node3)
9733 4 => False, -- Entity (Node4-Sem)
9734 5 => False), -- Etype (Node5-Sem)
9737 (1 => True, -- Chars (Name1)
9738 2 => True, -- Left_Opnd (Node2)
9739 3 => True, -- Right_Opnd (Node3)
9740 4 => False, -- Entity (Node4-Sem)
9741 5 => False), -- Etype (Node5-Sem)
9744 (1 => True, -- Chars (Name1)
9745 2 => True, -- Left_Opnd (Node2)
9746 3 => True, -- Right_Opnd (Node3)
9747 4 => False, -- Entity (Node4-Sem)
9748 5 => False), -- Etype (Node5-Sem)
9751 (1 => True, -- Chars (Name1)
9752 2 => True, -- Left_Opnd (Node2)
9753 3 => True, -- Right_Opnd (Node3)
9754 4 => False, -- Entity (Node4-Sem)
9755 5 => False), -- Etype (Node5-Sem)
9758 (1 => True, -- Chars (Name1)
9759 2 => True, -- Left_Opnd (Node2)
9760 3 => True, -- Right_Opnd (Node3)
9761 4 => False, -- Entity (Node4-Sem)
9762 5 => False), -- Etype (Node5-Sem)
9765 (1 => True, -- Chars (Name1)
9766 2 => True, -- Left_Opnd (Node2)
9767 3 => True, -- Right_Opnd (Node3)
9768 4 => False, -- Entity (Node4-Sem)
9769 5 => False), -- Etype (Node5-Sem)
9772 (1 => True, -- Chars (Name1)
9773 2 => True, -- Left_Opnd (Node2)
9774 3 => True, -- Right_Opnd (Node3)
9775 4 => False, -- Entity (Node4-Sem)
9776 5 => False), -- Etype (Node5-Sem)
9779 (1 => True, -- Chars (Name1)
9780 2 => True, -- Left_Opnd (Node2)
9781 3 => True, -- Right_Opnd (Node3)
9782 4 => False, -- Entity (Node4-Sem)
9783 5 => False), -- Etype (Node5-Sem)
9786 (1 => True, -- Chars (Name1)
9787 2 => True, -- Left_Opnd (Node2)
9788 3 => True, -- Right_Opnd (Node3)
9789 4 => False, -- Entity (Node4-Sem)
9790 5 => False), -- Etype (Node5-Sem)
9793 (1 => True, -- Chars (Name1)
9794 2 => True, -- Left_Opnd (Node2)
9795 3 => True, -- Right_Opnd (Node3)
9796 4 => False, -- Entity (Node4-Sem)
9797 5 => False), -- Etype (Node5-Sem)
9800 (1 => True, -- Chars (Name1)
9801 2 => True, -- Left_Opnd (Node2)
9802 3 => True, -- Right_Opnd (Node3)
9803 4 => False, -- Entity (Node4-Sem)
9804 5 => False), -- Etype (Node5-Sem)
9807 (1 => True, -- Chars (Name1)
9808 2 => True, -- Left_Opnd (Node2)
9809 3 => True, -- Right_Opnd (Node3)
9810 4 => False, -- Entity (Node4-Sem)
9811 5 => False), -- Etype (Node5-Sem)
9814 (1 => True, -- Chars (Name1)
9815 2 => True, -- Left_Opnd (Node2)
9816 3 => True, -- Right_Opnd (Node3)
9817 4 => False, -- Entity (Node4-Sem)
9818 5 => False), -- Etype (Node5-Sem)
9821 (1 => True, -- Chars (Name1)
9822 2 => True, -- Left_Opnd (Node2)
9823 3 => True, -- Right_Opnd (Node3)
9824 4 => False, -- Entity (Node4-Sem)
9825 5 => False), -- Etype (Node5-Sem)
9828 (1 => True, -- Chars (Name1)
9829 2 => True, -- Left_Opnd (Node2)
9830 3 => True, -- Right_Opnd (Node3)
9831 4 => False, -- Entity (Node4-Sem)
9832 5 => False), -- Etype (Node5-Sem)
9835 (1 => True, -- Chars (Name1)
9836 2 => False, -- unused
9837 3 => True, -- Right_Opnd (Node3)
9838 4 => False, -- Entity (Node4-Sem)
9839 5 => False), -- Etype (Node5-Sem)
9842 (1 => True, -- Chars (Name1)
9843 2 => False, -- unused
9844 3 => True, -- Right_Opnd (Node3)
9845 4 => False, -- Entity (Node4-Sem)
9846 5 => False), -- Etype (Node5-Sem)
9849 (1 => True, -- Chars (Name1)
9850 2 => False, -- unused
9851 3 => True, -- Right_Opnd (Node3)
9852 4 => False, -- Entity (Node4-Sem)
9853 5 => False), -- Etype (Node5-Sem)
9856 (1 => True, -- Chars (Name1)
9857 2 => False, -- unused
9858 3 => True, -- Right_Opnd (Node3)
9859 4 => False, -- Entity (Node4-Sem)
9860 5 => False), -- Etype (Node5-Sem)
9862 N_Type_Conversion =>
9863 (1 => False, -- unused
9864 2 => False, -- unused
9865 3 => True, -- Expression (Node3)
9866 4 => True, -- Subtype_Mark (Node4)
9867 5 => False), -- Etype (Node5-Sem)
9869 N_Qualified_Expression =>
9870 (1 => False, -- unused
9871 2 => False, -- unused
9872 3 => True, -- Expression (Node3)
9873 4 => True, -- Subtype_Mark (Node4)
9874 5 => False), -- Etype (Node5-Sem)
9877 (1 => False, -- Storage_Pool (Node1-Sem)
9878 2 => False, -- Procedure_To_Call (Node2-Sem)
9879 3 => True, -- Expression (Node3)
9880 4 => False, -- Coextensions (Elist4-Sem)
9881 5 => False), -- Etype (Node5-Sem)
9884 (1 => False, -- unused
9885 2 => False, -- unused
9886 3 => False, -- unused
9887 4 => False, -- unused
9888 5 => False), -- unused
9891 (1 => True, -- Identifier (Node1)
9892 2 => False, -- unused
9893 3 => False, -- unused
9894 4 => False, -- unused
9895 5 => False), -- unused
9897 N_Assignment_Statement =>
9898 (1 => False, -- unused
9899 2 => True, -- Name (Node2)
9900 3 => True, -- Expression (Node3)
9901 4 => False, -- unused
9902 5 => False), -- unused
9905 (1 => True, -- Condition (Node1)
9906 2 => True, -- Then_Statements (List2)
9907 3 => True, -- Elsif_Parts (List3)
9908 4 => True, -- Else_Statements (List4)
9909 5 => True), -- End_Span (Uint5)
9912 (1 => True, -- Condition (Node1)
9913 2 => True, -- Then_Statements (List2)
9914 3 => False, -- Condition_Actions (List3-Sem)
9915 4 => False, -- unused
9916 5 => False), -- unused
9919 (1 => False, -- unused
9920 2 => False, -- unused
9921 3 => True, -- Expression (Node3)
9922 4 => True, -- Alternatives (List4)
9923 5 => True), -- End_Span (Uint5)
9925 N_Case_Statement_Alternative =>
9926 (1 => False, -- unused
9927 2 => False, -- unused
9928 3 => True, -- Statements (List3)
9929 4 => True, -- Discrete_Choices (List4)
9930 5 => False), -- unused
9933 (1 => True, -- Identifier (Node1)
9934 2 => True, -- Iteration_Scheme (Node2)
9935 3 => True, -- Statements (List3)
9936 4 => True, -- End_Label (Node4)
9937 5 => False), -- unused
9939 N_Iteration_Scheme =>
9940 (1 => True, -- Condition (Node1)
9941 2 => False, -- unused
9942 3 => False, -- Condition_Actions (List3-Sem)
9943 4 => True, -- Loop_Parameter_Specification (Node4)
9944 5 => False), -- unused
9946 N_Loop_Parameter_Specification =>
9947 (1 => True, -- Defining_Identifier (Node1)
9948 2 => False, -- unused
9949 3 => False, -- unused
9950 4 => True, -- Discrete_Subtype_Definition (Node4)
9951 5 => False), -- unused
9953 N_Block_Statement =>
9954 (1 => True, -- Identifier (Node1)
9955 2 => True, -- Declarations (List2)
9956 3 => False, -- Activation_Chain_Entity (Node3-Sem)
9957 4 => True, -- Handled_Statement_Sequence (Node4)
9958 5 => False), -- unused
9961 (1 => True, -- Condition (Node1)
9962 2 => True, -- Name (Node2)
9963 3 => False, -- unused
9964 4 => False, -- unused
9965 5 => False), -- unused
9968 (1 => False, -- unused
9969 2 => True, -- Name (Node2)
9970 3 => False, -- unused
9971 4 => False, -- unused
9972 5 => False), -- unused
9974 N_Subprogram_Declaration =>
9975 (1 => True, -- Specification (Node1)
9976 2 => False, -- unused
9977 3 => False, -- Body_To_Inline (Node3-Sem)
9978 4 => False, -- Parent_Spec (Node4-Sem)
9979 5 => False), -- Corresponding_Body (Node5-Sem)
9981 N_Abstract_Subprogram_Declaration =>
9982 (1 => True, -- Specification (Node1)
9983 2 => False, -- unused
9984 3 => False, -- unused
9985 4 => False, -- unused
9986 5 => False), -- unused
9988 N_Function_Specification =>
9989 (1 => True, -- Defining_Unit_Name (Node1)
9990 2 => False, -- Elaboration_Boolean (Node2-Sem)
9991 3 => True, -- Parameter_Specifications (List3)
9992 4 => True, -- Result_Definition (Node4)
9993 5 => False), -- Generic_Parent (Node5-Sem)
9995 N_Procedure_Specification =>
9996 (1 => True, -- Defining_Unit_Name (Node1)
9997 2 => False, -- Elaboration_Boolean (Node2-Sem)
9998 3 => True, -- Parameter_Specifications (List3)
9999 4 => False, -- unused
10000 5 => False), -- Generic_Parent (Node5-Sem)
10003 (1 => True, -- Identifier (Node1)
10004 2 => True, -- Name (Node2)
10005 3 => False, -- unused
10006 4 => False, -- unused
10007 5 => False), -- unused
10009 N_Defining_Program_Unit_Name =>
10010 (1 => True, -- Defining_Identifier (Node1)
10011 2 => True, -- Name (Node2)
10012 3 => False, -- unused
10013 4 => False, -- unused
10014 5 => False), -- unused
10016 N_Operator_Symbol =>
10017 (1 => True, -- Chars (Name1)
10018 2 => False, -- unused
10019 3 => True, -- Strval (Str3)
10020 4 => False, -- Entity (Node4-Sem)
10021 5 => False), -- Etype (Node5-Sem)
10023 N_Defining_Operator_Symbol =>
10024 (1 => True, -- Chars (Name1)
10025 2 => False, -- Next_Entity (Node2-Sem)
10026 3 => False, -- Scope (Node3-Sem)
10027 4 => False, -- unused
10028 5 => False), -- Etype (Node5-Sem)
10030 N_Parameter_Specification =>
10031 (1 => True, -- Defining_Identifier (Node1)
10032 2 => True, -- Parameter_Type (Node2)
10033 3 => True, -- Expression (Node3)
10034 4 => False, -- unused
10035 5 => False), -- Default_Expression (Node5-Sem)
10037 N_Subprogram_Body =>
10038 (1 => True, -- Specification (Node1)
10039 2 => True, -- Declarations (List2)
10040 3 => False, -- Activation_Chain_Entity (Node3-Sem)
10041 4 => True, -- Handled_Statement_Sequence (Node4)
10042 5 => False), -- Corresponding_Spec (Node5-Sem)
10044 N_Procedure_Call_Statement =>
10045 (1 => False, -- Controlling_Argument (Node1-Sem)
10046 2 => True, -- Name (Node2)
10047 3 => True, -- Parameter_Associations (List3)
10048 4 => False, -- First_Named_Actual (Node4-Sem)
10049 5 => False), -- Etype (Node5-Sem)
10052 (1 => False, -- Controlling_Argument (Node1-Sem)
10053 2 => True, -- Name (Node2)
10054 3 => True, -- Parameter_Associations (List3)
10055 4 => False, -- First_Named_Actual (Node4-Sem)
10056 5 => False), -- Etype (Node5-Sem)
10058 N_Parameter_Association =>
10059 (1 => False, -- unused
10060 2 => True, -- Selector_Name (Node2)
10061 3 => True, -- Explicit_Actual_Parameter (Node3)
10062 4 => False, -- Next_Named_Actual (Node4-Sem)
10063 5 => False), -- unused
10065 N_Return_Statement =>
10066 (1 => False, -- Storage_Pool (Node1-Sem)
10067 2 => False, -- Procedure_To_Call (Node2-Sem)
10068 3 => True, -- Expression (Node3)
10069 4 => False, -- unused
10070 5 => False), -- Return_Statement_Entity (Node5-Sem)
10072 N_Extended_Return_Statement =>
10073 (1 => False, -- Storage_Pool (Node1-Sem)
10074 2 => False, -- Procedure_To_Call (Node2-Sem)
10075 3 => True, -- Return_Object_Declarations (List3)
10076 4 => True, -- Handled_Statement_Sequence (Node4)
10077 5 => False), -- Return_Statement_Entity (Node5-Sem)
10079 N_Package_Declaration =>
10080 (1 => True, -- Specification (Node1)
10081 2 => False, -- unused
10082 3 => False, -- Activation_Chain_Entity (Node3-Sem)
10083 4 => False, -- Parent_Spec (Node4-Sem)
10084 5 => False), -- Corresponding_Body (Node5-Sem)
10086 N_Package_Specification =>
10087 (1 => True, -- Defining_Unit_Name (Node1)
10088 2 => True, -- Visible_Declarations (List2)
10089 3 => True, -- Private_Declarations (List3)
10090 4 => True, -- End_Label (Node4)
10091 5 => False), -- Generic_Parent (Node5-Sem)
10094 (1 => True, -- Defining_Unit_Name (Node1)
10095 2 => True, -- Declarations (List2)
10096 3 => False, -- unused
10097 4 => True, -- Handled_Statement_Sequence (Node4)
10098 5 => False), -- Corresponding_Spec (Node5-Sem)
10100 N_Private_Type_Declaration =>
10101 (1 => True, -- Defining_Identifier (Node1)
10102 2 => False, -- unused
10103 3 => False, -- unused
10104 4 => True, -- Discriminant_Specifications (List4)
10105 5 => False), -- unused
10107 N_Private_Extension_Declaration =>
10108 (1 => True, -- Defining_Identifier (Node1)
10109 2 => True, -- Interface_List (List2)
10110 3 => False, -- unused
10111 4 => True, -- Discriminant_Specifications (List4)
10112 5 => True), -- Subtype_Indication (Node5)
10114 N_Use_Package_Clause =>
10115 (1 => False, -- unused
10116 2 => True, -- Names (List2)
10117 3 => False, -- Next_Use_Clause (Node3-Sem)
10118 4 => False, -- Hidden_By_Use_Clause (Elist4-Sem)
10119 5 => False), -- unused
10121 N_Use_Type_Clause =>
10122 (1 => False, -- unused
10123 2 => True, -- Subtype_Marks (List2)
10124 3 => False, -- Next_Use_Clause (Node3-Sem)
10125 4 => False, -- Hidden_By_Use_Clause (Elist4-Sem)
10126 5 => False), -- unused
10128 N_Object_Renaming_Declaration =>
10129 (1 => True, -- Defining_Identifier (Node1)
10130 2 => True, -- Name (Node2)
10131 3 => True, -- Access_Definition (Node3)
10132 4 => True, -- Subtype_Mark (Node4)
10133 5 => False), -- Corresponding_Generic_Association (Node5-Sem)
10135 N_Exception_Renaming_Declaration =>
10136 (1 => True, -- Defining_Identifier (Node1)
10137 2 => True, -- Name (Node2)
10138 3 => False, -- unused
10139 4 => False, -- unused
10140 5 => False), -- unused
10142 N_Package_Renaming_Declaration =>
10143 (1 => True, -- Defining_Unit_Name (Node1)
10144 2 => True, -- Name (Node2)
10145 3 => False, -- unused
10146 4 => False, -- Parent_Spec (Node4-Sem)
10147 5 => False), -- unused
10149 N_Subprogram_Renaming_Declaration =>
10150 (1 => True, -- Specification (Node1)
10151 2 => True, -- Name (Node2)
10152 3 => False, -- Corresponding_Formal_Spec (Node3-Sem)
10153 4 => False, -- Parent_Spec (Node4-Sem)
10154 5 => False), -- Corresponding_Spec (Node5-Sem)
10156 N_Generic_Package_Renaming_Declaration =>
10157 (1 => True, -- Defining_Unit_Name (Node1)
10158 2 => True, -- Name (Node2)
10159 3 => False, -- unused
10160 4 => False, -- Parent_Spec (Node4-Sem)
10161 5 => False), -- unused
10163 N_Generic_Procedure_Renaming_Declaration =>
10164 (1 => True, -- Defining_Unit_Name (Node1)
10165 2 => True, -- Name (Node2)
10166 3 => False, -- unused
10167 4 => False, -- Parent_Spec (Node4-Sem)
10168 5 => False), -- unused
10170 N_Generic_Function_Renaming_Declaration =>
10171 (1 => True, -- Defining_Unit_Name (Node1)
10172 2 => True, -- Name (Node2)
10173 3 => False, -- unused
10174 4 => False, -- Parent_Spec (Node4-Sem)
10175 5 => False), -- unused
10177 N_Task_Type_Declaration =>
10178 (1 => True, -- Defining_Identifier (Node1)
10179 2 => True, -- Interface_List (List2)
10180 3 => True, -- Task_Definition (Node3)
10181 4 => True, -- Discriminant_Specifications (List4)
10182 5 => False), -- Corresponding_Body (Node5-Sem)
10184 N_Single_Task_Declaration =>
10185 (1 => True, -- Defining_Identifier (Node1)
10186 2 => True, -- Interface_List (List2)
10187 3 => True, -- Task_Definition (Node3)
10188 4 => False, -- unused
10189 5 => False), -- unused
10191 N_Task_Definition =>
10192 (1 => False, -- unused
10193 2 => True, -- Visible_Declarations (List2)
10194 3 => True, -- Private_Declarations (List3)
10195 4 => True, -- End_Label (Node4)
10196 5 => False), -- unused
10199 (1 => True, -- Defining_Identifier (Node1)
10200 2 => True, -- Declarations (List2)
10201 3 => False, -- Activation_Chain_Entity (Node3-Sem)
10202 4 => True, -- Handled_Statement_Sequence (Node4)
10203 5 => False), -- Corresponding_Spec (Node5-Sem)
10205 N_Protected_Type_Declaration =>
10206 (1 => True, -- Defining_Identifier (Node1)
10207 2 => True, -- Interface_List (List2)
10208 3 => True, -- Protected_Definition (Node3)
10209 4 => True, -- Discriminant_Specifications (List4)
10210 5 => False), -- Corresponding_Body (Node5-Sem)
10212 N_Single_Protected_Declaration =>
10213 (1 => True, -- Defining_Identifier (Node1)
10214 2 => True, -- Interface_List (List2)
10215 3 => True, -- Protected_Definition (Node3)
10216 4 => False, -- unused
10217 5 => False), -- unused
10219 N_Protected_Definition =>
10220 (1 => False, -- unused
10221 2 => True, -- Visible_Declarations (List2)
10222 3 => True, -- Private_Declarations (List3)
10223 4 => True, -- End_Label (Node4)
10224 5 => False), -- unused
10226 N_Protected_Body =>
10227 (1 => True, -- Defining_Identifier (Node1)
10228 2 => True, -- Declarations (List2)
10229 3 => False, -- unused
10230 4 => True, -- End_Label (Node4)
10231 5 => False), -- Corresponding_Spec (Node5-Sem)
10233 N_Entry_Declaration =>
10234 (1 => True, -- Defining_Identifier (Node1)
10235 2 => False, -- unused
10236 3 => True, -- Parameter_Specifications (List3)
10237 4 => True, -- Discrete_Subtype_Definition (Node4)
10238 5 => False), -- Corresponding_Body (Node5-Sem)
10240 N_Accept_Statement =>
10241 (1 => True, -- Entry_Direct_Name (Node1)
10242 2 => True, -- Declarations (List2)
10243 3 => True, -- Parameter_Specifications (List3)
10244 4 => True, -- Handled_Statement_Sequence (Node4)
10245 5 => True), -- Entry_Index (Node5)
10248 (1 => True, -- Defining_Identifier (Node1)
10249 2 => True, -- Declarations (List2)
10250 3 => False, -- Activation_Chain_Entity (Node3-Sem)
10251 4 => True, -- Handled_Statement_Sequence (Node4)
10252 5 => True), -- Entry_Body_Formal_Part (Node5)
10254 N_Entry_Body_Formal_Part =>
10255 (1 => True, -- Condition (Node1)
10256 2 => False, -- unused
10257 3 => True, -- Parameter_Specifications (List3)
10258 4 => True, -- Entry_Index_Specification (Node4)
10259 5 => False), -- unused
10261 N_Entry_Index_Specification =>
10262 (1 => True, -- Defining_Identifier (Node1)
10263 2 => False, -- unused
10264 3 => False, -- unused
10265 4 => True, -- Discrete_Subtype_Definition (Node4)
10266 5 => False), -- unused
10268 N_Entry_Call_Statement =>
10269 (1 => False, -- unused
10270 2 => True, -- Name (Node2)
10271 3 => True, -- Parameter_Associations (List3)
10272 4 => False, -- First_Named_Actual (Node4-Sem)
10273 5 => False), -- unused
10275 N_Requeue_Statement =>
10276 (1 => False, -- unused
10277 2 => True, -- Name (Node2)
10278 3 => False, -- unused
10279 4 => False, -- unused
10280 5 => False), -- unused
10282 N_Delay_Until_Statement =>
10283 (1 => False, -- unused
10284 2 => False, -- unused
10285 3 => True, -- Expression (Node3)
10286 4 => False, -- unused
10287 5 => False), -- unused
10289 N_Delay_Relative_Statement =>
10290 (1 => False, -- unused
10291 2 => False, -- unused
10292 3 => True, -- Expression (Node3)
10293 4 => False, -- unused
10294 5 => False), -- unused
10296 N_Selective_Accept =>
10297 (1 => True, -- Select_Alternatives (List1)
10298 2 => False, -- unused
10299 3 => False, -- unused
10300 4 => True, -- Else_Statements (List4)
10301 5 => False), -- unused
10303 N_Accept_Alternative =>
10304 (1 => True, -- Condition (Node1)
10305 2 => True, -- Accept_Statement (Node2)
10306 3 => True, -- Statements (List3)
10307 4 => True, -- Pragmas_Before (List4)
10308 5 => False), -- Accept_Handler_Records (List5-Sem)
10310 N_Delay_Alternative =>
10311 (1 => True, -- Condition (Node1)
10312 2 => True, -- Delay_Statement (Node2)
10313 3 => True, -- Statements (List3)
10314 4 => True, -- Pragmas_Before (List4)
10315 5 => False), -- unused
10317 N_Terminate_Alternative =>
10318 (1 => True, -- Condition (Node1)
10319 2 => False, -- unused
10320 3 => False, -- unused
10321 4 => True, -- Pragmas_Before (List4)
10322 5 => True), -- Pragmas_After (List5)
10324 N_Timed_Entry_Call =>
10325 (1 => True, -- Entry_Call_Alternative (Node1)
10326 2 => False, -- unused
10327 3 => False, -- unused
10328 4 => True, -- Delay_Alternative (Node4)
10329 5 => False), -- unused
10331 N_Entry_Call_Alternative =>
10332 (1 => True, -- Entry_Call_Statement (Node1)
10333 2 => False, -- unused
10334 3 => True, -- Statements (List3)
10335 4 => True, -- Pragmas_Before (List4)
10336 5 => False), -- unused
10338 N_Conditional_Entry_Call =>
10339 (1 => True, -- Entry_Call_Alternative (Node1)
10340 2 => False, -- unused
10341 3 => False, -- unused
10342 4 => True, -- Else_Statements (List4)
10343 5 => False), -- unused
10345 N_Asynchronous_Select =>
10346 (1 => True, -- Triggering_Alternative (Node1)
10347 2 => True, -- Abortable_Part (Node2)
10348 3 => False, -- unused
10349 4 => False, -- unused
10350 5 => False), -- unused
10352 N_Triggering_Alternative =>
10353 (1 => True, -- Triggering_Statement (Node1)
10354 2 => False, -- unused
10355 3 => True, -- Statements (List3)
10356 4 => True, -- Pragmas_Before (List4)
10357 5 => False), -- unused
10359 N_Abortable_Part =>
10360 (1 => False, -- unused
10361 2 => False, -- unused
10362 3 => True, -- Statements (List3)
10363 4 => False, -- unused
10364 5 => False), -- unused
10366 N_Abort_Statement =>
10367 (1 => False, -- unused
10368 2 => True, -- Names (List2)
10369 3 => False, -- unused
10370 4 => False, -- unused
10371 5 => False), -- unused
10373 N_Compilation_Unit =>
10374 (1 => True, -- Context_Items (List1)
10375 2 => True, -- Unit (Node2)
10376 3 => False, -- First_Inlined_Subprogram (Node3-Sem)
10377 4 => False, -- Library_Unit (Node4-Sem)
10378 5 => True), -- Aux_Decls_Node (Node5)
10380 N_Compilation_Unit_Aux =>
10381 (1 => True, -- Actions (List1)
10382 2 => True, -- Declarations (List2)
10383 3 => False, -- unused
10384 4 => True, -- Config_Pragmas (List4)
10385 5 => True), -- Pragmas_After (List5)
10388 (1 => False, -- unused
10389 2 => True, -- Name (Node2)
10390 3 => False, -- unused
10391 4 => False, -- Library_Unit (Node4-Sem)
10392 5 => False), -- Corresponding_Spec (Node5-Sem)
10394 N_Subprogram_Body_Stub =>
10395 (1 => True, -- Specification (Node1)
10396 2 => False, -- unused
10397 3 => False, -- unused
10398 4 => False, -- Library_Unit (Node4-Sem)
10399 5 => False), -- Corresponding_Body (Node5-Sem)
10401 N_Package_Body_Stub =>
10402 (1 => True, -- Defining_Identifier (Node1)
10403 2 => False, -- unused
10404 3 => False, -- unused
10405 4 => False, -- Library_Unit (Node4-Sem)
10406 5 => False), -- Corresponding_Body (Node5-Sem)
10408 N_Task_Body_Stub =>
10409 (1 => True, -- Defining_Identifier (Node1)
10410 2 => False, -- unused
10411 3 => False, -- unused
10412 4 => False, -- Library_Unit (Node4-Sem)
10413 5 => False), -- Corresponding_Body (Node5-Sem)
10415 N_Protected_Body_Stub =>
10416 (1 => True, -- Defining_Identifier (Node1)
10417 2 => False, -- unused
10418 3 => False, -- unused
10419 4 => False, -- Library_Unit (Node4-Sem)
10420 5 => False), -- Corresponding_Body (Node5-Sem)
10423 (1 => True, -- Proper_Body (Node1)
10424 2 => True, -- Name (Node2)
10425 3 => False, -- Corresponding_Stub (Node3-Sem)
10426 4 => False, -- unused
10427 5 => False), -- unused
10429 N_Exception_Declaration =>
10430 (1 => True, -- Defining_Identifier (Node1)
10431 2 => False, -- unused
10432 3 => False, -- Expression (Node3-Sem)
10433 4 => False, -- unused
10434 5 => False), -- unused
10436 N_Handled_Sequence_Of_Statements =>
10437 (1 => True, -- At_End_Proc (Node1)
10438 2 => False, -- First_Real_Statement (Node2-Sem)
10439 3 => True, -- Statements (List3)
10440 4 => True, -- End_Label (Node4)
10441 5 => True), -- Exception_Handlers (List5)
10443 N_Exception_Handler =>
10444 (1 => False, -- Local_Raise_Statements (Elist1)
10445 2 => True, -- Choice_Parameter (Node2)
10446 3 => True, -- Statements (List3)
10447 4 => True, -- Exception_Choices (List4)
10448 5 => False), -- Exception_Label (Node5)
10450 N_Raise_Statement =>
10451 (1 => False, -- unused
10452 2 => True, -- Name (Node2)
10453 3 => True, -- Expression (Node3)
10454 4 => False, -- unused
10455 5 => False), -- unused
10457 N_Generic_Subprogram_Declaration =>
10458 (1 => True, -- Specification (Node1)
10459 2 => True, -- Generic_Formal_Declarations (List2)
10460 3 => False, -- unused
10461 4 => False, -- Parent_Spec (Node4-Sem)
10462 5 => False), -- Corresponding_Body (Node5-Sem)
10464 N_Generic_Package_Declaration =>
10465 (1 => True, -- Specification (Node1)
10466 2 => True, -- Generic_Formal_Declarations (List2)
10467 3 => False, -- Activation_Chain_Entity (Node3-Sem)
10468 4 => False, -- Parent_Spec (Node4-Sem)
10469 5 => False), -- Corresponding_Body (Node5-Sem)
10471 N_Package_Instantiation =>
10472 (1 => True, -- Defining_Unit_Name (Node1)
10473 2 => True, -- Name (Node2)
10474 3 => True, -- Generic_Associations (List3)
10475 4 => False, -- Parent_Spec (Node4-Sem)
10476 5 => False), -- Instance_Spec (Node5-Sem)
10478 N_Procedure_Instantiation =>
10479 (1 => True, -- Defining_Unit_Name (Node1)
10480 2 => True, -- Name (Node2)
10481 3 => True, -- Generic_Associations (List3)
10482 4 => False, -- Parent_Spec (Node4-Sem)
10483 5 => False), -- Instance_Spec (Node5-Sem)
10485 N_Function_Instantiation =>
10486 (1 => True, -- Defining_Unit_Name (Node1)
10487 2 => True, -- Name (Node2)
10488 3 => True, -- Generic_Associations (List3)
10489 4 => False, -- Parent_Spec (Node4-Sem)
10490 5 => False), -- Instance_Spec (Node5-Sem)
10492 N_Generic_Association =>
10493 (1 => True, -- Explicit_Generic_Actual_Parameter (Node1)
10494 2 => True, -- Selector_Name (Node2)
10495 3 => False, -- unused
10496 4 => False, -- unused
10497 5 => False), -- unused
10499 N_Formal_Object_Declaration =>
10500 (1 => True, -- Defining_Identifier (Node1)
10501 2 => False, -- unused
10502 3 => True, -- Access_Definition (Node3)
10503 4 => True, -- Subtype_Mark (Node4)
10504 5 => True), -- Default_Expression (Node5)
10506 N_Formal_Type_Declaration =>
10507 (1 => True, -- Defining_Identifier (Node1)
10508 2 => False, -- unused
10509 3 => True, -- Formal_Type_Definition (Node3)
10510 4 => True, -- Discriminant_Specifications (List4)
10511 5 => False), -- unused
10513 N_Formal_Private_Type_Definition =>
10514 (1 => False, -- unused
10515 2 => False, -- unused
10516 3 => False, -- unused
10517 4 => False, -- unused
10518 5 => False), -- unused
10520 N_Formal_Derived_Type_Definition =>
10521 (1 => False, -- unused
10522 2 => True, -- Interface_List (List2)
10523 3 => False, -- unused
10524 4 => True, -- Subtype_Mark (Node4)
10525 5 => False), -- unused
10527 N_Formal_Discrete_Type_Definition =>
10528 (1 => False, -- unused
10529 2 => False, -- unused
10530 3 => False, -- unused
10531 4 => False, -- unused
10532 5 => False), -- unused
10534 N_Formal_Signed_Integer_Type_Definition =>
10535 (1 => False, -- unused
10536 2 => False, -- unused
10537 3 => False, -- unused
10538 4 => False, -- unused
10539 5 => False), -- unused
10541 N_Formal_Modular_Type_Definition =>
10542 (1 => False, -- unused
10543 2 => False, -- unused
10544 3 => False, -- unused
10545 4 => False, -- unused
10546 5 => False), -- unused
10548 N_Formal_Floating_Point_Definition =>
10549 (1 => False, -- unused
10550 2 => False, -- unused
10551 3 => False, -- unused
10552 4 => False, -- unused
10553 5 => False), -- unused
10555 N_Formal_Ordinary_Fixed_Point_Definition =>
10556 (1 => False, -- unused
10557 2 => False, -- unused
10558 3 => False, -- unused
10559 4 => False, -- unused
10560 5 => False), -- unused
10562 N_Formal_Decimal_Fixed_Point_Definition =>
10563 (1 => False, -- unused
10564 2 => False, -- unused
10565 3 => False, -- unused
10566 4 => False, -- unused
10567 5 => False), -- unused
10569 N_Formal_Concrete_Subprogram_Declaration =>
10570 (1 => True, -- Specification (Node1)
10571 2 => True, -- Default_Name (Node2)
10572 3 => False, -- unused
10573 4 => False, -- unused
10574 5 => False), -- unused
10576 N_Formal_Abstract_Subprogram_Declaration =>
10577 (1 => True, -- Specification (Node1)
10578 2 => True, -- Default_Name (Node2)
10579 3 => False, -- unused
10580 4 => False, -- unused
10581 5 => False), -- unused
10583 N_Formal_Package_Declaration =>
10584 (1 => True, -- Defining_Identifier (Node1)
10585 2 => True, -- Name (Node2)
10586 3 => True, -- Generic_Associations (List3)
10587 4 => False, -- unused
10588 5 => False), -- Instance_Spec (Node5-Sem)
10590 N_Attribute_Definition_Clause =>
10591 (1 => True, -- Chars (Name1)
10592 2 => True, -- Name (Node2)
10593 3 => True, -- Expression (Node3)
10594 4 => False, -- unused
10595 5 => False), -- Next_Rep_Item (Node5-Sem)
10597 N_Enumeration_Representation_Clause =>
10598 (1 => True, -- Identifier (Node1)
10599 2 => False, -- unused
10600 3 => True, -- Array_Aggregate (Node3)
10601 4 => False, -- unused
10602 5 => False), -- Next_Rep_Item (Node5-Sem)
10604 N_Record_Representation_Clause =>
10605 (1 => True, -- Identifier (Node1)
10606 2 => True, -- Mod_Clause (Node2)
10607 3 => True, -- Component_Clauses (List3)
10608 4 => False, -- unused
10609 5 => False), -- Next_Rep_Item (Node5-Sem)
10611 N_Component_Clause =>
10612 (1 => True, -- Component_Name (Node1)
10613 2 => True, -- Position (Node2)
10614 3 => True, -- First_Bit (Node3)
10615 4 => True, -- Last_Bit (Node4)
10616 5 => False), -- unused
10618 N_Code_Statement =>
10619 (1 => False, -- unused
10620 2 => False, -- unused
10621 3 => True, -- Expression (Node3)
10622 4 => False, -- unused
10623 5 => False), -- unused
10625 N_Op_Rotate_Left =>
10626 (1 => True, -- Chars (Name1)
10627 2 => True, -- Left_Opnd (Node2)
10628 3 => True, -- Right_Opnd (Node3)
10629 4 => False, -- Entity (Node4-Sem)
10630 5 => False), -- Etype (Node5-Sem)
10632 N_Op_Rotate_Right =>
10633 (1 => True, -- Chars (Name1)
10634 2 => True, -- Left_Opnd (Node2)
10635 3 => True, -- Right_Opnd (Node3)
10636 4 => False, -- Entity (Node4-Sem)
10637 5 => False), -- Etype (Node5-Sem)
10640 (1 => True, -- Chars (Name1)
10641 2 => True, -- Left_Opnd (Node2)
10642 3 => True, -- Right_Opnd (Node3)
10643 4 => False, -- Entity (Node4-Sem)
10644 5 => False), -- Etype (Node5-Sem)
10646 N_Op_Shift_Right_Arithmetic =>
10647 (1 => True, -- Chars (Name1)
10648 2 => True, -- Left_Opnd (Node2)
10649 3 => True, -- Right_Opnd (Node3)
10650 4 => False, -- Entity (Node4-Sem)
10651 5 => False), -- Etype (Node5-Sem)
10653 N_Op_Shift_Right =>
10654 (1 => True, -- Chars (Name1)
10655 2 => True, -- Left_Opnd (Node2)
10656 3 => True, -- Right_Opnd (Node3)
10657 4 => False, -- Entity (Node4-Sem)
10658 5 => False), -- Etype (Node5-Sem)
10660 N_Delta_Constraint =>
10661 (1 => False, -- unused
10662 2 => False, -- unused
10663 3 => True, -- Delta_Expression (Node3)
10664 4 => True, -- Range_Constraint (Node4)
10665 5 => False), -- unused
10668 (1 => True, -- Identifier (Node1)
10669 2 => False, -- unused
10670 3 => True, -- Expression (Node3)
10671 4 => False, -- unused
10672 5 => False), -- unused
10675 (1 => False, -- unused
10676 2 => False, -- unused
10677 3 => True, -- Expression (Node3)
10678 4 => True, -- Pragmas_Before (List4)
10679 5 => False), -- unused
10681 N_Conditional_Expression =>
10682 (1 => True, -- Expressions (List1)
10683 2 => False, -- Then_Actions (List2-Sem)
10684 3 => False, -- Else_Actions (List3-Sem)
10685 4 => False, -- unused
10686 5 => False), -- Etype (Node5-Sem)
10689 (1 => True, -- Chars (Name1)
10690 2 => True, -- Selector_Name (Node2)
10691 3 => True, -- Prefix (Node3)
10692 4 => False, -- Entity (Node4-Sem)
10693 5 => False), -- Etype (Node5-Sem)
10695 N_Free_Statement =>
10696 (1 => False, -- Storage_Pool (Node1-Sem)
10697 2 => False, -- Procedure_To_Call (Node2-Sem)
10698 3 => True, -- Expression (Node3)
10699 4 => False, -- Actual_Designated_Subtype (Node4-Sem)
10700 5 => False), -- unused
10703 (1 => True, -- Actions (List1)
10704 2 => False, -- Access_Types_To_Process (Elist2-Sem)
10705 3 => False, -- TSS_Elist (Elist3-Sem)
10706 4 => False, -- Entity (Node4-Sem)
10707 5 => False), -- First_Subtype_Link (Node5-Sem)
10709 N_Implicit_Label_Declaration =>
10710 (1 => True, -- Defining_Identifier (Node1)
10711 2 => False, -- Label_Construct (Node2-Sem)
10712 3 => False, -- unused
10713 4 => False, -- unused
10714 5 => False), -- unused
10716 N_Itype_Reference =>
10717 (1 => False, -- Itype (Node1-Sem)
10718 2 => False, -- unused
10719 3 => False, -- unused
10720 4 => False, -- unused
10721 5 => False), -- unused
10723 N_Raise_Constraint_Error =>
10724 (1 => True, -- Condition (Node1)
10725 2 => False, -- unused
10726 3 => True, -- Reason (Uint3)
10727 4 => False, -- unused
10728 5 => False), -- Etype (Node5-Sem)
10730 N_Raise_Program_Error =>
10731 (1 => True, -- Condition (Node1)
10732 2 => False, -- unused
10733 3 => True, -- Reason (Uint3)
10734 4 => False, -- unused
10735 5 => False), -- Etype (Node5-Sem)
10737 N_Raise_Storage_Error =>
10738 (1 => True, -- Condition (Node1)
10739 2 => False, -- unused
10740 3 => True, -- Reason (Uint3)
10741 4 => False, -- unused
10742 5 => False), -- Etype (Node5-Sem)
10744 N_Push_Constraint_Error_Label =>
10745 (1 => False, -- unused
10746 2 => False, -- unused
10747 3 => False, -- unused
10748 4 => False, -- unused
10749 5 => False), -- unused
10751 N_Push_Program_Error_Label =>
10752 (1 => False, -- Exception_Label
10753 2 => False, -- unused
10754 3 => False, -- unused
10755 4 => False, -- unused
10756 5 => False), -- Exception_Label
10758 N_Push_Storage_Error_Label =>
10759 (1 => False, -- Exception_Label
10760 2 => False, -- unused
10761 3 => False, -- unused
10762 4 => False, -- unused
10763 5 => False), -- Exception_Label
10765 N_Pop_Constraint_Error_Label =>
10766 (1 => False, -- unused
10767 2 => False, -- unused
10768 3 => False, -- unused
10769 4 => False, -- unused
10770 5 => False), -- unused
10772 N_Pop_Program_Error_Label =>
10773 (1 => False, -- unused
10774 2 => False, -- unused
10775 3 => False, -- unused
10776 4 => False, -- unused
10777 5 => False), -- unused
10779 N_Pop_Storage_Error_Label =>
10780 (1 => False, -- unused
10781 2 => False, -- unused
10782 3 => False, -- unused
10783 4 => False, -- unused
10784 5 => False), -- unused
10787 (1 => False, -- unused
10788 2 => False, -- unused
10789 3 => True, -- Prefix (Node3)
10790 4 => False, -- unused
10791 5 => False), -- Etype (Node5-Sem)
10793 N_Subprogram_Info =>
10794 (1 => True, -- Identifier (Node1)
10795 2 => False, -- unused
10796 3 => False, -- unused
10797 4 => False, -- unused
10798 5 => False), -- Etype (Node5-Sem)
10800 N_Unchecked_Expression =>
10801 (1 => False, -- unused
10802 2 => False, -- unused
10803 3 => True, -- Expression (Node3)
10804 4 => False, -- unused
10805 5 => False), -- Etype (Node5-Sem)
10807 N_Unchecked_Type_Conversion =>
10808 (1 => False, -- unused
10809 2 => False, -- unused
10810 3 => True, -- Expression (Node3)
10811 4 => True, -- Subtype_Mark (Node4)
10812 5 => False), -- Etype (Node5-Sem)
10814 N_Validate_Unchecked_Conversion =>
10815 (1 => False, -- Source_Type (Node1-Sem)
10816 2 => False, -- Target_Type (Node2-Sem)
10817 3 => False, -- unused
10818 4 => False, -- unused
10819 5 => False), -- unused
10821 -- End of inserted output from makeisf program
10823 -- Entries for Empty, Error and Unused. Even thought these have a Chars
10824 -- field for debugging purposes, they are not really syntactic fields, so
10825 -- we mark all fields as unused.
10828 (1 => False, -- unused
10829 2 => False, -- unused
10830 3 => False, -- unused
10831 4 => False, -- unused
10832 5 => False), -- unused
10835 (1 => False, -- unused
10836 2 => False, -- unused
10837 3 => False, -- unused
10838 4 => False, -- unused
10839 5 => False), -- unused
10841 N_Unused_At_Start =>
10842 (1 => False, -- unused
10843 2 => False, -- unused
10844 3 => False, -- unused
10845 4 => False, -- unused
10846 5 => False), -- unused
10849 (1 => False, -- unused
10850 2 => False, -- unused
10851 3 => False, -- unused
10852 4 => False, -- unused
10853 5 => False)); -- unused
10855 --------------------
10856 -- Inline Pragmas --
10857 --------------------
10859 pragma Inline (ABE_Is_Certain);
10860 pragma Inline (Abort_Present);
10861 pragma Inline (Abortable_Part);
10862 pragma Inline (Abstract_Present);
10863 pragma Inline (Accept_Handler_Records);
10864 pragma Inline (Accept_Statement);
10865 pragma Inline (Access_Definition);
10866 pragma Inline (Access_To_Subprogram_Definition);
10867 pragma Inline (Access_Types_To_Process);
10868 pragma Inline (Actions);
10869 pragma Inline (Activation_Chain_Entity);
10870 pragma Inline (Acts_As_Spec);
10871 pragma Inline (Actual_Designated_Subtype);
10872 pragma Inline (Address_Warning_Posted);
10873 pragma Inline (Aggregate_Bounds);
10874 pragma Inline (Aliased_Present);
10875 pragma Inline (All_Others);
10876 pragma Inline (All_Present);
10877 pragma Inline (Alternatives);
10878 pragma Inline (Ancestor_Part);
10879 pragma Inline (Array_Aggregate);
10880 pragma Inline (Assignment_OK);
10881 pragma Inline (Associated_Node);
10882 pragma Inline (At_End_Proc);
10883 pragma Inline (Attribute_Name);
10884 pragma Inline (Aux_Decls_Node);
10885 pragma Inline (Backwards_OK);
10886 pragma Inline (Bad_Is_Detected);
10887 pragma Inline (Body_To_Inline);
10888 pragma Inline (Body_Required);
10889 pragma Inline (By_Ref);
10890 pragma Inline (Box_Present);
10891 pragma Inline (Char_Literal_Value);
10892 pragma Inline (Chars);
10893 pragma Inline (Check_Address_Alignment);
10894 pragma Inline (Choice_Parameter);
10895 pragma Inline (Choices);
10896 pragma Inline (Coextensions);
10897 pragma Inline (Comes_From_Extended_Return_Statement);
10898 pragma Inline (Compile_Time_Known_Aggregate);
10899 pragma Inline (Component_Associations);
10900 pragma Inline (Component_Clauses);
10901 pragma Inline (Component_Definition);
10902 pragma Inline (Component_Items);
10903 pragma Inline (Component_List);
10904 pragma Inline (Component_Name);
10905 pragma Inline (Condition);
10906 pragma Inline (Condition_Actions);
10907 pragma Inline (Config_Pragmas);
10908 pragma Inline (Constant_Present);
10909 pragma Inline (Constraint);
10910 pragma Inline (Constraints);
10911 pragma Inline (Context_Installed);
10912 pragma Inline (Context_Items);
10913 pragma Inline (Controlling_Argument);
10914 pragma Inline (Conversion_OK);
10915 pragma Inline (Corresponding_Body);
10916 pragma Inline (Corresponding_Formal_Spec);
10917 pragma Inline (Corresponding_Generic_Association);
10918 pragma Inline (Corresponding_Integer_Value);
10919 pragma Inline (Corresponding_Spec);
10920 pragma Inline (Corresponding_Stub);
10921 pragma Inline (Dcheck_Function);
10922 pragma Inline (Debug_Statement);
10923 pragma Inline (Declarations);
10924 pragma Inline (Default_Expression);
10925 pragma Inline (Default_Name);
10926 pragma Inline (Defining_Identifier);
10927 pragma Inline (Defining_Unit_Name);
10928 pragma Inline (Delay_Alternative);
10929 pragma Inline (Delay_Statement);
10930 pragma Inline (Delta_Expression);
10931 pragma Inline (Digits_Expression);
10932 pragma Inline (Discr_Check_Funcs_Built);
10933 pragma Inline (Discrete_Choices);
10934 pragma Inline (Discrete_Range);
10935 pragma Inline (Discrete_Subtype_Definition);
10936 pragma Inline (Discrete_Subtype_Definitions);
10937 pragma Inline (Discriminant_Specifications);
10938 pragma Inline (Discriminant_Type);
10939 pragma Inline (Do_Accessibility_Check);
10940 pragma Inline (Do_Discriminant_Check);
10941 pragma Inline (Do_Length_Check);
10942 pragma Inline (Do_Division_Check);
10943 pragma Inline (Do_Overflow_Check);
10944 pragma Inline (Do_Range_Check);
10945 pragma Inline (Do_Storage_Check);
10946 pragma Inline (Do_Tag_Check);
10947 pragma Inline (Elaborate_Present);
10948 pragma Inline (Elaborate_All_Desirable);
10949 pragma Inline (Elaborate_All_Present);
10950 pragma Inline (Elaborate_Desirable);
10951 pragma Inline (Elaboration_Boolean);
10952 pragma Inline (Else_Actions);
10953 pragma Inline (Else_Statements);
10954 pragma Inline (Elsif_Parts);
10955 pragma Inline (Enclosing_Variant);
10956 pragma Inline (End_Label);
10957 pragma Inline (End_Span);
10958 pragma Inline (Entity);
10959 pragma Inline (Entity_Or_Associated_Node);
10960 pragma Inline (Entry_Body_Formal_Part);
10961 pragma Inline (Entry_Call_Alternative);
10962 pragma Inline (Entry_Call_Statement);
10963 pragma Inline (Entry_Direct_Name);
10964 pragma Inline (Entry_Index);
10965 pragma Inline (Entry_Index_Specification);
10966 pragma Inline (Etype);
10967 pragma Inline (Exception_Choices);
10968 pragma Inline (Exception_Handlers);
10969 pragma Inline (Exception_Junk);
10970 pragma Inline (Exception_Label);
10971 pragma Inline (Expansion_Delayed);
10972 pragma Inline (Explicit_Actual_Parameter);
10973 pragma Inline (Explicit_Generic_Actual_Parameter);
10974 pragma Inline (Expression);
10975 pragma Inline (Expressions);
10976 pragma Inline (First_Bit);
10977 pragma Inline (First_Inlined_Subprogram);
10978 pragma Inline (First_Name);
10979 pragma Inline (First_Named_Actual);
10980 pragma Inline (First_Real_Statement);
10981 pragma Inline (First_Subtype_Link);
10982 pragma Inline (Float_Truncate);
10983 pragma Inline (Formal_Type_Definition);
10984 pragma Inline (Forwards_OK);
10985 pragma Inline (From_At_End);
10986 pragma Inline (From_At_Mod);
10987 pragma Inline (From_Default);
10988 pragma Inline (Generic_Associations);
10989 pragma Inline (Generic_Formal_Declarations);
10990 pragma Inline (Generic_Parent);
10991 pragma Inline (Generic_Parent_Type);
10992 pragma Inline (Handled_Statement_Sequence);
10993 pragma Inline (Handler_List_Entry);
10994 pragma Inline (Has_Created_Identifier);
10995 pragma Inline (Has_Dynamic_Length_Check);
10996 pragma Inline (Has_Dynamic_Range_Check);
10997 pragma Inline (Has_Init_Expression);
10998 pragma Inline (Has_Local_Raise);
10999 pragma Inline (Has_Self_Reference);
11000 pragma Inline (Has_No_Elaboration_Code);
11001 pragma Inline (Has_Priority_Pragma);
11002 pragma Inline (Has_Private_View);
11003 pragma Inline (Has_Relative_Deadline_Pragma);
11004 pragma Inline (Has_Storage_Size_Pragma);
11005 pragma Inline (Has_Task_Info_Pragma);
11006 pragma Inline (Has_Task_Name_Pragma);
11007 pragma Inline (Has_Wide_Character);
11008 pragma Inline (Hidden_By_Use_Clause);
11009 pragma Inline (High_Bound);
11010 pragma Inline (Identifier);
11011 pragma Inline (Implicit_With);
11012 pragma Inline (Interface_List);
11013 pragma Inline (Interface_Present);
11014 pragma Inline (Includes_Infinities);
11015 pragma Inline (In_Present);
11016 pragma Inline (Instance_Spec);
11017 pragma Inline (Intval);
11018 pragma Inline (Is_Asynchronous_Call_Block);
11019 pragma Inline (Is_Component_Left_Opnd);
11020 pragma Inline (Is_Component_Right_Opnd);
11021 pragma Inline (Is_Controlling_Actual);
11022 pragma Inline (Is_Dynamic_Coextension);
11023 pragma Inline (Is_Entry_Barrier_Function);
11024 pragma Inline (Is_Expanded_Build_In_Place_Call);
11025 pragma Inline (Is_Folded_In_Parser);
11026 pragma Inline (Is_In_Discriminant_Check);
11027 pragma Inline (Is_Machine_Number);
11028 pragma Inline (Is_Null_Loop);
11029 pragma Inline (Is_Overloaded);
11030 pragma Inline (Is_Power_Of_2_For_Shift);
11031 pragma Inline (Is_Protected_Subprogram_Body);
11032 pragma Inline (Is_Static_Coextension);
11033 pragma Inline (Is_Static_Expression);
11034 pragma Inline (Is_Subprogram_Descriptor);
11035 pragma Inline (Is_Task_Allocation_Block);
11036 pragma Inline (Is_Task_Master);
11037 pragma Inline (Iteration_Scheme);
11038 pragma Inline (Itype);
11039 pragma Inline (Kill_Range_Check);
11040 pragma Inline (Last_Bit);
11041 pragma Inline (Last_Name);
11042 pragma Inline (Library_Unit);
11043 pragma Inline (Label_Construct);
11044 pragma Inline (Left_Opnd);
11045 pragma Inline (Limited_View_Installed);
11046 pragma Inline (Limited_Present);
11047 pragma Inline (Literals);
11048 pragma Inline (Local_Raise_Not_OK);
11049 pragma Inline (Local_Raise_Statements);
11050 pragma Inline (Loop_Actions);
11051 pragma Inline (Loop_Parameter_Specification);
11052 pragma Inline (Low_Bound);
11053 pragma Inline (Mod_Clause);
11054 pragma Inline (More_Ids);
11055 pragma Inline (Must_Be_Byte_Aligned);
11056 pragma Inline (Must_Not_Freeze);
11057 pragma Inline (Must_Not_Override);
11058 pragma Inline (Must_Override);
11059 pragma Inline (Name);
11060 pragma Inline (Names);
11061 pragma Inline (Next_Entity);
11062 pragma Inline (Next_Named_Actual);
11063 pragma Inline (Next_Pragma);
11064 pragma Inline (Next_Rep_Item);
11065 pragma Inline (Next_Use_Clause);
11066 pragma Inline (No_Ctrl_Actions);
11067 pragma Inline (No_Elaboration_Check);
11068 pragma Inline (No_Entities_Ref_In_Spec);
11069 pragma Inline (No_Initialization);
11070 pragma Inline (No_Truncation);
11071 pragma Inline (Null_Present);
11072 pragma Inline (Null_Exclusion_Present);
11073 pragma Inline (Null_Exclusion_In_Return_Present);
11074 pragma Inline (Null_Record_Present);
11075 pragma Inline (Object_Definition);
11076 pragma Inline (Original_Discriminant);
11077 pragma Inline (Original_Entity);
11078 pragma Inline (Others_Discrete_Choices);
11079 pragma Inline (Out_Present);
11080 pragma Inline (Parameter_Associations);
11081 pragma Inline (Parameter_Specifications);
11082 pragma Inline (Parameter_List_Truncated);
11083 pragma Inline (Parameter_Type);
11084 pragma Inline (Parent_Spec);
11085 pragma Inline (PPC_Enabled);
11086 pragma Inline (Position);
11087 pragma Inline (Pragma_Argument_Associations);
11088 pragma Inline (Pragma_Identifier);
11089 pragma Inline (Pragmas_After);
11090 pragma Inline (Pragmas_Before);
11091 pragma Inline (Prefix);
11092 pragma Inline (Present_Expr);
11093 pragma Inline (Prev_Ids);
11094 pragma Inline (Print_In_Hex);
11095 pragma Inline (Private_Declarations);
11096 pragma Inline (Private_Present);
11097 pragma Inline (Procedure_To_Call);
11098 pragma Inline (Proper_Body);
11099 pragma Inline (Protected_Definition);
11100 pragma Inline (Protected_Present);
11101 pragma Inline (Raises_Constraint_Error);
11102 pragma Inline (Range_Constraint);
11103 pragma Inline (Range_Expression);
11104 pragma Inline (Real_Range_Specification);
11105 pragma Inline (Realval);
11106 pragma Inline (Reason);
11107 pragma Inline (Record_Extension_Part);
11108 pragma Inline (Redundant_Use);
11109 pragma Inline (Renaming_Exception);
11110 pragma Inline (Result_Definition);
11111 pragma Inline (Return_Object_Declarations);
11112 pragma Inline (Return_Statement_Entity);
11113 pragma Inline (Reverse_Present);
11114 pragma Inline (Right_Opnd);
11115 pragma Inline (Rounded_Result);
11116 pragma Inline (Scope);
11117 pragma Inline (Select_Alternatives);
11118 pragma Inline (Selector_Name);
11119 pragma Inline (Selector_Names);
11120 pragma Inline (Shift_Count_OK);
11121 pragma Inline (Source_Type);
11122 pragma Inline (Specification);
11123 pragma Inline (Statements);
11124 pragma Inline (Static_Processing_OK);
11125 pragma Inline (Storage_Pool);
11126 pragma Inline (Strval);
11127 pragma Inline (Subtype_Indication);
11128 pragma Inline (Subtype_Mark);
11129 pragma Inline (Subtype_Marks);
11130 pragma Inline (Suppress_Loop_Warnings);
11131 pragma Inline (Synchronized_Present);
11132 pragma Inline (Tagged_Present);
11133 pragma Inline (Target_Type);
11134 pragma Inline (Task_Definition);
11135 pragma Inline (Task_Present);
11136 pragma Inline (Then_Actions);
11137 pragma Inline (Then_Statements);
11138 pragma Inline (Triggering_Alternative);
11139 pragma Inline (Triggering_Statement);
11140 pragma Inline (Treat_Fixed_As_Integer);
11141 pragma Inline (TSS_Elist);
11142 pragma Inline (Type_Definition);
11143 pragma Inline (Unit);
11144 pragma Inline (Unknown_Discriminants_Present);
11145 pragma Inline (Unreferenced_In_Spec);
11146 pragma Inline (Variant_Part);
11147 pragma Inline (Variants);
11148 pragma Inline (Visible_Declarations);
11149 pragma Inline (Was_Originally_Stub);
11150 pragma Inline (Zero_Cost_Handling);
11152 pragma Inline (Set_ABE_Is_Certain);
11153 pragma Inline (Set_Abort_Present);
11154 pragma Inline (Set_Abortable_Part);
11155 pragma Inline (Set_Abstract_Present);
11156 pragma Inline (Set_Accept_Handler_Records);
11157 pragma Inline (Set_Accept_Statement);
11158 pragma Inline (Set_Access_Definition);
11159 pragma Inline (Set_Access_To_Subprogram_Definition);
11160 pragma Inline (Set_Access_Types_To_Process);
11161 pragma Inline (Set_Actions);
11162 pragma Inline (Set_Activation_Chain_Entity);
11163 pragma Inline (Set_Acts_As_Spec);
11164 pragma Inline (Set_Actual_Designated_Subtype);
11165 pragma Inline (Set_Address_Warning_Posted);
11166 pragma Inline (Set_Aggregate_Bounds);
11167 pragma Inline (Set_Aliased_Present);
11168 pragma Inline (Set_All_Others);
11169 pragma Inline (Set_All_Present);
11170 pragma Inline (Set_Alternatives);
11171 pragma Inline (Set_Ancestor_Part);
11172 pragma Inline (Set_Array_Aggregate);
11173 pragma Inline (Set_Assignment_OK);
11174 pragma Inline (Set_Associated_Node);
11175 pragma Inline (Set_At_End_Proc);
11176 pragma Inline (Set_Attribute_Name);
11177 pragma Inline (Set_Aux_Decls_Node);
11178 pragma Inline (Set_Backwards_OK);
11179 pragma Inline (Set_Bad_Is_Detected);
11180 pragma Inline (Set_Body_To_Inline);
11181 pragma Inline (Set_Body_Required);
11182 pragma Inline (Set_By_Ref);
11183 pragma Inline (Set_Box_Present);
11184 pragma Inline (Set_Char_Literal_Value);
11185 pragma Inline (Set_Chars);
11186 pragma Inline (Set_Check_Address_Alignment);
11187 pragma Inline (Set_Choice_Parameter);
11188 pragma Inline (Set_Choices);
11189 pragma Inline (Set_Coextensions);
11190 pragma Inline (Set_Comes_From_Extended_Return_Statement);
11191 pragma Inline (Set_Compile_Time_Known_Aggregate);
11192 pragma Inline (Set_Component_Associations);
11193 pragma Inline (Set_Component_Clauses);
11194 pragma Inline (Set_Component_Definition);
11195 pragma Inline (Set_Component_Items);
11196 pragma Inline (Set_Component_List);
11197 pragma Inline (Set_Component_Name);
11198 pragma Inline (Set_Condition);
11199 pragma Inline (Set_Condition_Actions);
11200 pragma Inline (Set_Config_Pragmas);
11201 pragma Inline (Set_Constant_Present);
11202 pragma Inline (Set_Constraint);
11203 pragma Inline (Set_Constraints);
11204 pragma Inline (Set_Context_Installed);
11205 pragma Inline (Set_Context_Items);
11206 pragma Inline (Set_Controlling_Argument);
11207 pragma Inline (Set_Conversion_OK);
11208 pragma Inline (Set_Corresponding_Body);
11209 pragma Inline (Set_Corresponding_Formal_Spec);
11210 pragma Inline (Set_Corresponding_Generic_Association);
11211 pragma Inline (Set_Corresponding_Integer_Value);
11212 pragma Inline (Set_Corresponding_Spec);
11213 pragma Inline (Set_Corresponding_Stub);
11214 pragma Inline (Set_Dcheck_Function);
11215 pragma Inline (Set_Debug_Statement);
11216 pragma Inline (Set_Declarations);
11217 pragma Inline (Set_Default_Expression);
11218 pragma Inline (Set_Default_Name);
11219 pragma Inline (Set_Defining_Identifier);
11220 pragma Inline (Set_Defining_Unit_Name);
11221 pragma Inline (Set_Delay_Alternative);
11222 pragma Inline (Set_Delay_Statement);
11223 pragma Inline (Set_Delta_Expression);
11224 pragma Inline (Set_Digits_Expression);
11225 pragma Inline (Set_Discr_Check_Funcs_Built);
11226 pragma Inline (Set_Discrete_Choices);
11227 pragma Inline (Set_Discrete_Range);
11228 pragma Inline (Set_Discrete_Subtype_Definition);
11229 pragma Inline (Set_Discrete_Subtype_Definitions);
11230 pragma Inline (Set_Discriminant_Specifications);
11231 pragma Inline (Set_Discriminant_Type);
11232 pragma Inline (Set_Do_Accessibility_Check);
11233 pragma Inline (Set_Do_Discriminant_Check);
11234 pragma Inline (Set_Do_Length_Check);
11235 pragma Inline (Set_Do_Division_Check);
11236 pragma Inline (Set_Do_Overflow_Check);
11237 pragma Inline (Set_Do_Range_Check);
11238 pragma Inline (Set_Do_Storage_Check);
11239 pragma Inline (Set_Do_Tag_Check);
11240 pragma Inline (Set_Elaborate_Present);
11241 pragma Inline (Set_Elaborate_All_Desirable);
11242 pragma Inline (Set_Elaborate_All_Present);
11243 pragma Inline (Set_Elaborate_Desirable);
11244 pragma Inline (Set_Elaboration_Boolean);
11245 pragma Inline (Set_Else_Actions);
11246 pragma Inline (Set_Else_Statements);
11247 pragma Inline (Set_Elsif_Parts);
11248 pragma Inline (Set_Enclosing_Variant);
11249 pragma Inline (Set_End_Label);
11250 pragma Inline (Set_End_Span);
11251 pragma Inline (Set_Entity);
11252 pragma Inline (Set_Entry_Body_Formal_Part);
11253 pragma Inline (Set_Entry_Call_Alternative);
11254 pragma Inline (Set_Entry_Call_Statement);
11255 pragma Inline (Set_Entry_Direct_Name);
11256 pragma Inline (Set_Entry_Index);
11257 pragma Inline (Set_Entry_Index_Specification);
11258 pragma Inline (Set_Etype);
11259 pragma Inline (Set_Exception_Choices);
11260 pragma Inline (Set_Exception_Handlers);
11261 pragma Inline (Set_Exception_Junk);
11262 pragma Inline (Set_Exception_Label);
11263 pragma Inline (Set_Expansion_Delayed);
11264 pragma Inline (Set_Explicit_Actual_Parameter);
11265 pragma Inline (Set_Explicit_Generic_Actual_Parameter);
11266 pragma Inline (Set_Expression);
11267 pragma Inline (Set_Expressions);
11268 pragma Inline (Set_First_Bit);
11269 pragma Inline (Set_First_Inlined_Subprogram);
11270 pragma Inline (Set_First_Name);
11271 pragma Inline (Set_First_Named_Actual);
11272 pragma Inline (Set_First_Real_Statement);
11273 pragma Inline (Set_First_Subtype_Link);
11274 pragma Inline (Set_Float_Truncate);
11275 pragma Inline (Set_Formal_Type_Definition);
11276 pragma Inline (Set_Forwards_OK);
11277 pragma Inline (Set_From_At_End);
11278 pragma Inline (Set_From_At_Mod);
11279 pragma Inline (Set_From_Default);
11280 pragma Inline (Set_Generic_Associations);
11281 pragma Inline (Set_Generic_Formal_Declarations);
11282 pragma Inline (Set_Generic_Parent);
11283 pragma Inline (Set_Generic_Parent_Type);
11284 pragma Inline (Set_Handled_Statement_Sequence);
11285 pragma Inline (Set_Handler_List_Entry);
11286 pragma Inline (Set_Has_Created_Identifier);
11287 pragma Inline (Set_Has_Dynamic_Length_Check);
11288 pragma Inline (Set_Has_Init_Expression);
11289 pragma Inline (Set_Has_Local_Raise);
11290 pragma Inline (Set_Has_Dynamic_Range_Check);
11291 pragma Inline (Set_Has_No_Elaboration_Code);
11292 pragma Inline (Set_Has_Priority_Pragma);
11293 pragma Inline (Set_Has_Private_View);
11294 pragma Inline (Set_Has_Relative_Deadline_Pragma);
11295 pragma Inline (Set_Has_Storage_Size_Pragma);
11296 pragma Inline (Set_Has_Task_Info_Pragma);
11297 pragma Inline (Set_Has_Task_Name_Pragma);
11298 pragma Inline (Set_Has_Wide_Character);
11299 pragma Inline (Set_Hidden_By_Use_Clause);
11300 pragma Inline (Set_High_Bound);
11301 pragma Inline (Set_Identifier);
11302 pragma Inline (Set_Implicit_With);
11303 pragma Inline (Set_Includes_Infinities);
11304 pragma Inline (Set_Interface_List);
11305 pragma Inline (Set_Interface_Present);
11306 pragma Inline (Set_In_Present);
11307 pragma Inline (Set_Instance_Spec);
11308 pragma Inline (Set_Intval);
11309 pragma Inline (Set_Is_Asynchronous_Call_Block);
11310 pragma Inline (Set_Is_Component_Left_Opnd);
11311 pragma Inline (Set_Is_Component_Right_Opnd);
11312 pragma Inline (Set_Is_Controlling_Actual);
11313 pragma Inline (Set_Is_Dynamic_Coextension);
11314 pragma Inline (Set_Is_Entry_Barrier_Function);
11315 pragma Inline (Set_Is_Expanded_Build_In_Place_Call);
11316 pragma Inline (Set_Is_Folded_In_Parser);
11317 pragma Inline (Set_Is_In_Discriminant_Check);
11318 pragma Inline (Set_Is_Machine_Number);
11319 pragma Inline (Set_Is_Null_Loop);
11320 pragma Inline (Set_Is_Overloaded);
11321 pragma Inline (Set_Is_Power_Of_2_For_Shift);
11322 pragma Inline (Set_Is_Protected_Subprogram_Body);
11323 pragma Inline (Set_Has_Self_Reference);
11324 pragma Inline (Set_Is_Static_Coextension);
11325 pragma Inline (Set_Is_Static_Expression);
11326 pragma Inline (Set_Is_Subprogram_Descriptor);
11327 pragma Inline (Set_Is_Task_Allocation_Block);
11328 pragma Inline (Set_Is_Task_Master);
11329 pragma Inline (Set_Iteration_Scheme);
11330 pragma Inline (Set_Itype);
11331 pragma Inline (Set_Kill_Range_Check);
11332 pragma Inline (Set_Last_Bit);
11333 pragma Inline (Set_Last_Name);
11334 pragma Inline (Set_Library_Unit);
11335 pragma Inline (Set_Label_Construct);
11336 pragma Inline (Set_Left_Opnd);
11337 pragma Inline (Set_Limited_View_Installed);
11338 pragma Inline (Set_Limited_Present);
11339 pragma Inline (Set_Literals);
11340 pragma Inline (Set_Local_Raise_Not_OK);
11341 pragma Inline (Set_Local_Raise_Statements);
11342 pragma Inline (Set_Loop_Actions);
11343 pragma Inline (Set_Loop_Parameter_Specification);
11344 pragma Inline (Set_Low_Bound);
11345 pragma Inline (Set_Mod_Clause);
11346 pragma Inline (Set_More_Ids);
11347 pragma Inline (Set_Must_Be_Byte_Aligned);
11348 pragma Inline (Set_Must_Not_Freeze);
11349 pragma Inline (Set_Must_Not_Override);
11350 pragma Inline (Set_Must_Override);
11351 pragma Inline (Set_Name);
11352 pragma Inline (Set_Names);
11353 pragma Inline (Set_Next_Entity);
11354 pragma Inline (Set_Next_Named_Actual);
11355 pragma Inline (Set_Next_Pragma);
11356 pragma Inline (Set_Next_Rep_Item);
11357 pragma Inline (Set_Next_Use_Clause);
11358 pragma Inline (Set_No_Ctrl_Actions);
11359 pragma Inline (Set_No_Elaboration_Check);
11360 pragma Inline (Set_No_Entities_Ref_In_Spec);
11361 pragma Inline (Set_No_Initialization);
11362 pragma Inline (Set_No_Truncation);
11363 pragma Inline (Set_Null_Present);
11364 pragma Inline (Set_Null_Exclusion_Present);
11365 pragma Inline (Set_Null_Exclusion_In_Return_Present);
11366 pragma Inline (Set_Null_Record_Present);
11367 pragma Inline (Set_Object_Definition);
11368 pragma Inline (Set_Original_Discriminant);
11369 pragma Inline (Set_Original_Entity);
11370 pragma Inline (Set_Others_Discrete_Choices);
11371 pragma Inline (Set_Out_Present);
11372 pragma Inline (Set_Parameter_Associations);
11373 pragma Inline (Set_Parameter_Specifications);
11374 pragma Inline (Set_Parameter_List_Truncated);
11375 pragma Inline (Set_Parameter_Type);
11376 pragma Inline (Set_Parent_Spec);
11377 pragma Inline (Set_PPC_Enabled);
11378 pragma Inline (Set_Position);
11379 pragma Inline (Set_Pragma_Argument_Associations);
11380 pragma Inline (Set_Pragma_Identifier);
11381 pragma Inline (Set_Pragmas_After);
11382 pragma Inline (Set_Pragmas_Before);
11383 pragma Inline (Set_Prefix);
11384 pragma Inline (Set_Present_Expr);
11385 pragma Inline (Set_Prev_Ids);
11386 pragma Inline (Set_Print_In_Hex);
11387 pragma Inline (Set_Private_Declarations);
11388 pragma Inline (Set_Private_Present);
11389 pragma Inline (Set_Procedure_To_Call);
11390 pragma Inline (Set_Proper_Body);
11391 pragma Inline (Set_Protected_Definition);
11392 pragma Inline (Set_Protected_Present);
11393 pragma Inline (Set_Raises_Constraint_Error);
11394 pragma Inline (Set_Range_Constraint);
11395 pragma Inline (Set_Range_Expression);
11396 pragma Inline (Set_Real_Range_Specification);
11397 pragma Inline (Set_Realval);
11398 pragma Inline (Set_Reason);
11399 pragma Inline (Set_Record_Extension_Part);
11400 pragma Inline (Set_Redundant_Use);
11401 pragma Inline (Set_Renaming_Exception);
11402 pragma Inline (Set_Result_Definition);
11403 pragma Inline (Set_Return_Object_Declarations);
11404 pragma Inline (Set_Reverse_Present);
11405 pragma Inline (Set_Right_Opnd);
11406 pragma Inline (Set_Rounded_Result);
11407 pragma Inline (Set_Scope);
11408 pragma Inline (Set_Select_Alternatives);
11409 pragma Inline (Set_Selector_Name);
11410 pragma Inline (Set_Selector_Names);
11411 pragma Inline (Set_Shift_Count_OK);
11412 pragma Inline (Set_Source_Type);
11413 pragma Inline (Set_Specification);
11414 pragma Inline (Set_Statements);
11415 pragma Inline (Set_Static_Processing_OK);
11416 pragma Inline (Set_Storage_Pool);
11417 pragma Inline (Set_Strval);
11418 pragma Inline (Set_Subtype_Indication);
11419 pragma Inline (Set_Subtype_Mark);
11420 pragma Inline (Set_Subtype_Marks);
11421 pragma Inline (Set_Suppress_Loop_Warnings);
11422 pragma Inline (Set_Synchronized_Present);
11423 pragma Inline (Set_Tagged_Present);
11424 pragma Inline (Set_Target_Type);
11425 pragma Inline (Set_Task_Definition);
11426 pragma Inline (Set_Task_Present);
11427 pragma Inline (Set_Then_Actions);
11428 pragma Inline (Set_Then_Statements);
11429 pragma Inline (Set_Triggering_Alternative);
11430 pragma Inline (Set_Triggering_Statement);
11431 pragma Inline (Set_Treat_Fixed_As_Integer);
11432 pragma Inline (Set_TSS_Elist);
11433 pragma Inline (Set_Type_Definition);
11434 pragma Inline (Set_Unit);
11435 pragma Inline (Set_Unknown_Discriminants_Present);
11436 pragma Inline (Set_Unreferenced_In_Spec);
11437 pragma Inline (Set_Variant_Part);
11438 pragma Inline (Set_Variants);
11439 pragma Inline (Set_Visible_Declarations);
11440 pragma Inline (Set_Was_Originally_Stub);
11441 pragma Inline (Set_Zero_Cost_Handling);
11443 N_Simple_Return_Statement : constant Node_Kind := N_Return_Statement;
11444 -- Rename N_Return_Statement to be N_Simple_Return_Statement. Clients
11445 -- should refer to N_Simple_Return_Statement.