1 ------------------------------------------------------------------------------
3 -- GNAT COMPILER COMPONENTS --
9 -- Copyright (C) 1992-2008, 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 2, 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. See the GNU General Public License --
17 -- for more details. You should have received a copy of the GNU General --
18 -- Public License distributed with GNAT; see file COPYING. If not, write --
19 -- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, --
20 -- Boston, MA 02110-1301, USA. --
22 -- As a special exception, if other files instantiate generics from this --
23 -- unit, or you link this unit with other files to produce an executable, --
24 -- this unit does not by itself cause the resulting executable to be --
25 -- covered by the GNU General Public License. This exception does not --
26 -- however invalidate any other reasons why the executable file might be --
27 -- covered by the GNU Public License. --
29 -- GNAT was originally developed by the GNAT team at New York University. --
30 -- Extensive contributions were provided by Ada Core Technologies Inc. --
32 ------------------------------------------------------------------------------
34 -- This package defines the structure of the abstract syntax tree. The Tree
35 -- package provides a basic tree structure. Sinfo describes how this structure
36 -- is used to represent the syntax of an Ada program.
38 -- The grammar in the RM is followed very closely in the tree
39 -- design, and is repeated as part of this source file.
41 -- The tree contains not only the full syntactic representation of the
42 -- program, but also the results of semantic analysis. In particular, the
43 -- nodes for defining identifiers, defining character literals and defining
44 -- operator symbols, collectively referred to as entities, represent what
45 -- would normally be regarded as the symbol table information. In addition a
46 -- number of the tree nodes contain semantic information.
48 -- WARNING: Several files are automatically generated from this package.
49 -- See below for details.
51 with Namet; use Namet;
52 with Types; use Types;
53 with Uintp; use Uintp;
54 with Urealp; use Urealp;
58 ---------------------------------
59 -- Making Changes to This File --
60 ---------------------------------
62 -- If changes are made to this file, a number of related steps must be
63 -- carried out to ensure consistency. First, if a field access function is
64 -- added, it appears in seven places:
66 -- The documentation associated with the node
67 -- The spec of the access function in sinfo.ads
68 -- The body of the access function in sinfo.adb
69 -- The pragma Inline at the end of sinfo.ads for the access function
70 -- The spec of the set procedure in sinfo.ads
71 -- The body of the set procedure in sinfo.adb
72 -- The pragma Inline at the end of sinfo.ads for the set procedure
74 -- The field chosen must be consistent in all places, and, for a node that
75 -- is a subexpression, must not overlap any of the standard expression
78 -- In addition, if any of the standard expression fields is changed, then
79 -- the utility program which creates the Treeprs spec (in file treeprs.ads)
80 -- must be updated appropriately, since it special cases expression fields.
82 -- If a new tree node is added, then the following changes are made
84 -- Add it to the documentation in the appropriate place
85 -- Add its fields to this documentation section
86 -- Define it in the appropriate classification in Node_Kind
87 -- In the body (sinfo), add entries to the access functions for all
88 -- its fields (except standard expression fields) to include the new
89 -- node in the checks.
90 -- Add an appropriate section to the case statement in sprint.adb
91 -- Add an appropriate section to the case statement in sem.adb
92 -- Add an appropriate section to the case statement in exp_util.adb
93 -- (Insert_Actions procedure)
94 -- For a subexpression, add an appropriate section to the case
95 -- statement in sem_eval.adb
96 -- For a subexpression, add an appropriate section to the case
97 -- statement in sem_res.adb
99 -- Finally, four utility programs must be run:
101 -- Run CSinfo to check that you have made the changes consistently. It
102 -- checks most of the rules given above, with clear error messages. This
103 -- utility reads sinfo.ads and sinfo.adb and generates a report to
106 -- Run XSinfo to create sinfo.h, the corresponding C header. This
107 -- utility reads sinfo.ads and generates sinfo.h. Note that it does
108 -- not need to read sinfo.adb, since the contents of the body are
109 -- algorithmically determinable from the spec.
111 -- Run XTreeprs to create treeprs.ads, an updated version of the module
112 -- that is used to drive the tree print routine. This utility reads (but
113 -- does not modify) treeprs.adt, the template that provides the basic
114 -- structure of the file, and then fills in the data from the comments
117 -- Run XNmake to create nmake.ads and nmake.adb, the package body and
118 -- spec of the Nmake package which contains functions for constructing
121 -- All of the above steps except CSinfo are done automatically by the
122 -- build scripts when you do a full bootstrap.
124 -- Note: sometime we could write a utility that actually generated the body
125 -- of sinfo from the spec instead of simply checking it, since, as noted
126 -- above, the contents of the body can be determined from the spec.
128 --------------------------------
129 -- Implicit Nodes in the Tree --
130 --------------------------------
132 -- Generally the structure of the tree very closely follows the grammar as
133 -- defined in the RM. However, certain nodes are omitted to save space and
134 -- simplify semantic processing. Two general classes of such omitted nodes
137 -- If the only possibilities for a non-terminal are one or more other
138 -- non-terminals (i.e. the rule is a "skinny" rule), then usually the
139 -- corresponding node is omitted from the tree, and the target construct
140 -- appears directly. For example, a real type definition is either
141 -- floating point definition or a fixed point definition. No explicit node
142 -- appears for real type definition. Instead either the floating point
143 -- definition or fixed point definition appears directly.
145 -- If a non-terminal corresponds to a list of some other non-terminal
146 -- (possibly with separating punctuation), then usually it is omitted from
147 -- the tree, and a list of components appears instead. For example,
148 -- sequence of statements does not appear explicitly in the tree. Instead
149 -- a list of statements appears directly.
151 -- Some additional cases of omitted nodes occur and are documented
152 -- individually. In particular, many nodes are omitted in the tree
153 -- generated for an expression.
155 -------------------------------------------
156 -- Handling of Defining Identifier Lists --
157 -------------------------------------------
159 -- In several declarative forms in the syntax, lists of defining
160 -- identifiers appear (object declarations, component declarations, number
161 -- declarations etc.)
163 -- The semantics of such statements are equivalent to a series of identical
164 -- declarations of single defining identifiers (except that conformance
165 -- checks require the same grouping of identifiers in the parameter case).
167 -- To simplify semantic processing, the parser breaks down such multiple
168 -- declaration cases into sequences of single declarations, duplicating
169 -- type and initialization information as required. The flags More_Ids and
170 -- Prev_Ids are used to record the original form of the source in the case
171 -- where the original source used a list of names, More_Ids being set on
172 -- all but the last name and Prev_Ids being set on all but the first name.
173 -- These flags are used to reconstruct the original source (e.g. in the
174 -- Sprint package), and also are included in the conformance checks, but
175 -- otherwise have no semantic significance.
177 -- Note: the reason that we use More_Ids and Prev_Ids rather than
178 -- First_Name and Last_Name flags is so that the flags are off in the
179 -- normal one identifier case, which minimizes tree print output.
181 -----------------------
182 -- Use of Node Lists --
183 -----------------------
185 -- With a few exceptions, if a construction of the form {non-terminal}
186 -- appears in the tree, lists are used in the corresponding tree node (see
187 -- package Nlists for handling of node lists). In this case a field of the
188 -- parent node points to a list of nodes for the non-terminal. The field
189 -- name for such fields has a plural name which always ends in "s". For
190 -- example, a case statement has a field Alternatives pointing to list of
191 -- case statement alternative nodes.
193 -- Only fields pointing to lists have names ending in "s", so generally the
194 -- structure is strongly typed, fields not ending in s point to single
195 -- nodes, and fields ending in s point to lists.
197 -- The following example shows how a traversal of a list is written. We
198 -- suppose here that Stmt points to a N_Case_Statement node which has a
199 -- list field called Alternatives:
201 -- Alt := First (Alternatives (Stmt));
202 -- while Present (Alt) loop
204 -- -- processing for case statement alternative Alt
206 -- Alt := Next (Alt);
209 -- The Present function tests for Empty, which in this case signals the end
210 -- of the list. First returns Empty immediately if the list is empty.
211 -- Present is defined in Atree, First and Next are defined in Nlists.
213 -- The exceptions to this rule occur with {DEFINING_IDENTIFIERS} in all
214 -- contexts, which is handled as described in the previous section, and
215 -- with {,library_unit_NAME} in the N_With_Clause mode, which is handled
216 -- using the First_Name and Last_Name flags, as further detailed in the
217 -- description of the N_With_Clause node.
223 -- Pragmas can appear in many different context, but are not included in
224 -- the grammar. Still they must appear in the tree, so they can be properly
227 -- Two approaches are used. In some cases, an extra field is defined in an
228 -- appropriate node that contains a list of pragmas appearing in the
229 -- expected context. For example pragmas can appear before an
230 -- Accept_Alternative in a Selective_Accept_Statement, and these pragmas
231 -- appear in the Pragmas_Before field of the N_Accept_Alternative node.
233 -- The other approach is to simply allow pragmas to appear in syntactic
234 -- lists where the grammar (of course) does not include the possibility.
235 -- For example, the Variants field of an N_Variant_Part node points to a
236 -- list that can contain both N_Pragma and N_Variant nodes.
238 -- To make processing easier in the latter case, the Nlists package
239 -- provides a set of routines (First_Non_Pragma, Last_Non_Pragma,
240 -- Next_Non_Pragma, Prev_Non_Pragma) that allow such lists to be handled
241 -- ignoring all pragmas.
243 -- In the case of the variants list, we can either write:
245 -- Variant := First (Variants (N));
246 -- while Present (Variant) loop
248 -- Variant := Next (Variant);
253 -- Variant := First_Non_Pragma (Variants (N));
254 -- while Present (Variant) loop
256 -- Variant := Next_Non_Pragma (Variant);
259 -- In the first form of the loop, Variant can either be an N_Pragma or an
260 -- N_Variant node. In the second form, Variant can only be N_Variant since
261 -- all pragmas are skipped.
263 ---------------------
264 -- Optional Fields --
265 ---------------------
267 -- Fields which correspond to a section of the syntax enclosed in square
268 -- brackets are generally omitted (and the corresponding field set to Empty
269 -- for a node, or No_List for a list). The documentation of such fields
270 -- notes these cases. One exception to this rule occurs in the case of
271 -- possibly empty statement sequences (such as the sequence of statements
272 -- in an entry call alternative). Such cases appear in the syntax rules as
273 -- [SEQUENCE_OF_STATEMENTS] and the fields corresponding to such optional
274 -- statement sequences always contain an empty list (not No_List) if no
275 -- statements are present.
277 -- Note: the utility program that constructs the body and spec of the Nmake
278 -- package relies on the format of the comments to determine if a field
279 -- should have a default value in the corresponding make routine. The rule
280 -- is that if the first line of the description of the field contains the
281 -- string "(set to xxx if", then a default value of xxx is provided for
282 -- this field in the corresponding Make_yyy routine.
284 -----------------------------------
285 -- Note on Body/Spec Terminology --
286 -----------------------------------
288 -- In informal discussions about Ada, it is customary to refer to package
289 -- and subprogram specs and bodies. However, this is not technically
290 -- correct, what is normally referred to as a spec or specification is in
291 -- fact a package declaration or subprogram declaration. We are careful in
292 -- GNAT to use the correct terminology and in particular, the full word
293 -- specification is never used as an incorrect substitute for declaration.
294 -- The structure and terminology used in the tree also reflects the grammar
295 -- and thus uses declaration and specification in the technically correct
298 -- However, there are contexts in which the informal terminology is useful.
299 -- We have the word "body" to refer to the Interp_Etype declared by the
300 -- declaration of a unit body, and in some contexts we need similar term to
301 -- refer to the entity declared by the package or subprogram declaration,
302 -- and simply using declaration can be confusing since the body also has a
305 -- An example of such a context is the link between the package body and
306 -- its declaration. With_Declaration is confusing, since the package body
307 -- itself is a declaration.
309 -- To deal with this problem, we reserve the informal term Spec, i.e. the
310 -- popular abbreviation used in this context, to refer to the entity
311 -- declared by the package or subprogram declaration. So in the above
312 -- example case, the field in the body is called With_Spec.
314 -- Another important context for the use of the word Spec is in error
315 -- messages, where a hyper-correct use of declaration would be confusing to
316 -- a typical Ada programmer, and even for an expert programmer can cause
317 -- confusion since the body has a declaration as well.
321 -- Declaration always refers to the syntactic entity that is called
322 -- a declaration. In particular, subprogram declaration
323 -- and package declaration are used to describe the
324 -- syntactic entity that includes the semicolon.
326 -- Specification always refers to the syntactic entity that is called
327 -- a specification. In particular, the terms procedure
328 -- specification, function specification, package
329 -- specification, subprogram specification always refer
330 -- to the syntactic entity that has no semicolon.
332 -- Spec is an informal term, used to refer to the entity
333 -- that is declared by a task declaration, protected
334 -- declaration, generic declaration, subprogram
335 -- declaration or package declaration.
337 -- This convention is followed throughout the GNAT documentation
338 -- both internal and external, and in all error message text.
340 ------------------------
341 -- Internal Use Nodes --
342 ------------------------
344 -- These are Node_Kind settings used in the internal implementation which
345 -- are not logically part of the specification.
348 -- Completely unused entry at the start of the enumeration type. This
349 -- is inserted so that no legitimate value is zero, which helps to get
350 -- better debugging behavior, since zero is a likely uninitialized value).
353 -- Completely unused entry at the end of the enumeration type. This is
354 -- handy so that arrays with Node_Kind as the index type have an extra
355 -- entry at the end (see for example the use of the Pchar_Pos_Array in
356 -- Treepr, where the extra entry provides the limit value when dealing with
357 -- the last used entry in the array).
359 -----------------------------------------
360 -- Note on the settings of Sloc fields --
361 -----------------------------------------
363 -- The Sloc field of nodes that come from the source is set by the parser.
364 -- For internal nodes, and nodes generated during expansion the Sloc is
365 -- usually set in the call to the constructor for the node. In general the
366 -- Sloc value chosen for an internal node is the Sloc of the source node
367 -- whose processing is responsible for the expansion. For example, the Sloc
368 -- of an inherited primitive operation is the Sloc of the corresponding
369 -- derived type declaration.
371 -- For the nodes of a generic instantiation, the Sloc value is encoded to
372 -- represent both the original Sloc in the generic unit, and the Sloc of
373 -- the instantiation itself. See Sinput.ads for details.
375 -- Subprogram instances create two callable entities: one is the visible
376 -- subprogram instance, and the other is an anonymous subprogram nested
377 -- within a wrapper package that contains the renamings for the actuals.
378 -- Both of these entities have the Sloc of the defining entity in the
379 -- instantiation node. This simplifies some ASIS queries.
381 -----------------------
382 -- Field Definitions --
383 -----------------------
385 -- In the following node definitions, all fields, both syntactic and
386 -- semantic, are documented. The one exception is in the case of entities
387 -- (defining indentifiers, character literals and operator symbols), where
388 -- the usage of the fields depends on the entity kind. Entity fields are
389 -- fully documented in the separate package Einfo.
391 -- In the node definitions, three common sets of fields are abbreviated to
392 -- save both space in the documentation, and also space in the string
393 -- (defined in Tree_Print_Strings) used to print trees. The following
394 -- abbreviations are used:
396 -- Note: the utility program that creates the Treeprs spec (in the file
397 -- xtreeprs.adb) knows about the special fields here, so it must be
398 -- modified if any change is made to these fields.
400 -- "plus fields for binary operator"
401 -- Chars (Name1) Name_Id for the operator
402 -- Left_Opnd (Node2) left operand expression
403 -- Right_Opnd (Node3) right operand expression
404 -- Entity (Node4-Sem) defining entity for operator
405 -- Associated_Node (Node4-Sem) for generic processing
406 -- Do_Overflow_Check (Flag17-Sem) set if overflow check needed
407 -- Has_Private_View (Flag11-Sem) set in generic units.
409 -- "plus fields for unary operator"
410 -- Chars (Name1) Name_Id for the operator
411 -- Right_Opnd (Node3) right operand expression
412 -- Entity (Node4-Sem) defining entity for operator
413 -- Associated_Node (Node4-Sem) for generic processing
414 -- Do_Overflow_Check (Flag17-Sem) set if overflow check needed
415 -- Has_Private_View (Flag11-Sem) set in generic units.
417 -- "plus fields for expression"
418 -- Paren_Count number of parentheses levels
419 -- Etype (Node5-Sem) type of the expression
420 -- Is_Overloaded (Flag5-Sem) >1 type interpretation exists
421 -- Is_Static_Expression (Flag6-Sem) set for static expression
422 -- Raises_Constraint_Error (Flag7-Sem) evaluation raises CE
423 -- Must_Not_Freeze (Flag8-Sem) set if must not freeze
424 -- Do_Range_Check (Flag9-Sem) set if a range check needed
425 -- Assignment_OK (Flag15-Sem) set if modification is OK
426 -- Is_Controlling_Actual (Flag16-Sem) set for controlling argument
428 -- Note: see under (EXPRESSION) for further details on the use of
429 -- the Paren_Count field to record the number of parentheses levels.
431 -- Node_Kind is the type used in the Nkind field to indicate the node kind.
432 -- The actual definition of this type is given later (the reason for this
433 -- is that we want the descriptions ordered by logical chapter in the RM,
434 -- but the type definition is reordered to facilitate the definition of
435 -- some subtype ranges. The individual descriptions of the nodes show how
436 -- the various fields are used in each node kind, as well as providing
437 -- logical names for the fields. Functions and procedures are provided for
438 -- accessing and setting these fields using these logical names.
440 -----------------------
441 -- Gigi Restrictions --
442 -----------------------
444 -- The tree passed to Gigi is more restricted than the general tree form.
445 -- For example, as a result of expansion, most of the tasking nodes can
446 -- never appear. For each node to which either a complete or partial
447 -- restriction applies, a note entitled "Gigi restriction" appears which
448 -- documents the restriction.
450 -- Note that most of these restrictions apply only to trees generated when
451 -- code is being generated, since they involved expander actions that
454 ------------------------
455 -- Common Flag Fields --
456 ------------------------
458 -- The following flag fields appear in all nodes
461 -- This flag is used to indicate that a node (and all its children have
462 -- been analyzed. It is used to avoid reanalysis of a node that has
463 -- already been analyzed, both for efficiency and functional correctness
466 -- Comes_From_Source (Flag2)
467 -- This flag is on for any nodes built by the scanner or parser from the
468 -- source program, and off for any nodes built by the analyzer or
469 -- expander. It indicates that a node comes from the original source.
470 -- This flag is defined in Atree.
472 -- Error_Posted (Flag3)
473 -- This flag is used to avoid multiple error messages being posted on or
474 -- referring to the same node. This flag is set if an error message
475 -- refers to a node or is posted on its source location, and has the
476 -- effect of inhibiting further messages involving this same node.
478 -- Has_Dynamic_Length_Check (Flag10-Sem)
479 -- This flag is present on all nodes. It is set to indicate that one of
480 -- the routines in unit Checks has generated a length check action which
481 -- has been inserted at the flagged node. This is used to avoid the
482 -- generation of duplicate checks.
484 -- Has_Dynamic_Range_Check (Flag12-Sem)
485 -- This flag is present on all nodes. It is set to indicate that one of
486 -- the routines in unit Checks has generated a range check action which
487 -- has been inserted at the flagged node. This is used to avoid the
488 -- generation of duplicate checks.
490 -- Has_Local_Raise (Flag8-Sem)
491 -- Present in exception handler nodes. Set if the handler can be entered
492 -- via a local raise that gets transformed to a goto statement. This will
493 -- always be set if Local_Raise_Statements is non-empty, but can also be
494 -- set as a result of generation of N_Raise_xxx nodes, or flags set in
495 -- nodes requiring generation of back end checks.
497 ------------------------------------
498 -- Description of Semantic Fields --
499 ------------------------------------
501 -- The meaning of the syntactic fields is generally clear from their names
502 -- without any further description, since the names are chosen to
503 -- correspond very closely to the syntax in the reference manual. This
504 -- section describes the usage of the semantic fields, which are used to
505 -- contain additional information determined during semantic analysis.
507 -- ABE_Is_Certain (Flag18-Sem)
508 -- This flag is set in an instantiation node or a call node is determined
509 -- to be sure to raise an ABE. This is used to trigger special handling
510 -- of such cases, particularly in the instantiation case where we avoid
511 -- instantiating the body if this flag is set. This flag is also present
512 -- in an N_Formal_Package_Declaration_Node since formal package
513 -- declarations are treated like instantiations, but it is always set to
514 -- False in this context.
516 -- Accept_Handler_Records (List5-Sem)
517 -- This field is present only in an N_Accept_Alternative node. It is used
518 -- to temporarily hold the exception handler records from an accept
519 -- statement in a selective accept. These exception handlers will
520 -- eventually be placed in the Handler_Records list of the procedure
521 -- built for this accept (see Expand_N_Selective_Accept procedure in
522 -- Exp_Ch9 for further details).
524 -- Access_Types_To_Process (Elist2-Sem)
525 -- Present in N_Freeze_Entity nodes for Incomplete or private types.
526 -- Contains the list of access types which may require specific treatment
527 -- when the nature of the type completion is completely known. An example
528 -- of such treatement is the generation of the associated_final_chain.
530 -- Actions (List1-Sem)
531 -- This field contains a sequence of actions that are associated with the
532 -- node holding the field. See the individual node types for details of
533 -- how this field is used, as well as the description of the specific use
534 -- for a particular node type.
536 -- Activation_Chain_Entity (Node3-Sem)
537 -- This is used in tree nodes representing task activators (blocks,
538 -- subprogram bodies, package declarations, and task bodies). It is
539 -- initially Empty, and then gets set to point to the entity for the
540 -- declared Activation_Chain variable when the first task is declared.
541 -- When tasks are declared in the corresponding declarative region this
542 -- entity is located by name (its name is always _Chain) and the declared
543 -- tasks are added to the chain. Note that N_Extended_Return_Statement
544 -- does not have this attribute, although it does have an activation
545 -- chain. This chain is used to store the tasks temporarily, and is not
546 -- used for activating them. On successful completion of the return
547 -- statement, the tasks are moved to the caller's chain, and the caller
550 -- Acts_As_Spec (Flag4-Sem)
551 -- A flag set in the N_Subprogram_Body node for a subprogram body which
552 -- is acting as its own spec, except in the case of a library level
553 -- subprogram, in which case the flag is set on the parent compilation
554 -- unit node instead (see further description in spec of Lib package).
555 -- ??? Above note about Lib is dubious since lib.ads does not mention
556 -- Acts_As_Spec at all.
558 -- Actual_Designated_Subtype (Node4-Sem)
559 -- Present in N_Free_Statement and N_Explicit_Dereference nodes. If gigi
560 -- needs to known the dynamic constrained subtype of the designated
561 -- object, this attribute is set to that type. This is done for
562 -- N_Free_Statements for access-to-classwide types and access to
563 -- unconstrained packed array types, and for N_Explicit_Dereference when
564 -- the designated type is an unconstrained packed array and the
565 -- dereference is the prefix of a 'Size attribute reference.
567 -- Address_Warning_Posted (Flag18-Sem)
568 -- Present in N_Attribute_Definition nodes. Set to indicate that we have
569 -- posted a warning for the address clause regarding size or alignment
570 -- issues. Used to inhibit multiple redundant messages.
572 -- Aggregate_Bounds (Node3-Sem)
573 -- Present in array N_Aggregate nodes. If the aggregate contains
574 -- component associations this field points to an N_Range node whose
575 -- bounds give the lowest and highest discrete choice values. If the
576 -- named aggregate contains a dynamic or null choice this field is empty.
577 -- If the aggregate contains positional elements this field points to an
578 -- N_Integer_Literal node giving the number of positional elements. Note
579 -- that if the aggregate contains positional elements and an other choice
580 -- the N_Integer_Literal only accounts for the number of positional
583 -- All_Others (Flag11-Sem)
584 -- Present in an N_Others_Choice node. This flag is set in the case of an
585 -- others exception where all exceptions are to be caught, even those
586 -- that are not normally handled (in particular the tasking abort
587 -- signal). This is used for translation of the at end handler into a
588 -- normal exception handler.
590 -- Assignment_OK (Flag15-Sem)
591 -- This flag is set in a subexpression node for an object, indicating
592 -- that the associated object can be modified, even if this would not
593 -- normally be permissible (either by direct assignment, or by being
594 -- passed as an out or in-out parameter). This is used by the expander
595 -- for a number of purposes, including initialzation of constants and
596 -- limited type objects (such as tasks), setting discriminant fields,
597 -- setting tag values, etc. N_Object_Declaration nodes also have this
598 -- flag defined. Here it is used to indicate that an initialization
599 -- expression is valid, even where it would normally not be allowed (e.g.
600 -- where the type involved is limited).
602 -- Associated_Node (Node4-Sem)
603 -- Present in nodes that can denote an entity: identifiers, character
604 -- literals, operator symbols, expanded names, operator nodes, and
605 -- attribute reference nodes (all these nodes have an Entity field). This
606 -- field is also present in N_Aggregate, N_Selected_Component, and
607 -- N_Extension_Aggregate nodes. This field is used in generic processing
608 -- to create links between the generic template and the generic copy. See
609 -- Sem_Ch12.Get_Associated_Node for full details. Note that this field
610 -- overlaps Entity, which is fine, since, as explained in Sem_Ch12, the
611 -- normal function of Entity is not required at the point where the
612 -- Associated_Node is set. Note also, that in generic templates, this
613 -- means that the Entity field does not necessarily point to an Entity.
614 -- Since the back end is expected to ignore generic templates, this is
617 -- At_End_Proc (Node1)
618 -- This field is present in an N_Handled_Sequence_Of_Statements node. It
619 -- contains an identifier reference for the cleanup procedure to be
620 -- called. See description of this node for further details.
622 -- Backwards_OK (Flag6-Sem)
623 -- A flag present in the N_Assignment_Statement node. It is used only if
624 -- the type being assigned is an array type, and is set if analysis
625 -- determines that it is definitely safe to do the copy backwards, i.e.
626 -- starting at the highest addressed element. Note that if neither of the
627 -- flags Forwards_OK or Backwards_OK is set, it means that the front end
628 -- could not determine that either direction is definitely safe, and a
629 -- runtime check may be required if the backend cannot figure it out.
631 -- Body_To_Inline (Node3-Sem)
632 -- present in subprogram declarations. Denotes analyzed but unexpanded
633 -- body of subprogram, to be used when inlining calls. Present when the
634 -- subprogram has an Inline pragma and inlining is enabled. If the
635 -- declaration is completed by a renaming_as_body, and the renamed en-
636 -- tity is a subprogram, the Body_To_Inline is the name of that entity,
637 -- which is used directly in later calls to the original subprogram.
639 -- Body_Required (Flag13-Sem)
640 -- A flag that appears in the N_Compilation_Unit node indicating that the
641 -- corresponding unit requires a body. For the package case, this
642 -- indicates that a completion is required. In Ada 95, if the flag is not
643 -- set for the package case, then a body may not be present. In Ada 83,
644 -- if the flag is not set for the package case, then body is optional.
645 -- For a subprogram declaration, the flag is set except in the case where
646 -- a pragma Import or Interface applies, in which case no body is
647 -- permitted (in Ada 83 or Ada 95).
649 -- By_Ref (Flag5-Sem)
650 -- A flag present in N_Simple_Return_Statement and
651 -- N_Extended_Return_Statement.
652 -- It is set when the returned expression is already allocated on the
653 -- secondary stack and thus the result is passed by reference rather
654 -- than copied another time.
656 -- Check_Address_Alignment (Flag11-Sem)
657 -- A flag present in N_Attribute_Definition clause for a 'Address
658 -- attribute definition. This flag is set if a dynamic check should be
659 -- generated at the freeze point for the entity to which this address
660 -- clause applies. The reason that we need this flag is that we want to
661 -- check for range checks being suppressed at the point where the
662 -- attribute definition clause is given, rather than testing this at the
665 -- Coextensions (Elist4-Sem)
666 -- Present in allocators nodes. Points to list of allocators for the
667 -- access discriminants of the allocated object.
669 -- Comes_From_Extended_Return_Statement (Flag18-Sem)
670 -- Present in N_Simple_Return_Statement nodes. True if this node was
671 -- constructed as part of the expansion of an
672 -- N_Extended_Return_Statement.
674 -- Compile_Time_Known_Aggregate (Flag18-Sem)
675 -- Present in N_Aggregate nodes. Set for aggregates which can be fully
676 -- evaluated at compile time without raising constraint error. Such
677 -- aggregates can be passed as is to Gigi without any expansion. See
678 -- Sem_Aggr for the specific conditions under which an aggregate has this
679 -- flag set. See also the flag Static_Processing_OK.
681 -- Condition_Actions (List3-Sem)
682 -- This field appears in else-if nodes and in the iteration scheme node
683 -- for while loops. This field is only used during semantic processing to
684 -- temporarily hold actions inserted into the tree. In the tree passed to
685 -- gigi, the condition actions field is always set to No_List. For
686 -- details on how this field is used, see the routine Insert_Actions in
687 -- package Exp_Util, and also the expansion routines for the relevant
690 -- Controlling_Argument (Node1-Sem)
691 -- This field is set in procedure and function call nodes if the call is
692 -- a dispatching call (it is Empty for a non-dispatching call). It
693 -- indicates the source of the call's controlling tag. For procedure
694 -- calls, the Controlling_Argument is one of the actuals. For function
695 -- that has a dispatching result, it is an entity in the context of the
696 -- call that can provide a tag, or else it is the tag of the root type of
697 -- the class. It can also specify a tag directly rather than being a
698 -- tagged object. The latter is needed by the implementations of AI-239
701 -- Conversion_OK (Flag14-Sem)
702 -- A flag set on type conversion nodes to indicate that the conversion is
703 -- to be considered as being valid, even though it is the case that the
704 -- conversion is not valid Ada. This is used for Enum_Rep, Fixed_Value
705 -- and Integer_Value attributes, for internal conversions done for
706 -- fixed-point operations, and for certain conversions for calls to
707 -- initialization procedures. If Conversion_OK is set, then Etype must be
708 -- set (the analyzer assumes that Etype has been set). For the case of
709 -- fixed-point operands, it also indicates that the conversion is to be
710 -- direct conversion of the underlying integer result, with no regard to
711 -- the small operand.
713 -- Corresponding_Body (Node5-Sem)
714 -- This field is set in subprogram declarations, package declarations,
715 -- entry declarations of protected types, and in generic units. It
716 -- points to the defining entity for the corresponding body (NOT the
717 -- node for the body itself).
719 -- Corresponding_Formal_Spec (Node3-Sem)
720 -- This field is set in subprogram renaming declarations, where it points
721 -- to the defining entity for a formal subprogram in the case where the
722 -- renaming corresponds to a generic formal subprogram association in an
723 -- instantiation. The field is Empty if the renaming does not correspond
724 -- to such a formal association.
726 -- Corresponding_Generic_Association (Node5-Sem)
727 -- This field is defined for object declarations and object renaming
728 -- declarations. It is set for the declarations within an instance that
729 -- map generic formals to their actuals. If set, the field points to
730 -- a generic_association which is the original parent of the expression
731 -- or name appearing in the declaration. This simplifies ASIS queries.
733 -- Corresponding_Integer_Value (Uint4-Sem)
734 -- This field is set in real literals of fixed-point types (it is not
735 -- used for floating-point types). It contains the integer value used
736 -- to represent the fixed-point value. It is also set on the universal
737 -- real literals used to represent bounds of fixed-point base types
738 -- and their first named subtypes.
740 -- Corresponding_Spec (Node5-Sem)
741 -- This field is set in subprogram, package, task, and protected body
742 -- nodes, where it points to the defining entity in the corresponding
743 -- spec. The attribute is also set in N_With_Clause nodes, where it
744 -- points to the defining entity for the with'ed spec, and in a
745 -- subprogram renaming declaration when it is a Renaming_As_Body. The
746 -- field is Empty if there is no corresponding spec, as in the case of a
747 -- subprogram body that serves as its own spec.
749 -- Corresponding_Stub (Node3-Sem)
750 -- This field is present in an N_Subunit node. It holds the node in
751 -- the parent unit that is the stub declaration for the subunit. it is
752 -- set when analysis of the stub forces loading of the proper body. If
753 -- expansion of the proper body creates new declarative nodes, they are
754 -- inserted at the point of the corresponding_stub.
756 -- Dcheck_Function (Node5-Sem)
757 -- This field is present in an N_Variant node, It references the entity
758 -- for the discriminant checking function for the variant.
760 -- Debug_Statement (Node3)
761 -- This field is present in an N_Pragma node. It is used only for a Debug
762 -- pragma. The parameter is of the form of an expression, as required by
763 -- the pragma syntax, but is actually a procedure call. To simplify
764 -- semantic processing, the parser creates a copy of the argument
765 -- rearranged into a procedure call statement and places it in the
766 -- Debug_Statement field. Note that this field is considered syntactic
767 -- field, since it is created by the parser.
769 -- Default_Expression (Node5-Sem)
770 -- This field is Empty if there is no default expression. If there is a
771 -- simple default expression (one with no side effects), then this field
772 -- simply contains a copy of the Expression field (both point to the tree
773 -- for the default expression). Default_Expression is used for
774 -- conformance checking.
776 -- Discr_Check_Funcs_Built (Flag11-Sem)
777 -- This flag is present in N_Full_Type_Declaration nodes. It is set when
778 -- discriminant checking functions are constructed. The purpose is to
779 -- avoid attempting to set these functions more than once.
781 -- Do_Accessibility_Check (Flag13-Sem)
782 -- This flag is set on N_Parameter_Specification nodes to indicate
783 -- that an accessibility check is required for the parameter. It is
784 -- not yet decided who takes care of this check (TBD ???).
786 -- Do_Discriminant_Check (Flag13-Sem)
787 -- This flag is set on N_Selected_Component nodes to indicate that a
788 -- discriminant check is required using the discriminant check routine
789 -- associated with the selector. The actual check is generated by the
790 -- expander when processing selected components.
792 -- Do_Division_Check (Flag13-Sem)
793 -- This flag is set on a division operator (/ mod rem) to indicate
794 -- that a zero divide check is required. The actual check is dealt
795 -- with by the backend (all the front end does is to set the flag).
797 -- Do_Length_Check (Flag4-Sem)
798 -- This flag is set in an N_Assignment_Statement, N_Op_And, N_Op_Or,
799 -- N_Op_Xor, or N_Type_Conversion node to indicate that a length check
800 -- is required. It is not determined who deals with this flag (???).
802 -- Do_Overflow_Check (Flag17-Sem)
803 -- This flag is set on an operator where an overflow check is required on
804 -- the operation. The actual check is dealt with by the backend (all the
805 -- front end does is to set the flag). The other cases where this flag is
806 -- used is on a Type_Conversion node and for attribute reference nodes.
807 -- For a type conversion, it means that the conversion is from one base
808 -- type to another, and the value may not fit in the target base type.
809 -- See also the description of Do_Range_Check for this case. The only
810 -- attribute references which use this flag are Pred and Succ, where it
811 -- means that the result should be checked for going outside the base
814 -- Do_Range_Check (Flag9-Sem)
815 -- This flag is set on an expression which appears in a context where
816 -- a range check is required. The target type is clear from the
817 -- context. The contexts in which this flag can appear are limited to
820 -- Right side of an assignment. In this case the target type is
821 -- taken from the left side of the assignment, which is referenced
822 -- by the Name of the N_Assignment_Statement node.
824 -- Subscript expressions in an indexed component. In this case the
825 -- target type is determined from the type of the array, which is
826 -- referenced by the Prefix of the N_Indexed_Component node.
828 -- Argument expression for a parameter, appearing either directly in
829 -- the Parameter_Associations list of a call or as the Expression of an
830 -- N_Parameter_Association node that appears in this list. In either
831 -- case, the check is against the type of the formal. Note that the
832 -- flag is relevant only in IN and IN OUT parameters, and will be
833 -- ignored for OUT parameters, where no check is required in the call,
834 -- and if a check is required on the return, it is generated explicitly
835 -- with a type conversion.
837 -- Initialization expression for the initial value in an object
838 -- declaration. In this case the Do_Range_Check flag is set on
839 -- the initialization expression, and the check is against the
840 -- range of the type of the object being declared.
842 -- The expression of a type conversion. In this case the range check is
843 -- against the target type of the conversion. See also the use of
844 -- Do_Overflow_Check on a type conversion. The distinction is that the
845 -- overflow check protects against a value that is outside the range of
846 -- the target base type, whereas a range check checks that the
847 -- resulting value (which is a value of the base type of the target
848 -- type), satisfies the range constraint of the target type.
850 -- Note: when a range check is required in contexts other than those
851 -- listed above (e.g. in a return statement), an additional type
852 -- conversion node is introduced to represent the required check.
854 -- Do_Storage_Check (Flag17-Sem)
855 -- This flag is set in an N_Allocator node to indicate that a storage
856 -- check is required for the allocation, or in an N_Subprogram_Body node
857 -- to indicate that a stack check is required in the subprogram prolog.
858 -- The N_Allocator case is handled by the routine that expands the call
859 -- to the runtime routine. The N_Subprogram_Body case is handled by the
860 -- backend, and all the semantics does is set the flag.
862 -- Do_Tag_Check (Flag13-Sem)
863 -- This flag is set on an N_Assignment_Statement, N_Function_Call,
864 -- N_Procedure_Call_Statement, N_Type_Conversion,
865 -- N_Simple_Return_Statement, or N_Extended_Return_Statement
866 -- node to indicate that the tag check can be suppressed. It is not
867 -- yet decided how this flag is used (TBD ???).
869 -- Elaborate_Present (Flag4-Sem)
870 -- This flag is set in the N_With_Clause node to indicate that pragma
871 -- Elaborate pragma appears for the with'ed units.
873 -- Elaborate_All_Desirable (Flag9-Sem)
874 -- This flag is set in the N_With_Clause mode to indicate that the static
875 -- elaboration processing has determined that an Elaborate_All pragma is
876 -- desirable for correct elaboration for this unit.
878 -- Elaborate_All_Present (Flag14-Sem)
879 -- This flag is set in the N_With_Clause node to indicate that a
880 -- pragma Elaborate_All pragma appears for the with'ed units.
882 -- Elaborate_Desirable (Flag11-Sem)
883 -- This flag is set in the N_With_Clause mode to indicate that the static
884 -- elaboration processing has determined that an Elaborate pragma is
885 -- desirable for correct elaboration for this unit.
887 -- Elaboration_Boolean (Node2-Sem)
888 -- This field is present in function and procedure specification
889 -- nodes. If set, it points to the entity for a Boolean flag that
890 -- must be tested for certain calls to check for access before
891 -- elaboration. See body of Sem_Elab for further details. This
892 -- field is Empty if no elaboration boolean is required.
894 -- Else_Actions (List3-Sem)
895 -- This field is present in conditional expression nodes. During code
896 -- expansion we use the Insert_Actions procedure (in Exp_Util) to insert
897 -- actions at an appropriate place in the tree to get elaborated at the
898 -- right time. For conditional expressions, we have to be sure that the
899 -- actions for the Else branch are only elaborated if the condition is
900 -- False. The Else_Actions field is used as a temporary parking place for
901 -- these actions. The final tree is always rewritten to eliminate the
902 -- need for this field, so in the tree passed to Gigi, this field is
903 -- always set to No_List.
905 -- Enclosing_Variant (Node2-Sem)
906 -- This field is present in the N_Variant node and identifies the
907 -- Node_Id corresponding to the immediately enclosing variant when
908 -- the variant is nested, and N_Empty otherwise. Set during semantic
909 -- processing of the variant part of a record type.
911 -- Entity (Node4-Sem)
912 -- Appears in all direct names (identifiers, character literals, and
913 -- operator symbols), as well as expanded names, and attributes that
914 -- denote entities, such as 'Class. Points to entity for corresponding
915 -- defining occurrence. Set after name resolution. For identifiers in a
916 -- WITH list, the corresponding defining occurrence is in a separately
917 -- compiled file, and Entity must be set by the library Load procedure.
919 -- Note: During name resolution, the value in Entity may be temporarily
920 -- incorrect (e.g. during overload resolution, Entity is initially set to
921 -- the first possible correct interpretation, and then later modified if
922 -- necessary to contain the correct value after resolution).
924 -- Note: This field overlaps Associated_Node, which is used during
925 -- generic processing (see Sem_Ch12 for details). Note also that in
926 -- generic templates, this means that the Entity field does not always
927 -- point to an Entity. Since the back end is expected to ignore generic
928 -- templates, this is harmless.
930 -- Note: This field also appears in N_Attribute_Definition_Clause nodes.
931 -- It is used only for stream attributes definition clauses. In this
932 -- case, it denotes a (possibly dummy) subprogram entity that is declared
933 -- conceptually at the point of the clause. Thus the visibility of the
934 -- attribute definition clause (in the sense of 8.3(23) as amended by
935 -- AI-195) can be checked by testing the visibility of that subprogram.
937 -- Note: Normally the Entity field of an identifier points to the entity
938 -- for the corresponding defining identifier, and hence the Chars field
939 -- of an identifier will match the Chars field of the entity. However,
940 -- there is no requirement that these match, and there are obscure cases
941 -- of generated code where they do not match.
943 -- Entity_Or_Associated_Node (Node4-Sem)
944 -- A synonym for both Entity and Associated_Node. Used by convention in
945 -- the code when referencing this field in cases where it is not known
946 -- whether the field contains an Entity or an Associated_Node.
949 -- Appears in all expression nodes, all direct names, and all entities.
950 -- Points to the entity for the related type. Set after type resolution.
951 -- Normally this is the actual subtype of the expression. However, in
952 -- certain contexts such as the right side of an assignment, subscripts,
953 -- arguments to calls, returned value in a function, initial value etc.
954 -- it is the desired target type. In the event that this is different
955 -- from the actual type, the Do_Range_Check flag will be set if a range
956 -- check is required. Note: if the Is_Overloaded flag is set, then Etype
957 -- points to an essentially arbitrary choice from the possible set of
960 -- Exception_Junk (Flag8-Sem)
961 -- This flag is set in a various nodes appearing in a statement sequence
962 -- to indicate that the corresponding node is an artifact of the
963 -- generated code for exception handling, and should be ignored when
964 -- analyzing the control flow of the relevant sequence of statements
965 -- (e.g. to check that it does not end with a bad return statement).
967 -- Exception_Label (Node5-Sem)
968 -- Appears in N_Push_xxx_Label nodes. Points to the entity of the label
969 -- to be used for transforming the corresponding exception into a goto,
970 -- or contains Empty, if this exception is not to be transformed. Also
971 -- appears in N_Exception_Handler nodes, where, if set, it indicates
972 -- that there may be a local raise for the handler, so that expansion
973 -- to allow a goto is required (and this field contains the label for
974 -- this goto). See Exp_Ch11.Expand_Local_Exception_Handlers for details.
976 -- Expansion_Delayed (Flag11-Sem)
977 -- Set on aggregates and extension aggregates that need a top-down rather
978 -- than bottom up expansion. Typically aggregate expansion happens bottom
979 -- up. For nested aggregates the expansion is delayed until the enclosing
980 -- aggregate itself is expanded, e.g. in the context of a declaration. To
981 -- delay it we set this flag. This is done to avoid creating a temporary
982 -- for each level of a nested aggregates, and also to prevent the
983 -- premature generation of constraint checks. This is also a requirement
984 -- if we want to generate the proper attachment to the internal
985 -- finalization lists (for record with controlled components). Top down
986 -- expansion of aggregates is also used for in-place array aggregate
987 -- assignment or initialization. When the full context is known, the
988 -- target of the assignment or initialization is used to generate the
989 -- left-hand side of individual assignment to each sub-component.
991 -- First_Inlined_Subprogram (Node3-Sem)
992 -- Present in the N_Compilation_Unit node for the main program. Points to
993 -- a chain of entities for subprograms that are to be inlined. The
994 -- Next_Inlined_Subprogram field of these entities is used as a link
995 -- pointer with Empty marking the end of the list. This field is Empty if
996 -- there are no inlined subprograms or inlining is not active.
998 -- First_Named_Actual (Node4-Sem)
999 -- Present in procedure call statement and function call nodes, and also
1000 -- in Intrinsic nodes. Set during semantic analysis to point to the first
1001 -- named parameter where parameters are ordered by declaration order (as
1002 -- opposed to the actual order in the call which may be different due to
1003 -- named associations). Note: this field points to the explicit actual
1004 -- parameter itself, not the N_Parameter_Association node (its parent).
1006 -- First_Real_Statement (Node2-Sem)
1007 -- Present in N_Handled_Sequence_Of_Statements node. Normally set to
1008 -- Empty. Used only when declarations are moved into the statement part
1009 -- of a construct as a result of wrapping an AT END handler that is
1010 -- required to cover the declarations. In this case, this field is used
1011 -- to remember the location in the statements list of the first real
1012 -- statement, i.e. the statement that used to be first in the statement
1013 -- list before the declarations were prepended.
1015 -- First_Subtype_Link (Node5-Sem)
1016 -- Present in N_Freeze_Entity node for an anonymous base type that is
1017 -- implicitly created by the declaration of a first subtype. It points to
1018 -- the entity for the first subtype.
1020 -- Float_Truncate (Flag11-Sem)
1021 -- A flag present in type conversion nodes. This is used for float to
1022 -- integer conversions where truncation is required rather than rounding.
1023 -- Note that Gigi does not handle type conversions from real to integer
1024 -- with rounding (see Expand_N_Type_Conversion).
1026 -- Forwards_OK (Flag5-Sem)
1027 -- A flag present in the N_Assignment_Statement node. It is used only if
1028 -- the type being assigned is an array type, and is set if analysis
1029 -- determines that it is definitely safe to do the copy forwards, i.e.
1030 -- starting at the lowest addressed element. Note that if neither of the
1031 -- flags Forwards_OK or Backwards_OK is set, it means that the front end
1032 -- could not determine that either direction is definitely safe, and a
1033 -- runtime check is required.
1035 -- From_At_End (Flag4-Sem)
1036 -- This flag is set on an N_Raise_Statement node if it corresponds to
1037 -- the reraise statement generated as the last statement of an AT END
1038 -- handler when SJLJ exception handling is active. It is used to stop
1039 -- a bogus violation of restriction (No_Exception_Propagation), bogus
1040 -- because if the restriction is set, the reraise is not generated.
1042 -- From_At_Mod (Flag4-Sem)
1043 -- This flag is set on the attribute definition clause node that is
1044 -- generated by a transformation of an at mod phrase in a record
1045 -- representation clause. This is used to give slightly different (Ada 83
1046 -- compatible) semantics to such a clause, namely it is used to specify a
1047 -- minimum acceptable alignment for the base type and all subtypes. In
1048 -- Ada 95 terms, the actual alignment of the base type and all subtypes
1049 -- must be a multiple of the given value, and the representation clause
1050 -- is considered to be type specific instead of subtype specific.
1052 -- From_Default (Flag6-Sem)
1053 -- This flag is set on the subprogram renaming declaration created in an
1054 -- instance for a formal subprogram, when the formal is declared with a
1055 -- box, and there is no explicit actual. If the flag is present, the
1056 -- declaration is treated as an implicit reference to the formal in the
1059 -- Generic_Parent (Node5-Sem)
1060 -- Generic_Parent is defined on declaration nodes that are instances. The
1061 -- value of Generic_Parent is the generic entity from which the instance
1062 -- is obtained. Generic_Parent is also defined for the renaming
1063 -- declarations and object declarations created for the actuals in an
1064 -- instantiation. The generic parent of such a declaration is the
1065 -- corresponding generic association in the Instantiation node.
1067 -- Generic_Parent_Type (Node4-Sem)
1068 -- Generic_Parent_Type is defined on Subtype_Declaration nodes for the
1069 -- actuals of formal private and derived types. Within the instance, the
1070 -- operations on the actual are those inherited from the parent. For a
1071 -- formal private type, the parent type is the generic type itself. The
1072 -- Generic_Parent_Type is also used in an instance to determine whether a
1073 -- private operation overrides an inherited one.
1075 -- Handler_List_Entry (Node2-Sem)
1076 -- This field is present in N_Object_Declaration nodes. It is set only
1077 -- for the Handler_Record entry generated for an exception in zero cost
1078 -- exception handling mode. It references the corresponding item in the
1079 -- handler list, and is used to delete this entry if the corresponding
1080 -- handler is deleted during optimization. For further details on why
1081 -- this is required, see Exp_Ch11.Remove_Handler_Entries.
1083 -- Has_No_Elaboration_Code (Flag17-Sem)
1084 -- A flag that appears in the N_Compilation_Unit node to indicate whether
1085 -- or not elaboration code is present for this unit. It is initially set
1086 -- true for subprogram specs and bodies and for all generic units and
1087 -- false for non-generic package specs and bodies. Gigi may set the flag
1088 -- in the non-generic package case if it determines that no elaboration
1089 -- code is generated. Note that this flag is not related to the
1090 -- Is_Preelaborated status, there can be preelaborated packages that
1091 -- generate elaboration code, and non-preelaborated packages which do
1092 -- not generate elaboration code.
1094 -- Has_Priority_Pragma (Flag6-Sem)
1095 -- A flag present in N_Subprogram_Body, N_Task_Definition and
1096 -- N_Protected_Definition nodes to flag the presence of either a Priority
1097 -- or Interrupt_Priority pragma in the declaration sequence (public or
1098 -- private in the task and protected cases)
1100 -- Has_Private_View (Flag11-Sem)
1101 -- A flag present in generic nodes that have an entity, to indicate that
1102 -- the node has a private type. Used to exchange private and full
1103 -- declarations if the visibility at instantiation is different from the
1104 -- visibility at generic definition.
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.
1140 -- Includes_Infinities (Flag11-Sem)
1141 -- This flag is present in N_Range nodes. It is set for the range of
1142 -- unconstrained float types defined in Standard, which include not only
1143 -- the given range of values, but also legtitimately can include infinite
1144 -- values. This flag is false for any float type for which an explicit
1145 -- range is given by the programmer, even if that range is identical to
1146 -- the range for Float.
1148 -- Instance_Spec (Node5-Sem)
1149 -- This field is present in generic instantiation nodes, and also in
1150 -- formal package declaration nodes (formal package declarations are
1151 -- treated in a manner very similar to package instantiations). It points
1152 -- to the node for the spec of the instance, inserted as part of the
1153 -- semantic processing for instantiations in Sem_Ch12.
1155 -- Is_Asynchronous_Call_Block (Flag7-Sem)
1156 -- A flag set in a Block_Statement node to indicate that it is the
1157 -- expansion of an asynchronous entry call. Such a block needs cleanup
1158 -- handler to assure that the call is cancelled.
1160 -- Is_Component_Left_Opnd (Flag13-Sem)
1161 -- Is_Component_Right_Opnd (Flag14-Sem)
1162 -- Present in concatenation nodes, to indicate that the corresponding
1163 -- operand is of the component type of the result. Used in resolving
1164 -- concatenation nodes in instances.
1166 -- Is_Controlling_Actual (Flag16-Sem)
1167 -- This flag is set on in an expression that is a controlling argument in
1168 -- a dispatching call. It is off in all other cases. See Sem_Disp for
1169 -- details of its use.
1171 -- Is_Dynamic_Coextension (Flag18-Sem)
1172 -- Present in allocator nodes, to indicate that this is an allocator
1173 -- for an access discriminant of a dynamically allocated object. The
1174 -- coextension must be deallocated and finalized at the same time as
1175 -- the enclosing object.
1177 -- Is_Entry_Barrier_Function (Flag8-Sem)
1178 -- This flag is set in an N_Subprogram_Body node which is the expansion
1179 -- of an entry barrier from a protected entry body. It is used for the
1180 -- circuitry checking for incorrect use of Current_Task.
1182 -- Is_Expanded_Build_In_Place_Call (Flag11-Sem)
1183 -- This flag is set in an N_Function_Call node to indicate that the extra
1184 -- actuals to support a build-in-place style of call have been added to
1187 -- Is_In_Discriminant_Check (Flag11-Sem)
1188 -- This flag is present in a selected component, and is used to indicate
1189 -- that the reference occurs within a discriminant check. The
1190 -- significance is that optimizations based on assuming that the
1191 -- discriminant check has a correct value cannot be performed in this
1192 -- case (or the disriminant check may be optimized away!)
1194 -- Is_Machine_Number (Flag11-Sem)
1195 -- This flag is set in an N_Real_Literal node to indicate that the value
1196 -- is a machine number. This avoids some unnecessary cases of converting
1197 -- real literals to machine numbers.
1199 -- Is_Null_Loop (Flag16-Sem)
1200 -- This flag is set in an N_Loop_Statement node if the corresponding loop
1201 -- can be determined to be null at compile time. This is used to suppress
1202 -- any warnings that would otherwise be issued inside the loop since they
1203 -- are probably not useful.
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 forma 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 -- implemenation 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_Unactivted_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_Rep_Item (Node5-Sem)
1369 -- Present in pragma nodes and attribute definition nodes. Used to link
1370 -- representation items that apply to an entity. See description of
1371 -- First_Rep_Item field in Einfo for full details.
1373 -- Next_Use_Clause (Node3-Sem)
1374 -- While use clauses are active during semantic processing, they are
1375 -- chained from the scope stack entry, using Next_Use_Clause as a link
1376 -- pointer, with Empty marking the end of the list. The head pointer is
1377 -- in the scope stack entry (First_Use_Clause). At the end of semantic
1378 -- processing (i.e. when Gigi sees the tree, the contents of this field
1379 -- is undefined and should not be read).
1381 -- No_Ctrl_Actions (Flag7-Sem)
1382 -- Present in N_Assignment_Statement to indicate that no finalize nor nor
1383 -- adjust should take place on this assignment eventhough the rhs is
1384 -- controlled. This is used in init procs and aggregate expansions where
1385 -- the generated assignments are more initialisations than real
1388 -- No_Elaboration_Check (Flag14-Sem)
1389 -- Present in N_Function_Call and N_Procedure_Call_Statement. Indicates
1390 -- that no elaboration check is needed on the call, because it appears in
1391 -- the context of a local Suppress pragma. This is used on calls within
1392 -- task bodies, where the actual elaboration checks are applied after
1393 -- analysis, when the local scope stack is not present.
1395 -- No_Entities_Ref_In_Spec (Flag8-Sem)
1396 -- Present in N_With_Clause nodes. Set if the with clause is on the
1397 -- package or subprogram spec where the main unit is the corresponding
1398 -- body, and no entities of the with'ed unit are referenced by the spec
1399 -- (an entity may still be referenced in the body, so this flag is used
1400 -- to generate the proper message (see Sem_Util.Check_Unused_Withs for
1403 -- No_Initialization (Flag13-Sem)
1404 -- Present in N_Object_Declaration & N_Allocator to indicate that the
1405 -- object must not be initialized (by Initialize or call to an init
1406 -- proc). This is needed for controlled aggregates. When the Object
1407 -- declaration has an expression, this flag means that this expression
1408 -- should not be taken into account (needed for in place initialization
1411 -- No_Truncation (Flag17-Sem)
1412 -- Present in N_Unchecked_Type_Conversion node. This flag has an effect
1413 -- only if the RM_Size of the source is greater than the RM_Size of the
1414 -- target for scalar operands. Normally in such a case we truncate some
1415 -- higher order bits of the source, and then sign/zero extend the result
1416 -- to form the output value. But if this flag is set, then we do not do
1417 -- any truncation, so for example, if an 8 bit input is converted to 5
1418 -- bit result which is in fact stored in 8 bits, then the high order
1419 -- three bits of the target result will be copied from the source. This
1420 -- is used for properly setting out of range values for use by pragmas
1421 -- Initialize_Scalars and Normalize_Scalars.
1423 -- Original_Discriminant (Node2-Sem)
1424 -- Present in identifiers. Used in references to discriminants that
1425 -- appear in generic units. Because the names of the discriminants may be
1426 -- different in an instance, we use this field to recover the position of
1427 -- the discriminant in the original type, and replace it with the
1428 -- discriminant at the same position in the instantiated type.
1430 -- Original_Entity (Node2-Sem)
1431 -- Present in numeric literals. Used to denote the named number that has
1432 -- been constant-folded into the given literal. If literal is from
1433 -- source, or the result of some other constant-folding operation, then
1434 -- Original_Entity is empty. This field is needed to handle properly
1435 -- named numbers in generic units, where the Associated_Node field
1436 -- interferes with the Entity field, making it impossible to preserve the
1437 -- original entity at the point of instantiation (ASIS problem).
1439 -- Others_Discrete_Choices (List1-Sem)
1440 -- When a case statement or variant is analyzed, the semantic checks
1441 -- determine the actual list of choices that correspond to an others
1442 -- choice. This list is materialized for later use by the expander and
1443 -- the Others_Discrete_Choices field of an N_Others_Choice node points to
1444 -- this materialized list of choices, which is in standard format for a
1445 -- list of discrete choices, except that of course it cannot contain an
1446 -- N_Others_Choice entry.
1448 -- Parameter_List_Truncated (Flag17-Sem)
1449 -- Present in N_Function_Call and N_Procedure_Call_Statement nodes. Set
1450 -- (for OpenVMS ports of GNAT only) if the parameter list is truncated as
1451 -- a result of a First_Optional_Parameter specification in an
1452 -- Import_Function, Import_Procedure, or Import_Valued_Procedure pragma.
1453 -- The truncation is done by the expander by removing trailing parameters
1454 -- from the argument list, in accordance with the set of rules allowing
1455 -- such parameter removal. In particular, parameters can be removed
1456 -- working from the end of the parameter list backwards up to and
1457 -- including the entry designated by First_Optional_Parameter in the
1458 -- Import pragma. Parameters can be removed if they are implicit and the
1459 -- default value is a known-at-compile-time value, including the use of
1460 -- the Null_Parameter attribute, or if explicit parameter values are
1461 -- present that match the corresponding defaults.
1463 -- Parent_Spec (Node4-Sem)
1464 -- For a library unit that is a child unit spec (package or subprogram
1465 -- declaration, generic declaration or instantiation, or library level
1466 -- rename, this field points to the compilation unit node for the parent
1467 -- package specification. This field is Empty for library bodies (the
1468 -- parent spec in this case can be found from the corresponding spec).
1470 -- Present_Expr (Uint3-Sem)
1471 -- Present in an N_Variant node. This has a meaningful value only after
1472 -- Gigi has back annotated the tree with representation information. At
1473 -- this point, it contains a reference to a gcc expression that depends
1474 -- on the values of one or more discriminants. Give a set of discriminant
1475 -- values, this expression evaluates to False (zero) if variant is not
1476 -- present, and True (non-zero) if it is present. See unit Repinfo for
1477 -- further details on gigi back annotation. This field is used during
1478 -- ASIS processing (data decomposition annex) to determine if a field is
1481 -- Print_In_Hex (Flag13-Sem)
1482 -- Set on an N_Integer_Literal node to indicate that the value should be
1483 -- printed in hexadecimal in the sprint listing. Has no effect on
1484 -- legality or semantics of program, only on the displayed output. This
1485 -- is used to clarify output from the packed array cases.
1487 -- Procedure_To_Call (Node2-Sem)
1488 -- Present in N_Allocator, N_Free_Statement, N_Simple_Return_Statement,
1489 -- and N_Extended_Return_Statement nodes. References the entity for the
1490 -- declaration of the procedure to be called to accomplish the required
1491 -- operation (i.e. for the Allocate procedure in the case of N_Allocator
1492 -- and N_Simple_Return_Statement and N_Extended_Return_Statement (for
1493 -- allocating the return value), and for the Deallocate procedure in the
1494 -- case of N_Free_Statement.
1496 -- Raises_Constraint_Error (Flag7-Sem)
1497 -- Set on an expression whose evaluation will definitely fail constraint
1498 -- error check. In the case of static expressions, this flag must be set
1499 -- accurately (and if it is set, the expression is typically illegal
1500 -- unless it appears as a non-elaborated branch of a short-circuit form).
1501 -- For a non-static expression, this flag may be set whenever an
1502 -- expression (e.g. an aggregate) is known to raise constraint error. If
1503 -- set, the expression definitely will raise CE if elaborated at runtime.
1504 -- If not set, the expression may or may not raise CE. In other words, on
1505 -- static expressions, the flag is set accurately, on non-static
1506 -- expressions it is set conservatively.
1508 -- Redundant_Use (Flag13-Sem)
1509 -- Present in nodes that can appear as an operand in a use clause or use
1510 -- type clause (identifiers, expanded names, attribute references). Set
1511 -- to indicate that a use is redundant (and therefore need not be undone
1514 -- Renaming_Exception (Node2-Sem)
1515 -- Present in N_Exception_Declaration node. Used to point back to the
1516 -- exception renaming for an exception declared within a subprogram.
1517 -- What happens is that an exception declared in a subprogram is moved
1518 -- to the library level with a unique name, and the original exception
1519 -- becomes a renaming. This link from the library level exception to the
1520 -- renaming declaration allows registering of the proper exception name.
1522 -- Return_Statement_Entity (Node5-Sem)
1523 -- Present in N_Simple_Return_Statement and N_Extended_Return_Statement.
1524 -- Points to an E_Return_Statement representing the return statement.
1526 -- Return_Object_Declarations (List3)
1527 -- Present in N_Extended_Return_Statement.
1528 -- Points to a list initially containing a single
1529 -- N_Object_Declaration representing the return object.
1530 -- We use a list (instead of just a pointer to the object decl)
1531 -- because Analyze wants to insert extra actions on this list.
1533 -- Rounded_Result (Flag18-Sem)
1534 -- Present in N_Type_Conversion, N_Op_Divide and N_Op_Multiply nodes.
1535 -- Used in the fixed-point cases to indicate that the result must be
1536 -- rounded as a result of the use of the 'Round attribute. Also used for
1537 -- integer N_Op_Divide nodes to indicate that the result should be
1538 -- rounded to the nearest integer (breaking ties away from zero), rather
1539 -- than truncated towards zero as usual. These rounded integer operations
1540 -- are the result of expansion of rounded fixed-point divide, conversion
1541 -- and multiplication operations.
1543 -- Scope (Node3-Sem)
1544 -- Present in defining identifiers, defining character literals and
1545 -- defining operator symbols (i.e. in all entities). The entities of a
1546 -- scope all use this field to reference the corresponding scope entity.
1547 -- See Einfo for further details.
1549 -- Shift_Count_OK (Flag4-Sem)
1550 -- A flag present in shift nodes to indicate that the shift count is
1551 -- known to be in range, i.e. is in the range from zero to word length
1552 -- minus one. If this flag is not set, then the shift count may be
1553 -- outside this range, i.e. larger than the word length, and the code
1554 -- must ensure that such shift counts give the appropriate result.
1556 -- Source_Type (Node1-Sem)
1557 -- Used in an N_Validate_Unchecked_Conversion node to point to the
1558 -- source type entity for the unchecked conversion instantiation
1559 -- which gigi must do size validation for.
1561 -- Static_Processing_OK (Flag4-Sem)
1562 -- Present in N_Aggregate nodes. When the Compile_Time_Known_Aggregate
1563 -- flag is set, the full value of the aggregate can be determined at
1564 -- compile time and the aggregate can be passed as is to the back-end.
1565 -- In this event it is irrelevant whether this flag is set or not.
1566 -- However, if the flag Compile_Time_Known_Aggregate is not set but
1567 -- Static_Processing_OK is set, the aggregate can (but need not) be
1568 -- converted into a compile time known aggregate by the expander. See
1569 -- Sem_Aggr for the specific conditions under which an aggregate has its
1570 -- Static_Processing_OK flag set.
1572 -- Storage_Pool (Node1-Sem)
1573 -- Present in N_Allocator, N_Free_Statement, N_Simple_Return_Statement,
1574 -- and N_Extended_Return_Statement nodes. References the entity for the
1575 -- storage pool to be used for the allocate or free call or for the
1576 -- allocation of the returned value from function. Empty indicates that
1577 -- the global default default pool is to be used. Note that in the case
1578 -- of a return statement, this field is set only if the function returns
1579 -- value of a type whose size is not known at compile time on the
1582 -- Target_Type (Node2-Sem)
1583 -- Used in an N_Validate_Unchecked_Conversion node to point to the target
1584 -- type entity for the unchecked conversion instantiation which gigi must
1585 -- do size validation for.
1587 -- Then_Actions (List3-Sem)
1588 -- This field is present in conditional expression nodes. During code
1589 -- expansion we use the Insert_Actions procedure (in Exp_Util) to insert
1590 -- actions at an appropriate place in the tree to get elaborated at the
1591 -- right time. For conditional expressions, we have to be sure that the
1592 -- actions for the Then branch are only elaborated if the condition is
1593 -- True. The Then_Actions field is used as a temporary parking place for
1594 -- these actions. The final tree is always rewritten to eliminate the
1595 -- need for this field, so in the tree passed to Gigi, this field is
1596 -- always set to No_List.
1598 -- Treat_Fixed_As_Integer (Flag14-Sem)
1599 -- This flag appears in operator nodes for divide, multiply, mod and rem
1600 -- on fixed-point operands. It indicates that the operands are to be
1601 -- treated as integer values, ignoring small values. This flag is only
1602 -- set as a result of expansion of fixed-point operations. Typically a
1603 -- fixed-point multplication in the source generates subsidiary
1604 -- multiplication and division operations that work with the underlying
1605 -- integer values and have this flag set. Note that this flag is not
1606 -- needed on other arithmetic operations (add, neg, subtract etc) since
1607 -- in these cases it is always the case that fixed is treated as integer.
1608 -- The Etype field MUST be set if this flag is set. The analyzer knows to
1609 -- leave such nodes alone, and whoever makes them must set the correct
1612 -- TSS_Elist (Elist3-Sem)
1613 -- Present in N_Freeze_Entity nodes. Holds an element list containing
1614 -- entries for each TSS (type support subprogram) associated with the
1615 -- frozen type. The elements of the list are the entities for the
1616 -- subprograms (see package Exp_TSS for further details). Set to No_Elist
1617 -- if there are no type support subprograms for the type or if the freeze
1618 -- node is not for a type.
1620 -- Unreferenced_In_Spec (Flag7-Sem)
1621 -- Present in N_With_Clause nodes. Set if the with clause is on the
1622 -- package or subprogram spec where the main unit is the corresponding
1623 -- body, and is not referenced by the spec (it may still be referenced by
1624 -- the body, so this flag is used to generate the proper message (see
1625 -- Sem_Util.Check_Unused_Withs for details)
1627 -- Was_Originally_Stub (Flag13-Sem)
1628 -- This flag is set in the node for a proper body that replaces stub.
1629 -- During the analysis procedure, stubs in some situations get rewritten
1630 -- by the corresponding bodies, and we set this flag to remember that
1631 -- this happened. Note that it is not good enough to rely on the use of
1632 -- Original_Node here because of the case of nested instantiations where
1633 -- the substituted node can be copied.
1635 -- Zero_Cost_Handling (Flag5-Sem)
1636 -- This flag is set in all handled sequence of statement and exception
1637 -- handler nodes if eceptions are to be handled using the zero-cost
1638 -- mechanism (see Ada.Exceptions and System.Exceptions in files
1639 -- a-except.ads/adb and s-except.ads for full details). What gigi needs
1640 -- to do for such a handler is simply to put the code in the handler
1641 -- somewhere. The front end has generated all necessary labels.
1643 --------------------------------------------------
1644 -- Note on Use of End_Label and End_Span Fields --
1645 --------------------------------------------------
1647 -- Several constructs have end lines:
1649 -- Loop Statement end loop [loop_IDENTIFIER];
1650 -- Package Specification end [[PARENT_UNIT_NAME .] IDENTIFIER]
1651 -- Task Definition end [task_IDENTIFIER]
1652 -- Protected Definition end [protected_IDENTIFIER]
1653 -- Protected Body end [protected_IDENTIFIER]
1655 -- Block Statement end [block_IDENTIFIER];
1656 -- Subprogram Body end [DESIGNATOR];
1657 -- Package Body end [[PARENT_UNIT_NAME .] IDENTIFIER];
1658 -- Task Body end [task_IDENTIFIER];
1659 -- Accept Statement end [entry_IDENTIFIER]];
1660 -- Entry Body end [entry_IDENTIFIER];
1662 -- If Statement end if;
1663 -- Case Statement end case;
1665 -- Record Definition end record;
1666 -- Enumeration Definition );
1668 -- The End_Label and End_Span fields are used to mark the locations of
1669 -- these lines, and also keep track of the label in the case where a label
1672 -- For the first group above, the End_Label field of the corresponding node
1673 -- is used to point to the label identifier. In the case where there is no
1674 -- label in the source, the parser supplies a dummy identifier (with
1675 -- Comes_From_Source set to False), and the Sloc of this dummy identifier
1676 -- marks the location of the token following the END token.
1678 -- For the second group, the use of End_Label is similar, but the End_Label
1679 -- is found in the N_Handled_Sequence_Of_Statements node. This is done
1680 -- simply because in some cases there is no room in the parent node.
1682 -- For the third group, there is never any label, and instead of using
1683 -- End_Label, we use the End_Span field which gives the location of the
1684 -- token following END, relative to the starting Sloc of the construct,
1685 -- i.e. add Sloc (Node) + End_Span (Node) to get the Sloc of the IF or CASE
1686 -- following the End_Label.
1688 -- The record definition case is handled specially, we treat it as though
1689 -- it required an optional label which is never present, and so the parser
1690 -- always builds a dummy identifier with Comes From Source set False. The
1691 -- reason we do this, rather than using End_Span in this case, is that we
1692 -- want to generate a cross-ref entry for the end of a record, since it
1693 -- represents a scope for name declaration purposes.
1695 -- The enumeration definition case is handled in an exactly similar manner,
1696 -- building a dummy identifier to get a cross-reference.
1698 -- Note: the reason we store the difference as a Uint, instead of storing
1699 -- the Source_Ptr value directly, is that Source_Ptr values cannot be
1700 -- distinguished from other types of values, and we count on all general
1701 -- use fields being self describing. To make things easier for clients,
1702 -- note that we provide function End_Location, and procedure
1703 -- Set_End_Location to allow access to the logical value (which is the
1704 -- Source_Ptr value for the end token).
1706 ---------------------
1707 -- Syntactic Nodes --
1708 ---------------------
1710 ---------------------
1711 -- 2.3 Identifier --
1712 ---------------------
1714 -- IDENTIFIER ::= IDENTIFIER_LETTER {[UNDERLINE] LETTER_OR_DIGIT}
1715 -- LETTER_OR_DIGIT ::= IDENTIFIER_LETTER | DIGIT
1717 -- An IDENTIFIER shall not be a reserved word
1719 -- In the Ada grammar identifiers are the bottom level tokens which have
1720 -- very few semantics. Actual program identifiers are direct names. If
1721 -- we were being 100% honest with the grammar, then we would have a node
1722 -- called N_Direct_Name which would point to an identifier. However,
1723 -- that's too many extra nodes, so we just use the N_Identifier node
1724 -- directly as a direct name, and it contains the expression fields and
1725 -- Entity field that correspond to its use as a direct name. In those
1726 -- few cases where identifiers appear in contexts where they are not
1727 -- direct names (pragmas, pragma argument associations, attribute
1728 -- references and attribute definition clauses), the Chars field of the
1729 -- node contains the Name_Id for the identifier name.
1731 -- Note: in GNAT, a reserved word can be treated as an identifier in two
1732 -- cases. First, an incorrect use of a reserved word as an identifier is
1733 -- diagnosed and then treated as a normal identifier. Second, an
1734 -- attribute designator of the form of a reserved word (access, delta,
1735 -- digits, range) is treated as an identifier.
1737 -- Note: The set of letters that is permitted in an identifier depends
1738 -- on the character set in use. See package Csets for full details.
1741 -- Sloc points to identifier
1742 -- Chars (Name1) contains the Name_Id for the identifier
1743 -- Entity (Node4-Sem)
1744 -- Associated_Node (Node4-Sem)
1745 -- Original_Discriminant (Node2-Sem)
1746 -- Redundant_Use (Flag13-Sem)
1747 -- Has_Private_View (Flag11-Sem) (set in generic units)
1748 -- plus fields for expression
1750 --------------------------
1751 -- 2.4 Numeric Literal --
1752 --------------------------
1754 -- NUMERIC_LITERAL ::= DECIMAL_LITERAL | BASED_LITERAL
1756 ----------------------------
1757 -- 2.4.1 Decimal Literal --
1758 ----------------------------
1760 -- DECIMAL_LITERAL ::= NUMERAL [.NUMERAL] [EXPONENT]
1762 -- NUMERAL ::= DIGIT {[UNDERLINE] DIGIT}
1764 -- EXPONENT ::= E [+] NUMERAL | E - NUMERAL
1766 -- Decimal literals appear in the tree as either integer literal nodes
1767 -- or real literal nodes, depending on whether a period is present.
1769 -- Note: literal nodes appear as a result of direct use of literals
1770 -- in the source program, and also as the result of evaluating
1771 -- expressions at compile time. In the latter case, it is possible
1772 -- to construct real literals that have no syntactic representation
1773 -- using the standard literal format. Such literals are listed by
1774 -- Sprint using the notation [numerator / denominator].
1776 -- Note: the value of an integer literal node created by the front end
1777 -- is never outside the range of values of the base type. However, it
1778 -- can be the case that the value is outside the range of the
1779 -- particular subtype. This happens in the case of integer overflows
1780 -- with checks suppressed.
1782 -- N_Integer_Literal
1783 -- Sloc points to literal
1784 -- Original_Entity (Node2-Sem) If not Empty, holds Named_Number that
1785 -- has been constant-folded into its literal value.
1786 -- Intval (Uint3) contains integer value of literal
1787 -- plus fields for expression
1788 -- Print_In_Hex (Flag13-Sem)
1791 -- Sloc points to literal
1792 -- Original_Entity (Node2-Sem) If not Empty, holds Named_Number that
1793 -- has been constant-folded into its literal value.
1794 -- Realval (Ureal3) contains real value of literal
1795 -- Corresponding_Integer_Value (Uint4-Sem)
1796 -- Is_Machine_Number (Flag11-Sem)
1797 -- plus fields for expression
1799 --------------------------
1800 -- 2.4.2 Based Literal --
1801 --------------------------
1803 -- BASED_LITERAL ::=
1804 -- BASE # BASED_NUMERAL [.BASED_NUMERAL] # [EXPONENT]
1808 -- BASED_NUMERAL ::=
1809 -- EXTENDED_DIGIT {[UNDERLINE] EXTENDED_DIGIT}
1811 -- EXTENDED_DIGIT ::= DIGIT | A | B | C | D | E | F
1813 -- Based literals appear in the tree as either integer literal nodes
1814 -- or real literal nodes, depending on whether a period is present.
1816 ----------------------------
1817 -- 2.5 Character Literal --
1818 ----------------------------
1820 -- CHARACTER_LITERAL ::= ' GRAPHIC_CHARACTER '
1822 -- N_Character_Literal
1823 -- Sloc points to literal
1824 -- Chars (Name1) contains the Name_Id for the identifier
1825 -- Char_Literal_Value (Uint2) contains the literal value
1826 -- Entity (Node4-Sem)
1827 -- Associated_Node (Node4-Sem)
1828 -- Has_Private_View (Flag11-Sem) set in generic units.
1829 -- plus fields for expression
1831 -- Note: the Entity field will be missing (set to Empty) for character
1832 -- literals whose type is Standard.Wide_Character or Standard.Character
1833 -- or a type derived from one of these two. In this case the character
1834 -- literal stands for its own coding. The reason we take this irregular
1835 -- short cut is to avoid the need to build lots of junk defining
1836 -- character literal nodes.
1838 -------------------------
1839 -- 2.6 String Literal --
1840 -------------------------
1842 -- STRING LITERAL ::= "{STRING_ELEMENT}"
1844 -- A STRING_ELEMENT is either a pair of quotation marks ("), or a
1845 -- single GRAPHIC_CHARACTER other than a quotation mark.
1847 -- Is_Folded_In_Parser is True if the parser created this literal by
1848 -- folding a sequence of "&" operators. For example, if the source code
1849 -- says "aaa" & "bbb" & "ccc", and this produces "aaabbbccc", the flag
1850 -- is set. This flag is needed because the parser doesn't know about
1851 -- visibility, so the folded result might be wrong, and semantic
1852 -- analysis needs to check for that.
1855 -- Sloc points to literal
1856 -- Strval (Str3) contains Id of string value
1857 -- Has_Wide_Character (Flag11-Sem)
1858 -- Is_Folded_In_Parser (Flag4)
1859 -- plus fields for expression
1865 -- A COMMENT starts with two adjacent hyphens and extends up to the
1866 -- end of the line. A COMMENT may appear on any line of a program.
1868 -- Comments are skipped by the scanner and do not appear in the tree.
1869 -- It is possible to reconstruct the position of comments with respect
1870 -- to the elements of the tree by using the source position (Sloc)
1871 -- pointers that appear in every tree node.
1877 -- PRAGMA ::= pragma IDENTIFIER
1878 -- [(PRAGMA_ARGUMENT_ASSOCIATION {, PRAGMA_ARGUMENT_ASSOCIATION})];
1880 -- Note that a pragma may appear in the tree anywhere a declaration
1881 -- or a statement may appear, as well as in some other situations
1882 -- which are explicitly documented.
1885 -- Sloc points to pragma identifier
1886 -- Pragma_Argument_Associations (List2) (set to No_List if none)
1887 -- Debug_Statement (Node3) (set to Empty if not Debug, Assert)
1888 -- Pragma_Identifier (Node4)
1889 -- Next_Rep_Item (Node5-Sem)
1891 -- Note: we should have a section on what pragmas are passed on to
1892 -- the back end to be processed. This section should note that pragma
1893 -- Psect_Object is always converted to Common_Object, but there are
1894 -- undoubtedly many other similar notes required ???
1896 -- Note: a utility function Pragma_Name may be applied to pragma nodes
1897 -- to conveniently obtain the Chars field of the Pragma_Identifier.
1899 --------------------------------------
1900 -- 2.8 Pragma Argument Association --
1901 --------------------------------------
1903 -- PRAGMA_ARGUMENT_ASSOCIATION ::=
1904 -- [pragma_argument_IDENTIFIER =>] NAME
1905 -- | [pragma_argument_IDENTIFIER =>] EXPRESSION
1907 -- N_Pragma_Argument_Association
1908 -- Sloc points to first token in association
1909 -- Chars (Name1) (set to No_Name if no pragma argument identifier)
1910 -- Expression (Node3)
1912 ------------------------
1913 -- 2.9 Reserved Word --
1914 ------------------------
1916 -- Reserved words are parsed by the scanner, and returned as the
1917 -- corresponding token types (e.g. PACKAGE is returned as Tok_Package)
1919 ----------------------------
1920 -- 3.1 Basic Declaration --
1921 ----------------------------
1923 -- BASIC_DECLARATION ::=
1924 -- TYPE_DECLARATION | SUBTYPE_DECLARATION
1925 -- | OBJECT_DECLARATION | NUMBER_DECLARATION
1926 -- | SUBPROGRAM_DECLARATION | ABSTRACT_SUBPROGRAM_DECLARATION
1927 -- | PACKAGE_DECLARATION | RENAMING_DECLARATION
1928 -- | EXCEPTION_DECLARATION | GENERIC_DECLARATION
1929 -- | GENERIC_INSTANTIATION
1931 -- Basic declaration also includes IMPLICIT_LABEL_DECLARATION
1932 -- see further description in section on semantic nodes.
1934 -- Also, in the tree that is constructed, a pragma may appear
1935 -- anywhere that a declaration may appear.
1937 ------------------------------
1938 -- 3.1 Defining Identifier --
1939 ------------------------------
1941 -- DEFINING_IDENTIFIER ::= IDENTIFIER
1943 -- A defining identifier is an entity, which has additional fields
1944 -- depending on the setting of the Ekind field. These additional
1945 -- fields are defined (and access subprograms declared) in package
1948 -- Note: N_Defining_Identifier is an extended node whose fields are
1949 -- deliberate layed out to match the layout of fields in an ordinary
1950 -- N_Identifier node allowing for easy alteration of an identifier
1951 -- node into a defining identifier node. For details, see procedure
1952 -- Sinfo.CN.Change_Identifier_To_Defining_Identifier.
1954 -- N_Defining_Identifier
1955 -- Sloc points to identifier
1956 -- Chars (Name1) contains the Name_Id for the identifier
1957 -- Next_Entity (Node2-Sem)
1958 -- Scope (Node3-Sem)
1959 -- Etype (Node5-Sem)
1961 -----------------------------
1962 -- 3.2.1 Type Declaration --
1963 -----------------------------
1965 -- TYPE_DECLARATION ::=
1966 -- FULL_TYPE_DECLARATION
1967 -- | INCOMPLETE_TYPE_DECLARATION
1968 -- | PRIVATE_TYPE_DECLARATION
1969 -- | PRIVATE_EXTENSION_DECLARATION
1971 ----------------------------------
1972 -- 3.2.1 Full Type Declaration --
1973 ----------------------------------
1975 -- FULL_TYPE_DECLARATION ::=
1976 -- type DEFINING_IDENTIFIER [KNOWN_DISCRIMINANT_PART]
1977 -- is TYPE_DEFINITION;
1978 -- | TASK_TYPE_DECLARATION
1979 -- | PROTECTED_TYPE_DECLARATION
1981 -- The full type declaration node is used only for the first case. The
1982 -- second case (concurrent type declaration), is represented directly
1983 -- by a task type declaration or a protected type declaration.
1985 -- N_Full_Type_Declaration
1986 -- Sloc points to TYPE
1987 -- Defining_Identifier (Node1)
1988 -- Discriminant_Specifications (List4) (set to No_List if none)
1989 -- Type_Definition (Node3)
1990 -- Discr_Check_Funcs_Built (Flag11-Sem)
1992 ----------------------------
1993 -- 3.2.1 Type Definition --
1994 ----------------------------
1996 -- TYPE_DEFINITION ::=
1997 -- ENUMERATION_TYPE_DEFINITION | INTEGER_TYPE_DEFINITION
1998 -- | REAL_TYPE_DEFINITION | ARRAY_TYPE_DEFINITION
1999 -- | RECORD_TYPE_DEFINITION | ACCESS_TYPE_DEFINITION
2000 -- | DERIVED_TYPE_DEFINITION | INTERFACE_TYPE_DEFINITION
2002 --------------------------------
2003 -- 3.2.2 Subtype Declaration --
2004 --------------------------------
2006 -- SUBTYPE_DECLARATION ::=
2007 -- subtype DEFINING_IDENTIFIER is [NULL_EXCLUSION] SUBTYPE_INDICATION;
2009 -- The subtype indication field is set to Empty for subtypes
2010 -- declared in package Standard (Positive, Natural).
2012 -- N_Subtype_Declaration
2013 -- Sloc points to SUBTYPE
2014 -- Defining_Identifier (Node1)
2015 -- Null_Exclusion_Present (Flag11)
2016 -- Subtype_Indication (Node5)
2017 -- Generic_Parent_Type (Node4-Sem) (set for an actual derived type).
2018 -- Exception_Junk (Flag8-Sem)
2020 -------------------------------
2021 -- 3.2.2 Subtype Indication --
2022 -------------------------------
2024 -- SUBTYPE_INDICATION ::= SUBTYPE_MARK [CONSTRAINT]
2026 -- Note: if no constraint is present, the subtype indication appears
2027 -- directly in the tree as a subtype mark. The N_Subtype_Indication
2028 -- node is used only if a constraint is present.
2030 -- Note: [For Ada 2005 (AI-231)]: Because Ada 2005 extends this rule
2031 -- with the null-exclusion part (see AI-231), we had to introduce a new
2032 -- attribute in all the parents of subtype_indication nodes to indicate
2033 -- if the null-exclusion is present.
2035 -- Note: the reason that this node has expression fields is that a
2036 -- subtype indication can appear as an operand of a membership test.
2038 -- N_Subtype_Indication
2039 -- Sloc points to first token of subtype mark
2040 -- Subtype_Mark (Node4)
2041 -- Constraint (Node3)
2042 -- Etype (Node5-Sem)
2043 -- Must_Not_Freeze (Flag8-Sem)
2045 -- Note: Etype is a copy of the Etype field of the Subtype_Mark. The
2046 -- reason for this redundancy is so that in a list of array index types,
2047 -- the Etype can be uniformly accessed to determine the subscript type.
2048 -- This means that no Itype is constructed for the actual subtype that
2049 -- is created by the subtype indication. If such an Itype is required,
2050 -- it is constructed in the context in which the indication appears.
2052 -------------------------
2053 -- 3.2.2 Subtype Mark --
2054 -------------------------
2056 -- SUBTYPE_MARK ::= subtype_NAME
2058 -----------------------
2059 -- 3.2.2 Constraint --
2060 -----------------------
2062 -- CONSTRAINT ::= SCALAR_CONSTRAINT | COMPOSITE_CONSTRAINT
2064 ------------------------------
2065 -- 3.2.2 Scalar Constraint --
2066 ------------------------------
2068 -- SCALAR_CONSTRAINT ::=
2069 -- RANGE_CONSTRAINT | DIGITS_CONSTRAINT | DELTA_CONSTRAINT
2071 ---------------------------------
2072 -- 3.2.2 Composite Constraint --
2073 ---------------------------------
2075 -- COMPOSITE_CONSTRAINT ::=
2076 -- INDEX_CONSTRAINT | DISCRIMINANT_CONSTRAINT
2078 -------------------------------
2079 -- 3.3.1 Object Declaration --
2080 -------------------------------
2082 -- OBJECT_DECLARATION ::=
2083 -- DEFINING_IDENTIFIER_LIST : [aliased] [constant]
2084 -- [NULL_EXCLUSION] SUBTYPE_INDICATION [:= EXPRESSION];
2085 -- | DEFINING_IDENTIFIER_LIST : [aliased] [constant]
2086 -- ACCESS_DEFINITION [:= EXPRESSION];
2087 -- | DEFINING_IDENTIFIER_LIST : [aliased] [constant]
2088 -- ARRAY_TYPE_DEFINITION [:= EXPRESSION];
2089 -- | SINGLE_TASK_DECLARATION
2090 -- | SINGLE_PROTECTED_DECLARATION
2092 -- Note: aliased is not permitted in Ada 83 mode
2094 -- The N_Object_Declaration node is only for the first two cases.
2095 -- Single task declaration is handled by P_Task (9.1)
2096 -- Single protected declaration is handled by P_protected (9.5)
2098 -- Although the syntax allows multiple identifiers in the list, the
2099 -- semantics is as though successive declarations were given with
2100 -- identical type definition and expression components. To simplify
2101 -- semantic processing, the parser represents a multiple declaration
2102 -- case as a sequence of single declarations, using the More_Ids and
2103 -- Prev_Ids flags to preserve the original source form as described
2104 -- in the section on "Handling of Defining Identifier Lists".
2106 -- The flag Has_Init_Expression is set if an initializing expression
2107 -- is present. Normally it is set if and only if Expression contains
2108 -- a non-empty value, but there is an exception to this. When the
2109 -- initializing expression is an aggregate which requires explicit
2110 -- assignments, the Expression field gets set to Empty, but this flag
2111 -- is still set, so we don't forget we had an initializing expression.
2113 -- Note: if a range check is required for the initialization
2114 -- expression then the Do_Range_Check flag is set in the Expression,
2115 -- with the check being done against the type given by the object
2116 -- definition, which is also the Etype of the defining identifier.
2118 -- Note: the contents of the Expression field must be ignored (i.e.
2119 -- treated as though it were Empty) if No_Initialization is set True.
2121 -- Note: the back end places some restrictions on the form of the
2122 -- Expression field. If the object being declared is Atomic, then
2123 -- the Expression may not have the form of an aggregate (since this
2124 -- might cause the back end to generate separate assignments). It
2125 -- also cannot be a reference to an object marked as a true constant
2126 -- (Is_True_Constant flag set), where the object is itself initalized
2127 -- with an aggregate. If necessary the front end must generate an
2128 -- extra temporary (with Is_True_Constant set False), and initialize
2129 -- this temporary as required (the temporary itself is not atomic).
2131 -- Note: there is not node kind for object definition. Instead, the
2132 -- corresponding field holds a subtype indication, an array type
2133 -- definition, or (Ada 2005, AI-406) an access definition.
2135 -- N_Object_Declaration
2136 -- Sloc points to first identifier
2137 -- Defining_Identifier (Node1)
2138 -- Aliased_Present (Flag4) set if ALIASED appears
2139 -- Constant_Present (Flag17) set if CONSTANT appears
2140 -- Null_Exclusion_Present (Flag11)
2141 -- Object_Definition (Node4) subtype indic./array type def./ access def.
2142 -- Expression (Node3) (set to Empty if not present)
2143 -- Handler_List_Entry (Node2-Sem)
2144 -- Corresponding_Generic_Association (Node5-Sem)
2145 -- More_Ids (Flag5) (set to False if no more identifiers in list)
2146 -- Prev_Ids (Flag6) (set to False if no previous identifiers in list)
2147 -- No_Initialization (Flag13-Sem)
2148 -- Assignment_OK (Flag15-Sem)
2149 -- Exception_Junk (Flag8-Sem)
2150 -- Is_Subprogram_Descriptor (Flag16-Sem)
2151 -- Has_Init_Expression (Flag14)
2153 -------------------------------------
2154 -- 3.3.1 Defining Identifier List --
2155 -------------------------------------
2157 -- DEFINING_IDENTIFIER_LIST ::=
2158 -- DEFINING_IDENTIFIER {, DEFINING_IDENTIFIER}
2160 -------------------------------
2161 -- 3.3.2 Number Declaration --
2162 -------------------------------
2164 -- NUMBER_DECLARATION ::=
2165 -- DEFINING_IDENTIFIER_LIST : constant := static_EXPRESSION;
2167 -- Although the syntax allows multiple identifiers in the list, the
2168 -- semantics is as though successive declarations were given with
2169 -- identical expressions. To simplify semantic processing, the parser
2170 -- represents a multiple declaration case as a sequence of single
2171 -- declarations, using the More_Ids and Prev_Ids flags to preserve
2172 -- the original source form as described in the section on "Handling
2173 -- of Defining Identifier Lists".
2175 -- N_Number_Declaration
2176 -- Sloc points to first identifier
2177 -- Defining_Identifier (Node1)
2178 -- Expression (Node3)
2179 -- More_Ids (Flag5) (set to False if no more identifiers in list)
2180 -- Prev_Ids (Flag6) (set to False if no previous identifiers in list)
2182 ----------------------------------
2183 -- 3.4 Derived Type Definition --
2184 ----------------------------------
2186 -- DERIVED_TYPE_DEFINITION ::=
2187 -- [abstract] [limited] new [NULL_EXCLUSION] parent_SUBTYPE_INDICATION
2188 -- [[and INTERFACE_LIST] RECORD_EXTENSION_PART]
2190 -- Note: ABSTRACT, LIMITED and record extension part are not permitted
2193 -- Note: a record extension part is required if ABSTRACT is present
2195 -- N_Derived_Type_Definition
2196 -- Sloc points to NEW
2197 -- Abstract_Present (Flag4)
2198 -- Null_Exclusion_Present (Flag11) (set to False if not present)
2199 -- Subtype_Indication (Node5)
2200 -- Record_Extension_Part (Node3) (set to Empty if not present)
2201 -- Limited_Present (Flag17)
2202 -- Task_Present (Flag5) set in task interfaces
2203 -- Protected_Present (Flag6) set in protected interfaces
2204 -- Synchronized_Present (Flag7) set in interfaces
2205 -- Interface_List (List2) (set to No_List if none)
2206 -- Interface_Present (Flag16) set in abstract interfaces
2208 -- Note: Task_Present, Protected_Present, Synchronized_Present,
2209 -- Interface_List, and Interface_Present are used for abstract
2210 -- interfaces (see comments for INTERFACE_TYPE_DEFINITION).
2212 ---------------------------
2213 -- 3.5 Range Constraint --
2214 ---------------------------
2216 -- RANGE_CONSTRAINT ::= range RANGE
2218 -- N_Range_Constraint
2219 -- Sloc points to RANGE
2220 -- Range_Expression (Node4)
2227 -- RANGE_ATTRIBUTE_REFERENCE
2228 -- | SIMPLE_EXPRESSION .. SIMPLE_EXPRESSION
2230 -- Note: the case of a range given as a range attribute reference
2231 -- appears directly in the tree as an attribute reference.
2233 -- Note: the field name for a reference to a range is Range_Expression
2234 -- rather than Range, because range is a reserved keyword in Ada!
2236 -- Note: the reason that this node has expression fields is that a
2237 -- range can appear as an operand of a membership test. The Etype
2238 -- field is the type of the range (we do NOT construct an implicit
2239 -- subtype to represent the range exactly).
2242 -- Sloc points to ..
2243 -- Low_Bound (Node1)
2244 -- High_Bound (Node2)
2245 -- Includes_Infinities (Flag11)
2246 -- plus fields for expression
2248 -- Note: if the range appears in a context, such as a subtype
2249 -- declaration, where range checks are required on one or both of
2250 -- the expression fields, then type conversion nodes are inserted
2251 -- to represent the required checks.
2253 ----------------------------------------
2254 -- 3.5.1 Enumeration Type Definition --
2255 ----------------------------------------
2257 -- ENUMERATION_TYPE_DEFINITION ::=
2258 -- (ENUMERATION_LITERAL_SPECIFICATION
2259 -- {, ENUMERATION_LITERAL_SPECIFICATION})
2261 -- Note: the Literals field in the node described below is null for
2262 -- the case of the standard types CHARACTER and WIDE_CHARACTER, for
2263 -- which special processing handles these types as special cases.
2265 -- N_Enumeration_Type_Definition
2266 -- Sloc points to left parenthesis
2267 -- Literals (List1) (Empty for CHARACTER or WIDE_CHARACTER)
2268 -- End_Label (Node4) (set to Empty if internally generated record)
2270 ----------------------------------------------
2271 -- 3.5.1 Enumeration Literal Specification --
2272 ----------------------------------------------
2274 -- ENUMERATION_LITERAL_SPECIFICATION ::=
2275 -- DEFINING_IDENTIFIER | DEFINING_CHARACTER_LITERAL
2277 ---------------------------------------
2278 -- 3.5.1 Defining Character Literal --
2279 ---------------------------------------
2281 -- DEFINING_CHARACTER_LITERAL ::= CHARACTER_LITERAL
2283 -- A defining character literal is an entity, which has additional
2284 -- fields depending on the setting of the Ekind field. These
2285 -- additional fields are defined (and access subprograms declared)
2286 -- in package Einfo.
2288 -- Note: N_Defining_Character_Literal is an extended node whose fields
2289 -- are deliberate layed out to match the layout of fields in an ordinary
2290 -- N_Character_Literal node allowing for easy alteration of a character
2291 -- literal node into a defining character literal node. For details, see
2292 -- Sinfo.CN.Change_Character_Literal_To_Defining_Character_Literal.
2294 -- N_Defining_Character_Literal
2295 -- Sloc points to literal
2296 -- Chars (Name1) contains the Name_Id for the identifier
2297 -- Next_Entity (Node2-Sem)
2298 -- Scope (Node3-Sem)
2299 -- Etype (Node5-Sem)
2301 ------------------------------------
2302 -- 3.5.4 Integer Type Definition --
2303 ------------------------------------
2305 -- Note: there is an error in this rule in the latest version of the
2306 -- grammar, so we have retained the old rule pending clarification.
2308 -- INTEGER_TYPE_DEFINITION ::=
2309 -- SIGNED_INTEGER_TYPE_DEFINITION
2310 -- | MODULAR_TYPE_DEFINITION
2312 -------------------------------------------
2313 -- 3.5.4 Signed Integer Type Definition --
2314 -------------------------------------------
2316 -- SIGNED_INTEGER_TYPE_DEFINITION ::=
2317 -- range static_SIMPLE_EXPRESSION .. static_SIMPLE_EXPRESSION
2319 -- Note: the Low_Bound and High_Bound fields are set to Empty
2320 -- for integer types defined in package Standard.
2322 -- N_Signed_Integer_Type_Definition
2323 -- Sloc points to RANGE
2324 -- Low_Bound (Node1)
2325 -- High_Bound (Node2)
2327 ------------------------------------
2328 -- 3.5.4 Modular Type Definition --
2329 ------------------------------------
2331 -- MODULAR_TYPE_DEFINITION ::= mod static_EXPRESSION
2333 -- N_Modular_Type_Definition
2334 -- Sloc points to MOD
2335 -- Expression (Node3)
2337 ---------------------------------
2338 -- 3.5.6 Real Type Definition --
2339 ---------------------------------
2341 -- REAL_TYPE_DEFINITION ::=
2342 -- FLOATING_POINT_DEFINITION | FIXED_POINT_DEFINITION
2344 --------------------------------------
2345 -- 3.5.7 Floating Point Definition --
2346 --------------------------------------
2348 -- FLOATING_POINT_DEFINITION ::=
2349 -- digits static_SIMPLE_EXPRESSION [REAL_RANGE_SPECIFICATION]
2351 -- Note: The Digits_Expression and Real_Range_Specifications fields
2352 -- are set to Empty for floating-point types declared in Standard.
2354 -- N_Floating_Point_Definition
2355 -- Sloc points to DIGITS
2356 -- Digits_Expression (Node2)
2357 -- Real_Range_Specification (Node4) (set to Empty if not present)
2359 -------------------------------------
2360 -- 3.5.7 Real Range Specification --
2361 -------------------------------------
2363 -- REAL_RANGE_SPECIFICATION ::=
2364 -- range static_SIMPLE_EXPRESSION .. static_SIMPLE_EXPRESSION
2366 -- N_Real_Range_Specification
2367 -- Sloc points to RANGE
2368 -- Low_Bound (Node1)
2369 -- High_Bound (Node2)
2371 -----------------------------------
2372 -- 3.5.9 Fixed Point Definition --
2373 -----------------------------------
2375 -- FIXED_POINT_DEFINITION ::=
2376 -- ORDINARY_FIXED_POINT_DEFINITION | DECIMAL_FIXED_POINT_DEFINITION
2378 --------------------------------------------
2379 -- 3.5.9 Ordinary Fixed Point Definition --
2380 --------------------------------------------
2382 -- ORDINARY_FIXED_POINT_DEFINITION ::=
2383 -- delta static_EXPRESSION REAL_RANGE_SPECIFICATION
2385 -- Note: In Ada 83, the EXPRESSION must be a SIMPLE_EXPRESSION
2387 -- N_Ordinary_Fixed_Point_Definition
2388 -- Sloc points to DELTA
2389 -- Delta_Expression (Node3)
2390 -- Real_Range_Specification (Node4)
2392 -------------------------------------------
2393 -- 3.5.9 Decimal Fixed Point Definition --
2394 -------------------------------------------
2396 -- DECIMAL_FIXED_POINT_DEFINITION ::=
2397 -- delta static_EXPRESSION
2398 -- digits static_EXPRESSION [REAL_RANGE_SPECIFICATION]
2400 -- Note: decimal types are not permitted in Ada 83 mode
2402 -- N_Decimal_Fixed_Point_Definition
2403 -- Sloc points to DELTA
2404 -- Delta_Expression (Node3)
2405 -- Digits_Expression (Node2)
2406 -- Real_Range_Specification (Node4) (set to Empty if not present)
2408 ------------------------------
2409 -- 3.5.9 Digits Constraint --
2410 ------------------------------
2412 -- DIGITS_CONSTRAINT ::=
2413 -- digits static_EXPRESSION [RANGE_CONSTRAINT]
2415 -- Note: in Ada 83, the EXPRESSION must be a SIMPLE_EXPRESSION
2416 -- Note: in Ada 95, reduced accuracy subtypes are obsolescent
2418 -- N_Digits_Constraint
2419 -- Sloc points to DIGITS
2420 -- Digits_Expression (Node2)
2421 -- Range_Constraint (Node4) (set to Empty if not present)
2423 --------------------------------
2424 -- 3.6 Array Type Definition --
2425 --------------------------------
2427 -- ARRAY_TYPE_DEFINITION ::=
2428 -- UNCONSTRAINED_ARRAY_DEFINITION | CONSTRAINED_ARRAY_DEFINITION
2430 -----------------------------------------
2431 -- 3.6 Unconstrained Array Definition --
2432 -----------------------------------------
2434 -- UNCONSTRAINED_ARRAY_DEFINITION ::=
2435 -- array (INDEX_SUBTYPE_DEFINITION {, INDEX_SUBTYPE_DEFINITION}) of
2436 -- COMPONENT_DEFINITION
2438 -- Note: dimensionality of array is indicated by number of entries in
2439 -- the Subtype_Marks list, which has one entry for each dimension.
2441 -- N_Unconstrained_Array_Definition
2442 -- Sloc points to ARRAY
2443 -- Subtype_Marks (List2)
2444 -- Component_Definition (Node4)
2446 -----------------------------------
2447 -- 3.6 Index Subtype Definition --
2448 -----------------------------------
2450 -- INDEX_SUBTYPE_DEFINITION ::= SUBTYPE_MARK range <>
2452 -- There is no explicit node in the tree for an index subtype
2453 -- definition since the N_Unconstrained_Array_Definition node
2454 -- incorporates the type marks which appear in this context.
2456 ---------------------------------------
2457 -- 3.6 Constrained Array Definition --
2458 ---------------------------------------
2460 -- CONSTRAINED_ARRAY_DEFINITION ::=
2461 -- array (DISCRETE_SUBTYPE_DEFINITION
2462 -- {, DISCRETE_SUBTYPE_DEFINITION})
2463 -- of COMPONENT_DEFINITION
2465 -- Note: dimensionality of array is indicated by number of entries
2466 -- in the Discrete_Subtype_Definitions list, which has one entry
2467 -- for each dimension.
2469 -- N_Constrained_Array_Definition
2470 -- Sloc points to ARRAY
2471 -- Discrete_Subtype_Definitions (List2)
2472 -- Component_Definition (Node4)
2474 --------------------------------------
2475 -- 3.6 Discrete Subtype Definition --
2476 --------------------------------------
2478 -- DISCRETE_SUBTYPE_DEFINITION ::=
2479 -- discrete_SUBTYPE_INDICATION | RANGE
2481 -------------------------------
2482 -- 3.6 Component Definition --
2483 -------------------------------
2485 -- COMPONENT_DEFINITION ::=
2486 -- [aliased] [NULL_EXCLUSION] SUBTYPE_INDICATION | ACCESS_DEFINITION
2488 -- Note: although the syntax does not permit a component definition to
2489 -- be an anonymous array (and the parser will diagnose such an attempt
2490 -- with an appropriate message), it is possible for anonymous arrays
2491 -- to appear as component definitions. The semantics and back end handle
2492 -- this case properly, and the expander in fact generates such cases.
2493 -- Access_Definition is an optional field that gives support to
2494 -- Ada 2005 (AI-230). The parser generates nodes that have either the
2495 -- Subtype_Indication field or else the Access_Definition field.
2497 -- N_Component_Definition
2498 -- Sloc points to ALIASED, ACCESS or to first token of subtype mark
2499 -- Aliased_Present (Flag4)
2500 -- Null_Exclusion_Present (Flag11)
2501 -- Subtype_Indication (Node5) (set to Empty if not present)
2502 -- Access_Definition (Node3) (set to Empty if not present)
2504 -----------------------------
2505 -- 3.6.1 Index Constraint --
2506 -----------------------------
2508 -- INDEX_CONSTRAINT ::= (DISCRETE_RANGE {, DISCRETE_RANGE})
2510 -- It is not in general possible to distinguish between discriminant
2511 -- constraints and index constraints at parse time, since a simple
2512 -- name could be either the subtype mark of a discrete range, or an
2513 -- expression in a discriminant association with no name. Either
2514 -- entry appears simply as the name, and the semantic parse must
2515 -- distinguish between the two cases. Thus we use a common tree
2516 -- node format for both of these constraint types.
2518 -- See Discriminant_Constraint for format of node
2520 ---------------------------
2521 -- 3.6.1 Discrete Range --
2522 ---------------------------
2524 -- DISCRETE_RANGE ::= discrete_SUBTYPE_INDICATION | RANGE
2526 ----------------------------
2527 -- 3.7 Discriminant Part --
2528 ----------------------------
2530 -- DISCRIMINANT_PART ::=
2531 -- UNKNOWN_DISCRIMINANT_PART | KNOWN_DISCRIMINANT_PART
2533 ------------------------------------
2534 -- 3.7 Unknown Discriminant Part --
2535 ------------------------------------
2537 -- UNKNOWN_DISCRIMINANT_PART ::= (<>)
2539 -- Note: unknown discriminant parts are not permitted in Ada 83 mode
2541 -- There is no explicit node in the tree for an unknown discriminant
2542 -- part. Instead the Unknown_Discriminants_Present flag is set in the
2545 ----------------------------------
2546 -- 3.7 Known Discriminant Part --
2547 ----------------------------------
2549 -- KNOWN_DISCRIMINANT_PART ::=
2550 -- (DISCRIMINANT_SPECIFICATION {; DISCRIMINANT_SPECIFICATION})
2552 -------------------------------------
2553 -- 3.7 Discriminant Specification --
2554 -------------------------------------
2556 -- DISCRIMINANT_SPECIFICATION ::=
2557 -- DEFINING_IDENTIFIER_LIST : [NULL_EXCLUSION] SUBTYPE_MARK
2558 -- [:= DEFAULT_EXPRESSION]
2559 -- | DEFINING_IDENTIFIER_LIST : ACCESS_DEFINITION
2560 -- [:= DEFAULT_EXPRESSION]
2562 -- Although the syntax allows multiple identifiers in the list, the
2563 -- semantics is as though successive specifications were given with
2564 -- identical type definition and expression components. To simplify
2565 -- semantic processing, the parser represents a multiple declaration
2566 -- case as a sequence of single specifications, using the More_Ids and
2567 -- Prev_Ids flags to preserve the original source form as described
2568 -- in the section on "Handling of Defining Identifier Lists".
2570 -- N_Discriminant_Specification
2571 -- Sloc points to first identifier
2572 -- Defining_Identifier (Node1)
2573 -- Null_Exclusion_Present (Flag11)
2574 -- Discriminant_Type (Node5) subtype mark or access parameter definition
2575 -- Expression (Node3) (set to Empty if no default expression)
2576 -- More_Ids (Flag5) (set to False if no more identifiers in list)
2577 -- Prev_Ids (Flag6) (set to False if no previous identifiers in list)
2579 -----------------------------
2580 -- 3.7 Default Expression --
2581 -----------------------------
2583 -- DEFAULT_EXPRESSION ::= EXPRESSION
2585 ------------------------------------
2586 -- 3.7.1 Discriminant Constraint --
2587 ------------------------------------
2589 -- DISCRIMINANT_CONSTRAINT ::=
2590 -- (DISCRIMINANT_ASSOCIATION {, DISCRIMINANT_ASSOCIATION})
2592 -- It is not in general possible to distinguish between discriminant
2593 -- constraints and index constraints at parse time, since a simple
2594 -- name could be either the subtype mark of a discrete range, or an
2595 -- expression in a discriminant association with no name. Either
2596 -- entry appears simply as the name, and the semantic parse must
2597 -- distinguish between the two cases. Thus we use a common tree
2598 -- node format for both of these constraint types.
2600 -- N_Index_Or_Discriminant_Constraint
2601 -- Sloc points to left paren
2602 -- Constraints (List1) points to list of discrete ranges or
2603 -- discriminant associations
2605 -------------------------------------
2606 -- 3.7.1 Discriminant Association --
2607 -------------------------------------
2609 -- DISCRIMINANT_ASSOCIATION ::=
2610 -- [discriminant_SELECTOR_NAME
2611 -- {| discriminant_SELECTOR_NAME} =>] EXPRESSION
2613 -- Note: a discriminant association that has no selector name list
2614 -- appears directly as an expression in the tree.
2616 -- N_Discriminant_Association
2617 -- Sloc points to first token of discriminant association
2618 -- Selector_Names (List1) (always non-empty, since if no selector
2619 -- names are present, this node is not used, see comment above)
2620 -- Expression (Node3)
2622 ---------------------------------
2623 -- 3.8 Record Type Definition --
2624 ---------------------------------
2626 -- RECORD_TYPE_DEFINITION ::=
2627 -- [[abstract] tagged] [limited] RECORD_DEFINITION
2629 -- Note: ABSTRACT, TAGGED, LIMITED are not permitted in Ada 83 mode
2631 -- There is no explicit node in the tree for a record type definition.
2632 -- Instead the flags for Tagged_Present and Limited_Present appear in
2633 -- the N_Record_Definition node for a record definition appearing in
2634 -- the context of a record type definition.
2636 ----------------------------
2637 -- 3.8 Record Definition --
2638 ----------------------------
2640 -- RECORD_DEFINITION ::=
2646 -- Note: the Abstract_Present, Tagged_Present and Limited_Present
2647 -- flags appear only for a record definition appearing in a record
2650 -- Note: the NULL RECORD case is not permitted in Ada 83
2652 -- N_Record_Definition
2653 -- Sloc points to RECORD or NULL
2654 -- End_Label (Node4) (set to Empty if internally generated record)
2655 -- Abstract_Present (Flag4)
2656 -- Tagged_Present (Flag15)
2657 -- Limited_Present (Flag17)
2658 -- Component_List (Node1) empty in null record case
2659 -- Null_Present (Flag13) set in null record case
2660 -- Task_Present (Flag5) set in task interfaces
2661 -- Protected_Present (Flag6) set in protected interfaces
2662 -- Synchronized_Present (Flag7) set in interfaces
2663 -- Interface_Present (Flag16) set in abstract interfaces
2664 -- Interface_List (List2) (set to No_List if none)
2666 -- Note: Task_Present, Protected_Present, Synchronized _Present,
2667 -- Interface_List and Interface_Present are used for abstract
2668 -- interfaces (see comments for INTERFACE_TYPE_DEFINITION).
2670 -------------------------
2671 -- 3.8 Component List --
2672 -------------------------
2674 -- COMPONENT_LIST ::=
2675 -- COMPONENT_ITEM {COMPONENT_ITEM}
2676 -- | {COMPONENT_ITEM} VARIANT_PART
2680 -- Sloc points to first token of component list
2681 -- Component_Items (List3)
2682 -- Variant_Part (Node4) (set to Empty if no variant part)
2683 -- Null_Present (Flag13)
2685 -------------------------
2686 -- 3.8 Component Item --
2687 -------------------------
2689 -- COMPONENT_ITEM ::= COMPONENT_DECLARATION | REPRESENTATION_CLAUSE
2691 -- Note: A component item can also be a pragma, and in the tree
2692 -- that is obtained after semantic processing, a component item
2693 -- can be an N_Null node resulting from a non-recognized pragma.
2695 --------------------------------
2696 -- 3.8 Component Declaration --
2697 --------------------------------
2699 -- COMPONENT_DECLARATION ::=
2700 -- DEFINING_IDENTIFIER_LIST : COMPONENT_DEFINITION
2701 -- [:= DEFAULT_EXPRESSION]
2703 -- Note: although the syntax does not permit a component definition to
2704 -- be an anonymous array (and the parser will diagnose such an attempt
2705 -- with an appropriate message), it is possible for anonymous arrays
2706 -- to appear as component definitions. The semantics and back end handle
2707 -- this case properly, and the expander in fact generates such cases.
2709 -- Although the syntax allows multiple identifiers in the list, the
2710 -- semantics is as though successive declarations were given with the
2711 -- same component definition and expression components. To simplify
2712 -- semantic processing, the parser represents a multiple declaration
2713 -- case as a sequence of single declarations, using the More_Ids and
2714 -- Prev_Ids flags to preserve the original source form as described
2715 -- in the section on "Handling of Defining Identifier Lists".
2717 -- N_Component_Declaration
2718 -- Sloc points to first identifier
2719 -- Defining_Identifier (Node1)
2720 -- Component_Definition (Node4)
2721 -- Expression (Node3) (set to Empty if no default expression)
2722 -- More_Ids (Flag5) (set to False if no more identifiers in list)
2723 -- Prev_Ids (Flag6) (set to False if no previous identifiers in list)
2725 -------------------------
2726 -- 3.8.1 Variant Part --
2727 -------------------------
2730 -- case discriminant_DIRECT_NAME is
2735 -- Note: the variants list can contain pragmas as well as variants.
2736 -- In a properly formed program there is at least one variant.
2739 -- Sloc points to CASE
2743 --------------------
2745 --------------------
2748 -- when DISCRETE_CHOICE_LIST =>
2752 -- Sloc points to WHEN
2753 -- Discrete_Choices (List4)
2754 -- Component_List (Node1)
2755 -- Enclosing_Variant (Node2-Sem)
2756 -- Present_Expr (Uint3-Sem)
2757 -- Dcheck_Function (Node5-Sem)
2759 ---------------------------------
2760 -- 3.8.1 Discrete Choice List --
2761 ---------------------------------
2763 -- DISCRETE_CHOICE_LIST ::= DISCRETE_CHOICE {| DISCRETE_CHOICE}
2765 ----------------------------
2766 -- 3.8.1 Discrete Choice --
2767 ----------------------------
2769 -- DISCRETE_CHOICE ::= EXPRESSION | DISCRETE_RANGE | others
2771 -- Note: in Ada 83 mode, the expression must be a simple expression
2773 -- The only choice that appears explicitly is the OTHERS choice, as
2774 -- defined here. Other cases of discrete choice (expression and
2775 -- discrete range) appear directly. This production is also used
2776 -- for the OTHERS possibility of an exception choice.
2778 -- Note: in accordance with the syntax, the parser does not check that
2779 -- OTHERS appears at the end on its own in a choice list context. This
2780 -- is a semantic check.
2783 -- Sloc points to OTHERS
2784 -- Others_Discrete_Choices (List1-Sem)
2785 -- All_Others (Flag11-Sem)
2787 ----------------------------------
2788 -- 3.9.1 Record Extension Part --
2789 ----------------------------------
2791 -- RECORD_EXTENSION_PART ::= with RECORD_DEFINITION
2793 -- Note: record extension parts are not permitted in Ada 83 mode
2795 --------------------------------------
2796 -- 3.9.4 Interface Type Definition --
2797 --------------------------------------
2799 -- INTERFACE_TYPE_DEFINITION ::=
2800 -- [limited | task | protected | synchronized]
2801 -- interface [interface_list]
2803 -- Note: Interfaces are implemented with N_Record_Definition and
2804 -- N_Derived_Type_Definition nodes because most of the support
2805 -- for the analysis of abstract types has been reused to
2806 -- analyze abstract interfaces.
2808 ----------------------------------
2809 -- 3.10 Access Type Definition --
2810 ----------------------------------
2812 -- ACCESS_TYPE_DEFINITION ::=
2813 -- ACCESS_TO_OBJECT_DEFINITION
2814 -- | ACCESS_TO_SUBPROGRAM_DEFINITION
2816 --------------------------
2817 -- 3.10 Null Exclusion --
2818 --------------------------
2820 -- NULL_EXCLUSION ::= not null
2822 ---------------------------------------
2823 -- 3.10 Access To Object Definition --
2824 ---------------------------------------
2826 -- ACCESS_TO_OBJECT_DEFINITION ::=
2827 -- [NULL_EXCLUSION] access [GENERAL_ACCESS_MODIFIER]
2828 -- SUBTYPE_INDICATION
2830 -- N_Access_To_Object_Definition
2831 -- Sloc points to ACCESS
2832 -- All_Present (Flag15)
2833 -- Null_Exclusion_Present (Flag11)
2834 -- Subtype_Indication (Node5)
2835 -- Constant_Present (Flag17)
2837 -----------------------------------
2838 -- 3.10 General Access Modifier --
2839 -----------------------------------
2841 -- GENERAL_ACCESS_MODIFIER ::= all | constant
2843 -- Note: general access modifiers are not permitted in Ada 83 mode
2845 -- There is no explicit node in the tree for general access modifier.
2846 -- Instead the All_Present or Constant_Present flags are set in the
2849 -------------------------------------------
2850 -- 3.10 Access To Subprogram Definition --
2851 -------------------------------------------
2853 -- ACCESS_TO_SUBPROGRAM_DEFINITION
2854 -- [NULL_EXCLUSION] access [protected] procedure PARAMETER_PROFILE
2855 -- | [NULL_EXCLUSION] access [protected] function
2856 -- PARAMETER_AND_RESULT_PROFILE
2858 -- Note: access to subprograms are not permitted in Ada 83 mode
2860 -- N_Access_Function_Definition
2861 -- Sloc points to ACCESS
2862 -- Null_Exclusion_Present (Flag11)
2863 -- Protected_Present (Flag6)
2864 -- Parameter_Specifications (List3) (set to No_List if no formal part)
2865 -- Result_Definition (Node4) result subtype (subtype mark or access def)
2867 -- N_Access_Procedure_Definition
2868 -- Sloc points to ACCESS
2869 -- Null_Exclusion_Present (Flag11)
2870 -- Protected_Present (Flag6)
2871 -- Parameter_Specifications (List3) (set to No_List if no formal part)
2873 -----------------------------
2874 -- 3.10 Access Definition --
2875 -----------------------------
2877 -- ACCESS_DEFINITION ::=
2878 -- [NULL_EXCLUSION] access [GENERAL_ACCESS_MODIFIER] SUBTYPE_MARK
2879 -- | ACCESS_TO_SUBPROGRAM_DEFINITION
2881 -- Note: access to subprograms are an Ada 2005 (AI-254) extension
2883 -- N_Access_Definition
2884 -- Sloc points to ACCESS
2885 -- Null_Exclusion_Present (Flag11)
2886 -- All_Present (Flag15)
2887 -- Constant_Present (Flag17)
2888 -- Subtype_Mark (Node4)
2889 -- Access_To_Subprogram_Definition (Node3) (set to Empty if not present)
2891 -----------------------------------------
2892 -- 3.10.1 Incomplete Type Declaration --
2893 -----------------------------------------
2895 -- INCOMPLETE_TYPE_DECLARATION ::=
2896 -- type DEFINING_IDENTIFIER [DISCRIMINANT_PART] [IS TAGGED];
2898 -- N_Incomplete_Type_Declaration
2899 -- Sloc points to TYPE
2900 -- Defining_Identifier (Node1)
2901 -- Discriminant_Specifications (List4) (set to No_List if no
2902 -- discriminant part, or if the discriminant part is an
2903 -- unknown discriminant part)
2904 -- Unknown_Discriminants_Present (Flag13) set if (<>) discriminant
2905 -- Tagged_Present (Flag15)
2907 ----------------------------
2908 -- 3.11 Declarative Part --
2909 ----------------------------
2911 -- DECLARATIVE_PART ::= {DECLARATIVE_ITEM}
2913 -- Note: although the parser enforces the syntactic requirement that
2914 -- a declarative part can contain only declarations, the semantic
2915 -- processing may add statements to the list of actions in a
2916 -- declarative part, so the code generator should be prepared
2917 -- to accept a statement in this position.
2919 ----------------------------
2920 -- 3.11 Declarative Item --
2921 ----------------------------
2923 -- DECLARATIVE_ITEM ::= BASIC_DECLARATIVE_ITEM | BODY
2925 ----------------------------------
2926 -- 3.11 Basic Declarative Item --
2927 ----------------------------------
2929 -- BASIC_DECLARATIVE_ITEM ::=
2930 -- BASIC_DECLARATION | REPRESENTATION_CLAUSE | USE_CLAUSE
2936 -- BODY ::= PROPER_BODY | BODY_STUB
2938 -----------------------
2939 -- 3.11 Proper Body --
2940 -----------------------
2943 -- SUBPROGRAM_BODY | PACKAGE_BODY | TASK_BODY | PROTECTED_BODY
2950 -- DIRECT_NAME | EXPLICIT_DEREFERENCE
2951 -- | INDEXED_COMPONENT | SLICE
2952 -- | SELECTED_COMPONENT | ATTRIBUTE_REFERENCE
2953 -- | TYPE_CONVERSION | FUNCTION_CALL
2954 -- | CHARACTER_LITERAL
2956 ----------------------
2957 -- 4.1 Direct Name --
2958 ----------------------
2960 -- DIRECT_NAME ::= IDENTIFIER | OPERATOR_SYMBOL
2966 -- PREFIX ::= NAME | IMPLICIT_DEREFERENCE
2968 -------------------------------
2969 -- 4.1 Explicit Dereference --
2970 -------------------------------
2972 -- EXPLICIT_DEREFERENCE ::= NAME . all
2974 -- N_Explicit_Dereference
2975 -- Sloc points to ALL
2977 -- Actual_Designated_Subtype (Node4-Sem)
2978 -- plus fields for expression
2980 -------------------------------
2981 -- 4.1 Implicit Dereference --
2982 -------------------------------
2984 -- IMPLICIT_DEREFERENCE ::= NAME
2986 ------------------------------
2987 -- 4.1.1 Indexed Component --
2988 ------------------------------
2990 -- INDEXED_COMPONENT ::= PREFIX (EXPRESSION {, EXPRESSION})
2992 -- Note: the parser may generate this node in some situations where it
2993 -- should be a function call. The semantic pass must correct this
2994 -- misidentification (which is inevitable at the parser level).
2996 -- N_Indexed_Component
2997 -- Sloc contains a copy of the Sloc value of the Prefix
2999 -- Expressions (List1)
3000 -- plus fields for expression
3002 -- Note: if any of the subscripts requires a range check, then the
3003 -- Do_Range_Check flag is set on the corresponding expression, with
3004 -- the index type being determined from the type of the Prefix, which
3005 -- references the array being indexed.
3007 -- Note: in a fully analyzed and expanded indexed component node, and
3008 -- hence in any such node that gigi sees, if the prefix is an access
3009 -- type, then an explicit dereference operation has been inserted.
3015 -- SLICE ::= PREFIX (DISCRETE_RANGE)
3017 -- Note: an implicit subtype is created to describe the resulting
3018 -- type, so that the bounds of this type are the bounds of the slice.
3021 -- Sloc points to first token of prefix
3023 -- Discrete_Range (Node4)
3024 -- plus fields for expression
3026 -------------------------------
3027 -- 4.1.3 Selected Component --
3028 -------------------------------
3030 -- SELECTED_COMPONENT ::= PREFIX . SELECTOR_NAME
3032 -- Note: selected components that are semantically expanded names get
3033 -- changed during semantic processing into the separate N_Expanded_Name
3034 -- node. See description of this node in the section on semantic nodes.
3036 -- N_Selected_Component
3037 -- Sloc points to period
3039 -- Selector_Name (Node2)
3040 -- Associated_Node (Node4-Sem)
3041 -- Do_Discriminant_Check (Flag13-Sem)
3042 -- Is_In_Discriminant_Check (Flag11-Sem)
3043 -- plus fields for expression
3045 --------------------------
3046 -- 4.1.3 Selector Name --
3047 --------------------------
3049 -- SELECTOR_NAME ::= IDENTIFIER | CHARACTER_LITERAL | OPERATOR_SYMBOL
3051 --------------------------------
3052 -- 4.1.4 Attribute Reference --
3053 --------------------------------
3055 -- ATTRIBUTE_REFERENCE ::= PREFIX ' ATTRIBUTE_DESIGNATOR
3057 -- Note: the syntax is quite ambiguous at this point. Consider:
3059 -- A'Length (X) X is part of the attribute designator
3060 -- A'Pos (X) X is an explicit actual parameter of function A'Pos
3061 -- A'Class (X) X is the expression of a type conversion
3063 -- It would be possible for the parser to distinguish these cases
3064 -- by looking at the attribute identifier. However, that would mean
3065 -- more work in introducing new implementation defined attributes,
3066 -- and also it would mean that special processing for attributes
3067 -- would be scattered around, instead of being centralized in the
3068 -- semantic routine that handles an N_Attribute_Reference node.
3069 -- Consequently, the parser in all the above cases stores the
3070 -- expression (X in these examples) as a single element list in
3071 -- in the Expressions field of the N_Attribute_Reference node.
3073 -- Similarly, for attributes like Max which take two arguments,
3074 -- we store the two arguments as a two element list in the
3075 -- Expressions field. Of course it is clear at parse time that
3076 -- this case is really a function call with an attribute as the
3077 -- prefix, but it turns out to be convenient to handle the two
3078 -- argument case in a similar manner to the one argument case,
3079 -- and indeed in general the parser will accept any number of
3080 -- expressions in this position and store them as a list in the
3081 -- attribute reference node. This allows for future addition of
3082 -- attributes that take more than two arguments.
3084 -- Note: named associates are not permitted in function calls where
3085 -- the function is an attribute (see RM 6.4(3)) so it is legitimate
3086 -- to skip the normal subprogram argument processing.
3088 -- Note: for the attributes whose designators are technically keywords,
3089 -- i.e. digits, access, delta, range, the Attribute_Name field contains
3090 -- the corresponding name, even though no identifier is involved.
3092 -- Note: the generated code may contain stream attributes applied to
3093 -- limited types for which no stream routines exist officially. In such
3094 -- case, the result is to use the stream attribute for the underlying
3095 -- full type, or in the case of a protected type, the components
3096 -- (including any disriminants) are merely streamed in order.
3098 -- See Exp_Attr for a complete description of which attributes are
3099 -- passed onto Gigi, and which are handled entirely by the front end.
3101 -- Gigi restriction: For the Pos attribute, the prefix cannot be
3102 -- a non-standard enumeration type or a nonzero/zero semantics
3103 -- boolean type, so the value is simply the stored representation.
3105 -- Gigi requirement: For the Mechanism_Code attribute, if the prefix
3106 -- references a subprogram that is a renaming, then the front end must
3107 -- rewrite the attribute to refer directly to the renamed entity.
3109 -- Note: In generated code, the Address and Unrestricted_Access
3110 -- attributes can be applied to any expression, and the meaning is
3111 -- to create an object containing the value (the object is in the
3112 -- current stack frame), and pass the address of this value. If the
3113 -- Must_Be_Byte_Aligned flag is set, then the object whose address
3114 -- is taken must be on a byte (storage unit) boundary, and if it is
3115 -- not (or may not be), then the generated code must create a copy
3116 -- that is byte aligned, and pass the address of this copy.
3118 -- N_Attribute_Reference
3119 -- Sloc points to apostrophe
3121 -- Attribute_Name (Name2) identifier name from attribute designator
3122 -- Expressions (List1) (set to No_List if no associated expressions)
3123 -- Entity (Node4-Sem) used if the attribute yields a type
3124 -- Associated_Node (Node4-Sem)
3125 -- Do_Overflow_Check (Flag17-Sem)
3126 -- Redundant_Use (Flag13-Sem)
3127 -- Must_Be_Byte_Aligned (Flag14)
3128 -- plus fields for expression
3130 ---------------------------------
3131 -- 4.1.4 Attribute Designator --
3132 ---------------------------------
3134 -- ATTRIBUTE_DESIGNATOR ::=
3135 -- IDENTIFIER [(static_EXPRESSION)]
3136 -- | access | delta | digits
3138 -- There is no explicit node in the tree for an attribute designator.
3139 -- Instead the Attribute_Name and Expressions fields of the parent
3140 -- node (N_Attribute_Reference node) hold the information.
3142 -- Note: if ACCESS, DELTA or DIGITS appears in an attribute
3143 -- designator, then they are treated as identifiers internally
3144 -- rather than the keywords of the same name.
3146 --------------------------------------
3147 -- 4.1.4 Range Attribute Reference --
3148 --------------------------------------
3150 -- RANGE_ATTRIBUTE_REFERENCE ::= PREFIX ' RANGE_ATTRIBUTE_DESIGNATOR
3152 -- A range attribute reference is represented in the tree using the
3153 -- normal N_Attribute_Reference node.
3155 ---------------------------------------
3156 -- 4.1.4 Range Attribute Designator --
3157 ---------------------------------------
3159 -- RANGE_ATTRIBUTE_DESIGNATOR ::= Range [(static_EXPRESSION)]
3161 -- A range attribute designator is represented in the tree using the
3162 -- normal N_Attribute_Reference node.
3164 --------------------
3166 --------------------
3169 -- RECORD_AGGREGATE | EXTENSION_AGGREGATE | ARRAY_AGGREGATE
3171 -----------------------------
3172 -- 4.3.1 Record Aggregate --
3173 -----------------------------
3175 -- RECORD_AGGREGATE ::= (RECORD_COMPONENT_ASSOCIATION_LIST)
3178 -- Sloc points to left parenthesis
3179 -- Expressions (List1) (set to No_List if none or null record case)
3180 -- Component_Associations (List2) (set to No_List if none)
3181 -- Null_Record_Present (Flag17)
3182 -- Aggregate_Bounds (Node3-Sem)
3183 -- Associated_Node (Node4-Sem)
3184 -- Static_Processing_OK (Flag4-Sem)
3185 -- Compile_Time_Known_Aggregate (Flag18-Sem)
3186 -- Expansion_Delayed (Flag11-Sem)
3187 -- Has_Self_Reference (Flag13-Sem)
3188 -- plus fields for expression
3190 -- Note: this structure is used for both record and array aggregates
3191 -- since the two cases are not separable by the parser. The parser
3192 -- makes no attempt to enforce consistency here, so it is up to the
3193 -- semantic phase to make sure that the aggregate is consistent (i.e.
3194 -- that it is not a "half-and-half" case that mixes record and array
3195 -- syntax. In particular, for a record aggregate, the expressions
3196 -- field will be set if there are positional associations.
3198 -- Note: N_Aggregate is not used for all aggregates; in particular,
3199 -- there is a separate node kind for extension aggregates.
3201 -- Note: gigi/gcc can handle array aggregates correctly providing that
3202 -- they are entirely positional, and the array subtype involved has a
3203 -- known at compile time length and is not bit packed, or a convention
3204 -- Fortran array with more than one dimension. If these conditions
3205 -- are not met, then the front end must translate the aggregate into
3206 -- an appropriate set of assignments into a temporary.
3208 -- Note: for the record aggregate case, gigi/gcc can handle all cases
3209 -- of record aggregates, including those for packed, and rep-claused
3210 -- records, and also variant records, providing that there are no
3211 -- variable length fields whose size is not known at runtime, and
3212 -- providing that the aggregate is presented in fully named form.
3214 ----------------------------------------------
3215 -- 4.3.1 Record Component Association List --
3216 ----------------------------------------------
3218 -- RECORD_COMPONENT_ASSOCIATION_LIST ::=
3219 -- RECORD_COMPONENT_ASSOCIATION {, RECORD_COMPONENT_ASSOCIATION}
3222 -- There is no explicit node in the tree for a record component
3223 -- association list. Instead the Null_Record_Present flag is set in
3224 -- the parent node for the NULL RECORD case.
3226 ------------------------------------------------------
3227 -- 4.3.1 Record Component Association (also 4.3.3) --
3228 ------------------------------------------------------
3230 -- RECORD_COMPONENT_ASSOCIATION ::=
3231 -- [COMPONENT_CHOICE_LIST =>] EXPRESSION
3233 -- N_Component_Association
3234 -- Sloc points to first selector name
3236 -- Loop_Actions (List2-Sem)
3237 -- Expression (Node3)
3238 -- Box_Present (Flag15)
3240 -- Note: this structure is used for both record component associations
3241 -- and array component associations, since the two cases aren't always
3242 -- separable by the parser. The choices list may represent either a
3243 -- list of selector names in the record aggregate case, or a list of
3244 -- discrete choices in the array aggregate case or an N_Others_Choice
3245 -- node (which appears as a singleton list). Box_Present gives support
3246 -- to Ada 2005 (AI-287).
3248 -----------------------------------
3249 -- 4.3.1 Commponent Choice List --
3250 -----------------------------------
3252 -- COMPONENT_CHOICE_LIST ::=
3253 -- component_SELECTOR_NAME {| component_SELECTOR_NAME}
3256 -- The entries of a component choice list appear in the Choices list of
3257 -- the associated N_Component_Association, as either selector names, or
3258 -- as an N_Others_Choice node.
3260 --------------------------------
3261 -- 4.3.2 Extension Aggregate --
3262 --------------------------------
3264 -- EXTENSION_AGGREGATE ::=
3265 -- (ANCESTOR_PART with RECORD_COMPONENT_ASSOCIATION_LIST)
3267 -- Note: extension aggregates are not permitted in Ada 83 mode
3269 -- N_Extension_Aggregate
3270 -- Sloc points to left parenthesis
3271 -- Ancestor_Part (Node3)
3272 -- Associated_Node (Node4-Sem)
3273 -- Expressions (List1) (set to No_List if none or null record case)
3274 -- Component_Associations (List2) (set to No_List if none)
3275 -- Null_Record_Present (Flag17)
3276 -- Expansion_Delayed (Flag11-Sem)
3277 -- Has_Self_Reference (Flag13-Sem)
3278 -- plus fields for expression
3280 --------------------------
3281 -- 4.3.2 Ancestor Part --
3282 --------------------------
3284 -- ANCESTOR_PART ::= EXPRESSION | SUBTYPE_MARK
3286 ----------------------------
3287 -- 4.3.3 Array Aggregate --
3288 ----------------------------
3290 -- ARRAY_AGGREGATE ::=
3291 -- POSITIONAL_ARRAY_AGGREGATE | NAMED_ARRAY_AGGREGATE
3293 ---------------------------------------
3294 -- 4.3.3 Positional Array Aggregate --
3295 ---------------------------------------
3297 -- POSITIONAL_ARRAY_AGGREGATE ::=
3298 -- (EXPRESSION, EXPRESSION {, EXPRESSION})
3299 -- | (EXPRESSION {, EXPRESSION}, others => EXPRESSION)
3301 -- See Record_Aggregate (4.3.1) for node structure
3303 ----------------------------------
3304 -- 4.3.3 Named Array Aggregate --
3305 ----------------------------------
3307 -- NAMED_ARRAY_AGGREGATE ::=
3308 -- | (ARRAY_COMPONENT_ASSOCIATION {, ARRAY_COMPONENT_ASSOCIATION})
3310 -- See Record_Aggregate (4.3.1) for node structure
3312 ----------------------------------------
3313 -- 4.3.3 Array Component Association --
3314 ----------------------------------------
3316 -- ARRAY_COMPONENT_ASSOCIATION ::=
3317 -- DISCRETE_CHOICE_LIST => EXPRESSION
3319 -- See Record_Component_Association (4.3.1) for node structure
3321 --------------------------------------------------
3322 -- 4.4 Expression/Relation/Term/Factor/Primary --
3323 --------------------------------------------------
3326 -- RELATION {and RELATION} | RELATION {and then RELATION}
3327 -- | RELATION {or RELATION} | RELATION {or else RELATION}
3328 -- | RELATION {xor RELATION}
3331 -- SIMPLE_EXPRESSION [RELATIONAL_OPERATOR SIMPLE_EXPRESSION]
3332 -- | SIMPLE_EXPRESSION [not] in RANGE
3333 -- | SIMPLE_EXPRESSION [not] in SUBTYPE_MARK
3335 -- SIMPLE_EXPRESSION ::=
3336 -- [UNARY_ADDING_OPERATOR] TERM {BINARY_ADDING_OPERATOR TERM}
3338 -- TERM ::= FACTOR {MULTIPLYING_OPERATOR FACTOR}
3340 -- FACTOR ::= PRIMARY [** PRIMARY] | abs PRIMARY | not PRIMARY
3342 -- No nodes are generated for any of these constructs. Instead, the
3343 -- node for the operator appears directly. When we refer to an
3344 -- expression in this description, we mean any of the possible
3345 -- consistuent components of an expression (e.g. identifier is
3346 -- an example of an expression).
3353 -- NUMERIC_LITERAL | null
3354 -- | STRING_LITERAL | AGGREGATE
3355 -- | NAME | QUALIFIED_EXPRESSION
3356 -- | ALLOCATOR | (EXPRESSION)
3358 -- Usually there is no explicit node in the tree for primary. Instead
3359 -- the constituent (e.g. AGGREGATE) appears directly. There are two
3360 -- exceptions. First, there is an explicit node for a null primary.
3363 -- Sloc points to NULL
3364 -- plus fields for expression
3366 -- Second, the case of (EXPRESSION) is handled specially. Ada requires
3367 -- that the parser keep track of which subexpressions are enclosed
3368 -- in parentheses, and how many levels of parentheses are used. This
3369 -- information is required for optimization purposes, and also for
3370 -- some semantic checks (e.g. (((1))) in a procedure spec does not
3371 -- conform with ((((1)))) in the body).
3373 -- The parentheses are recorded by keeping a Paren_Count field in every
3374 -- subexpression node (it is actually present in all nodes, but only
3375 -- used in subexpression nodes). This count records the number of
3376 -- levels of parentheses. If the number of levels in the source exceeds
3377 -- the maximum accomodated by this count, then the count is simply left
3378 -- at the maximum value. This means that there are some pathalogical
3379 -- cases of failure to detect conformance failures (e.g. an expression
3380 -- with 500 levels of parens will conform with one with 501 levels),
3381 -- but we do not need to lose sleep over this.
3383 -- Historical note: in versions of GNAT prior to 1.75, there was a node
3384 -- type N_Parenthesized_Expression used to accurately record unlimited
3385 -- numbers of levels of parentheses. However, it turned out to be a
3386 -- real nuisance to have to take into account the possible presence of
3387 -- this node during semantic analysis, since basically parentheses have
3388 -- zero relevance to semantic analysis.
3390 -- Note: the level of parentheses always present in things like
3391 -- aggregates does not count, only the parentheses in the primary
3392 -- (EXPRESSION) affect the setting of the Paren_Count field.
3394 -- 2nd Note: the contents of the Expression field must be ignored (i.e.
3395 -- treated as though it were Empty) if No_Initialization is set True.
3397 --------------------------------------
3398 -- 4.5 Short Circuit Control Forms --
3399 --------------------------------------
3402 -- RELATION {and then RELATION} | RELATION {or else RELATION}
3404 -- Gigi restriction: For both these control forms, the operand and
3405 -- result types are always Standard.Boolean. The expander inserts the
3406 -- required conversion operations where needed to ensure this is the
3410 -- Sloc points to AND of AND THEN
3411 -- Left_Opnd (Node2)
3412 -- Right_Opnd (Node3)
3413 -- Actions (List1-Sem)
3414 -- plus fields for expression
3417 -- Sloc points to OR of OR ELSE
3418 -- Left_Opnd (Node2)
3419 -- Right_Opnd (Node3)
3420 -- Actions (List1-Sem)
3421 -- plus fields for expression
3423 -- Note: The Actions field is used to hold actions associated with
3424 -- the right hand operand. These have to be treated specially since
3425 -- they are not unconditionally executed. See Insert_Actions for a
3426 -- more detailed description of how these actions are handled.
3428 ---------------------------
3429 -- 4.5 Membership Tests --
3430 ---------------------------
3433 -- SIMPLE_EXPRESSION [not] in RANGE
3434 -- | SIMPLE_EXPRESSION [not] in SUBTYPE_MARK
3436 -- Note: although the grammar above allows only a range or a
3437 -- subtype mark, the parser in fact will accept any simple
3438 -- expression in place of a subtype mark. This means that the
3439 -- semantic analyzer must be prepared to deal with, and diagnose
3440 -- a simple expression other than a name for the right operand.
3441 -- This simplifies error recovery in the parser.
3444 -- Sloc points to IN
3445 -- Left_Opnd (Node2)
3446 -- Right_Opnd (Node3)
3447 -- plus fields for expression
3450 -- Sloc points to NOT of NOT IN
3451 -- Left_Opnd (Node2)
3452 -- Right_Opnd (Node3)
3453 -- plus fields for expression
3455 --------------------
3457 --------------------
3459 -- LOGICAL_OPERATOR ::= and | or | xor
3461 -- RELATIONAL_OPERATOR ::= = | /= | < | <= | > | >=
3463 -- BINARY_ADDING_OPERATOR ::= + | - | &
3465 -- UNARY_ADDING_OPERATOR ::= + | -
3467 -- MULTIPLYING_OPERATOR ::= * | / | mod | rem
3469 -- HIGHEST_PRECEDENCE_OPERATOR ::= ** | abs | not
3471 -- Sprint syntax if Treat_Fixed_As_Integer is set:
3478 -- Gigi restriction: For * / mod rem with fixed-point operands, Gigi
3479 -- will only be given nodes with the Treat_Fixed_As_Integer flag set.
3480 -- All handling of smalls for multiplication and division is handled
3481 -- by the front end (mod and rem result only from expansion). Gigi
3482 -- thus never needs to worry about small values (for other operators
3483 -- operating on fixed-point, e.g. addition, the small value does not
3484 -- have any semantic effect anyway, these are always integer operations.
3486 -- Gigi restriction: For all operators taking Boolean operands, the
3487 -- type is always Standard.Boolean. The expander inserts the required
3488 -- conversion operations where needed to ensure this is the case.
3491 -- Sloc points to AND
3492 -- Do_Length_Check (Flag4-Sem)
3493 -- plus fields for binary operator
3494 -- plus fields for expression
3497 -- Sloc points to OR
3498 -- Do_Length_Check (Flag4-Sem)
3499 -- plus fields for binary operator
3500 -- plus fields for expression
3503 -- Sloc points to XOR
3504 -- Do_Length_Check (Flag4-Sem)
3505 -- plus fields for binary operator
3506 -- plus fields for expression
3510 -- plus fields for binary operator
3511 -- plus fields for expression
3514 -- Sloc points to /=
3515 -- plus fields for binary operator
3516 -- plus fields for expression
3520 -- plus fields for binary operator
3521 -- plus fields for expression
3524 -- Sloc points to <=
3525 -- plus fields for binary operator
3526 -- plus fields for expression
3530 -- plus fields for binary operator
3531 -- plus fields for expression
3534 -- Sloc points to >=
3535 -- plus fields for binary operator
3536 -- plus fields for expression
3539 -- Sloc points to + (binary)
3540 -- plus fields for binary operator
3541 -- plus fields for expression
3544 -- Sloc points to - (binary)
3545 -- plus fields for binary operator
3546 -- plus fields for expression
3550 -- Is_Component_Left_Opnd (Flag13-Sem)
3551 -- Is_Component_Right_Opnd (Flag14-Sem)
3552 -- plus fields for binary operator
3553 -- plus fields for expression
3557 -- Treat_Fixed_As_Integer (Flag14-Sem)
3558 -- Rounded_Result (Flag18-Sem)
3559 -- plus fields for binary operator
3560 -- plus fields for expression
3564 -- Treat_Fixed_As_Integer (Flag14-Sem)
3565 -- Do_Division_Check (Flag13-Sem)
3566 -- Rounded_Result (Flag18-Sem)
3567 -- plus fields for binary operator
3568 -- plus fields for expression
3571 -- Sloc points to MOD
3572 -- Treat_Fixed_As_Integer (Flag14-Sem)
3573 -- Do_Division_Check (Flag13-Sem)
3574 -- plus fields for binary operator
3575 -- plus fields for expression
3578 -- Sloc points to REM
3579 -- Treat_Fixed_As_Integer (Flag14-Sem)
3580 -- Do_Division_Check (Flag13-Sem)
3581 -- plus fields for binary operator
3582 -- plus fields for expression
3585 -- Is_Power_Of_2_For_Shift (Flag13-Sem)
3586 -- Sloc points to **
3587 -- plus fields for binary operator
3588 -- plus fields for expression
3591 -- Sloc points to + (unary)
3592 -- plus fields for unary operator
3593 -- plus fields for expression
3596 -- Sloc points to - (unary)
3597 -- plus fields for unary operator
3598 -- plus fields for expression
3601 -- Sloc points to ABS
3602 -- plus fields for unary operator
3603 -- plus fields for expression
3606 -- Sloc points to NOT
3607 -- plus fields for unary operator
3608 -- plus fields for expression
3610 -- See also shift operators in section B.2
3612 -- Note on fixed-point operations passed to Gigi: For adding operators,
3613 -- the semantics is to treat these simply as integer operations, with
3614 -- the small values being ignored (the bounds are already stored in
3615 -- units of small, so that constraint checking works as usual). For the
3616 -- case of multiply/divide/rem/mod operations, Gigi will only see fixed
3617 -- point operands if the Treat_Fixed_As_Integer flag is set and will
3618 -- thus treat these nodes in identical manner, ignoring small values.
3620 --------------------------
3621 -- 4.6 Type Conversion --
3622 --------------------------
3624 -- TYPE_CONVERSION ::=
3625 -- SUBTYPE_MARK (EXPRESSION) | SUBTYPE_MARK (NAME)
3627 -- In the (NAME) case, the name is stored as the expression
3629 -- Note: the parser never generates a type conversion node, since it
3630 -- looks like an indexed component which is generated by preference.
3631 -- The semantic pass must correct this misidentification.
3633 -- Gigi handles conversions that involve no change in the root type,
3634 -- and also all conversions from integer to floating-point types.
3635 -- Conversions from floating-point to integer are only handled in
3636 -- the case where Float_Truncate flag set. Other conversions from
3637 -- floating-point to integer (involving rounding) and all conversions
3638 -- involving fixed-point types are handled by the expander.
3640 -- Sprint syntax if Float_Truncate set: X^(Y)
3641 -- Sprint syntax if Conversion_OK set X?(Y)
3642 -- Sprint syntax if both flags set X?^(Y)
3644 -- Note: If either the operand or result type is fixed-point, Gigi will
3645 -- only see a type conversion node with Conversion_OK set. The front end
3646 -- takes care of all handling of small's for fixed-point conversions.
3648 -- N_Type_Conversion
3649 -- Sloc points to first token of subtype mark
3650 -- Subtype_Mark (Node4)
3651 -- Expression (Node3)
3652 -- Do_Tag_Check (Flag13-Sem)
3653 -- Do_Length_Check (Flag4-Sem)
3654 -- Do_Overflow_Check (Flag17-Sem)
3655 -- Float_Truncate (Flag11-Sem)
3656 -- Rounded_Result (Flag18-Sem)
3657 -- Conversion_OK (Flag14-Sem)
3658 -- plus fields for expression
3660 -- Note: if a range check is required, then the Do_Range_Check flag
3661 -- is set in the Expression with the check being done against the
3662 -- target type range (after the base type conversion, if any).
3664 -------------------------------
3665 -- 4.7 Qualified Expression --
3666 -------------------------------
3668 -- QUALIFIED_EXPRESSION ::=
3669 -- SUBTYPE_MARK ' (EXPRESSION) | SUBTYPE_MARK ' AGGREGATE
3671 -- Note: the parentheses in the (EXPRESSION) case are deemed to enclose
3672 -- the expression, so the Expression field of this node always points
3673 -- to a parenthesized expression in this case (i.e. Paren_Count will
3674 -- always be non-zero for the referenced expression if it is not an
3677 -- N_Qualified_Expression
3678 -- Sloc points to apostrophe
3679 -- Subtype_Mark (Node4)
3680 -- Expression (Node3) expression or aggregate
3681 -- plus fields for expression
3683 --------------------
3685 --------------------
3688 -- new [NULL_EXCLUSION] SUBTYPE_INDICATION | new QUALIFIED_EXPRESSION
3690 -- Sprint syntax (when storage pool present)
3691 -- new xxx (storage_pool = pool)
3694 -- Sloc points to NEW
3695 -- Expression (Node3) subtype indication or qualified expression
3696 -- Storage_Pool (Node1-Sem)
3697 -- Procedure_To_Call (Node2-Sem)
3698 -- Coextensions (Elist4-Sem)
3699 -- Null_Exclusion_Present (Flag11)
3700 -- No_Initialization (Flag13-Sem)
3701 -- Is_Static_Coextension (Flag14-Sem)
3702 -- Do_Storage_Check (Flag17-Sem)
3703 -- Is_Dynamic_Coextension (Flag18-Sem)
3704 -- plus fields for expression
3706 ---------------------------------
3707 -- 5.1 Sequence Of Statements --
3708 ---------------------------------
3710 -- SEQUENCE_OF_STATEMENTS ::= STATEMENT {STATEMENT}
3712 -- Note: Although the parser will not accept a declaration as a
3713 -- statement, the semantic analyzer may insert declarations (e.g.
3714 -- declarations of implicit types needed for execution of other
3715 -- statements) into a sequence of statements, so the code genmerator
3716 -- should be prepared to accept a declaration where a statement is
3717 -- expected. Note also that pragmas can appear as statements.
3719 --------------------
3721 --------------------
3724 -- {LABEL} SIMPLE_STATEMENT | {LABEL} COMPOUND_STATEMENT
3726 -- There is no explicit node in the tree for a statement. Instead, the
3727 -- individual statement appears directly. Labels are treated as a
3728 -- kind of statement, i.e. they are linked into a statement list at
3729 -- the point they appear, so the labeled statement appears following
3730 -- the label or labels in the statement list.
3732 ---------------------------
3733 -- 5.1 Simple Statement --
3734 ---------------------------
3736 -- SIMPLE_STATEMENT ::= NULL_STATEMENT
3737 -- | ASSIGNMENT_STATEMENT | EXIT_STATEMENT
3738 -- | GOTO_STATEMENT | PROCEDURE_CALL_STATEMENT
3739 -- | SIMPLE_RETURN_STATEMENT | ENTRY_CALL_STATEMENT
3740 -- | REQUEUE_STATEMENT | DELAY_STATEMENT
3741 -- | ABORT_STATEMENT | RAISE_STATEMENT
3744 -----------------------------
3745 -- 5.1 Compound Statement --
3746 -----------------------------
3748 -- COMPOUND_STATEMENT ::=
3749 -- IF_STATEMENT | CASE_STATEMENT
3750 -- | LOOP_STATEMENT | BLOCK_STATEMENT
3751 -- | EXTENDED_RETURN_STATEMENT
3752 -- | ACCEPT_STATEMENT | SELECT_STATEMENT
3754 -------------------------
3755 -- 5.1 Null Statement --
3756 -------------------------
3758 -- NULL_STATEMENT ::= null;
3761 -- Sloc points to NULL
3767 -- LABEL ::= <<label_STATEMENT_IDENTIFIER>>
3769 -- Note that the occurrence of a label is not a defining identifier,
3770 -- but rather a referencing occurrence. The defining occurrence is
3771 -- in the implicit label declaration which occurs in the innermost
3775 -- Sloc points to <<
3776 -- Identifier (Node1) direct name of statement identifier
3777 -- Exception_Junk (Flag8-Sem)
3779 -------------------------------
3780 -- 5.1 Statement Identifier --
3781 -------------------------------
3783 -- STATEMENT_INDENTIFIER ::= DIRECT_NAME
3785 -- The IDENTIFIER of a STATEMENT_IDENTIFIER shall be an identifier
3786 -- (not an OPERATOR_SYMBOL)
3788 -------------------------------
3789 -- 5.2 Assignment Statement --
3790 -------------------------------
3792 -- ASSIGNMENT_STATEMENT ::=
3793 -- variable_NAME := EXPRESSION;
3795 -- N_Assignment_Statement
3796 -- Sloc points to :=
3798 -- Expression (Node3)
3799 -- Do_Tag_Check (Flag13-Sem)
3800 -- Do_Length_Check (Flag4-Sem)
3801 -- Forwards_OK (Flag5-Sem)
3802 -- Backwards_OK (Flag6-Sem)
3803 -- No_Ctrl_Actions (Flag7-Sem)
3805 -- Note: if a range check is required, then the Do_Range_Check flag
3806 -- is set in the Expression (right hand side), with the check being
3807 -- done against the type of the Name (left hand side).
3809 -- Note: the back end places some restrictions on the form of the
3810 -- Expression field. If the object being assigned to is Atomic, then
3811 -- the Expression may not have the form of an aggregate (since this
3812 -- might cause the back end to generate separate assignments). It
3813 -- also cannot be a reference to an object marked as a true constant
3814 -- (Is_True_Constant flag set), where the object is itself initalized
3815 -- with an aggregate. If necessary the front end must generate an
3816 -- extra temporary (with Is_True_Constant set False), and initialize
3817 -- this temporary as required (the temporary itself is not atomic).
3819 -----------------------
3820 -- 5.3 If Statement --
3821 -----------------------
3824 -- if CONDITION then
3825 -- SEQUENCE_OF_STATEMENTS
3826 -- {elsif CONDITION then
3827 -- SEQUENCE_OF_STATEMENTS}
3829 -- SEQUENCE_OF_STATEMENTS]
3832 -- Gigi restriction: This expander ensures that the type of the
3833 -- Condition fields is always Standard.Boolean, even if the type
3834 -- in the source is some non-standard boolean type.
3837 -- Sloc points to IF
3838 -- Condition (Node1)
3839 -- Then_Statements (List2)
3840 -- Elsif_Parts (List3) (set to No_List if none present)
3841 -- Else_Statements (List4) (set to No_List if no else part present)
3842 -- End_Span (Uint5) (set to No_Uint if expander generated)
3845 -- Sloc points to ELSIF
3846 -- Condition (Node1)
3847 -- Then_Statements (List2)
3848 -- Condition_Actions (List3-Sem)
3850 --------------------
3852 --------------------
3854 -- CONDITION ::= boolean_EXPRESSION
3856 -------------------------
3857 -- 5.4 Case Statement --
3858 -------------------------
3860 -- CASE_STATEMENT ::=
3861 -- case EXPRESSION is
3862 -- CASE_STATEMENT_ALTERNATIVE
3863 -- {CASE_STATEMENT_ALTERNATIVE}
3866 -- Note: the Alternatives can contain pragmas. These only occur at
3867 -- the start of the list, since any pragmas occurring after the first
3868 -- alternative are absorbed into the corresponding statement sequence.
3871 -- Sloc points to CASE
3872 -- Expression (Node3)
3873 -- Alternatives (List4)
3874 -- End_Span (Uint5) (set to No_Uint if expander generated)
3876 -------------------------------------
3877 -- 5.4 Case Statement Alternative --
3878 -------------------------------------
3880 -- CASE_STATEMENT_ALTERNATIVE ::=
3881 -- when DISCRETE_CHOICE_LIST =>
3882 -- SEQUENCE_OF_STATEMENTS
3884 -- N_Case_Statement_Alternative
3885 -- Sloc points to WHEN
3886 -- Discrete_Choices (List4)
3887 -- Statements (List3)
3889 -------------------------
3890 -- 5.5 Loop Statement --
3891 -------------------------
3893 -- LOOP_STATEMENT ::=
3894 -- [loop_STATEMENT_IDENTIFIER :]
3895 -- [ITERATION_SCHEME] loop
3896 -- SEQUENCE_OF_STATEMENTS
3897 -- end loop [loop_IDENTIFIER];
3899 -- Note: The occurrence of a loop label is not a defining identifier
3900 -- but rather a referencing occurrence. The defining occurrence is in
3901 -- the implicit label declaration which occurs in the innermost
3904 -- Note: there is always a loop statement identifier present in
3905 -- the tree, even if none was given in the source. In the case where
3906 -- no loop identifier is given in the source, the parser creates
3907 -- a name of the form _Loop_n, where n is a decimal integer (the
3908 -- two underlines ensure that the loop names created in this manner
3909 -- do not conflict with any user defined identifiers), and the flag
3910 -- Has_Created_Identifier is set to True. The only exception to the
3911 -- rule that all loop statement nodes have identifiers occurs for
3912 -- loops constructed by the expander, and the semantic analyzer will
3913 -- create and supply dummy loop identifiers in these cases.
3916 -- Sloc points to LOOP
3917 -- Identifier (Node1) loop identifier (set to Empty if no identifier)
3918 -- Iteration_Scheme (Node2) (set to Empty if no iteration scheme)
3919 -- Statements (List3)
3920 -- End_Label (Node4)
3921 -- Has_Created_Identifier (Flag15)
3922 -- Is_Null_Loop (Flag16)
3924 --------------------------
3925 -- 5.5 Iteration Scheme --
3926 --------------------------
3928 -- ITERATION_SCHEME ::=
3929 -- while CONDITION | for LOOP_PARAMETER_SPECIFICATION
3931 -- Gigi restriction: This expander ensures that the type of the
3932 -- Condition field is always Standard.Boolean, even if the type
3933 -- in the source is some non-standard boolean type.
3935 -- N_Iteration_Scheme
3936 -- Sloc points to WHILE or FOR
3937 -- Condition (Node1) (set to Empty if FOR case)
3938 -- Condition_Actions (List3-Sem)
3939 -- Loop_Parameter_Specification (Node4) (set to Empty if WHILE case)
3941 ---------------------------------------
3942 -- 5.5 Loop parameter specification --
3943 ---------------------------------------
3945 -- LOOP_PARAMETER_SPECIFICATION ::=
3946 -- DEFINING_IDENTIFIER in [reverse] DISCRETE_SUBTYPE_DEFINITION
3948 -- N_Loop_Parameter_Specification
3949 -- Sloc points to first identifier
3950 -- Defining_Identifier (Node1)
3951 -- Reverse_Present (Flag15)
3952 -- Discrete_Subtype_Definition (Node4)
3954 --------------------------
3955 -- 5.6 Block Statement --
3956 --------------------------
3958 -- BLOCK_STATEMENT ::=
3959 -- [block_STATEMENT_IDENTIFIER:]
3961 -- DECLARATIVE_PART]
3963 -- HANDLED_SEQUENCE_OF_STATEMENTS
3964 -- end [block_IDENTIFIER];
3966 -- Note that the occurrence of a block identifier is not a defining
3967 -- identifier, but rather a referencing occurrence. The defining
3968 -- occurrence is an E_Block entity declared by the implicit label
3969 -- declaration which occurs in the innermost enclosing block statement
3970 -- or body; the block identifier denotes that E_Block.
3972 -- For block statements that come from source code, there is always a
3973 -- block statement identifier present in the tree, denoting an
3974 -- E_Block. In the case where no block identifier is given in the
3975 -- source, the parser creates a name of the form B_n, where n is a
3976 -- decimal integer, and the flag Has_Created_Identifier is set to
3977 -- True. Blocks constructed by the expander usually have no identifier,
3978 -- and no corresponding entity.
3980 -- Note: the block statement created for an extended return statement
3981 -- has an entity, and this entity is an E_Return_Statement, rather than
3982 -- the usual E_Block.
3984 -- Note: Exception_Junk is set for the wrapping blocks created during
3985 -- local raise optimization (Exp_Ch11.Expand_Local_Exception_Handlers).
3987 -- N_Block_Statement
3988 -- Sloc points to DECLARE or BEGIN
3989 -- Identifier (Node1) block direct name (set to Empty if not present)
3990 -- Declarations (List2) (set to No_List if no DECLARE part)
3991 -- Handled_Statement_Sequence (Node4)
3992 -- Is_Task_Master (Flag5-Sem)
3993 -- Activation_Chain_Entity (Node3-Sem)
3994 -- Has_Created_Identifier (Flag15)
3995 -- Is_Task_Allocation_Block (Flag6)
3996 -- Is_Asynchronous_Call_Block (Flag7)
3997 -- Exception_Junk (Flag8-Sem)
3999 -------------------------
4000 -- 5.7 Exit Statement --
4001 -------------------------
4003 -- EXIT_STATEMENT ::= exit [loop_NAME] [when CONDITION];
4005 -- Gigi restriction: This expander ensures that the type of the
4006 -- Condition field is always Standard.Boolean, even if the type
4007 -- in the source is some non-standard boolean type.
4010 -- Sloc points to EXIT
4011 -- Name (Node2) (set to Empty if no loop name present)
4012 -- Condition (Node1) (set to Empty if no when part present)
4014 -------------------------
4015 -- 5.9 Goto Statement --
4016 -------------------------
4018 -- GOTO_STATEMENT ::= goto label_NAME;
4021 -- Sloc points to GOTO
4023 -- Exception_Junk (Flag8-Sem)
4025 ---------------------------------
4026 -- 6.1 Subprogram Declaration --
4027 ---------------------------------
4029 -- SUBPROGRAM_DECLARATION ::= SUBPROGRAM_SPECIFICATION;
4031 -- N_Subprogram_Declaration
4032 -- Sloc points to FUNCTION or PROCEDURE
4033 -- Specification (Node1)
4034 -- Body_To_Inline (Node3-Sem)
4035 -- Corresponding_Body (Node5-Sem)
4036 -- Parent_Spec (Node4-Sem)
4038 ------------------------------------------
4039 -- 6.1 Abstract Subprogram Declaration --
4040 ------------------------------------------
4042 -- ABSTRACT_SUBPROGRAM_DECLARATION ::=
4043 -- SUBPROGRAM_SPECIFICATION is abstract;
4045 -- N_Abstract_Subprogram_Declaration
4046 -- Sloc points to ABSTRACT
4047 -- Specification (Node1)
4049 -----------------------------------
4050 -- 6.1 Subprogram Specification --
4051 -----------------------------------
4053 -- SUBPROGRAM_SPECIFICATION ::=
4054 -- [[not] overriding]
4055 -- procedure DEFINING_PROGRAM_UNIT_NAME PARAMETER_PROFILE
4056 -- | [[not] overriding]
4057 -- function DEFINING_DESIGNATOR PARAMETER_AND_RESULT_PROFILE
4059 -- Note: there are no separate nodes for the profiles, instead the
4060 -- information appears directly in the following nodes.
4062 -- N_Function_Specification
4063 -- Sloc points to FUNCTION
4064 -- Defining_Unit_Name (Node1) (the designator)
4065 -- Elaboration_Boolean (Node2-Sem)
4066 -- Parameter_Specifications (List3) (set to No_List if no formal part)
4067 -- Null_Exclusion_Present (Flag11)
4068 -- Result_Definition (Node4) for result subtype
4069 -- Generic_Parent (Node5-Sem)
4070 -- Must_Override (Flag14) set if overriding indicator present
4071 -- Must_Not_Override (Flag15) set if not_overriding indicator present
4073 -- N_Procedure_Specification
4074 -- Sloc points to PROCEDURE
4075 -- Defining_Unit_Name (Node1)
4076 -- Elaboration_Boolean (Node2-Sem)
4077 -- Parameter_Specifications (List3) (set to No_List if no formal part)
4078 -- Generic_Parent (Node5-Sem)
4079 -- Null_Present (Flag13) set for null procedure case (Ada 2005 feature)
4080 -- Must_Override (Flag14) set if overriding indicator present
4081 -- Must_Not_Override (Flag15) set if not_overriding indicator present
4083 -- Note: overriding indicator is an Ada 2005 feature
4085 ---------------------
4086 -- 6.1 Designator --
4087 ---------------------
4090 -- [PARENT_UNIT_NAME .] IDENTIFIER | OPERATOR_SYMBOL
4092 -- Designators that are simply identifiers or operator symbols appear
4093 -- directly in the tree in this form. The following node is used only
4094 -- in the case where the designator has a parent unit name component.
4097 -- Sloc points to period
4098 -- Name (Node2) holds the parent unit name. Note that this is always
4099 -- non-Empty, since this node is only used for the case where a
4100 -- parent library unit package name is present.
4101 -- Identifier (Node1)
4103 -- Note that the identifier can also be an operator symbol here
4105 ------------------------------
4106 -- 6.1 Defining Designator --
4107 ------------------------------
4109 -- DEFINING_DESIGNATOR ::=
4110 -- DEFINING_PROGRAM_UNIT_NAME | DEFINING_OPERATOR_SYMBOL
4112 -------------------------------------
4113 -- 6.1 Defining Program Unit Name --
4114 -------------------------------------
4116 -- DEFINING_PROGRAM_UNIT_NAME ::=
4117 -- [PARENT_UNIT_NAME .] DEFINING_IDENTIFIER
4119 -- The parent unit name is present only in the case of a child unit
4120 -- name (permissible only for Ada 95 for a library level unit, i.e.
4121 -- a unit at scope level one). If no such name is present, the defining
4122 -- program unit name is represented simply as the defining identifier.
4123 -- In the child unit case, the following node is used to represent the
4126 -- N_Defining_Program_Unit_Name
4127 -- Sloc points to period
4128 -- Name (Node2) holds the parent unit name. Note that this is always
4129 -- non-Empty, since this node is only used for the case where a
4130 -- parent unit name is present.
4131 -- Defining_Identifier (Node1)
4133 --------------------------
4134 -- 6.1 Operator Symbol --
4135 --------------------------
4137 -- OPERATOR_SYMBOL ::= STRING_LITERAL
4139 -- Note: the fields of the N_Operator_Symbol node are laid out to
4140 -- match the corresponding fields of an N_Character_Literal node. This
4141 -- allows easy conversion of the operator symbol node into a character
4142 -- literal node in the case where a string constant of the form of an
4143 -- operator symbol is scanned out as such, but turns out semantically
4144 -- to be a string literal that is not an operator. For details see
4145 -- Sinfo.CN.Change_Operator_Symbol_To_String_Literal.
4147 -- N_Operator_Symbol
4148 -- Sloc points to literal
4149 -- Chars (Name1) contains the Name_Id for the operator symbol
4150 -- Strval (Str3) Id of string value. This is used if the operator
4151 -- symbol turns out to be a normal string after all.
4152 -- Entity (Node4-Sem)
4153 -- Associated_Node (Node4-Sem)
4154 -- Has_Private_View (Flag11-Sem) set in generic units.
4155 -- Etype (Node5-Sem)
4157 -- Note: the Strval field may be set to No_String for generated
4158 -- operator symbols that are known not to be string literals
4161 -----------------------------------
4162 -- 6.1 Defining Operator Symbol --
4163 -----------------------------------
4165 -- DEFINING_OPERATOR_SYMBOL ::= OPERATOR_SYMBOL
4167 -- A defining operator symbol is an entity, which has additional
4168 -- fields depending on the setting of the Ekind field. These
4169 -- additional fields are defined (and access subprograms declared)
4170 -- in package Einfo.
4172 -- Note: N_Defining_Operator_Symbol is an extended node whose fields
4173 -- are deliberately layed out to match the layout of fields in an
4174 -- ordinary N_Operator_Symbol node allowing for easy alteration of
4175 -- an operator symbol node into a defining operator symbol node.
4176 -- See Sinfo.CN.Change_Operator_Symbol_To_Defining_Operator_Symbol
4177 -- for further details.
4179 -- N_Defining_Operator_Symbol
4180 -- Sloc points to literal
4181 -- Chars (Name1) contains the Name_Id for the operator symbol
4182 -- Next_Entity (Node2-Sem)
4183 -- Scope (Node3-Sem)
4184 -- Etype (Node5-Sem)
4186 ----------------------------
4187 -- 6.1 Parameter Profile --
4188 ----------------------------
4190 -- PARAMETER_PROFILE ::= [FORMAL_PART]
4192 ---------------------------------------
4193 -- 6.1 Parameter and Result Profile --
4194 ---------------------------------------
4196 -- PARAMETER_AND_RESULT_PROFILE ::=
4197 -- [FORMAL_PART] return [NULL_EXCLUSION] SUBTYPE_MARK
4198 -- | [FORMAL_PART] return ACCESS_DEFINITION
4200 -- There is no explicit node in the tree for a parameter and result
4201 -- profile. Instead the information appears directly in the parent.
4203 ----------------------
4204 -- 6.1 Formal part --
4205 ----------------------
4208 -- (PARAMETER_SPECIFICATION {; PARAMETER_SPECIFICATION})
4210 ----------------------------------
4211 -- 6.1 Parameter specification --
4212 ----------------------------------
4214 -- PARAMETER_SPECIFICATION ::=
4215 -- DEFINING_IDENTIFIER_LIST : MODE [NULL_EXCLUSION] SUBTYPE_MARK
4216 -- [:= DEFAULT_EXPRESSION]
4217 -- | DEFINING_IDENTIFIER_LIST : ACCESS_DEFINITION
4218 -- [:= DEFAULT_EXPRESSION]
4220 -- Although the syntax allows multiple identifiers in the list, the
4221 -- semantics is as though successive specifications were given with
4222 -- identical type definition and expression components. To simplify
4223 -- semantic processing, the parser represents a multiple declaration
4224 -- case as a sequence of single Specifications, using the More_Ids and
4225 -- Prev_Ids flags to preserve the original source form as described
4226 -- in the section on "Handling of Defining Identifier Lists".
4228 -- N_Parameter_Specification
4229 -- Sloc points to first identifier
4230 -- Defining_Identifier (Node1)
4231 -- In_Present (Flag15)
4232 -- Out_Present (Flag17)
4233 -- Null_Exclusion_Present (Flag11)
4234 -- Parameter_Type (Node2) subtype mark or access definition
4235 -- Expression (Node3) (set to Empty if no default expression present)
4236 -- Do_Accessibility_Check (Flag13-Sem)
4237 -- More_Ids (Flag5) (set to False if no more identifiers in list)
4238 -- Prev_Ids (Flag6) (set to False if no previous identifiers in list)
4239 -- Default_Expression (Node5-Sem)
4245 -- MODE ::= [in] | in out | out
4247 -- There is no explicit node in the tree for the Mode. Instead the
4248 -- In_Present and Out_Present flags are set in the parent node to
4249 -- record the presence of keywords specifying the mode.
4251 --------------------------
4252 -- 6.3 Subprogram Body --
4253 --------------------------
4255 -- SUBPROGRAM_BODY ::=
4256 -- SUBPROGRAM_SPECIFICATION is
4259 -- HANDLED_SEQUENCE_OF_STATEMENTS
4260 -- end [DESIGNATOR];
4262 -- N_Subprogram_Body
4263 -- Sloc points to FUNCTION or PROCEDURE
4264 -- Specification (Node1)
4265 -- Declarations (List2)
4266 -- Handled_Statement_Sequence (Node4)
4267 -- Activation_Chain_Entity (Node3-Sem)
4268 -- Corresponding_Spec (Node5-Sem)
4269 -- Acts_As_Spec (Flag4-Sem)
4270 -- Bad_Is_Detected (Flag15) used only by parser
4271 -- Do_Storage_Check (Flag17-Sem)
4272 -- Has_Priority_Pragma (Flag6-Sem)
4273 -- Is_Protected_Subprogram_Body (Flag7-Sem)
4274 -- Is_Entry_Barrier_Function (Flag8-Sem)
4275 -- Is_Task_Master (Flag5-Sem)
4276 -- Was_Originally_Stub (Flag13-Sem)
4278 -----------------------------------
4279 -- 6.4 Procedure Call Statement --
4280 -----------------------------------
4282 -- PROCEDURE_CALL_STATEMENT ::=
4283 -- procedure_NAME; | procedure_PREFIX ACTUAL_PARAMETER_PART;
4285 -- Note: the reason that a procedure call has expression fields is
4286 -- that it semantically resembles an expression, e.g. overloading is
4287 -- allowed and a type is concocted for semantic processing purposes.
4288 -- Certain of these fields, such as Parens are not relevant, but it
4289 -- is easier to just supply all of them together!
4291 -- N_Procedure_Call_Statement
4292 -- Sloc points to first token of name or prefix
4293 -- Name (Node2) stores name or prefix
4294 -- Parameter_Associations (List3) (set to No_List if no
4295 -- actual parameter part)
4296 -- First_Named_Actual (Node4-Sem)
4297 -- Controlling_Argument (Node1-Sem) (set to Empty if not dispatching)
4298 -- Do_Tag_Check (Flag13-Sem)
4299 -- No_Elaboration_Check (Flag14-Sem)
4300 -- Parameter_List_Truncated (Flag17-Sem)
4301 -- ABE_Is_Certain (Flag18-Sem)
4302 -- plus fields for expression
4304 -- If any IN parameter requires a range check, then the corresponding
4305 -- argument expression has the Do_Range_Check flag set, and the range
4306 -- check is done against the formal type. Note that this argument
4307 -- expression may appear directly in the Parameter_Associations list,
4308 -- or may be a descendent of an N_Parameter_Association node that
4309 -- appears in this list.
4311 ------------------------
4312 -- 6.4 Function Call --
4313 ------------------------
4315 -- FUNCTION_CALL ::=
4316 -- function_NAME | function_PREFIX ACTUAL_PARAMETER_PART
4318 -- Note: the parser may generate an indexed component node or simply
4319 -- a name node instead of a function call node. The semantic pass must
4320 -- correct this misidentification.
4323 -- Sloc points to first token of name or prefix
4324 -- Name (Node2) stores name or prefix
4325 -- Parameter_Associations (List3) (set to No_List if no
4326 -- actual parameter part)
4327 -- First_Named_Actual (Node4-Sem)
4328 -- Controlling_Argument (Node1-Sem) (set to Empty if not dispatching)
4329 -- Is_Expanded_Build_In_Place_Call (Flag11-Sem)
4330 -- Do_Tag_Check (Flag13-Sem)
4331 -- No_Elaboration_Check (Flag14-Sem)
4332 -- Parameter_List_Truncated (Flag17-Sem)
4333 -- ABE_Is_Certain (Flag18-Sem)
4334 -- plus fields for expression
4336 --------------------------------
4337 -- 6.4 Actual Parameter Part --
4338 --------------------------------
4340 -- ACTUAL_PARAMETER_PART ::=
4341 -- (PARAMETER_ASSOCIATION {,PARAMETER_ASSOCIATION})
4343 --------------------------------
4344 -- 6.4 Parameter Association --
4345 --------------------------------
4347 -- PARAMETER_ASSOCIATION ::=
4348 -- [formal_parameter_SELECTOR_NAME =>] EXPLICIT_ACTUAL_PARAMETER
4350 -- Note: the N_Parameter_Association node is built only if a formal
4351 -- parameter selector name is present, otherwise the parameter
4352 -- association appears in the tree simply as the node for the
4353 -- explicit actual parameter.
4355 -- N_Parameter_Association
4356 -- Sloc points to formal parameter
4357 -- Selector_Name (Node2) (always non-Empty)
4358 -- Explicit_Actual_Parameter (Node3)
4359 -- Next_Named_Actual (Node4-Sem)
4361 ---------------------------
4362 -- 6.4 Actual Parameter --
4363 ---------------------------
4365 -- EXPLICIT_ACTUAL_PARAMETER ::= EXPRESSION | variable_NAME
4367 ---------------------------
4368 -- 6.5 Return Statement --
4369 ---------------------------
4371 -- RETURN_STATEMENT ::= return [EXPRESSION]; -- Ada 95
4373 -- In Ada 2005, we have:
4375 -- SIMPLE_RETURN_STATEMENT ::= return [EXPRESSION];
4377 -- EXTENDED_RETURN_STATEMENT ::=
4378 -- return DEFINING_IDENTIFIER : [aliased] RETURN_SUBTYPE_INDICATION
4379 -- [:= EXPRESSION] [do
4380 -- HANDLED_SEQUENCE_OF_STATEMENTS
4383 -- RETURN_SUBTYPE_INDICATION ::= SUBTYPE_INDICATION | ACCESS_DEFINITION
4385 -- So in Ada 2005, RETURN_STATEMENT is no longer a nonterminal, but
4386 -- "return statement" is defined in 6.5 to mean a
4387 -- SIMPLE_RETURN_STATEMENT or an EXTENDED_RETURN_STATEMENT.
4389 -- N_Return_Statement
4390 -- Sloc points to RETURN
4391 -- Return_Statement_Entity (Node5-Sem)
4392 -- Expression (Node3) (set to Empty if no expression present)
4393 -- Storage_Pool (Node1-Sem)
4394 -- Procedure_To_Call (Node2-Sem)
4395 -- Do_Tag_Check (Flag13-Sem)
4396 -- By_Ref (Flag5-Sem)
4397 -- Comes_From_Extended_Return_Statement (Flag18-Sem)
4399 -- N_Return_Statement represents a simple_return_statement, and is
4400 -- renamed to be N_Simple_Return_Statement below. Clients should refer
4401 -- to N_Simple_Return_Statement. We retain N_Return_Statement because
4402 -- that's how gigi knows it. See also renaming of Make_Return_Statement
4403 -- as Make_Simple_Return_Statement in Sem_Util.
4405 -- Note: Return_Statement_Entity points to an E_Return_Statement
4407 -- If a range check is required, then Do_Range_Check is set on the
4408 -- Expression. The check is against the return subtype of the function.
4410 -- N_Extended_Return_Statement
4411 -- Sloc points to RETURN
4412 -- Return_Statement_Entity (Node5-Sem)
4413 -- Return_Object_Declarations (List3)
4414 -- Handled_Statement_Sequence (Node4) (set to Empty if not present)
4415 -- Storage_Pool (Node1-Sem)
4416 -- Procedure_To_Call (Node2-Sem)
4417 -- Do_Tag_Check (Flag13-Sem)
4418 -- By_Ref (Flag5-Sem)
4420 -- Note: Return_Statement_Entity points to an E_Return_Statement.
4421 -- Note that Return_Object_Declarations is a list containing the
4422 -- N_Object_Declaration -- see comment on this field above.
4423 -- The declared object will have Is_Return_Object = True.
4424 -- There is no such syntactic category as return_object_declaration
4425 -- in the RM. Return_Object_Declarations represents this portion of
4426 -- the syntax for EXTENDED_RETURN_STATEMENT:
4427 -- DEFINING_IDENTIFIER : [aliased] RETURN_SUBTYPE_INDICATION
4430 -- There are two entities associated with an extended_return_statement:
4431 -- the Return_Statement_Entity represents the statement itself, and the
4432 -- Defining_Identifier of the Object_Declaration in
4433 -- Return_Object_Declarations represents the object being
4434 -- returned. N_Simple_Return_Statement has only the former.
4436 ------------------------------
4437 -- 7.1 Package Declaration --
4438 ------------------------------
4440 -- PACKAGE_DECLARATION ::= PACKAGE_SPECIFICATION;
4442 -- Note: the activation chain entity for a package spec is used for
4443 -- all tasks declared in the package spec, or in the package body.
4445 -- N_Package_Declaration
4446 -- Sloc points to PACKAGE
4447 -- Specification (Node1)
4448 -- Corresponding_Body (Node5-Sem)
4449 -- Parent_Spec (Node4-Sem)
4450 -- Activation_Chain_Entity (Node3-Sem)
4452 --------------------------------
4453 -- 7.1 Package Specification --
4454 --------------------------------
4456 -- PACKAGE_SPECIFICATION ::=
4457 -- package DEFINING_PROGRAM_UNIT_NAME is
4458 -- {BASIC_DECLARATIVE_ITEM}
4460 -- {BASIC_DECLARATIVE_ITEM}]
4461 -- end [[PARENT_UNIT_NAME .] IDENTIFIER]
4463 -- N_Package_Specification
4464 -- Sloc points to PACKAGE
4465 -- Defining_Unit_Name (Node1)
4466 -- Visible_Declarations (List2)
4467 -- Private_Declarations (List3) (set to No_List if no private
4469 -- End_Label (Node4)
4470 -- Generic_Parent (Node5-Sem)
4471 -- Limited_View_Installed (Flag18-Sem)
4473 -----------------------
4474 -- 7.1 Package Body --
4475 -----------------------
4478 -- package body DEFINING_PROGRAM_UNIT_NAME is
4481 -- HANDLED_SEQUENCE_OF_STATEMENTS]
4482 -- end [[PARENT_UNIT_NAME .] IDENTIFIER];
4485 -- Sloc points to PACKAGE
4486 -- Defining_Unit_Name (Node1)
4487 -- Declarations (List2)
4488 -- Handled_Statement_Sequence (Node4) (set to Empty if no HSS present)
4489 -- Corresponding_Spec (Node5-Sem)
4490 -- Was_Originally_Stub (Flag13-Sem)
4492 -- Note: if a source level package does not contain a handled sequence
4493 -- of statements, then the parser supplies a dummy one with a null
4494 -- sequence of statements. Comes_From_Source will be False in this
4495 -- constructed sequence. The reason we need this is for the End_Label
4496 -- field in the HSS.
4498 -----------------------------------
4499 -- 7.4 Private Type Declaration --
4500 -----------------------------------
4502 -- PRIVATE_TYPE_DECLARATION ::=
4503 -- type DEFINING_IDENTIFIER [DISCRIMINANT_PART]
4504 -- is [[abstract] tagged] [limited] private;
4506 -- Note: TAGGED is not permitted in Ada 83 mode
4508 -- N_Private_Type_Declaration
4509 -- Sloc points to TYPE
4510 -- Defining_Identifier (Node1)
4511 -- Discriminant_Specifications (List4) (set to No_List if no
4512 -- discriminant part)
4513 -- Unknown_Discriminants_Present (Flag13) set if (<>) discriminant
4514 -- Abstract_Present (Flag4)
4515 -- Tagged_Present (Flag15)
4516 -- Limited_Present (Flag17)
4518 ----------------------------------------
4519 -- 7.4 Private Extension Declaration --
4520 ----------------------------------------
4522 -- PRIVATE_EXTENSION_DECLARATION ::=
4523 -- type DEFINING_IDENTIFIER [DISCRIMINANT_PART] is
4524 -- [abstract] [limited | synchronized]
4525 -- new ancestor_SUBTYPE_INDICATION [and INTERFACE_LIST]
4528 -- Note: LIMITED, and private extension declarations are not allowed
4531 -- N_Private_Extension_Declaration
4532 -- Sloc points to TYPE
4533 -- Defining_Identifier (Node1)
4534 -- Discriminant_Specifications (List4) (set to No_List if no
4535 -- discriminant part)
4536 -- Unknown_Discriminants_Present (Flag13) set if (<>) discriminant
4537 -- Abstract_Present (Flag4)
4538 -- Limited_Present (Flag17)
4539 -- Synchronized_Present (Flag7)
4540 -- Subtype_Indication (Node5)
4541 -- Interface_List (List2) (set to No_List if none)
4543 ---------------------
4544 -- 8.4 Use Clause --
4545 ---------------------
4547 -- USE_CLAUSE ::= USE_PACKAGE_CLAUSE | USE_TYPE_CLAUSE
4549 -----------------------------
4550 -- 8.4 Use Package Clause --
4551 -----------------------------
4553 -- USE_PACKAGE_CLAUSE ::= use package_NAME {, package_NAME};
4555 -- N_Use_Package_Clause
4556 -- Sloc points to USE
4558 -- Next_Use_Clause (Node3-Sem)
4559 -- Hidden_By_Use_Clause (Elist4-Sem)
4561 --------------------------
4562 -- 8.4 Use Type Clause --
4563 --------------------------
4565 -- USE_TYPE_CLAUSE ::= use type SUBTYPE_MARK {, SUBTYPE_MARK};
4567 -- Note: use type clause is not permitted in Ada 83 mode
4569 -- N_Use_Type_Clause
4570 -- Sloc points to USE
4571 -- Subtype_Marks (List2)
4572 -- Next_Use_Clause (Node3-Sem)
4573 -- Hidden_By_Use_Clause (Elist4-Sem)
4575 -------------------------------
4576 -- 8.5 Renaming Declaration --
4577 -------------------------------
4579 -- RENAMING_DECLARATION ::=
4580 -- OBJECT_RENAMING_DECLARATION
4581 -- | EXCEPTION_RENAMING_DECLARATION
4582 -- | PACKAGE_RENAMING_DECLARATION
4583 -- | SUBPROGRAM_RENAMING_DECLARATION
4584 -- | GENERIC_RENAMING_DECLARATION
4586 --------------------------------------
4587 -- 8.5 Object Renaming Declaration --
4588 --------------------------------------
4590 -- OBJECT_RENAMING_DECLARATION ::=
4591 -- DEFINING_IDENTIFIER :
4592 -- [NULL_EXCLUSION] SUBTYPE_MARK renames object_NAME;
4593 -- | DEFINING_IDENTIFIER :
4594 -- ACCESS_DEFINITION renames object_NAME;
4596 -- Note: Access_Definition is an optional field that gives support to
4597 -- Ada 2005 (AI-230). The parser generates nodes that have either the
4598 -- Subtype_Indication field or else the Access_Definition field.
4600 -- N_Object_Renaming_Declaration
4601 -- Sloc points to first identifier
4602 -- Defining_Identifier (Node1)
4603 -- Null_Exclusion_Present (Flag11) (set to False if not present)
4604 -- Subtype_Mark (Node4) (set to Empty if not present)
4605 -- Access_Definition (Node3) (set to Empty if not present)
4607 -- Corresponding_Generic_Association (Node5-Sem)
4609 -----------------------------------------
4610 -- 8.5 Exception Renaming Declaration --
4611 -----------------------------------------
4613 -- EXCEPTION_RENAMING_DECLARATION ::=
4614 -- DEFINING_IDENTIFIER : exception renames exception_NAME;
4616 -- N_Exception_Renaming_Declaration
4617 -- Sloc points to first identifier
4618 -- Defining_Identifier (Node1)
4621 ---------------------------------------
4622 -- 8.5 Package Renaming Declaration --
4623 ---------------------------------------
4625 -- PACKAGE_RENAMING_DECLARATION ::=
4626 -- package DEFINING_PROGRAM_UNIT_NAME renames package_NAME;
4628 -- N_Package_Renaming_Declaration
4629 -- Sloc points to PACKAGE
4630 -- Defining_Unit_Name (Node1)
4632 -- Parent_Spec (Node4-Sem)
4634 ------------------------------------------
4635 -- 8.5 Subprogram Renaming Declaration --
4636 ------------------------------------------
4638 -- SUBPROGRAM_RENAMING_DECLARATION ::=
4639 -- SUBPROGRAM_SPECIFICATION renames callable_entity_NAME;
4641 -- N_Subprogram_Renaming_Declaration
4642 -- Sloc points to RENAMES
4643 -- Specification (Node1)
4645 -- Parent_Spec (Node4-Sem)
4646 -- Corresponding_Spec (Node5-Sem)
4647 -- Corresponding_Formal_Spec (Node3-Sem)
4648 -- From_Default (Flag6-Sem)
4650 -----------------------------------------
4651 -- 8.5.5 Generic Renaming Declaration --
4652 -----------------------------------------
4654 -- GENERIC_RENAMING_DECLARATION ::=
4655 -- generic package DEFINING_PROGRAM_UNIT_NAME
4656 -- renames generic_package_NAME
4657 -- | generic procedure DEFINING_PROGRAM_UNIT_NAME
4658 -- renames generic_procedure_NAME
4659 -- | generic function DEFINING_PROGRAM_UNIT_NAME
4660 -- renames generic_function_NAME
4662 -- N_Generic_Package_Renaming_Declaration
4663 -- Sloc points to GENERIC
4664 -- Defining_Unit_Name (Node1)
4666 -- Parent_Spec (Node4-Sem)
4668 -- N_Generic_Procedure_Renaming_Declaration
4669 -- Sloc points to GENERIC
4670 -- Defining_Unit_Name (Node1)
4672 -- Parent_Spec (Node4-Sem)
4674 -- N_Generic_Function_Renaming_Declaration
4675 -- Sloc points to GENERIC
4676 -- Defining_Unit_Name (Node1)
4678 -- Parent_Spec (Node4-Sem)
4680 --------------------------------
4681 -- 9.1 Task Type Declaration --
4682 --------------------------------
4684 -- TASK_TYPE_DECLARATION ::=
4685 -- task type DEFINING_IDENTIFIER [KNOWN_DISCRIMINANT_PART]
4686 -- [is [new INTERFACE_LIST with] TASK_DEFINITITION];
4688 -- N_Task_Type_Declaration
4689 -- Sloc points to TASK
4690 -- Defining_Identifier (Node1)
4691 -- Discriminant_Specifications (List4) (set to No_List if no
4692 -- discriminant part)
4693 -- Interface_List (List2) (set to No_List if none)
4694 -- Task_Definition (Node3) (set to Empty if not present)
4695 -- Corresponding_Body (Node5-Sem)
4697 ----------------------------------
4698 -- 9.1 Single Task Declaration --
4699 ----------------------------------
4701 -- SINGLE_TASK_DECLARATION ::=
4702 -- task DEFINING_IDENTIFIER
4703 -- [is [new INTERFACE_LIST with] TASK_DEFINITITION];
4705 -- N_Single_Task_Declaration
4706 -- Sloc points to TASK
4707 -- Defining_Identifier (Node1)
4708 -- Interface_List (List2) (set to No_List if none)
4709 -- Task_Definition (Node3) (set to Empty if not present)
4711 --------------------------
4712 -- 9.1 Task Definition --
4713 --------------------------
4715 -- TASK_DEFINITION ::=
4719 -- end [task_IDENTIFIER]
4721 -- Note: as a result of semantic analysis, the list of task items can
4722 -- include implicit type declarations resulting from entry families.
4724 -- N_Task_Definition
4725 -- Sloc points to first token of task definition
4726 -- Visible_Declarations (List2)
4727 -- Private_Declarations (List3) (set to No_List if no private part)
4728 -- End_Label (Node4)
4729 -- Has_Priority_Pragma (Flag6-Sem)
4730 -- Has_Storage_Size_Pragma (Flag5-Sem)
4731 -- Has_Task_Info_Pragma (Flag7-Sem)
4732 -- Has_Task_Name_Pragma (Flag8-Sem)
4734 --------------------
4736 --------------------
4738 -- TASK_ITEM ::= ENTRY_DECLARATION | REPRESENTATION_CLAUSE
4740 --------------------
4742 --------------------
4745 -- task body task_DEFINING_IDENTIFIER is
4748 -- HANDLED_SEQUENCE_OF_STATEMENTS
4749 -- end [task_IDENTIFIER];
4751 -- Gigi restriction: This node never appears
4754 -- Sloc points to TASK
4755 -- Defining_Identifier (Node1)
4756 -- Declarations (List2)
4757 -- Handled_Statement_Sequence (Node4)
4758 -- Is_Task_Master (Flag5-Sem)
4759 -- Activation_Chain_Entity (Node3-Sem)
4760 -- Corresponding_Spec (Node5-Sem)
4761 -- Was_Originally_Stub (Flag13-Sem)
4763 -------------------------------------
4764 -- 9.4 Protected Type Declaration --
4765 -------------------------------------
4767 -- PROTECTED_TYPE_DECLARATION ::=
4768 -- protected type DEFINING_IDENTIFIER [KNOWN_DISCRIMINANT_PART]
4769 -- is [new INTERFACE_LIST with] PROTECTED_DEFINITION;
4771 -- Note: protected type declarations are not permitted in Ada 83 mode
4773 -- N_Protected_Type_Declaration
4774 -- Sloc points to PROTECTED
4775 -- Defining_Identifier (Node1)
4776 -- Discriminant_Specifications (List4) (set to No_List if no
4777 -- discriminant part)
4778 -- Interface_List (List2) (set to No_List if none)
4779 -- Protected_Definition (Node3)
4780 -- Corresponding_Body (Node5-Sem)
4782 ---------------------------------------
4783 -- 9.4 Single Protected Declaration --
4784 ---------------------------------------
4786 -- SINGLE_PROTECTED_DECLARATION ::=
4787 -- protected DEFINING_IDENTIFIER
4788 -- is [new INTERFACE_LIST with] PROTECTED_DEFINITION;
4790 -- Note: single protected declarations are not allowed in Ada 83 mode
4792 -- N_Single_Protected_Declaration
4793 -- Sloc points to PROTECTED
4794 -- Defining_Identifier (Node1)
4795 -- Interface_List (List2) (set to No_List if none)
4796 -- Protected_Definition (Node3)
4798 -------------------------------
4799 -- 9.4 Protected Definition --
4800 -------------------------------
4802 -- PROTECTED_DEFINITION ::=
4803 -- {PROTECTED_OPERATION_DECLARATION}
4805 -- {PROTECTED_ELEMENT_DECLARATION}]
4806 -- end [protected_IDENTIFIER]
4808 -- N_Protected_Definition
4809 -- Sloc points to first token of protected definition
4810 -- Visible_Declarations (List2)
4811 -- Private_Declarations (List3) (set to No_List if no private part)
4812 -- End_Label (Node4)
4813 -- Has_Priority_Pragma (Flag6-Sem)
4815 ------------------------------------------
4816 -- 9.4 Protected Operation Declaration --
4817 ------------------------------------------
4819 -- PROTECTED_OPERATION_DECLARATION ::=
4820 -- SUBPROGRAM_DECLARATION
4821 -- | ENTRY_DECLARATION
4822 -- | REPRESENTATION_CLAUSE
4824 ----------------------------------------
4825 -- 9.4 Protected Element Declaration --
4826 ----------------------------------------
4828 -- PROTECTED_ELEMENT_DECLARATION ::=
4829 -- PROTECTED_OPERATION_DECLARATION | COMPONENT_DECLARATION
4831 -------------------------
4832 -- 9.4 Protected Body --
4833 -------------------------
4835 -- PROTECTED_BODY ::=
4836 -- protected body DEFINING_IDENTIFIER is
4837 -- {PROTECTED_OPERATION_ITEM}
4838 -- end [protected_IDENTIFIER];
4840 -- Note: protected bodies are not allowed in Ada 83 mode
4842 -- Gigi restriction: This node never appears
4845 -- Sloc points to PROTECTED
4846 -- Defining_Identifier (Node1)
4847 -- Declarations (List2) protected operation items (and pragmas)
4848 -- End_Label (Node4)
4849 -- Corresponding_Spec (Node5-Sem)
4850 -- Was_Originally_Stub (Flag13-Sem)
4852 -----------------------------------
4853 -- 9.4 Protected Operation Item --
4854 -----------------------------------
4856 -- PROTECTED_OPERATION_ITEM ::=
4857 -- SUBPROGRAM_DECLARATION
4858 -- | SUBPROGRAM_BODY
4860 -- | REPRESENTATION_CLAUSE
4862 ------------------------------
4863 -- 9.5.2 Entry Declaration --
4864 ------------------------------
4866 -- ENTRY_DECLARATION ::=
4867 -- [[not] overriding]
4868 -- entry DEFINING_IDENTIFIER
4869 -- [(DISCRETE_SUBTYPE_DEFINITION)] PARAMETER_PROFILE;
4871 -- N_Entry_Declaration
4872 -- Sloc points to ENTRY
4873 -- Defining_Identifier (Node1)
4874 -- Discrete_Subtype_Definition (Node4) (set to Empty if not present)
4875 -- Parameter_Specifications (List3) (set to No_List if no formal part)
4876 -- Corresponding_Body (Node5-Sem)
4877 -- Must_Override (Flag14) set if overriding indicator present
4878 -- Must_Not_Override (Flag15) set if not_overriding indicator present
4880 -- Note: overriding indicator is an Ada 2005 feature
4882 -----------------------------
4883 -- 9.5.2 Accept statement --
4884 -----------------------------
4886 -- ACCEPT_STATEMENT ::=
4887 -- accept entry_DIRECT_NAME
4888 -- [(ENTRY_INDEX)] PARAMETER_PROFILE [do
4889 -- HANDLED_SEQUENCE_OF_STATEMENTS
4890 -- end [entry_IDENTIFIER]];
4892 -- Gigi restriction: This node never appears
4894 -- Note: there are no explicit declarations allowed in an accept
4895 -- statement. However, the implicit declarations for any statement
4896 -- identifiers (labels and block/loop identifiers) are declarations
4897 -- that belong logically to the accept statement, and that is why
4898 -- there is a Declarations field in this node.
4900 -- N_Accept_Statement
4901 -- Sloc points to ACCEPT
4902 -- Entry_Direct_Name (Node1)
4903 -- Entry_Index (Node5) (set to Empty if not present)
4904 -- Parameter_Specifications (List3) (set to No_List if no formal part)
4905 -- Handled_Statement_Sequence (Node4)
4906 -- Declarations (List2) (set to No_List if no declarations)
4908 ------------------------
4909 -- 9.5.2 Entry Index --
4910 ------------------------
4912 -- ENTRY_INDEX ::= EXPRESSION
4914 -----------------------
4915 -- 9.5.2 Entry Body --
4916 -----------------------
4919 -- entry DEFINING_IDENTIFIER ENTRY_BODY_FORMAL_PART ENTRY_BARRIER is
4922 -- HANDLED_SEQUENCE_OF_STATEMENTS
4923 -- end [entry_IDENTIFIER];
4925 -- ENTRY_BARRIER ::= when CONDITION
4927 -- Note: we store the CONDITION of the ENTRY_BARRIER in the node for
4928 -- the ENTRY_BODY_FORMAL_PART to avoid the N_Entry_Body node getting
4929 -- too full (it would otherwise have too many fields)
4931 -- Gigi restriction: This node never appears
4934 -- Sloc points to ENTRY
4935 -- Defining_Identifier (Node1)
4936 -- Entry_Body_Formal_Part (Node5)
4937 -- Declarations (List2)
4938 -- Handled_Statement_Sequence (Node4)
4939 -- Activation_Chain_Entity (Node3-Sem)
4941 -----------------------------------
4942 -- 9.5.2 Entry Body Formal Part --
4943 -----------------------------------
4945 -- ENTRY_BODY_FORMAL_PART ::=
4946 -- [(ENTRY_INDEX_SPECIFICATION)] PARAMETER_PROFILE
4948 -- Note that an entry body formal part node is present even if it is
4949 -- empty. This reflects the grammar, in which it is the components of
4950 -- the entry body formal part that are optional, not the entry body
4951 -- formal part itself. Also this means that the barrier condition
4952 -- always has somewhere to be stored.
4954 -- Gigi restriction: This node never appears
4956 -- N_Entry_Body_Formal_Part
4957 -- Sloc points to first token
4958 -- Entry_Index_Specification (Node4) (set to Empty if not present)
4959 -- Parameter_Specifications (List3) (set to No_List if no formal part)
4960 -- Condition (Node1) from entry barrier of entry body
4962 --------------------------
4963 -- 9.5.2 Entry Barrier --
4964 --------------------------
4966 -- ENTRY_BARRIER ::= when CONDITION
4968 --------------------------------------
4969 -- 9.5.2 Entry Index Specification --
4970 --------------------------------------
4972 -- ENTRY_INDEX_SPECIFICATION ::=
4973 -- for DEFINING_IDENTIFIER in DISCRETE_SUBTYPE_DEFINITION
4975 -- Gigi restriction: This node never appears
4977 -- N_Entry_Index_Specification
4978 -- Sloc points to FOR
4979 -- Defining_Identifier (Node1)
4980 -- Discrete_Subtype_Definition (Node4)
4982 ---------------------------------
4983 -- 9.5.3 Entry Call Statement --
4984 ---------------------------------
4986 -- ENTRY_CALL_STATEMENT ::= entry_NAME [ACTUAL_PARAMETER_PART];
4988 -- The parser may generate a procedure call for this construct. The
4989 -- semantic pass must correct this misidentification where needed.
4991 -- Gigi restriction: This node never appears
4993 -- N_Entry_Call_Statement
4994 -- Sloc points to first token of name
4996 -- Parameter_Associations (List3) (set to No_List if no
4997 -- actual parameter part)
4998 -- First_Named_Actual (Node4-Sem)
5000 ------------------------------
5001 -- 9.5.4 Requeue Statement --
5002 ------------------------------
5004 -- REQUEUE_STATEMENT ::= requeue entry_NAME [with abort];
5006 -- Note: requeue statements are not permitted in Ada 83 mode
5008 -- Gigi restriction: This node never appears
5010 -- N_Requeue_Statement
5011 -- Sloc points to REQUEUE
5013 -- Abort_Present (Flag15)
5015 --------------------------
5016 -- 9.6 Delay Statement --
5017 --------------------------
5019 -- DELAY_STATEMENT ::=
5020 -- DELAY_UNTIL_STATEMENT
5021 -- | DELAY_RELATIVE_STATEMENT
5023 --------------------------------
5024 -- 9.6 Delay Until Statement --
5025 --------------------------------
5027 -- DELAY_UNTIL_STATEMENT ::= delay until delay_EXPRESSION;
5029 -- Note: delay until statements are not permitted in Ada 83 mode
5031 -- Gigi restriction: This node never appears
5033 -- N_Delay_Until_Statement
5034 -- Sloc points to DELAY
5035 -- Expression (Node3)
5037 -----------------------------------
5038 -- 9.6 Delay Relative Statement --
5039 -----------------------------------
5041 -- DELAY_RELATIVE_STATEMENT ::= delay delay_EXPRESSION;
5043 -- Gigi restriction: This node never appears
5045 -- N_Delay_Relative_Statement
5046 -- Sloc points to DELAY
5047 -- Expression (Node3)
5049 ---------------------------
5050 -- 9.7 Select Statement --
5051 ---------------------------
5053 -- SELECT_STATEMENT ::=
5055 -- | TIMED_ENTRY_CALL
5056 -- | CONDITIONAL_ENTRY_CALL
5057 -- | ASYNCHRONOUS_SELECT
5059 -----------------------------
5060 -- 9.7.1 Selective Accept --
5061 -----------------------------
5063 -- SELECTIVE_ACCEPT ::=
5066 -- SELECT_ALTERNATIVE
5069 -- SELECT_ALTERNATIVE}
5071 -- SEQUENCE_OF_STATEMENTS]
5074 -- Gigi restriction: This node never appears
5076 -- Note: the guard expression, if present, appears in the node for
5077 -- the select alternative.
5079 -- N_Selective_Accept
5080 -- Sloc points to SELECT
5081 -- Select_Alternatives (List1)
5082 -- Else_Statements (List4) (set to No_List if no else part)
5088 -- GUARD ::= when CONDITION =>
5090 -- As noted above, the CONDITION that is part of a GUARD is included
5091 -- in the node for the select alernative for convenience.
5093 -------------------------------
5094 -- 9.7.1 Select Alternative --
5095 -------------------------------
5097 -- SELECT_ALTERNATIVE ::=
5098 -- ACCEPT_ALTERNATIVE
5099 -- | DELAY_ALTERNATIVE
5100 -- | TERMINATE_ALTERNATIVE
5102 -------------------------------
5103 -- 9.7.1 Accept Alternative --
5104 -------------------------------
5106 -- ACCEPT_ALTERNATIVE ::=
5107 -- ACCEPT_STATEMENT [SEQUENCE_OF_STATEMENTS]
5109 -- Gigi restriction: This node never appears
5111 -- N_Accept_Alternative
5112 -- Sloc points to ACCEPT
5113 -- Accept_Statement (Node2)
5114 -- Condition (Node1) from the guard (set to Empty if no guard present)
5115 -- Statements (List3) (set to Empty_List if no statements)
5116 -- Pragmas_Before (List4) pragmas before alt (set to No_List if none)
5117 -- Accept_Handler_Records (List5-Sem)
5119 ------------------------------
5120 -- 9.7.1 Delay Alternative --
5121 ------------------------------
5123 -- DELAY_ALTERNATIVE ::=
5124 -- DELAY_STATEMENT [SEQUENCE_OF_STATEMENTS]
5126 -- Gigi restriction: This node never appears
5128 -- N_Delay_Alternative
5129 -- Sloc points to DELAY
5130 -- Delay_Statement (Node2)
5131 -- Condition (Node1) from the guard (set to Empty if no guard present)
5132 -- Statements (List3) (set to Empty_List if no statements)
5133 -- Pragmas_Before (List4) pragmas before alt (set to No_List if none)
5135 ----------------------------------
5136 -- 9.7.1 Terminate Alternative --
5137 ----------------------------------
5139 -- TERMINATE_ALTERNATIVE ::= terminate;
5141 -- Gigi restriction: This node never appears
5143 -- N_Terminate_Alternative
5144 -- Sloc points to TERMINATE
5145 -- Condition (Node1) from the guard (set to Empty if no guard present)
5146 -- Pragmas_Before (List4) pragmas before alt (set to No_List if none)
5147 -- Pragmas_After (List5) pragmas after alt (set to No_List if none)
5149 -----------------------------
5150 -- 9.7.2 Timed Entry Call --
5151 -----------------------------
5153 -- TIMED_ENTRY_CALL ::=
5155 -- ENTRY_CALL_ALTERNATIVE
5157 -- DELAY_ALTERNATIVE
5160 -- Gigi restriction: This node never appears
5162 -- N_Timed_Entry_Call
5163 -- Sloc points to SELECT
5164 -- Entry_Call_Alternative (Node1)
5165 -- Delay_Alternative (Node4)
5167 -----------------------------------
5168 -- 9.7.2 Entry Call Alternative --
5169 -----------------------------------
5171 -- ENTRY_CALL_ALTERNATIVE ::=
5172 -- PROCEDURE_OR_ENTRY_CALL [SEQUENCE_OF_STATEMENTS]
5174 -- PROCEDURE_OR_ENTRY_CALL ::=
5175 -- PROCEDURE_CALL_STATEMENT | ENTRY_CALL_STATEMENT
5177 -- Gigi restriction: This node never appears
5179 -- N_Entry_Call_Alternative
5180 -- Sloc points to first token of entry call statement
5181 -- Entry_Call_Statement (Node1)
5182 -- Statements (List3) (set to Empty_List if no statements)
5183 -- Pragmas_Before (List4) pragmas before alt (set to No_List if none)
5185 -----------------------------------
5186 -- 9.7.3 Conditional Entry Call --
5187 -----------------------------------
5189 -- CONDITIONAL_ENTRY_CALL ::=
5191 -- ENTRY_CALL_ALTERNATIVE
5193 -- SEQUENCE_OF_STATEMENTS
5196 -- Gigi restriction: This node never appears
5198 -- N_Conditional_Entry_Call
5199 -- Sloc points to SELECT
5200 -- Entry_Call_Alternative (Node1)
5201 -- Else_Statements (List4)
5203 --------------------------------
5204 -- 9.7.4 Asynchronous Select --
5205 --------------------------------
5207 -- ASYNCHRONOUS_SELECT ::=
5209 -- TRIGGERING_ALTERNATIVE
5214 -- Note: asynchronous select is not permitted in Ada 83 mode
5216 -- Gigi restriction: This node never appears
5218 -- N_Asynchronous_Select
5219 -- Sloc points to SELECT
5220 -- Triggering_Alternative (Node1)
5221 -- Abortable_Part (Node2)
5223 -----------------------------------
5224 -- 9.7.4 Triggering Alternative --
5225 -----------------------------------
5227 -- TRIGGERING_ALTERNATIVE ::=
5228 -- TRIGGERING_STATEMENT [SEQUENCE_OF_STATEMENTS]
5230 -- Gigi restriction: This node never appears
5232 -- N_Triggering_Alternative
5233 -- Sloc points to first token of triggering statement
5234 -- Triggering_Statement (Node1)
5235 -- Statements (List3) (set to Empty_List if no statements)
5236 -- Pragmas_Before (List4) pragmas before alt (set to No_List if none)
5238 ---------------------------------
5239 -- 9.7.4 Triggering Statement --
5240 ---------------------------------
5242 -- TRIGGERING_STATEMENT ::= PROCEDURE_OR_ENTRY_CALL | DELAY_STATEMENT
5244 ---------------------------
5245 -- 9.7.4 Abortable Part --
5246 ---------------------------
5248 -- ABORTABLE_PART ::= SEQUENCE_OF_STATEMENTS
5250 -- Gigi restriction: This node never appears
5253 -- Sloc points to ABORT
5254 -- Statements (List3)
5256 --------------------------
5257 -- 9.8 Abort Statement --
5258 --------------------------
5260 -- ABORT_STATEMENT ::= abort task_NAME {, task_NAME};
5262 -- Gigi restriction: This node never appears
5264 -- N_Abort_Statement
5265 -- Sloc points to ABORT
5268 -------------------------
5269 -- 10.1.1 Compilation --
5270 -------------------------
5272 -- COMPILATION ::= {COMPILATION_UNIT}
5274 -- There is no explicit node in the tree for a compilation, since in
5275 -- general the compiler is processing only a single compilation unit
5276 -- at a time. It is possible to parse multiple units in syntax check
5277 -- only mode, but they the trees are discarded in any case.
5279 ------------------------------
5280 -- 10.1.1 Compilation Unit --
5281 ------------------------------
5283 -- COMPILATION_UNIT ::=
5284 -- CONTEXT_CLAUSE LIBRARY_ITEM
5285 -- | CONTEXT_CLAUSE SUBUNIT
5287 -- The N_Compilation_Unit node itself respresents the above syntax.
5288 -- However, there are two additional items not reflected in the above
5289 -- syntax. First we have the global declarations that are added by the
5290 -- code generator. These are outer level declarations (so they cannot
5291 -- be represented as being inside the units). An example is the wrapper
5292 -- subprograms that are created to do ABE checking. As always a list of
5293 -- declarations can contain actions as well (i.e. statements), and such
5294 -- statements are executed as part of the elaboration of the unit. Note
5295 -- that all such declarations are elaborated before the library unit.
5297 -- Similarly, certain actions need to be elaborated at the completion
5298 -- of elaboration of the library unit (notably the statement that sets
5299 -- the Boolean flag indicating that elaboration is complete).
5301 -- The third item not reflected in the syntax is pragmas that appear
5302 -- after the compilation unit. As always pragmas are a problem since
5303 -- they are not part of the formal syntax, but can be stuck into the
5304 -- source following a set of ad hoc rules, and we have to find an ad
5305 -- hoc way of sticking them into the tree. For pragmas that appear
5306 -- before the library unit, we just consider them to be part of the
5307 -- context clause, and pragmas can appear in the Context_Items list
5308 -- of the compilation unit. However, pragmas can also appear after
5309 -- the library item.
5311 -- To deal with all these problems, we create an auxiliary node for
5312 -- a compilation unit, referenced from the N_Compilation_Unit node
5313 -- that contains these three items.
5315 -- N_Compilation_Unit
5316 -- Sloc points to first token of defining unit name
5317 -- Library_Unit (Node4-Sem) corresponding/parent spec/body
5318 -- Context_Items (List1) context items and pragmas preceding unit
5319 -- Private_Present (Flag15) set if library unit has private keyword
5320 -- Unit (Node2) library item or subunit
5321 -- Aux_Decls_Node (Node5) points to the N_Compilation_Unit_Aux node
5322 -- Has_No_Elaboration_Code (Flag17-Sem)
5323 -- Body_Required (Flag13-Sem) set for spec if body is required
5324 -- Acts_As_Spec (Flag4-Sem) flag for subprogram body with no spec
5325 -- First_Inlined_Subprogram (Node3-Sem)
5327 -- N_Compilation_Unit_Aux
5328 -- Sloc is a copy of the Sloc from the N_Compilation_Unit node
5329 -- Declarations (List2) (set to No_List if no global declarations)
5330 -- Actions (List1) (set to No_List if no actions)
5331 -- Pragmas_After (List5) pragmas after unit (set to No_List if none)
5332 -- Config_Pragmas (List4) config pragmas (set to Empty_List if none)
5334 --------------------------
5335 -- 10.1.1 Library Item --
5336 --------------------------
5339 -- [private] LIBRARY_UNIT_DECLARATION
5340 -- | LIBRARY_UNIT_BODY
5341 -- | [private] LIBRARY_UNIT_RENAMING_DECLARATION
5343 -- Note: PRIVATE is not allowed in Ada 83 mode
5345 -- There is no explicit node in the tree for library item, instead
5346 -- the declaration or body, and the flag for private if present,
5347 -- appear in the N_Compilation_Unit clause.
5349 ----------------------------------------
5350 -- 10.1.1 Library Unit Declararation --
5351 ----------------------------------------
5353 -- LIBRARY_UNIT_DECLARATION ::=
5354 -- SUBPROGRAM_DECLARATION | PACKAGE_DECLARATION
5355 -- | GENERIC_DECLARATION | GENERIC_INSTANTIATION
5357 -------------------------------------------------
5358 -- 10.1.1 Library Unit Renaming Declararation --
5359 -------------------------------------------------
5361 -- LIBRARY_UNIT_RENAMING_DECLARATION ::=
5362 -- PACKAGE_RENAMING_DECLARATION
5363 -- | GENERIC_RENAMING_DECLARATION
5364 -- | SUBPROGRAM_RENAMING_DECLARATION
5366 -------------------------------
5367 -- 10.1.1 Library unit body --
5368 -------------------------------
5370 -- LIBRARY_UNIT_BODY ::= SUBPROGRAM_BODY | PACKAGE_BODY
5372 ------------------------------
5373 -- 10.1.1 Parent Unit Name --
5374 ------------------------------
5376 -- PARENT_UNIT_NAME ::= NAME
5378 ----------------------------
5379 -- 10.1.2 Context clause --
5380 ----------------------------
5382 -- CONTEXT_CLAUSE ::= {CONTEXT_ITEM}
5384 -- The context clause can include pragmas, and any pragmas that appear
5385 -- before the context clause proper (i.e. all configuration pragmas,
5386 -- also appear at the front of this list).
5388 --------------------------
5389 -- 10.1.2 Context_Item --
5390 --------------------------
5392 -- CONTEXT_ITEM ::= WITH_CLAUSE | USE_CLAUSE | WITH_TYPE_CLAUSE
5394 -------------------------
5395 -- 10.1.2 With clause --
5396 -------------------------
5399 -- with library_unit_NAME {,library_unit_NAME};
5401 -- A separate With clause is built for each name, so that we have
5402 -- a Corresponding_Spec field for each with'ed spec. The flags
5403 -- First_Name and Last_Name are used to reconstruct the exact
5404 -- source form. When a list of names appears in one with clause,
5405 -- the first name in the list has First_Name set, and the last
5406 -- has Last_Name set. If the with clause has only one name, then
5407 -- both of the flags First_Name and Last_Name are set in this name.
5409 -- Note: in the case of implicit with's that are installed by the
5410 -- Rtsfind routine, Implicit_With is set, and the Sloc is typically
5411 -- set to Standard_Location, but it is incorrect to test the Sloc
5412 -- to find out if a with clause is implicit, test the flag instead.
5415 -- Sloc points to first token of library unit name
5417 -- Library_Unit (Node4-Sem)
5418 -- Corresponding_Spec (Node5-Sem)
5419 -- First_Name (Flag5) (set to True if first name or only one name)
5420 -- Last_Name (Flag6) (set to True if last name or only one name)
5421 -- Context_Installed (Flag13-Sem)
5422 -- Elaborate_Present (Flag4-Sem)
5423 -- Elaborate_All_Present (Flag14-Sem)
5424 -- Elaborate_All_Desirable (Flag9-Sem)
5425 -- Elaborate_Desirable (Flag11-Sem)
5426 -- Private_Present (Flag15) set if with_clause has private keyword
5427 -- Implicit_With (Flag16-Sem)
5428 -- Limited_Present (Flag17) set if LIMITED is present
5429 -- Limited_View_Installed (Flag18-Sem)
5430 -- Unreferenced_In_Spec (Flag7-Sem)
5431 -- No_Entities_Ref_In_Spec (Flag8-Sem)
5433 -- Note: Limited_Present and Limited_View_Installed give support to
5434 -- Ada 2005 (AI-50217).
5435 -- Similarly, Private_Present gives support to AI-50262.
5437 ----------------------
5438 -- With_Type clause --
5439 ----------------------
5441 -- This is a GNAT extension, used to implement mutually recursive
5442 -- types declared in different packages.
5443 -- Note: this is now obsolete. The functionality of this construct
5444 -- is now implemented by the Ada 2005 Limited_with_Clause.
5446 ---------------------
5447 -- 10.2 Body stub --
5448 ---------------------
5451 -- SUBPROGRAM_BODY_STUB
5452 -- | PACKAGE_BODY_STUB
5454 -- | PROTECTED_BODY_STUB
5456 ----------------------------------
5457 -- 10.1.3 Subprogram Body Stub --
5458 ----------------------------------
5460 -- SUBPROGRAM_BODY_STUB ::=
5461 -- SUBPROGRAM_SPECIFICATION is separate;
5463 -- N_Subprogram_Body_Stub
5464 -- Sloc points to FUNCTION or PROCEDURE
5465 -- Specification (Node1)
5466 -- Library_Unit (Node4-Sem) points to the subunit
5467 -- Corresponding_Body (Node5-Sem)
5469 -------------------------------
5470 -- 10.1.3 Package Body Stub --
5471 -------------------------------
5473 -- PACKAGE_BODY_STUB ::=
5474 -- package body DEFINING_IDENTIFIER is separate;
5476 -- N_Package_Body_Stub
5477 -- Sloc points to PACKAGE
5478 -- Defining_Identifier (Node1)
5479 -- Library_Unit (Node4-Sem) points to the subunit
5480 -- Corresponding_Body (Node5-Sem)
5482 ----------------------------
5483 -- 10.1.3 Task Body Stub --
5484 ----------------------------
5486 -- TASK_BODY_STUB ::=
5487 -- task body DEFINING_IDENTIFIER is separate;
5490 -- Sloc points to TASK
5491 -- Defining_Identifier (Node1)
5492 -- Library_Unit (Node4-Sem) points to the subunit
5493 -- Corresponding_Body (Node5-Sem)
5495 ---------------------------------
5496 -- 10.1.3 Protected Body Stub --
5497 ---------------------------------
5499 -- PROTECTED_BODY_STUB ::=
5500 -- protected body DEFINING_IDENTIFIER is separate;
5502 -- Note: protected body stubs are not allowed in Ada 83 mode
5504 -- N_Protected_Body_Stub
5505 -- Sloc points to PROTECTED
5506 -- Defining_Identifier (Node1)
5507 -- Library_Unit (Node4-Sem) points to the subunit
5508 -- Corresponding_Body (Node5-Sem)
5510 ---------------------
5511 -- 10.1.3 Subunit --
5512 ---------------------
5514 -- SUBUNIT ::= separate (PARENT_UNIT_NAME) PROPER_BODY
5517 -- Sloc points to SEPARATE
5518 -- Name (Node2) is the name of the parent unit
5519 -- Proper_Body (Node1) is the subunit body
5520 -- Corresponding_Stub (Node3-Sem) is the stub declaration for the unit.
5522 ---------------------------------
5523 -- 11.1 Exception Declaration --
5524 ---------------------------------
5526 -- EXCEPTION_DECLARATION ::= DEFINING_IDENTIFIER_LIST : exception;
5528 -- For consistency with object declarations etc, the parser converts
5529 -- the case of multiple identifiers being declared to a series of
5530 -- declarations in which the expression is copied, using the More_Ids
5531 -- and Prev_Ids flags to remember the souce form as described in the
5532 -- section on "Handling of Defining Identifier Lists".
5534 -- N_Exception_Declaration
5535 -- Sloc points to EXCEPTION
5536 -- Defining_Identifier (Node1)
5537 -- Expression (Node3-Sem)
5538 -- Renaming_Exception (Node2-Sem)
5539 -- More_Ids (Flag5) (set to False if no more identifiers in list)
5540 -- Prev_Ids (Flag6) (set to False if no previous identifiers in list)
5542 ------------------------------------------
5543 -- 11.2 Handled Sequence Of Statements --
5544 ------------------------------------------
5546 -- HANDLED_SEQUENCE_OF_STATEMENTS ::=
5547 -- SEQUENCE_OF_STATEMENTS
5549 -- EXCEPTION_HANDLER
5550 -- {EXCEPTION_HANDLER}]
5552 -- cleanup_procedure_call (param, param, param, ...);]
5554 -- The AT END phrase is a GNAT extension to provide for cleanups. It is
5555 -- used only internally currently, but is considered to be syntactic.
5556 -- At the moment, the only cleanup action allowed is a single call to
5557 -- a parameterless procedure, and the Identifier field of the node is
5558 -- the procedure to be called. Also there is a current restriction
5559 -- that exception handles and a cleanup cannot be present in the same
5560 -- frame, so at least one of Exception_Handlers or the Identifier must
5563 -- Actually, more accurately, this restriction applies to the original
5564 -- source program. In the expanded tree, if the At_End_Proc field is
5565 -- present, then there will also be an exception handler of the form:
5567 -- when all others =>
5571 -- where cleanup is the procedure to be generated. The reason we do
5572 -- this is so that the front end can handle the necessary entries in
5573 -- the exception tables, and other exception handler actions required
5574 -- as part of the normal handling for exception handlers.
5576 -- The AT END cleanup handler protects only the sequence of statements
5577 -- (not the associated declarations of the parent), just like exception
5578 -- handlers. The big difference is that the cleanup procedure is called
5579 -- on either a normal or an abnormal exit from the statement sequence.
5581 -- Note: the list of Exception_Handlers can contain pragmas as well
5582 -- as actual handlers. In practice these pragmas can only occur at
5583 -- the start of the list, since any pragmas occurring later on will
5584 -- be included in the statement list of the corresponding handler.
5586 -- Note: although in the Ada syntax, the sequence of statements in
5587 -- a handled sequence of statements can only contain statements, we
5588 -- allow free mixing of declarations and statements in the resulting
5589 -- expanded tree. This is for example used to deal with the case of
5590 -- a cleanup procedure that must handle declarations as well as the
5591 -- statements of a block.
5593 -- N_Handled_Sequence_Of_Statements
5594 -- Sloc points to first token of first statement
5595 -- Statements (List3)
5596 -- End_Label (Node4) (set to Empty if expander generated)
5597 -- Exception_Handlers (List5) (set to No_List if none present)
5598 -- At_End_Proc (Node1) (set to Empty if no clean up procedure)
5599 -- First_Real_Statement (Node2-Sem)
5600 -- Zero_Cost_Handling (Flag5-Sem)
5602 -- Note: the parent always contains a Declarations field which contains
5603 -- declarations associated with the handled sequence of statements. This
5604 -- is true even in the case of an accept statement (see description of
5605 -- the N_Accept_Statement node).
5607 -- End_Label refers to the containing construct
5609 -----------------------------
5610 -- 11.2 Exception Handler --
5611 -----------------------------
5613 -- EXCEPTION_HANDLER ::=
5614 -- when [CHOICE_PARAMETER_SPECIFICATION :]
5615 -- EXCEPTION_CHOICE {| EXCEPTION_CHOICE} =>
5616 -- SEQUENCE_OF_STATEMENTS
5618 -- Note: choice parameter specification is not allowed in Ada 83 mode
5620 -- N_Exception_Handler
5621 -- Sloc points to WHEN
5622 -- Choice_Parameter (Node2) (set to Empty if not present)
5623 -- Exception_Choices (List4)
5624 -- Statements (List3)
5625 -- Exception_Label (Node5-Sem) (set to Empty of not present)
5626 -- Zero_Cost_Handling (Flag5-Sem)
5627 -- Local_Raise_Statements (Elist1-Sem) (set to No_Elist if not present)
5628 -- Local_Raise_Not_OK (Flag7-Sem)
5629 -- Has_Local_Raise (Flag8-Sem)
5631 ------------------------------------------
5632 -- 11.2 Choice parameter specification --
5633 ------------------------------------------
5635 -- CHOICE_PARAMETER_SPECIFICATION ::= DEFINING_IDENTIFIER
5637 ----------------------------
5638 -- 11.2 Exception Choice --
5639 ----------------------------
5641 -- EXCEPTION_CHOICE ::= exception_NAME | others
5643 -- Except in the case of OTHERS, no explicit node appears in the tree
5644 -- for exception choice. Instead the exception name appears directly.
5645 -- An OTHERS choice is represented by a N_Others_Choice node (see
5648 -- Note: for the exception choice created for an at end handler, the
5649 -- exception choice is an N_Others_Choice node with All_Others set.
5651 ---------------------------
5652 -- 11.3 Raise Statement --
5653 ---------------------------
5655 -- RAISE_STATEMENT ::= raise [exception_NAME];
5657 -- In Ada 2005, we have
5659 -- RAISE_STATEMENT ::= raise; | raise exception_NAME [with EXPRESSION];
5661 -- N_Raise_Statement
5662 -- Sloc points to RAISE
5663 -- Name (Node2) (set to Empty if no exception name present)
5664 -- Expression (Node3) (set to Empty if no expression present)
5665 -- From_At_End (Flag4-Sem)
5667 -------------------------------
5668 -- 12.1 Generic Declaration --
5669 -------------------------------
5671 -- GENERIC_DECLARATION ::=
5672 -- GENERIC_SUBPROGRAM_DECLARATION | GENERIC_PACKAGE_DECLARATION
5674 ------------------------------------------
5675 -- 12.1 Generic Subprogram Declaration --
5676 ------------------------------------------
5678 -- GENERIC_SUBPROGRAM_DECLARATION ::=
5679 -- GENERIC_FORMAL_PART SUBPROGRAM_SPECIFICATION;
5681 -- Note: Generic_Formal_Declarations can include pragmas
5683 -- N_Generic_Subprogram_Declaration
5684 -- Sloc points to GENERIC
5685 -- Specification (Node1) subprogram specification
5686 -- Corresponding_Body (Node5-Sem)
5687 -- Generic_Formal_Declarations (List2) from generic formal part
5688 -- Parent_Spec (Node4-Sem)
5690 ---------------------------------------
5691 -- 12.1 Generic Package Declaration --
5692 ---------------------------------------
5694 -- GENERIC_PACKAGE_DECLARATION ::=
5695 -- GENERIC_FORMAL_PART PACKAGE_SPECIFICATION;
5697 -- Note: when we do generics right, the Activation_Chain_Entity entry
5698 -- for this node can be removed (since the expander won't see generic
5699 -- units any more)???.
5701 -- Note: Generic_Formal_Declarations can include pragmas
5703 -- N_Generic_Package_Declaration
5704 -- Sloc points to GENERIC
5705 -- Specification (Node1) package specification
5706 -- Corresponding_Body (Node5-Sem)
5707 -- Generic_Formal_Declarations (List2) from generic formal part
5708 -- Parent_Spec (Node4-Sem)
5709 -- Activation_Chain_Entity (Node3-Sem)
5711 -------------------------------
5712 -- 12.1 Generic Formal Part --
5713 -------------------------------
5715 -- GENERIC_FORMAL_PART ::=
5716 -- generic {GENERIC_FORMAL_PARAMETER_DECLARATION | USE_CLAUSE}
5718 ------------------------------------------------
5719 -- 12.1 Generic Formal Parameter Declaration --
5720 ------------------------------------------------
5722 -- GENERIC_FORMAL_PARAMETER_DECLARATION ::=
5723 -- FORMAL_OBJECT_DECLARATION
5724 -- | FORMAL_TYPE_DECLARATION
5725 -- | FORMAL_SUBPROGRAM_DECLARATION
5726 -- | FORMAL_PACKAGE_DECLARATION
5728 ---------------------------------
5729 -- 12.3 Generic Instantiation --
5730 ---------------------------------
5732 -- GENERIC_INSTANTIATION ::=
5733 -- package DEFINING_PROGRAM_UNIT_NAME is
5734 -- new generic_package_NAME [GENERIC_ACTUAL_PART];
5735 -- | [[not] overriding]
5736 -- procedure DEFINING_PROGRAM_UNIT_NAME is
5737 -- new generic_procedure_NAME [GENERIC_ACTUAL_PART];
5738 -- | [[not] overriding]
5739 -- function DEFINING_DESIGNATOR is
5740 -- new generic_function_NAME [GENERIC_ACTUAL_PART];
5742 -- N_Package_Instantiation
5743 -- Sloc points to PACKAGE
5744 -- Defining_Unit_Name (Node1)
5746 -- Generic_Associations (List3) (set to No_List if no
5747 -- generic actual part)
5748 -- Parent_Spec (Node4-Sem)
5749 -- Instance_Spec (Node5-Sem)
5750 -- ABE_Is_Certain (Flag18-Sem)
5752 -- N_Procedure_Instantiation
5753 -- Sloc points to PROCEDURE
5754 -- Defining_Unit_Name (Node1)
5756 -- Parent_Spec (Node4-Sem)
5757 -- Generic_Associations (List3) (set to No_List if no
5758 -- generic actual part)
5759 -- Instance_Spec (Node5-Sem)
5760 -- Must_Override (Flag14) set if overriding indicator present
5761 -- Must_Not_Override (Flag15) set if not_overriding indicator present
5762 -- ABE_Is_Certain (Flag18-Sem)
5764 -- N_Function_Instantiation
5765 -- Sloc points to FUNCTION
5766 -- Defining_Unit_Name (Node1)
5768 -- Generic_Associations (List3) (set to No_List if no
5769 -- generic actual part)
5770 -- Parent_Spec (Node4-Sem)
5771 -- Instance_Spec (Node5-Sem)
5772 -- Must_Override (Flag14) set if overriding indicator present
5773 -- Must_Not_Override (Flag15) set if not_overriding indicator present
5774 -- ABE_Is_Certain (Flag18-Sem)
5776 -- Note: overriding indicator is an Ada 2005 feature
5778 ------------------------------
5779 -- 12.3 Generic Actual Part --
5780 ------------------------------
5782 -- GENERIC_ACTUAL_PART ::=
5783 -- (GENERIC_ASSOCIATION {, GENERIC_ASSOCIATION})
5785 -------------------------------
5786 -- 12.3 Generic Association --
5787 -------------------------------
5789 -- GENERIC_ASSOCIATION ::=
5790 -- [generic_formal_parameter_SELECTOR_NAME =>]
5792 -- Note: unlike the procedure call case, a generic association node
5793 -- is generated for every association, even if no formal is present.
5794 -- In this case the parser will leave the Selector_Name field set
5795 -- to Empty, to be filled in later by the semantic pass.
5797 -- In Ada 2005, a formal may be associated with a box, if the
5798 -- association is part of the list of actuals for a formal package.
5799 -- If the association is given by OTHERS => <>, the association is
5800 -- an N_Others_Choice.
5802 -- N_Generic_Association
5803 -- Sloc points to first token of generic association
5804 -- Selector_Name (Node2) (set to Empty if no formal
5805 -- parameter selector name)
5806 -- Explicit_Generic_Actual_Parameter (Node1) (Empty if box present)
5807 -- Box_Present (Flag15) (for formal_package associations with a box)
5809 ---------------------------------------------
5810 -- 12.3 Explicit Generic Actual Parameter --
5811 ---------------------------------------------
5813 -- EXPLICIT_GENERIC_ACTUAL_PARAMETER ::=
5814 -- EXPRESSION | variable_NAME | subprogram_NAME
5815 -- | entry_NAME | SUBTYPE_MARK | package_instance_NAME
5817 -------------------------------------
5818 -- 12.4 Formal Object Declaration --
5819 -------------------------------------
5821 -- FORMAL_OBJECT_DECLARATION ::=
5822 -- DEFINING_IDENTIFIER_LIST :
5823 -- MODE [NULL_EXCLUSION] SUBTYPE_MARK [:= DEFAULT_EXPRESSION];
5824 -- | DEFINING_IDENTIFIER_LIST :
5825 -- MODE ACCESS_DEFINITION [:= DEFAULT_EXPRESSION];
5827 -- Although the syntax allows multiple identifiers in the list, the
5828 -- semantics is as though successive declarations were given with
5829 -- identical type definition and expression components. To simplify
5830 -- semantic processing, the parser represents a multiple declaration
5831 -- case as a sequence of single declarations, using the More_Ids and
5832 -- Prev_Ids flags to preserve the original source form as described
5833 -- in the section on "Handling of Defining Identifier Lists".
5835 -- N_Formal_Object_Declaration
5836 -- Sloc points to first identifier
5837 -- Defining_Identifier (Node1)
5838 -- In_Present (Flag15)
5839 -- Out_Present (Flag17)
5840 -- Null_Exclusion_Present (Flag11) (set to False if not present)
5841 -- Subtype_Mark (Node4) (set to Empty if not present)
5842 -- Access_Definition (Node3) (set to Empty if not present)
5843 -- Default_Expression (Node5) (set to Empty if no default expression)
5844 -- More_Ids (Flag5) (set to False if no more identifiers in list)
5845 -- Prev_Ids (Flag6) (set to False if no previous identifiers in list)
5847 -----------------------------------
5848 -- 12.5 Formal Type Declaration --
5849 -----------------------------------
5851 -- FORMAL_TYPE_DECLARATION ::=
5852 -- type DEFINING_IDENTIFIER [DISCRIMINANT_PART]
5853 -- is FORMAL_TYPE_DEFINITION;
5855 -- N_Formal_Type_Declaration
5856 -- Sloc points to TYPE
5857 -- Defining_Identifier (Node1)
5858 -- Formal_Type_Definition (Node3)
5859 -- Discriminant_Specifications (List4) (set to No_List if no
5860 -- discriminant part)
5861 -- Unknown_Discriminants_Present (Flag13) set if (<>) discriminant
5863 ----------------------------------
5864 -- 12.5 Formal type definition --
5865 ----------------------------------
5867 -- FORMAL_TYPE_DEFINITION ::=
5868 -- FORMAL_PRIVATE_TYPE_DEFINITION
5869 -- | FORMAL_DERIVED_TYPE_DEFINITION
5870 -- | FORMAL_DISCRETE_TYPE_DEFINITION
5871 -- | FORMAL_SIGNED_INTEGER_TYPE_DEFINITION
5872 -- | FORMAL_MODULAR_TYPE_DEFINITION
5873 -- | FORMAL_FLOATING_POINT_DEFINITION
5874 -- | FORMAL_ORDINARY_FIXED_POINT_DEFINITION
5875 -- | FORMAL_DECIMAL_FIXED_POINT_DEFINITION
5876 -- | FORMAL_ARRAY_TYPE_DEFINITION
5877 -- | FORMAL_ACCESS_TYPE_DEFINITION
5878 -- | FORMAL_INTERFACE_TYPE_DEFINITION
5880 ---------------------------------------------
5881 -- 12.5.1 Formal Private Type Definition --
5882 ---------------------------------------------
5884 -- FORMAL_PRIVATE_TYPE_DEFINITION ::=
5885 -- [[abstract] tagged] [limited] private
5887 -- Note: TAGGED is not allowed in Ada 83 mode
5889 -- N_Formal_Private_Type_Definition
5890 -- Sloc points to PRIVATE
5891 -- Abstract_Present (Flag4)
5892 -- Tagged_Present (Flag15)
5893 -- Limited_Present (Flag17)
5895 --------------------------------------------
5896 -- 12.5.1 Formal Derived Type Definition --
5897 --------------------------------------------
5899 -- FORMAL_DERIVED_TYPE_DEFINITION ::=
5900 -- [abstract] [limited | synchronized]
5901 -- new SUBTYPE_MARK [[and INTERFACE_LIST] with private]
5902 -- Note: this construct is not allowed in Ada 83 mode
5904 -- N_Formal_Derived_Type_Definition
5905 -- Sloc points to NEW
5906 -- Subtype_Mark (Node4)
5907 -- Private_Present (Flag15)
5908 -- Abstract_Present (Flag4)
5909 -- Limited_Present (Flag17)
5910 -- Synchronized_Present (Flag7)
5911 -- Interface_List (List2) (set to No_List if none)
5913 ---------------------------------------------
5914 -- 12.5.2 Formal Discrete Type Definition --
5915 ---------------------------------------------
5917 -- FORMAL_DISCRETE_TYPE_DEFINITION ::= (<>)
5919 -- N_Formal_Discrete_Type_Definition
5922 ---------------------------------------------------
5923 -- 12.5.2 Formal Signed Integer Type Definition --
5924 ---------------------------------------------------
5926 -- FORMAL_SIGNED_INTEGER_TYPE_DEFINITION ::= range <>
5928 -- N_Formal_Signed_Integer_Type_Definition
5929 -- Sloc points to RANGE
5931 --------------------------------------------
5932 -- 12.5.2 Formal Modular Type Definition --
5933 --------------------------------------------
5935 -- FORMAL_MODULAR_TYPE_DEFINITION ::= mod <>
5937 -- N_Formal_Modular_Type_Definition
5938 -- Sloc points to MOD
5940 ----------------------------------------------
5941 -- 12.5.2 Formal Floating Point Definition --
5942 ----------------------------------------------
5944 -- FORMAL_FLOATING_POINT_DEFINITION ::= digits <>
5946 -- N_Formal_Floating_Point_Definition
5947 -- Sloc points to DIGITS
5949 ----------------------------------------------------
5950 -- 12.5.2 Formal Ordinary Fixed Point Definition --
5951 ----------------------------------------------------
5953 -- FORMAL_ORDINARY_FIXED_POINT_DEFINITION ::= delta <>
5955 -- N_Formal_Ordinary_Fixed_Point_Definition
5956 -- Sloc points to DELTA
5958 ---------------------------------------------------
5959 -- 12.5.2 Formal Decimal Fixed Point Definition --
5960 ---------------------------------------------------
5962 -- FORMAL_DECIMAL_FIXED_POINT_DEFINITION ::= delta <> digits <>
5964 -- Note: formal decimal fixed point definition not allowed in Ada 83
5966 -- N_Formal_Decimal_Fixed_Point_Definition
5967 -- Sloc points to DELTA
5969 ------------------------------------------
5970 -- 12.5.3 Formal Array Type Definition --
5971 ------------------------------------------
5973 -- FORMAL_ARRAY_TYPE_DEFINITION ::= ARRAY_TYPE_DEFINITION
5975 -------------------------------------------
5976 -- 12.5.4 Formal Access Type Definition --
5977 -------------------------------------------
5979 -- FORMAL_ACCESS_TYPE_DEFINITION ::= ACCESS_TYPE_DEFINITION
5981 ----------------------------------------------
5982 -- 12.5.5 Formal Interface Type Definition --
5983 ----------------------------------------------
5985 -- FORMAL_INTERFACE_TYPE_DEFINITION ::= INTERFACE_TYPE_DEFINITION
5987 -----------------------------------------
5988 -- 12.6 Formal Subprogram Declaration --
5989 -----------------------------------------
5991 -- FORMAL_SUBPROGRAM_DECLARATION ::=
5992 -- FORMAL_CONCRETE_SUBPROGRAM_DECLARATION
5993 -- | FORMAL_ABSTRACT_SUBPROGRAM_DECLARATION
5995 --------------------------------------------------
5996 -- 12.6 Formal Concrete Subprogram Declaration --
5997 --------------------------------------------------
5999 -- FORMAL_CONCRETE_SUBPROGRAM_DECLARATION ::=
6000 -- with SUBPROGRAM_SPECIFICATION [is SUBPROGRAM_DEFAULT];
6002 -- N_Formal_Concrete_Subprogram_Declaration
6003 -- Sloc points to WITH
6004 -- Specification (Node1)
6005 -- Default_Name (Node2) (set to Empty if no subprogram default)
6006 -- Box_Present (Flag15)
6008 -- Note: if no subprogram default is present, then Name is set
6009 -- to Empty, and Box_Present is False.
6011 --------------------------------------------------
6012 -- 12.6 Formal Abstract Subprogram Declaration --
6013 --------------------------------------------------
6015 -- FORMAL_ABSTRACT_SUBPROGRAM_DECLARATION ::=
6016 -- with SUBPROGRAM_SPECIFICATION is abstract [SUBPROGRAM_DEFAULT];
6018 -- N_Formal_Abstract_Subprogram_Declaration
6019 -- Sloc points to WITH
6020 -- Specification (Node1)
6021 -- Default_Name (Node2) (set to Empty if no subprogram default)
6022 -- Box_Present (Flag15)
6024 -- Note: if no subprogram default is present, then Name is set
6025 -- to Empty, and Box_Present is False.
6027 ------------------------------
6028 -- 12.6 Subprogram Default --
6029 ------------------------------
6031 -- SUBPROGRAM_DEFAULT ::= DEFAULT_NAME | <>
6033 -- There is no separate node in the tree for a subprogram default.
6034 -- Instead the parent (N_Formal_Concrete_Subprogram_Declaration
6035 -- or N_Formal_Abstract_Subprogram_Declaration) node contains the
6036 -- default name or box indication, as needed.
6038 ------------------------
6039 -- 12.6 Default Name --
6040 ------------------------
6042 -- DEFAULT_NAME ::= NAME
6044 --------------------------------------
6045 -- 12.7 Formal Package Declaration --
6046 --------------------------------------
6048 -- FORMAL_PACKAGE_DECLARATION ::=
6049 -- with package DEFINING_IDENTIFIER
6050 -- is new generic_package_NAME FORMAL_PACKAGE_ACTUAL_PART;
6052 -- Note: formal package declarations not allowed in Ada 83 mode
6054 -- N_Formal_Package_Declaration
6055 -- Sloc points to WITH
6056 -- Defining_Identifier (Node1)
6058 -- Generic_Associations (List3) (set to No_List if (<>) case or
6059 -- empty generic actual part)
6060 -- Box_Present (Flag15)
6061 -- Instance_Spec (Node5-Sem)
6062 -- ABE_Is_Certain (Flag18-Sem)
6064 --------------------------------------
6065 -- 12.7 Formal Package Actual Part --
6066 --------------------------------------
6068 -- FORMAL_PACKAGE_ACTUAL_PART ::=
6070 -- | [GENERIC_ACTUAL_PART]
6071 -- (FORMAL_PACKAGE_ASSOCIATION {. FORMAL_PACKAGE_ASSOCIATION}
6073 -- FORMAL_PACKAGE_ASSOCIATION ::=
6074 -- GENERIC_ASSOCIATION
6075 -- | GENERIC_FORMAL_PARAMETER_SELECTOR_NAME => <>
6077 -- There is no explicit node in the tree for a formal package actual
6078 -- part. Instead the information appears in the parent node (i.e. the
6079 -- formal package declaration node itself).
6081 -- There is no explicit node for a formal package association. All of
6082 -- them are represented either by a generic association, possibly with
6083 -- Box_Present, or by an N_Others_Choice.
6085 ---------------------------------
6086 -- 13.1 Representation clause --
6087 ---------------------------------
6089 -- REPRESENTATION_CLAUSE ::=
6090 -- ATTRIBUTE_DEFINITION_CLAUSE
6091 -- | ENUMERATION_REPRESENTATION_CLAUSE
6092 -- | RECORD_REPRESENTATION_CLAUSE
6095 ----------------------
6096 -- 13.1 Local Name --
6097 ----------------------
6101 -- | DIRECT_NAME'ATTRIBUTE_DESIGNATOR
6102 -- | library_unit_NAME
6104 -- The construct DIRECT_NAME'ATTRIBUTE_DESIGNATOR appears in the tree
6105 -- as an attribute reference, which has essentially the same form.
6107 ---------------------------------------
6108 -- 13.3 Attribute definition clause --
6109 ---------------------------------------
6111 -- ATTRIBUTE_DEFINITION_CLAUSE ::=
6112 -- for LOCAL_NAME'ATTRIBUTE_DESIGNATOR use EXPRESSION;
6113 -- | for LOCAL_NAME'ATTRIBUTE_DESIGNATOR use NAME;
6115 -- In Ada 83, the expression must be a simple expression and the
6116 -- local name must be a direct name.
6118 -- Note: the only attribute definition clause that is processed by
6119 -- gigi is an address clause. For all other cases, the information
6120 -- is extracted by the front end and either results in setting entity
6121 -- information, e.g. Esize for the Size clause, or in appropriate
6122 -- expansion actions (e.g. in the case of Storage_Size).
6124 -- For an address clause, Gigi constructs the appropriate addressing
6125 -- code. It also ensures that no aliasing optimizations are made
6126 -- for the object for which the address clause appears.
6128 -- Note: for an address clause used to achieve an overlay:
6132 -- for B'Address use A'Address;
6134 -- the above rule means that Gigi will ensure that no optimizations
6135 -- will be made for B that would violate the implementation advice
6136 -- of RM 13.3(19). However, this advice applies only to B and not
6137 -- to A, which seems unfortunate. The GNAT front end will mark the
6138 -- object A as volatile to also prevent unwanted optimization
6139 -- assumptions based on no aliasing being made for B.
6141 -- N_Attribute_Definition_Clause
6142 -- Sloc points to FOR
6143 -- Name (Node2) the local name
6144 -- Chars (Name1) the identifier name from the attribute designator
6145 -- Expression (Node3) the expression or name
6146 -- Entity (Node4-Sem)
6147 -- Next_Rep_Item (Node5-Sem)
6148 -- From_At_Mod (Flag4-Sem)
6149 -- Check_Address_Alignment (Flag11-Sem)
6150 -- Address_Warning_Posted (Flag18-Sem)
6152 ---------------------------------------------
6153 -- 13.4 Enumeration representation clause --
6154 ---------------------------------------------
6156 -- ENUMERATION_REPRESENTATION_CLAUSE ::=
6157 -- for first_subtype_LOCAL_NAME use ENUMERATION_AGGREGATE;
6159 -- In Ada 83, the name must be a direct name
6161 -- N_Enumeration_Representation_Clause
6162 -- Sloc points to FOR
6163 -- Identifier (Node1) direct name
6164 -- Array_Aggregate (Node3)
6165 -- Next_Rep_Item (Node5-Sem)
6167 ---------------------------------
6168 -- 13.4 Enumeration aggregate --
6169 ---------------------------------
6171 -- ENUMERATION_AGGREGATE ::= ARRAY_AGGREGATE
6173 ------------------------------------------
6174 -- 13.5.1 Record representation clause --
6175 ------------------------------------------
6177 -- RECORD_REPRESENTATION_CLAUSE ::=
6178 -- for first_subtype_LOCAL_NAME use
6179 -- record [MOD_CLAUSE]
6180 -- {COMPONENT_CLAUSE}
6183 -- Gigi restriction: Mod_Clause is always Empty (if present it is
6184 -- replaced by a corresponding Alignment attribute definition clause).
6186 -- Note: Component_Clauses can include pragmas
6188 -- N_Record_Representation_Clause
6189 -- Sloc points to FOR
6190 -- Identifier (Node1) direct name
6191 -- Mod_Clause (Node2) (set to Empty if no mod clause present)
6192 -- Component_Clauses (List3)
6193 -- Next_Rep_Item (Node5-Sem)
6195 ------------------------------
6196 -- 13.5.1 Component clause --
6197 ------------------------------
6199 -- COMPONENT_CLAUSE ::=
6200 -- component_LOCAL_NAME at POSITION
6201 -- range FIRST_BIT .. LAST_BIT;
6203 -- N_Component_Clause
6204 -- Sloc points to AT
6205 -- Component_Name (Node1) points to Name or Attribute_Reference
6207 -- First_Bit (Node3)
6210 ----------------------
6211 -- 13.5.1 Position --
6212 ----------------------
6214 -- POSITION ::= static_EXPRESSION
6216 -----------------------
6217 -- 13.5.1 First_Bit --
6218 -----------------------
6220 -- FIRST_BIT ::= static_SIMPLE_EXPRESSION
6222 ----------------------
6223 -- 13.5.1 Last_Bit --
6224 ----------------------
6226 -- LAST_BIT ::= static_SIMPLE_EXPRESSION
6228 --------------------------
6229 -- 13.8 Code statement --
6230 --------------------------
6232 -- CODE_STATEMENT ::= QUALIFIED_EXPRESSION;
6234 -- Note: in GNAT, the qualified expression has the form
6236 -- Asm_Insn'(Asm (...));
6238 -- See package System.Machine_Code in file s-maccod.ads for details on
6239 -- the allowed parameters to Asm. There are two ways this node can
6240 -- arise, as a code statement, in which case the expression is the
6241 -- qualified expression, or as a result of the expansion of an intrinsic
6242 -- call to the Asm or Asm_Input procedure.
6245 -- Sloc points to first token of the expression
6246 -- Expression (Node3)
6248 -- Note: package Exp_Code contains an abstract functional interface
6249 -- for use by Gigi in accessing the data from N_Code_Statement nodes.
6251 ------------------------
6252 -- 13.12 Restriction --
6253 ------------------------
6256 -- restriction_IDENTIFIER
6257 -- | restriction_parameter_IDENTIFIER => EXPRESSION
6259 -- There is no explicit node for restrictions. Instead the restriction
6260 -- appears in normal pragma syntax as a pragma argument association,
6261 -- which has the same syntactic form.
6263 --------------------------
6264 -- B.2 Shift Operators --
6265 --------------------------
6267 -- Calls to the intrinsic shift functions are converted to one of
6268 -- the following shift nodes, which have the form of normal binary
6269 -- operator names. Note that for a given shift operation, one node
6270 -- covers all possible types, as for normal operators.
6272 -- Note: it is perfectly permissible for the expander to generate
6273 -- shift operation nodes directly, in which case they will be analyzed
6274 -- and parsed in the usual manner.
6276 -- Sprint syntax: shift-function-name!(expr, count)
6278 -- Note: the Left_Opnd field holds the first argument (the value to
6279 -- be shifted). The Right_Opnd field holds the second argument (the
6280 -- shift count). The Chars field is the name of the intrinsic function.
6283 -- Sloc points to the function name
6284 -- plus fields for binary operator
6285 -- plus fields for expression
6286 -- Shift_Count_OK (Flag4-Sem)
6288 -- N_Op_Rotate_Right
6289 -- Sloc points to the function name
6290 -- plus fields for binary operator
6291 -- plus fields for expression
6292 -- Shift_Count_OK (Flag4-Sem)
6295 -- Sloc points to the function name
6296 -- plus fields for binary operator
6297 -- plus fields for expression
6298 -- Shift_Count_OK (Flag4-Sem)
6300 -- N_Op_Shift_Right_Arithmetic
6301 -- Sloc points to the function name
6302 -- plus fields for binary operator
6303 -- plus fields for expression
6304 -- Shift_Count_OK (Flag4-Sem)
6307 -- Sloc points to the function name
6308 -- plus fields for binary operator
6309 -- plus fields for expression
6310 -- Shift_Count_OK (Flag4-Sem)
6312 --------------------------
6313 -- Obsolescent Features --
6314 --------------------------
6316 -- The syntax descriptions and tree nodes for obsolescent features are
6317 -- grouped together, corresponding to their location in appendix I in
6318 -- the RM. However, parsing and semantic analysis for these constructs
6319 -- is located in an appropriate chapter (see individual notes).
6321 ---------------------------
6322 -- J.3 Delta Constraint --
6323 ---------------------------
6325 -- Note: the parse routine for this construct is located in section
6326 -- 3.5.9 of Par-Ch3, and semantic analysis is in Sem_Ch3, which is
6327 -- where delta constraint logically belongs.
6329 -- DELTA_CONSTRAINT ::= DELTA static_EXPRESSION [RANGE_CONSTRAINT]
6331 -- N_Delta_Constraint
6332 -- Sloc points to DELTA
6333 -- Delta_Expression (Node3)
6334 -- Range_Constraint (Node4) (set to Empty if not present)
6336 --------------------
6338 --------------------
6340 -- AT_CLAUSE ::= for DIRECT_NAME use at EXPRESSION;
6342 -- Note: the parse routine for this construct is located in Par-Ch13,
6343 -- and the semantic analysis is in Sem_Ch13, where at clause logically
6344 -- belongs if it were not obsolescent.
6346 -- Note: in Ada 83 the expression must be a simple expression
6348 -- Gigi restriction: This node never appears, it is rewritten as an
6349 -- address attribute definition clause.
6352 -- Sloc points to FOR
6353 -- Identifier (Node1)
6354 -- Expression (Node3)
6356 ---------------------
6357 -- J.8 Mod clause --
6358 ---------------------
6360 -- MOD_CLAUSE ::= at mod static_EXPRESSION;
6362 -- Note: the parse routine for this construct is located in Par-Ch13,
6363 -- and the semantic analysis is in Sem_Ch13, where mod clause logically
6364 -- belongs if it were not obsolescent.
6366 -- Note: in Ada 83, the expression must be a simple expression
6368 -- Gigi restriction: this node never appears. It is replaced
6369 -- by a corresponding Alignment attribute definition clause.
6371 -- Note: pragmas can appear before and after the MOD_CLAUSE since
6372 -- its name has "clause" in it. This is rather strange, but is quite
6373 -- definitely specified. The pragmas before are collected in the
6374 -- Pragmas_Before field of the mod clause node itself, and pragmas
6375 -- after are simply swallowed up in the list of component clauses.
6378 -- Sloc points to AT
6379 -- Expression (Node3)
6380 -- Pragmas_Before (List4) Pragmas before mod clause (No_List if none)
6382 --------------------
6383 -- Semantic Nodes --
6384 --------------------
6386 -- These semantic nodes are used to hold additional semantic information.
6387 -- They are inserted into the tree as a result of semantic processing.
6388 -- Although there are no legitimate source syntax constructions that
6389 -- correspond directly to these nodes, we need a source syntax for the
6390 -- reconstructed tree printed by Sprint, and the node descriptions here
6391 -- show this syntax.
6393 ----------------------------
6394 -- Conditional Expression --
6395 ----------------------------
6397 -- This node is used to represent an expression corresponding to the
6398 -- C construct (condition ? then-expression : else_expression), where
6399 -- Expressions is a three element list, whose first expression is the
6400 -- condition, and whose second and third expressions are the then and
6401 -- else expressions respectively.
6403 -- Note: the Then_Actions and Else_Actions fields are always set to
6404 -- No_List in the tree passed to Gigi. These fields are used only
6405 -- for temporary processing purposes in the expander.
6407 -- Sprint syntax: (if expr then expr else expr)
6409 -- N_Conditional_Expression
6410 -- Sloc points to related node
6411 -- Expressions (List1)
6412 -- Then_Actions (List2-Sem)
6413 -- Else_Actions (List3-Sem)
6414 -- plus fields for expression
6416 -- Note: in the case where a debug source file is generated, the Sloc
6417 -- for this node points to the IF keyword in the Sprint file output.
6423 -- The N_Expanded_Name node is used to represent a selected component
6424 -- name that has been resolved to an expanded name. The semantic phase
6425 -- replaces N_Selected_Component nodes that represent names by the use
6426 -- of this node, leaving the N_Selected_Component node used only when
6427 -- the prefix is a record or protected type.
6429 -- The fields of the N_Expanded_Name node are layed out identically
6430 -- to those of the N_Selected_Component node, allowing conversion of
6431 -- an expanded name node to a selected component node to be done
6432 -- easily, see Sinfo.CN.Change_Selected_Component_To_Expanded_Name.
6434 -- There is no special sprint syntax for an expanded name
6437 -- Sloc points to the period
6438 -- Chars (Name1) copy of Chars field of selector name
6440 -- Selector_Name (Node2)
6441 -- Entity (Node4-Sem)
6442 -- Associated_Node (Node4-Sem)
6443 -- Redundant_Use (Flag13-Sem)
6444 -- Has_Private_View (Flag11-Sem) set in generic units.
6445 -- plus fields for expression
6447 --------------------
6448 -- Free Statement --
6449 --------------------
6451 -- The N_Free_Statement node is generated as a result of a call to an
6452 -- instantiation of Unchecked_Deallocation. The instantiation of this
6453 -- generic is handled specially and generates this node directly.
6455 -- Sprint syntax: free expression
6458 -- Sloc is copied from the unchecked deallocation call
6459 -- Expression (Node3) argument to unchecked deallocation call
6460 -- Storage_Pool (Node1-Sem)
6461 -- Procedure_To_Call (Node2-Sem)
6462 -- Actual_Designated_Subtype (Node4-Sem)
6464 -- Note: in the case where a debug source file is generated, the Sloc
6465 -- for this node points to the FREE keyword in the Sprint file output.
6471 -- This node marks the point in a declarative part at which an entity
6472 -- declared therein becomes frozen. The expander places initialization
6473 -- procedures for types at those points. Gigi uses the freezing point
6474 -- to elaborate entities that may depend on previous private types.
6476 -- See the section in Einfo "Delayed Freezing and Elaboration" for
6477 -- a full description of the use of this node.
6479 -- The Entity field points back to the entity for the type (whose
6480 -- Freeze_Node field points back to this freeze node).
6482 -- The Actions field contains a list of declarations and statements
6483 -- generated by the expander which are associated with the freeze
6484 -- node, and are elaborated as though the freeze node were replaced
6485 -- by this sequence of actions.
6487 -- Note: the Sloc field in the freeze node references a construct
6488 -- associated with the freezing point. This is used for posting
6489 -- messages in some error/warning situations, e.g. the case where
6490 -- a primitive operation of a tagged type is declared too late.
6492 -- Sprint syntax: freeze entity-name [
6497 -- Sloc points near freeze point (see above special note)
6498 -- Entity (Node4-Sem)
6499 -- Access_Types_To_Process (Elist2-Sem) (set to No_Elist if none)
6500 -- TSS_Elist (Elist3-Sem) (set to No_Elist if no associated TSS's)
6501 -- Actions (List1) (set to No_List if no freeze actions)
6502 -- First_Subtype_Link (Node5-Sem) (set to Empty if no link)
6504 -- The Actions field holds actions associated with the freeze. These
6505 -- actions are elaborated at the point where the type is frozen.
6507 -- Note: in the case where a debug source file is generated, the Sloc
6508 -- for this node points to the FREEZE keyword in the Sprint file output.
6510 --------------------------------
6511 -- Implicit Label Declaration --
6512 --------------------------------
6514 -- An implicit label declaration is created for every occurrence of a
6515 -- label on a statement or a label on a block or loop. It is chained
6516 -- in the declarations of the innermost enclosing block as specified
6517 -- in RM section 5.1 (3).
6519 -- The Defining_Identifier is the actual identifier for the
6520 -- statement identifier. Note that the occurrence of the label
6521 -- is a reference, NOT the defining occurrence. The defining
6522 -- occurrence occurs at the head of the innermost enclosing
6523 -- block, and is represented by this node.
6525 -- Note: from the grammar, this might better be called an implicit
6526 -- statement identifier declaration, but the term we choose seems
6527 -- friendlier, since at least informally statement identifiers are
6528 -- called labels in both cases (i.e. when used in labels, and when
6529 -- used as the identifiers of blocks and loops).
6531 -- Note: although this is logically a semantic node, since it does
6532 -- not correspond directly to a source syntax construction, these
6533 -- nodes are actually created by the parser in a post pass done just
6534 -- after parsing is complete, before semantic analysis is started (see
6535 -- the Par.Labl subunit in file par-labl.adb).
6537 -- Sprint syntax: labelname : label;
6539 -- N_Implicit_Label_Declaration
6540 -- Sloc points to the << of the label
6541 -- Defining_Identifier (Node1)
6542 -- Label_Construct (Node2-Sem)
6544 -- Note: in the case where a debug source file is generated, the Sloc
6545 -- for this node points to the label name in the generated declaration.
6547 ---------------------
6548 -- Itype_Reference --
6549 ---------------------
6551 -- This node is used to create a reference to an Itype. The only
6552 -- purpose is to make sure that the Itype is defined if this is the
6555 -- A typical use of this node is when an Itype is to be referenced in
6556 -- two branches of an if statement. In this case it is important that
6557 -- the first use of the Itype not be inside the conditional, since
6558 -- then it might not be defined if the wrong branch of the if is
6559 -- taken in the case where the definition generates elaboration code.
6561 -- The Itype field points to the referenced Itype
6563 -- sprint syntax: reference itype-name
6565 -- N_Itype_Reference
6566 -- Sloc points to the node generating the reference
6567 -- Itype (Node1-Sem)
6569 -- Note: in the case where a debug source file is generated, the Sloc
6570 -- for this node points to the REFERENCE keyword in the file output.
6572 ---------------------
6573 -- Raise_xxx_Error --
6574 ---------------------
6576 -- One of these nodes is created during semantic analysis to replace
6577 -- a node for an expression that is determined to definitely raise
6578 -- the corresponding exception.
6580 -- The N_Raise_xxx_Error node may also stand alone in place
6581 -- of a declaration or statement, in which case it simply causes
6582 -- the exception to be raised (i.e. it is equivalent to a raise
6583 -- statement that raises the corresponding exception). This use
6584 -- is distinguished by the fact that the Etype in this case is
6585 -- Standard_Void_Type, In the subexprssion case, the Etype is the
6586 -- same as the type of the subexpression which it replaces.
6588 -- If Condition is empty, then the raise is unconditional. If the
6589 -- Condition field is non-empty, it is a boolean expression which
6590 -- is first evaluated, and the exception is raised only if the
6591 -- value of the expression is True. In the unconditional case, the
6592 -- creation of this node is usually accompanied by a warning message
6593 -- error. The creation of this node will usually be accompanied by a
6594 -- message (unless it appears within the right operand of a short
6595 -- circuit form whose left argument is static and decisively
6596 -- eliminates elaboration of the raise operation. The condition field
6597 -- can ONLY be present when the node is used as a statement form, it
6598 -- may NOT be present in the case where the node appears within an
6601 -- The exception is generated with a message that contains the
6602 -- file name and line number, and then appended text. The Reason
6603 -- code shows the text to be added. The Reason code is an element
6604 -- of the type Types.RT_Exception_Code, and indicates both the
6605 -- message to be added, and the exception to be raised (which must
6606 -- match the node type). The value is stored by storing a Uint which
6607 -- is the Pos value of the enumeration element in this type.
6609 -- Gigi restriction: This expander ensures that the type of the
6610 -- Condition field is always Standard.Boolean, even if the type
6611 -- in the source is some non-standard boolean type.
6613 -- Sprint syntax: [xxx_error "msg"]
6614 -- or: [xxx_error when condition "msg"]
6616 -- N_Raise_Constraint_Error
6617 -- Sloc references related construct
6618 -- Condition (Node1) (set to Empty if no condition)
6620 -- plus fields for expression
6622 -- N_Raise_Program_Error
6623 -- Sloc references related construct
6624 -- Condition (Node1) (set to Empty if no condition)
6626 -- plus fields for expression
6628 -- N_Raise_Storage_Error
6629 -- Sloc references related construct
6630 -- Condition (Node1) (set to Empty if no condition)
6632 -- plus fields for expression
6634 -- Note: Sloc is copied from the expression generating the exception.
6635 -- In the case where a debug source file is generated, the Sloc for
6636 -- this node points to the left bracket in the Sprint file output.
6638 -- Note: the back end may be required to translate these nodes into
6639 -- appropriate goto statements. See description of N_Push/Pop_xxx_Label.
6641 ---------------------------------------------
6642 -- Optimization of Exception Raise to Goto --
6643 ---------------------------------------------
6645 -- In some cases, the front end will determine that any exception raised
6646 -- by the back end for a certain exception should be transformed into a
6649 -- There are three kinds of exceptions raised by the back end (note that
6650 -- for this purpose we consider gigi to be part of the back end in the
6653 -- 1. Exceptions resulting from N_Raise_xxx_Error nodes
6654 -- 2. Exceptions from checks triggered by Do_xxx_Check flags
6655 -- 3. Other cases not specifically marked by the front end
6657 -- Normally all such exceptions are translated into calls to the proper
6658 -- Rcheck_xx procedure, where xx encodes both the exception to be raised
6659 -- and the exception message.
6661 -- The front end may determine that for a particular sequence of code,
6662 -- exceptions in any of these three categories for a particular builtin
6663 -- exception should result in a goto, rather than a call to Rcheck_xx.
6664 -- The exact sequence to be generated is:
6666 -- Local_Raise (exception'Identity);
6669 -- The front end marks such a sequence of code by bracketing it with
6670 -- push and pop nodes:
6672 -- N_Push_xxx_Label (referencing the label)
6674 -- (code where transformation is expected for exception xxx)
6678 -- The use of push/pop reflects the fact that such regions can properly
6679 -- nest, and one special case is a subregion in which no transformation
6680 -- is allowed. Such a region is marked by a N_Push_xxx_Label node whose
6681 -- Exception_Label field is Empty.
6683 -- N_Push_Constraint_Error_Label
6684 -- Sloc references first statement in region covered
6685 -- Exception_Label (Node5-Sem)
6687 -- N_Push_Program_Error_Label
6688 -- Sloc references first statement in region covered
6689 -- Exception_Label (Node5-Sem)
6691 -- N_Push_Storage_Error_Label
6692 -- Sloc references first statement in region covered
6693 -- Exception_Label (Node5-Sem)
6695 -- N_Pop_Constraint_Error_Label
6696 -- Sloc references last statement in region covered
6698 -- N_Pop_Program_Error_Label
6699 -- Sloc references last statement in region covered
6701 -- N_Pop_Storage_Error_Label
6702 -- Sloc references last statement in region covered
6708 -- For a number of purposes, we need to construct references to objects.
6709 -- These references are subsequently treated as normal access values.
6710 -- An example is the construction of the parameter block passed to a
6711 -- task entry. The N_Reference node is provided for this purpose. It is
6712 -- similar in effect to the use of the Unrestricted_Access attribute,
6713 -- and like Unrestricted_Access can be applied to objects which would
6714 -- not be valid prefixes for the Unchecked_Access attribute (e.g.
6715 -- objects which are not aliased, and slices). In addition it can be
6716 -- applied to composite type values as well as objects, including string
6717 -- values and aggregates.
6719 -- Note: we use the Prefix field for this expression so that the
6720 -- resulting node can be treated using common code with the attribute
6721 -- nodes for the 'Access and related attributes. Logically it would make
6722 -- more sense to call it an Expression field, but then we would have to
6723 -- special case the treatment of the N_Reference node.
6725 -- Sprint syntax: prefix'reference
6728 -- Sloc is copied from the expression
6730 -- plus fields for expression
6732 -- Note: in the case where a debug source file is generated, the Sloc
6733 -- for this node points to the quote in the Sprint file output.
6735 ---------------------
6736 -- Subprogram_Info --
6737 ---------------------
6739 -- This node generates the appropriate Subprogram_Info value for a
6740 -- given procedure. See Ada.Exceptions for further details
6742 -- Sprint syntax: subprog'subprogram_info
6744 -- N_Subprogram_Info
6745 -- Sloc points to the entity for the procedure
6746 -- Identifier (Node1) identifier referencing the procedure
6747 -- Etype (Node5-Sem) type (always set to Ada.Exceptions.Code_Loc
6749 -- Note: in the case where a debug source file is generated, the Sloc
6750 -- for this node points to the quote in the Sprint file output.
6752 --------------------------
6753 -- Unchecked Expression --
6754 --------------------------
6756 -- An unchecked expression is one that must be analyzed and resolved
6757 -- with all checks off, regardless of the current setting of scope
6760 -- Sprint syntax: `(expression)
6762 -- Note: this node is always removed from the tree (and replaced by
6763 -- its constituent expression) on completion of analysis, so it only
6764 -- appears in intermediate trees, and will never be seen by Gigi.
6766 -- N_Unchecked_Expression
6767 -- Sloc is a copy of the Sloc of the expression
6768 -- Expression (Node3)
6769 -- plus fields for expression
6771 -- Note: in the case where a debug source file is generated, the Sloc
6772 -- for this node points to the back quote in the Sprint file output.
6774 -------------------------------
6775 -- Unchecked Type Conversion --
6776 -------------------------------
6778 -- An unchecked type conversion node represents the semantic action
6779 -- corresponding to a call to an instantiation of Unchecked_Conversion.
6780 -- It is generated as a result of actual use of Unchecked_Conversion
6781 -- and also the expander generates unchecked type conversion nodes
6782 -- directly for expansion of complex semantic actions.
6784 -- Note: an unchecked type conversion is a variable as far as the
6785 -- semantics are concerned, which is convenient for the expander.
6786 -- This does not change what Ada source programs are legal, since
6787 -- clearly a function call to an instantiation of Unchecked_Conversion
6788 -- is not a variable in any case.
6790 -- Sprint syntax: subtype-mark!(expression)
6792 -- N_Unchecked_Type_Conversion
6793 -- Sloc points to related node in source
6794 -- Subtype_Mark (Node4)
6795 -- Expression (Node3)
6796 -- Kill_Range_Check (Flag11-Sem)
6797 -- No_Truncation (Flag17-Sem)
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 exclamation in the Sprint file output.
6803 -----------------------------------
6804 -- Validate_Unchecked_Conversion --
6805 -----------------------------------
6807 -- The front end does most of the validation of unchecked conversion,
6808 -- including checking sizes (this is done after the back end is called
6809 -- to take advantage of back-annotation of calculated sizes).
6811 -- The front end also deals with specific cases that are not allowed
6812 -- e.g. involving unconstrained array types.
6814 -- For the case of the standard gigi backend, this means that all
6815 -- checks are done in the front-end.
6817 -- However, in the case of specialized back-ends, notably the JVM
6818 -- backend for JGNAT, additional requirements and restrictions apply
6819 -- to unchecked conversion, and these are most conveniently performed
6820 -- in the specialized back-end.
6822 -- To accommodate this requirement, for such back ends, the following
6823 -- special node is generated recording an unchecked conversion that
6824 -- needs to be validated. The back end should post an appropriate
6825 -- error message if the unchecked conversion is invalid or warrants
6826 -- a special warning message.
6828 -- Source_Type and Target_Type point to the entities for the two
6829 -- types involved in the unchecked conversion instantiation that
6830 -- is to be validated.
6832 -- Sprint syntax: validate Unchecked_Conversion (source, target);
6834 -- N_Validate_Unchecked_Conversion
6835 -- Sloc points to instantiation (location for warning message)
6836 -- Source_Type (Node1-Sem)
6837 -- Target_Type (Node2-Sem)
6839 -- Note: in the case where a debug source file is generated, the Sloc
6840 -- for this node points to the VALIDATE keyword in the file output.
6846 -- Used as the contents of the Nkind field of the dummy Empty node
6847 -- and in some other situations to indicate an uninitialized value.
6850 -- Chars (Name1) is set to No_Name
6856 -- Used as the contents of the Nkind field of the dummy Error node.
6857 -- Has an Etype field, which gets set to Any_Type later on, to help
6858 -- error recovery (Error_Posted is also set in the Error node).
6861 -- Chars (Name1) is set to Error_Name
6862 -- Etype (Node5-Sem)
6864 --------------------------
6865 -- Node Type Definition --
6866 --------------------------
6868 -- The following is the definition of the Node_Kind type. As previously
6869 -- discussed, this is separated off to allow rearrangement of the order
6870 -- to facilitiate definition of subtype ranges. The comments show the
6871 -- subtype classes which apply to each set of node kinds. The first
6872 -- entry in the comment characterizes the following list of nodes.
6877 -- N_Representation_Clause
6881 N_Enumeration_Representation_Clause,
6883 N_Record_Representation_Clause,
6885 -- N_Representation_Clause, N_Has_Chars
6887 N_Attribute_Definition_Clause,
6892 N_Pragma_Argument_Association,
6898 -- N_Entity, N_Has_Etype, N_Has_Chars
6900 N_Defining_Character_Literal,
6901 N_Defining_Identifier,
6902 N_Defining_Operator_Symbol,
6904 -- N_Subexpr, N_Has_Etype, N_Has_Chars, N_Has_Entity
6908 -- N_Direct_Name, N_Subexpr, N_Has_Etype,
6909 -- N_Has_Chars, N_Has_Entity
6914 -- N_Direct_Name, N_Subexpr, N_Has_Etype,
6915 -- N_Has_Chars, N_Has_Entity
6917 N_Character_Literal,
6919 -- N_Binary_Op, N_Op, N_Subexpr,
6920 -- N_Has_Etype, N_Has_Chars, N_Has_Entity
6927 -- N_Binary_Op, N_Op, N_Subexpr, N_Has_Treat_Fixed_As_Integer
6928 -- N_Has_Etype, N_Has_Chars, N_Has_Entity, N_Multiplying_Operator
6935 -- N_Binary_Op, N_Op, N_Subexpr, N_Has_Etype
6936 -- N_Has_Entity, N_Has_Chars, N_Op_Boolean
6940 -- N_Binary_Op, N_Op, N_Subexpr, N_Has_Etype
6941 -- N_Has_Entity, N_Has_Chars, N_Op_Boolean, N_Op_Compare
6950 -- N_Binary_Op, N_Op, N_Subexpr, N_Has_Etype
6951 -- N_Has_Entity, N_Has_Chars, N_Op_Boolean
6956 -- N_Binary_Op, N_Op, N_Subexpr, N_Has_Etype,
6957 -- N_Op_Shift, N_Has_Chars, N_Has_Entity
6963 N_Op_Shift_Right_Arithmetic,
6965 -- N_Unary_Op, N_Op, N_Subexpr, N_Has_Etype,
6966 -- N_Has_Chars, N_Has_Entity
6973 -- N_Subexpr, N_Has_Etype, N_Has_Entity
6975 N_Attribute_Reference,
6977 -- N_Subexpr, N_Has_Etype, N_Membership_Test
6982 -- N_Subexpr, N_Has_Etype
6985 N_Conditional_Expression,
6986 N_Explicit_Dereference,
6988 N_Indexed_Component,
6992 N_Procedure_Call_Statement,
6993 N_Qualified_Expression,
6995 -- N_Raise_xxx_Error, N_Subexpr, N_Has_Etype
6997 N_Raise_Constraint_Error,
6998 N_Raise_Program_Error,
6999 N_Raise_Storage_Error,
7001 -- N_Subexpr, N_Has_Etype
7005 N_Extension_Aggregate,
7009 N_Selected_Component,
7014 N_Unchecked_Expression,
7015 N_Unchecked_Type_Conversion,
7019 N_Subtype_Indication,
7023 N_Component_Declaration,
7024 N_Entry_Declaration,
7025 N_Formal_Object_Declaration,
7026 N_Formal_Type_Declaration,
7027 N_Full_Type_Declaration,
7028 N_Incomplete_Type_Declaration,
7029 N_Loop_Parameter_Specification,
7030 N_Object_Declaration,
7031 N_Protected_Type_Declaration,
7032 N_Private_Extension_Declaration,
7033 N_Private_Type_Declaration,
7034 N_Subtype_Declaration,
7036 -- N_Subprogram_Specification, N_Declaration
7038 N_Function_Specification,
7039 N_Procedure_Specification,
7041 -- N_Access_To_Subprogram_Definition
7043 N_Access_Function_Definition,
7044 N_Access_Procedure_Definition,
7046 -- N_Later_Decl_Item
7048 N_Task_Type_Declaration,
7050 -- N_Body_Stub, N_Later_Decl_Item
7052 N_Package_Body_Stub,
7053 N_Protected_Body_Stub,
7054 N_Subprogram_Body_Stub,
7057 -- N_Generic_Instantiation, N_Later_Decl_Item
7058 -- N_Subprogram_Instantiation
7060 N_Function_Instantiation,
7061 N_Procedure_Instantiation,
7063 -- N_Generic_Instantiation, N_Later_Decl_Item
7065 N_Package_Instantiation,
7067 -- N_Unit_Body, N_Later_Decl_Item, N_Proper_Body
7072 -- N_Later_Decl_Item, N_Proper_Body
7077 -- N_Later_Decl_Item
7079 N_Implicit_Label_Declaration,
7080 N_Package_Declaration,
7081 N_Single_Task_Declaration,
7082 N_Subprogram_Declaration,
7083 N_Use_Package_Clause,
7085 -- N_Generic_Declaration, N_Later_Decl_Item
7087 N_Generic_Package_Declaration,
7088 N_Generic_Subprogram_Declaration,
7090 -- N_Array_Type_Definition
7092 N_Constrained_Array_Definition,
7093 N_Unconstrained_Array_Definition,
7095 -- N_Renaming_Declaration
7097 N_Exception_Renaming_Declaration,
7098 N_Object_Renaming_Declaration,
7099 N_Package_Renaming_Declaration,
7100 N_Subprogram_Renaming_Declaration,
7102 -- N_Generic_Renaming_Declaration, N_Renaming_Declaration
7104 N_Generic_Function_Renaming_Declaration,
7105 N_Generic_Package_Renaming_Declaration,
7106 N_Generic_Procedure_Renaming_Declaration,
7108 -- N_Statement_Other_Than_Procedure_Call
7112 N_Assignment_Statement,
7113 N_Asynchronous_Select,
7117 N_Conditional_Entry_Call,
7119 -- N_Statement_Other_Than_Procedure_Call. N_Delay_Statement
7121 N_Delay_Relative_Statement,
7122 N_Delay_Until_Statement,
7124 -- N_Statement_Other_Than_Procedure_Call
7126 N_Entry_Call_Statement,
7132 N_Requeue_Statement,
7133 N_Return_Statement, -- renamed as N_Simple_Return_Statement in Sem_Util
7134 N_Extended_Return_Statement,
7138 -- N_Statement_Other_Than_Procedure_Call, N_Has_Condition
7145 N_Accept_Alternative,
7146 N_Delay_Alternative,
7148 N_Entry_Body_Formal_Part,
7150 N_Terminate_Alternative,
7152 -- N_Formal_Subprogram_Declaration
7154 N_Formal_Abstract_Subprogram_Declaration,
7155 N_Formal_Concrete_Subprogram_Declaration,
7157 -- N_Push_xxx_Label, N_Push_Pop_xxx_Label
7159 N_Push_Constraint_Error_Label,
7160 N_Push_Program_Error_Label,
7161 N_Push_Storage_Error_Label,
7163 -- N_Pop_xxx_Label, N_Push_Pop_xxx_Label
7165 N_Pop_Constraint_Error_Label,
7166 N_Pop_Program_Error_Label,
7167 N_Pop_Storage_Error_Label,
7169 -- Other nodes (not part of any subtype class)
7172 N_Abstract_Subprogram_Declaration,
7173 N_Access_Definition,
7174 N_Access_To_Object_Definition,
7175 N_Case_Statement_Alternative,
7177 N_Compilation_Unit_Aux,
7178 N_Component_Association,
7179 N_Component_Definition,
7181 N_Derived_Type_Definition,
7182 N_Decimal_Fixed_Point_Definition,
7183 N_Defining_Program_Unit_Name,
7186 N_Digits_Constraint,
7187 N_Discriminant_Association,
7188 N_Discriminant_Specification,
7189 N_Enumeration_Type_Definition,
7191 N_Entry_Call_Alternative,
7192 N_Entry_Index_Specification,
7193 N_Exception_Declaration,
7194 N_Exception_Handler,
7195 N_Floating_Point_Definition,
7196 N_Formal_Decimal_Fixed_Point_Definition,
7197 N_Formal_Derived_Type_Definition,
7198 N_Formal_Discrete_Type_Definition,
7199 N_Formal_Floating_Point_Definition,
7200 N_Formal_Modular_Type_Definition,
7201 N_Formal_Ordinary_Fixed_Point_Definition,
7202 N_Formal_Package_Declaration,
7203 N_Formal_Private_Type_Definition,
7204 N_Formal_Signed_Integer_Type_Definition,
7206 N_Generic_Association,
7207 N_Handled_Sequence_Of_Statements,
7208 N_Index_Or_Discriminant_Constraint,
7211 N_Modular_Type_Definition,
7212 N_Number_Declaration,
7213 N_Ordinary_Fixed_Point_Definition,
7215 N_Package_Specification,
7216 N_Parameter_Association,
7217 N_Parameter_Specification,
7219 N_Protected_Definition,
7221 N_Real_Range_Specification,
7222 N_Record_Definition,
7223 N_Signed_Integer_Type_Definition,
7224 N_Single_Protected_Declaration,
7227 N_Triggering_Alternative,
7229 N_Validate_Unchecked_Conversion,
7235 for Node_Kind'Size use 8;
7236 -- The data structures in Atree assume this!
7238 ----------------------------
7239 -- Node Class Definitions --
7240 ----------------------------
7242 subtype N_Access_To_Subprogram_Definition is Node_Kind range
7243 N_Access_Function_Definition ..
7244 N_Access_Procedure_Definition;
7246 subtype N_Array_Type_Definition is Node_Kind range
7247 N_Constrained_Array_Definition ..
7248 N_Unconstrained_Array_Definition;
7250 subtype N_Binary_Op is Node_Kind range
7252 N_Op_Shift_Right_Arithmetic;
7254 subtype N_Body_Stub is Node_Kind range
7255 N_Package_Body_Stub ..
7258 subtype N_Declaration is Node_Kind range
7259 N_Component_Declaration ..
7260 N_Procedure_Specification;
7261 -- Note: this includes all constructs normally thought of as declarations
7262 -- except those which are separately grouped as later declarations.
7264 subtype N_Delay_Statement is Node_Kind range
7265 N_Delay_Relative_Statement ..
7266 N_Delay_Until_Statement;
7268 subtype N_Direct_Name is Node_Kind range
7270 N_Character_Literal;
7272 subtype N_Entity is Node_Kind range
7273 N_Defining_Character_Literal ..
7274 N_Defining_Operator_Symbol;
7276 subtype N_Formal_Subprogram_Declaration is Node_Kind range
7277 N_Formal_Abstract_Subprogram_Declaration ..
7278 N_Formal_Concrete_Subprogram_Declaration;
7280 subtype N_Generic_Declaration is Node_Kind range
7281 N_Generic_Package_Declaration ..
7282 N_Generic_Subprogram_Declaration;
7284 subtype N_Generic_Instantiation is Node_Kind range
7285 N_Function_Instantiation ..
7286 N_Package_Instantiation;
7288 subtype N_Generic_Renaming_Declaration is Node_Kind range
7289 N_Generic_Function_Renaming_Declaration ..
7290 N_Generic_Procedure_Renaming_Declaration;
7292 subtype N_Has_Chars is Node_Kind range
7293 N_Attribute_Definition_Clause ..
7296 subtype N_Has_Entity is Node_Kind range
7298 N_Attribute_Reference;
7299 -- Nodes that have Entity fields
7300 -- Warning: DOES NOT INCLUDE N_Freeze_Entity!
7302 subtype N_Has_Etype is Node_Kind range
7304 N_Subtype_Indication;
7306 subtype N_Has_Treat_Fixed_As_Integer is Node_Kind range
7310 subtype N_Multiplying_Operator is Node_Kind range
7314 subtype N_Later_Decl_Item is Node_Kind range
7315 N_Task_Type_Declaration ..
7316 N_Generic_Subprogram_Declaration;
7317 -- Note: this is Ada 83 relevant only (see Ada 83 RM 3.9 (2)) and
7318 -- includes only those items which can appear as later declarative
7319 -- items. This also includes N_Implicit_Label_Declaration which is
7320 -- not specifically in the grammar but may appear as a valid later
7321 -- declarative items. It does NOT include N_Pragma which can also
7322 -- appear among later declarative items. It does however include
7323 -- N_Protected_Body, which is a bit peculiar, but harmless since
7324 -- this cannot appear in Ada 83 mode anyway.
7326 subtype N_Membership_Test is Node_Kind range
7330 subtype N_Op is Node_Kind range
7334 subtype N_Op_Boolean is Node_Kind range
7337 -- Binary operators which take operands of a boolean type, and yield
7338 -- a result of a boolean type.
7340 subtype N_Op_Compare is Node_Kind range
7344 subtype N_Op_Shift is Node_Kind range
7346 N_Op_Shift_Right_Arithmetic;
7348 subtype N_Proper_Body is Node_Kind range
7352 subtype N_Push_xxx_Label is Node_Kind range
7353 N_Push_Constraint_Error_Label ..
7354 N_Push_Storage_Error_Label;
7356 subtype N_Pop_xxx_Label is Node_Kind range
7357 N_Pop_Constraint_Error_Label ..
7358 N_Pop_Storage_Error_Label;
7360 subtype N_Push_Pop_xxx_Label is Node_Kind range
7361 N_Push_Constraint_Error_Label ..
7362 N_Pop_Storage_Error_Label;
7364 subtype N_Raise_xxx_Error is Node_Kind range
7365 N_Raise_Constraint_Error ..
7366 N_Raise_Storage_Error;
7368 subtype N_Renaming_Declaration is Node_Kind range
7369 N_Exception_Renaming_Declaration ..
7370 N_Generic_Procedure_Renaming_Declaration;
7372 subtype N_Representation_Clause is Node_Kind range
7374 N_Attribute_Definition_Clause;
7376 subtype N_Statement_Other_Than_Procedure_Call is Node_Kind range
7377 N_Abort_Statement ..
7379 -- Note that this includes all statement types except for the cases of the
7380 -- N_Procedure_Call_Statement which is considered to be a subexpression
7381 -- (since overloading is possible, so it needs to go through the normal
7382 -- overloading resolution for expressions).
7384 subtype N_Subprogram_Instantiation is Node_Kind range
7385 N_Function_Instantiation ..
7386 N_Procedure_Instantiation;
7388 subtype N_Has_Condition is Node_Kind range
7390 N_Terminate_Alternative;
7391 -- Nodes with condition fields (does not include N_Raise_xxx_Error)
7393 subtype N_Subexpr is Node_Kind range
7395 N_Unchecked_Type_Conversion;
7396 -- Nodes with expression fields
7398 subtype N_Subprogram_Specification is Node_Kind range
7399 N_Function_Specification ..
7400 N_Procedure_Specification;
7402 subtype N_Unary_Op is Node_Kind range
7406 subtype N_Unit_Body is Node_Kind range
7410 ---------------------------
7411 -- Node Access Functions --
7412 ---------------------------
7414 -- The following functions return the contents of the indicated field of
7415 -- the node referenced by the argument, which is a Node_Id. They provide
7416 -- logical access to fields in the node which could be accessed using the
7417 -- Atree.Unchecked_Access package, but the idea is always to use these
7418 -- higher level routines which preserve strong typing. In debug mode,
7419 -- these routines check that they are being applied to an appropriate
7420 -- node, as well as checking that the node is in range.
7422 function ABE_Is_Certain
7423 (N : Node_Id) return Boolean; -- Flag18
7425 function Abort_Present
7426 (N : Node_Id) return Boolean; -- Flag15
7428 function Abortable_Part
7429 (N : Node_Id) return Node_Id; -- Node2
7431 function Abstract_Present
7432 (N : Node_Id) return Boolean; -- Flag4
7434 function Accept_Handler_Records
7435 (N : Node_Id) return List_Id; -- List5
7437 function Accept_Statement
7438 (N : Node_Id) return Node_Id; -- Node2
7440 function Access_Definition
7441 (N : Node_Id) return Node_Id; -- Node3
7443 function Access_To_Subprogram_Definition
7444 (N : Node_Id) return Node_Id; -- Node3
7446 function Access_Types_To_Process
7447 (N : Node_Id) return Elist_Id; -- Elist2
7450 (N : Node_Id) return List_Id; -- List1
7452 function Activation_Chain_Entity
7453 (N : Node_Id) return Node_Id; -- Node3
7455 function Acts_As_Spec
7456 (N : Node_Id) return Boolean; -- Flag4
7458 function Actual_Designated_Subtype
7459 (N : Node_Id) return Node_Id; -- Node4
7461 function Address_Warning_Posted
7462 (N : Node_Id) return Boolean; -- Flag18
7464 function Aggregate_Bounds
7465 (N : Node_Id) return Node_Id; -- Node3
7467 function Aliased_Present
7468 (N : Node_Id) return Boolean; -- Flag4
7471 (N : Node_Id) return Boolean; -- Flag11
7473 function All_Present
7474 (N : Node_Id) return Boolean; -- Flag15
7476 function Alternatives
7477 (N : Node_Id) return List_Id; -- List4
7479 function Ancestor_Part
7480 (N : Node_Id) return Node_Id; -- Node3
7482 function Array_Aggregate
7483 (N : Node_Id) return Node_Id; -- Node3
7485 function Assignment_OK
7486 (N : Node_Id) return Boolean; -- Flag15
7488 function Associated_Node
7489 (N : Node_Id) return Node_Id; -- Node4
7491 function At_End_Proc
7492 (N : Node_Id) return Node_Id; -- Node1
7494 function Attribute_Name
7495 (N : Node_Id) return Name_Id; -- Name2
7497 function Aux_Decls_Node
7498 (N : Node_Id) return Node_Id; -- Node5
7500 function Backwards_OK
7501 (N : Node_Id) return Boolean; -- Flag6
7503 function Bad_Is_Detected
7504 (N : Node_Id) return Boolean; -- Flag15
7507 (N : Node_Id) return Boolean; -- Flag5
7509 function Body_Required
7510 (N : Node_Id) return Boolean; -- Flag13
7512 function Body_To_Inline
7513 (N : Node_Id) return Node_Id; -- Node3
7515 function Box_Present
7516 (N : Node_Id) return Boolean; -- Flag15
7518 function Char_Literal_Value
7519 (N : Node_Id) return Uint; -- Uint2
7522 (N : Node_Id) return Name_Id; -- Name1
7524 function Check_Address_Alignment
7525 (N : Node_Id) return Boolean; -- Flag11
7527 function Choice_Parameter
7528 (N : Node_Id) return Node_Id; -- Node2
7531 (N : Node_Id) return List_Id; -- List1
7533 function Coextensions
7534 (N : Node_Id) return Elist_Id; -- Elist4
7536 function Comes_From_Extended_Return_Statement
7537 (N : Node_Id) return Boolean; -- Flag18
7539 function Compile_Time_Known_Aggregate
7540 (N : Node_Id) return Boolean; -- Flag18
7542 function Component_Associations
7543 (N : Node_Id) return List_Id; -- List2
7545 function Component_Clauses
7546 (N : Node_Id) return List_Id; -- List3
7548 function Component_Definition
7549 (N : Node_Id) return Node_Id; -- Node4
7551 function Component_Items
7552 (N : Node_Id) return List_Id; -- List3
7554 function Component_List
7555 (N : Node_Id) return Node_Id; -- Node1
7557 function Component_Name
7558 (N : Node_Id) return Node_Id; -- Node1
7561 (N : Node_Id) return Node_Id; -- Node1
7563 function Condition_Actions
7564 (N : Node_Id) return List_Id; -- List3
7566 function Config_Pragmas
7567 (N : Node_Id) return List_Id; -- List4
7569 function Constant_Present
7570 (N : Node_Id) return Boolean; -- Flag17
7573 (N : Node_Id) return Node_Id; -- Node3
7575 function Constraints
7576 (N : Node_Id) return List_Id; -- List1
7578 function Context_Installed
7579 (N : Node_Id) return Boolean; -- Flag13
7581 function Context_Items
7582 (N : Node_Id) return List_Id; -- List1
7584 function Controlling_Argument
7585 (N : Node_Id) return Node_Id; -- Node1
7587 function Conversion_OK
7588 (N : Node_Id) return Boolean; -- Flag14
7590 function Corresponding_Body
7591 (N : Node_Id) return Node_Id; -- Node5
7593 function Corresponding_Formal_Spec
7594 (N : Node_Id) return Node_Id; -- Node3
7596 function Corresponding_Generic_Association
7597 (N : Node_Id) return Node_Id; -- Node5
7599 function Corresponding_Integer_Value
7600 (N : Node_Id) return Uint; -- Uint4
7602 function Corresponding_Spec
7603 (N : Node_Id) return Node_Id; -- Node5
7605 function Corresponding_Stub
7606 (N : Node_Id) return Node_Id; -- Node3
7608 function Dcheck_Function
7609 (N : Node_Id) return Entity_Id; -- Node5
7611 function Debug_Statement
7612 (N : Node_Id) return Node_Id; -- Node3
7614 function Declarations
7615 (N : Node_Id) return List_Id; -- List2
7617 function Default_Expression
7618 (N : Node_Id) return Node_Id; -- Node5
7620 function Default_Name
7621 (N : Node_Id) return Node_Id; -- Node2
7623 function Defining_Identifier
7624 (N : Node_Id) return Entity_Id; -- Node1
7626 function Defining_Unit_Name
7627 (N : Node_Id) return Node_Id; -- Node1
7629 function Delay_Alternative
7630 (N : Node_Id) return Node_Id; -- Node4
7632 function Delay_Statement
7633 (N : Node_Id) return Node_Id; -- Node2
7635 function Delta_Expression
7636 (N : Node_Id) return Node_Id; -- Node3
7638 function Digits_Expression
7639 (N : Node_Id) return Node_Id; -- Node2
7641 function Discr_Check_Funcs_Built
7642 (N : Node_Id) return Boolean; -- Flag11
7644 function Discrete_Choices
7645 (N : Node_Id) return List_Id; -- List4
7647 function Discrete_Range
7648 (N : Node_Id) return Node_Id; -- Node4
7650 function Discrete_Subtype_Definition
7651 (N : Node_Id) return Node_Id; -- Node4
7653 function Discrete_Subtype_Definitions
7654 (N : Node_Id) return List_Id; -- List2
7656 function Discriminant_Specifications
7657 (N : Node_Id) return List_Id; -- List4
7659 function Discriminant_Type
7660 (N : Node_Id) return Node_Id; -- Node5
7662 function Do_Accessibility_Check
7663 (N : Node_Id) return Boolean; -- Flag13
7665 function Do_Discriminant_Check
7666 (N : Node_Id) return Boolean; -- Flag13
7668 function Do_Division_Check
7669 (N : Node_Id) return Boolean; -- Flag13
7671 function Do_Length_Check
7672 (N : Node_Id) return Boolean; -- Flag4
7674 function Do_Overflow_Check
7675 (N : Node_Id) return Boolean; -- Flag17
7677 function Do_Range_Check
7678 (N : Node_Id) return Boolean; -- Flag9
7680 function Do_Storage_Check
7681 (N : Node_Id) return Boolean; -- Flag17
7683 function Do_Tag_Check
7684 (N : Node_Id) return Boolean; -- Flag13
7686 function Elaborate_All_Desirable
7687 (N : Node_Id) return Boolean; -- Flag9
7689 function Elaborate_All_Present
7690 (N : Node_Id) return Boolean; -- Flag14
7692 function Elaborate_Desirable
7693 (N : Node_Id) return Boolean; -- Flag11
7695 function Elaborate_Present
7696 (N : Node_Id) return Boolean; -- Flag4
7698 function Elaboration_Boolean
7699 (N : Node_Id) return Node_Id; -- Node2
7701 function Else_Actions
7702 (N : Node_Id) return List_Id; -- List3
7704 function Else_Statements
7705 (N : Node_Id) return List_Id; -- List4
7707 function Elsif_Parts
7708 (N : Node_Id) return List_Id; -- List3
7710 function Enclosing_Variant
7711 (N : Node_Id) return Node_Id; -- Node2
7714 (N : Node_Id) return Node_Id; -- Node4
7717 (N : Node_Id) return Uint; -- Uint5
7720 (N : Node_Id) return Node_Id; -- Node4
7722 function Entity_Or_Associated_Node
7723 (N : Node_Id) return Node_Id; -- Node4
7725 function Entry_Body_Formal_Part
7726 (N : Node_Id) return Node_Id; -- Node5
7728 function Entry_Call_Alternative
7729 (N : Node_Id) return Node_Id; -- Node1
7731 function Entry_Call_Statement
7732 (N : Node_Id) return Node_Id; -- Node1
7734 function Entry_Direct_Name
7735 (N : Node_Id) return Node_Id; -- Node1
7737 function Entry_Index
7738 (N : Node_Id) return Node_Id; -- Node5
7740 function Entry_Index_Specification
7741 (N : Node_Id) return Node_Id; -- Node4
7744 (N : Node_Id) return Node_Id; -- Node5
7746 function Exception_Choices
7747 (N : Node_Id) return List_Id; -- List4
7749 function Exception_Handlers
7750 (N : Node_Id) return List_Id; -- List5
7752 function Exception_Junk
7753 (N : Node_Id) return Boolean; -- Flag8
7755 function Exception_Label
7756 (N : Node_Id) return Node_Id; -- Node5
7758 function Explicit_Actual_Parameter
7759 (N : Node_Id) return Node_Id; -- Node3
7761 function Expansion_Delayed
7762 (N : Node_Id) return Boolean; -- Flag11
7764 function Explicit_Generic_Actual_Parameter
7765 (N : Node_Id) return Node_Id; -- Node1
7768 (N : Node_Id) return Node_Id; -- Node3
7770 function Expressions
7771 (N : Node_Id) return List_Id; -- List1
7774 (N : Node_Id) return Node_Id; -- Node3
7776 function First_Inlined_Subprogram
7777 (N : Node_Id) return Entity_Id; -- Node3
7780 (N : Node_Id) return Boolean; -- Flag5
7782 function First_Named_Actual
7783 (N : Node_Id) return Node_Id; -- Node4
7785 function First_Real_Statement
7786 (N : Node_Id) return Node_Id; -- Node2
7788 function First_Subtype_Link
7789 (N : Node_Id) return Entity_Id; -- Node5
7791 function Float_Truncate
7792 (N : Node_Id) return Boolean; -- Flag11
7794 function Formal_Type_Definition
7795 (N : Node_Id) return Node_Id; -- Node3
7797 function Forwards_OK
7798 (N : Node_Id) return Boolean; -- Flag5
7800 function From_At_End
7801 (N : Node_Id) return Boolean; -- Flag4
7803 function From_At_Mod
7804 (N : Node_Id) return Boolean; -- Flag4
7806 function From_Default
7807 (N : Node_Id) return Boolean; -- Flag6
7809 function Generic_Associations
7810 (N : Node_Id) return List_Id; -- List3
7812 function Generic_Formal_Declarations
7813 (N : Node_Id) return List_Id; -- List2
7815 function Generic_Parent
7816 (N : Node_Id) return Node_Id; -- Node5
7818 function Generic_Parent_Type
7819 (N : Node_Id) return Node_Id; -- Node4
7821 function Handled_Statement_Sequence
7822 (N : Node_Id) return Node_Id; -- Node4
7824 function Handler_List_Entry
7825 (N : Node_Id) return Node_Id; -- Node2
7827 function Has_Created_Identifier
7828 (N : Node_Id) return Boolean; -- Flag15
7830 function Has_Dynamic_Length_Check
7831 (N : Node_Id) return Boolean; -- Flag10
7833 function Has_Dynamic_Range_Check
7834 (N : Node_Id) return Boolean; -- Flag12
7836 function Has_Init_Expression
7837 (N : Node_Id) return Boolean; -- Flag14
7839 function Has_Local_Raise
7840 (N : Node_Id) return Boolean; -- Flag8
7842 function Has_No_Elaboration_Code
7843 (N : Node_Id) return Boolean; -- Flag17
7845 function Has_Priority_Pragma
7846 (N : Node_Id) return Boolean; -- Flag6
7848 function Has_Private_View
7849 (N : Node_Id) return Boolean; -- Flag11
7851 function Has_Self_Reference
7852 (N : Node_Id) return Boolean; -- Flag13
7854 function Has_Storage_Size_Pragma
7855 (N : Node_Id) return Boolean; -- Flag5
7857 function Has_Task_Info_Pragma
7858 (N : Node_Id) return Boolean; -- Flag7
7860 function Has_Task_Name_Pragma
7861 (N : Node_Id) return Boolean; -- Flag8
7863 function Has_Wide_Character
7864 (N : Node_Id) return Boolean; -- Flag11
7866 function Hidden_By_Use_Clause
7867 (N : Node_Id) return Elist_Id; -- Elist4
7870 (N : Node_Id) return Node_Id; -- Node2
7873 (N : Node_Id) return Node_Id; -- Node1
7875 function Interface_List
7876 (N : Node_Id) return List_Id; -- List2
7878 function Interface_Present
7879 (N : Node_Id) return Boolean; -- Flag16
7881 function Implicit_With
7882 (N : Node_Id) return Boolean; -- Flag16
7885 (N : Node_Id) return Boolean; -- Flag15
7887 function Includes_Infinities
7888 (N : Node_Id) return Boolean; -- Flag11
7890 function Instance_Spec
7891 (N : Node_Id) return Node_Id; -- Node5
7894 (N : Node_Id) return Uint; -- Uint3
7896 function Is_Asynchronous_Call_Block
7897 (N : Node_Id) return Boolean; -- Flag7
7899 function Is_Component_Left_Opnd
7900 (N : Node_Id) return Boolean; -- Flag13
7902 function Is_Component_Right_Opnd
7903 (N : Node_Id) return Boolean; -- Flag14
7905 function Is_Controlling_Actual
7906 (N : Node_Id) return Boolean; -- Flag16
7908 function Is_Dynamic_Coextension
7909 (N : Node_Id) return Boolean; -- Flag18
7911 function Is_Entry_Barrier_Function
7912 (N : Node_Id) return Boolean; -- Flag8
7914 function Is_Expanded_Build_In_Place_Call
7915 (N : Node_Id) return Boolean; -- Flag11
7917 function Is_Folded_In_Parser
7918 (N : Node_Id) return Boolean; -- Flag4
7920 function Is_In_Discriminant_Check
7921 (N : Node_Id) return Boolean; -- Flag11
7923 function Is_Machine_Number
7924 (N : Node_Id) return Boolean; -- Flag11
7926 function Is_Null_Loop
7927 (N : Node_Id) return Boolean; -- Flag16
7929 function Is_Overloaded
7930 (N : Node_Id) return Boolean; -- Flag5
7932 function Is_Power_Of_2_For_Shift
7933 (N : Node_Id) return Boolean; -- Flag13
7935 function Is_Protected_Subprogram_Body
7936 (N : Node_Id) return Boolean; -- Flag7
7938 function Is_Static_Coextension
7939 (N : Node_Id) return Boolean; -- Flag14
7941 function Is_Static_Expression
7942 (N : Node_Id) return Boolean; -- Flag6
7944 function Is_Subprogram_Descriptor
7945 (N : Node_Id) return Boolean; -- Flag16
7947 function Is_Task_Allocation_Block
7948 (N : Node_Id) return Boolean; -- Flag6
7950 function Is_Task_Master
7951 (N : Node_Id) return Boolean; -- Flag5
7953 function Iteration_Scheme
7954 (N : Node_Id) return Node_Id; -- Node2
7957 (N : Node_Id) return Entity_Id; -- Node1
7959 function Kill_Range_Check
7960 (N : Node_Id) return Boolean; -- Flag11
7962 function Label_Construct
7963 (N : Node_Id) return Node_Id; -- Node2
7966 (N : Node_Id) return Node_Id; -- Node2
7969 (N : Node_Id) return Node_Id; -- Node4
7972 (N : Node_Id) return Boolean; -- Flag6
7974 function Library_Unit
7975 (N : Node_Id) return Node_Id; -- Node4
7977 function Limited_View_Installed
7978 (N : Node_Id) return Boolean; -- Flag18
7980 function Limited_Present
7981 (N : Node_Id) return Boolean; -- Flag17
7984 (N : Node_Id) return List_Id; -- List1
7986 function Local_Raise_Not_OK
7987 (N : Node_Id) return Boolean; -- Flag7
7989 function Local_Raise_Statements
7990 (N : Node_Id) return Elist_Id; -- Elist1
7992 function Loop_Actions
7993 (N : Node_Id) return List_Id; -- List2
7995 function Loop_Parameter_Specification
7996 (N : Node_Id) return Node_Id; -- Node4
7999 (N : Node_Id) return Node_Id; -- Node1
8002 (N : Node_Id) return Node_Id; -- Node2
8005 (N : Node_Id) return Boolean; -- Flag5
8007 function Must_Be_Byte_Aligned
8008 (N : Node_Id) return Boolean; -- Flag14
8010 function Must_Not_Freeze
8011 (N : Node_Id) return Boolean; -- Flag8
8013 function Must_Not_Override
8014 (N : Node_Id) return Boolean; -- Flag15
8016 function Must_Override
8017 (N : Node_Id) return Boolean; -- Flag14
8020 (N : Node_Id) return Node_Id; -- Node2
8023 (N : Node_Id) return List_Id; -- List2
8025 function Next_Entity
8026 (N : Node_Id) return Node_Id; -- Node2
8028 function Next_Named_Actual
8029 (N : Node_Id) return Node_Id; -- Node4
8031 function Next_Rep_Item
8032 (N : Node_Id) return Node_Id; -- Node5
8034 function Next_Use_Clause
8035 (N : Node_Id) return Node_Id; -- Node3
8037 function No_Ctrl_Actions
8038 (N : Node_Id) return Boolean; -- Flag7
8040 function No_Elaboration_Check
8041 (N : Node_Id) return Boolean; -- Flag14
8043 function No_Entities_Ref_In_Spec
8044 (N : Node_Id) return Boolean; -- Flag8
8046 function No_Initialization
8047 (N : Node_Id) return Boolean; -- Flag13
8049 function No_Truncation
8050 (N : Node_Id) return Boolean; -- Flag17
8052 function Null_Present
8053 (N : Node_Id) return Boolean; -- Flag13
8055 function Null_Exclusion_Present
8056 (N : Node_Id) return Boolean; -- Flag11
8058 function Null_Record_Present
8059 (N : Node_Id) return Boolean; -- Flag17
8061 function Object_Definition
8062 (N : Node_Id) return Node_Id; -- Node4
8064 function Original_Discriminant
8065 (N : Node_Id) return Node_Id; -- Node2
8067 function Original_Entity
8068 (N : Node_Id) return Entity_Id; -- Node2
8070 function Others_Discrete_Choices
8071 (N : Node_Id) return List_Id; -- List1
8073 function Out_Present
8074 (N : Node_Id) return Boolean; -- Flag17
8076 function Parameter_Associations
8077 (N : Node_Id) return List_Id; -- List3
8079 function Parameter_List_Truncated
8080 (N : Node_Id) return Boolean; -- Flag17
8082 function Parameter_Specifications
8083 (N : Node_Id) return List_Id; -- List3
8085 function Parameter_Type
8086 (N : Node_Id) return Node_Id; -- Node2
8088 function Parent_Spec
8089 (N : Node_Id) return Node_Id; -- Node4
8092 (N : Node_Id) return Node_Id; -- Node2
8094 function Pragma_Argument_Associations
8095 (N : Node_Id) return List_Id; -- List2
8097 function Pragma_Identifier
8098 (N : Node_Id) return Node_Id; -- Node4
8100 function Pragmas_After
8101 (N : Node_Id) return List_Id; -- List5
8103 function Pragmas_Before
8104 (N : Node_Id) return List_Id; -- List4
8107 (N : Node_Id) return Node_Id; -- Node3
8109 function Present_Expr
8110 (N : Node_Id) return Uint; -- Uint3
8113 (N : Node_Id) return Boolean; -- Flag6
8115 function Print_In_Hex
8116 (N : Node_Id) return Boolean; -- Flag13
8118 function Private_Declarations
8119 (N : Node_Id) return List_Id; -- List3
8121 function Private_Present
8122 (N : Node_Id) return Boolean; -- Flag15
8124 function Procedure_To_Call
8125 (N : Node_Id) return Node_Id; -- Node2
8127 function Proper_Body
8128 (N : Node_Id) return Node_Id; -- Node1
8130 function Protected_Definition
8131 (N : Node_Id) return Node_Id; -- Node3
8133 function Protected_Present
8134 (N : Node_Id) return Boolean; -- Flag6
8136 function Raises_Constraint_Error
8137 (N : Node_Id) return Boolean; -- Flag7
8139 function Range_Constraint
8140 (N : Node_Id) return Node_Id; -- Node4
8142 function Range_Expression
8143 (N : Node_Id) return Node_Id; -- Node4
8145 function Real_Range_Specification
8146 (N : Node_Id) return Node_Id; -- Node4
8149 (N : Node_Id) return Ureal; -- Ureal3
8152 (N : Node_Id) return Uint; -- Uint3
8154 function Record_Extension_Part
8155 (N : Node_Id) return Node_Id; -- Node3
8157 function Redundant_Use
8158 (N : Node_Id) return Boolean; -- Flag13
8160 function Renaming_Exception
8161 (N : Node_Id) return Node_Id; -- Node2
8163 function Result_Definition
8164 (N : Node_Id) return Node_Id; -- Node4
8166 function Return_Object_Declarations
8167 (N : Node_Id) return List_Id; -- List3
8169 function Return_Statement_Entity
8170 (N : Node_Id) return Node_Id; -- Node5
8172 function Reverse_Present
8173 (N : Node_Id) return Boolean; -- Flag15
8176 (N : Node_Id) return Node_Id; -- Node3
8178 function Rounded_Result
8179 (N : Node_Id) return Boolean; -- Flag18
8182 (N : Node_Id) return Node_Id; -- Node3
8184 function Select_Alternatives
8185 (N : Node_Id) return List_Id; -- List1
8187 function Selector_Name
8188 (N : Node_Id) return Node_Id; -- Node2
8190 function Selector_Names
8191 (N : Node_Id) return List_Id; -- List1
8193 function Shift_Count_OK
8194 (N : Node_Id) return Boolean; -- Flag4
8196 function Source_Type
8197 (N : Node_Id) return Entity_Id; -- Node1
8199 function Specification
8200 (N : Node_Id) return Node_Id; -- Node1
8203 (N : Node_Id) return List_Id; -- List3
8205 function Static_Processing_OK
8206 (N : Node_Id) return Boolean; -- Flag4
8208 function Storage_Pool
8209 (N : Node_Id) return Node_Id; -- Node1
8212 (N : Node_Id) return String_Id; -- Str3
8214 function Subtype_Indication
8215 (N : Node_Id) return Node_Id; -- Node5
8217 function Subtype_Mark
8218 (N : Node_Id) return Node_Id; -- Node4
8220 function Subtype_Marks
8221 (N : Node_Id) return List_Id; -- List2
8223 function Synchronized_Present
8224 (N : Node_Id) return Boolean; -- Flag7
8226 function Tagged_Present
8227 (N : Node_Id) return Boolean; -- Flag15
8229 function Target_Type
8230 (N : Node_Id) return Entity_Id; -- Node2
8232 function Task_Definition
8233 (N : Node_Id) return Node_Id; -- Node3
8235 function Task_Present
8236 (N : Node_Id) return Boolean; -- Flag5
8238 function Then_Actions
8239 (N : Node_Id) return List_Id; -- List2
8241 function Then_Statements
8242 (N : Node_Id) return List_Id; -- List2
8244 function Treat_Fixed_As_Integer
8245 (N : Node_Id) return Boolean; -- Flag14
8247 function Triggering_Alternative
8248 (N : Node_Id) return Node_Id; -- Node1
8250 function Triggering_Statement
8251 (N : Node_Id) return Node_Id; -- Node1
8254 (N : Node_Id) return Elist_Id; -- Elist3
8256 function Type_Definition
8257 (N : Node_Id) return Node_Id; -- Node3
8260 (N : Node_Id) return Node_Id; -- Node2
8262 function Unknown_Discriminants_Present
8263 (N : Node_Id) return Boolean; -- Flag13
8265 function Unreferenced_In_Spec
8266 (N : Node_Id) return Boolean; -- Flag7
8268 function Variant_Part
8269 (N : Node_Id) return Node_Id; -- Node4
8272 (N : Node_Id) return List_Id; -- List1
8274 function Visible_Declarations
8275 (N : Node_Id) return List_Id; -- List2
8277 function Was_Originally_Stub
8278 (N : Node_Id) return Boolean; -- Flag13
8280 function Zero_Cost_Handling
8281 (N : Node_Id) return Boolean; -- Flag5
8283 -- End functions (note used by xsinfo utility program to end processing)
8285 ----------------------------
8286 -- Node Update Procedures --
8287 ----------------------------
8289 -- These are the corresponding node update routines, which again provide
8290 -- a high level logical access with type checking. In addition to setting
8291 -- the indicated field of the node N to the given Val, in the case of
8292 -- tree pointers (List1-4), the parent pointer of the Val node is set to
8293 -- point back to node N. This automates the setting of the parent pointer.
8295 procedure Set_ABE_Is_Certain
8296 (N : Node_Id; Val : Boolean := True); -- Flag18
8298 procedure Set_Abort_Present
8299 (N : Node_Id; Val : Boolean := True); -- Flag15
8301 procedure Set_Abortable_Part
8302 (N : Node_Id; Val : Node_Id); -- Node2
8304 procedure Set_Abstract_Present
8305 (N : Node_Id; Val : Boolean := True); -- Flag4
8307 procedure Set_Accept_Handler_Records
8308 (N : Node_Id; Val : List_Id); -- List5
8310 procedure Set_Accept_Statement
8311 (N : Node_Id; Val : Node_Id); -- Node2
8313 procedure Set_Access_Definition
8314 (N : Node_Id; Val : Node_Id); -- Node3
8316 procedure Set_Access_To_Subprogram_Definition
8317 (N : Node_Id; Val : Node_Id); -- Node3
8319 procedure Set_Access_Types_To_Process
8320 (N : Node_Id; Val : Elist_Id); -- Elist2
8322 procedure Set_Actions
8323 (N : Node_Id; Val : List_Id); -- List1
8325 procedure Set_Activation_Chain_Entity
8326 (N : Node_Id; Val : Node_Id); -- Node3
8328 procedure Set_Acts_As_Spec
8329 (N : Node_Id; Val : Boolean := True); -- Flag4
8331 procedure Set_Actual_Designated_Subtype
8332 (N : Node_Id; Val : Node_Id); -- Node4
8334 procedure Set_Address_Warning_Posted
8335 (N : Node_Id; Val : Boolean := True); -- Flag18
8337 procedure Set_Aggregate_Bounds
8338 (N : Node_Id; Val : Node_Id); -- Node3
8340 procedure Set_Aliased_Present
8341 (N : Node_Id; Val : Boolean := True); -- Flag4
8343 procedure Set_All_Others
8344 (N : Node_Id; Val : Boolean := True); -- Flag11
8346 procedure Set_All_Present
8347 (N : Node_Id; Val : Boolean := True); -- Flag15
8349 procedure Set_Alternatives
8350 (N : Node_Id; Val : List_Id); -- List4
8352 procedure Set_Ancestor_Part
8353 (N : Node_Id; Val : Node_Id); -- Node3
8355 procedure Set_Array_Aggregate
8356 (N : Node_Id; Val : Node_Id); -- Node3
8358 procedure Set_Assignment_OK
8359 (N : Node_Id; Val : Boolean := True); -- Flag15
8361 procedure Set_Associated_Node
8362 (N : Node_Id; Val : Node_Id); -- Node4
8364 procedure Set_Attribute_Name
8365 (N : Node_Id; Val : Name_Id); -- Name2
8367 procedure Set_At_End_Proc
8368 (N : Node_Id; Val : Node_Id); -- Node1
8370 procedure Set_Aux_Decls_Node
8371 (N : Node_Id; Val : Node_Id); -- Node5
8373 procedure Set_Backwards_OK
8374 (N : Node_Id; Val : Boolean := True); -- Flag6
8376 procedure Set_Bad_Is_Detected
8377 (N : Node_Id; Val : Boolean := True); -- Flag15
8379 procedure Set_Body_Required
8380 (N : Node_Id; Val : Boolean := True); -- Flag13
8382 procedure Set_Body_To_Inline
8383 (N : Node_Id; Val : Node_Id); -- Node3
8385 procedure Set_Box_Present
8386 (N : Node_Id; Val : Boolean := True); -- Flag15
8388 procedure Set_By_Ref
8389 (N : Node_Id; Val : Boolean := True); -- Flag5
8391 procedure Set_Char_Literal_Value
8392 (N : Node_Id; Val : Uint); -- Uint2
8395 (N : Node_Id; Val : Name_Id); -- Name1
8397 procedure Set_Check_Address_Alignment
8398 (N : Node_Id; Val : Boolean := True); -- Flag11
8400 procedure Set_Choice_Parameter
8401 (N : Node_Id; Val : Node_Id); -- Node2
8403 procedure Set_Coextensions
8404 (N : Node_Id; Val : Elist_Id); -- Elist4
8406 procedure Set_Choices
8407 (N : Node_Id; Val : List_Id); -- List1
8409 procedure Set_Comes_From_Extended_Return_Statement
8410 (N : Node_Id; Val : Boolean := True); -- Flag18
8412 procedure Set_Compile_Time_Known_Aggregate
8413 (N : Node_Id; Val : Boolean := True); -- Flag18
8415 procedure Set_Component_Associations
8416 (N : Node_Id; Val : List_Id); -- List2
8418 procedure Set_Component_Clauses
8419 (N : Node_Id; Val : List_Id); -- List3
8421 procedure Set_Component_Definition
8422 (N : Node_Id; Val : Node_Id); -- Node4
8424 procedure Set_Component_Items
8425 (N : Node_Id; Val : List_Id); -- List3
8427 procedure Set_Component_List
8428 (N : Node_Id; Val : Node_Id); -- Node1
8430 procedure Set_Component_Name
8431 (N : Node_Id; Val : Node_Id); -- Node1
8433 procedure Set_Condition
8434 (N : Node_Id; Val : Node_Id); -- Node1
8436 procedure Set_Condition_Actions
8437 (N : Node_Id; Val : List_Id); -- List3
8439 procedure Set_Config_Pragmas
8440 (N : Node_Id; Val : List_Id); -- List4
8442 procedure Set_Constant_Present
8443 (N : Node_Id; Val : Boolean := True); -- Flag17
8445 procedure Set_Constraint
8446 (N : Node_Id; Val : Node_Id); -- Node3
8448 procedure Set_Constraints
8449 (N : Node_Id; Val : List_Id); -- List1
8451 procedure Set_Context_Installed
8452 (N : Node_Id; Val : Boolean := True); -- Flag13
8454 procedure Set_Context_Items
8455 (N : Node_Id; Val : List_Id); -- List1
8457 procedure Set_Controlling_Argument
8458 (N : Node_Id; Val : Node_Id); -- Node1
8460 procedure Set_Conversion_OK
8461 (N : Node_Id; Val : Boolean := True); -- Flag14
8463 procedure Set_Corresponding_Body
8464 (N : Node_Id; Val : Node_Id); -- Node5
8466 procedure Set_Corresponding_Formal_Spec
8467 (N : Node_Id; Val : Node_Id); -- Node3
8469 procedure Set_Corresponding_Generic_Association
8470 (N : Node_Id; Val : Node_Id); -- Node5
8472 procedure Set_Corresponding_Integer_Value
8473 (N : Node_Id; Val : Uint); -- Uint4
8475 procedure Set_Corresponding_Spec
8476 (N : Node_Id; Val : Node_Id); -- Node5
8478 procedure Set_Corresponding_Stub
8479 (N : Node_Id; Val : Node_Id); -- Node3
8481 procedure Set_Dcheck_Function
8482 (N : Node_Id; Val : Entity_Id); -- Node5
8484 procedure Set_Debug_Statement
8485 (N : Node_Id; Val : Node_Id); -- Node3
8487 procedure Set_Declarations
8488 (N : Node_Id; Val : List_Id); -- List2
8490 procedure Set_Default_Expression
8491 (N : Node_Id; Val : Node_Id); -- Node5
8493 procedure Set_Default_Name
8494 (N : Node_Id; Val : Node_Id); -- Node2
8496 procedure Set_Defining_Identifier
8497 (N : Node_Id; Val : Entity_Id); -- Node1
8499 procedure Set_Defining_Unit_Name
8500 (N : Node_Id; Val : Node_Id); -- Node1
8502 procedure Set_Delay_Alternative
8503 (N : Node_Id; Val : Node_Id); -- Node4
8505 procedure Set_Delay_Statement
8506 (N : Node_Id; Val : Node_Id); -- Node2
8508 procedure Set_Delta_Expression
8509 (N : Node_Id; Val : Node_Id); -- Node3
8511 procedure Set_Digits_Expression
8512 (N : Node_Id; Val : Node_Id); -- Node2
8514 procedure Set_Discr_Check_Funcs_Built
8515 (N : Node_Id; Val : Boolean := True); -- Flag11
8517 procedure Set_Discrete_Choices
8518 (N : Node_Id; Val : List_Id); -- List4
8520 procedure Set_Discrete_Range
8521 (N : Node_Id; Val : Node_Id); -- Node4
8523 procedure Set_Discrete_Subtype_Definition
8524 (N : Node_Id; Val : Node_Id); -- Node4
8526 procedure Set_Discrete_Subtype_Definitions
8527 (N : Node_Id; Val : List_Id); -- List2
8529 procedure Set_Discriminant_Specifications
8530 (N : Node_Id; Val : List_Id); -- List4
8532 procedure Set_Discriminant_Type
8533 (N : Node_Id; Val : Node_Id); -- Node5
8535 procedure Set_Do_Accessibility_Check
8536 (N : Node_Id; Val : Boolean := True); -- Flag13
8538 procedure Set_Do_Discriminant_Check
8539 (N : Node_Id; Val : Boolean := True); -- Flag13
8541 procedure Set_Do_Division_Check
8542 (N : Node_Id; Val : Boolean := True); -- Flag13
8544 procedure Set_Do_Length_Check
8545 (N : Node_Id; Val : Boolean := True); -- Flag4
8547 procedure Set_Do_Overflow_Check
8548 (N : Node_Id; Val : Boolean := True); -- Flag17
8550 procedure Set_Do_Range_Check
8551 (N : Node_Id; Val : Boolean := True); -- Flag9
8553 procedure Set_Do_Storage_Check
8554 (N : Node_Id; Val : Boolean := True); -- Flag17
8556 procedure Set_Do_Tag_Check
8557 (N : Node_Id; Val : Boolean := True); -- Flag13
8559 procedure Set_Elaborate_All_Desirable
8560 (N : Node_Id; Val : Boolean := True); -- Flag9
8562 procedure Set_Elaborate_All_Present
8563 (N : Node_Id; Val : Boolean := True); -- Flag14
8565 procedure Set_Elaborate_Desirable
8566 (N : Node_Id; Val : Boolean := True); -- Flag11
8568 procedure Set_Elaborate_Present
8569 (N : Node_Id; Val : Boolean := True); -- Flag4
8571 procedure Set_Elaboration_Boolean
8572 (N : Node_Id; Val : Node_Id); -- Node2
8574 procedure Set_Else_Actions
8575 (N : Node_Id; Val : List_Id); -- List3
8577 procedure Set_Else_Statements
8578 (N : Node_Id; Val : List_Id); -- List4
8580 procedure Set_Elsif_Parts
8581 (N : Node_Id; Val : List_Id); -- List3
8583 procedure Set_Enclosing_Variant
8584 (N : Node_Id; Val : Node_Id); -- Node2
8586 procedure Set_End_Label
8587 (N : Node_Id; Val : Node_Id); -- Node4
8589 procedure Set_End_Span
8590 (N : Node_Id; Val : Uint); -- Uint5
8592 procedure Set_Entity
8593 (N : Node_Id; Val : Node_Id); -- Node4
8595 procedure Set_Entry_Body_Formal_Part
8596 (N : Node_Id; Val : Node_Id); -- Node5
8598 procedure Set_Entry_Call_Alternative
8599 (N : Node_Id; Val : Node_Id); -- Node1
8601 procedure Set_Entry_Call_Statement
8602 (N : Node_Id; Val : Node_Id); -- Node1
8604 procedure Set_Entry_Direct_Name
8605 (N : Node_Id; Val : Node_Id); -- Node1
8607 procedure Set_Entry_Index
8608 (N : Node_Id; Val : Node_Id); -- Node5
8610 procedure Set_Entry_Index_Specification
8611 (N : Node_Id; Val : Node_Id); -- Node4
8614 (N : Node_Id; Val : Node_Id); -- Node5
8616 procedure Set_Exception_Choices
8617 (N : Node_Id; Val : List_Id); -- List4
8619 procedure Set_Exception_Handlers
8620 (N : Node_Id; Val : List_Id); -- List5
8622 procedure Set_Exception_Junk
8623 (N : Node_Id; Val : Boolean := True); -- Flag8
8625 procedure Set_Exception_Label
8626 (N : Node_Id; Val : Node_Id); -- Node5
8628 procedure Set_Expansion_Delayed
8629 (N : Node_Id; Val : Boolean := True); -- Flag11
8631 procedure Set_Explicit_Actual_Parameter
8632 (N : Node_Id; Val : Node_Id); -- Node3
8634 procedure Set_Explicit_Generic_Actual_Parameter
8635 (N : Node_Id; Val : Node_Id); -- Node1
8637 procedure Set_Expression
8638 (N : Node_Id; Val : Node_Id); -- Node3
8640 procedure Set_Expressions
8641 (N : Node_Id; Val : List_Id); -- List1
8643 procedure Set_First_Bit
8644 (N : Node_Id; Val : Node_Id); -- Node3
8646 procedure Set_First_Inlined_Subprogram
8647 (N : Node_Id; Val : Entity_Id); -- Node3
8649 procedure Set_First_Name
8650 (N : Node_Id; Val : Boolean := True); -- Flag5
8652 procedure Set_First_Named_Actual
8653 (N : Node_Id; Val : Node_Id); -- Node4
8655 procedure Set_First_Real_Statement
8656 (N : Node_Id; Val : Node_Id); -- Node2
8658 procedure Set_First_Subtype_Link
8659 (N : Node_Id; Val : Entity_Id); -- Node5
8661 procedure Set_Float_Truncate
8662 (N : Node_Id; Val : Boolean := True); -- Flag11
8664 procedure Set_Formal_Type_Definition
8665 (N : Node_Id; Val : Node_Id); -- Node3
8667 procedure Set_Forwards_OK
8668 (N : Node_Id; Val : Boolean := True); -- Flag5
8670 procedure Set_From_At_Mod
8671 (N : Node_Id; Val : Boolean := True); -- Flag4
8673 procedure Set_From_At_End
8674 (N : Node_Id; Val : Boolean := True); -- Flag4
8676 procedure Set_From_Default
8677 (N : Node_Id; Val : Boolean := True); -- Flag6
8679 procedure Set_Generic_Associations
8680 (N : Node_Id; Val : List_Id); -- List3
8682 procedure Set_Generic_Formal_Declarations
8683 (N : Node_Id; Val : List_Id); -- List2
8685 procedure Set_Generic_Parent
8686 (N : Node_Id; Val : Node_Id); -- Node5
8688 procedure Set_Generic_Parent_Type
8689 (N : Node_Id; Val : Node_Id); -- Node4
8691 procedure Set_Handled_Statement_Sequence
8692 (N : Node_Id; Val : Node_Id); -- Node4
8694 procedure Set_Handler_List_Entry
8695 (N : Node_Id; Val : Node_Id); -- Node2
8697 procedure Set_Has_Created_Identifier
8698 (N : Node_Id; Val : Boolean := True); -- Flag15
8700 procedure Set_Has_Dynamic_Length_Check
8701 (N : Node_Id; Val : Boolean := True); -- Flag10
8703 procedure Set_Has_Dynamic_Range_Check
8704 (N : Node_Id; Val : Boolean := True); -- Flag12
8706 procedure Set_Has_Init_Expression
8707 (N : Node_Id; Val : Boolean := True); -- Flag14
8709 procedure Set_Has_Local_Raise
8710 (N : Node_Id; Val : Boolean := True); -- Flag8
8712 procedure Set_Has_No_Elaboration_Code
8713 (N : Node_Id; Val : Boolean := True); -- Flag17
8715 procedure Set_Has_Priority_Pragma
8716 (N : Node_Id; Val : Boolean := True); -- Flag6
8718 procedure Set_Has_Private_View
8719 (N : Node_Id; Val : Boolean := True); -- Flag11
8721 procedure Set_Has_Self_Reference
8722 (N : Node_Id; Val : Boolean := True); -- Flag13
8724 procedure Set_Has_Storage_Size_Pragma
8725 (N : Node_Id; Val : Boolean := True); -- Flag5
8727 procedure Set_Has_Task_Info_Pragma
8728 (N : Node_Id; Val : Boolean := True); -- Flag7
8730 procedure Set_Has_Task_Name_Pragma
8731 (N : Node_Id; Val : Boolean := True); -- Flag8
8733 procedure Set_Has_Wide_Character
8734 (N : Node_Id; Val : Boolean := True); -- Flag11
8736 procedure Set_Hidden_By_Use_Clause
8737 (N : Node_Id; Val : Elist_Id); -- Elist4
8739 procedure Set_High_Bound
8740 (N : Node_Id; Val : Node_Id); -- Node2
8742 procedure Set_Identifier
8743 (N : Node_Id; Val : Node_Id); -- Node1
8745 procedure Set_Interface_List
8746 (N : Node_Id; Val : List_Id); -- List2
8748 procedure Set_Interface_Present
8749 (N : Node_Id; Val : Boolean := True); -- Flag16
8751 procedure Set_Implicit_With
8752 (N : Node_Id; Val : Boolean := True); -- Flag16
8754 procedure Set_In_Present
8755 (N : Node_Id; Val : Boolean := True); -- Flag15
8757 procedure Set_Includes_Infinities
8758 (N : Node_Id; Val : Boolean := True); -- Flag11
8760 procedure Set_Instance_Spec
8761 (N : Node_Id; Val : Node_Id); -- Node5
8763 procedure Set_Intval
8764 (N : Node_Id; Val : Uint); -- Uint3
8766 procedure Set_Is_Asynchronous_Call_Block
8767 (N : Node_Id; Val : Boolean := True); -- Flag7
8769 procedure Set_Is_Component_Left_Opnd
8770 (N : Node_Id; Val : Boolean := True); -- Flag13
8772 procedure Set_Is_Component_Right_Opnd
8773 (N : Node_Id; Val : Boolean := True); -- Flag14
8775 procedure Set_Is_Controlling_Actual
8776 (N : Node_Id; Val : Boolean := True); -- Flag16
8778 procedure Set_Is_Dynamic_Coextension
8779 (N : Node_Id; Val : Boolean := True); -- Flag18
8781 procedure Set_Is_Entry_Barrier_Function
8782 (N : Node_Id; Val : Boolean := True); -- Flag8
8784 procedure Set_Is_Expanded_Build_In_Place_Call
8785 (N : Node_Id; Val : Boolean := True); -- Flag11
8787 procedure Set_Is_Folded_In_Parser
8788 (N : Node_Id; Val : Boolean := True); -- Flag4
8790 procedure Set_Is_In_Discriminant_Check
8791 (N : Node_Id; Val : Boolean := True); -- Flag11
8793 procedure Set_Is_Machine_Number
8794 (N : Node_Id; Val : Boolean := True); -- Flag11
8796 procedure Set_Is_Null_Loop
8797 (N : Node_Id; Val : Boolean := True); -- Flag16
8799 procedure Set_Is_Overloaded
8800 (N : Node_Id; Val : Boolean := True); -- Flag5
8802 procedure Set_Is_Power_Of_2_For_Shift
8803 (N : Node_Id; Val : Boolean := True); -- Flag13
8805 procedure Set_Is_Protected_Subprogram_Body
8806 (N : Node_Id; Val : Boolean := True); -- Flag7
8808 procedure Set_Is_Static_Coextension
8809 (N : Node_Id; Val : Boolean := True); -- Flag14
8811 procedure Set_Is_Static_Expression
8812 (N : Node_Id; Val : Boolean := True); -- Flag6
8814 procedure Set_Is_Subprogram_Descriptor
8815 (N : Node_Id; Val : Boolean := True); -- Flag16
8817 procedure Set_Is_Task_Allocation_Block
8818 (N : Node_Id; Val : Boolean := True); -- Flag6
8820 procedure Set_Is_Task_Master
8821 (N : Node_Id; Val : Boolean := True); -- Flag5
8823 procedure Set_Iteration_Scheme
8824 (N : Node_Id; Val : Node_Id); -- Node2
8827 (N : Node_Id; Val : Entity_Id); -- Node1
8829 procedure Set_Kill_Range_Check
8830 (N : Node_Id; Val : Boolean := True); -- Flag11
8832 procedure Set_Last_Bit
8833 (N : Node_Id; Val : Node_Id); -- Node4
8835 procedure Set_Last_Name
8836 (N : Node_Id; Val : Boolean := True); -- Flag6
8838 procedure Set_Library_Unit
8839 (N : Node_Id; Val : Node_Id); -- Node4
8841 procedure Set_Label_Construct
8842 (N : Node_Id; Val : Node_Id); -- Node2
8844 procedure Set_Left_Opnd
8845 (N : Node_Id; Val : Node_Id); -- Node2
8847 procedure Set_Limited_View_Installed
8848 (N : Node_Id; Val : Boolean := True); -- Flag18
8850 procedure Set_Limited_Present
8851 (N : Node_Id; Val : Boolean := True); -- Flag17
8853 procedure Set_Literals
8854 (N : Node_Id; Val : List_Id); -- List1
8856 procedure Set_Local_Raise_Not_OK
8857 (N : Node_Id; Val : Boolean := True); -- Flag7
8859 procedure Set_Local_Raise_Statements
8860 (N : Node_Id; Val : Elist_Id); -- Elist1
8862 procedure Set_Loop_Actions
8863 (N : Node_Id; Val : List_Id); -- List2
8865 procedure Set_Loop_Parameter_Specification
8866 (N : Node_Id; Val : Node_Id); -- Node4
8868 procedure Set_Low_Bound
8869 (N : Node_Id; Val : Node_Id); -- Node1
8871 procedure Set_Mod_Clause
8872 (N : Node_Id; Val : Node_Id); -- Node2
8874 procedure Set_More_Ids
8875 (N : Node_Id; Val : Boolean := True); -- Flag5
8877 procedure Set_Must_Be_Byte_Aligned
8878 (N : Node_Id; Val : Boolean := True); -- Flag14
8880 procedure Set_Must_Not_Freeze
8881 (N : Node_Id; Val : Boolean := True); -- Flag8
8883 procedure Set_Must_Not_Override
8884 (N : Node_Id; Val : Boolean := True); -- Flag15
8886 procedure Set_Must_Override
8887 (N : Node_Id; Val : Boolean := True); -- Flag14
8890 (N : Node_Id; Val : Node_Id); -- Node2
8893 (N : Node_Id; Val : List_Id); -- List2
8895 procedure Set_Next_Entity
8896 (N : Node_Id; Val : Node_Id); -- Node2
8898 procedure Set_Next_Named_Actual
8899 (N : Node_Id; Val : Node_Id); -- Node4
8901 procedure Set_Next_Rep_Item
8902 (N : Node_Id; Val : Node_Id); -- Node5
8904 procedure Set_Next_Use_Clause
8905 (N : Node_Id; Val : Node_Id); -- Node3
8907 procedure Set_No_Ctrl_Actions
8908 (N : Node_Id; Val : Boolean := True); -- Flag7
8910 procedure Set_No_Elaboration_Check
8911 (N : Node_Id; Val : Boolean := True); -- Flag14
8913 procedure Set_No_Entities_Ref_In_Spec
8914 (N : Node_Id; Val : Boolean := True); -- Flag8
8916 procedure Set_No_Initialization
8917 (N : Node_Id; Val : Boolean := True); -- Flag13
8919 procedure Set_No_Truncation
8920 (N : Node_Id; Val : Boolean := True); -- Flag17
8922 procedure Set_Null_Present
8923 (N : Node_Id; Val : Boolean := True); -- Flag13
8925 procedure Set_Null_Exclusion_Present
8926 (N : Node_Id; Val : Boolean := True); -- Flag11
8928 procedure Set_Null_Record_Present
8929 (N : Node_Id; Val : Boolean := True); -- Flag17
8931 procedure Set_Object_Definition
8932 (N : Node_Id; Val : Node_Id); -- Node4
8934 procedure Set_Original_Discriminant
8935 (N : Node_Id; Val : Node_Id); -- Node2
8937 procedure Set_Original_Entity
8938 (N : Node_Id; Val : Entity_Id); -- Node2
8940 procedure Set_Others_Discrete_Choices
8941 (N : Node_Id; Val : List_Id); -- List1
8943 procedure Set_Out_Present
8944 (N : Node_Id; Val : Boolean := True); -- Flag17
8946 procedure Set_Parameter_Associations
8947 (N : Node_Id; Val : List_Id); -- List3
8949 procedure Set_Parameter_List_Truncated
8950 (N : Node_Id; Val : Boolean := True); -- Flag17
8952 procedure Set_Parameter_Specifications
8953 (N : Node_Id; Val : List_Id); -- List3
8955 procedure Set_Parameter_Type
8956 (N : Node_Id; Val : Node_Id); -- Node2
8958 procedure Set_Parent_Spec
8959 (N : Node_Id; Val : Node_Id); -- Node4
8961 procedure Set_Position
8962 (N : Node_Id; Val : Node_Id); -- Node2
8964 procedure Set_Pragma_Argument_Associations
8965 (N : Node_Id; Val : List_Id); -- List2
8967 procedure Set_Pragma_Identifier
8968 (N : Node_Id; Val : Node_Id); -- Node4
8970 procedure Set_Pragmas_After
8971 (N : Node_Id; Val : List_Id); -- List5
8973 procedure Set_Pragmas_Before
8974 (N : Node_Id; Val : List_Id); -- List4
8976 procedure Set_Prefix
8977 (N : Node_Id; Val : Node_Id); -- Node3
8979 procedure Set_Present_Expr
8980 (N : Node_Id; Val : Uint); -- Uint3
8982 procedure Set_Prev_Ids
8983 (N : Node_Id; Val : Boolean := True); -- Flag6
8985 procedure Set_Print_In_Hex
8986 (N : Node_Id; Val : Boolean := True); -- Flag13
8988 procedure Set_Private_Declarations
8989 (N : Node_Id; Val : List_Id); -- List3
8991 procedure Set_Private_Present
8992 (N : Node_Id; Val : Boolean := True); -- Flag15
8994 procedure Set_Procedure_To_Call
8995 (N : Node_Id; Val : Node_Id); -- Node2
8997 procedure Set_Proper_Body
8998 (N : Node_Id; Val : Node_Id); -- Node1
9000 procedure Set_Protected_Definition
9001 (N : Node_Id; Val : Node_Id); -- Node3
9003 procedure Set_Protected_Present
9004 (N : Node_Id; Val : Boolean := True); -- Flag6
9006 procedure Set_Raises_Constraint_Error
9007 (N : Node_Id; Val : Boolean := True); -- Flag7
9009 procedure Set_Range_Constraint
9010 (N : Node_Id; Val : Node_Id); -- Node4
9012 procedure Set_Range_Expression
9013 (N : Node_Id; Val : Node_Id); -- Node4
9015 procedure Set_Real_Range_Specification
9016 (N : Node_Id; Val : Node_Id); -- Node4
9018 procedure Set_Realval
9019 (N : Node_Id; Val : Ureal); -- Ureal3
9021 procedure Set_Reason
9022 (N : Node_Id; Val : Uint); -- Uint3
9024 procedure Set_Record_Extension_Part
9025 (N : Node_Id; Val : Node_Id); -- Node3
9027 procedure Set_Redundant_Use
9028 (N : Node_Id; Val : Boolean := True); -- Flag13
9030 procedure Set_Renaming_Exception
9031 (N : Node_Id; Val : Node_Id); -- Node2
9033 procedure Set_Result_Definition
9034 (N : Node_Id; Val : Node_Id); -- Node4
9036 procedure Set_Return_Object_Declarations
9037 (N : Node_Id; Val : List_Id); -- List3
9039 procedure Set_Return_Statement_Entity
9040 (N : Node_Id; Val : Node_Id); -- Node5
9042 procedure Set_Reverse_Present
9043 (N : Node_Id; Val : Boolean := True); -- Flag15
9045 procedure Set_Right_Opnd
9046 (N : Node_Id; Val : Node_Id); -- Node3
9048 procedure Set_Rounded_Result
9049 (N : Node_Id; Val : Boolean := True); -- Flag18
9052 (N : Node_Id; Val : Node_Id); -- Node3
9054 procedure Set_Select_Alternatives
9055 (N : Node_Id; Val : List_Id); -- List1
9057 procedure Set_Selector_Name
9058 (N : Node_Id; Val : Node_Id); -- Node2
9060 procedure Set_Selector_Names
9061 (N : Node_Id; Val : List_Id); -- List1
9063 procedure Set_Shift_Count_OK
9064 (N : Node_Id; Val : Boolean := True); -- Flag4
9066 procedure Set_Source_Type
9067 (N : Node_Id; Val : Entity_Id); -- Node1
9069 procedure Set_Specification
9070 (N : Node_Id; Val : Node_Id); -- Node1
9072 procedure Set_Statements
9073 (N : Node_Id; Val : List_Id); -- List3
9075 procedure Set_Static_Processing_OK
9076 (N : Node_Id; Val : Boolean); -- Flag4
9078 procedure Set_Storage_Pool
9079 (N : Node_Id; Val : Node_Id); -- Node1
9081 procedure Set_Strval
9082 (N : Node_Id; Val : String_Id); -- Str3
9084 procedure Set_Subtype_Indication
9085 (N : Node_Id; Val : Node_Id); -- Node5
9087 procedure Set_Subtype_Mark
9088 (N : Node_Id; Val : Node_Id); -- Node4
9090 procedure Set_Subtype_Marks
9091 (N : Node_Id; Val : List_Id); -- List2
9093 procedure Set_Synchronized_Present
9094 (N : Node_Id; Val : Boolean := True); -- Flag7
9096 procedure Set_Tagged_Present
9097 (N : Node_Id; Val : Boolean := True); -- Flag15
9099 procedure Set_Target_Type
9100 (N : Node_Id; Val : Entity_Id); -- Node2
9102 procedure Set_Task_Definition
9103 (N : Node_Id; Val : Node_Id); -- Node3
9105 procedure Set_Task_Present
9106 (N : Node_Id; Val : Boolean := True); -- Flag5
9108 procedure Set_Then_Actions
9109 (N : Node_Id; Val : List_Id); -- List2
9111 procedure Set_Then_Statements
9112 (N : Node_Id; Val : List_Id); -- List2
9114 procedure Set_Treat_Fixed_As_Integer
9115 (N : Node_Id; Val : Boolean := True); -- Flag14
9117 procedure Set_Triggering_Alternative
9118 (N : Node_Id; Val : Node_Id); -- Node1
9120 procedure Set_Triggering_Statement
9121 (N : Node_Id; Val : Node_Id); -- Node1
9123 procedure Set_TSS_Elist
9124 (N : Node_Id; Val : Elist_Id); -- Elist3
9126 procedure Set_Type_Definition
9127 (N : Node_Id; Val : Node_Id); -- Node3
9130 (N : Node_Id; Val : Node_Id); -- Node2
9132 procedure Set_Unknown_Discriminants_Present
9133 (N : Node_Id; Val : Boolean := True); -- Flag13
9135 procedure Set_Unreferenced_In_Spec
9136 (N : Node_Id; Val : Boolean := True); -- Flag7
9138 procedure Set_Variant_Part
9139 (N : Node_Id; Val : Node_Id); -- Node4
9141 procedure Set_Variants
9142 (N : Node_Id; Val : List_Id); -- List1
9144 procedure Set_Visible_Declarations
9145 (N : Node_Id; Val : List_Id); -- List2
9147 procedure Set_Was_Originally_Stub
9148 (N : Node_Id; Val : Boolean := True); -- Flag13
9150 procedure Set_Zero_Cost_Handling
9151 (N : Node_Id; Val : Boolean := True); -- Flag5
9153 -------------------------
9154 -- Iterator Procedures --
9155 -------------------------
9157 -- The call to Next_xxx (N) is equivalent to N := Next_xxx (N)
9159 procedure Next_Entity (N : in out Node_Id);
9160 procedure Next_Named_Actual (N : in out Node_Id);
9161 procedure Next_Rep_Item (N : in out Node_Id);
9162 procedure Next_Use_Clause (N : in out Node_Id);
9164 --------------------------------------
9165 -- Logical Access to End_Span Field --
9166 --------------------------------------
9168 function End_Location (N : Node_Id) return Source_Ptr;
9169 -- N is an N_If_Statement or N_Case_Statement node, and this
9170 -- function returns the location of the IF token in the END IF
9171 -- sequence by translating the value of the End_Span field.
9173 procedure Set_End_Location (N : Node_Id; S : Source_Ptr);
9174 -- N is an N_If_Statement or N_Case_Statement node. This procedure
9175 -- sets the End_Span field to correspond to the given value S. In
9176 -- other words, End_Span is set to the difference between S and
9177 -- Sloc (N), the starting location.
9179 --------------------------------
9180 -- Node_Kind Membership Tests --
9181 --------------------------------
9183 -- The following functions allow a convenient notation for testing wheter
9184 -- a Node_Kind value matches any one of a list of possible values. In each
9185 -- case True is returned if the given T argument is equal to any of the V
9186 -- arguments. Note that there is a similar set of functions defined in
9187 -- Atree where the first argument is a Node_Id whose Nkind field is tested.
9192 V2 : Node_Kind) return Boolean;
9198 V3 : Node_Kind) return Boolean;
9205 V4 : Node_Kind) return Boolean;
9213 V5 : Node_Kind) return Boolean;
9222 V6 : Node_Kind) return Boolean;
9232 V7 : Node_Kind) return Boolean;
9243 V8 : Node_Kind) return Boolean;
9245 pragma Inline (Nkind_In);
9246 -- Inline all above functions
9248 -----------------------
9249 -- Utility Functions --
9250 -----------------------
9252 function Pragma_Name (N : Node_Id) return Name_Id;
9253 pragma Inline (Pragma_Name);
9254 -- Convenient function to obtain Chars field of Pragma_Identifier
9256 -----------------------------
9257 -- Syntactic Parent Tables --
9258 -----------------------------
9260 -- These tables show for each node, and for each of the five fields,
9261 -- whether the corresponding field is syntactic (True) or semantic (False).
9262 -- Unused entries are also set to False.
9264 subtype Field_Num is Natural range 1 .. 5;
9266 Is_Syntactic_Field : constant array (Node_Kind, Field_Num) of Boolean := (
9268 -- Following entries can be built automatically from the sinfo sources
9269 -- using the makeisf utility (currently this program is in spitbol).
9272 (1 => True, -- Chars (Name1)
9273 2 => False, -- Original_Discriminant (Node2-Sem)
9274 3 => False, -- unused
9275 4 => False, -- Entity (Node4-Sem)
9276 5 => False), -- Etype (Node5-Sem)
9278 N_Integer_Literal =>
9279 (1 => False, -- unused
9280 2 => False, -- Original_Entity (Node2-Sem)
9281 3 => True, -- Intval (Uint3)
9282 4 => False, -- unused
9283 5 => False), -- Etype (Node5-Sem)
9286 (1 => False, -- unused
9287 2 => False, -- Original_Entity (Node2-Sem)
9288 3 => True, -- Realval (Ureal3)
9289 4 => False, -- Corresponding_Integer_Value (Uint4-Sem)
9290 5 => False), -- Etype (Node5-Sem)
9292 N_Character_Literal =>
9293 (1 => True, -- Chars (Name1)
9294 2 => True, -- Char_Literal_Value (Uint2)
9295 3 => False, -- unused
9296 4 => False, -- Entity (Node4-Sem)
9297 5 => False), -- Etype (Node5-Sem)
9300 (1 => False, -- unused
9301 2 => False, -- unused
9302 3 => True, -- Strval (Str3)
9303 4 => False, -- unused
9304 5 => False), -- Etype (Node5-Sem)
9307 (1 => True, -- Chars (Name1)
9308 2 => True, -- Pragma_Argument_Associations (List2)
9309 3 => True, -- Debug_Statement (Node3)
9310 4 => True, -- Pragma_Identifier (Node4)
9311 5 => False), -- Next_Rep_Item (Node5-Sem)
9313 N_Pragma_Argument_Association =>
9314 (1 => True, -- Chars (Name1)
9315 2 => False, -- unused
9316 3 => True, -- Expression (Node3)
9317 4 => False, -- unused
9318 5 => False), -- unused
9320 N_Defining_Identifier =>
9321 (1 => True, -- Chars (Name1)
9322 2 => False, -- Next_Entity (Node2-Sem)
9323 3 => False, -- Scope (Node3-Sem)
9324 4 => False, -- unused
9325 5 => False), -- Etype (Node5-Sem)
9327 N_Full_Type_Declaration =>
9328 (1 => True, -- Defining_Identifier (Node1)
9329 2 => False, -- unused
9330 3 => True, -- Type_Definition (Node3)
9331 4 => True, -- Discriminant_Specifications (List4)
9332 5 => False), -- unused
9334 N_Subtype_Declaration =>
9335 (1 => True, -- Defining_Identifier (Node1)
9336 2 => False, -- unused
9337 3 => False, -- unused
9338 4 => False, -- Generic_Parent_Type (Node4-Sem)
9339 5 => True), -- Subtype_Indication (Node5)
9341 N_Subtype_Indication =>
9342 (1 => False, -- unused
9343 2 => False, -- unused
9344 3 => True, -- Constraint (Node3)
9345 4 => True, -- Subtype_Mark (Node4)
9346 5 => False), -- Etype (Node5-Sem)
9348 N_Object_Declaration =>
9349 (1 => True, -- Defining_Identifier (Node1)
9350 2 => False, -- Handler_List_Entry (Node2-Sem)
9351 3 => True, -- Expression (Node3)
9352 4 => True, -- Object_Definition (Node4)
9353 5 => False), -- Corresponding_Generic_Association (Node5-Sem)
9355 N_Number_Declaration =>
9356 (1 => True, -- Defining_Identifier (Node1)
9357 2 => False, -- unused
9358 3 => True, -- Expression (Node3)
9359 4 => False, -- unused
9360 5 => False), -- unused
9362 N_Derived_Type_Definition =>
9363 (1 => False, -- unused
9364 2 => True, -- Interface_List (List2)
9365 3 => True, -- Record_Extension_Part (Node3)
9366 4 => False, -- unused
9367 5 => True), -- Subtype_Indication (Node5)
9369 N_Range_Constraint =>
9370 (1 => False, -- unused
9371 2 => False, -- unused
9372 3 => False, -- unused
9373 4 => True, -- Range_Expression (Node4)
9374 5 => False), -- unused
9377 (1 => True, -- Low_Bound (Node1)
9378 2 => True, -- High_Bound (Node2)
9379 3 => False, -- unused
9380 4 => False, -- unused
9381 5 => False), -- Etype (Node5-Sem)
9383 N_Enumeration_Type_Definition =>
9384 (1 => True, -- Literals (List1)
9385 2 => False, -- unused
9386 3 => False, -- unused
9387 4 => True, -- End_Label (Node4)
9388 5 => False), -- unused
9390 N_Defining_Character_Literal =>
9391 (1 => True, -- Chars (Name1)
9392 2 => False, -- Next_Entity (Node2-Sem)
9393 3 => False, -- Scope (Node3-Sem)
9394 4 => False, -- unused
9395 5 => False), -- Etype (Node5-Sem)
9397 N_Signed_Integer_Type_Definition =>
9398 (1 => True, -- Low_Bound (Node1)
9399 2 => True, -- High_Bound (Node2)
9400 3 => False, -- unused
9401 4 => False, -- unused
9402 5 => False), -- unused
9404 N_Modular_Type_Definition =>
9405 (1 => False, -- unused
9406 2 => False, -- unused
9407 3 => True, -- Expression (Node3)
9408 4 => False, -- unused
9409 5 => False), -- unused
9411 N_Floating_Point_Definition =>
9412 (1 => False, -- unused
9413 2 => True, -- Digits_Expression (Node2)
9414 3 => False, -- unused
9415 4 => True, -- Real_Range_Specification (Node4)
9416 5 => False), -- unused
9418 N_Real_Range_Specification =>
9419 (1 => True, -- Low_Bound (Node1)
9420 2 => True, -- High_Bound (Node2)
9421 3 => False, -- unused
9422 4 => False, -- unused
9423 5 => False), -- unused
9425 N_Ordinary_Fixed_Point_Definition =>
9426 (1 => False, -- unused
9427 2 => False, -- unused
9428 3 => True, -- Delta_Expression (Node3)
9429 4 => True, -- Real_Range_Specification (Node4)
9430 5 => False), -- unused
9432 N_Decimal_Fixed_Point_Definition =>
9433 (1 => False, -- unused
9434 2 => True, -- Digits_Expression (Node2)
9435 3 => True, -- Delta_Expression (Node3)
9436 4 => True, -- Real_Range_Specification (Node4)
9437 5 => False), -- unused
9439 N_Digits_Constraint =>
9440 (1 => False, -- unused
9441 2 => True, -- Digits_Expression (Node2)
9442 3 => False, -- unused
9443 4 => True, -- Range_Constraint (Node4)
9444 5 => False), -- unused
9446 N_Unconstrained_Array_Definition =>
9447 (1 => False, -- unused
9448 2 => True, -- Subtype_Marks (List2)
9449 3 => False, -- unused
9450 4 => True, -- Component_Definition (Node4)
9451 5 => False), -- unused
9453 N_Constrained_Array_Definition =>
9454 (1 => False, -- unused
9455 2 => True, -- Discrete_Subtype_Definitions (List2)
9456 3 => False, -- unused
9457 4 => True, -- Component_Definition (Node4)
9458 5 => False), -- unused
9460 N_Component_Definition =>
9461 (1 => False, -- unused
9462 2 => False, -- unused
9463 3 => True, -- Access_Definition (Node3)
9464 4 => False, -- unused
9465 5 => True), -- Subtype_Indication (Node5)
9467 N_Discriminant_Specification =>
9468 (1 => True, -- Defining_Identifier (Node1)
9469 2 => False, -- unused
9470 3 => True, -- Expression (Node3)
9471 4 => False, -- unused
9472 5 => True), -- Discriminant_Type (Node5)
9474 N_Index_Or_Discriminant_Constraint =>
9475 (1 => True, -- Constraints (List1)
9476 2 => False, -- unused
9477 3 => False, -- unused
9478 4 => False, -- unused
9479 5 => False), -- unused
9481 N_Discriminant_Association =>
9482 (1 => True, -- Selector_Names (List1)
9483 2 => False, -- unused
9484 3 => True, -- Expression (Node3)
9485 4 => False, -- unused
9486 5 => False), -- unused
9488 N_Record_Definition =>
9489 (1 => True, -- Component_List (Node1)
9490 2 => True, -- Interface_List (List2)
9491 3 => False, -- unused
9492 4 => True, -- End_Label (Node4)
9493 5 => False), -- unused
9496 (1 => False, -- unused
9497 2 => False, -- unused
9498 3 => True, -- Component_Items (List3)
9499 4 => True, -- Variant_Part (Node4)
9500 5 => False), -- unused
9502 N_Component_Declaration =>
9503 (1 => True, -- Defining_Identifier (Node1)
9504 2 => False, -- unused
9505 3 => True, -- Expression (Node3)
9506 4 => True, -- Component_Definition (Node4)
9507 5 => False), -- unused
9510 (1 => True, -- Variants (List1)
9511 2 => True, -- Name (Node2)
9512 3 => False, -- unused
9513 4 => False, -- unused
9514 5 => False), -- unused
9517 (1 => True, -- Component_List (Node1)
9518 2 => False, -- Enclosing_Variant (Node2-Sem)
9519 3 => False, -- Present_Expr (Uint3-Sem)
9520 4 => True, -- Discrete_Choices (List4)
9521 5 => False), -- Dcheck_Function (Node5-Sem)
9524 (1 => False, -- Others_Discrete_Choices (List1-Sem)
9525 2 => False, -- unused
9526 3 => False, -- unused
9527 4 => False, -- unused
9528 5 => False), -- unused
9530 N_Access_To_Object_Definition =>
9531 (1 => False, -- unused
9532 2 => False, -- unused
9533 3 => False, -- unused
9534 4 => False, -- unused
9535 5 => True), -- Subtype_Indication (Node5)
9537 N_Access_Function_Definition =>
9538 (1 => False, -- unused
9539 2 => False, -- unused
9540 3 => True, -- Parameter_Specifications (List3)
9541 4 => True, -- Result_Definition (Node4)
9542 5 => False), -- unused
9544 N_Access_Procedure_Definition =>
9545 (1 => False, -- unused
9546 2 => False, -- unused
9547 3 => True, -- Parameter_Specifications (List3)
9548 4 => False, -- unused
9549 5 => False), -- unused
9551 N_Access_Definition =>
9552 (1 => False, -- unused
9553 2 => False, -- unused
9554 3 => True, -- Access_To_Subprogram_Definition (Node3)
9555 4 => True, -- Subtype_Mark (Node4)
9556 5 => False), -- unused
9558 N_Incomplete_Type_Declaration =>
9559 (1 => True, -- Defining_Identifier (Node1)
9560 2 => False, -- unused
9561 3 => False, -- unused
9562 4 => True, -- Discriminant_Specifications (List4)
9563 5 => False), -- unused
9565 N_Explicit_Dereference =>
9566 (1 => False, -- unused
9567 2 => False, -- unused
9568 3 => True, -- Prefix (Node3)
9569 4 => False, -- Actual_Designated_Subtype (Node4-Sem)
9570 5 => False), -- Etype (Node5-Sem)
9572 N_Indexed_Component =>
9573 (1 => True, -- Expressions (List1)
9574 2 => False, -- unused
9575 3 => True, -- Prefix (Node3)
9576 4 => False, -- unused
9577 5 => False), -- Etype (Node5-Sem)
9580 (1 => False, -- unused
9581 2 => False, -- unused
9582 3 => True, -- Prefix (Node3)
9583 4 => True, -- Discrete_Range (Node4)
9584 5 => False), -- Etype (Node5-Sem)
9586 N_Selected_Component =>
9587 (1 => False, -- unused
9588 2 => True, -- Selector_Name (Node2)
9589 3 => True, -- Prefix (Node3)
9590 4 => False, -- unused
9591 5 => False), -- Etype (Node5-Sem)
9593 N_Attribute_Reference =>
9594 (1 => True, -- Expressions (List1)
9595 2 => True, -- Attribute_Name (Name2)
9596 3 => True, -- Prefix (Node3)
9597 4 => False, -- Entity (Node4-Sem)
9598 5 => False), -- Etype (Node5-Sem)
9601 (1 => True, -- Expressions (List1)
9602 2 => True, -- Component_Associations (List2)
9603 3 => False, -- Aggregate_Bounds (Node3-Sem)
9604 4 => False, -- unused
9605 5 => False), -- Etype (Node5-Sem)
9607 N_Component_Association =>
9608 (1 => True, -- Choices (List1)
9609 2 => False, -- Loop_Actions (List2-Sem)
9610 3 => True, -- Expression (Node3)
9611 4 => False, -- unused
9612 5 => False), -- unused
9614 N_Extension_Aggregate =>
9615 (1 => True, -- Expressions (List1)
9616 2 => True, -- Component_Associations (List2)
9617 3 => True, -- Ancestor_Part (Node3)
9618 4 => False, -- unused
9619 5 => False), -- Etype (Node5-Sem)
9622 (1 => False, -- unused
9623 2 => False, -- unused
9624 3 => False, -- unused
9625 4 => False, -- unused
9626 5 => False), -- Etype (Node5-Sem)
9629 (1 => False, -- Actions (List1-Sem)
9630 2 => True, -- Left_Opnd (Node2)
9631 3 => True, -- Right_Opnd (Node3)
9632 4 => False, -- unused
9633 5 => False), -- Etype (Node5-Sem)
9636 (1 => False, -- Actions (List1-Sem)
9637 2 => True, -- Left_Opnd (Node2)
9638 3 => True, -- Right_Opnd (Node3)
9639 4 => False, -- unused
9640 5 => False), -- Etype (Node5-Sem)
9643 (1 => False, -- unused
9644 2 => True, -- Left_Opnd (Node2)
9645 3 => True, -- Right_Opnd (Node3)
9646 4 => False, -- unused
9647 5 => False), -- Etype (Node5-Sem)
9650 (1 => False, -- unused
9651 2 => True, -- Left_Opnd (Node2)
9652 3 => True, -- Right_Opnd (Node3)
9653 4 => False, -- unused
9654 5 => False), -- Etype (Node5-Sem)
9657 (1 => True, -- Chars (Name1)
9658 2 => True, -- Left_Opnd (Node2)
9659 3 => True, -- Right_Opnd (Node3)
9660 4 => False, -- Entity (Node4-Sem)
9661 5 => False), -- Etype (Node5-Sem)
9664 (1 => True, -- Chars (Name1)
9665 2 => True, -- Left_Opnd (Node2)
9666 3 => True, -- Right_Opnd (Node3)
9667 4 => False, -- Entity (Node4-Sem)
9668 5 => False), -- Etype (Node5-Sem)
9671 (1 => True, -- Chars (Name1)
9672 2 => True, -- Left_Opnd (Node2)
9673 3 => True, -- Right_Opnd (Node3)
9674 4 => False, -- Entity (Node4-Sem)
9675 5 => False), -- Etype (Node5-Sem)
9678 (1 => True, -- Chars (Name1)
9679 2 => True, -- Left_Opnd (Node2)
9680 3 => True, -- Right_Opnd (Node3)
9681 4 => False, -- Entity (Node4-Sem)
9682 5 => False), -- Etype (Node5-Sem)
9685 (1 => True, -- Chars (Name1)
9686 2 => True, -- Left_Opnd (Node2)
9687 3 => True, -- Right_Opnd (Node3)
9688 4 => False, -- Entity (Node4-Sem)
9689 5 => False), -- Etype (Node5-Sem)
9692 (1 => True, -- Chars (Name1)
9693 2 => True, -- Left_Opnd (Node2)
9694 3 => True, -- Right_Opnd (Node3)
9695 4 => False, -- Entity (Node4-Sem)
9696 5 => False), -- Etype (Node5-Sem)
9699 (1 => True, -- Chars (Name1)
9700 2 => True, -- Left_Opnd (Node2)
9701 3 => True, -- Right_Opnd (Node3)
9702 4 => False, -- Entity (Node4-Sem)
9703 5 => False), -- Etype (Node5-Sem)
9706 (1 => True, -- Chars (Name1)
9707 2 => True, -- Left_Opnd (Node2)
9708 3 => True, -- Right_Opnd (Node3)
9709 4 => False, -- Entity (Node4-Sem)
9710 5 => False), -- Etype (Node5-Sem)
9713 (1 => True, -- Chars (Name1)
9714 2 => True, -- Left_Opnd (Node2)
9715 3 => True, -- Right_Opnd (Node3)
9716 4 => False, -- Entity (Node4-Sem)
9717 5 => False), -- Etype (Node5-Sem)
9720 (1 => True, -- Chars (Name1)
9721 2 => True, -- Left_Opnd (Node2)
9722 3 => True, -- Right_Opnd (Node3)
9723 4 => False, -- Entity (Node4-Sem)
9724 5 => False), -- Etype (Node5-Sem)
9727 (1 => True, -- Chars (Name1)
9728 2 => True, -- Left_Opnd (Node2)
9729 3 => True, -- Right_Opnd (Node3)
9730 4 => False, -- Entity (Node4-Sem)
9731 5 => False), -- Etype (Node5-Sem)
9734 (1 => True, -- Chars (Name1)
9735 2 => True, -- Left_Opnd (Node2)
9736 3 => True, -- Right_Opnd (Node3)
9737 4 => False, -- Entity (Node4-Sem)
9738 5 => False), -- Etype (Node5-Sem)
9741 (1 => True, -- Chars (Name1)
9742 2 => True, -- Left_Opnd (Node2)
9743 3 => True, -- Right_Opnd (Node3)
9744 4 => False, -- Entity (Node4-Sem)
9745 5 => False), -- Etype (Node5-Sem)
9748 (1 => True, -- Chars (Name1)
9749 2 => True, -- Left_Opnd (Node2)
9750 3 => True, -- Right_Opnd (Node3)
9751 4 => False, -- Entity (Node4-Sem)
9752 5 => False), -- Etype (Node5-Sem)
9755 (1 => True, -- Chars (Name1)
9756 2 => True, -- Left_Opnd (Node2)
9757 3 => True, -- Right_Opnd (Node3)
9758 4 => False, -- Entity (Node4-Sem)
9759 5 => False), -- Etype (Node5-Sem)
9762 (1 => True, -- Chars (Name1)
9763 2 => True, -- Left_Opnd (Node2)
9764 3 => True, -- Right_Opnd (Node3)
9765 4 => False, -- Entity (Node4-Sem)
9766 5 => False), -- Etype (Node5-Sem)
9769 (1 => True, -- Chars (Name1)
9770 2 => True, -- Left_Opnd (Node2)
9771 3 => True, -- Right_Opnd (Node3)
9772 4 => False, -- Entity (Node4-Sem)
9773 5 => False), -- Etype (Node5-Sem)
9776 (1 => True, -- Chars (Name1)
9777 2 => False, -- unused
9778 3 => True, -- Right_Opnd (Node3)
9779 4 => False, -- Entity (Node4-Sem)
9780 5 => False), -- Etype (Node5-Sem)
9783 (1 => True, -- Chars (Name1)
9784 2 => False, -- unused
9785 3 => True, -- Right_Opnd (Node3)
9786 4 => False, -- Entity (Node4-Sem)
9787 5 => False), -- Etype (Node5-Sem)
9790 (1 => True, -- Chars (Name1)
9791 2 => False, -- unused
9792 3 => True, -- Right_Opnd (Node3)
9793 4 => False, -- Entity (Node4-Sem)
9794 5 => False), -- Etype (Node5-Sem)
9797 (1 => True, -- Chars (Name1)
9798 2 => False, -- unused
9799 3 => True, -- Right_Opnd (Node3)
9800 4 => False, -- Entity (Node4-Sem)
9801 5 => False), -- Etype (Node5-Sem)
9803 N_Type_Conversion =>
9804 (1 => False, -- unused
9805 2 => False, -- unused
9806 3 => True, -- Expression (Node3)
9807 4 => True, -- Subtype_Mark (Node4)
9808 5 => False), -- Etype (Node5-Sem)
9810 N_Qualified_Expression =>
9811 (1 => False, -- unused
9812 2 => False, -- unused
9813 3 => True, -- Expression (Node3)
9814 4 => True, -- Subtype_Mark (Node4)
9815 5 => False), -- Etype (Node5-Sem)
9818 (1 => False, -- Storage_Pool (Node1-Sem)
9819 2 => False, -- Procedure_To_Call (Node2-Sem)
9820 3 => True, -- Expression (Node3)
9821 4 => False, -- Coextensions (Elist4-Sem)
9822 5 => False), -- Etype (Node5-Sem)
9825 (1 => False, -- unused
9826 2 => False, -- unused
9827 3 => False, -- unused
9828 4 => False, -- unused
9829 5 => False), -- unused
9832 (1 => True, -- Identifier (Node1)
9833 2 => False, -- unused
9834 3 => False, -- unused
9835 4 => False, -- unused
9836 5 => False), -- unused
9838 N_Assignment_Statement =>
9839 (1 => False, -- unused
9840 2 => True, -- Name (Node2)
9841 3 => True, -- Expression (Node3)
9842 4 => False, -- unused
9843 5 => False), -- unused
9846 (1 => True, -- Condition (Node1)
9847 2 => True, -- Then_Statements (List2)
9848 3 => True, -- Elsif_Parts (List3)
9849 4 => True, -- Else_Statements (List4)
9850 5 => True), -- End_Span (Uint5)
9853 (1 => True, -- Condition (Node1)
9854 2 => True, -- Then_Statements (List2)
9855 3 => False, -- Condition_Actions (List3-Sem)
9856 4 => False, -- unused
9857 5 => False), -- unused
9860 (1 => False, -- unused
9861 2 => False, -- unused
9862 3 => True, -- Expression (Node3)
9863 4 => True, -- Alternatives (List4)
9864 5 => True), -- End_Span (Uint5)
9866 N_Case_Statement_Alternative =>
9867 (1 => False, -- unused
9868 2 => False, -- unused
9869 3 => True, -- Statements (List3)
9870 4 => True, -- Discrete_Choices (List4)
9871 5 => False), -- unused
9874 (1 => True, -- Identifier (Node1)
9875 2 => True, -- Iteration_Scheme (Node2)
9876 3 => True, -- Statements (List3)
9877 4 => True, -- End_Label (Node4)
9878 5 => False), -- unused
9880 N_Iteration_Scheme =>
9881 (1 => True, -- Condition (Node1)
9882 2 => False, -- unused
9883 3 => False, -- Condition_Actions (List3-Sem)
9884 4 => True, -- Loop_Parameter_Specification (Node4)
9885 5 => False), -- unused
9887 N_Loop_Parameter_Specification =>
9888 (1 => True, -- Defining_Identifier (Node1)
9889 2 => False, -- unused
9890 3 => False, -- unused
9891 4 => True, -- Discrete_Subtype_Definition (Node4)
9892 5 => False), -- unused
9894 N_Block_Statement =>
9895 (1 => True, -- Identifier (Node1)
9896 2 => True, -- Declarations (List2)
9897 3 => False, -- Activation_Chain_Entity (Node3-Sem)
9898 4 => True, -- Handled_Statement_Sequence (Node4)
9899 5 => False), -- unused
9902 (1 => True, -- Condition (Node1)
9903 2 => True, -- Name (Node2)
9904 3 => False, -- unused
9905 4 => False, -- unused
9906 5 => False), -- unused
9909 (1 => False, -- unused
9910 2 => True, -- Name (Node2)
9911 3 => False, -- unused
9912 4 => False, -- unused
9913 5 => False), -- unused
9915 N_Subprogram_Declaration =>
9916 (1 => True, -- Specification (Node1)
9917 2 => False, -- unused
9918 3 => False, -- Body_To_Inline (Node3-Sem)
9919 4 => False, -- Parent_Spec (Node4-Sem)
9920 5 => False), -- Corresponding_Body (Node5-Sem)
9922 N_Abstract_Subprogram_Declaration =>
9923 (1 => True, -- Specification (Node1)
9924 2 => False, -- unused
9925 3 => False, -- unused
9926 4 => False, -- unused
9927 5 => False), -- unused
9929 N_Function_Specification =>
9930 (1 => True, -- Defining_Unit_Name (Node1)
9931 2 => False, -- Elaboration_Boolean (Node2-Sem)
9932 3 => True, -- Parameter_Specifications (List3)
9933 4 => True, -- Result_Definition (Node4)
9934 5 => False), -- Generic_Parent (Node5-Sem)
9936 N_Procedure_Specification =>
9937 (1 => True, -- Defining_Unit_Name (Node1)
9938 2 => False, -- Elaboration_Boolean (Node2-Sem)
9939 3 => True, -- Parameter_Specifications (List3)
9940 4 => False, -- unused
9941 5 => False), -- Generic_Parent (Node5-Sem)
9944 (1 => True, -- Identifier (Node1)
9945 2 => True, -- Name (Node2)
9946 3 => False, -- unused
9947 4 => False, -- unused
9948 5 => False), -- unused
9950 N_Defining_Program_Unit_Name =>
9951 (1 => True, -- Defining_Identifier (Node1)
9952 2 => True, -- Name (Node2)
9953 3 => False, -- unused
9954 4 => False, -- unused
9955 5 => False), -- unused
9957 N_Operator_Symbol =>
9958 (1 => True, -- Chars (Name1)
9959 2 => False, -- unused
9960 3 => True, -- Strval (Str3)
9961 4 => False, -- Entity (Node4-Sem)
9962 5 => False), -- Etype (Node5-Sem)
9964 N_Defining_Operator_Symbol =>
9965 (1 => True, -- Chars (Name1)
9966 2 => False, -- Next_Entity (Node2-Sem)
9967 3 => False, -- Scope (Node3-Sem)
9968 4 => False, -- unused
9969 5 => False), -- Etype (Node5-Sem)
9971 N_Parameter_Specification =>
9972 (1 => True, -- Defining_Identifier (Node1)
9973 2 => True, -- Parameter_Type (Node2)
9974 3 => True, -- Expression (Node3)
9975 4 => False, -- unused
9976 5 => False), -- Default_Expression (Node5-Sem)
9978 N_Subprogram_Body =>
9979 (1 => True, -- Specification (Node1)
9980 2 => True, -- Declarations (List2)
9981 3 => False, -- Activation_Chain_Entity (Node3-Sem)
9982 4 => True, -- Handled_Statement_Sequence (Node4)
9983 5 => False), -- Corresponding_Spec (Node5-Sem)
9985 N_Procedure_Call_Statement =>
9986 (1 => False, -- Controlling_Argument (Node1-Sem)
9987 2 => True, -- Name (Node2)
9988 3 => True, -- Parameter_Associations (List3)
9989 4 => False, -- First_Named_Actual (Node4-Sem)
9990 5 => False), -- Etype (Node5-Sem)
9993 (1 => False, -- Controlling_Argument (Node1-Sem)
9994 2 => True, -- Name (Node2)
9995 3 => True, -- Parameter_Associations (List3)
9996 4 => False, -- First_Named_Actual (Node4-Sem)
9997 5 => False), -- Etype (Node5-Sem)
9999 N_Parameter_Association =>
10000 (1 => False, -- unused
10001 2 => True, -- Selector_Name (Node2)
10002 3 => True, -- Explicit_Actual_Parameter (Node3)
10003 4 => False, -- Next_Named_Actual (Node4-Sem)
10004 5 => False), -- unused
10006 N_Return_Statement =>
10007 (1 => False, -- Storage_Pool (Node1-Sem)
10008 2 => False, -- Procedure_To_Call (Node2-Sem)
10009 3 => True, -- Expression (Node3)
10010 4 => False, -- unused
10011 5 => False), -- Return_Statement_Entity (Node5-Sem)
10013 N_Extended_Return_Statement =>
10014 (1 => False, -- Storage_Pool (Node1-Sem)
10015 2 => False, -- Procedure_To_Call (Node2-Sem)
10016 3 => True, -- Return_Object_Declarations (List3)
10017 4 => True, -- Handled_Statement_Sequence (Node4)
10018 5 => False), -- Return_Statement_Entity (Node5-Sem)
10020 N_Package_Declaration =>
10021 (1 => True, -- Specification (Node1)
10022 2 => False, -- unused
10023 3 => False, -- Activation_Chain_Entity (Node3-Sem)
10024 4 => False, -- Parent_Spec (Node4-Sem)
10025 5 => False), -- Corresponding_Body (Node5-Sem)
10027 N_Package_Specification =>
10028 (1 => True, -- Defining_Unit_Name (Node1)
10029 2 => True, -- Visible_Declarations (List2)
10030 3 => True, -- Private_Declarations (List3)
10031 4 => True, -- End_Label (Node4)
10032 5 => False), -- Generic_Parent (Node5-Sem)
10035 (1 => True, -- Defining_Unit_Name (Node1)
10036 2 => True, -- Declarations (List2)
10037 3 => False, -- unused
10038 4 => True, -- Handled_Statement_Sequence (Node4)
10039 5 => False), -- Corresponding_Spec (Node5-Sem)
10041 N_Private_Type_Declaration =>
10042 (1 => True, -- Defining_Identifier (Node1)
10043 2 => False, -- unused
10044 3 => False, -- unused
10045 4 => True, -- Discriminant_Specifications (List4)
10046 5 => False), -- unused
10048 N_Private_Extension_Declaration =>
10049 (1 => True, -- Defining_Identifier (Node1)
10050 2 => True, -- Interface_List (List2)
10051 3 => False, -- unused
10052 4 => True, -- Discriminant_Specifications (List4)
10053 5 => True), -- Subtype_Indication (Node5)
10055 N_Use_Package_Clause =>
10056 (1 => False, -- unused
10057 2 => True, -- Names (List2)
10058 3 => False, -- Next_Use_Clause (Node3-Sem)
10059 4 => False, -- Hidden_By_Use_Clause (Elist4-Sem)
10060 5 => False), -- unused
10062 N_Use_Type_Clause =>
10063 (1 => False, -- unused
10064 2 => True, -- Subtype_Marks (List2)
10065 3 => False, -- Next_Use_Clause (Node3-Sem)
10066 4 => False, -- Hidden_By_Use_Clause (Elist4-Sem)
10067 5 => False), -- unused
10069 N_Object_Renaming_Declaration =>
10070 (1 => True, -- Defining_Identifier (Node1)
10071 2 => True, -- Name (Node2)
10072 3 => True, -- Access_Definition (Node3)
10073 4 => True, -- Subtype_Mark (Node4)
10074 5 => False), -- Corresponding_Generic_Association (Node5-Sem)
10076 N_Exception_Renaming_Declaration =>
10077 (1 => True, -- Defining_Identifier (Node1)
10078 2 => True, -- Name (Node2)
10079 3 => False, -- unused
10080 4 => False, -- unused
10081 5 => False), -- unused
10083 N_Package_Renaming_Declaration =>
10084 (1 => True, -- Defining_Unit_Name (Node1)
10085 2 => True, -- Name (Node2)
10086 3 => False, -- unused
10087 4 => False, -- Parent_Spec (Node4-Sem)
10088 5 => False), -- unused
10090 N_Subprogram_Renaming_Declaration =>
10091 (1 => True, -- Specification (Node1)
10092 2 => True, -- Name (Node2)
10093 3 => False, -- Corresponding_Formal_Spec (Node3-Sem)
10094 4 => False, -- Parent_Spec (Node4-Sem)
10095 5 => False), -- Corresponding_Spec (Node5-Sem)
10097 N_Generic_Package_Renaming_Declaration =>
10098 (1 => True, -- Defining_Unit_Name (Node1)
10099 2 => True, -- Name (Node2)
10100 3 => False, -- unused
10101 4 => False, -- Parent_Spec (Node4-Sem)
10102 5 => False), -- unused
10104 N_Generic_Procedure_Renaming_Declaration =>
10105 (1 => True, -- Defining_Unit_Name (Node1)
10106 2 => True, -- Name (Node2)
10107 3 => False, -- unused
10108 4 => False, -- Parent_Spec (Node4-Sem)
10109 5 => False), -- unused
10111 N_Generic_Function_Renaming_Declaration =>
10112 (1 => True, -- Defining_Unit_Name (Node1)
10113 2 => True, -- Name (Node2)
10114 3 => False, -- unused
10115 4 => False, -- Parent_Spec (Node4-Sem)
10116 5 => False), -- unused
10118 N_Task_Type_Declaration =>
10119 (1 => True, -- Defining_Identifier (Node1)
10120 2 => True, -- Interface_List (List2)
10121 3 => True, -- Task_Definition (Node3)
10122 4 => True, -- Discriminant_Specifications (List4)
10123 5 => False), -- Corresponding_Body (Node5-Sem)
10125 N_Single_Task_Declaration =>
10126 (1 => True, -- Defining_Identifier (Node1)
10127 2 => True, -- Interface_List (List2)
10128 3 => True, -- Task_Definition (Node3)
10129 4 => False, -- unused
10130 5 => False), -- unused
10132 N_Task_Definition =>
10133 (1 => False, -- unused
10134 2 => True, -- Visible_Declarations (List2)
10135 3 => True, -- Private_Declarations (List3)
10136 4 => True, -- End_Label (Node4)
10137 5 => False), -- unused
10140 (1 => True, -- Defining_Identifier (Node1)
10141 2 => True, -- Declarations (List2)
10142 3 => False, -- Activation_Chain_Entity (Node3-Sem)
10143 4 => True, -- Handled_Statement_Sequence (Node4)
10144 5 => False), -- Corresponding_Spec (Node5-Sem)
10146 N_Protected_Type_Declaration =>
10147 (1 => True, -- Defining_Identifier (Node1)
10148 2 => True, -- Interface_List (List2)
10149 3 => True, -- Protected_Definition (Node3)
10150 4 => True, -- Discriminant_Specifications (List4)
10151 5 => False), -- Corresponding_Body (Node5-Sem)
10153 N_Single_Protected_Declaration =>
10154 (1 => True, -- Defining_Identifier (Node1)
10155 2 => True, -- Interface_List (List2)
10156 3 => True, -- Protected_Definition (Node3)
10157 4 => False, -- unused
10158 5 => False), -- unused
10160 N_Protected_Definition =>
10161 (1 => False, -- unused
10162 2 => True, -- Visible_Declarations (List2)
10163 3 => True, -- Private_Declarations (List3)
10164 4 => True, -- End_Label (Node4)
10165 5 => False), -- unused
10167 N_Protected_Body =>
10168 (1 => True, -- Defining_Identifier (Node1)
10169 2 => True, -- Declarations (List2)
10170 3 => False, -- unused
10171 4 => True, -- End_Label (Node4)
10172 5 => False), -- Corresponding_Spec (Node5-Sem)
10174 N_Entry_Declaration =>
10175 (1 => True, -- Defining_Identifier (Node1)
10176 2 => False, -- unused
10177 3 => True, -- Parameter_Specifications (List3)
10178 4 => True, -- Discrete_Subtype_Definition (Node4)
10179 5 => False), -- Corresponding_Body (Node5-Sem)
10181 N_Accept_Statement =>
10182 (1 => True, -- Entry_Direct_Name (Node1)
10183 2 => True, -- Declarations (List2)
10184 3 => True, -- Parameter_Specifications (List3)
10185 4 => True, -- Handled_Statement_Sequence (Node4)
10186 5 => True), -- Entry_Index (Node5)
10189 (1 => True, -- Defining_Identifier (Node1)
10190 2 => True, -- Declarations (List2)
10191 3 => False, -- Activation_Chain_Entity (Node3-Sem)
10192 4 => True, -- Handled_Statement_Sequence (Node4)
10193 5 => True), -- Entry_Body_Formal_Part (Node5)
10195 N_Entry_Body_Formal_Part =>
10196 (1 => True, -- Condition (Node1)
10197 2 => False, -- unused
10198 3 => True, -- Parameter_Specifications (List3)
10199 4 => True, -- Entry_Index_Specification (Node4)
10200 5 => False), -- unused
10202 N_Entry_Index_Specification =>
10203 (1 => True, -- Defining_Identifier (Node1)
10204 2 => False, -- unused
10205 3 => False, -- unused
10206 4 => True, -- Discrete_Subtype_Definition (Node4)
10207 5 => False), -- unused
10209 N_Entry_Call_Statement =>
10210 (1 => False, -- unused
10211 2 => True, -- Name (Node2)
10212 3 => True, -- Parameter_Associations (List3)
10213 4 => False, -- First_Named_Actual (Node4-Sem)
10214 5 => False), -- unused
10216 N_Requeue_Statement =>
10217 (1 => False, -- unused
10218 2 => True, -- Name (Node2)
10219 3 => False, -- unused
10220 4 => False, -- unused
10221 5 => False), -- unused
10223 N_Delay_Until_Statement =>
10224 (1 => False, -- unused
10225 2 => False, -- unused
10226 3 => True, -- Expression (Node3)
10227 4 => False, -- unused
10228 5 => False), -- unused
10230 N_Delay_Relative_Statement =>
10231 (1 => False, -- unused
10232 2 => False, -- unused
10233 3 => True, -- Expression (Node3)
10234 4 => False, -- unused
10235 5 => False), -- unused
10237 N_Selective_Accept =>
10238 (1 => True, -- Select_Alternatives (List1)
10239 2 => False, -- unused
10240 3 => False, -- unused
10241 4 => True, -- Else_Statements (List4)
10242 5 => False), -- unused
10244 N_Accept_Alternative =>
10245 (1 => True, -- Condition (Node1)
10246 2 => True, -- Accept_Statement (Node2)
10247 3 => True, -- Statements (List3)
10248 4 => True, -- Pragmas_Before (List4)
10249 5 => False), -- Accept_Handler_Records (List5-Sem)
10251 N_Delay_Alternative =>
10252 (1 => True, -- Condition (Node1)
10253 2 => True, -- Delay_Statement (Node2)
10254 3 => True, -- Statements (List3)
10255 4 => True, -- Pragmas_Before (List4)
10256 5 => False), -- unused
10258 N_Terminate_Alternative =>
10259 (1 => True, -- Condition (Node1)
10260 2 => False, -- unused
10261 3 => False, -- unused
10262 4 => True, -- Pragmas_Before (List4)
10263 5 => True), -- Pragmas_After (List5)
10265 N_Timed_Entry_Call =>
10266 (1 => True, -- Entry_Call_Alternative (Node1)
10267 2 => False, -- unused
10268 3 => False, -- unused
10269 4 => True, -- Delay_Alternative (Node4)
10270 5 => False), -- unused
10272 N_Entry_Call_Alternative =>
10273 (1 => True, -- Entry_Call_Statement (Node1)
10274 2 => False, -- unused
10275 3 => True, -- Statements (List3)
10276 4 => True, -- Pragmas_Before (List4)
10277 5 => False), -- unused
10279 N_Conditional_Entry_Call =>
10280 (1 => True, -- Entry_Call_Alternative (Node1)
10281 2 => False, -- unused
10282 3 => False, -- unused
10283 4 => True, -- Else_Statements (List4)
10284 5 => False), -- unused
10286 N_Asynchronous_Select =>
10287 (1 => True, -- Triggering_Alternative (Node1)
10288 2 => True, -- Abortable_Part (Node2)
10289 3 => False, -- unused
10290 4 => False, -- unused
10291 5 => False), -- unused
10293 N_Triggering_Alternative =>
10294 (1 => True, -- Triggering_Statement (Node1)
10295 2 => False, -- unused
10296 3 => True, -- Statements (List3)
10297 4 => True, -- Pragmas_Before (List4)
10298 5 => False), -- unused
10300 N_Abortable_Part =>
10301 (1 => False, -- unused
10302 2 => False, -- unused
10303 3 => True, -- Statements (List3)
10304 4 => False, -- unused
10305 5 => False), -- unused
10307 N_Abort_Statement =>
10308 (1 => False, -- unused
10309 2 => True, -- Names (List2)
10310 3 => False, -- unused
10311 4 => False, -- unused
10312 5 => False), -- unused
10314 N_Compilation_Unit =>
10315 (1 => True, -- Context_Items (List1)
10316 2 => True, -- Unit (Node2)
10317 3 => False, -- First_Inlined_Subprogram (Node3-Sem)
10318 4 => False, -- Library_Unit (Node4-Sem)
10319 5 => True), -- Aux_Decls_Node (Node5)
10321 N_Compilation_Unit_Aux =>
10322 (1 => True, -- Actions (List1)
10323 2 => True, -- Declarations (List2)
10324 3 => False, -- unused
10325 4 => True, -- Config_Pragmas (List4)
10326 5 => True), -- Pragmas_After (List5)
10329 (1 => False, -- unused
10330 2 => True, -- Name (Node2)
10331 3 => False, -- unused
10332 4 => False, -- Library_Unit (Node4-Sem)
10333 5 => False), -- Corresponding_Spec (Node5-Sem)
10335 N_Subprogram_Body_Stub =>
10336 (1 => True, -- Specification (Node1)
10337 2 => False, -- unused
10338 3 => False, -- unused
10339 4 => False, -- Library_Unit (Node4-Sem)
10340 5 => False), -- Corresponding_Body (Node5-Sem)
10342 N_Package_Body_Stub =>
10343 (1 => True, -- Defining_Identifier (Node1)
10344 2 => False, -- unused
10345 3 => False, -- unused
10346 4 => False, -- Library_Unit (Node4-Sem)
10347 5 => False), -- Corresponding_Body (Node5-Sem)
10349 N_Task_Body_Stub =>
10350 (1 => True, -- Defining_Identifier (Node1)
10351 2 => False, -- unused
10352 3 => False, -- unused
10353 4 => False, -- Library_Unit (Node4-Sem)
10354 5 => False), -- Corresponding_Body (Node5-Sem)
10356 N_Protected_Body_Stub =>
10357 (1 => True, -- Defining_Identifier (Node1)
10358 2 => False, -- unused
10359 3 => False, -- unused
10360 4 => False, -- Library_Unit (Node4-Sem)
10361 5 => False), -- Corresponding_Body (Node5-Sem)
10364 (1 => True, -- Proper_Body (Node1)
10365 2 => True, -- Name (Node2)
10366 3 => False, -- Corresponding_Stub (Node3-Sem)
10367 4 => False, -- unused
10368 5 => False), -- unused
10370 N_Exception_Declaration =>
10371 (1 => True, -- Defining_Identifier (Node1)
10372 2 => False, -- unused
10373 3 => False, -- Expression (Node3-Sem)
10374 4 => False, -- unused
10375 5 => False), -- unused
10377 N_Handled_Sequence_Of_Statements =>
10378 (1 => True, -- At_End_Proc (Node1)
10379 2 => False, -- First_Real_Statement (Node2-Sem)
10380 3 => True, -- Statements (List3)
10381 4 => True, -- End_Label (Node4)
10382 5 => True), -- Exception_Handlers (List5)
10384 N_Exception_Handler =>
10385 (1 => False, -- Local_Raise_Statements (Elist1)
10386 2 => True, -- Choice_Parameter (Node2)
10387 3 => True, -- Statements (List3)
10388 4 => True, -- Exception_Choices (List4)
10389 5 => False), -- Exception_Label (Node5)
10391 N_Raise_Statement =>
10392 (1 => False, -- unused
10393 2 => True, -- Name (Node2)
10394 3 => True, -- Expression (Node3)
10395 4 => False, -- unused
10396 5 => False), -- unused
10398 N_Generic_Subprogram_Declaration =>
10399 (1 => True, -- Specification (Node1)
10400 2 => True, -- Generic_Formal_Declarations (List2)
10401 3 => False, -- unused
10402 4 => False, -- Parent_Spec (Node4-Sem)
10403 5 => False), -- Corresponding_Body (Node5-Sem)
10405 N_Generic_Package_Declaration =>
10406 (1 => True, -- Specification (Node1)
10407 2 => True, -- Generic_Formal_Declarations (List2)
10408 3 => False, -- Activation_Chain_Entity (Node3-Sem)
10409 4 => False, -- Parent_Spec (Node4-Sem)
10410 5 => False), -- Corresponding_Body (Node5-Sem)
10412 N_Package_Instantiation =>
10413 (1 => True, -- Defining_Unit_Name (Node1)
10414 2 => True, -- Name (Node2)
10415 3 => True, -- Generic_Associations (List3)
10416 4 => False, -- Parent_Spec (Node4-Sem)
10417 5 => False), -- Instance_Spec (Node5-Sem)
10419 N_Procedure_Instantiation =>
10420 (1 => True, -- Defining_Unit_Name (Node1)
10421 2 => True, -- Name (Node2)
10422 3 => True, -- Generic_Associations (List3)
10423 4 => False, -- Parent_Spec (Node4-Sem)
10424 5 => False), -- Instance_Spec (Node5-Sem)
10426 N_Function_Instantiation =>
10427 (1 => True, -- Defining_Unit_Name (Node1)
10428 2 => True, -- Name (Node2)
10429 3 => True, -- Generic_Associations (List3)
10430 4 => False, -- Parent_Spec (Node4-Sem)
10431 5 => False), -- Instance_Spec (Node5-Sem)
10433 N_Generic_Association =>
10434 (1 => True, -- Explicit_Generic_Actual_Parameter (Node1)
10435 2 => True, -- Selector_Name (Node2)
10436 3 => False, -- unused
10437 4 => False, -- unused
10438 5 => False), -- unused
10440 N_Formal_Object_Declaration =>
10441 (1 => True, -- Defining_Identifier (Node1)
10442 2 => False, -- unused
10443 3 => True, -- Access_Definition (Node3)
10444 4 => True, -- Subtype_Mark (Node4)
10445 5 => True), -- Default_Expression (Node5)
10447 N_Formal_Type_Declaration =>
10448 (1 => True, -- Defining_Identifier (Node1)
10449 2 => False, -- unused
10450 3 => True, -- Formal_Type_Definition (Node3)
10451 4 => True, -- Discriminant_Specifications (List4)
10452 5 => False), -- unused
10454 N_Formal_Private_Type_Definition =>
10455 (1 => False, -- unused
10456 2 => False, -- unused
10457 3 => False, -- unused
10458 4 => False, -- unused
10459 5 => False), -- unused
10461 N_Formal_Derived_Type_Definition =>
10462 (1 => False, -- unused
10463 2 => True, -- Interface_List (List2)
10464 3 => False, -- unused
10465 4 => True, -- Subtype_Mark (Node4)
10466 5 => False), -- unused
10468 N_Formal_Discrete_Type_Definition =>
10469 (1 => False, -- unused
10470 2 => False, -- unused
10471 3 => False, -- unused
10472 4 => False, -- unused
10473 5 => False), -- unused
10475 N_Formal_Signed_Integer_Type_Definition =>
10476 (1 => False, -- unused
10477 2 => False, -- unused
10478 3 => False, -- unused
10479 4 => False, -- unused
10480 5 => False), -- unused
10482 N_Formal_Modular_Type_Definition =>
10483 (1 => False, -- unused
10484 2 => False, -- unused
10485 3 => False, -- unused
10486 4 => False, -- unused
10487 5 => False), -- unused
10489 N_Formal_Floating_Point_Definition =>
10490 (1 => False, -- unused
10491 2 => False, -- unused
10492 3 => False, -- unused
10493 4 => False, -- unused
10494 5 => False), -- unused
10496 N_Formal_Ordinary_Fixed_Point_Definition =>
10497 (1 => False, -- unused
10498 2 => False, -- unused
10499 3 => False, -- unused
10500 4 => False, -- unused
10501 5 => False), -- unused
10503 N_Formal_Decimal_Fixed_Point_Definition =>
10504 (1 => False, -- unused
10505 2 => False, -- unused
10506 3 => False, -- unused
10507 4 => False, -- unused
10508 5 => False), -- unused
10510 N_Formal_Concrete_Subprogram_Declaration =>
10511 (1 => True, -- Specification (Node1)
10512 2 => True, -- Default_Name (Node2)
10513 3 => False, -- unused
10514 4 => False, -- unused
10515 5 => False), -- unused
10517 N_Formal_Abstract_Subprogram_Declaration =>
10518 (1 => True, -- Specification (Node1)
10519 2 => True, -- Default_Name (Node2)
10520 3 => False, -- unused
10521 4 => False, -- unused
10522 5 => False), -- unused
10524 N_Formal_Package_Declaration =>
10525 (1 => True, -- Defining_Identifier (Node1)
10526 2 => True, -- Name (Node2)
10527 3 => True, -- Generic_Associations (List3)
10528 4 => False, -- unused
10529 5 => False), -- Instance_Spec (Node5-Sem)
10531 N_Attribute_Definition_Clause =>
10532 (1 => True, -- Chars (Name1)
10533 2 => True, -- Name (Node2)
10534 3 => True, -- Expression (Node3)
10535 4 => False, -- unused
10536 5 => False), -- Next_Rep_Item (Node5-Sem)
10538 N_Enumeration_Representation_Clause =>
10539 (1 => True, -- Identifier (Node1)
10540 2 => False, -- unused
10541 3 => True, -- Array_Aggregate (Node3)
10542 4 => False, -- unused
10543 5 => False), -- Next_Rep_Item (Node5-Sem)
10545 N_Record_Representation_Clause =>
10546 (1 => True, -- Identifier (Node1)
10547 2 => True, -- Mod_Clause (Node2)
10548 3 => True, -- Component_Clauses (List3)
10549 4 => False, -- unused
10550 5 => False), -- Next_Rep_Item (Node5-Sem)
10552 N_Component_Clause =>
10553 (1 => True, -- Component_Name (Node1)
10554 2 => True, -- Position (Node2)
10555 3 => True, -- First_Bit (Node3)
10556 4 => True, -- Last_Bit (Node4)
10557 5 => False), -- unused
10559 N_Code_Statement =>
10560 (1 => False, -- unused
10561 2 => False, -- unused
10562 3 => True, -- Expression (Node3)
10563 4 => False, -- unused
10564 5 => False), -- unused
10566 N_Op_Rotate_Left =>
10567 (1 => True, -- Chars (Name1)
10568 2 => True, -- Left_Opnd (Node2)
10569 3 => True, -- Right_Opnd (Node3)
10570 4 => False, -- Entity (Node4-Sem)
10571 5 => False), -- Etype (Node5-Sem)
10573 N_Op_Rotate_Right =>
10574 (1 => True, -- Chars (Name1)
10575 2 => True, -- Left_Opnd (Node2)
10576 3 => True, -- Right_Opnd (Node3)
10577 4 => False, -- Entity (Node4-Sem)
10578 5 => False), -- Etype (Node5-Sem)
10581 (1 => True, -- Chars (Name1)
10582 2 => True, -- Left_Opnd (Node2)
10583 3 => True, -- Right_Opnd (Node3)
10584 4 => False, -- Entity (Node4-Sem)
10585 5 => False), -- Etype (Node5-Sem)
10587 N_Op_Shift_Right_Arithmetic =>
10588 (1 => True, -- Chars (Name1)
10589 2 => True, -- Left_Opnd (Node2)
10590 3 => True, -- Right_Opnd (Node3)
10591 4 => False, -- Entity (Node4-Sem)
10592 5 => False), -- Etype (Node5-Sem)
10594 N_Op_Shift_Right =>
10595 (1 => True, -- Chars (Name1)
10596 2 => True, -- Left_Opnd (Node2)
10597 3 => True, -- Right_Opnd (Node3)
10598 4 => False, -- Entity (Node4-Sem)
10599 5 => False), -- Etype (Node5-Sem)
10601 N_Delta_Constraint =>
10602 (1 => False, -- unused
10603 2 => False, -- unused
10604 3 => True, -- Delta_Expression (Node3)
10605 4 => True, -- Range_Constraint (Node4)
10606 5 => False), -- unused
10609 (1 => True, -- Identifier (Node1)
10610 2 => False, -- unused
10611 3 => True, -- Expression (Node3)
10612 4 => False, -- unused
10613 5 => False), -- unused
10616 (1 => False, -- unused
10617 2 => False, -- unused
10618 3 => True, -- Expression (Node3)
10619 4 => True, -- Pragmas_Before (List4)
10620 5 => False), -- unused
10622 N_Conditional_Expression =>
10623 (1 => True, -- Expressions (List1)
10624 2 => False, -- Then_Actions (List2-Sem)
10625 3 => False, -- Else_Actions (List3-Sem)
10626 4 => False, -- unused
10627 5 => False), -- Etype (Node5-Sem)
10630 (1 => True, -- Chars (Name1)
10631 2 => True, -- Selector_Name (Node2)
10632 3 => True, -- Prefix (Node3)
10633 4 => False, -- Entity (Node4-Sem)
10634 5 => False), -- Etype (Node5-Sem)
10636 N_Free_Statement =>
10637 (1 => False, -- Storage_Pool (Node1-Sem)
10638 2 => False, -- Procedure_To_Call (Node2-Sem)
10639 3 => True, -- Expression (Node3)
10640 4 => False, -- Actual_Designated_Subtype (Node4-Sem)
10641 5 => False), -- unused
10644 (1 => True, -- Actions (List1)
10645 2 => False, -- Access_Types_To_Process (Elist2-Sem)
10646 3 => False, -- TSS_Elist (Elist3-Sem)
10647 4 => False, -- Entity (Node4-Sem)
10648 5 => False), -- First_Subtype_Link (Node5-Sem)
10650 N_Implicit_Label_Declaration =>
10651 (1 => True, -- Defining_Identifier (Node1)
10652 2 => False, -- Label_Construct (Node2-Sem)
10653 3 => False, -- unused
10654 4 => False, -- unused
10655 5 => False), -- unused
10657 N_Itype_Reference =>
10658 (1 => False, -- Itype (Node1-Sem)
10659 2 => False, -- unused
10660 3 => False, -- unused
10661 4 => False, -- unused
10662 5 => False), -- unused
10664 N_Raise_Constraint_Error =>
10665 (1 => True, -- Condition (Node1)
10666 2 => False, -- unused
10667 3 => True, -- Reason (Uint3)
10668 4 => False, -- unused
10669 5 => False), -- Etype (Node5-Sem)
10671 N_Raise_Program_Error =>
10672 (1 => True, -- Condition (Node1)
10673 2 => False, -- unused
10674 3 => True, -- Reason (Uint3)
10675 4 => False, -- unused
10676 5 => False), -- Etype (Node5-Sem)
10678 N_Raise_Storage_Error =>
10679 (1 => True, -- Condition (Node1)
10680 2 => False, -- unused
10681 3 => True, -- Reason (Uint3)
10682 4 => False, -- unused
10683 5 => False), -- Etype (Node5-Sem)
10685 N_Push_Constraint_Error_Label =>
10686 (1 => False, -- unused
10687 2 => False, -- unused
10688 3 => False, -- unused
10689 4 => False, -- unused
10690 5 => False), -- unused
10692 N_Push_Program_Error_Label =>
10693 (1 => False, -- Exception_Label
10694 2 => False, -- unused
10695 3 => False, -- unused
10696 4 => False, -- unused
10697 5 => False), -- Exception_Label
10699 N_Push_Storage_Error_Label =>
10700 (1 => False, -- Exception_Label
10701 2 => False, -- unused
10702 3 => False, -- unused
10703 4 => False, -- unused
10704 5 => False), -- Exception_Label
10706 N_Pop_Constraint_Error_Label =>
10707 (1 => False, -- unused
10708 2 => False, -- unused
10709 3 => False, -- unused
10710 4 => False, -- unused
10711 5 => False), -- unused
10713 N_Pop_Program_Error_Label =>
10714 (1 => False, -- unused
10715 2 => False, -- unused
10716 3 => False, -- unused
10717 4 => False, -- unused
10718 5 => False), -- unused
10720 N_Pop_Storage_Error_Label =>
10721 (1 => False, -- unused
10722 2 => False, -- unused
10723 3 => False, -- unused
10724 4 => False, -- unused
10725 5 => False), -- unused
10728 (1 => False, -- unused
10729 2 => False, -- unused
10730 3 => True, -- Prefix (Node3)
10731 4 => False, -- unused
10732 5 => False), -- Etype (Node5-Sem)
10734 N_Subprogram_Info =>
10735 (1 => True, -- Identifier (Node1)
10736 2 => False, -- unused
10737 3 => False, -- unused
10738 4 => False, -- unused
10739 5 => False), -- Etype (Node5-Sem)
10741 N_Unchecked_Expression =>
10742 (1 => False, -- unused
10743 2 => False, -- unused
10744 3 => True, -- Expression (Node3)
10745 4 => False, -- unused
10746 5 => False), -- Etype (Node5-Sem)
10748 N_Unchecked_Type_Conversion =>
10749 (1 => False, -- unused
10750 2 => False, -- unused
10751 3 => True, -- Expression (Node3)
10752 4 => True, -- Subtype_Mark (Node4)
10753 5 => False), -- Etype (Node5-Sem)
10755 N_Validate_Unchecked_Conversion =>
10756 (1 => False, -- Source_Type (Node1-Sem)
10757 2 => False, -- Target_Type (Node2-Sem)
10758 3 => False, -- unused
10759 4 => False, -- unused
10760 5 => False), -- unused
10762 -- End of inserted output from makeisf program
10764 -- Entries for Empty, Error and Unused. Even thought these have a Chars
10765 -- field for debugging purposes, they are not really syntactic fields, so
10766 -- we mark all fields as unused.
10769 (1 => False, -- unused
10770 2 => False, -- unused
10771 3 => False, -- unused
10772 4 => False, -- unused
10773 5 => False), -- unused
10776 (1 => False, -- unused
10777 2 => False, -- unused
10778 3 => False, -- unused
10779 4 => False, -- unused
10780 5 => False), -- unused
10782 N_Unused_At_Start =>
10783 (1 => False, -- unused
10784 2 => False, -- unused
10785 3 => False, -- unused
10786 4 => False, -- unused
10787 5 => False), -- unused
10790 (1 => False, -- unused
10791 2 => False, -- unused
10792 3 => False, -- unused
10793 4 => False, -- unused
10794 5 => False)); -- unused
10796 --------------------
10797 -- Inline Pragmas --
10798 --------------------
10800 pragma Inline (ABE_Is_Certain);
10801 pragma Inline (Abort_Present);
10802 pragma Inline (Abortable_Part);
10803 pragma Inline (Abstract_Present);
10804 pragma Inline (Accept_Handler_Records);
10805 pragma Inline (Accept_Statement);
10806 pragma Inline (Access_Definition);
10807 pragma Inline (Access_To_Subprogram_Definition);
10808 pragma Inline (Access_Types_To_Process);
10809 pragma Inline (Actions);
10810 pragma Inline (Activation_Chain_Entity);
10811 pragma Inline (Acts_As_Spec);
10812 pragma Inline (Actual_Designated_Subtype);
10813 pragma Inline (Address_Warning_Posted);
10814 pragma Inline (Aggregate_Bounds);
10815 pragma Inline (Aliased_Present);
10816 pragma Inline (All_Others);
10817 pragma Inline (All_Present);
10818 pragma Inline (Alternatives);
10819 pragma Inline (Ancestor_Part);
10820 pragma Inline (Array_Aggregate);
10821 pragma Inline (Assignment_OK);
10822 pragma Inline (Associated_Node);
10823 pragma Inline (At_End_Proc);
10824 pragma Inline (Attribute_Name);
10825 pragma Inline (Aux_Decls_Node);
10826 pragma Inline (Backwards_OK);
10827 pragma Inline (Bad_Is_Detected);
10828 pragma Inline (Body_To_Inline);
10829 pragma Inline (Body_Required);
10830 pragma Inline (By_Ref);
10831 pragma Inline (Box_Present);
10832 pragma Inline (Char_Literal_Value);
10833 pragma Inline (Chars);
10834 pragma Inline (Check_Address_Alignment);
10835 pragma Inline (Choice_Parameter);
10836 pragma Inline (Choices);
10837 pragma Inline (Coextensions);
10838 pragma Inline (Comes_From_Extended_Return_Statement);
10839 pragma Inline (Compile_Time_Known_Aggregate);
10840 pragma Inline (Component_Associations);
10841 pragma Inline (Component_Clauses);
10842 pragma Inline (Component_Definition);
10843 pragma Inline (Component_Items);
10844 pragma Inline (Component_List);
10845 pragma Inline (Component_Name);
10846 pragma Inline (Condition);
10847 pragma Inline (Condition_Actions);
10848 pragma Inline (Config_Pragmas);
10849 pragma Inline (Constant_Present);
10850 pragma Inline (Constraint);
10851 pragma Inline (Constraints);
10852 pragma Inline (Context_Installed);
10853 pragma Inline (Context_Items);
10854 pragma Inline (Controlling_Argument);
10855 pragma Inline (Conversion_OK);
10856 pragma Inline (Corresponding_Body);
10857 pragma Inline (Corresponding_Formal_Spec);
10858 pragma Inline (Corresponding_Generic_Association);
10859 pragma Inline (Corresponding_Integer_Value);
10860 pragma Inline (Corresponding_Spec);
10861 pragma Inline (Corresponding_Stub);
10862 pragma Inline (Dcheck_Function);
10863 pragma Inline (Debug_Statement);
10864 pragma Inline (Declarations);
10865 pragma Inline (Default_Expression);
10866 pragma Inline (Default_Name);
10867 pragma Inline (Defining_Identifier);
10868 pragma Inline (Defining_Unit_Name);
10869 pragma Inline (Delay_Alternative);
10870 pragma Inline (Delay_Statement);
10871 pragma Inline (Delta_Expression);
10872 pragma Inline (Digits_Expression);
10873 pragma Inline (Discr_Check_Funcs_Built);
10874 pragma Inline (Discrete_Choices);
10875 pragma Inline (Discrete_Range);
10876 pragma Inline (Discrete_Subtype_Definition);
10877 pragma Inline (Discrete_Subtype_Definitions);
10878 pragma Inline (Discriminant_Specifications);
10879 pragma Inline (Discriminant_Type);
10880 pragma Inline (Do_Accessibility_Check);
10881 pragma Inline (Do_Discriminant_Check);
10882 pragma Inline (Do_Length_Check);
10883 pragma Inline (Do_Division_Check);
10884 pragma Inline (Do_Overflow_Check);
10885 pragma Inline (Do_Range_Check);
10886 pragma Inline (Do_Storage_Check);
10887 pragma Inline (Do_Tag_Check);
10888 pragma Inline (Elaborate_Present);
10889 pragma Inline (Elaborate_All_Desirable);
10890 pragma Inline (Elaborate_All_Present);
10891 pragma Inline (Elaborate_Desirable);
10892 pragma Inline (Elaboration_Boolean);
10893 pragma Inline (Else_Actions);
10894 pragma Inline (Else_Statements);
10895 pragma Inline (Elsif_Parts);
10896 pragma Inline (Enclosing_Variant);
10897 pragma Inline (End_Label);
10898 pragma Inline (End_Span);
10899 pragma Inline (Entity);
10900 pragma Inline (Entity_Or_Associated_Node);
10901 pragma Inline (Entry_Body_Formal_Part);
10902 pragma Inline (Entry_Call_Alternative);
10903 pragma Inline (Entry_Call_Statement);
10904 pragma Inline (Entry_Direct_Name);
10905 pragma Inline (Entry_Index);
10906 pragma Inline (Entry_Index_Specification);
10907 pragma Inline (Etype);
10908 pragma Inline (Exception_Choices);
10909 pragma Inline (Exception_Handlers);
10910 pragma Inline (Exception_Junk);
10911 pragma Inline (Exception_Label);
10912 pragma Inline (Expansion_Delayed);
10913 pragma Inline (Explicit_Actual_Parameter);
10914 pragma Inline (Explicit_Generic_Actual_Parameter);
10915 pragma Inline (Expression);
10916 pragma Inline (Expressions);
10917 pragma Inline (First_Bit);
10918 pragma Inline (First_Inlined_Subprogram);
10919 pragma Inline (First_Name);
10920 pragma Inline (First_Named_Actual);
10921 pragma Inline (First_Real_Statement);
10922 pragma Inline (First_Subtype_Link);
10923 pragma Inline (Float_Truncate);
10924 pragma Inline (Formal_Type_Definition);
10925 pragma Inline (Forwards_OK);
10926 pragma Inline (From_At_End);
10927 pragma Inline (From_At_Mod);
10928 pragma Inline (From_Default);
10929 pragma Inline (Generic_Associations);
10930 pragma Inline (Generic_Formal_Declarations);
10931 pragma Inline (Generic_Parent);
10932 pragma Inline (Generic_Parent_Type);
10933 pragma Inline (Handled_Statement_Sequence);
10934 pragma Inline (Handler_List_Entry);
10935 pragma Inline (Has_Created_Identifier);
10936 pragma Inline (Has_Dynamic_Length_Check);
10937 pragma Inline (Has_Dynamic_Range_Check);
10938 pragma Inline (Has_Init_Expression);
10939 pragma Inline (Has_Local_Raise);
10940 pragma Inline (Has_Self_Reference);
10941 pragma Inline (Has_No_Elaboration_Code);
10942 pragma Inline (Has_Priority_Pragma);
10943 pragma Inline (Has_Private_View);
10944 pragma Inline (Has_Storage_Size_Pragma);
10945 pragma Inline (Has_Task_Info_Pragma);
10946 pragma Inline (Has_Task_Name_Pragma);
10947 pragma Inline (Has_Wide_Character);
10948 pragma Inline (Hidden_By_Use_Clause);
10949 pragma Inline (High_Bound);
10950 pragma Inline (Identifier);
10951 pragma Inline (Implicit_With);
10952 pragma Inline (Interface_List);
10953 pragma Inline (Interface_Present);
10954 pragma Inline (Includes_Infinities);
10955 pragma Inline (In_Present);
10956 pragma Inline (Instance_Spec);
10957 pragma Inline (Intval);
10958 pragma Inline (Is_Asynchronous_Call_Block);
10959 pragma Inline (Is_Component_Left_Opnd);
10960 pragma Inline (Is_Component_Right_Opnd);
10961 pragma Inline (Is_Controlling_Actual);
10962 pragma Inline (Is_Dynamic_Coextension);
10963 pragma Inline (Is_Entry_Barrier_Function);
10964 pragma Inline (Is_Expanded_Build_In_Place_Call);
10965 pragma Inline (Is_Folded_In_Parser);
10966 pragma Inline (Is_In_Discriminant_Check);
10967 pragma Inline (Is_Machine_Number);
10968 pragma Inline (Is_Null_Loop);
10969 pragma Inline (Is_Overloaded);
10970 pragma Inline (Is_Power_Of_2_For_Shift);
10971 pragma Inline (Is_Protected_Subprogram_Body);
10972 pragma Inline (Is_Static_Coextension);
10973 pragma Inline (Is_Static_Expression);
10974 pragma Inline (Is_Subprogram_Descriptor);
10975 pragma Inline (Is_Task_Allocation_Block);
10976 pragma Inline (Is_Task_Master);
10977 pragma Inline (Iteration_Scheme);
10978 pragma Inline (Itype);
10979 pragma Inline (Kill_Range_Check);
10980 pragma Inline (Last_Bit);
10981 pragma Inline (Last_Name);
10982 pragma Inline (Library_Unit);
10983 pragma Inline (Label_Construct);
10984 pragma Inline (Left_Opnd);
10985 pragma Inline (Limited_View_Installed);
10986 pragma Inline (Limited_Present);
10987 pragma Inline (Literals);
10988 pragma Inline (Local_Raise_Not_OK);
10989 pragma Inline (Local_Raise_Statements);
10990 pragma Inline (Loop_Actions);
10991 pragma Inline (Loop_Parameter_Specification);
10992 pragma Inline (Low_Bound);
10993 pragma Inline (Mod_Clause);
10994 pragma Inline (More_Ids);
10995 pragma Inline (Must_Be_Byte_Aligned);
10996 pragma Inline (Must_Not_Freeze);
10997 pragma Inline (Must_Not_Override);
10998 pragma Inline (Must_Override);
10999 pragma Inline (Name);
11000 pragma Inline (Names);
11001 pragma Inline (Next_Entity);
11002 pragma Inline (Next_Named_Actual);
11003 pragma Inline (Next_Rep_Item);
11004 pragma Inline (Next_Use_Clause);
11005 pragma Inline (No_Ctrl_Actions);
11006 pragma Inline (No_Elaboration_Check);
11007 pragma Inline (No_Entities_Ref_In_Spec);
11008 pragma Inline (No_Initialization);
11009 pragma Inline (No_Truncation);
11010 pragma Inline (Null_Present);
11011 pragma Inline (Null_Exclusion_Present);
11012 pragma Inline (Null_Record_Present);
11013 pragma Inline (Object_Definition);
11014 pragma Inline (Original_Discriminant);
11015 pragma Inline (Original_Entity);
11016 pragma Inline (Others_Discrete_Choices);
11017 pragma Inline (Out_Present);
11018 pragma Inline (Parameter_Associations);
11019 pragma Inline (Parameter_Specifications);
11020 pragma Inline (Parameter_List_Truncated);
11021 pragma Inline (Parameter_Type);
11022 pragma Inline (Parent_Spec);
11023 pragma Inline (Position);
11024 pragma Inline (Pragma_Argument_Associations);
11025 pragma Inline (Pragma_Identifier);
11026 pragma Inline (Pragmas_After);
11027 pragma Inline (Pragmas_Before);
11028 pragma Inline (Prefix);
11029 pragma Inline (Present_Expr);
11030 pragma Inline (Prev_Ids);
11031 pragma Inline (Print_In_Hex);
11032 pragma Inline (Private_Declarations);
11033 pragma Inline (Private_Present);
11034 pragma Inline (Procedure_To_Call);
11035 pragma Inline (Proper_Body);
11036 pragma Inline (Protected_Definition);
11037 pragma Inline (Protected_Present);
11038 pragma Inline (Raises_Constraint_Error);
11039 pragma Inline (Range_Constraint);
11040 pragma Inline (Range_Expression);
11041 pragma Inline (Real_Range_Specification);
11042 pragma Inline (Realval);
11043 pragma Inline (Reason);
11044 pragma Inline (Record_Extension_Part);
11045 pragma Inline (Redundant_Use);
11046 pragma Inline (Renaming_Exception);
11047 pragma Inline (Result_Definition);
11048 pragma Inline (Return_Object_Declarations);
11049 pragma Inline (Return_Statement_Entity);
11050 pragma Inline (Reverse_Present);
11051 pragma Inline (Right_Opnd);
11052 pragma Inline (Rounded_Result);
11053 pragma Inline (Scope);
11054 pragma Inline (Select_Alternatives);
11055 pragma Inline (Selector_Name);
11056 pragma Inline (Selector_Names);
11057 pragma Inline (Shift_Count_OK);
11058 pragma Inline (Source_Type);
11059 pragma Inline (Specification);
11060 pragma Inline (Statements);
11061 pragma Inline (Static_Processing_OK);
11062 pragma Inline (Storage_Pool);
11063 pragma Inline (Strval);
11064 pragma Inline (Subtype_Indication);
11065 pragma Inline (Subtype_Mark);
11066 pragma Inline (Subtype_Marks);
11067 pragma Inline (Synchronized_Present);
11068 pragma Inline (Tagged_Present);
11069 pragma Inline (Target_Type);
11070 pragma Inline (Task_Definition);
11071 pragma Inline (Task_Present);
11072 pragma Inline (Then_Actions);
11073 pragma Inline (Then_Statements);
11074 pragma Inline (Triggering_Alternative);
11075 pragma Inline (Triggering_Statement);
11076 pragma Inline (Treat_Fixed_As_Integer);
11077 pragma Inline (TSS_Elist);
11078 pragma Inline (Type_Definition);
11079 pragma Inline (Unit);
11080 pragma Inline (Unknown_Discriminants_Present);
11081 pragma Inline (Unreferenced_In_Spec);
11082 pragma Inline (Variant_Part);
11083 pragma Inline (Variants);
11084 pragma Inline (Visible_Declarations);
11085 pragma Inline (Was_Originally_Stub);
11086 pragma Inline (Zero_Cost_Handling);
11088 pragma Inline (Set_ABE_Is_Certain);
11089 pragma Inline (Set_Abort_Present);
11090 pragma Inline (Set_Abortable_Part);
11091 pragma Inline (Set_Abstract_Present);
11092 pragma Inline (Set_Accept_Handler_Records);
11093 pragma Inline (Set_Accept_Statement);
11094 pragma Inline (Set_Access_Definition);
11095 pragma Inline (Set_Access_To_Subprogram_Definition);
11096 pragma Inline (Set_Access_Types_To_Process);
11097 pragma Inline (Set_Actions);
11098 pragma Inline (Set_Activation_Chain_Entity);
11099 pragma Inline (Set_Acts_As_Spec);
11100 pragma Inline (Set_Actual_Designated_Subtype);
11101 pragma Inline (Set_Address_Warning_Posted);
11102 pragma Inline (Set_Aggregate_Bounds);
11103 pragma Inline (Set_Aliased_Present);
11104 pragma Inline (Set_All_Others);
11105 pragma Inline (Set_All_Present);
11106 pragma Inline (Set_Alternatives);
11107 pragma Inline (Set_Ancestor_Part);
11108 pragma Inline (Set_Array_Aggregate);
11109 pragma Inline (Set_Assignment_OK);
11110 pragma Inline (Set_Associated_Node);
11111 pragma Inline (Set_At_End_Proc);
11112 pragma Inline (Set_Attribute_Name);
11113 pragma Inline (Set_Aux_Decls_Node);
11114 pragma Inline (Set_Backwards_OK);
11115 pragma Inline (Set_Bad_Is_Detected);
11116 pragma Inline (Set_Body_To_Inline);
11117 pragma Inline (Set_Body_Required);
11118 pragma Inline (Set_By_Ref);
11119 pragma Inline (Set_Box_Present);
11120 pragma Inline (Set_Char_Literal_Value);
11121 pragma Inline (Set_Chars);
11122 pragma Inline (Set_Check_Address_Alignment);
11123 pragma Inline (Set_Choice_Parameter);
11124 pragma Inline (Set_Choices);
11125 pragma Inline (Set_Coextensions);
11126 pragma Inline (Set_Comes_From_Extended_Return_Statement);
11127 pragma Inline (Set_Compile_Time_Known_Aggregate);
11128 pragma Inline (Set_Component_Associations);
11129 pragma Inline (Set_Component_Clauses);
11130 pragma Inline (Set_Component_Definition);
11131 pragma Inline (Set_Component_Items);
11132 pragma Inline (Set_Component_List);
11133 pragma Inline (Set_Component_Name);
11134 pragma Inline (Set_Condition);
11135 pragma Inline (Set_Condition_Actions);
11136 pragma Inline (Set_Config_Pragmas);
11137 pragma Inline (Set_Constant_Present);
11138 pragma Inline (Set_Constraint);
11139 pragma Inline (Set_Constraints);
11140 pragma Inline (Set_Context_Installed);
11141 pragma Inline (Set_Context_Items);
11142 pragma Inline (Set_Controlling_Argument);
11143 pragma Inline (Set_Conversion_OK);
11144 pragma Inline (Set_Corresponding_Body);
11145 pragma Inline (Set_Corresponding_Formal_Spec);
11146 pragma Inline (Set_Corresponding_Generic_Association);
11147 pragma Inline (Set_Corresponding_Integer_Value);
11148 pragma Inline (Set_Corresponding_Spec);
11149 pragma Inline (Set_Corresponding_Stub);
11150 pragma Inline (Set_Dcheck_Function);
11151 pragma Inline (Set_Debug_Statement);
11152 pragma Inline (Set_Declarations);
11153 pragma Inline (Set_Default_Expression);
11154 pragma Inline (Set_Default_Name);
11155 pragma Inline (Set_Defining_Identifier);
11156 pragma Inline (Set_Defining_Unit_Name);
11157 pragma Inline (Set_Delay_Alternative);
11158 pragma Inline (Set_Delay_Statement);
11159 pragma Inline (Set_Delta_Expression);
11160 pragma Inline (Set_Digits_Expression);
11161 pragma Inline (Set_Discr_Check_Funcs_Built);
11162 pragma Inline (Set_Discrete_Choices);
11163 pragma Inline (Set_Discrete_Range);
11164 pragma Inline (Set_Discrete_Subtype_Definition);
11165 pragma Inline (Set_Discrete_Subtype_Definitions);
11166 pragma Inline (Set_Discriminant_Specifications);
11167 pragma Inline (Set_Discriminant_Type);
11168 pragma Inline (Set_Do_Accessibility_Check);
11169 pragma Inline (Set_Do_Discriminant_Check);
11170 pragma Inline (Set_Do_Length_Check);
11171 pragma Inline (Set_Do_Division_Check);
11172 pragma Inline (Set_Do_Overflow_Check);
11173 pragma Inline (Set_Do_Range_Check);
11174 pragma Inline (Set_Do_Storage_Check);
11175 pragma Inline (Set_Do_Tag_Check);
11176 pragma Inline (Set_Elaborate_Present);
11177 pragma Inline (Set_Elaborate_All_Desirable);
11178 pragma Inline (Set_Elaborate_All_Present);
11179 pragma Inline (Set_Elaborate_Desirable);
11180 pragma Inline (Set_Elaboration_Boolean);
11181 pragma Inline (Set_Else_Actions);
11182 pragma Inline (Set_Else_Statements);
11183 pragma Inline (Set_Elsif_Parts);
11184 pragma Inline (Set_Enclosing_Variant);
11185 pragma Inline (Set_End_Label);
11186 pragma Inline (Set_End_Span);
11187 pragma Inline (Set_Entity);
11188 pragma Inline (Set_Entry_Body_Formal_Part);
11189 pragma Inline (Set_Entry_Call_Alternative);
11190 pragma Inline (Set_Entry_Call_Statement);
11191 pragma Inline (Set_Entry_Direct_Name);
11192 pragma Inline (Set_Entry_Index);
11193 pragma Inline (Set_Entry_Index_Specification);
11194 pragma Inline (Set_Etype);
11195 pragma Inline (Set_Exception_Choices);
11196 pragma Inline (Set_Exception_Handlers);
11197 pragma Inline (Set_Exception_Junk);
11198 pragma Inline (Set_Exception_Label);
11199 pragma Inline (Set_Expansion_Delayed);
11200 pragma Inline (Set_Explicit_Actual_Parameter);
11201 pragma Inline (Set_Explicit_Generic_Actual_Parameter);
11202 pragma Inline (Set_Expression);
11203 pragma Inline (Set_Expressions);
11204 pragma Inline (Set_First_Bit);
11205 pragma Inline (Set_First_Inlined_Subprogram);
11206 pragma Inline (Set_First_Name);
11207 pragma Inline (Set_First_Named_Actual);
11208 pragma Inline (Set_First_Real_Statement);
11209 pragma Inline (Set_First_Subtype_Link);
11210 pragma Inline (Set_Float_Truncate);
11211 pragma Inline (Set_Formal_Type_Definition);
11212 pragma Inline (Set_Forwards_OK);
11213 pragma Inline (Set_From_At_End);
11214 pragma Inline (Set_From_At_Mod);
11215 pragma Inline (Set_From_Default);
11216 pragma Inline (Set_Generic_Associations);
11217 pragma Inline (Set_Generic_Formal_Declarations);
11218 pragma Inline (Set_Generic_Parent);
11219 pragma Inline (Set_Generic_Parent_Type);
11220 pragma Inline (Set_Handled_Statement_Sequence);
11221 pragma Inline (Set_Handler_List_Entry);
11222 pragma Inline (Set_Has_Created_Identifier);
11223 pragma Inline (Set_Has_Dynamic_Length_Check);
11224 pragma Inline (Set_Has_Init_Expression);
11225 pragma Inline (Set_Has_Local_Raise);
11226 pragma Inline (Set_Has_Dynamic_Range_Check);
11227 pragma Inline (Set_Has_No_Elaboration_Code);
11228 pragma Inline (Set_Has_Priority_Pragma);
11229 pragma Inline (Set_Has_Private_View);
11230 pragma Inline (Set_Has_Storage_Size_Pragma);
11231 pragma Inline (Set_Has_Task_Info_Pragma);
11232 pragma Inline (Set_Has_Task_Name_Pragma);
11233 pragma Inline (Set_Has_Wide_Character);
11234 pragma Inline (Set_Hidden_By_Use_Clause);
11235 pragma Inline (Set_High_Bound);
11236 pragma Inline (Set_Identifier);
11237 pragma Inline (Set_Implicit_With);
11238 pragma Inline (Set_Includes_Infinities);
11239 pragma Inline (Set_Interface_List);
11240 pragma Inline (Set_Interface_Present);
11241 pragma Inline (Set_In_Present);
11242 pragma Inline (Set_Instance_Spec);
11243 pragma Inline (Set_Intval);
11244 pragma Inline (Set_Is_Asynchronous_Call_Block);
11245 pragma Inline (Set_Is_Component_Left_Opnd);
11246 pragma Inline (Set_Is_Component_Right_Opnd);
11247 pragma Inline (Set_Is_Controlling_Actual);
11248 pragma Inline (Set_Is_Dynamic_Coextension);
11249 pragma Inline (Set_Is_Entry_Barrier_Function);
11250 pragma Inline (Set_Is_Expanded_Build_In_Place_Call);
11251 pragma Inline (Set_Is_Folded_In_Parser);
11252 pragma Inline (Set_Is_In_Discriminant_Check);
11253 pragma Inline (Set_Is_Machine_Number);
11254 pragma Inline (Set_Is_Null_Loop);
11255 pragma Inline (Set_Is_Overloaded);
11256 pragma Inline (Set_Is_Power_Of_2_For_Shift);
11257 pragma Inline (Set_Is_Protected_Subprogram_Body);
11258 pragma Inline (Set_Has_Self_Reference);
11259 pragma Inline (Set_Is_Static_Coextension);
11260 pragma Inline (Set_Is_Static_Expression);
11261 pragma Inline (Set_Is_Subprogram_Descriptor);
11262 pragma Inline (Set_Is_Task_Allocation_Block);
11263 pragma Inline (Set_Is_Task_Master);
11264 pragma Inline (Set_Iteration_Scheme);
11265 pragma Inline (Set_Itype);
11266 pragma Inline (Set_Kill_Range_Check);
11267 pragma Inline (Set_Last_Bit);
11268 pragma Inline (Set_Last_Name);
11269 pragma Inline (Set_Library_Unit);
11270 pragma Inline (Set_Label_Construct);
11271 pragma Inline (Set_Left_Opnd);
11272 pragma Inline (Set_Limited_View_Installed);
11273 pragma Inline (Set_Limited_Present);
11274 pragma Inline (Set_Literals);
11275 pragma Inline (Set_Local_Raise_Not_OK);
11276 pragma Inline (Set_Local_Raise_Statements);
11277 pragma Inline (Set_Loop_Actions);
11278 pragma Inline (Set_Loop_Parameter_Specification);
11279 pragma Inline (Set_Low_Bound);
11280 pragma Inline (Set_Mod_Clause);
11281 pragma Inline (Set_More_Ids);
11282 pragma Inline (Set_Must_Be_Byte_Aligned);
11283 pragma Inline (Set_Must_Not_Freeze);
11284 pragma Inline (Set_Must_Not_Override);
11285 pragma Inline (Set_Must_Override);
11286 pragma Inline (Set_Name);
11287 pragma Inline (Set_Names);
11288 pragma Inline (Set_Next_Entity);
11289 pragma Inline (Set_Next_Named_Actual);
11290 pragma Inline (Set_Next_Use_Clause);
11291 pragma Inline (Set_No_Ctrl_Actions);
11292 pragma Inline (Set_No_Elaboration_Check);
11293 pragma Inline (Set_No_Entities_Ref_In_Spec);
11294 pragma Inline (Set_No_Initialization);
11295 pragma Inline (Set_No_Truncation);
11296 pragma Inline (Set_Null_Present);
11297 pragma Inline (Set_Null_Exclusion_Present);
11298 pragma Inline (Set_Null_Record_Present);
11299 pragma Inline (Set_Object_Definition);
11300 pragma Inline (Set_Original_Discriminant);
11301 pragma Inline (Set_Original_Entity);
11302 pragma Inline (Set_Others_Discrete_Choices);
11303 pragma Inline (Set_Out_Present);
11304 pragma Inline (Set_Parameter_Associations);
11305 pragma Inline (Set_Parameter_Specifications);
11306 pragma Inline (Set_Parameter_List_Truncated);
11307 pragma Inline (Set_Parameter_Type);
11308 pragma Inline (Set_Parent_Spec);
11309 pragma Inline (Set_Position);
11310 pragma Inline (Set_Pragma_Argument_Associations);
11311 pragma Inline (Set_Pragma_Identifier);
11312 pragma Inline (Set_Pragmas_After);
11313 pragma Inline (Set_Pragmas_Before);
11314 pragma Inline (Set_Prefix);
11315 pragma Inline (Set_Present_Expr);
11316 pragma Inline (Set_Prev_Ids);
11317 pragma Inline (Set_Print_In_Hex);
11318 pragma Inline (Set_Private_Declarations);
11319 pragma Inline (Set_Private_Present);
11320 pragma Inline (Set_Procedure_To_Call);
11321 pragma Inline (Set_Proper_Body);
11322 pragma Inline (Set_Protected_Definition);
11323 pragma Inline (Set_Protected_Present);
11324 pragma Inline (Set_Raises_Constraint_Error);
11325 pragma Inline (Set_Range_Constraint);
11326 pragma Inline (Set_Range_Expression);
11327 pragma Inline (Set_Real_Range_Specification);
11328 pragma Inline (Set_Realval);
11329 pragma Inline (Set_Reason);
11330 pragma Inline (Set_Record_Extension_Part);
11331 pragma Inline (Set_Redundant_Use);
11332 pragma Inline (Set_Renaming_Exception);
11333 pragma Inline (Set_Result_Definition);
11334 pragma Inline (Set_Return_Object_Declarations);
11335 pragma Inline (Set_Reverse_Present);
11336 pragma Inline (Set_Right_Opnd);
11337 pragma Inline (Set_Rounded_Result);
11338 pragma Inline (Set_Scope);
11339 pragma Inline (Set_Select_Alternatives);
11340 pragma Inline (Set_Selector_Name);
11341 pragma Inline (Set_Selector_Names);
11342 pragma Inline (Set_Shift_Count_OK);
11343 pragma Inline (Set_Source_Type);
11344 pragma Inline (Set_Specification);
11345 pragma Inline (Set_Statements);
11346 pragma Inline (Set_Static_Processing_OK);
11347 pragma Inline (Set_Storage_Pool);
11348 pragma Inline (Set_Strval);
11349 pragma Inline (Set_Subtype_Indication);
11350 pragma Inline (Set_Subtype_Mark);
11351 pragma Inline (Set_Subtype_Marks);
11352 pragma Inline (Set_Synchronized_Present);
11353 pragma Inline (Set_Tagged_Present);
11354 pragma Inline (Set_Target_Type);
11355 pragma Inline (Set_Task_Definition);
11356 pragma Inline (Set_Task_Present);
11357 pragma Inline (Set_Then_Actions);
11358 pragma Inline (Set_Then_Statements);
11359 pragma Inline (Set_Triggering_Alternative);
11360 pragma Inline (Set_Triggering_Statement);
11361 pragma Inline (Set_Treat_Fixed_As_Integer);
11362 pragma Inline (Set_TSS_Elist);
11363 pragma Inline (Set_Type_Definition);
11364 pragma Inline (Set_Unit);
11365 pragma Inline (Set_Unknown_Discriminants_Present);
11366 pragma Inline (Set_Unreferenced_In_Spec);
11367 pragma Inline (Set_Variant_Part);
11368 pragma Inline (Set_Variants);
11369 pragma Inline (Set_Visible_Declarations);
11370 pragma Inline (Set_Was_Originally_Stub);
11371 pragma Inline (Set_Zero_Cost_Handling);
11373 N_Simple_Return_Statement : constant Node_Kind := N_Return_Statement;
11374 -- Rename N_Return_Statement to be N_Simple_Return_Statement. Clients
11375 -- should refer to N_Simple_Return_Statement.