1------------------------------------------------------------------------------ 2-- -- 3-- GNAT COMPILER COMPONENTS -- 4-- -- 5-- S I N F O -- 6-- -- 7-- S p e c -- 8-- -- 9-- Copyright (C) 1992-2012, Free Software Foundation, Inc. -- 10-- -- 11-- GNAT is free software; you can redistribute it and/or modify it under -- 12-- terms of the GNU General Public License as published by the Free Soft- -- 13-- ware Foundation; either version 3, or (at your option) any later ver- -- 14-- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- 15-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- 16-- or FITNESS FOR A PARTICULAR PURPOSE. -- 17-- -- 18-- As a special exception under Section 7 of GPL version 3, you are granted -- 19-- additional permissions described in the GCC Runtime Library Exception, -- 20-- version 3.1, as published by the Free Software Foundation. -- 21-- -- 22-- You should have received a copy of the GNU General Public License and -- 23-- a copy of the GCC Runtime Library Exception along with this program; -- 24-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 25-- <http://www.gnu.org/licenses/>. -- 26-- -- 27-- GNAT was originally developed by the GNAT team at New York University. -- 28-- Extensive contributions were provided by Ada Core Technologies Inc. -- 29-- -- 30------------------------------------------------------------------------------ 31 32-- This package defines the structure of the abstract syntax tree. The Tree 33-- package provides a basic tree structure. Sinfo describes how this structure 34-- is used to represent the syntax of an Ada program. 35 36-- The grammar in the RM is followed very closely in the tree design, and is 37-- repeated as part of this source file. 38 39-- The tree contains not only the full syntactic representation of the 40-- program, but also the results of semantic analysis. In particular, the 41-- nodes for defining identifiers, defining character literals and defining 42-- operator symbols, collectively referred to as entities, represent what 43-- would normally be regarded as the symbol table information. In addition a 44-- number of the tree nodes contain semantic information. 45 46-- WARNING: Several files are automatically generated from this package. 47-- See below for details. 48 49with Namet; use Namet; 50with Types; use Types; 51with Uintp; use Uintp; 52with Urealp; use Urealp; 53 54package Sinfo is 55 56 --------------------------------- 57 -- Making Changes to This File -- 58 --------------------------------- 59 60 -- If changes are made to this file, a number of related steps must be 61 -- carried out to ensure consistency. First, if a field access function is 62 -- added, it appears in these places: 63 64 -- In sinfo.ads: 65 -- The documentation associated with the field (if semantic) 66 -- The documentation associated with the node 67 -- The spec of the access function 68 -- The spec of the set procedure 69 -- The entries in Is_Syntactic_Field 70 -- The pragma Inline for the access function 71 -- The pragma Inline for the set procedure 72 -- In sinfo.adb: 73 -- The body of the access function 74 -- The body of the set procedure 75 76 -- The field chosen must be consistent in all places, and, for a node that 77 -- is a subexpression, must not overlap any of the standard expression 78 -- fields. 79 80 -- In addition, if any of the standard expression fields is changed, then 81 -- the utility program which creates the Treeprs spec (in file treeprs.ads) 82 -- must be updated appropriately, since it special cases expression fields. 83 84 -- If a new tree node is added, then the following changes are made 85 86 -- Add it to the documentation in the appropriate place 87 -- Add its fields to this documentation section 88 -- Define it in the appropriate classification in Node_Kind 89 -- In the body (sinfo), add entries to the access functions for all 90 -- its fields (except standard expression fields) to include the new 91 -- node in the checks. 92 -- Add an appropriate section to the case statement in sprint.adb 93 -- Add an appropriate section to the case statement in sem.adb 94 -- Add an appropriate section to the case statement in exp_util.adb 95 -- (Insert_Actions procedure) 96 -- For a subexpression, add an appropriate section to the case 97 -- statement in sem_eval.adb 98 -- For a subexpression, add an appropriate section to the case 99 -- statement in sem_res.adb 100 101 -- Finally, four utility programs must be run: 102 103 -- (Optional.) Run CSinfo to check that you have made the changes 104 -- consistently. It checks most of the rules given above. This utility 105 -- reads sinfo.ads and sinfo.adb and generates a report to standard 106 -- output. This step is optional because XSinfo runs CSinfo. 107 108 -- Run XSinfo to create sinfo.h, the corresponding C header. This 109 -- utility reads sinfo.ads and generates sinfo.h. Note that it does 110 -- not need to read sinfo.adb, since the contents of the body are 111 -- algorithmically determinable from the spec. 112 113 -- Run XTreeprs to create treeprs.ads, an updated version of the module 114 -- that is used to drive the tree print routine. This utility reads (but 115 -- does not modify) treeprs.adt, the template that provides the basic 116 -- structure of the file, and then fills in the data from the comments 117 -- in sinfo.ads. 118 119 -- Run XNmake to create nmake.ads and nmake.adb, the package body and 120 -- spec of the Nmake package which contains functions for constructing 121 -- nodes. 122 123 -- The above steps are done automatically by the build scripts when you do 124 -- a full bootstrap. 125 126 -- Note: sometime we could write a utility that actually generated the body 127 -- of sinfo from the spec instead of simply checking it, since, as noted 128 -- above, the contents of the body can be determined from the spec. 129 130 -------------------------------- 131 -- Implicit Nodes in the Tree -- 132 -------------------------------- 133 134 -- Generally the structure of the tree very closely follows the grammar as 135 -- defined in the RM. However, certain nodes are omitted to save space and 136 -- simplify semantic processing. Two general classes of such omitted nodes 137 -- are as follows: 138 139 -- If the only possibilities for a non-terminal are one or more other 140 -- non-terminals (i.e. the rule is a "skinny" rule), then usually the 141 -- corresponding node is omitted from the tree, and the target construct 142 -- appears directly. For example, a real type definition is either 143 -- floating point definition or a fixed point definition. No explicit node 144 -- appears for real type definition. Instead either the floating point 145 -- definition or fixed point definition appears directly. 146 147 -- If a non-terminal corresponds to a list of some other non-terminal 148 -- (possibly with separating punctuation), then usually it is omitted from 149 -- the tree, and a list of components appears instead. For example, 150 -- sequence of statements does not appear explicitly in the tree. Instead 151 -- a list of statements appears directly. 152 153 -- Some additional cases of omitted nodes occur and are documented 154 -- individually. In particular, many nodes are omitted in the tree 155 -- generated for an expression. 156 157 ------------------------------------------- 158 -- Handling of Defining Identifier Lists -- 159 ------------------------------------------- 160 161 -- In several declarative forms in the syntax, lists of defining 162 -- identifiers appear (object declarations, component declarations, number 163 -- declarations etc.) 164 165 -- The semantics of such statements are equivalent to a series of identical 166 -- declarations of single defining identifiers (except that conformance 167 -- checks require the same grouping of identifiers in the parameter case). 168 169 -- To simplify semantic processing, the parser breaks down such multiple 170 -- declaration cases into sequences of single declarations, duplicating 171 -- type and initialization information as required. The flags More_Ids and 172 -- Prev_Ids are used to record the original form of the source in the case 173 -- where the original source used a list of names, More_Ids being set on 174 -- all but the last name and Prev_Ids being set on all but the first name. 175 -- These flags are used to reconstruct the original source (e.g. in the 176 -- Sprint package), and also are included in the conformance checks, but 177 -- otherwise have no semantic significance. 178 179 -- Note: the reason that we use More_Ids and Prev_Ids rather than 180 -- First_Name and Last_Name flags is so that the flags are off in the 181 -- normal one identifier case, which minimizes tree print output. 182 183 ----------------------- 184 -- Use of Node Lists -- 185 ----------------------- 186 187 -- With a few exceptions, if a construction of the form {non-terminal} 188 -- appears in the tree, lists are used in the corresponding tree node (see 189 -- package Nlists for handling of node lists). In this case a field of the 190 -- parent node points to a list of nodes for the non-terminal. The field 191 -- name for such fields has a plural name which always ends in "s". For 192 -- example, a case statement has a field Alternatives pointing to list of 193 -- case statement alternative nodes. 194 195 -- Only fields pointing to lists have names ending in "s", so generally the 196 -- structure is strongly typed, fields not ending in s point to single 197 -- nodes, and fields ending in s point to lists. 198 199 -- The following example shows how a traversal of a list is written. We 200 -- suppose here that Stmt points to a N_Case_Statement node which has a 201 -- list field called Alternatives: 202 203 -- Alt := First (Alternatives (Stmt)); 204 -- while Present (Alt) loop 205 -- .. 206 -- -- processing for case statement alternative Alt 207 -- .. 208 -- Alt := Next (Alt); 209 -- end loop; 210 211 -- The Present function tests for Empty, which in this case signals the end 212 -- of the list. First returns Empty immediately if the list is empty. 213 -- Present is defined in Atree, First and Next are defined in Nlists. 214 215 -- The exceptions to this rule occur with {DEFINING_IDENTIFIERS} in all 216 -- contexts, which is handled as described in the previous section, and 217 -- with {,library_unit_NAME} in the N_With_Clause mode, which is handled 218 -- using the First_Name and Last_Name flags, as further detailed in the 219 -- description of the N_With_Clause node. 220 221 ------------- 222 -- Pragmas -- 223 ------------- 224 225 -- Pragmas can appear in many different context, but are not included in 226 -- the grammar. Still they must appear in the tree, so they can be properly 227 -- processed. 228 229 -- Two approaches are used. In some cases, an extra field is defined in an 230 -- appropriate node that contains a list of pragmas appearing in the 231 -- expected context. For example pragmas can appear before an 232 -- Accept_Alternative in a Selective_Accept_Statement, and these pragmas 233 -- appear in the Pragmas_Before field of the N_Accept_Alternative node. 234 235 -- The other approach is to simply allow pragmas to appear in syntactic 236 -- lists where the grammar (of course) does not include the possibility. 237 -- For example, the Variants field of an N_Variant_Part node points to a 238 -- list that can contain both N_Pragma and N_Variant nodes. 239 240 -- To make processing easier in the latter case, the Nlists package 241 -- provides a set of routines (First_Non_Pragma, Last_Non_Pragma, 242 -- Next_Non_Pragma, Prev_Non_Pragma) that allow such lists to be handled 243 -- ignoring all pragmas. 244 245 -- In the case of the variants list, we can either write: 246 247 -- Variant := First (Variants (N)); 248 -- while Present (Variant) loop 249 -- ... 250 -- Variant := Next (Variant); 251 -- end loop; 252 253 -- or 254 255 -- Variant := First_Non_Pragma (Variants (N)); 256 -- while Present (Variant) loop 257 -- ... 258 -- Variant := Next_Non_Pragma (Variant); 259 -- end loop; 260 261 -- In the first form of the loop, Variant can either be an N_Pragma or an 262 -- N_Variant node. In the second form, Variant can only be N_Variant since 263 -- all pragmas are skipped. 264 265 --------------------- 266 -- Optional Fields -- 267 --------------------- 268 269 -- Fields which correspond to a section of the syntax enclosed in square 270 -- brackets are generally omitted (and the corresponding field set to Empty 271 -- for a node, or No_List for a list). The documentation of such fields 272 -- notes these cases. One exception to this rule occurs in the case of 273 -- possibly empty statement sequences (such as the sequence of statements 274 -- in an entry call alternative). Such cases appear in the syntax rules as 275 -- [SEQUENCE_OF_STATEMENTS] and the fields corresponding to such optional 276 -- statement sequences always contain an empty list (not No_List) if no 277 -- statements are present. 278 279 -- Note: the utility program that constructs the body and spec of the Nmake 280 -- package relies on the format of the comments to determine if a field 281 -- should have a default value in the corresponding make routine. The rule 282 -- is that if the first line of the description of the field contains the 283 -- string "(set to xxx if", then a default value of xxx is provided for 284 -- this field in the corresponding Make_yyy routine. 285 286 ----------------------------------- 287 -- Note on Body/Spec Terminology -- 288 ----------------------------------- 289 290 -- In informal discussions about Ada, it is customary to refer to package 291 -- and subprogram specs and bodies. However, this is not technically 292 -- correct, what is normally referred to as a spec or specification is in 293 -- fact a package declaration or subprogram declaration. We are careful in 294 -- GNAT to use the correct terminology and in particular, the full word 295 -- specification is never used as an incorrect substitute for declaration. 296 -- The structure and terminology used in the tree also reflects the grammar 297 -- and thus uses declaration and specification in the technically correct 298 -- manner. 299 300 -- However, there are contexts in which the informal terminology is useful. 301 -- We have the word "body" to refer to the Interp_Etype declared by the 302 -- declaration of a unit body, and in some contexts we need similar term to 303 -- refer to the entity declared by the package or subprogram declaration, 304 -- and simply using declaration can be confusing since the body also has a 305 -- declaration. 306 307 -- An example of such a context is the link between the package body and 308 -- its declaration. With_Declaration is confusing, since the package body 309 -- itself is a declaration. 310 311 -- To deal with this problem, we reserve the informal term Spec, i.e. the 312 -- popular abbreviation used in this context, to refer to the entity 313 -- declared by the package or subprogram declaration. So in the above 314 -- example case, the field in the body is called With_Spec. 315 316 -- Another important context for the use of the word Spec is in error 317 -- messages, where a hyper-correct use of declaration would be confusing to 318 -- a typical Ada programmer, and even for an expert programmer can cause 319 -- confusion since the body has a declaration as well. 320 321 -- So, to summarize: 322 323 -- Declaration always refers to the syntactic entity that is called 324 -- a declaration. In particular, subprogram declaration 325 -- and package declaration are used to describe the 326 -- syntactic entity that includes the semicolon. 327 328 -- Specification always refers to the syntactic entity that is called 329 -- a specification. In particular, the terms procedure 330 -- specification, function specification, package 331 -- specification, subprogram specification always refer 332 -- to the syntactic entity that has no semicolon. 333 334 -- Spec is an informal term, used to refer to the entity 335 -- that is declared by a task declaration, protected 336 -- declaration, generic declaration, subprogram 337 -- declaration or package declaration. 338 339 -- This convention is followed throughout the GNAT documentation 340 -- both internal and external, and in all error message text. 341 342 ------------------------ 343 -- Internal Use Nodes -- 344 ------------------------ 345 346 -- These are Node_Kind settings used in the internal implementation which 347 -- are not logically part of the specification. 348 349 -- N_Unused_At_Start 350 -- Completely unused entry at the start of the enumeration type. This 351 -- is inserted so that no legitimate value is zero, which helps to get 352 -- better debugging behavior, since zero is a likely uninitialized value). 353 354 -- N_Unused_At_End 355 -- Completely unused entry at the end of the enumeration type. This is 356 -- handy so that arrays with Node_Kind as the index type have an extra 357 -- entry at the end (see for example the use of the Pchar_Pos_Array in 358 -- Treepr, where the extra entry provides the limit value when dealing with 359 -- the last used entry in the array). 360 361 ----------------------------------------- 362 -- Note on the settings of Sloc fields -- 363 ----------------------------------------- 364 365 -- The Sloc field of nodes that come from the source is set by the parser. 366 -- For internal nodes, and nodes generated during expansion the Sloc is 367 -- usually set in the call to the constructor for the node. In general the 368 -- Sloc value chosen for an internal node is the Sloc of the source node 369 -- whose processing is responsible for the expansion. For example, the Sloc 370 -- of an inherited primitive operation is the Sloc of the corresponding 371 -- derived type declaration. 372 373 -- For the nodes of a generic instantiation, the Sloc value is encoded to 374 -- represent both the original Sloc in the generic unit, and the Sloc of 375 -- the instantiation itself. See Sinput.ads for details. 376 377 -- Subprogram instances create two callable entities: one is the visible 378 -- subprogram instance, and the other is an anonymous subprogram nested 379 -- within a wrapper package that contains the renamings for the actuals. 380 -- Both of these entities have the Sloc of the defining entity in the 381 -- instantiation node. This simplifies some ASIS queries. 382 383 ----------------------- 384 -- Field Definitions -- 385 ----------------------- 386 387 -- In the following node definitions, all fields, both syntactic and 388 -- semantic, are documented. The one exception is in the case of entities 389 -- (defining identifiers, character literals and operator symbols), where 390 -- the usage of the fields depends on the entity kind. Entity fields are 391 -- fully documented in the separate package Einfo. 392 393 -- In the node definitions, three common sets of fields are abbreviated to 394 -- save both space in the documentation, and also space in the string 395 -- (defined in Tree_Print_Strings) used to print trees. The following 396 -- abbreviations are used: 397 398 -- Note: the utility program that creates the Treeprs spec (in the file 399 -- xtreeprs.adb) knows about the special fields here, so it must be 400 -- modified if any change is made to these fields. 401 402 -- "plus fields for binary operator" 403 -- Chars (Name1) Name_Id for the operator 404 -- Left_Opnd (Node2) left operand expression 405 -- Right_Opnd (Node3) right operand expression 406 -- Entity (Node4-Sem) defining entity for operator 407 -- Associated_Node (Node4-Sem) for generic processing 408 -- Do_Overflow_Check (Flag17-Sem) set if overflow check needed 409 -- Has_Private_View (Flag11-Sem) set in generic units. 410 411 -- "plus fields for unary operator" 412 -- Chars (Name1) Name_Id for the operator 413 -- Right_Opnd (Node3) right operand expression 414 -- Entity (Node4-Sem) defining entity for operator 415 -- Associated_Node (Node4-Sem) for generic processing 416 -- Do_Overflow_Check (Flag17-Sem) set if overflow check needed 417 -- Has_Private_View (Flag11-Sem) set in generic units. 418 419 -- "plus fields for expression" 420 -- Paren_Count number of parentheses levels 421 -- Etype (Node5-Sem) type of the expression 422 -- Is_Overloaded (Flag5-Sem) >1 type interpretation exists 423 -- Is_Static_Expression (Flag6-Sem) set for static expression 424 -- Raises_Constraint_Error (Flag7-Sem) evaluation raises CE 425 -- Must_Not_Freeze (Flag8-Sem) set if must not freeze 426 -- Do_Range_Check (Flag9-Sem) set if a range check needed 427 -- Has_Dynamic_Length_Check (Flag10-Sem) set if length check inserted 428 -- Has_Dynamic_Range_Check (Flag12-Sem) set if range check inserted 429 -- Assignment_OK (Flag15-Sem) set if modification is OK 430 -- Is_Controlling_Actual (Flag16-Sem) set for controlling argument 431 432 -- Note: see under (EXPRESSION) for further details on the use of 433 -- the Paren_Count field to record the number of parentheses levels. 434 435 -- Node_Kind is the type used in the Nkind field to indicate the node kind. 436 -- The actual definition of this type is given later (the reason for this 437 -- is that we want the descriptions ordered by logical chapter in the RM, 438 -- but the type definition is reordered to facilitate the definition of 439 -- some subtype ranges. The individual descriptions of the nodes show how 440 -- the various fields are used in each node kind, as well as providing 441 -- logical names for the fields. Functions and procedures are provided for 442 -- accessing and setting these fields using these logical names. 443 444 ----------------------- 445 -- Gigi Restrictions -- 446 ----------------------- 447 448 -- The tree passed to Gigi is more restricted than the general tree form. 449 -- For example, as a result of expansion, most of the tasking nodes can 450 -- never appear. For each node to which either a complete or partial 451 -- restriction applies, a note entitled "Gigi restriction" appears which 452 -- documents the restriction. 453 454 -- Note that most of these restrictions apply only to trees generated when 455 -- code is being generated, since they involved expander actions that 456 -- destroy the tree. 457 458 ------------------------ 459 -- Common Flag Fields -- 460 ------------------------ 461 462 -- The following flag fields appear in all nodes 463 464 -- Analyzed 465 -- This flag is used to indicate that a node (and all its children have 466 -- been analyzed. It is used to avoid reanalysis of a node that has 467 -- already been analyzed, both for efficiency and functional correctness 468 -- reasons. 469 470 -- Comes_From_Source 471 -- This flag is set if the node comes directly from an explicit construct 472 -- in the source. It is normally on for any nodes built by the scanner or 473 -- parser from the source program, with the exception that in a few cases 474 -- the parser adds nodes to normalize the representation (in particular 475 -- a null statement is added to a package body if there is no begin/end 476 -- initialization section. 477 -- 478 -- Most nodes inserted by the analyzer or expander are not considered 479 -- as coming from source, so the flag is off for such nodes. In a few 480 -- cases, the expander constructs nodes closely equivalent to nodes 481 -- from the source program (e.g. the allocator built for build-in-place 482 -- case), and the Comes_From_Source flag is deliberately set. 483 484 -- Error_Posted 485 -- This flag is used to avoid multiple error messages being posted on or 486 -- referring to the same node. This flag is set if an error message 487 -- refers to a node or is posted on its source location, and has the 488 -- effect of inhibiting further messages involving this same node. 489 490 ------------------------------------ 491 -- Description of Semantic Fields -- 492 ------------------------------------ 493 494 -- The meaning of the syntactic fields is generally clear from their names 495 -- without any further description, since the names are chosen to 496 -- correspond very closely to the syntax in the reference manual. This 497 -- section describes the usage of the semantic fields, which are used to 498 -- contain additional information determined during semantic analysis. 499 500 -- ABE_Is_Certain (Flag18-Sem) 501 -- This flag is set in an instantiation node or a call node is determined 502 -- to be sure to raise an ABE. This is used to trigger special handling 503 -- of such cases, particularly in the instantiation case where we avoid 504 -- instantiating the body if this flag is set. This flag is also present 505 -- in an N_Formal_Package_Declaration_Node since formal package 506 -- declarations are treated like instantiations, but it is always set to 507 -- False in this context. 508 509 -- Accept_Handler_Records (List5-Sem) 510 -- This field is present only in an N_Accept_Alternative node. It is used 511 -- to temporarily hold the exception handler records from an accept 512 -- statement in a selective accept. These exception handlers will 513 -- eventually be placed in the Handler_Records list of the procedure 514 -- built for this accept (see Expand_N_Selective_Accept procedure in 515 -- Exp_Ch9 for further details). 516 517 -- Access_Types_To_Process (Elist2-Sem) 518 -- Present in N_Freeze_Entity nodes for Incomplete or private types. 519 -- Contains the list of access types which may require specific treatment 520 -- when the nature of the type completion is completely known. An example 521 -- of such treatment is the generation of the associated_final_chain. 522 523 -- Actions (List1-Sem) 524 -- This field contains a sequence of actions that are associated with the 525 -- node holding the field. See the individual node types for details of 526 -- how this field is used, as well as the description of the specific use 527 -- for a particular node type. 528 529 -- Activation_Chain_Entity (Node3-Sem) 530 -- This is used in tree nodes representing task activators (blocks, 531 -- subprogram bodies, package declarations, and task bodies). It is 532 -- initially Empty, and then gets set to point to the entity for the 533 -- declared Activation_Chain variable when the first task is declared. 534 -- When tasks are declared in the corresponding declarative region this 535 -- entity is located by name (its name is always _Chain) and the declared 536 -- tasks are added to the chain. Note that N_Extended_Return_Statement 537 -- does not have this attribute, although it does have an activation 538 -- chain. This chain is used to store the tasks temporarily, and is not 539 -- used for activating them. On successful completion of the return 540 -- statement, the tasks are moved to the caller's chain, and the caller 541 -- activates them. 542 543 -- Acts_As_Spec (Flag4-Sem) 544 -- A flag set in the N_Subprogram_Body node for a subprogram body which 545 -- is acting as its own spec, except in the case of a library level 546 -- subprogram, in which case the flag is set on the parent compilation 547 -- unit node instead (see further description in spec of Lib package). 548 -- ??? Above note about Lib is dubious since lib.ads does not mention 549 -- Acts_As_Spec at all. 550 551 -- Actual_Designated_Subtype (Node4-Sem) 552 -- Present in N_Free_Statement and N_Explicit_Dereference nodes. If gigi 553 -- needs to known the dynamic constrained subtype of the designated 554 -- object, this attribute is set to that type. This is done for 555 -- N_Free_Statements for access-to-classwide types and access to 556 -- unconstrained packed array types, and for N_Explicit_Dereference when 557 -- the designated type is an unconstrained packed array and the 558 -- dereference is the prefix of a 'Size attribute reference. 559 560 -- Address_Warning_Posted (Flag18-Sem) 561 -- Present in N_Attribute_Definition nodes. Set to indicate that we have 562 -- posted a warning for the address clause regarding size or alignment 563 -- issues. Used to inhibit multiple redundant messages. 564 565 -- Aggregate_Bounds (Node3-Sem) 566 -- Present in array N_Aggregate nodes. If the bounds of the aggregate are 567 -- known at compile time, this field points to an N_Range node with those 568 -- bounds. Otherwise Empty. 569 570 -- All_Others (Flag11-Sem) 571 -- Present in an N_Others_Choice node. This flag is set for an others 572 -- exception where all exceptions are to be caught, even those that are 573 -- not normally handled (in particular the tasking abort signal). This 574 -- is used for translation of the at end handler into a normal exception 575 -- handler. 576 577 -- Aspect_Rep_Item (Node2-Sem) 578 -- Present in N_Aspect_Specification nodes. Points to the corresponding 579 -- pragma/attribute definition node used to process the aspect. 580 581 -- Assignment_OK (Flag15-Sem) 582 -- This flag is set in a subexpression node for an object, indicating 583 -- that the associated object can be modified, even if this would not 584 -- normally be permissible (either by direct assignment, or by being 585 -- passed as an out or in-out parameter). This is used by the expander 586 -- for a number of purposes, including initialization of constants and 587 -- limited type objects (such as tasks), setting discriminant fields, 588 -- setting tag values, etc. N_Object_Declaration nodes also have this 589 -- flag defined. Here it is used to indicate that an initialization 590 -- expression is valid, even where it would normally not be allowed 591 -- (e.g. where the type involved is limited). 592 593 -- Associated_Node (Node4-Sem) 594 -- Present in nodes that can denote an entity: identifiers, character 595 -- literals, operator symbols, expanded names, operator nodes, and 596 -- attribute reference nodes (all these nodes have an Entity field). 597 -- This field is also present in N_Aggregate, N_Selected_Component, and 598 -- N_Extension_Aggregate nodes. This field is used in generic processing 599 -- to create links between the generic template and the generic copy. 600 -- See Sem_Ch12.Get_Associated_Node for full details. Note that this 601 -- field overlaps Entity, which is fine, since, as explained in Sem_Ch12, 602 -- the normal function of Entity is not required at the point where the 603 -- Associated_Node is set. Note also, that in generic templates, this 604 -- means that the Entity field does not necessarily point to an Entity. 605 -- Since the back end is expected to ignore generic templates, this is 606 -- harmless. 607 608 -- Atomic_Sync_Required (Flag14-Sem) 609 -- This flag is set on a node for which atomic synchronization is 610 -- required for the corresponding reference or modification. 611 612 -- At_End_Proc (Node1) 613 -- This field is present in an N_Handled_Sequence_Of_Statements node. 614 -- It contains an identifier reference for the cleanup procedure to be 615 -- called. See description of this node for further details. 616 617 -- Backwards_OK (Flag6-Sem) 618 -- A flag present in the N_Assignment_Statement node. It is used only 619 -- if the type being assigned is an array type, and is set if analysis 620 -- determines that it is definitely safe to do the copy backwards, i.e. 621 -- starting at the highest addressed element. This is the case if either 622 -- the operands do not overlap, or they may overlap, but if they do, 623 -- then the left operand is at a higher address than the right operand. 624 -- 625 -- Note: If neither of the flags Forwards_OK or Backwards_OK is set, it 626 -- means that the front end could not determine that either direction is 627 -- definitely safe, and a runtime check may be required if the backend 628 -- cannot figure it out. If both flags Forwards_OK and Backwards_OK are 629 -- set, it means that the front end can assure no overlap of operands. 630 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. 638 639 -- Body_Required (Flag13-Sem) 640 -- A flag that appears in the N_Compilation_Unit node indicating that 641 -- the 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). 648 649 -- By_Ref (Flag5-Sem) 650 -- Present in N_Simple_Return_Statement and N_Extended_Return_Statement, 651 -- this flag is set when the returned expression is already allocated on 652 -- the secondary stack and thus the result is passed by reference rather 653 -- than copied another time. 654 655 -- Check_Address_Alignment (Flag11-Sem) 656 -- A flag present in N_Attribute_Definition clause for a 'Address 657 -- attribute definition. This flag is set if a dynamic check should be 658 -- generated at the freeze point for the entity to which this address 659 -- clause applies. The reason that we need this flag is that we want to 660 -- check for range checks being suppressed at the point where the 661 -- attribute definition clause is given, rather than testing this at the 662 -- freeze point. 663 664 -- Comes_From_Extended_Return_Statement (Flag18-Sem) 665 -- Present in N_Simple_Return_Statement nodes. True if this node was 666 -- constructed as part of the N_Extended_Return_Statement expansion. 667 668 -- Compile_Time_Known_Aggregate (Flag18-Sem) 669 -- Present in N_Aggregate nodes. Set for aggregates which can be fully 670 -- evaluated at compile time without raising constraint error. Such 671 -- aggregates can be passed as is the back end without any expansion. 672 -- See Exp_Aggr for specific conditions under which this flag gets set. 673 674 -- Componentwise_Assignment (Flag14-Sem) 675 -- Present in N_Assignment_Statement nodes. Set for a record assignment 676 -- where all that needs doing is to expand it into component-by-component 677 -- assignments. This is used internally for the case of tagged types with 678 -- rep clauses, where we need to avoid recursion (we don't want to try to 679 -- generate a call to the primitive operation, because this is the case 680 -- where we are compiling the primitive operation). Note that when we are 681 -- expanding component assignments in this case, we never assign the _tag 682 -- field, but we recursively assign components of the parent type. 683 684 -- Condition_Actions (List3-Sem) 685 -- This field appears in else-if nodes and in the iteration scheme node 686 -- for while loops. This field is only used during semantic processing to 687 -- temporarily hold actions inserted into the tree. In the tree passed 688 -- to gigi, the condition actions field is always set to No_List. For 689 -- details on how this field is used, see the routine Insert_Actions in 690 -- package Exp_Util, and also the expansion routines for the relevant 691 -- nodes. 692 693 -- Context_Pending (Flag16-Sem) 694 -- This field appears in Compilation_Unit nodes, to indicate that the 695 -- context of the unit is being compiled. Used to detect circularities 696 -- that are not otherwise detected by the loading mechanism. Such 697 -- circularities can occur in the presence of limited and non-limited 698 -- with_clauses that mention the same units. 699 700 -- Controlling_Argument (Node1-Sem) 701 -- This field is set in procedure and function call nodes if the call 702 -- is a dispatching call (it is Empty for a non-dispatching call). It 703 -- indicates the source of the call's controlling tag. For procedure 704 -- calls, the Controlling_Argument is one of the actuals. For function 705 -- that has a dispatching result, it is an entity in the context of the 706 -- call that can provide a tag, or else it is the tag of the root type 707 -- of the class. It can also specify a tag directly rather than being a 708 -- tagged object. The latter is needed by the implementations of AI-239 709 -- and AI-260. 710 711 -- Conversion_OK (Flag14-Sem) 712 -- A flag set on type conversion nodes to indicate that the conversion 713 -- is to be considered as being valid, even though it is the case that 714 -- the conversion is not valid Ada. This is used for attributes Enum_Rep, 715 -- Fixed_Value and Integer_Value, for internal conversions done for 716 -- fixed-point operations, and for certain conversions for calls to 717 -- initialization procedures. If Conversion_OK is set, then Etype must be 718 -- set (the analyzer assumes that Etype has been set). For the case of 719 -- fixed-point operands, it also indicates that the conversion is to be 720 -- direct conversion of the underlying integer result, with no regard to 721 -- the small operand. 722 723 -- Corresponding_Aspect (Node3-Sem) 724 -- Present in N_Pragma node. Used to point back to the source aspect from 725 -- the corresponding pragma. This field is Empty for source pragmas. 726 727 -- Corresponding_Body (Node5-Sem) 728 -- This field is set in subprogram declarations, package declarations, 729 -- entry declarations of protected types, and in generic units. It points 730 -- to the defining entity for the corresponding body (NOT the node for 731 -- the body itself). 732 733 -- Corresponding_Formal_Spec (Node3-Sem) 734 -- This field is set in subprogram renaming declarations, where it points 735 -- to the defining entity for a formal subprogram in the case where the 736 -- renaming corresponds to a generic formal subprogram association in an 737 -- instantiation. The field is Empty if the renaming does not correspond 738 -- to such a formal association. 739 740 -- Corresponding_Generic_Association (Node5-Sem) 741 -- This field is defined for object declarations and object renaming 742 -- declarations. It is set for the declarations within an instance that 743 -- map generic formals to their actuals. If set, the field points to 744 -- a generic_association which is the original parent of the expression 745 -- or name appearing in the declaration. This simplifies ASIS queries. 746 747 -- Corresponding_Integer_Value (Uint4-Sem) 748 -- This field is set in real literals of fixed-point types (it is not 749 -- used for floating-point types). It contains the integer value used 750 -- to represent the fixed-point value. It is also set on the universal 751 -- real literals used to represent bounds of fixed-point base types 752 -- and their first named subtypes. 753 754 -- Corresponding_Spec (Node5-Sem) 755 -- This field is set in subprogram, package, task, and protected body 756 -- nodes, where it points to the defining entity in the corresponding 757 -- spec. The attribute is also set in N_With_Clause nodes where it points 758 -- to the defining entity for the with'ed spec, and in a subprogram 759 -- renaming declaration when it is a Renaming_As_Body. The field is Empty 760 -- if there is no corresponding spec, as in the case of a subprogram body 761 -- that serves as its own spec. 762 -- 763 -- In Ada 2012, Corresponding_Spec is set on expression functions that 764 -- complete a subprogram declaration. 765 766 -- Corresponding_Stub (Node3-Sem) 767 -- This field is present in an N_Subunit node. It holds the node in 768 -- the parent unit that is the stub declaration for the subunit. It is 769 -- set when analysis of the stub forces loading of the proper body. If 770 -- expansion of the proper body creates new declarative nodes, they are 771 -- inserted at the point of the corresponding_stub. 772 773 -- Dcheck_Function (Node5-Sem) 774 -- This field is present in an N_Variant node, It references the entity 775 -- for the discriminant checking function for the variant. 776 777 -- Default_Expression (Node5-Sem) 778 -- This field is Empty if there is no default expression. If there is a 779 -- simple default expression (one with no side effects), then this field 780 -- simply contains a copy of the Expression field (both point to the tree 781 -- for the default expression). Default_Expression is used for 782 -- conformance checking. 783 784 -- Default_Storage_Pool (Node3-Sem) 785 -- This field is present in N_Compilation_Unit_Aux nodes. It is set to a 786 -- copy of Opt.Default_Pool at the end of the compilation unit. See 787 -- package Opt for details. This is used for inheriting the 788 -- Default_Storage_Pool in child units. 789 790 -- Discr_Check_Funcs_Built (Flag11-Sem) 791 -- This flag is present in N_Full_Type_Declaration nodes. It is set when 792 -- discriminant checking functions are constructed. The purpose is to 793 -- avoid attempting to set these functions more than once. 794 795 -- Do_Accessibility_Check (Flag13-Sem) 796 -- This flag is set on N_Parameter_Specification nodes to indicate 797 -- that an accessibility check is required for the parameter. It is 798 -- not yet decided who takes care of this check (TBD ???). 799 800 -- Do_Discriminant_Check (Flag13-Sem) 801 -- This flag is set on N_Selected_Component nodes to indicate that a 802 -- discriminant check is required using the discriminant check routine 803 -- associated with the selector. The actual check is generated by the 804 -- expander when processing selected components. 805 806 -- Do_Division_Check (Flag13-Sem) 807 -- This flag is set on a division operator (/ mod rem) to indicate 808 -- that a zero divide check is required. The actual check is dealt 809 -- with by the backend (all the front end does is to set the flag). 810 811 -- Do_Length_Check (Flag4-Sem) 812 -- This flag is set in an N_Assignment_Statement, N_Op_And, N_Op_Or, 813 -- N_Op_Xor, or N_Type_Conversion node to indicate that a length check 814 -- is required. It is not determined who deals with this flag (???). 815 816 -- Do_Overflow_Check (Flag17-Sem) 817 -- This flag is set on an operator where an overflow check is required on 818 -- the operation. The actual check is dealt with by the backend (all the 819 -- front end does is to set the flag). The other cases where this flag is 820 -- used is on a Type_Conversion node and for attribute reference nodes. 821 -- For a type conversion, it means that the conversion is from one base 822 -- type to another, and the value may not fit in the target base type. 823 -- See also the description of Do_Range_Check for this case. The only 824 -- attribute references which use this flag are Pred and Succ, where it 825 -- means that the result should be checked for going outside the base 826 -- range. Note that this flag is not set for modular types. This flag is 827 -- also set on if and case expression nodes if we are operating in either 828 -- MINIMIZED or ELIMINATED overflow checking mode (to make sure that we 829 -- properly process overflow checking for dependent expressions). 830 831 -- Do_Range_Check (Flag9-Sem) 832 -- This flag is set on an expression which appears in a context where a 833 -- range check is required. The target type is clear from the context. 834 -- The contexts in which this flag can appear are the following: 835 836 -- Right side of an assignment. In this case the target type is 837 -- taken from the left side of the assignment, which is referenced 838 -- by the Name of the N_Assignment_Statement node. 839 840 -- Subscript expressions in an indexed component. In this case the 841 -- target type is determined from the type of the array, which is 842 -- referenced by the Prefix of the N_Indexed_Component node. 843 844 -- Argument expression for a parameter, appearing either directly in 845 -- the Parameter_Associations list of a call or as the Expression of an 846 -- N_Parameter_Association node that appears in this list. In either 847 -- case, the check is against the type of the formal. Note that the 848 -- flag is relevant only in IN and IN OUT parameters, and will be 849 -- ignored for OUT parameters, where no check is required in the call, 850 -- and if a check is required on the return, it is generated explicitly 851 -- with a type conversion. 852 853 -- Initialization expression for the initial value in an object 854 -- declaration. In this case the Do_Range_Check flag is set on 855 -- the initialization expression, and the check is against the 856 -- range of the type of the object being declared. 857 858 -- The expression of a type conversion. In this case the range check is 859 -- against the target type of the conversion. See also the use of 860 -- Do_Overflow_Check on a type conversion. The distinction is that the 861 -- overflow check protects against a value that is outside the range of 862 -- the target base type, whereas a range check checks that the 863 -- resulting value (which is a value of the base type of the target 864 -- type), satisfies the range constraint of the target type. 865 866 -- Note: when a range check is required in contexts other than those 867 -- listed above (e.g. in a return statement), an additional type 868 -- conversion node is introduced to represent the required check. 869 870 -- Do_Storage_Check (Flag17-Sem) 871 -- This flag is set in an N_Allocator node to indicate that a storage 872 -- check is required for the allocation, or in an N_Subprogram_Body node 873 -- to indicate that a stack check is required in the subprogram prolog. 874 -- The N_Allocator case is handled by the routine that expands the call 875 -- to the runtime routine. The N_Subprogram_Body case is handled by the 876 -- backend, and all the semantics does is set the flag. 877 878 -- Do_Tag_Check (Flag13-Sem) 879 -- This flag is set on an N_Assignment_Statement, N_Function_Call, 880 -- N_Procedure_Call_Statement, N_Type_Conversion, 881 -- N_Simple_Return_Statement, or N_Extended_Return_Statement 882 -- node to indicate that the tag check can be suppressed. It is not 883 -- yet decided how this flag is used (TBD ???). 884 885 -- Elaborate_Present (Flag4-Sem) 886 -- This flag is set in the N_With_Clause node to indicate that pragma 887 -- Elaborate pragma appears for the with'ed units. 888 889 -- Elaborate_All_Desirable (Flag9-Sem) 890 -- This flag is set in the N_With_Clause mode to indicate that the static 891 -- elaboration processing has determined that an Elaborate_All pragma is 892 -- desirable for correct elaboration for this unit. 893 894 -- Elaborate_All_Present (Flag14-Sem) 895 -- This flag is set in the N_With_Clause node to indicate that a 896 -- pragma Elaborate_All pragma appears for the with'ed units. 897 898 -- Elaborate_Desirable (Flag11-Sem) 899 -- This flag is set in the N_With_Clause mode to indicate that the static 900 -- elaboration processing has determined that an Elaborate pragma is 901 -- desirable for correct elaboration for this unit. 902 903 -- Elaboration_Boolean (Node2-Sem) 904 -- This field is present in function and procedure specification nodes. 905 -- If set, it points to the entity for a Boolean flag that must be tested 906 -- for certain calls to check for access before elaboration. See body of 907 -- Sem_Elab for further details. This field is Empty if no elaboration 908 -- boolean is required. 909 910 -- Else_Actions (List3-Sem) 911 -- This field is present in if expression nodes. During code 912 -- expansion we use the Insert_Actions procedure (in Exp_Util) to insert 913 -- actions at an appropriate place in the tree to get elaborated at the 914 -- right time. For if expressions, we have to be sure that the actions 915 -- for the Else branch are only elaborated if the condition is False. 916 -- The Else_Actions field is used as a temporary parking place for 917 -- these actions. The final tree is always rewritten to eliminate the 918 -- need for this field, so in the tree passed to Gigi, this field is 919 -- always set to No_List. 920 921 -- Enclosing_Variant (Node2-Sem) 922 -- This field is present in the N_Variant node and identifies the Node_Id 923 -- corresponding to the immediately enclosing variant when the variant is 924 -- nested, and N_Empty otherwise. Set during semantic processing of the 925 -- variant part of a record type. 926 927 -- Entity (Node4-Sem) 928 -- Appears in all direct names (identifiers, character literals, and 929 -- operator symbols), as well as expanded names, and attributes that 930 -- denote entities, such as 'Class. Points to entity for corresponding 931 -- defining occurrence. Set after name resolution. For identifiers in a 932 -- WITH list, the corresponding defining occurrence is in a separately 933 -- compiled file, and Entity must be set by the library Load procedure. 934 -- 935 -- Note: During name resolution, the value in Entity may be temporarily 936 -- incorrect (e.g. during overload resolution, Entity is initially set to 937 -- the first possible correct interpretation, and then later modified if 938 -- necessary to contain the correct value after resolution). 939 -- 940 -- Note: This field overlaps Associated_Node, which is used during 941 -- generic processing (see Sem_Ch12 for details). Note also that in 942 -- generic templates, this means that the Entity field does not always 943 -- point to an Entity. Since the back end is expected to ignore generic 944 -- templates, this is harmless. 945 -- 946 -- Note: This field also appears in N_Attribute_Definition_Clause nodes. 947 -- It is used only for stream attributes definition clauses. In this 948 -- case, it denotes a (possibly dummy) subprogram entity that is declared 949 -- conceptually at the point of the clause. Thus the visibility of the 950 -- attribute definition clause (in the sense of 8.3(23) as amended by 951 -- AI-195) can be checked by testing the visibility of that subprogram. 952 -- 953 -- Note: Normally the Entity field of an identifier points to the entity 954 -- for the corresponding defining identifier, and hence the Chars field 955 -- of an identifier will match the Chars field of the entity. However, 956 -- there is no requirement that these match, and there are obscure cases 957 -- of generated code where they do not match. 958 959 -- Note: Ada 2012 aspect specifications require additional links between 960 -- identifiers and various attributes. These attributes can be of 961 -- arbitrary types, and the entity field of identifiers that denote 962 -- aspects must be used to store arbitrary expressions for later semantic 963 -- checks. See section on aspect specifications for details. 964 965 -- Entity_Or_Associated_Node (Node4-Sem) 966 -- A synonym for both Entity and Associated_Node. Used by convention in 967 -- the code when referencing this field in cases where it is not known 968 -- whether the field contains an Entity or an Associated_Node. 969 970 -- Etype (Node5-Sem) 971 -- Appears in all expression nodes, all direct names, and all entities. 972 -- Points to the entity for the related type. Set after type resolution. 973 -- Normally this is the actual subtype of the expression. However, in 974 -- certain contexts such as the right side of an assignment, subscripts, 975 -- arguments to calls, returned value in a function, initial value etc. 976 -- it is the desired target type. In the event that this is different 977 -- from the actual type, the Do_Range_Check flag will be set if a range 978 -- check is required. Note: if the Is_Overloaded flag is set, then Etype 979 -- points to an essentially arbitrary choice from the possible set of 980 -- types. 981 982 -- Exception_Junk (Flag8-Sem) 983 -- This flag is set in a various nodes appearing in a statement sequence 984 -- to indicate that the corresponding node is an artifact of the 985 -- generated code for exception handling, and should be ignored when 986 -- analyzing the control flow of the relevant sequence of statements 987 -- (e.g. to check that it does not end with a bad return statement). 988 989 -- Exception_Label (Node5-Sem) 990 -- Appears in N_Push_xxx_Label nodes. Points to the entity of the label 991 -- to be used for transforming the corresponding exception into a goto, 992 -- or contains Empty, if this exception is not to be transformed. Also 993 -- appears in N_Exception_Handler nodes, where, if set, it indicates 994 -- that there may be a local raise for the handler, so that expansion 995 -- to allow a goto is required (and this field contains the label for 996 -- this goto). See Exp_Ch11.Expand_Local_Exception_Handlers for details. 997 998 -- Expansion_Delayed (Flag11-Sem) 999 -- Set on aggregates and extension aggregates that need a top-down rather 1000 -- than bottom-up expansion. Typically aggregate expansion happens bottom 1001 -- up. For nested aggregates the expansion is delayed until the enclosing 1002 -- aggregate itself is expanded, e.g. in the context of a declaration. To 1003 -- delay it we set this flag. This is done to avoid creating a temporary 1004 -- for each level of a nested aggregates, and also to prevent the 1005 -- premature generation of constraint checks. This is also a requirement 1006 -- if we want to generate the proper attachment to the internal 1007 -- finalization lists (for record with controlled components). Top down 1008 -- expansion of aggregates is also used for in-place array aggregate 1009 -- assignment or initialization. When the full context is known, the 1010 -- target of the assignment or initialization is used to generate the 1011 -- left-hand side of individual assignment to each sub-component. 1012 1013 -- First_Inlined_Subprogram (Node3-Sem) 1014 -- Present in the N_Compilation_Unit node for the main program. Points 1015 -- to a chain of entities for subprograms that are to be inlined. The 1016 -- Next_Inlined_Subprogram field of these entities is used as a link 1017 -- pointer with Empty marking the end of the list. This field is Empty 1018 -- if there are no inlined subprograms or inlining is not active. 1019 1020 -- First_Named_Actual (Node4-Sem) 1021 -- Present in procedure call statement and function call nodes, and also 1022 -- in Intrinsic nodes. Set during semantic analysis to point to the first 1023 -- named parameter where parameters are ordered by declaration order (as 1024 -- opposed to the actual order in the call which may be different due to 1025 -- named associations). Note: this field points to the explicit actual 1026 -- parameter itself, not the N_Parameter_Association node (its parent). 1027 1028 -- First_Real_Statement (Node2-Sem) 1029 -- Present in N_Handled_Sequence_Of_Statements node. Normally set to 1030 -- Empty. Used only when declarations are moved into the statement part 1031 -- of a construct as a result of wrapping an AT END handler that is 1032 -- required to cover the declarations. In this case, this field is used 1033 -- to remember the location in the statements list of the first real 1034 -- statement, i.e. the statement that used to be first in the statement 1035 -- list before the declarations were prepended. 1036 1037 -- First_Subtype_Link (Node5-Sem) 1038 -- Present in N_Freeze_Entity node for an anonymous base type that is 1039 -- implicitly created by the declaration of a first subtype. It points 1040 -- to the entity for the first subtype. 1041 1042 -- Float_Truncate (Flag11-Sem) 1043 -- A flag present in type conversion nodes. This is used for float to 1044 -- integer conversions where truncation is required rather than rounding. 1045 -- Note that Gigi does not handle type conversions from real to integer 1046 -- with rounding (see Expand_N_Type_Conversion). 1047 1048 -- Forwards_OK (Flag5-Sem) 1049 -- A flag present in the N_Assignment_Statement node. It is used only 1050 -- if the type being assigned is an array type, and is set if analysis 1051 -- determines that it is definitely safe to do the copy forwards, i.e. 1052 -- starting at the lowest addressed element. This is the case if either 1053 -- the operands do not overlap, or they may overlap, but if they do, 1054 -- then the left operand is at a lower address than the right operand. 1055 -- 1056 -- Note: If neither of the flags Forwards_OK or Backwards_OK is set, it 1057 -- means that the front end could not determine that either direction is 1058 -- definitely safe, and a runtime check may be required if the backend 1059 -- cannot figure it out. If both flags Forwards_OK and Backwards_OK are 1060 -- set, it means that the front end can assure no overlap of operands. 1061 1062 -- From_Aspect_Specification (Flag13-Sem) 1063 -- Processing of aspect specifications typically results in insertion in 1064 -- the tree of corresponding pragma or attribute definition clause nodes. 1065 -- These generated nodes have the From_Aspect_Specification flag set to 1066 -- indicate that they came from aspect specifications originally. 1067 1068 -- From_At_End (Flag4-Sem) 1069 -- This flag is set on an N_Raise_Statement node if it corresponds to 1070 -- the reraise statement generated as the last statement of an AT END 1071 -- handler when SJLJ exception handling is active. It is used to stop 1072 -- a bogus violation of restriction (No_Exception_Propagation), bogus 1073 -- because if the restriction is set, the reraise is not generated. 1074 1075 -- From_At_Mod (Flag4-Sem) 1076 -- This flag is set on the attribute definition clause node that is 1077 -- generated by a transformation of an at mod phrase in a record 1078 -- representation clause. This is used to give slightly different (Ada 83 1079 -- compatible) semantics to such a clause, namely it is used to specify a 1080 -- minimum acceptable alignment for the base type and all subtypes. In 1081 -- Ada 95 terms, the actual alignment of the base type and all subtypes 1082 -- must be a multiple of the given value, and the representation clause 1083 -- is considered to be type specific instead of subtype specific. 1084 1085 -- From_Default (Flag6-Sem) 1086 -- This flag is set on the subprogram renaming declaration created in an 1087 -- instance for a formal subprogram, when the formal is declared with a 1088 -- box, and there is no explicit actual. If the flag is present, the 1089 -- declaration is treated as an implicit reference to the formal in the 1090 -- ali file. 1091 1092 -- Generic_Parent (Node5-Sem) 1093 -- Generic_Parent is defined on declaration nodes that are instances. The 1094 -- value of Generic_Parent is the generic entity from which the instance 1095 -- is obtained. Generic_Parent is also defined for the renaming 1096 -- declarations and object declarations created for the actuals in an 1097 -- instantiation. The generic parent of such a declaration is the 1098 -- corresponding generic association in the Instantiation node. 1099 1100 -- Generic_Parent_Type (Node4-Sem) 1101 -- Generic_Parent_Type is defined on Subtype_Declaration nodes for the 1102 -- actuals of formal private and derived types. Within the instance, the 1103 -- operations on the actual are those inherited from the parent. For a 1104 -- formal private type, the parent type is the generic type itself. The 1105 -- Generic_Parent_Type is also used in an instance to determine whether a 1106 -- private operation overrides an inherited one. 1107 1108 -- Handler_List_Entry (Node2-Sem) 1109 -- This field is present in N_Object_Declaration nodes. It is set only 1110 -- for the Handler_Record entry generated for an exception in zero cost 1111 -- exception handling mode. It references the corresponding item in the 1112 -- handler list, and is used to delete this entry if the corresponding 1113 -- handler is deleted during optimization. For further details on why 1114 -- this is required, see Exp_Ch11.Remove_Handler_Entries. 1115 1116 -- Has_Dereference_Action (Flag13-Sem) 1117 -- This flag is present in N_Explicit_Dereference nodes. It is set to 1118 -- indicate that the expansion has aready produced a call to primitive 1119 -- Dereference of a System.Checked_Pools.Checked_Pool implementation. 1120 -- Such dereference actions are produced for debugging purposes. 1121 1122 -- Has_Dynamic_Length_Check (Flag10-Sem) 1123 -- This flag is present in all expression nodes. It is set to indicate 1124 -- that one of the routines in unit Checks has generated a length check 1125 -- action which has been inserted at the flagged node. This is used to 1126 -- avoid the generation of duplicate checks. 1127 1128 -- Has_Dynamic_Range_Check (Flag12-Sem) 1129 -- This flag is present in N_Subtype_Declaration nodes and on all 1130 -- expression nodes. It is set to indicate that one of the routines in 1131 -- unit Checks has generated a range check action which has been inserted 1132 -- at the flagged node. This is used to avoid the generation of duplicate 1133 -- checks. Why does this occur on N_Subtype_Declaration nodes, what does 1134 -- it mean in that context??? 1135 1136 -- Has_Local_Raise (Flag8-Sem) 1137 -- Present in exception handler nodes. Set if the handler can be entered 1138 -- via a local raise that gets transformed to a goto statement. This will 1139 -- always be set if Local_Raise_Statements is non-empty, but can also be 1140 -- set as a result of generation of N_Raise_xxx nodes, or flags set in 1141 -- nodes requiring generation of back end checks. 1142 1143 -- Has_No_Elaboration_Code (Flag17-Sem) 1144 -- A flag that appears in the N_Compilation_Unit node to indicate whether 1145 -- or not elaboration code is present for this unit. It is initially set 1146 -- true for subprogram specs and bodies and for all generic units and 1147 -- false for non-generic package specs and bodies. Gigi may set the flag 1148 -- in the non-generic package case if it determines that no elaboration 1149 -- code is generated. Note that this flag is not related to the 1150 -- Is_Preelaborated status, there can be preelaborated packages that 1151 -- generate elaboration code, and non-preelaborated packages which do 1152 -- not generate elaboration code. 1153 1154 -- Has_Pragma_Suppress_All (Flag14-Sem) 1155 -- This flag is set in an N_Compilation_Unit node if the Suppress_All 1156 -- pragma appears anywhere in the unit. This accommodates the rather 1157 -- strange placement rules of other compilers (DEC permits it at the 1158 -- end of a unit, and Rational allows it as a program unit pragma). We 1159 -- allow it anywhere at all, and consider it equivalent to a pragma 1160 -- Suppress (All_Checks) appearing at the start of the configuration 1161 -- pragmas for the unit. 1162 1163 -- Has_Private_View (Flag11-Sem) 1164 -- A flag present in generic nodes that have an entity, to indicate that 1165 -- the node has a private type. Used to exchange private and full 1166 -- declarations if the visibility at instantiation is different from the 1167 -- visibility at generic definition. 1168 1169 -- Has_Relative_Deadline_Pragma (Flag9-Sem) 1170 -- A flag present in N_Subprogram_Body and N_Task_Definition nodes to 1171 -- flag the presence of a pragma Relative_Deadline. 1172 1173 -- Has_Self_Reference (Flag13-Sem) 1174 -- Present in N_Aggregate and N_Extension_Aggregate. Indicates that one 1175 -- of the expressions contains an access attribute reference to the 1176 -- enclosing type. Such a self-reference can only appear in default- 1177 -- initialized aggregate for a record type. 1178 1179 -- Has_Storage_Size_Pragma (Flag5-Sem) 1180 -- A flag present in an N_Task_Definition node to flag the presence of a 1181 -- Storage_Size pragma. 1182 1183 -- Has_Wide_Character (Flag11-Sem) 1184 -- Present in string literals, set if any wide character (i.e. character 1185 -- code outside the Character range but within Wide_Character range) 1186 -- appears in the string. Used to implement pragma preference rules. 1187 1188 -- Has_Wide_Wide_Character (Flag13-Sem) 1189 -- Present in string literals, set if any wide character (i.e. character 1190 -- code outside the Wide_Character range) appears in the string. Used to 1191 -- implement pragma preference rules. 1192 1193 -- Header_Size_Added (Flag11-Sem) 1194 -- Present in N_Attribute_Reference nodes, set only for attribute 1195 -- Max_Size_In_Storage_Elements. The flag indicates that the size of the 1196 -- hidden list header used by the runtime finalization support has been 1197 -- added to the size of the prefix. The flag also prevents the infinite 1198 -- expansion of the same attribute in the said context. 1199 1200 -- Hidden_By_Use_Clause (Elist4-Sem) 1201 -- An entity list present in use clauses that appear within 1202 -- instantiations. For the resolution of local entities, entities 1203 -- introduced by these use clauses have priority over global ones, and 1204 -- outer entities must be explicitly hidden/restored on exit. 1205 1206 -- Implicit_With (Flag16-Sem) 1207 -- This flag is set in the N_With_Clause node that is implicitly 1208 -- generated for runtime units that are loaded by the expander, and also 1209 -- for package System, if it is loaded implicitly by a use of the 1210 -- 'Address or 'Tag attribute. ???There are other implicit with clauses 1211 -- as well. 1212 1213 -- Implicit_With_From_Instantiation (Flag12-Sem) 1214 -- Set in N_With_Clause nodes from generic instantiations. 1215 1216 -- Import_Interface_Present (Flag16-Sem) 1217 -- This flag is set in an Interface or Import pragma if a matching 1218 -- pragma of the other kind is also present. This is used to avoid 1219 -- generating some unwanted error messages. 1220 1221 -- In_Assertion (Flag4-Sem) 1222 -- This flag is present in N_Function_Call nodes. It is set if the 1223 -- function is called from within an assertion expression. This is 1224 -- used to avoid some bogus warnings about early elaboration. 1225 1226 -- Includes_Infinities (Flag11-Sem) 1227 -- This flag is present in N_Range nodes. It is set for the range of 1228 -- unconstrained float types defined in Standard, which include not only 1229 -- the given range of values, but also legitimately can include infinite 1230 -- values. This flag is false for any float type for which an explicit 1231 -- range is given by the programmer, even if that range is identical to 1232 -- the range for Float. 1233 1234 -- Inherited_Discriminant (Flag13-Sem) 1235 -- This flag is present in N_Component_Association nodes. It indicates 1236 -- that a given component association in an extension aggregate is the 1237 -- value obtained from a constraint on an ancestor. Used to prevent 1238 -- double expansion when the aggregate has expansion delayed. 1239 1240 -- Instance_Spec (Node5-Sem) 1241 -- This field is present in generic instantiation nodes, and also in 1242 -- formal package declaration nodes (formal package declarations are 1243 -- treated in a manner very similar to package instantiations). It points 1244 -- to the node for the spec of the instance, inserted as part of the 1245 -- semantic processing for instantiations in Sem_Ch12. 1246 1247 -- Is_Accessibility_Actual (Flag13-Sem) 1248 -- Present in N_Parameter_Association nodes. True if the parameter is 1249 -- an extra actual that carries the accessibility level of the actual 1250 -- for an access parameter, in a function that dispatches on result and 1251 -- is called in a dispatching context. Used to prevent a formal/actual 1252 -- mismatch when the call is rewritten as a dispatching call. 1253 1254 -- Is_Asynchronous_Call_Block (Flag7-Sem) 1255 -- A flag set in a Block_Statement node to indicate that it is the 1256 -- expansion of an asynchronous entry call. Such a block needs cleanup 1257 -- handler to assure that the call is cancelled. 1258 1259 -- Is_Boolean_Aspect (Flag16-Sem) 1260 -- Present in N_Aspect_Specification node. Set if the aspect is for a 1261 -- boolean aspect (i.e. Aspect_Id is in Boolean_Aspect subtype). 1262 1263 -- Is_Component_Left_Opnd (Flag13-Sem) 1264 -- Is_Component_Right_Opnd (Flag14-Sem) 1265 -- Present in concatenation nodes, to indicate that the corresponding 1266 -- operand is of the component type of the result. Used in resolving 1267 -- concatenation nodes in instances. 1268 1269 -- Is_Delayed_Aspect (Flag14-Sem) 1270 -- Present in N_Pragma and N_Attribute_Definition_Clause nodes which 1271 -- come from aspect specifications, where the evaluation of the aspect 1272 -- must be delayed to the freeze point. This flag is also set True in 1273 -- the corresponding N_Aspect_Specification node. 1274 1275 -- Is_Controlling_Actual (Flag16-Sem) 1276 -- This flag is set on in an expression that is a controlling argument in 1277 -- a dispatching call. It is off in all other cases. See Sem_Disp for 1278 -- details of its use. 1279 1280 -- Is_Dynamic_Coextension (Flag18-Sem) 1281 -- Present in allocator nodes, to indicate that this is an allocator 1282 -- for an access discriminant of a dynamically allocated object. The 1283 -- coextension must be deallocated and finalized at the same time as 1284 -- the enclosing object. 1285 1286 -- Is_Entry_Barrier_Function (Flag8-Sem) 1287 -- This flag is set in an N_Subprogram_Body node which is the expansion 1288 -- of an entry barrier from a protected entry body. It is used for the 1289 -- circuitry checking for incorrect use of Current_Task. 1290 1291 -- Is_Expanded_Build_In_Place_Call (Flag11-Sem) 1292 -- This flag is set in an N_Function_Call node to indicate that the extra 1293 -- actuals to support a build-in-place style of call have been added to 1294 -- the call. 1295 1296 -- Is_Finalization_Wrapper (Flag9-Sem); 1297 -- This flag is present in N_Block_Statement nodes. It is set when the 1298 -- block acts as a wrapper of a handled construct which has controlled 1299 -- objects. The wrapper prevents interference between exception handlers 1300 -- and At_End handlers. 1301 1302 -- Is_In_Discriminant_Check (Flag11-Sem) 1303 -- This flag is present in a selected component, and is used to indicate 1304 -- that the reference occurs within a discriminant check. The 1305 -- significance is that optimizations based on assuming that the 1306 -- discriminant check has a correct value cannot be performed in this 1307 -- case (or the discriminant check may be optimized away!) 1308 1309 -- Is_Machine_Number (Flag11-Sem) 1310 -- This flag is set in an N_Real_Literal node to indicate that the value 1311 -- is a machine number. This avoids some unnecessary cases of converting 1312 -- real literals to machine numbers. 1313 1314 -- Is_Null_Loop (Flag16-Sem) 1315 -- This flag is set in an N_Loop_Statement node if the corresponding loop 1316 -- can be determined to be null at compile time. This is used to remove 1317 -- the loop entirely at expansion time. 1318 1319 -- Is_Overloaded (Flag5-Sem) 1320 -- A flag present in all expression nodes. Used temporarily during 1321 -- overloading determination. The setting of this flag is not relevant 1322 -- once overloading analysis is complete. 1323 1324 -- Is_Power_Of_2_For_Shift (Flag13-Sem) 1325 -- A flag present only in N_Op_Expon nodes. It is set when the 1326 -- exponentiation is of the form 2 ** N, where the type of N is an 1327 -- unsigned integral subtype whose size does not exceed the size of 1328 -- Standard_Integer (i.e. a type that can be safely converted to 1329 -- Natural), and the exponentiation appears as the right operand of an 1330 -- integer multiplication or an integer division where the dividend is 1331 -- unsigned. It is also required that overflow checking is off for both 1332 -- the exponentiation and the multiply/divide node. If this set of 1333 -- conditions holds, and the flag is set, then the division or 1334 -- multiplication can be (and is) converted to a shift. 1335 1336 -- Is_Prefixed_Call (Flag17-Sem) 1337 -- This flag is set in a selected component within a generic unit, if 1338 -- it resolves to a prefixed call to a primitive operation. The flag 1339 -- is used to prevent accidental overloadings in an instance, when a 1340 -- primitive operation and a private record component may be homographs. 1341 1342 -- Is_Protected_Subprogram_Body (Flag7-Sem) 1343 -- A flag set in a Subprogram_Body block to indicate that it is the 1344 -- implementation of a protected subprogram. Such a body needs cleanup 1345 -- handler to make sure that the associated protected object is unlocked 1346 -- when the subprogram completes. 1347 1348 -- Is_Static_Coextension (Flag14-Sem) 1349 -- Present in N_Allocator nodes. Set if the allocator is a coextension 1350 -- of an object allocated on the stack rather than the heap. 1351 1352 -- Is_Static_Expression (Flag6-Sem) 1353 -- Indicates that an expression is a static expression (RM 4.9). See spec 1354 -- of package Sem_Eval for full details on the use of this flag. 1355 1356 -- Is_Subprogram_Descriptor (Flag16-Sem) 1357 -- Present in N_Object_Declaration, and set only for the object 1358 -- declaration generated for a subprogram descriptor in fast exception 1359 -- mode. See Exp_Ch11 for details of use. 1360 1361 -- Is_Task_Allocation_Block (Flag6-Sem) 1362 -- A flag set in a Block_Statement node to indicate that it is the 1363 -- expansion of a task allocator, or the allocator of an object 1364 -- containing tasks. Such a block requires a cleanup handler to call 1365 -- Expunge_Unactivated_Tasks to complete any tasks that have been 1366 -- allocated but not activated when the allocator completes abnormally. 1367 1368 -- Is_Task_Master (Flag5-Sem) 1369 -- A flag set in a Subprogram_Body, Block_Statement or Task_Body node to 1370 -- indicate that the construct is a task master (i.e. has declared tasks 1371 -- or declares an access to a task type). 1372 1373 -- Itype (Node1-Sem) 1374 -- Used in N_Itype_Reference node to reference an itype for which it is 1375 -- important to ensure that it is defined. See description of this node 1376 -- for further details. 1377 1378 -- Kill_Range_Check (Flag11-Sem) 1379 -- Used in an N_Unchecked_Type_Conversion node to indicate that the 1380 -- result should not be subjected to range checks. This is used for the 1381 -- implementation of Normalize_Scalars. 1382 1383 -- Label_Construct (Node2-Sem) 1384 -- Used in an N_Implicit_Label_Declaration node. Refers to an N_Label, 1385 -- N_Block_Statement or N_Loop_Statement node to which the label 1386 -- declaration applies. This is not currently used in the compiler 1387 -- itself, but it is useful in the implementation of ASIS queries. 1388 -- This field is left empty for the special labels generated as part 1389 -- of expanding raise statements with a local exception handler. 1390 1391 -- Library_Unit (Node4-Sem) 1392 -- In a stub node, Library_Unit points to the compilation unit node of 1393 -- the corresponding subunit. 1394 -- 1395 -- In a with clause node, Library_Unit points to the spec of the with'ed 1396 -- unit. 1397 -- 1398 -- In a compilation unit node, the usage depends on the unit type: 1399 -- 1400 -- For a library unit body, Library_Unit points to the compilation unit 1401 -- node of the corresponding spec, unless it's a subprogram body with 1402 -- Acts_As_Spec set, in which case it points to itself. 1403 -- 1404 -- For a spec, Library_Unit points to the compilation unit node of the 1405 -- corresponding body, if present. The body will be present if the spec 1406 -- is or contains generics that we needed to instantiate. Similarly, the 1407 -- body will be present if we needed it for inlining purposes. Thus, if 1408 -- we have a spec/body pair, both of which are present, they point to 1409 -- each other via Library_Unit. 1410 -- 1411 -- For a subunit, Library_Unit points to the compilation unit node of 1412 -- the parent body. 1413 -- 1414 -- Note that this field is not used to hold the parent pointer for child 1415 -- unit (which might in any case need to use it for some other purpose as 1416 -- described above). Instead for a child unit, implicit with's are 1417 -- generated for all parents. 1418 1419 -- Local_Raise_Statements (Elist1) 1420 -- This field is present in exception handler nodes. It is set to 1421 -- No_Elist in the normal case. If there is at least one raise statement 1422 -- which can potentially be handled as a local raise, then this field 1423 -- points to a list of raise nodes, which are calls to a routine to raise 1424 -- an exception. These are raise nodes which can be optimized into gotos 1425 -- if the handler turns out to meet the conditions which permit this 1426 -- transformation. Note that this does NOT include instances of the 1427 -- N_Raise_xxx_Error nodes since the transformation of these nodes is 1428 -- handled by the back end (using the N_Push/N_Pop mechanism). 1429 1430 -- Loop_Actions (List2-Sem) 1431 -- A list present in Component_Association nodes in array aggregates. 1432 -- Used to collect actions that must be executed within the loop because 1433 -- they may need to be evaluated anew each time through. 1434 1435 -- Limited_View_Installed (Flag18-Sem) 1436 -- Present in With_Clauses and in package specifications. If set on 1437 -- with_clause, it indicates that this clause has created the current 1438 -- limited view of the designated package. On a package specification, it 1439 -- indicates that the limited view has already been created because the 1440 -- package is mentioned in a limited_with_clause in the closure of the 1441 -- unit being compiled. 1442 1443 -- Local_Raise_Not_OK (Flag7-Sem) 1444 -- Present in N_Exception_Handler nodes. Set if the handler contains 1445 -- a construct (reraise statement, or call to subprogram in package 1446 -- GNAT.Current_Exception) that makes the handler unsuitable as a target 1447 -- for a local raise (one that could otherwise be converted to a goto). 1448 1449 -- Must_Be_Byte_Aligned (Flag14-Sem) 1450 -- This flag is present in N_Attribute_Reference nodes. It can be set 1451 -- only for the Address and Unrestricted_Access attributes. If set it 1452 -- means that the object for which the address/access is given must be on 1453 -- a byte (more accurately a storage unit) boundary. If necessary, a copy 1454 -- of the object is to be made before taking the address (this copy is in 1455 -- the current scope on the stack frame). This is used for certain cases 1456 -- of code generated by the expander that passes parameters by address. 1457 -- 1458 -- The reason the copy is not made by the front end is that the back end 1459 -- has more information about type layout and may be able to (but is not 1460 -- guaranteed to) prevent making unnecessary copies. 1461 1462 -- Must_Not_Freeze (Flag8-Sem) 1463 -- A flag present in all expression nodes. Normally expressions cause 1464 -- freezing as described in the RM. If this flag is set, then this is 1465 -- inhibited. This is used by the analyzer and expander to label nodes 1466 -- that are created by semantic analysis or expansion and which must not 1467 -- cause freezing even though they normally would. This flag is also 1468 -- present in an N_Subtype_Indication node, since we also use these in 1469 -- calls to Freeze_Expression. 1470 1471 -- Next_Entity (Node2-Sem) 1472 -- Present in defining identifiers, defining character literals and 1473 -- defining operator symbols (i.e. in all entities). The entities of a 1474 -- scope are chained, and this field is used as the forward pointer for 1475 -- this list. See Einfo for further details. 1476 1477 -- Next_Exit_Statement (Node3-Sem) 1478 -- Present in N_Exit_Statement nodes. The exit statements for a loop are 1479 -- chained (in reverse order of appearance) from the First_Exit_Statement 1480 -- field of the E_Loop entity for the loop. Next_Exit_Statement points to 1481 -- the next entry on this chain (Empty = end of list). 1482 1483 -- Next_Implicit_With (Node3-Sem) 1484 -- Present in N_With_Clause. Part of a chain of with_clauses generated 1485 -- in rtsfind to indicate implicit dependencies on predefined units. Used 1486 -- to prevent multiple with_clauses for the same unit in a given context. 1487 -- A postorder traversal of the tree whose nodes are units and whose 1488 -- links are with_clauses defines the order in which Inspector must 1489 -- examine a compiled unit and its full context. This ordering ensures 1490 -- that any subprogram call is examined after the subprogram declaration 1491 -- has been seen. 1492 1493 -- Next_Named_Actual (Node4-Sem) 1494 -- Present in parameter association node. Set during semantic analysis to 1495 -- point to the next named parameter, where parameters are ordered by 1496 -- declaration order (as opposed to the actual order in the call, which 1497 -- may be different due to named associations). Not that this field 1498 -- points to the explicit actual parameter itself, not to the 1499 -- N_Parameter_Association node (its parent). 1500 1501 -- Next_Pragma (Node1-Sem) 1502 -- Present in N_Pragma nodes. Used to create a linked list of pragma 1503 -- nodes. Currently used for two purposes: 1504 -- 1505 -- Create a list of linked Check_Policy pragmas. The head of this list 1506 -- is stored in Opt.Check_Policy_List (which has further details). 1507 -- 1508 -- Used by processing for Pre/Postcondition pragmas to store a list of 1509 -- pragmas associated with the spec of a subprogram (see Sem_Prag for 1510 -- details). 1511 1512 -- Next_Rep_Item (Node5-Sem) 1513 -- Present in pragma nodes, attribute definition nodes, enumeration rep 1514 -- clauses, record rep clauses, aspect specification nodes. Used to link 1515 -- representation items that apply to an entity. See full description of 1516 -- First_Rep_Item field in Einfo for further details. 1517 1518 -- Next_Use_Clause (Node3-Sem) 1519 -- While use clauses are active during semantic processing, they are 1520 -- chained from the scope stack entry, using Next_Use_Clause as a link 1521 -- pointer, with Empty marking the end of the list. The head pointer is 1522 -- in the scope stack entry (First_Use_Clause). At the end of semantic 1523 -- processing (i.e. when Gigi sees the tree, the contents of this field 1524 -- is undefined and should not be read). 1525 1526 -- No_Ctrl_Actions (Flag7-Sem) 1527 -- Present in N_Assignment_Statement to indicate that no finalize nor 1528 -- adjust should take place on this assignment even though the rhs is 1529 -- controlled. This is used in init procs and aggregate expansions where 1530 -- the generated assignments are more initialisations than real 1531 -- assignments. 1532 1533 -- No_Elaboration_Check (Flag14-Sem) 1534 -- Present in N_Function_Call and N_Procedure_Call_Statement. Indicates 1535 -- that no elaboration check is needed on the call, because it appears in 1536 -- the context of a local Suppress pragma. This is used on calls within 1537 -- task bodies, where the actual elaboration checks are applied after 1538 -- analysis, when the local scope stack is not present. 1539 1540 -- No_Entities_Ref_In_Spec (Flag8-Sem) 1541 -- Present in N_With_Clause nodes. Set if the with clause is on the 1542 -- package or subprogram spec where the main unit is the corresponding 1543 -- body, and no entities of the with'ed unit are referenced by the spec 1544 -- (an entity may still be referenced in the body, so this flag is used 1545 -- to generate the proper message (see Sem_Util.Check_Unused_Withs for 1546 -- full details) 1547 1548 -- No_Initialization (Flag13-Sem) 1549 -- Present in N_Object_Declaration and N_Allocator to indicate that the 1550 -- object must not be initialized (by Initialize or call to an init 1551 -- proc). This is needed for controlled aggregates. When the Object 1552 -- declaration has an expression, this flag means that this expression 1553 -- should not be taken into account (needed for in place initialization 1554 -- with aggregates, and for object with an address clause, which are 1555 -- initialized with an assignment at freeze time). 1556 1557 -- No_Minimize_Eliminate (Flag17-Sem) 1558 -- This flag is present in membership operator nodes (N_In/N_Not_In). 1559 -- It is used to indicate that processing for extended overflow checking 1560 -- modes is not required (this is used to prevent infinite recursion). 1561 1562 -- No_Truncation (Flag17-Sem) 1563 -- Present in N_Unchecked_Type_Conversion node. This flag has an effect 1564 -- only if the RM_Size of the source is greater than the RM_Size of the 1565 -- target for scalar operands. Normally in such a case we truncate some 1566 -- higher order bits of the source, and then sign/zero extend the result 1567 -- to form the output value. But if this flag is set, then we do not do 1568 -- any truncation, so for example, if an 8 bit input is converted to 5 1569 -- bit result which is in fact stored in 8 bits, then the high order 1570 -- three bits of the target result will be copied from the source. This 1571 -- is used for properly setting out of range values for use by pragmas 1572 -- Initialize_Scalars and Normalize_Scalars. 1573 1574 -- Original_Discriminant (Node2-Sem) 1575 -- Present in identifiers. Used in references to discriminants that 1576 -- appear in generic units. Because the names of the discriminants may be 1577 -- different in an instance, we use this field to recover the position of 1578 -- the discriminant in the original type, and replace it with the 1579 -- discriminant at the same position in the instantiated type. 1580 1581 -- Original_Entity (Node2-Sem) 1582 -- Present in numeric literals. Used to denote the named number that has 1583 -- been constant-folded into the given literal. If literal is from 1584 -- source, or the result of some other constant-folding operation, then 1585 -- Original_Entity is empty. This field is needed to handle properly 1586 -- named numbers in generic units, where the Associated_Node field 1587 -- interferes with the Entity field, making it impossible to preserve the 1588 -- original entity at the point of instantiation (ASIS problem). 1589 1590 -- Others_Discrete_Choices (List1-Sem) 1591 -- When a case statement or variant is analyzed, the semantic checks 1592 -- determine the actual list of choices that correspond to an others 1593 -- choice. This list is materialized for later use by the expander and 1594 -- the Others_Discrete_Choices field of an N_Others_Choice node points to 1595 -- this materialized list of choices, which is in standard format for a 1596 -- list of discrete choices, except that of course it cannot contain an 1597 -- N_Others_Choice entry. 1598 1599 -- Parameter_List_Truncated (Flag17-Sem) 1600 -- Present in N_Function_Call and N_Procedure_Call_Statement nodes. Set 1601 -- (for OpenVMS ports of GNAT only) if the parameter list is truncated as 1602 -- a result of a First_Optional_Parameter specification in an 1603 -- Import_Function, Import_Procedure, or Import_Valued_Procedure pragma. 1604 -- The truncation is done by the expander by removing trailing parameters 1605 -- from the argument list, in accordance with the set of rules allowing 1606 -- such parameter removal. In particular, parameters can be removed 1607 -- working from the end of the parameter list backwards up to and 1608 -- including the entry designated by First_Optional_Parameter in the 1609 -- Import pragma. Parameters can be removed if they are implicit and the 1610 -- default value is a known-at-compile-time value, including the use of 1611 -- the Null_Parameter attribute, or if explicit parameter values are 1612 -- present that match the corresponding defaults. 1613 1614 -- Parent_Spec (Node4-Sem) 1615 -- For a library unit that is a child unit spec (package or subprogram 1616 -- declaration, generic declaration or instantiation, or library level 1617 -- rename, this field points to the compilation unit node for the parent 1618 -- package specification. This field is Empty for library bodies (the 1619 -- parent spec in this case can be found from the corresponding spec). 1620 1621 -- Premature_Use (Node5-Sem) 1622 -- Present in N_Incomplete_Type_Declaration node. Used for improved 1623 -- error diagnostics: if there is a premature usage of an incomplete 1624 -- type, a subsequently generated error message indicates the position 1625 -- of its full declaration. 1626 1627 -- Present_Expr (Uint3-Sem) 1628 -- Present in an N_Variant node. This has a meaningful value only after 1629 -- Gigi has back annotated the tree with representation information. At 1630 -- this point, it contains a reference to a gcc expression that depends 1631 -- on the values of one or more discriminants. Give a set of discriminant 1632 -- values, this expression evaluates to False (zero) if variant is not 1633 -- present, and True (non-zero) if it is present. See unit Repinfo for 1634 -- further details on gigi back annotation. This field is used during 1635 -- ASIS processing (data decomposition annex) to determine if a field is 1636 -- present or not. 1637 1638 -- Print_In_Hex (Flag13-Sem) 1639 -- Set on an N_Integer_Literal node to indicate that the value should be 1640 -- printed in hexadecimal in the sprint listing. Has no effect on 1641 -- legality or semantics of program, only on the displayed output. This 1642 -- is used to clarify output from the packed array cases. 1643 1644 -- Procedure_To_Call (Node2-Sem) 1645 -- Present in N_Allocator, N_Free_Statement, N_Simple_Return_Statement, 1646 -- and N_Extended_Return_Statement nodes. References the entity for the 1647 -- declaration of the procedure to be called to accomplish the required 1648 -- operation (i.e. for the Allocate procedure in the case of N_Allocator 1649 -- and N_Simple_Return_Statement and N_Extended_Return_Statement (for 1650 -- allocating the return value), and for the Deallocate procedure in the 1651 -- case of N_Free_Statement. 1652 1653 -- Raises_Constraint_Error (Flag7-Sem) 1654 -- Set on an expression whose evaluation will definitely fail constraint 1655 -- error check. In the case of static expressions, this flag must be set 1656 -- accurately (and if it is set, the expression is typically illegal 1657 -- unless it appears as a non-elaborated branch of a short-circuit form). 1658 -- For a non-static expression, this flag may be set whenever an 1659 -- expression (e.g. an aggregate) is known to raise constraint error. If 1660 -- set, the expression definitely will raise CE if elaborated at runtime. 1661 -- If not set, the expression may or may not raise CE. In other words, on 1662 -- static expressions, the flag is set accurately, on non-static 1663 -- expressions it is set conservatively. 1664 1665 -- Redundant_Use (Flag13-Sem) 1666 -- Present in nodes that can appear as an operand in a use clause or use 1667 -- type clause (identifiers, expanded names, attribute references). Set 1668 -- to indicate that a use is redundant (and therefore need not be undone 1669 -- on scope exit). 1670 1671 -- Renaming_Exception (Node2-Sem) 1672 -- Present in N_Exception_Declaration node. Used to point back to the 1673 -- exception renaming for an exception declared within a subprogram. 1674 -- What happens is that an exception declared in a subprogram is moved 1675 -- to the library level with a unique name, and the original exception 1676 -- becomes a renaming. This link from the library level exception to the 1677 -- renaming declaration allows registering of the proper exception name. 1678 1679 -- Return_Statement_Entity (Node5-Sem) 1680 -- Present in N_Simple_Return_Statement and N_Extended_Return_Statement. 1681 -- Points to an E_Return_Statement representing the return statement. 1682 1683 -- Return_Object_Declarations (List3) 1684 -- Present in N_Extended_Return_Statement. Points to a list initially 1685 -- containing a single N_Object_Declaration representing the return 1686 -- object. We use a list (instead of just a pointer to the object decl) 1687 -- because Analyze wants to insert extra actions on this list. 1688 1689 -- Rounded_Result (Flag18-Sem) 1690 -- Present in N_Type_Conversion, N_Op_Divide and N_Op_Multiply nodes. 1691 -- Used in the fixed-point cases to indicate that the result must be 1692 -- rounded as a result of the use of the 'Round attribute. Also used for 1693 -- integer N_Op_Divide nodes to indicate that the result should be 1694 -- rounded to the nearest integer (breaking ties away from zero), rather 1695 -- than truncated towards zero as usual. These rounded integer operations 1696 -- are the result of expansion of rounded fixed-point divide, conversion 1697 -- and multiplication operations. 1698 1699 -- SCIL_Entity (Node4-Sem) 1700 -- Present in SCIL nodes. Used to reference the tagged type associated 1701 -- with the SCIL node. 1702 1703 -- SCIL_Controlling_Tag (Node5-Sem) 1704 -- Present in N_SCIL_Dispatching_Call nodes. Used to reference the 1705 -- controlling tag of a dispatching call. 1706 1707 -- SCIL_Tag_Value (Node5-Sem) 1708 -- Present in N_SCIL_Membership_Test nodes. Used to reference the tag 1709 -- value that is being tested. 1710 1711 -- SCIL_Target_Prim (Node2-Sem) 1712 -- Present in N_SCIL_Dispatching_Call nodes. Used to reference the tagged 1713 -- type primitive associated with the SCIL node. 1714 1715 -- Scope (Node3-Sem) 1716 -- Present in defining identifiers, defining character literals and 1717 -- defining operator symbols (i.e. in all entities). The entities of a 1718 -- scope all use this field to reference the corresponding scope entity. 1719 -- See Einfo for further details. 1720 1721 -- Shift_Count_OK (Flag4-Sem) 1722 -- A flag present in shift nodes to indicate that the shift count is 1723 -- known to be in range, i.e. is in the range from zero to word length 1724 -- minus one. If this flag is not set, then the shift count may be 1725 -- outside this range, i.e. larger than the word length, and the code 1726 -- must ensure that such shift counts give the appropriate result. 1727 1728 -- Source_Type (Node1-Sem) 1729 -- Used in an N_Validate_Unchecked_Conversion node to point to the 1730 -- source type entity for the unchecked conversion instantiation 1731 -- which gigi must do size validation for. 1732 1733 -- Split_PPC (Flag17) 1734 -- When a Pre or Post aspect specification is processed, it is broken 1735 -- into AND THEN sections. The left most section has Split_PPC set to 1736 -- False, indicating that it is the original specification (e.g. for 1737 -- posting errors). For other sections, Split_PPC is set to True. 1738 -- This flag is set in both the N_Aspect_Specification node itself, 1739 -- and in the pragma which is generated from this node. 1740 1741 -- Storage_Pool (Node1-Sem) 1742 -- Present in N_Allocator, N_Free_Statement, N_Simple_Return_Statement, 1743 -- and N_Extended_Return_Statement nodes. References the entity for the 1744 -- storage pool to be used for the allocate or free call or for the 1745 -- allocation of the returned value from function. Empty indicates that 1746 -- the global default pool is to be used. Note that in the case 1747 -- of a return statement, this field is set only if the function returns 1748 -- value of a type whose size is not known at compile time on the 1749 -- secondary stack. 1750 1751 -- Suppress_Assignment_Checks (Flag18-Sem) 1752 -- Used in generated N_Assignment_Statement nodes to suppress predicate 1753 -- and range checks in cases where the generated code knows that the 1754 -- value being assigned is in range and satisfies any predicate. Also 1755 -- can be set in N_Object_Declaration nodes, to similarly suppress any 1756 -- checks on the initializing value. 1757 1758 -- Suppress_Loop_Warnings (Flag17-Sem) 1759 -- Used in N_Loop_Statement node to indicate that warnings within the 1760 -- body of the loop should be suppressed. This is set when the range 1761 -- of a FOR loop is known to be null, or is probably null (loop would 1762 -- only execute if invalid values are present). 1763 1764 -- Target_Type (Node2-Sem) 1765 -- Used in an N_Validate_Unchecked_Conversion node to point to the target 1766 -- type entity for the unchecked conversion instantiation which gigi must 1767 -- do size validation for. 1768 1769 -- Then_Actions (List3-Sem) 1770 -- This field is present in if expression nodes. During code expansion 1771 -- we use the Insert_Actions procedure (in Exp_Util) to insert actions 1772 -- at an appropriate place in the tree to get elaborated at the right 1773 -- time. For if expressions, we have to be sure that the actions for 1774 -- for the Then branch are only elaborated if the condition is True. 1775 -- The Then_Actions field is used as a temporary parking place for 1776 -- these actions. The final tree is always rewritten to eliminate the 1777 -- need for this field, so in the tree passed to Gigi, this field is 1778 -- always set to No_List. 1779 1780 -- Treat_Fixed_As_Integer (Flag14-Sem) 1781 -- This flag appears in operator nodes for divide, multiply, mod and rem 1782 -- on fixed-point operands. It indicates that the operands are to be 1783 -- treated as integer values, ignoring small values. This flag is only 1784 -- set as a result of expansion of fixed-point operations. Typically a 1785 -- fixed-point multiplication in the source generates subsidiary 1786 -- multiplication and division operations that work with the underlying 1787 -- integer values and have this flag set. Note that this flag is not 1788 -- needed on other arithmetic operations (add, neg, subtract etc.) since 1789 -- in these cases it is always the case that fixed is treated as integer. 1790 -- The Etype field MUST be set if this flag is set. The analyzer knows to 1791 -- leave such nodes alone, and whoever makes them must set the correct 1792 -- Etype value. 1793 1794 -- TSS_Elist (Elist3-Sem) 1795 -- Present in N_Freeze_Entity nodes. Holds an element list containing 1796 -- entries for each TSS (type support subprogram) associated with the 1797 -- frozen type. The elements of the list are the entities for the 1798 -- subprograms (see package Exp_TSS for further details). Set to No_Elist 1799 -- if there are no type support subprograms for the type or if the freeze 1800 -- node is not for a type. 1801 1802 -- Unreferenced_In_Spec (Flag7-Sem) 1803 -- Present in N_With_Clause nodes. Set if the with clause is on the 1804 -- package or subprogram spec where the main unit is the corresponding 1805 -- body, and is not referenced by the spec (it may still be referenced by 1806 -- the body, so this flag is used to generate the proper message (see 1807 -- Sem_Util.Check_Unused_Withs for details) 1808 1809 -- Used_Operations (Elist5-Sem) 1810 -- Present in N_Use_Type_Clause nodes. Holds the list of operations that 1811 -- are made potentially use-visible by the clause. Simplifies processing 1812 -- on exit from the scope of the use_type_clause, in particular in the 1813 -- case of Use_All_Type, when those operations several scopes. 1814 1815 -- Was_Originally_Stub (Flag13-Sem) 1816 -- This flag is set in the node for a proper body that replaces stub. 1817 -- During the analysis procedure, stubs in some situations get rewritten 1818 -- by the corresponding bodies, and we set this flag to remember that 1819 -- this happened. Note that it is not good enough to rely on the use of 1820 -- Original_Node here because of the case of nested instantiations where 1821 -- the substituted node can be copied. 1822 1823 -- Withed_Body (Node1-Sem) 1824 -- Present in N_With_Clause nodes. Set if the unit in whose context 1825 -- the with_clause appears instantiates a generic contained in the 1826 -- library unit of the with_clause and as a result loads its body. 1827 -- Used for a more precise unit traversal for CodePeer. 1828 1829 -------------------------------------------------- 1830 -- Note on Use of End_Label and End_Span Fields -- 1831 -------------------------------------------------- 1832 1833 -- Several constructs have end lines: 1834 1835 -- Loop Statement end loop [loop_IDENTIFIER]; 1836 -- Package Specification end [[PARENT_UNIT_NAME .] IDENTIFIER] 1837 -- Task Definition end [task_IDENTIFIER] 1838 -- Protected Definition end [protected_IDENTIFIER] 1839 -- Protected Body end [protected_IDENTIFIER] 1840 1841 -- Block Statement end [block_IDENTIFIER]; 1842 -- Subprogram Body end [DESIGNATOR]; 1843 -- Package Body end [[PARENT_UNIT_NAME .] IDENTIFIER]; 1844 -- Task Body end [task_IDENTIFIER]; 1845 -- Accept Statement end [entry_IDENTIFIER]]; 1846 -- Entry Body end [entry_IDENTIFIER]; 1847 1848 -- If Statement end if; 1849 -- Case Statement end case; 1850 1851 -- Record Definition end record; 1852 -- Enumeration Definition ); 1853 1854 -- The End_Label and End_Span fields are used to mark the locations of 1855 -- these lines, and also keep track of the label in the case where a label 1856 -- is present. 1857 1858 -- For the first group above, the End_Label field of the corresponding node 1859 -- is used to point to the label identifier. In the case where there is no 1860 -- label in the source, the parser supplies a dummy identifier (with 1861 -- Comes_From_Source set to False), and the Sloc of this dummy identifier 1862 -- marks the location of the token following the END token. 1863 1864 -- For the second group, the use of End_Label is similar, but the End_Label 1865 -- is found in the N_Handled_Sequence_Of_Statements node. This is done 1866 -- simply because in some cases there is no room in the parent node. 1867 1868 -- For the third group, there is never any label, and instead of using 1869 -- End_Label, we use the End_Span field which gives the location of the 1870 -- token following END, relative to the starting Sloc of the construct, 1871 -- i.e. add Sloc (Node) + End_Span (Node) to get the Sloc of the IF or CASE 1872 -- following the End_Label. 1873 1874 -- The record definition case is handled specially, we treat it as though 1875 -- it required an optional label which is never present, and so the parser 1876 -- always builds a dummy identifier with Comes From Source set False. The 1877 -- reason we do this, rather than using End_Span in this case, is that we 1878 -- want to generate a cross-ref entry for the end of a record, since it 1879 -- represents a scope for name declaration purposes. 1880 1881 -- The enumeration definition case is handled in an exactly similar manner, 1882 -- building a dummy identifier to get a cross-reference. 1883 1884 -- Note: the reason we store the difference as a Uint, instead of storing 1885 -- the Source_Ptr value directly, is that Source_Ptr values cannot be 1886 -- distinguished from other types of values, and we count on all general 1887 -- use fields being self describing. To make things easier for clients, 1888 -- note that we provide function End_Location, and procedure 1889 -- Set_End_Location to allow access to the logical value (which is the 1890 -- Source_Ptr value for the end token). 1891 1892 --------------------- 1893 -- Syntactic Nodes -- 1894 --------------------- 1895 1896 --------------------- 1897 -- 2.3 Identifier -- 1898 --------------------- 1899 1900 -- IDENTIFIER ::= IDENTIFIER_LETTER {[UNDERLINE] LETTER_OR_DIGIT} 1901 -- LETTER_OR_DIGIT ::= IDENTIFIER_LETTER | DIGIT 1902 1903 -- An IDENTIFIER shall not be a reserved word 1904 1905 -- In the Ada grammar identifiers are the bottom level tokens which have 1906 -- very few semantics. Actual program identifiers are direct names. If 1907 -- we were being 100% honest with the grammar, then we would have a node 1908 -- called N_Direct_Name which would point to an identifier. However, 1909 -- that's too many extra nodes, so we just use the N_Identifier node 1910 -- directly as a direct name, and it contains the expression fields and 1911 -- Entity field that correspond to its use as a direct name. In those 1912 -- few cases where identifiers appear in contexts where they are not 1913 -- direct names (pragmas, pragma argument associations, attribute 1914 -- references and attribute definition clauses), the Chars field of the 1915 -- node contains the Name_Id for the identifier name. 1916 1917 -- Note: in GNAT, a reserved word can be treated as an identifier in two 1918 -- cases. First, an incorrect use of a reserved word as an identifier is 1919 -- diagnosed and then treated as a normal identifier. Second, an 1920 -- attribute designator of the form of a reserved word (access, delta, 1921 -- digits, range) is treated as an identifier. 1922 1923 -- Note: The set of letters that is permitted in an identifier depends 1924 -- on the character set in use. See package Csets for full details. 1925 1926 -- N_Identifier 1927 -- Sloc points to identifier 1928 -- Chars (Name1) contains the Name_Id for the identifier 1929 -- Entity (Node4-Sem) 1930 -- Associated_Node (Node4-Sem) 1931 -- Original_Discriminant (Node2-Sem) 1932 -- Redundant_Use (Flag13-Sem) 1933 -- Atomic_Sync_Required (Flag14-Sem) 1934 -- Has_Private_View (Flag11-Sem) (set in generic units) 1935 -- plus fields for expression 1936 1937 -------------------------- 1938 -- 2.4 Numeric Literal -- 1939 -------------------------- 1940 1941 -- NUMERIC_LITERAL ::= DECIMAL_LITERAL | BASED_LITERAL 1942 1943 ---------------------------- 1944 -- 2.4.1 Decimal Literal -- 1945 ---------------------------- 1946 1947 -- DECIMAL_LITERAL ::= NUMERAL [.NUMERAL] [EXPONENT] 1948 1949 -- NUMERAL ::= DIGIT {[UNDERLINE] DIGIT} 1950 1951 -- EXPONENT ::= E [+] NUMERAL | E - NUMERAL 1952 1953 -- Decimal literals appear in the tree as either integer literal nodes 1954 -- or real literal nodes, depending on whether a period is present. 1955 1956 -- Note: literal nodes appear as a result of direct use of literals 1957 -- in the source program, and also as the result of evaluating 1958 -- expressions at compile time. In the latter case, it is possible 1959 -- to construct real literals that have no syntactic representation 1960 -- using the standard literal format. Such literals are listed by 1961 -- Sprint using the notation [numerator / denominator]. 1962 1963 -- Note: the value of an integer literal node created by the front end 1964 -- is never outside the range of values of the base type. However, it 1965 -- can be the case that the created value is outside the range of the 1966 -- particular subtype. This happens in the case of integer overflows 1967 -- with checks suppressed. 1968 1969 -- N_Integer_Literal 1970 -- Sloc points to literal 1971 -- Original_Entity (Node2-Sem) If not Empty, holds Named_Number that 1972 -- has been constant-folded into its literal value. 1973 -- Intval (Uint3) contains integer value of literal 1974 -- plus fields for expression 1975 -- Print_In_Hex (Flag13-Sem) 1976 1977 -- N_Real_Literal 1978 -- Sloc points to literal 1979 -- Original_Entity (Node2-Sem) If not Empty, holds Named_Number that 1980 -- has been constant-folded into its literal value. 1981 -- Realval (Ureal3) contains real value of literal 1982 -- Corresponding_Integer_Value (Uint4-Sem) 1983 -- Is_Machine_Number (Flag11-Sem) 1984 -- plus fields for expression 1985 1986 -------------------------- 1987 -- 2.4.2 Based Literal -- 1988 -------------------------- 1989 1990 -- BASED_LITERAL ::= 1991 -- BASE # BASED_NUMERAL [.BASED_NUMERAL] # [EXPONENT] 1992 1993 -- BASE ::= NUMERAL 1994 1995 -- BASED_NUMERAL ::= 1996 -- EXTENDED_DIGIT {[UNDERLINE] EXTENDED_DIGIT} 1997 1998 -- EXTENDED_DIGIT ::= DIGIT | A | B | C | D | E | F 1999 2000 -- Based literals appear in the tree as either integer literal nodes 2001 -- or real literal nodes, depending on whether a period is present. 2002 2003 ---------------------------- 2004 -- 2.5 Character Literal -- 2005 ---------------------------- 2006 2007 -- CHARACTER_LITERAL ::= ' GRAPHIC_CHARACTER ' 2008 2009 -- N_Character_Literal 2010 -- Sloc points to literal 2011 -- Chars (Name1) contains the Name_Id for the identifier 2012 -- Char_Literal_Value (Uint2) contains the literal value 2013 -- Entity (Node4-Sem) 2014 -- Associated_Node (Node4-Sem) 2015 -- Has_Private_View (Flag11-Sem) set in generic units. 2016 -- plus fields for expression 2017 2018 -- Note: the Entity field will be missing (set to Empty) for character 2019 -- literals whose type is Standard.Wide_Character or Standard.Character 2020 -- or a type derived from one of these two. In this case the character 2021 -- literal stands for its own coding. The reason we take this irregular 2022 -- short cut is to avoid the need to build lots of junk defining 2023 -- character literal nodes. 2024 2025 ------------------------- 2026 -- 2.6 String Literal -- 2027 ------------------------- 2028 2029 -- STRING LITERAL ::= "{STRING_ELEMENT}" 2030 2031 -- A STRING_ELEMENT is either a pair of quotation marks ("), or a 2032 -- single GRAPHIC_CHARACTER other than a quotation mark. 2033 -- 2034 -- Is_Folded_In_Parser is True if the parser created this literal by 2035 -- folding a sequence of "&" operators. For example, if the source code 2036 -- says "aaa" & "bbb" & "ccc", and this produces "aaabbbccc", the flag 2037 -- is set. This flag is needed because the parser doesn't know about 2038 -- visibility, so the folded result might be wrong, and semantic 2039 -- analysis needs to check for that. 2040 2041 -- N_String_Literal 2042 -- Sloc points to literal 2043 -- Strval (Str3) contains Id of string value 2044 -- Has_Wide_Character (Flag11-Sem) 2045 -- Has_Wide_Wide_Character (Flag13-Sem) 2046 -- Is_Folded_In_Parser (Flag4) 2047 -- plus fields for expression 2048 2049 ------------------ 2050 -- 2.7 Comment -- 2051 ------------------ 2052 2053 -- A COMMENT starts with two adjacent hyphens and extends up to the 2054 -- end of the line. A COMMENT may appear on any line of a program. 2055 2056 -- Comments are skipped by the scanner and do not appear in the tree. 2057 -- It is possible to reconstruct the position of comments with respect 2058 -- to the elements of the tree by using the source position (Sloc) 2059 -- pointers that appear in every tree node. 2060 2061 ----------------- 2062 -- 2.8 Pragma -- 2063 ----------------- 2064 2065 -- PRAGMA ::= pragma IDENTIFIER 2066 -- [(PRAGMA_ARGUMENT_ASSOCIATION {, PRAGMA_ARGUMENT_ASSOCIATION})]; 2067 2068 -- Note that a pragma may appear in the tree anywhere a declaration 2069 -- or a statement may appear, as well as in some other situations 2070 -- which are explicitly documented. 2071 2072 -- N_Pragma 2073 -- Sloc points to PRAGMA 2074 -- Next_Pragma (Node1-Sem) 2075 -- Pragma_Argument_Associations (List2) (set to No_List if none) 2076 -- Corresponding_Aspect (Node3-Sem) (set to Empty if not present) 2077 -- Pragma_Identifier (Node4) 2078 -- Next_Rep_Item (Node5-Sem) 2079 -- From_Aspect_Specification (Flag13-Sem) 2080 -- Is_Delayed_Aspect (Flag14-Sem) 2081 -- Import_Interface_Present (Flag16-Sem) 2082 -- Split_PPC (Flag17) set if corresponding aspect had Split_PPC set 2083 -- Class_Present (Flag6) set if from Aspect with 'Class 2084 2085 -- Note: we should have a section on what pragmas are passed on to 2086 -- the back end to be processed. This section should note that pragma 2087 -- Psect_Object is always converted to Common_Object, but there are 2088 -- undoubtedly many other similar notes required ??? 2089 2090 -- Note: a utility function Pragma_Name may be applied to pragma nodes 2091 -- to conveniently obtain the Chars field of the Pragma_Identifier. 2092 2093 -- Note: if From_Aspect_Specification is set, then Sloc points to the 2094 -- aspect name, as does the Pragma_Identifier. In this case if the 2095 -- pragma has a local name argument (such as pragma Inline), it is 2096 -- resolved to point to the specific entity affected by the pragma. 2097 2098 -------------------------------------- 2099 -- 2.8 Pragma Argument Association -- 2100 -------------------------------------- 2101 2102 -- PRAGMA_ARGUMENT_ASSOCIATION ::= 2103 -- [pragma_argument_IDENTIFIER =>] NAME 2104 -- | [pragma_argument_IDENTIFIER =>] EXPRESSION 2105 2106 -- N_Pragma_Argument_Association 2107 -- Sloc points to first token in association 2108 -- Chars (Name1) (set to No_Name if no pragma argument identifier) 2109 -- Expression (Node3) 2110 2111 ------------------------ 2112 -- 2.9 Reserved Word -- 2113 ------------------------ 2114 2115 -- Reserved words are parsed by the scanner, and returned as the 2116 -- corresponding token types (e.g. PACKAGE is returned as Tok_Package) 2117 2118 ---------------------------- 2119 -- 3.1 Basic Declaration -- 2120 ---------------------------- 2121 2122 -- BASIC_DECLARATION ::= 2123 -- TYPE_DECLARATION | SUBTYPE_DECLARATION 2124 -- | OBJECT_DECLARATION | NUMBER_DECLARATION 2125 -- | SUBPROGRAM_DECLARATION | ABSTRACT_SUBPROGRAM_DECLARATION 2126 -- | PACKAGE_DECLARATION | RENAMING_DECLARATION 2127 -- | EXCEPTION_DECLARATION | GENERIC_DECLARATION 2128 -- | GENERIC_INSTANTIATION 2129 2130 -- Basic declaration also includes IMPLICIT_LABEL_DECLARATION 2131 -- see further description in section on semantic nodes. 2132 2133 -- Also, in the tree that is constructed, a pragma may appear 2134 -- anywhere that a declaration may appear. 2135 2136 ------------------------------ 2137 -- 3.1 Defining Identifier -- 2138 ------------------------------ 2139 2140 -- DEFINING_IDENTIFIER ::= IDENTIFIER 2141 2142 -- A defining identifier is an entity, which has additional fields 2143 -- depending on the setting of the Ekind field. These additional 2144 -- fields are defined (and access subprograms declared) in package 2145 -- Einfo. 2146 2147 -- Note: N_Defining_Identifier is an extended node whose fields are 2148 -- deliberate layed out to match the layout of fields in an ordinary 2149 -- N_Identifier node allowing for easy alteration of an identifier 2150 -- node into a defining identifier node. For details, see procedure 2151 -- Sinfo.CN.Change_Identifier_To_Defining_Identifier. 2152 2153 -- N_Defining_Identifier 2154 -- Sloc points to identifier 2155 -- Chars (Name1) contains the Name_Id for the identifier 2156 -- Next_Entity (Node2-Sem) 2157 -- Scope (Node3-Sem) 2158 -- Etype (Node5-Sem) 2159 2160 ----------------------------- 2161 -- 3.2.1 Type Declaration -- 2162 ----------------------------- 2163 2164 -- TYPE_DECLARATION ::= 2165 -- FULL_TYPE_DECLARATION 2166 -- | INCOMPLETE_TYPE_DECLARATION 2167 -- | PRIVATE_TYPE_DECLARATION 2168 -- | PRIVATE_EXTENSION_DECLARATION 2169 2170 ---------------------------------- 2171 -- 3.2.1 Full Type Declaration -- 2172 ---------------------------------- 2173 2174 -- FULL_TYPE_DECLARATION ::= 2175 -- type DEFINING_IDENTIFIER [KNOWN_DISCRIMINANT_PART] 2176 -- is TYPE_DEFINITION 2177 -- [ASPECT_SPECIFICATIONS]; 2178 -- | TASK_TYPE_DECLARATION 2179 -- | PROTECTED_TYPE_DECLARATION 2180 2181 -- The full type declaration node is used only for the first case. The 2182 -- second case (concurrent type declaration), is represented directly 2183 -- by a task type declaration or a protected type declaration. 2184 2185 -- N_Full_Type_Declaration 2186 -- Sloc points to TYPE 2187 -- Defining_Identifier (Node1) 2188 -- Discriminant_Specifications (List4) (set to No_List if none) 2189 -- Type_Definition (Node3) 2190 -- Discr_Check_Funcs_Built (Flag11-Sem) 2191 2192 ---------------------------- 2193 -- 3.2.1 Type Definition -- 2194 ---------------------------- 2195 2196 -- TYPE_DEFINITION ::= 2197 -- ENUMERATION_TYPE_DEFINITION | INTEGER_TYPE_DEFINITION 2198 -- | REAL_TYPE_DEFINITION | ARRAY_TYPE_DEFINITION 2199 -- | RECORD_TYPE_DEFINITION | ACCESS_TYPE_DEFINITION 2200 -- | DERIVED_TYPE_DEFINITION | INTERFACE_TYPE_DEFINITION 2201 2202 -------------------------------- 2203 -- 3.2.2 Subtype Declaration -- 2204 -------------------------------- 2205 2206 -- SUBTYPE_DECLARATION ::= 2207 -- subtype DEFINING_IDENTIFIER is [NULL_EXCLUSION] SUBTYPE_INDICATION 2208 -- [ASPECT_SPECIFICATIONS]; 2209 2210 -- The subtype indication field is set to Empty for subtypes 2211 -- declared in package Standard (Positive, Natural). 2212 2213 -- N_Subtype_Declaration 2214 -- Sloc points to SUBTYPE 2215 -- Defining_Identifier (Node1) 2216 -- Null_Exclusion_Present (Flag11) 2217 -- Subtype_Indication (Node5) 2218 -- Generic_Parent_Type (Node4-Sem) (set for an actual derived type). 2219 -- Exception_Junk (Flag8-Sem) 2220 -- Has_Dynamic_Range_Check (Flag12-Sem) 2221 2222 ------------------------------- 2223 -- 3.2.2 Subtype Indication -- 2224 ------------------------------- 2225 2226 -- SUBTYPE_INDICATION ::= SUBTYPE_MARK [CONSTRAINT] 2227 2228 -- Note: if no constraint is present, the subtype indication appears 2229 -- directly in the tree as a subtype mark. The N_Subtype_Indication 2230 -- node is used only if a constraint is present. 2231 2232 -- Note: [For Ada 2005 (AI-231)]: Because Ada 2005 extends this rule 2233 -- with the null-exclusion part (see AI-231), we had to introduce a new 2234 -- attribute in all the parents of subtype_indication nodes to indicate 2235 -- if the null-exclusion is present. 2236 2237 -- Note: the reason that this node has expression fields is that a 2238 -- subtype indication can appear as an operand of a membership test. 2239 2240 -- N_Subtype_Indication 2241 -- Sloc points to first token of subtype mark 2242 -- Subtype_Mark (Node4) 2243 -- Constraint (Node3) 2244 -- Etype (Node5-Sem) 2245 -- Must_Not_Freeze (Flag8-Sem) 2246 2247 -- Note: Etype is a copy of the Etype field of the Subtype_Mark. The 2248 -- reason for this redundancy is so that in a list of array index types, 2249 -- the Etype can be uniformly accessed to determine the subscript type. 2250 -- This means that no Itype is constructed for the actual subtype that 2251 -- is created by the subtype indication. If such an Itype is required, 2252 -- it is constructed in the context in which the indication appears. 2253 2254 ------------------------- 2255 -- 3.2.2 Subtype Mark -- 2256 ------------------------- 2257 2258 -- SUBTYPE_MARK ::= subtype_NAME 2259 2260 ----------------------- 2261 -- 3.2.2 Constraint -- 2262 ----------------------- 2263 2264 -- CONSTRAINT ::= SCALAR_CONSTRAINT | COMPOSITE_CONSTRAINT 2265 2266 ------------------------------ 2267 -- 3.2.2 Scalar Constraint -- 2268 ------------------------------ 2269 2270 -- SCALAR_CONSTRAINT ::= 2271 -- RANGE_CONSTRAINT | DIGITS_CONSTRAINT | DELTA_CONSTRAINT 2272 2273 --------------------------------- 2274 -- 3.2.2 Composite Constraint -- 2275 --------------------------------- 2276 2277 -- COMPOSITE_CONSTRAINT ::= 2278 -- INDEX_CONSTRAINT | DISCRIMINANT_CONSTRAINT 2279 2280 ------------------------------- 2281 -- 3.3.1 Object Declaration -- 2282 ------------------------------- 2283 2284 -- OBJECT_DECLARATION ::= 2285 -- DEFINING_IDENTIFIER_LIST : [aliased] [constant] 2286 -- [NULL_EXCLUSION] SUBTYPE_INDICATION [:= EXPRESSION] 2287 -- [ASPECT_SPECIFICATIONS]; 2288 -- | DEFINING_IDENTIFIER_LIST : [aliased] [constant] 2289 -- ACCESS_DEFINITION [:= EXPRESSION] 2290 -- [ASPECT_SPECIFICATIONS]; 2291 -- | DEFINING_IDENTIFIER_LIST : [aliased] [constant] 2292 -- ARRAY_TYPE_DEFINITION [:= EXPRESSION] 2293 -- [ASPECT_SPECIFICATIONS]; 2294 -- | SINGLE_TASK_DECLARATION 2295 -- | SINGLE_PROTECTED_DECLARATION 2296 2297 -- Note: aliased is not permitted in Ada 83 mode 2298 2299 -- The N_Object_Declaration node is only for the first two cases. 2300 -- Single task declaration is handled by P_Task (9.1) 2301 -- Single protected declaration is handled by P_protected (9.5) 2302 2303 -- Although the syntax allows multiple identifiers in the list, the 2304 -- semantics is as though successive declarations were given with 2305 -- identical type definition and expression components. To simplify 2306 -- semantic processing, the parser represents a multiple declaration 2307 -- case as a sequence of single declarations, using the More_Ids and 2308 -- Prev_Ids flags to preserve the original source form as described 2309 -- in the section on "Handling of Defining Identifier Lists". 2310 2311 -- The flag Has_Init_Expression is set if an initializing expression 2312 -- is present. Normally it is set if and only if Expression contains 2313 -- a non-empty value, but there is an exception to this. When the 2314 -- initializing expression is an aggregate which requires explicit 2315 -- assignments, the Expression field gets set to Empty, but this flag 2316 -- is still set, so we don't forget we had an initializing expression. 2317 2318 -- Note: if a range check is required for the initialization 2319 -- expression then the Do_Range_Check flag is set in the Expression, 2320 -- with the check being done against the type given by the object 2321 -- definition, which is also the Etype of the defining identifier. 2322 2323 -- Note: the contents of the Expression field must be ignored (i.e. 2324 -- treated as though it were Empty) if No_Initialization is set True. 2325 2326 -- Note: the back end places some restrictions on the form of the 2327 -- Expression field. If the object being declared is Atomic, then 2328 -- the Expression may not have the form of an aggregate (since this 2329 -- might cause the back end to generate separate assignments). In this 2330 -- case the front end must generate an extra temporary and initialize 2331 -- this temporary as required (the temporary itself is not atomic). 2332 2333 -- Note: there is not node kind for object definition. Instead, the 2334 -- corresponding field holds a subtype indication, an array type 2335 -- definition, or (Ada 2005, AI-406) an access definition. 2336 2337 -- N_Object_Declaration 2338 -- Sloc points to first identifier 2339 -- Defining_Identifier (Node1) 2340 -- Aliased_Present (Flag4) 2341 -- Constant_Present (Flag17) set if CONSTANT appears 2342 -- Null_Exclusion_Present (Flag11) 2343 -- Object_Definition (Node4) subtype indic./array type def./access def. 2344 -- Expression (Node3) (set to Empty if not present) 2345 -- Handler_List_Entry (Node2-Sem) 2346 -- Corresponding_Generic_Association (Node5-Sem) 2347 -- More_Ids (Flag5) (set to False if no more identifiers in list) 2348 -- Prev_Ids (Flag6) (set to False if no previous identifiers in list) 2349 -- No_Initialization (Flag13-Sem) 2350 -- Assignment_OK (Flag15-Sem) 2351 -- Exception_Junk (Flag8-Sem) 2352 -- Is_Subprogram_Descriptor (Flag16-Sem) 2353 -- Has_Init_Expression (Flag14) 2354 -- Suppress_Assignment_Checks (Flag18-Sem) 2355 2356 ------------------------------------- 2357 -- 3.3.1 Defining Identifier List -- 2358 ------------------------------------- 2359 2360 -- DEFINING_IDENTIFIER_LIST ::= 2361 -- DEFINING_IDENTIFIER {, DEFINING_IDENTIFIER} 2362 2363 ------------------------------- 2364 -- 3.3.2 Number Declaration -- 2365 ------------------------------- 2366 2367 -- NUMBER_DECLARATION ::= 2368 -- DEFINING_IDENTIFIER_LIST : constant := static_EXPRESSION; 2369 2370 -- Although the syntax allows multiple identifiers in the list, the 2371 -- semantics is as though successive declarations were given with 2372 -- identical expressions. To simplify semantic processing, the parser 2373 -- represents a multiple declaration case as a sequence of single 2374 -- declarations, using the More_Ids and Prev_Ids flags to preserve 2375 -- the original source form as described in the section on "Handling 2376 -- of Defining Identifier Lists". 2377 2378 -- N_Number_Declaration 2379 -- Sloc points to first identifier 2380 -- Defining_Identifier (Node1) 2381 -- Expression (Node3) 2382 -- More_Ids (Flag5) (set to False if no more identifiers in list) 2383 -- Prev_Ids (Flag6) (set to False if no previous identifiers in list) 2384 2385 ---------------------------------- 2386 -- 3.4 Derived Type Definition -- 2387 ---------------------------------- 2388 2389 -- DERIVED_TYPE_DEFINITION ::= 2390 -- [abstract] [limited] new [NULL_EXCLUSION] parent_SUBTYPE_INDICATION 2391 -- [[and INTERFACE_LIST] RECORD_EXTENSION_PART] 2392 2393 -- Note: ABSTRACT, LIMITED and record extension part are not permitted 2394 -- in Ada 83 mode 2395 2396 -- Note: a record extension part is required if ABSTRACT is present 2397 2398 -- N_Derived_Type_Definition 2399 -- Sloc points to NEW 2400 -- Abstract_Present (Flag4) 2401 -- Null_Exclusion_Present (Flag11) (set to False if not present) 2402 -- Subtype_Indication (Node5) 2403 -- Record_Extension_Part (Node3) (set to Empty if not present) 2404 -- Limited_Present (Flag17) 2405 -- Task_Present (Flag5) set in task interfaces 2406 -- Protected_Present (Flag6) set in protected interfaces 2407 -- Synchronized_Present (Flag7) set in interfaces 2408 -- Interface_List (List2) (set to No_List if none) 2409 -- Interface_Present (Flag16) set in abstract interfaces 2410 2411 -- Note: Task_Present, Protected_Present, Synchronized_Present, 2412 -- Interface_List, and Interface_Present are used for abstract 2413 -- interfaces (see comments for INTERFACE_TYPE_DEFINITION). 2414 2415 --------------------------- 2416 -- 3.5 Range Constraint -- 2417 --------------------------- 2418 2419 -- RANGE_CONSTRAINT ::= range RANGE 2420 2421 -- N_Range_Constraint 2422 -- Sloc points to RANGE 2423 -- Range_Expression (Node4) 2424 2425 ---------------- 2426 -- 3.5 Range -- 2427 ---------------- 2428 2429 -- RANGE ::= 2430 -- RANGE_ATTRIBUTE_REFERENCE 2431 -- | SIMPLE_EXPRESSION .. SIMPLE_EXPRESSION 2432 2433 -- Note: the case of a range given as a range attribute reference 2434 -- appears directly in the tree as an attribute reference. 2435 2436 -- Note: the field name for a reference to a range is Range_Expression 2437 -- rather than Range, because range is a reserved keyword in Ada! 2438 2439 -- Note: the reason that this node has expression fields is that a 2440 -- range can appear as an operand of a membership test. The Etype 2441 -- field is the type of the range (we do NOT construct an implicit 2442 -- subtype to represent the range exactly). 2443 2444 -- N_Range 2445 -- Sloc points to .. 2446 -- Low_Bound (Node1) 2447 -- High_Bound (Node2) 2448 -- Includes_Infinities (Flag11) 2449 -- plus fields for expression 2450 2451 -- Note: if the range appears in a context, such as a subtype 2452 -- declaration, where range checks are required on one or both of 2453 -- the expression fields, then type conversion nodes are inserted 2454 -- to represent the required checks. 2455 2456 ---------------------------------------- 2457 -- 3.5.1 Enumeration Type Definition -- 2458 ---------------------------------------- 2459 2460 -- ENUMERATION_TYPE_DEFINITION ::= 2461 -- (ENUMERATION_LITERAL_SPECIFICATION 2462 -- {, ENUMERATION_LITERAL_SPECIFICATION}) 2463 2464 -- Note: the Literals field in the node described below is null for 2465 -- the case of the standard types CHARACTER and WIDE_CHARACTER, for 2466 -- which special processing handles these types as special cases. 2467 2468 -- N_Enumeration_Type_Definition 2469 -- Sloc points to left parenthesis 2470 -- Literals (List1) (Empty for CHARACTER or WIDE_CHARACTER) 2471 -- End_Label (Node4) (set to Empty if internally generated record) 2472 2473 ---------------------------------------------- 2474 -- 3.5.1 Enumeration Literal Specification -- 2475 ---------------------------------------------- 2476 2477 -- ENUMERATION_LITERAL_SPECIFICATION ::= 2478 -- DEFINING_IDENTIFIER | DEFINING_CHARACTER_LITERAL 2479 2480 --------------------------------------- 2481 -- 3.5.1 Defining Character Literal -- 2482 --------------------------------------- 2483 2484 -- DEFINING_CHARACTER_LITERAL ::= CHARACTER_LITERAL 2485 2486 -- A defining character literal is an entity, which has additional 2487 -- fields depending on the setting of the Ekind field. These 2488 -- additional fields are defined (and access subprograms declared) 2489 -- in package Einfo. 2490 2491 -- Note: N_Defining_Character_Literal is an extended node whose fields 2492 -- are deliberate layed out to match the layout of fields in an ordinary 2493 -- N_Character_Literal node allowing for easy alteration of a character 2494 -- literal node into a defining character literal node. For details, see 2495 -- Sinfo.CN.Change_Character_Literal_To_Defining_Character_Literal. 2496 2497 -- N_Defining_Character_Literal 2498 -- Sloc points to literal 2499 -- Chars (Name1) contains the Name_Id for the identifier 2500 -- Next_Entity (Node2-Sem) 2501 -- Scope (Node3-Sem) 2502 -- Etype (Node5-Sem) 2503 2504 ------------------------------------ 2505 -- 3.5.4 Integer Type Definition -- 2506 ------------------------------------ 2507 2508 -- Note: there is an error in this rule in the latest version of the 2509 -- grammar, so we have retained the old rule pending clarification. 2510 2511 -- INTEGER_TYPE_DEFINITION ::= 2512 -- SIGNED_INTEGER_TYPE_DEFINITION 2513 -- | MODULAR_TYPE_DEFINITION 2514 2515 ------------------------------------------- 2516 -- 3.5.4 Signed Integer Type Definition -- 2517 ------------------------------------------- 2518 2519 -- SIGNED_INTEGER_TYPE_DEFINITION ::= 2520 -- range static_SIMPLE_EXPRESSION .. static_SIMPLE_EXPRESSION 2521 2522 -- Note: the Low_Bound and High_Bound fields are set to Empty 2523 -- for integer types defined in package Standard. 2524 2525 -- N_Signed_Integer_Type_Definition 2526 -- Sloc points to RANGE 2527 -- Low_Bound (Node1) 2528 -- High_Bound (Node2) 2529 2530 ------------------------------------ 2531 -- 3.5.4 Modular Type Definition -- 2532 ------------------------------------ 2533 2534 -- MODULAR_TYPE_DEFINITION ::= mod static_EXPRESSION 2535 2536 -- N_Modular_Type_Definition 2537 -- Sloc points to MOD 2538 -- Expression (Node3) 2539 2540 --------------------------------- 2541 -- 3.5.6 Real Type Definition -- 2542 --------------------------------- 2543 2544 -- REAL_TYPE_DEFINITION ::= 2545 -- FLOATING_POINT_DEFINITION | FIXED_POINT_DEFINITION 2546 2547 -------------------------------------- 2548 -- 3.5.7 Floating Point Definition -- 2549 -------------------------------------- 2550 2551 -- FLOATING_POINT_DEFINITION ::= 2552 -- digits static_SIMPLE_EXPRESSION [REAL_RANGE_SPECIFICATION] 2553 2554 -- Note: The Digits_Expression and Real_Range_Specifications fields 2555 -- are set to Empty for floating-point types declared in Standard. 2556 2557 -- N_Floating_Point_Definition 2558 -- Sloc points to DIGITS 2559 -- Digits_Expression (Node2) 2560 -- Real_Range_Specification (Node4) (set to Empty if not present) 2561 2562 ------------------------------------- 2563 -- 3.5.7 Real Range Specification -- 2564 ------------------------------------- 2565 2566 -- REAL_RANGE_SPECIFICATION ::= 2567 -- range static_SIMPLE_EXPRESSION .. static_SIMPLE_EXPRESSION 2568 2569 -- N_Real_Range_Specification 2570 -- Sloc points to RANGE 2571 -- Low_Bound (Node1) 2572 -- High_Bound (Node2) 2573 2574 ----------------------------------- 2575 -- 3.5.9 Fixed Point Definition -- 2576 ----------------------------------- 2577 2578 -- FIXED_POINT_DEFINITION ::= 2579 -- ORDINARY_FIXED_POINT_DEFINITION | DECIMAL_FIXED_POINT_DEFINITION 2580 2581 -------------------------------------------- 2582 -- 3.5.9 Ordinary Fixed Point Definition -- 2583 -------------------------------------------- 2584 2585 -- ORDINARY_FIXED_POINT_DEFINITION ::= 2586 -- delta static_EXPRESSION REAL_RANGE_SPECIFICATION 2587 2588 -- Note: In Ada 83, the EXPRESSION must be a SIMPLE_EXPRESSION 2589 2590 -- N_Ordinary_Fixed_Point_Definition 2591 -- Sloc points to DELTA 2592 -- Delta_Expression (Node3) 2593 -- Real_Range_Specification (Node4) 2594 2595 ------------------------------------------- 2596 -- 3.5.9 Decimal Fixed Point Definition -- 2597 ------------------------------------------- 2598 2599 -- DECIMAL_FIXED_POINT_DEFINITION ::= 2600 -- delta static_EXPRESSION 2601 -- digits static_EXPRESSION [REAL_RANGE_SPECIFICATION] 2602 2603 -- Note: decimal types are not permitted in Ada 83 mode 2604 2605 -- N_Decimal_Fixed_Point_Definition 2606 -- Sloc points to DELTA 2607 -- Delta_Expression (Node3) 2608 -- Digits_Expression (Node2) 2609 -- Real_Range_Specification (Node4) (set to Empty if not present) 2610 2611 ------------------------------ 2612 -- 3.5.9 Digits Constraint -- 2613 ------------------------------ 2614 2615 -- DIGITS_CONSTRAINT ::= 2616 -- digits static_EXPRESSION [RANGE_CONSTRAINT] 2617 2618 -- Note: in Ada 83, the EXPRESSION must be a SIMPLE_EXPRESSION 2619 -- Note: in Ada 95, reduced accuracy subtypes are obsolescent 2620 2621 -- N_Digits_Constraint 2622 -- Sloc points to DIGITS 2623 -- Digits_Expression (Node2) 2624 -- Range_Constraint (Node4) (set to Empty if not present) 2625 2626 -------------------------------- 2627 -- 3.6 Array Type Definition -- 2628 -------------------------------- 2629 2630 -- ARRAY_TYPE_DEFINITION ::= 2631 -- UNCONSTRAINED_ARRAY_DEFINITION | CONSTRAINED_ARRAY_DEFINITION 2632 2633 ----------------------------------------- 2634 -- 3.6 Unconstrained Array Definition -- 2635 ----------------------------------------- 2636 2637 -- UNCONSTRAINED_ARRAY_DEFINITION ::= 2638 -- array (INDEX_SUBTYPE_DEFINITION {, INDEX_SUBTYPE_DEFINITION}) of 2639 -- COMPONENT_DEFINITION 2640 2641 -- Note: dimensionality of array is indicated by number of entries in 2642 -- the Subtype_Marks list, which has one entry for each dimension. 2643 2644 -- N_Unconstrained_Array_Definition 2645 -- Sloc points to ARRAY 2646 -- Subtype_Marks (List2) 2647 -- Component_Definition (Node4) 2648 2649 ----------------------------------- 2650 -- 3.6 Index Subtype Definition -- 2651 ----------------------------------- 2652 2653 -- INDEX_SUBTYPE_DEFINITION ::= SUBTYPE_MARK range <> 2654 2655 -- There is no explicit node in the tree for an index subtype 2656 -- definition since the N_Unconstrained_Array_Definition node 2657 -- incorporates the type marks which appear in this context. 2658 2659 --------------------------------------- 2660 -- 3.6 Constrained Array Definition -- 2661 --------------------------------------- 2662 2663 -- CONSTRAINED_ARRAY_DEFINITION ::= 2664 -- array (DISCRETE_SUBTYPE_DEFINITION 2665 -- {, DISCRETE_SUBTYPE_DEFINITION}) 2666 -- of COMPONENT_DEFINITION 2667 2668 -- Note: dimensionality of array is indicated by number of entries 2669 -- in the Discrete_Subtype_Definitions list, which has one entry 2670 -- for each dimension. 2671 2672 -- N_Constrained_Array_Definition 2673 -- Sloc points to ARRAY 2674 -- Discrete_Subtype_Definitions (List2) 2675 -- Component_Definition (Node4) 2676 2677 -------------------------------------- 2678 -- 3.6 Discrete Subtype Definition -- 2679 -------------------------------------- 2680 2681 -- DISCRETE_SUBTYPE_DEFINITION ::= 2682 -- discrete_SUBTYPE_INDICATION | RANGE 2683 2684 ------------------------------- 2685 -- 3.6 Component Definition -- 2686 ------------------------------- 2687 2688 -- COMPONENT_DEFINITION ::= 2689 -- [aliased] [NULL_EXCLUSION] SUBTYPE_INDICATION | ACCESS_DEFINITION 2690 2691 -- Note: although the syntax does not permit a component definition to 2692 -- be an anonymous array (and the parser will diagnose such an attempt 2693 -- with an appropriate message), it is possible for anonymous arrays 2694 -- to appear as component definitions. The semantics and back end handle 2695 -- this case properly, and the expander in fact generates such cases. 2696 -- Access_Definition is an optional field that gives support to 2697 -- Ada 2005 (AI-230). The parser generates nodes that have either the 2698 -- Subtype_Indication field or else the Access_Definition field. 2699 2700 -- N_Component_Definition 2701 -- Sloc points to ALIASED, ACCESS or to first token of subtype mark 2702 -- Aliased_Present (Flag4) 2703 -- Null_Exclusion_Present (Flag11) 2704 -- Subtype_Indication (Node5) (set to Empty if not present) 2705 -- Access_Definition (Node3) (set to Empty if not present) 2706 2707 ----------------------------- 2708 -- 3.6.1 Index Constraint -- 2709 ----------------------------- 2710 2711 -- INDEX_CONSTRAINT ::= (DISCRETE_RANGE {, DISCRETE_RANGE}) 2712 2713 -- It is not in general possible to distinguish between discriminant 2714 -- constraints and index constraints at parse time, since a simple 2715 -- name could be either the subtype mark of a discrete range, or an 2716 -- expression in a discriminant association with no name. Either 2717 -- entry appears simply as the name, and the semantic parse must 2718 -- distinguish between the two cases. Thus we use a common tree 2719 -- node format for both of these constraint types. 2720 2721 -- See Discriminant_Constraint for format of node 2722 2723 --------------------------- 2724 -- 3.6.1 Discrete Range -- 2725 --------------------------- 2726 2727 -- DISCRETE_RANGE ::= discrete_SUBTYPE_INDICATION | RANGE 2728 2729 ---------------------------- 2730 -- 3.7 Discriminant Part -- 2731 ---------------------------- 2732 2733 -- DISCRIMINANT_PART ::= 2734 -- UNKNOWN_DISCRIMINANT_PART | KNOWN_DISCRIMINANT_PART 2735 2736 ------------------------------------ 2737 -- 3.7 Unknown Discriminant Part -- 2738 ------------------------------------ 2739 2740 -- UNKNOWN_DISCRIMINANT_PART ::= (<>) 2741 2742 -- Note: unknown discriminant parts are not permitted in Ada 83 mode 2743 2744 -- There is no explicit node in the tree for an unknown discriminant 2745 -- part. Instead the Unknown_Discriminants_Present flag is set in the 2746 -- parent node. 2747 2748 ---------------------------------- 2749 -- 3.7 Known Discriminant Part -- 2750 ---------------------------------- 2751 2752 -- KNOWN_DISCRIMINANT_PART ::= 2753 -- (DISCRIMINANT_SPECIFICATION {; DISCRIMINANT_SPECIFICATION}) 2754 2755 ------------------------------------- 2756 -- 3.7 Discriminant Specification -- 2757 ------------------------------------- 2758 2759 -- DISCRIMINANT_SPECIFICATION ::= 2760 -- DEFINING_IDENTIFIER_LIST : [NULL_EXCLUSION] SUBTYPE_MARK 2761 -- [:= DEFAULT_EXPRESSION] 2762 -- | DEFINING_IDENTIFIER_LIST : ACCESS_DEFINITION 2763 -- [:= DEFAULT_EXPRESSION] 2764 2765 -- Although the syntax allows multiple identifiers in the list, the 2766 -- semantics is as though successive specifications were given with 2767 -- identical type definition and expression components. To simplify 2768 -- semantic processing, the parser represents a multiple declaration 2769 -- case as a sequence of single specifications, using the More_Ids and 2770 -- Prev_Ids flags to preserve the original source form as described 2771 -- in the section on "Handling of Defining Identifier Lists". 2772 2773 -- N_Discriminant_Specification 2774 -- Sloc points to first identifier 2775 -- Defining_Identifier (Node1) 2776 -- Null_Exclusion_Present (Flag11) 2777 -- Discriminant_Type (Node5) subtype mark or access parameter definition 2778 -- Expression (Node3) (set to Empty if no default expression) 2779 -- More_Ids (Flag5) (set to False if no more identifiers in list) 2780 -- Prev_Ids (Flag6) (set to False if no previous identifiers in list) 2781 2782 ----------------------------- 2783 -- 3.7 Default Expression -- 2784 ----------------------------- 2785 2786 -- DEFAULT_EXPRESSION ::= EXPRESSION 2787 2788 ------------------------------------ 2789 -- 3.7.1 Discriminant Constraint -- 2790 ------------------------------------ 2791 2792 -- DISCRIMINANT_CONSTRAINT ::= 2793 -- (DISCRIMINANT_ASSOCIATION {, DISCRIMINANT_ASSOCIATION}) 2794 2795 -- It is not in general possible to distinguish between discriminant 2796 -- constraints and index constraints at parse time, since a simple 2797 -- name could be either the subtype mark of a discrete range, or an 2798 -- expression in a discriminant association with no name. Either 2799 -- entry appears simply as the name, and the semantic parse must 2800 -- distinguish between the two cases. Thus we use a common tree 2801 -- node format for both of these constraint types. 2802 2803 -- N_Index_Or_Discriminant_Constraint 2804 -- Sloc points to left paren 2805 -- Constraints (List1) points to list of discrete ranges or 2806 -- discriminant associations 2807 2808 ------------------------------------- 2809 -- 3.7.1 Discriminant Association -- 2810 ------------------------------------- 2811 2812 -- DISCRIMINANT_ASSOCIATION ::= 2813 -- [discriminant_SELECTOR_NAME 2814 -- {| discriminant_SELECTOR_NAME} =>] EXPRESSION 2815 2816 -- Note: a discriminant association that has no selector name list 2817 -- appears directly as an expression in the tree. 2818 2819 -- N_Discriminant_Association 2820 -- Sloc points to first token of discriminant association 2821 -- Selector_Names (List1) (always non-empty, since if no selector 2822 -- names are present, this node is not used, see comment above) 2823 -- Expression (Node3) 2824 2825 --------------------------------- 2826 -- 3.8 Record Type Definition -- 2827 --------------------------------- 2828 2829 -- RECORD_TYPE_DEFINITION ::= 2830 -- [[abstract] tagged] [limited] RECORD_DEFINITION 2831 2832 -- Note: ABSTRACT, TAGGED, LIMITED are not permitted in Ada 83 mode 2833 2834 -- There is no explicit node in the tree for a record type definition. 2835 -- Instead the flags for Tagged_Present and Limited_Present appear in 2836 -- the N_Record_Definition node for a record definition appearing in 2837 -- the context of a record type definition. 2838 2839 ---------------------------- 2840 -- 3.8 Record Definition -- 2841 ---------------------------- 2842 2843 -- RECORD_DEFINITION ::= 2844 -- record 2845 -- COMPONENT_LIST 2846 -- end record 2847 -- | null record 2848 2849 -- Note: the Abstract_Present, Tagged_Present and Limited_Present 2850 -- flags appear only for a record definition appearing in a record 2851 -- type definition. 2852 2853 -- Note: the NULL RECORD case is not permitted in Ada 83 2854 2855 -- N_Record_Definition 2856 -- Sloc points to RECORD or NULL 2857 -- End_Label (Node4) (set to Empty if internally generated record) 2858 -- Abstract_Present (Flag4) 2859 -- Tagged_Present (Flag15) 2860 -- Limited_Present (Flag17) 2861 -- Component_List (Node1) empty in null record case 2862 -- Null_Present (Flag13) set in null record case 2863 -- Task_Present (Flag5) set in task interfaces 2864 -- Protected_Present (Flag6) set in protected interfaces 2865 -- Synchronized_Present (Flag7) set in interfaces 2866 -- Interface_Present (Flag16) set in abstract interfaces 2867 -- Interface_List (List2) (set to No_List if none) 2868 2869 -- Note: Task_Present, Protected_Present, Synchronized _Present, 2870 -- Interface_List and Interface_Present are used for abstract 2871 -- interfaces (see comments for INTERFACE_TYPE_DEFINITION). 2872 2873 ------------------------- 2874 -- 3.8 Component List -- 2875 ------------------------- 2876 2877 -- COMPONENT_LIST ::= 2878 -- COMPONENT_ITEM {COMPONENT_ITEM} 2879 -- | {COMPONENT_ITEM} VARIANT_PART 2880 -- | null; 2881 2882 -- N_Component_List 2883 -- Sloc points to first token of component list 2884 -- Component_Items (List3) 2885 -- Variant_Part (Node4) (set to Empty if no variant part) 2886 -- Null_Present (Flag13) 2887 2888 ------------------------- 2889 -- 3.8 Component Item -- 2890 ------------------------- 2891 2892 -- COMPONENT_ITEM ::= COMPONENT_DECLARATION | REPRESENTATION_CLAUSE 2893 2894 -- Note: A component item can also be a pragma, and in the tree 2895 -- that is obtained after semantic processing, a component item 2896 -- can be an N_Null node resulting from a non-recognized pragma. 2897 2898 -------------------------------- 2899 -- 3.8 Component Declaration -- 2900 -------------------------------- 2901 2902 -- COMPONENT_DECLARATION ::= 2903 -- DEFINING_IDENTIFIER_LIST : COMPONENT_DEFINITION 2904 -- [:= DEFAULT_EXPRESSION] 2905 -- [ASPECT_SPECIFICATIONS]; 2906 2907 -- Note: although the syntax does not permit a component definition to 2908 -- be an anonymous array (and the parser will diagnose such an attempt 2909 -- with an appropriate message), it is possible for anonymous arrays 2910 -- to appear as component definitions. The semantics and back end handle 2911 -- this case properly, and the expander in fact generates such cases. 2912 2913 -- Although the syntax allows multiple identifiers in the list, the 2914 -- semantics is as though successive declarations were given with the 2915 -- same component definition and expression components. To simplify 2916 -- semantic processing, the parser represents a multiple declaration 2917 -- case as a sequence of single declarations, using the More_Ids and 2918 -- Prev_Ids flags to preserve the original source form as described 2919 -- in the section on "Handling of Defining Identifier Lists". 2920 2921 -- N_Component_Declaration 2922 -- Sloc points to first identifier 2923 -- Defining_Identifier (Node1) 2924 -- Component_Definition (Node4) 2925 -- Expression (Node3) (set to Empty if no default expression) 2926 -- More_Ids (Flag5) (set to False if no more identifiers in list) 2927 -- Prev_Ids (Flag6) (set to False if no previous identifiers in list) 2928 2929 ------------------------- 2930 -- 3.8.1 Variant Part -- 2931 ------------------------- 2932 2933 -- VARIANT_PART ::= 2934 -- case discriminant_DIRECT_NAME is 2935 -- VARIANT 2936 -- {VARIANT} 2937 -- end case; 2938 2939 -- Note: the variants list can contain pragmas as well as variants. 2940 -- In a properly formed program there is at least one variant. 2941 2942 -- N_Variant_Part 2943 -- Sloc points to CASE 2944 -- Name (Node2) 2945 -- Variants (List1) 2946 2947 -------------------- 2948 -- 3.8.1 Variant -- 2949 -------------------- 2950 2951 -- VARIANT ::= 2952 -- when DISCRETE_CHOICE_LIST => 2953 -- COMPONENT_LIST 2954 2955 -- N_Variant 2956 -- Sloc points to WHEN 2957 -- Discrete_Choices (List4) 2958 -- Component_List (Node1) 2959 -- Enclosing_Variant (Node2-Sem) 2960 -- Present_Expr (Uint3-Sem) 2961 -- Dcheck_Function (Node5-Sem) 2962 2963 --------------------------------- 2964 -- 3.8.1 Discrete Choice List -- 2965 --------------------------------- 2966 2967 -- DISCRETE_CHOICE_LIST ::= DISCRETE_CHOICE {| DISCRETE_CHOICE} 2968 2969 ---------------------------- 2970 -- 3.8.1 Discrete Choice -- 2971 ---------------------------- 2972 2973 -- DISCRETE_CHOICE ::= EXPRESSION | DISCRETE_RANGE | others 2974 2975 -- Note: in Ada 83 mode, the expression must be a simple expression 2976 2977 -- The only choice that appears explicitly is the OTHERS choice, as 2978 -- defined here. Other cases of discrete choice (expression and 2979 -- discrete range) appear directly. This production is also used 2980 -- for the OTHERS possibility of an exception choice. 2981 2982 -- Note: in accordance with the syntax, the parser does not check that 2983 -- OTHERS appears at the end on its own in a choice list context. This 2984 -- is a semantic check. 2985 2986 -- N_Others_Choice 2987 -- Sloc points to OTHERS 2988 -- Others_Discrete_Choices (List1-Sem) 2989 -- All_Others (Flag11-Sem) 2990 2991 ---------------------------------- 2992 -- 3.9.1 Record Extension Part -- 2993 ---------------------------------- 2994 2995 -- RECORD_EXTENSION_PART ::= with RECORD_DEFINITION 2996 2997 -- Note: record extension parts are not permitted in Ada 83 mode 2998 2999 -------------------------------------- 3000 -- 3.9.4 Interface Type Definition -- 3001 -------------------------------------- 3002 3003 -- INTERFACE_TYPE_DEFINITION ::= 3004 -- [limited | task | protected | synchronized] 3005 -- interface [interface_list] 3006 3007 -- Note: Interfaces are implemented with N_Record_Definition and 3008 -- N_Derived_Type_Definition nodes because most of the support 3009 -- for the analysis of abstract types has been reused to 3010 -- analyze abstract interfaces. 3011 3012 ---------------------------------- 3013 -- 3.10 Access Type Definition -- 3014 ---------------------------------- 3015 3016 -- ACCESS_TYPE_DEFINITION ::= 3017 -- ACCESS_TO_OBJECT_DEFINITION 3018 -- | ACCESS_TO_SUBPROGRAM_DEFINITION 3019 3020 -------------------------- 3021 -- 3.10 Null Exclusion -- 3022 -------------------------- 3023 3024 -- NULL_EXCLUSION ::= not null 3025 3026 --------------------------------------- 3027 -- 3.10 Access To Object Definition -- 3028 --------------------------------------- 3029 3030 -- ACCESS_TO_OBJECT_DEFINITION ::= 3031 -- [NULL_EXCLUSION] access [GENERAL_ACCESS_MODIFIER] 3032 -- SUBTYPE_INDICATION 3033 3034 -- N_Access_To_Object_Definition 3035 -- Sloc points to ACCESS 3036 -- All_Present (Flag15) 3037 -- Null_Exclusion_Present (Flag11) 3038 -- Subtype_Indication (Node5) 3039 -- Constant_Present (Flag17) 3040 3041 ----------------------------------- 3042 -- 3.10 General Access Modifier -- 3043 ----------------------------------- 3044 3045 -- GENERAL_ACCESS_MODIFIER ::= all | constant 3046 3047 -- Note: general access modifiers are not permitted in Ada 83 mode 3048 3049 -- There is no explicit node in the tree for general access modifier. 3050 -- Instead the All_Present or Constant_Present flags are set in the 3051 -- parent node. 3052 3053 ------------------------------------------- 3054 -- 3.10 Access To Subprogram Definition -- 3055 ------------------------------------------- 3056 3057 -- ACCESS_TO_SUBPROGRAM_DEFINITION 3058 -- [NULL_EXCLUSION] access [protected] procedure PARAMETER_PROFILE 3059 -- | [NULL_EXCLUSION] access [protected] function 3060 -- PARAMETER_AND_RESULT_PROFILE 3061 3062 -- Note: access to subprograms are not permitted in Ada 83 mode 3063 3064 -- N_Access_Function_Definition 3065 -- Sloc points to ACCESS 3066 -- Null_Exclusion_Present (Flag11) 3067 -- Null_Exclusion_In_Return_Present (Flag14) 3068 -- Protected_Present (Flag6) 3069 -- Parameter_Specifications (List3) (set to No_List if no formal part) 3070 -- Result_Definition (Node4) result subtype (subtype mark or access def) 3071 3072 -- N_Access_Procedure_Definition 3073 -- Sloc points to ACCESS 3074 -- Null_Exclusion_Present (Flag11) 3075 -- Protected_Present (Flag6) 3076 -- Parameter_Specifications (List3) (set to No_List if no formal part) 3077 3078 ----------------------------- 3079 -- 3.10 Access Definition -- 3080 ----------------------------- 3081 3082 -- ACCESS_DEFINITION ::= 3083 -- [NULL_EXCLUSION] access [GENERAL_ACCESS_MODIFIER] SUBTYPE_MARK 3084 -- | ACCESS_TO_SUBPROGRAM_DEFINITION 3085 3086 -- Note: access to subprograms are an Ada 2005 (AI-254) extension 3087 3088 -- N_Access_Definition 3089 -- Sloc points to ACCESS 3090 -- Null_Exclusion_Present (Flag11) 3091 -- All_Present (Flag15) 3092 -- Constant_Present (Flag17) 3093 -- Subtype_Mark (Node4) 3094 -- Access_To_Subprogram_Definition (Node3) (set to Empty if not present) 3095 3096 ----------------------------------------- 3097 -- 3.10.1 Incomplete Type Declaration -- 3098 ----------------------------------------- 3099 3100 -- INCOMPLETE_TYPE_DECLARATION ::= 3101 -- type DEFINING_IDENTIFIER [DISCRIMINANT_PART] [IS TAGGED]; 3102 3103 -- N_Incomplete_Type_Declaration 3104 -- Sloc points to TYPE 3105 -- Defining_Identifier (Node1) 3106 -- Discriminant_Specifications (List4) (set to No_List if no 3107 -- discriminant part, or if the discriminant part is an 3108 -- unknown discriminant part) 3109 -- Premature_Use (Node5-Sem) used for improved diagnostics. 3110 -- Unknown_Discriminants_Present (Flag13) set if (<>) discriminant 3111 -- Tagged_Present (Flag15) 3112 3113 ---------------------------- 3114 -- 3.11 Declarative Part -- 3115 ---------------------------- 3116 3117 -- DECLARATIVE_PART ::= {DECLARATIVE_ITEM} 3118 3119 -- Note: although the parser enforces the syntactic requirement that 3120 -- a declarative part can contain only declarations, the semantic 3121 -- processing may add statements to the list of actions in a 3122 -- declarative part, so the code generator should be prepared 3123 -- to accept a statement in this position. 3124 3125 ---------------------------- 3126 -- 3.11 Declarative Item -- 3127 ---------------------------- 3128 3129 -- DECLARATIVE_ITEM ::= BASIC_DECLARATIVE_ITEM | BODY 3130 3131 ---------------------------------- 3132 -- 3.11 Basic Declarative Item -- 3133 ---------------------------------- 3134 3135 -- BASIC_DECLARATIVE_ITEM ::= 3136 -- BASIC_DECLARATION | REPRESENTATION_CLAUSE | USE_CLAUSE 3137 3138 ---------------- 3139 -- 3.11 Body -- 3140 ---------------- 3141 3142 -- BODY ::= PROPER_BODY | BODY_STUB 3143 3144 ----------------------- 3145 -- 3.11 Proper Body -- 3146 ----------------------- 3147 3148 -- PROPER_BODY ::= 3149 -- SUBPROGRAM_BODY | PACKAGE_BODY | TASK_BODY | PROTECTED_BODY 3150 3151 --------------- 3152 -- 4.1 Name -- 3153 --------------- 3154 3155 -- NAME ::= 3156 -- DIRECT_NAME | EXPLICIT_DEREFERENCE 3157 -- | INDEXED_COMPONENT | SLICE 3158 -- | SELECTED_COMPONENT | ATTRIBUTE_REFERENCE 3159 -- | TYPE_CONVERSION | FUNCTION_CALL 3160 -- | CHARACTER_LITERAL 3161 3162 ---------------------- 3163 -- 4.1 Direct Name -- 3164 ---------------------- 3165 3166 -- DIRECT_NAME ::= IDENTIFIER | OPERATOR_SYMBOL 3167 3168 ----------------- 3169 -- 4.1 Prefix -- 3170 ----------------- 3171 3172 -- PREFIX ::= NAME | IMPLICIT_DEREFERENCE 3173 3174 ------------------------------- 3175 -- 4.1 Explicit Dereference -- 3176 ------------------------------- 3177 3178 -- EXPLICIT_DEREFERENCE ::= NAME . all 3179 3180 -- N_Explicit_Dereference 3181 -- Sloc points to ALL 3182 -- Prefix (Node3) 3183 -- Actual_Designated_Subtype (Node4-Sem) 3184 -- Atomic_Sync_Required (Flag14-Sem) 3185 -- Has_Dereference_Action (Flag13-Sem) 3186 -- plus fields for expression 3187 3188 ------------------------------- 3189 -- 4.1 Implicit Dereference -- 3190 ------------------------------- 3191 3192 -- IMPLICIT_DEREFERENCE ::= NAME 3193 3194 ------------------------------ 3195 -- 4.1.1 Indexed Component -- 3196 ------------------------------ 3197 3198 -- INDEXED_COMPONENT ::= PREFIX (EXPRESSION {, EXPRESSION}) 3199 3200 -- Note: the parser may generate this node in some situations where it 3201 -- should be a function call. The semantic pass must correct this 3202 -- misidentification (which is inevitable at the parser level). 3203 3204 -- N_Indexed_Component 3205 -- Sloc contains a copy of the Sloc value of the Prefix 3206 -- Prefix (Node3) 3207 -- Expressions (List1) 3208 -- Atomic_Sync_Required (Flag14-Sem) 3209 -- plus fields for expression 3210 3211 -- Note: if any of the subscripts requires a range check, then the 3212 -- Do_Range_Check flag is set on the corresponding expression, with 3213 -- the index type being determined from the type of the Prefix, which 3214 -- references the array being indexed. 3215 3216 -- Note: in a fully analyzed and expanded indexed component node, and 3217 -- hence in any such node that gigi sees, if the prefix is an access 3218 -- type, then an explicit dereference operation has been inserted. 3219 3220 ------------------ 3221 -- 4.1.2 Slice -- 3222 ------------------ 3223 3224 -- SLICE ::= PREFIX (DISCRETE_RANGE) 3225 3226 -- Note: an implicit subtype is created to describe the resulting 3227 -- type, so that the bounds of this type are the bounds of the slice. 3228 3229 -- N_Slice 3230 -- Sloc points to first token of prefix 3231 -- Prefix (Node3) 3232 -- Discrete_Range (Node4) 3233 -- plus fields for expression 3234 3235 ------------------------------- 3236 -- 4.1.3 Selected Component -- 3237 ------------------------------- 3238 3239 -- SELECTED_COMPONENT ::= PREFIX . SELECTOR_NAME 3240 3241 -- Note: selected components that are semantically expanded names get 3242 -- changed during semantic processing into the separate N_Expanded_Name 3243 -- node. See description of this node in the section on semantic nodes. 3244 3245 -- N_Selected_Component 3246 -- Sloc points to period 3247 -- Prefix (Node3) 3248 -- Selector_Name (Node2) 3249 -- Associated_Node (Node4-Sem) 3250 -- Do_Discriminant_Check (Flag13-Sem) 3251 -- Is_In_Discriminant_Check (Flag11-Sem) 3252 -- Is_Prefixed_Call (Flag17-Sem) 3253 -- Atomic_Sync_Required (Flag14-Sem) 3254 -- plus fields for expression 3255 3256 -------------------------- 3257 -- 4.1.3 Selector Name -- 3258 -------------------------- 3259 3260 -- SELECTOR_NAME ::= IDENTIFIER | CHARACTER_LITERAL | OPERATOR_SYMBOL 3261 3262 -------------------------------- 3263 -- 4.1.4 Attribute Reference -- 3264 -------------------------------- 3265 3266 -- ATTRIBUTE_REFERENCE ::= PREFIX ' ATTRIBUTE_DESIGNATOR 3267 3268 -- Note: the syntax is quite ambiguous at this point. Consider: 3269 3270 -- A'Length (X) X is part of the attribute designator 3271 -- A'Pos (X) X is an explicit actual parameter of function A'Pos 3272 -- A'Class (X) X is the expression of a type conversion 3273 3274 -- It would be possible for the parser to distinguish these cases 3275 -- by looking at the attribute identifier. However, that would mean 3276 -- more work in introducing new implementation defined attributes, 3277 -- and also it would mean that special processing for attributes 3278 -- would be scattered around, instead of being centralized in the 3279 -- semantic routine that handles an N_Attribute_Reference node. 3280 -- Consequently, the parser in all the above cases stores the 3281 -- expression (X in these examples) as a single element list in 3282 -- in the Expressions field of the N_Attribute_Reference node. 3283 3284 -- Similarly, for attributes like Max which take two arguments, 3285 -- we store the two arguments as a two element list in the 3286 -- Expressions field. Of course it is clear at parse time that 3287 -- this case is really a function call with an attribute as the 3288 -- prefix, but it turns out to be convenient to handle the two 3289 -- argument case in a similar manner to the one argument case, 3290 -- and indeed in general the parser will accept any number of 3291 -- expressions in this position and store them as a list in the 3292 -- attribute reference node. This allows for future addition of 3293 -- attributes that take more than two arguments. 3294 3295 -- Note: named associates are not permitted in function calls where 3296 -- the function is an attribute (see RM 6.4(3)) so it is legitimate 3297 -- to skip the normal subprogram argument processing. 3298 3299 -- Note: for the attributes whose designators are technically keywords, 3300 -- i.e. digits, access, delta, range, the Attribute_Name field contains 3301 -- the corresponding name, even though no identifier is involved. 3302 3303 -- Note: the generated code may contain stream attributes applied to 3304 -- limited types for which no stream routines exist officially. In such 3305 -- case, the result is to use the stream attribute for the underlying 3306 -- full type, or in the case of a protected type, the components 3307 -- (including any discriminants) are merely streamed in order. 3308 3309 -- See Exp_Attr for a complete description of which attributes are 3310 -- passed onto Gigi, and which are handled entirely by the front end. 3311 3312 -- Gigi restriction: For the Pos attribute, the prefix cannot be 3313 -- a non-standard enumeration type or a nonzero/zero semantics 3314 -- boolean type, so the value is simply the stored representation. 3315 3316 -- Gigi requirement: For the Mechanism_Code attribute, if the prefix 3317 -- references a subprogram that is a renaming, then the front end must 3318 -- rewrite the attribute to refer directly to the renamed entity. 3319 3320 -- Note: In generated code, the Address and Unrestricted_Access 3321 -- attributes can be applied to any expression, and the meaning is 3322 -- to create an object containing the value (the object is in the 3323 -- current stack frame), and pass the address of this value. If the 3324 -- Must_Be_Byte_Aligned flag is set, then the object whose address 3325 -- is taken must be on a byte (storage unit) boundary, and if it is 3326 -- not (or may not be), then the generated code must create a copy 3327 -- that is byte aligned, and pass the address of this copy. 3328 3329 -- N_Attribute_Reference 3330 -- Sloc points to apostrophe 3331 -- Prefix (Node3) 3332 -- Attribute_Name (Name2) identifier name from attribute designator 3333 -- Expressions (List1) (set to No_List if no associated expressions) 3334 -- Entity (Node4-Sem) used if the attribute yields a type 3335 -- Associated_Node (Node4-Sem) 3336 -- Do_Overflow_Check (Flag17-Sem) 3337 -- Header_Size_Added (Flag11-Sem) 3338 -- Redundant_Use (Flag13-Sem) 3339 -- Must_Be_Byte_Aligned (Flag14) 3340 -- plus fields for expression 3341 3342 --------------------------------- 3343 -- 4.1.4 Attribute Designator -- 3344 --------------------------------- 3345 3346 -- ATTRIBUTE_DESIGNATOR ::= 3347 -- IDENTIFIER [(static_EXPRESSION)] 3348 -- | access | delta | digits 3349 3350 -- There is no explicit node in the tree for an attribute designator. 3351 -- Instead the Attribute_Name and Expressions fields of the parent 3352 -- node (N_Attribute_Reference node) hold the information. 3353 3354 -- Note: if ACCESS, DELTA or DIGITS appears in an attribute 3355 -- designator, then they are treated as identifiers internally 3356 -- rather than the keywords of the same name. 3357 3358 -------------------------------------- 3359 -- 4.1.4 Range Attribute Reference -- 3360 -------------------------------------- 3361 3362 -- RANGE_ATTRIBUTE_REFERENCE ::= PREFIX ' RANGE_ATTRIBUTE_DESIGNATOR 3363 3364 -- A range attribute reference is represented in the tree using the 3365 -- normal N_Attribute_Reference node. 3366 3367 --------------------------------------- 3368 -- 4.1.4 Range Attribute Designator -- 3369 --------------------------------------- 3370 3371 -- RANGE_ATTRIBUTE_DESIGNATOR ::= Range [(static_EXPRESSION)] 3372 3373 -- A range attribute designator is represented in the tree using the 3374 -- normal N_Attribute_Reference node. 3375 3376 -------------------- 3377 -- 4.3 Aggregate -- 3378 -------------------- 3379 3380 -- AGGREGATE ::= 3381 -- RECORD_AGGREGATE | EXTENSION_AGGREGATE | ARRAY_AGGREGATE 3382 3383 ----------------------------- 3384 -- 4.3.1 Record Aggregate -- 3385 ----------------------------- 3386 3387 -- RECORD_AGGREGATE ::= (RECORD_COMPONENT_ASSOCIATION_LIST) 3388 3389 -- N_Aggregate 3390 -- Sloc points to left parenthesis 3391 -- Expressions (List1) (set to No_List if none or null record case) 3392 -- Component_Associations (List2) (set to No_List if none) 3393 -- Null_Record_Present (Flag17) 3394 -- Aggregate_Bounds (Node3-Sem) 3395 -- Associated_Node (Node4-Sem) 3396 -- Compile_Time_Known_Aggregate (Flag18-Sem) 3397 -- Expansion_Delayed (Flag11-Sem) 3398 -- Has_Self_Reference (Flag13-Sem) 3399 -- plus fields for expression 3400 3401 -- Note: this structure is used for both record and array aggregates 3402 -- since the two cases are not separable by the parser. The parser 3403 -- makes no attempt to enforce consistency here, so it is up to the 3404 -- semantic phase to make sure that the aggregate is consistent (i.e. 3405 -- that it is not a "half-and-half" case that mixes record and array 3406 -- syntax. In particular, for a record aggregate, the expressions 3407 -- field will be set if there are positional associations. 3408 3409 -- Note: N_Aggregate is not used for all aggregates; in particular, 3410 -- there is a separate node kind for extension aggregates. 3411 3412 -- Note: gigi/gcc can handle array aggregates correctly providing that 3413 -- they are entirely positional, and the array subtype involved has a 3414 -- known at compile time length and is not bit packed, or a convention 3415 -- Fortran array with more than one dimension. If these conditions 3416 -- are not met, then the front end must translate the aggregate into 3417 -- an appropriate set of assignments into a temporary. 3418 3419 -- Note: for the record aggregate case, gigi/gcc can handle all cases of 3420 -- record aggregates, including those for packed, and rep-claused 3421 -- records, and also variant records, providing that there are no 3422 -- variable length fields whose size is not known at compile time, and 3423 -- providing that the aggregate is presented in fully named form. 3424 3425 ---------------------------------------------- 3426 -- 4.3.1 Record Component Association List -- 3427 ---------------------------------------------- 3428 3429 -- RECORD_COMPONENT_ASSOCIATION_LIST ::= 3430 -- RECORD_COMPONENT_ASSOCIATION {, RECORD_COMPONENT_ASSOCIATION} 3431 -- | null record 3432 3433 -- There is no explicit node in the tree for a record component 3434 -- association list. Instead the Null_Record_Present flag is set in 3435 -- the parent node for the NULL RECORD case. 3436 3437 ------------------------------------------------------ 3438 -- 4.3.1 Record Component Association (also 4.3.3) -- 3439 ------------------------------------------------------ 3440 3441 -- RECORD_COMPONENT_ASSOCIATION ::= 3442 -- [COMPONENT_CHOICE_LIST =>] EXPRESSION 3443 3444 -- N_Component_Association 3445 -- Sloc points to first selector name 3446 -- Choices (List1) 3447 -- Loop_Actions (List2-Sem) 3448 -- Expression (Node3) 3449 -- Box_Present (Flag15) 3450 -- Inherited_Discriminant (Flag13) 3451 3452 -- Note: this structure is used for both record component associations 3453 -- and array component associations, since the two cases aren't always 3454 -- separable by the parser. The choices list may represent either a 3455 -- list of selector names in the record aggregate case, or a list of 3456 -- discrete choices in the array aggregate case or an N_Others_Choice 3457 -- node (which appears as a singleton list). Box_Present gives support 3458 -- to Ada 2005 (AI-287). 3459 3460 ---------------------------------- 3461 -- 4.3.1 Component Choice List -- 3462 ---------------------------------- 3463 3464 -- COMPONENT_CHOICE_LIST ::= 3465 -- component_SELECTOR_NAME {| component_SELECTOR_NAME} 3466 -- | others 3467 3468 -- The entries of a component choice list appear in the Choices list of 3469 -- the associated N_Component_Association, as either selector names, or 3470 -- as an N_Others_Choice node. 3471 3472 -------------------------------- 3473 -- 4.3.2 Extension Aggregate -- 3474 -------------------------------- 3475 3476 -- EXTENSION_AGGREGATE ::= 3477 -- (ANCESTOR_PART with RECORD_COMPONENT_ASSOCIATION_LIST) 3478 3479 -- Note: extension aggregates are not permitted in Ada 83 mode 3480 3481 -- N_Extension_Aggregate 3482 -- Sloc points to left parenthesis 3483 -- Ancestor_Part (Node3) 3484 -- Associated_Node (Node4-Sem) 3485 -- Expressions (List1) (set to No_List if none or null record case) 3486 -- Component_Associations (List2) (set to No_List if none) 3487 -- Null_Record_Present (Flag17) 3488 -- Expansion_Delayed (Flag11-Sem) 3489 -- Has_Self_Reference (Flag13-Sem) 3490 -- plus fields for expression 3491 3492 -------------------------- 3493 -- 4.3.2 Ancestor Part -- 3494 -------------------------- 3495 3496 -- ANCESTOR_PART ::= EXPRESSION | SUBTYPE_MARK 3497 3498 ---------------------------- 3499 -- 4.3.3 Array Aggregate -- 3500 ---------------------------- 3501 3502 -- ARRAY_AGGREGATE ::= 3503 -- POSITIONAL_ARRAY_AGGREGATE | NAMED_ARRAY_AGGREGATE 3504 3505 --------------------------------------- 3506 -- 4.3.3 Positional Array Aggregate -- 3507 --------------------------------------- 3508 3509 -- POSITIONAL_ARRAY_AGGREGATE ::= 3510 -- (EXPRESSION, EXPRESSION {, EXPRESSION}) 3511 -- | (EXPRESSION {, EXPRESSION}, others => EXPRESSION) 3512 3513 -- See Record_Aggregate (4.3.1) for node structure 3514 3515 ---------------------------------- 3516 -- 4.3.3 Named Array Aggregate -- 3517 ---------------------------------- 3518 3519 -- NAMED_ARRAY_AGGREGATE ::= 3520 -- | (ARRAY_COMPONENT_ASSOCIATION {, ARRAY_COMPONENT_ASSOCIATION}) 3521 3522 -- See Record_Aggregate (4.3.1) for node structure 3523 3524 ---------------------------------------- 3525 -- 4.3.3 Array Component Association -- 3526 ---------------------------------------- 3527 3528 -- ARRAY_COMPONENT_ASSOCIATION ::= 3529 -- DISCRETE_CHOICE_LIST => EXPRESSION 3530 3531 -- See Record_Component_Association (4.3.1) for node structure 3532 3533 -------------------------------------------------- 3534 -- 4.4 Expression/Relation/Term/Factor/Primary -- 3535 -------------------------------------------------- 3536 3537 -- EXPRESSION ::= 3538 -- RELATION {LOGICAL_OPERATOR RELATION} 3539 3540 -- CHOICE_EXPRESSION ::= 3541 -- CHOICE_RELATION {LOGICAL_OPERATOR CHOICE_RELATION} 3542 3543 -- CHOICE_RELATION ::= 3544 -- SIMPLE_EXPRESSION [RELATIONAL_OPERATOR SIMPLE_EXPRESSION] 3545 3546 -- RELATION ::= 3547 -- SIMPLE_EXPRESSION [not] in MEMBERSHIP_CHOICE_LIST 3548 3549 -- MEMBERSHIP_CHOICE_LIST ::= 3550 -- MEMBERSHIP_CHOICE {'|' MEMBERSHIP CHOICE} 3551 3552 -- MEMBERSHIP_CHOICE ::= 3553 -- CHOICE_EXPRESSION | RANGE | SUBTYPE_MARK 3554 3555 -- LOGICAL_OPERATOR ::= and | and then | or | or else | xor 3556 3557 -- SIMPLE_EXPRESSION ::= 3558 -- [UNARY_ADDING_OPERATOR] TERM {BINARY_ADDING_OPERATOR TERM} 3559 3560 -- TERM ::= FACTOR {MULTIPLYING_OPERATOR FACTOR} 3561 3562 -- FACTOR ::= PRIMARY [** PRIMARY] | abs PRIMARY | not PRIMARY 3563 3564 -- No nodes are generated for any of these constructs. Instead, the 3565 -- node for the operator appears directly. When we refer to an 3566 -- expression in this description, we mean any of the possible 3567 -- constituent components of an expression (e.g. identifier is 3568 -- an example of an expression). 3569 3570 -- Note: the above syntax is that Ada 2012 syntax which restricts 3571 -- choice relations to simple expressions to avoid ambiguities in 3572 -- some contexts with set membership notation. It has been decided 3573 -- that in retrospect, the Ada 95 change allowing general expressions 3574 -- in this context was a mistake, so we have reverted to the above 3575 -- syntax in Ada 95 and Ada 2005 modes (the restriction to simple 3576 -- expressions was there in Ada 83 from the start). 3577 3578 ------------------ 3579 -- 4.4 Primary -- 3580 ------------------ 3581 3582 -- PRIMARY ::= 3583 -- NUMERIC_LITERAL | null 3584 -- | STRING_LITERAL | AGGREGATE 3585 -- | NAME | QUALIFIED_EXPRESSION 3586 -- | ALLOCATOR | (EXPRESSION) 3587 3588 -- Usually there is no explicit node in the tree for primary. Instead 3589 -- the constituent (e.g. AGGREGATE) appears directly. There are two 3590 -- exceptions. First, there is an explicit node for a null primary. 3591 3592 -- N_Null 3593 -- Sloc points to NULL 3594 -- plus fields for expression 3595 3596 -- Second, the case of (EXPRESSION) is handled specially. Ada requires 3597 -- that the parser keep track of which subexpressions are enclosed 3598 -- in parentheses, and how many levels of parentheses are used. This 3599 -- information is required for optimization purposes, and also for 3600 -- some semantic checks (e.g. (((1))) in a procedure spec does not 3601 -- conform with ((((1)))) in the body). 3602 3603 -- The parentheses are recorded by keeping a Paren_Count field in every 3604 -- subexpression node (it is actually present in all nodes, but only 3605 -- used in subexpression nodes). This count records the number of 3606 -- levels of parentheses. If the number of levels in the source exceeds 3607 -- the maximum accommodated by this count, then the count is simply left 3608 -- at the maximum value. This means that there are some pathological 3609 -- cases of failure to detect conformance failures (e.g. an expression 3610 -- with 500 levels of parens will conform with one with 501 levels), 3611 -- but we do not need to lose sleep over this. 3612 3613 -- Historical note: in versions of GNAT prior to 1.75, there was a node 3614 -- type N_Parenthesized_Expression used to accurately record unlimited 3615 -- numbers of levels of parentheses. However, it turned out to be a 3616 -- real nuisance to have to take into account the possible presence of 3617 -- this node during semantic analysis, since basically parentheses have 3618 -- zero relevance to semantic analysis. 3619 3620 -- Note: the level of parentheses always present in things like 3621 -- aggregates does not count, only the parentheses in the primary 3622 -- (EXPRESSION) affect the setting of the Paren_Count field. 3623 3624 -- 2nd Note: the contents of the Expression field must be ignored (i.e. 3625 -- treated as though it were Empty) if No_Initialization is set True. 3626 3627 -------------------------------------- 3628 -- 4.5 Short Circuit Control Forms -- 3629 -------------------------------------- 3630 3631 -- EXPRESSION ::= 3632 -- RELATION {and then RELATION} | RELATION {or else RELATION} 3633 3634 -- Gigi restriction: For both these control forms, the operand and 3635 -- result types are always Standard.Boolean. The expander inserts the 3636 -- required conversion operations where needed to ensure this is the 3637 -- case. 3638 3639 -- N_And_Then 3640 -- Sloc points to AND of AND THEN 3641 -- Left_Opnd (Node2) 3642 -- Right_Opnd (Node3) 3643 -- Actions (List1-Sem) 3644 -- plus fields for expression 3645 3646 -- N_Or_Else 3647 -- Sloc points to OR of OR ELSE 3648 -- Left_Opnd (Node2) 3649 -- Right_Opnd (Node3) 3650 -- Actions (List1-Sem) 3651 -- plus fields for expression 3652 3653 -- Note: The Actions field is used to hold actions associated with 3654 -- the right hand operand. These have to be treated specially since 3655 -- they are not unconditionally executed. See Insert_Actions for a 3656 -- more detailed description of how these actions are handled. 3657 3658 --------------------------- 3659 -- 4.5 Membership Tests -- 3660 --------------------------- 3661 3662 -- RELATION ::= 3663 -- SIMPLE_EXPRESSION [not] in MEMBERSHIP_CHOICE_LIST 3664 3665 -- MEMBERSHIP_CHOICE_LIST ::= 3666 -- MEMBERSHIP_CHOICE {'|' MEMBERSHIP CHOICE} 3667 3668 -- MEMBERSHIP_CHOICE ::= 3669 -- CHOICE_EXPRESSION | RANGE | SUBTYPE_MARK 3670 3671 -- Note: although the grammar above allows only a range or a subtype 3672 -- mark, the parser in fact will accept any simple expression in place 3673 -- of a subtype mark. This means that the semantic analyzer must be able 3674 -- to deal with, and diagnose a simple expression other than a name for 3675 -- the right operand. This simplifies error recovery in the parser. 3676 3677 -- The Alternatives field below is present only if there is more 3678 -- than one Membership_Choice present (which is legitimate only in 3679 -- Ada 2012 mode) in which case Right_Opnd is Empty, and Alternatives 3680 -- contains the list of choices. In the tree passed to the back end, 3681 -- Alternatives is always No_List, and Right_Opnd is set (i.e. the 3682 -- expansion circuitry expands out the complex set membership case 3683 -- using simple membership operations). 3684 3685 -- Should we rename Alternatives here to Membership_Choices ??? 3686 3687 -- N_In 3688 -- Sloc points to IN 3689 -- Left_Opnd (Node2) 3690 -- Right_Opnd (Node3) 3691 -- Alternatives (List4) (set to No_List if only one set alternative) 3692 -- No_Minimize_Eliminate (Flag17) 3693 -- plus fields for expression 3694 3695 -- N_Not_In 3696 -- Sloc points to NOT of NOT IN 3697 -- Left_Opnd (Node2) 3698 -- Right_Opnd (Node3) 3699 -- Alternatives (List4) (set to No_List if only one set alternative) 3700 -- No_Minimize_Eliminate (Flag17) 3701 -- plus fields for expression 3702 3703 -------------------- 3704 -- 4.5 Operators -- 3705 -------------------- 3706 3707 -- LOGICAL_OPERATOR ::= and | or | xor 3708 3709 -- RELATIONAL_OPERATOR ::= = | /= | < | <= | > | >= 3710 3711 -- BINARY_ADDING_OPERATOR ::= + | - | & 3712 3713 -- UNARY_ADDING_OPERATOR ::= + | - 3714 3715 -- MULTIPLYING_OPERATOR ::= * | / | mod | rem 3716 3717 -- HIGHEST_PRECEDENCE_OPERATOR ::= ** | abs | not 3718 3719 -- Sprint syntax if Treat_Fixed_As_Integer is set: 3720 3721 -- x #* y 3722 -- x #/ y 3723 -- x #mod y 3724 -- x #rem y 3725 3726 -- Gigi restriction: For * / mod rem with fixed-point operands, Gigi 3727 -- will only be given nodes with the Treat_Fixed_As_Integer flag set. 3728 -- All handling of smalls for multiplication and division is handled 3729 -- by the front end (mod and rem result only from expansion). Gigi 3730 -- thus never needs to worry about small values (for other operators 3731 -- operating on fixed-point, e.g. addition, the small value does not 3732 -- have any semantic effect anyway, these are always integer operations. 3733 3734 -- Gigi restriction: For all operators taking Boolean operands, the 3735 -- type is always Standard.Boolean. The expander inserts the required 3736 -- conversion operations where needed to ensure this is the case. 3737 3738 -- N_Op_And 3739 -- Sloc points to AND 3740 -- Do_Length_Check (Flag4-Sem) 3741 -- plus fields for binary operator 3742 -- plus fields for expression 3743 3744 -- N_Op_Or 3745 -- Sloc points to OR 3746 -- Do_Length_Check (Flag4-Sem) 3747 -- plus fields for binary operator 3748 -- plus fields for expression 3749 3750 -- N_Op_Xor 3751 -- Sloc points to XOR 3752 -- Do_Length_Check (Flag4-Sem) 3753 -- plus fields for binary operator 3754 -- plus fields for expression 3755 3756 -- N_Op_Eq 3757 -- Sloc points to = 3758 -- plus fields for binary operator 3759 -- plus fields for expression 3760 3761 -- N_Op_Ne 3762 -- Sloc points to /= 3763 -- plus fields for binary operator 3764 -- plus fields for expression 3765 3766 -- N_Op_Lt 3767 -- Sloc points to < 3768 -- plus fields for binary operator 3769 -- plus fields for expression 3770 3771 -- N_Op_Le 3772 -- Sloc points to <= 3773 -- plus fields for binary operator 3774 -- plus fields for expression 3775 3776 -- N_Op_Gt 3777 -- Sloc points to > 3778 -- plus fields for binary operator 3779 -- plus fields for expression 3780 3781 -- N_Op_Ge 3782 -- Sloc points to >= 3783 -- plus fields for binary operator 3784 -- plus fields for expression 3785 3786 -- N_Op_Add 3787 -- Sloc points to + (binary) 3788 -- plus fields for binary operator 3789 -- plus fields for expression 3790 3791 -- N_Op_Subtract 3792 -- Sloc points to - (binary) 3793 -- plus fields for binary operator 3794 -- plus fields for expression 3795 3796 -- N_Op_Concat 3797 -- Sloc points to & 3798 -- Is_Component_Left_Opnd (Flag13-Sem) 3799 -- Is_Component_Right_Opnd (Flag14-Sem) 3800 -- plus fields for binary operator 3801 -- plus fields for expression 3802 3803 -- N_Op_Multiply 3804 -- Sloc points to * 3805 -- Treat_Fixed_As_Integer (Flag14-Sem) 3806 -- Rounded_Result (Flag18-Sem) 3807 -- plus fields for binary operator 3808 -- plus fields for expression 3809 3810 -- N_Op_Divide 3811 -- Sloc points to / 3812 -- Treat_Fixed_As_Integer (Flag14-Sem) 3813 -- Do_Division_Check (Flag13-Sem) 3814 -- Rounded_Result (Flag18-Sem) 3815 -- plus fields for binary operator 3816 -- plus fields for expression 3817 3818 -- N_Op_Mod 3819 -- Sloc points to MOD 3820 -- Treat_Fixed_As_Integer (Flag14-Sem) 3821 -- Do_Division_Check (Flag13-Sem) 3822 -- plus fields for binary operator 3823 -- plus fields for expression 3824 3825 -- N_Op_Rem 3826 -- Sloc points to REM 3827 -- Treat_Fixed_As_Integer (Flag14-Sem) 3828 -- Do_Division_Check (Flag13-Sem) 3829 -- plus fields for binary operator 3830 -- plus fields for expression 3831 3832 -- N_Op_Expon 3833 -- Is_Power_Of_2_For_Shift (Flag13-Sem) 3834 -- Sloc points to ** 3835 -- plus fields for binary operator 3836 -- plus fields for expression 3837 3838 -- N_Op_Plus 3839 -- Sloc points to + (unary) 3840 -- plus fields for unary operator 3841 -- plus fields for expression 3842 3843 -- N_Op_Minus 3844 -- Sloc points to - (unary) 3845 -- plus fields for unary operator 3846 -- plus fields for expression 3847 3848 -- N_Op_Abs 3849 -- Sloc points to ABS 3850 -- plus fields for unary operator 3851 -- plus fields for expression 3852 3853 -- N_Op_Not 3854 -- Sloc points to NOT 3855 -- plus fields for unary operator 3856 -- plus fields for expression 3857 3858 -- See also shift operators in section B.2 3859 3860 -- Note on fixed-point operations passed to Gigi: For adding operators, 3861 -- the semantics is to treat these simply as integer operations, with 3862 -- the small values being ignored (the bounds are already stored in 3863 -- units of small, so that constraint checking works as usual). For the 3864 -- case of multiply/divide/rem/mod operations, Gigi will only see fixed 3865 -- point operands if the Treat_Fixed_As_Integer flag is set and will 3866 -- thus treat these nodes in identical manner, ignoring small values. 3867 3868 -- Note on overflow handling: When the overflow checking mode is set to 3869 -- MINIMIZED or ELIMINATED, nodes for signed arithmetic operations may 3870 -- be modified to use a larger type for the operands and result. In 3871 -- the case where the computed range exceeds that of Long_Long_Integer, 3872 -- and we are running in ELIMINATED mode, the operator node will be 3873 -- changed to be a call to the appropriate routine in System.Bignums. 3874 3875 ------------------------------------ 3876 -- 4.5.7 Conditional Expressions -- 3877 ------------------------------------ 3878 3879 -- CONDITIONAL_EXPRESSION ::= IF_EXPRESSION | CASE_EXPRESSION 3880 3881 -------------------------- 3882 -- 4.5.7 If Expression -- 3883 ---------------------------- 3884 3885 -- IF_EXPRESSION ::= 3886 -- if CONDITION then DEPENDENT_EXPRESSION 3887 -- {elsif CONDITION then DEPENDENT_EXPRESSION} 3888 -- [else DEPENDENT_EXPRESSION] 3889 3890 -- DEPENDENT_EXPRESSION ::= EXPRESSION 3891 3892 -- Note: if we have (IF x1 THEN x2 ELSIF x3 THEN x4 ELSE x5) then it 3893 -- is represented as (IF x1 THEN x2 ELSE (IF x3 THEN x4 ELSE x5)) and 3894 -- the Is_Elsif flag is set on the inner if expression. 3895 3896 -- N_If_Expression 3897 -- Sloc points to IF or ELSIF keyword 3898 -- Expressions (List1) 3899 -- Then_Actions (List2-Sem) 3900 -- Else_Actions (List3-Sem) 3901 -- Is_Elsif (Flag13) (set if comes from ELSIF) 3902 -- Do_Overflow_Check (Flag17-Sem) 3903 -- plus fields for expression 3904 3905 -- Expressions here is a three-element list, whose first element is the 3906 -- condition, the second element is the dependent expression after THEN 3907 -- and the third element is the dependent expression after the ELSE 3908 -- (explicitly set to True if missing). 3909 3910 -- Note: the Then_Actions and Else_Actions fields are always set to 3911 -- No_List in the tree passed to Gigi. These fields are used only 3912 -- for temporary processing purposes in the expander. 3913 3914 ---------------------------- 3915 -- 4.5.7 Case Expression -- 3916 ---------------------------- 3917 3918 -- CASE_EXPRESSION ::= 3919 -- case SELECTING_EXPRESSION is 3920 -- CASE_EXPRESSION_ALTERNATIVE 3921 -- {CASE_EXPRESSION_ALTERNATIVE} 3922 3923 -- Note that the Alternatives cannot include pragmas (this contrasts 3924 -- with the situation of case statements where pragmas are allowed). 3925 3926 -- N_Case_Expression 3927 -- Sloc points to CASE 3928 -- Expression (Node3) (the selecting expression) 3929 -- Alternatives (List4) (the case expression alternatives) 3930 -- Do_Overflow_Check (Flag17-Sem) 3931 3932 ---------------------------------------- 3933 -- 4.5.7 Case Expression Alternative -- 3934 ---------------------------------------- 3935 3936 -- CASE_EXPRESSION_ALTERNATIVE ::= 3937 -- when DISCRETE_CHOICE_LIST => 3938 -- DEPENDENT_EXPRESSION 3939 3940 -- N_Case_Expression_Alternative 3941 -- Sloc points to WHEN 3942 -- Actions (List1) 3943 -- Discrete_Choices (List4) 3944 -- Expression (Node3) 3945 3946 -- Note: The Actions field temporarily holds any actions associated with 3947 -- evaluation of the Expression. During expansion of the case expression 3948 -- these actions are wrapped into an N_Expressions_With_Actions node 3949 -- replacing the original expression. 3950 3951 --------------------------------- 3952 -- 4.5.9 Quantified Expression -- 3953 --------------------------------- 3954 3955 -- QUANTIFIED_EXPRESSION ::= 3956 -- for QUANTIFIER LOOP_PARAMETER_SPECIFICATION => PREDICATE 3957 -- | for QUANTIFIER ITERATOR_SPECIFICATION => PREDICATE 3958 -- 3959 -- QUANTIFIER ::= all | some 3960 3961 -- At most one of (Iterator_Specification, Loop_Parameter_Specification) 3962 -- is present at a time, in which case the other one is empty. 3963 3964 -- N_Quantified_Expression 3965 -- Sloc points to FOR 3966 -- Iterator_Specification (Node2) 3967 -- Loop_Parameter_Specification (Node4) 3968 -- Condition (Node1) 3969 -- All_Present (Flag15) 3970 3971 -------------------------- 3972 -- 4.6 Type Conversion -- 3973 -------------------------- 3974 3975 -- TYPE_CONVERSION ::= 3976 -- SUBTYPE_MARK (EXPRESSION) | SUBTYPE_MARK (NAME) 3977 3978 -- In the (NAME) case, the name is stored as the expression 3979 3980 -- Note: the parser never generates a type conversion node, since it 3981 -- looks like an indexed component which is generated by preference. 3982 -- The semantic pass must correct this misidentification. 3983 3984 -- Gigi handles conversions that involve no change in the root type, 3985 -- and also all conversions from integer to floating-point types. 3986 -- Conversions from floating-point to integer are only handled in 3987 -- the case where Float_Truncate flag set. Other conversions from 3988 -- floating-point to integer (involving rounding) and all conversions 3989 -- involving fixed-point types are handled by the expander. 3990 3991 -- Sprint syntax if Float_Truncate set: X^(Y) 3992 -- Sprint syntax if Conversion_OK set X?(Y) 3993 -- Sprint syntax if both flags set X?^(Y) 3994 3995 -- Note: If either the operand or result type is fixed-point, Gigi will 3996 -- only see a type conversion node with Conversion_OK set. The front end 3997 -- takes care of all handling of small's for fixed-point conversions. 3998 3999 -- N_Type_Conversion 4000 -- Sloc points to first token of subtype mark 4001 -- Subtype_Mark (Node4) 4002 -- Expression (Node3) 4003 -- Do_Tag_Check (Flag13-Sem) 4004 -- Do_Length_Check (Flag4-Sem) 4005 -- Do_Overflow_Check (Flag17-Sem) 4006 -- Float_Truncate (Flag11-Sem) 4007 -- Rounded_Result (Flag18-Sem) 4008 -- Conversion_OK (Flag14-Sem) 4009 -- plus fields for expression 4010 4011 -- Note: if a range check is required, then the Do_Range_Check flag 4012 -- is set in the Expression with the check being done against the 4013 -- target type range (after the base type conversion, if any). 4014 4015 ------------------------------- 4016 -- 4.7 Qualified Expression -- 4017 ------------------------------- 4018 4019 -- QUALIFIED_EXPRESSION ::= 4020 -- SUBTYPE_MARK ' (EXPRESSION) | SUBTYPE_MARK ' AGGREGATE 4021 4022 -- Note: the parentheses in the (EXPRESSION) case are deemed to enclose 4023 -- the expression, so the Expression field of this node always points 4024 -- to a parenthesized expression in this case (i.e. Paren_Count will 4025 -- always be non-zero for the referenced expression if it is not an 4026 -- aggregate). 4027 4028 -- N_Qualified_Expression 4029 -- Sloc points to apostrophe 4030 -- Subtype_Mark (Node4) 4031 -- Expression (Node3) expression or aggregate 4032 -- plus fields for expression 4033 4034 -------------------- 4035 -- 4.8 Allocator -- 4036 -------------------- 4037 4038 -- ALLOCATOR ::= 4039 -- new [SUBPOOL_SPECIFICATION] SUBTYPE_INDICATION 4040 -- | new [SUBPOOL_SPECIFICATION] QUALIFIED_EXPRESSION 4041 -- 4042 -- SUBPOOL_SPECIFICATION ::= (subpool_handle_NAME) 4043 4044 -- Sprint syntax (when storage pool present) 4045 -- new xxx (storage_pool = pool) 4046 -- or 4047 -- new (subpool) xxx (storage_pool = pool) 4048 4049 -- N_Allocator 4050 -- Sloc points to NEW 4051 -- Expression (Node3) subtype indication or qualified expression 4052 -- Subpool_Handle_Name (Node4) (set to Empty if not present) 4053 -- Storage_Pool (Node1-Sem) 4054 -- Procedure_To_Call (Node2-Sem) 4055 -- Null_Exclusion_Present (Flag11) 4056 -- No_Initialization (Flag13-Sem) 4057 -- Is_Static_Coextension (Flag14-Sem) 4058 -- Do_Storage_Check (Flag17-Sem) 4059 -- Is_Dynamic_Coextension (Flag18-Sem) 4060 -- plus fields for expression 4061 4062 -- Note: like all nodes, the N_Allocator has the Comes_From_Source flag. 4063 -- This flag has a special function in conjunction with the restriction 4064 -- No_Implicit_Heap_Allocations, which will be triggered if this flag 4065 -- is not set. This means that if a source allocator is replaced with 4066 -- a constructed allocator, the Comes_From_Source flag should be copied 4067 -- to the newly created allocator. 4068 4069 --------------------------------- 4070 -- 5.1 Sequence Of Statements -- 4071 --------------------------------- 4072 4073 -- SEQUENCE_OF_STATEMENTS ::= STATEMENT {STATEMENT} 4074 4075 -- Note: Although the parser will not accept a declaration as a 4076 -- statement, the semantic analyzer may insert declarations (e.g. 4077 -- declarations of implicit types needed for execution of other 4078 -- statements) into a sequence of statements, so the code generator 4079 -- should be prepared to accept a declaration where a statement is 4080 -- expected. Note also that pragmas can appear as statements. 4081 4082 -------------------- 4083 -- 5.1 Statement -- 4084 -------------------- 4085 4086 -- STATEMENT ::= 4087 -- {LABEL} SIMPLE_STATEMENT | {LABEL} COMPOUND_STATEMENT 4088 4089 -- There is no explicit node in the tree for a statement. Instead, the 4090 -- individual statement appears directly. Labels are treated as a 4091 -- kind of statement, i.e. they are linked into a statement list at 4092 -- the point they appear, so the labeled statement appears following 4093 -- the label or labels in the statement list. 4094 4095 --------------------------- 4096 -- 5.1 Simple Statement -- 4097 --------------------------- 4098 4099 -- SIMPLE_STATEMENT ::= NULL_STATEMENT 4100 -- | ASSIGNMENT_STATEMENT | EXIT_STATEMENT 4101 -- | GOTO_STATEMENT | PROCEDURE_CALL_STATEMENT 4102 -- | SIMPLE_RETURN_STATEMENT | ENTRY_CALL_STATEMENT 4103 -- | REQUEUE_STATEMENT | DELAY_STATEMENT 4104 -- | ABORT_STATEMENT | RAISE_STATEMENT 4105 -- | CODE_STATEMENT 4106 4107 ----------------------------- 4108 -- 5.1 Compound Statement -- 4109 ----------------------------- 4110 4111 -- COMPOUND_STATEMENT ::= 4112 -- IF_STATEMENT | CASE_STATEMENT 4113 -- | LOOP_STATEMENT | BLOCK_STATEMENT 4114 -- | EXTENDED_RETURN_STATEMENT 4115 -- | ACCEPT_STATEMENT | SELECT_STATEMENT 4116 4117 ------------------------- 4118 -- 5.1 Null Statement -- 4119 ------------------------- 4120 4121 -- NULL_STATEMENT ::= null; 4122 4123 -- N_Null_Statement 4124 -- Sloc points to NULL 4125 4126 ---------------- 4127 -- 5.1 Label -- 4128 ---------------- 4129 4130 -- LABEL ::= <<label_STATEMENT_IDENTIFIER>> 4131 4132 -- Note that the occurrence of a label is not a defining identifier, 4133 -- but rather a referencing occurrence. The defining occurrence is 4134 -- in the implicit label declaration which occurs in the innermost 4135 -- enclosing block. 4136 4137 -- N_Label 4138 -- Sloc points to << 4139 -- Identifier (Node1) direct name of statement identifier 4140 -- Exception_Junk (Flag8-Sem) 4141 4142 -- Note: Before Ada 2012, a label is always followed by a statement, 4143 -- and this is true in the tree even in Ada 2012 mode (the parser 4144 -- inserts a null statement marked with Comes_From_Source False). 4145 4146 ------------------------------- 4147 -- 5.1 Statement Identifier -- 4148 ------------------------------- 4149 4150 -- STATEMENT_IDENTIFIER ::= DIRECT_NAME 4151 4152 -- The IDENTIFIER of a STATEMENT_IDENTIFIER shall be an identifier 4153 -- (not an OPERATOR_SYMBOL) 4154 4155 ------------------------------- 4156 -- 5.2 Assignment Statement -- 4157 ------------------------------- 4158 4159 -- ASSIGNMENT_STATEMENT ::= 4160 -- variable_NAME := EXPRESSION; 4161 4162 -- N_Assignment_Statement 4163 -- Sloc points to := 4164 -- Name (Node2) 4165 -- Expression (Node3) 4166 -- Do_Tag_Check (Flag13-Sem) 4167 -- Do_Length_Check (Flag4-Sem) 4168 -- Forwards_OK (Flag5-Sem) 4169 -- Backwards_OK (Flag6-Sem) 4170 -- No_Ctrl_Actions (Flag7-Sem) 4171 -- Componentwise_Assignment (Flag14-Sem) 4172 -- Suppress_Assignment_Checks (Flag18-Sem) 4173 4174 -- Note: if a range check is required, then the Do_Range_Check flag 4175 -- is set in the Expression (right hand side), with the check being 4176 -- done against the type of the Name (left hand side). 4177 4178 -- Note: the back end places some restrictions on the form of the 4179 -- Expression field. If the object being assigned to is Atomic, then 4180 -- the Expression may not have the form of an aggregate (since this 4181 -- might cause the back end to generate separate assignments). In this 4182 -- case the front end must generate an extra temporary and initialize 4183 -- this temporary as required (the temporary itself is not atomic). 4184 4185 ----------------------- 4186 -- 5.3 If Statement -- 4187 ----------------------- 4188 4189 -- IF_STATEMENT ::= 4190 -- if CONDITION then 4191 -- SEQUENCE_OF_STATEMENTS 4192 -- {elsif CONDITION then 4193 -- SEQUENCE_OF_STATEMENTS} 4194 -- [else 4195 -- SEQUENCE_OF_STATEMENTS] 4196 -- end if; 4197 4198 -- Gigi restriction: This expander ensures that the type of the 4199 -- Condition fields is always Standard.Boolean, even if the type 4200 -- in the source is some non-standard boolean type. 4201 4202 -- N_If_Statement 4203 -- Sloc points to IF 4204 -- Condition (Node1) 4205 -- Then_Statements (List2) 4206 -- Elsif_Parts (List3) (set to No_List if none present) 4207 -- Else_Statements (List4) (set to No_List if no else part present) 4208 -- End_Span (Uint5) (set to Uint_0 if expander generated) 4209 4210 -- N_Elsif_Part 4211 -- Sloc points to ELSIF 4212 -- Condition (Node1) 4213 -- Then_Statements (List2) 4214 -- Condition_Actions (List3-Sem) 4215 4216 -------------------- 4217 -- 5.3 Condition -- 4218 -------------------- 4219 4220 -- CONDITION ::= boolean_EXPRESSION 4221 4222 ------------------------- 4223 -- 5.4 Case Statement -- 4224 ------------------------- 4225 4226 -- CASE_STATEMENT ::= 4227 -- case EXPRESSION is 4228 -- CASE_STATEMENT_ALTERNATIVE 4229 -- {CASE_STATEMENT_ALTERNATIVE} 4230 -- end case; 4231 4232 -- Note: the Alternatives can contain pragmas. These only occur at 4233 -- the start of the list, since any pragmas occurring after the first 4234 -- alternative are absorbed into the corresponding statement sequence. 4235 4236 -- N_Case_Statement 4237 -- Sloc points to CASE 4238 -- Expression (Node3) 4239 -- Alternatives (List4) 4240 -- End_Span (Uint5) (set to Uint_0 if expander generated) 4241 4242 -- Note: Before Ada 2012, a pragma in a statement sequence is always 4243 -- followed by a statement, and this is true in the tree even in Ada 4244 -- 2012 mode (the parser inserts a null statement marked with the flag 4245 -- Comes_From_Source False). 4246 4247 ------------------------------------- 4248 -- 5.4 Case Statement Alternative -- 4249 ------------------------------------- 4250 4251 -- CASE_STATEMENT_ALTERNATIVE ::= 4252 -- when DISCRETE_CHOICE_LIST => 4253 -- SEQUENCE_OF_STATEMENTS 4254 4255 -- N_Case_Statement_Alternative 4256 -- Sloc points to WHEN 4257 -- Discrete_Choices (List4) 4258 -- Statements (List3) 4259 4260 ------------------------- 4261 -- 5.5 Loop Statement -- 4262 ------------------------- 4263 4264 -- LOOP_STATEMENT ::= 4265 -- [loop_STATEMENT_IDENTIFIER :] 4266 -- [ITERATION_SCHEME] loop 4267 -- SEQUENCE_OF_STATEMENTS 4268 -- end loop [loop_IDENTIFIER]; 4269 4270 -- Note: The occurrence of a loop label is not a defining identifier 4271 -- but rather a referencing occurrence. The defining occurrence is in 4272 -- the implicit label declaration which occurs in the innermost 4273 -- enclosing block. 4274 4275 -- Note: there is always a loop statement identifier present in 4276 -- the tree, even if none was given in the source. In the case where 4277 -- no loop identifier is given in the source, the parser creates 4278 -- a name of the form _Loop_n, where n is a decimal integer (the 4279 -- two underlines ensure that the loop names created in this manner 4280 -- do not conflict with any user defined identifiers), and the flag 4281 -- Has_Created_Identifier is set to True. The only exception to the 4282 -- rule that all loop statement nodes have identifiers occurs for 4283 -- loops constructed by the expander, and the semantic analyzer will 4284 -- create and supply dummy loop identifiers in these cases. 4285 4286 -- N_Loop_Statement 4287 -- Sloc points to LOOP 4288 -- Identifier (Node1) loop identifier (set to Empty if no identifier) 4289 -- Iteration_Scheme (Node2) (set to Empty if no iteration scheme) 4290 -- Statements (List3) 4291 -- End_Label (Node4) 4292 -- Has_Created_Identifier (Flag15) 4293 -- Is_Null_Loop (Flag16) 4294 -- Suppress_Loop_Warnings (Flag17) 4295 4296 -- Note: the parser fills in the Identifier field if there is an 4297 -- explicit loop identifier. Otherwise the parser leaves this field 4298 -- set to Empty, and then the semantic processing for a loop statement 4299 -- creates an identifier, setting the Has_Created_Identifier flag to 4300 -- True. So after semantic analysis, the Identifier is always set, 4301 -- referencing an identifier whose entity has an Ekind of E_Loop. 4302 4303 --------------------------- 4304 -- 5.5 Iteration Scheme -- 4305 --------------------------- 4306 4307 -- ITERATION_SCHEME ::= 4308 -- while CONDITION 4309 -- | for LOOP_PARAMETER_SPECIFICATION 4310 -- | for ITERATOR_SPECIFICATION 4311 4312 -- At most one of (Iterator_Specification, Loop_Parameter_Specification) 4313 -- is present at a time, in which case the other one is empty. Both are 4314 -- empty in the case of a WHILE loop. 4315 4316 -- Gigi restriction: This expander ensures that the type of the 4317 -- Condition field is always Standard.Boolean, even if the type 4318 -- in the source is some non-standard boolean type. 4319 4320 -- N_Iteration_Scheme 4321 -- Sloc points to WHILE or FOR 4322 -- Condition (Node1) (set to Empty if FOR case) 4323 -- Condition_Actions (List3-Sem) 4324 -- Iterator_Specification (Node2) (set to Empty if WHILE case) 4325 -- Loop_Parameter_Specification (Node4) (set to Empty if WHILE case) 4326 4327 --------------------------------------- 4328 -- 5.5 Loop Parameter Specification -- 4329 --------------------------------------- 4330 4331 -- LOOP_PARAMETER_SPECIFICATION ::= 4332 -- DEFINING_IDENTIFIER in [reverse] DISCRETE_SUBTYPE_DEFINITION 4333 4334 -- N_Loop_Parameter_Specification 4335 -- Sloc points to first identifier 4336 -- Defining_Identifier (Node1) 4337 -- Reverse_Present (Flag15) 4338 -- Discrete_Subtype_Definition (Node4) 4339 4340 ----------------------------------- 4341 -- 5.5.1 Iterator Specification -- 4342 ----------------------------------- 4343 4344 -- ITERATOR_SPECIFICATION ::= 4345 -- DEFINING_IDENTIFIER in [reverse] NAME 4346 -- | DEFINING_IDENTIFIER [: SUBTYPE_INDICATION] of [reverse] NAME 4347 4348 -- N_Iterator_Specification 4349 -- Sloc points to defining identifier 4350 -- Defining_Identifier (Node1) 4351 -- Name (Node2) 4352 -- Reverse_Present (Flag15) 4353 -- Of_Present (Flag16) 4354 -- Subtype_Indication (Node5) 4355 4356 -- Note: The Of_Present flag distinguishes the two forms 4357 4358 -------------------------- 4359 -- 5.6 Block Statement -- 4360 -------------------------- 4361 4362 -- BLOCK_STATEMENT ::= 4363 -- [block_STATEMENT_IDENTIFIER:] 4364 -- [declare 4365 -- DECLARATIVE_PART] 4366 -- begin 4367 -- HANDLED_SEQUENCE_OF_STATEMENTS 4368 -- end [block_IDENTIFIER]; 4369 4370 -- Note that the occurrence of a block identifier is not a defining 4371 -- identifier, but rather a referencing occurrence. The defining 4372 -- occurrence is an E_Block entity declared by the implicit label 4373 -- declaration which occurs in the innermost enclosing block statement 4374 -- or body; the block identifier denotes that E_Block. 4375 4376 -- For block statements that come from source code, there is always a 4377 -- block statement identifier present in the tree, denoting an 4378 -- E_Block. In the case where no block identifier is given in the 4379 -- source, the parser creates a name of the form B_n, where n is a 4380 -- decimal integer, and the flag Has_Created_Identifier is set to 4381 -- True. Blocks constructed by the expander usually have no identifier, 4382 -- and no corresponding entity. 4383 4384 -- Note: the block statement created for an extended return statement 4385 -- has an entity, and this entity is an E_Return_Statement, rather than 4386 -- the usual E_Block. 4387 4388 -- Note: Exception_Junk is set for the wrapping blocks created during 4389 -- local raise optimization (Exp_Ch11.Expand_Local_Exception_Handlers). 4390 4391 -- Note: from a control flow viewpoint, a block statement defines an 4392 -- extended basic block, i.e. the entry of the block dominates every 4393 -- statement in the sequence. When generating new statements with 4394 -- exception handlers in the expander at the end of a sequence that 4395 -- comes from source code, it can be necessary to wrap them all in a 4396 -- block statement in order to expose the implicit control flow to 4397 -- gigi and thus prevent it from issuing bogus control flow warnings. 4398 4399 -- N_Block_Statement 4400 -- Sloc points to DECLARE or BEGIN 4401 -- Identifier (Node1) block direct name (set to Empty if not present) 4402 -- Declarations (List2) (set to No_List if no DECLARE part) 4403 -- Handled_Statement_Sequence (Node4) 4404 -- Is_Task_Master (Flag5-Sem) 4405 -- Activation_Chain_Entity (Node3-Sem) 4406 -- Has_Created_Identifier (Flag15) 4407 -- Is_Task_Allocation_Block (Flag6) 4408 -- Is_Asynchronous_Call_Block (Flag7) 4409 -- Exception_Junk (Flag8-Sem) 4410 -- Is_Finalization_Wrapper (Flag9-Sem) 4411 4412 ------------------------- 4413 -- 5.7 Exit Statement -- 4414 ------------------------- 4415 4416 -- EXIT_STATEMENT ::= exit [loop_NAME] [when CONDITION]; 4417 4418 -- Gigi restriction: This expander ensures that the type of the 4419 -- Condition field is always Standard.Boolean, even if the type 4420 -- in the source is some non-standard boolean type. 4421 4422 -- N_Exit_Statement 4423 -- Sloc points to EXIT 4424 -- Name (Node2) (set to Empty if no loop name present) 4425 -- Condition (Node1) (set to Empty if no WHEN part present) 4426 -- Next_Exit_Statement (Node3-Sem): Next exit on chain 4427 4428 ------------------------- 4429 -- 5.9 Goto Statement -- 4430 ------------------------- 4431 4432 -- GOTO_STATEMENT ::= goto label_NAME; 4433 4434 -- N_Goto_Statement 4435 -- Sloc points to GOTO 4436 -- Name (Node2) 4437 -- Exception_Junk (Flag8-Sem) 4438 4439 --------------------------------- 4440 -- 6.1 Subprogram Declaration -- 4441 --------------------------------- 4442 4443 -- SUBPROGRAM_DECLARATION ::= 4444 -- SUBPROGRAM_SPECIFICATION 4445 -- [ASPECT_SPECIFICATIONS]; 4446 4447 -- N_Subprogram_Declaration 4448 -- Sloc points to FUNCTION or PROCEDURE 4449 -- Specification (Node1) 4450 -- Body_To_Inline (Node3-Sem) 4451 -- Corresponding_Body (Node5-Sem) 4452 -- Parent_Spec (Node4-Sem) 4453 4454 ------------------------------------------ 4455 -- 6.1 Abstract Subprogram Declaration -- 4456 ------------------------------------------ 4457 4458 -- ABSTRACT_SUBPROGRAM_DECLARATION ::= 4459 -- SUBPROGRAM_SPECIFICATION is abstract 4460 -- [ASPECT_SPECIFICATIONS]; 4461 4462 -- N_Abstract_Subprogram_Declaration 4463 -- Sloc points to ABSTRACT 4464 -- Specification (Node1) 4465 4466 ----------------------------------- 4467 -- 6.1 Subprogram Specification -- 4468 ----------------------------------- 4469 4470 -- SUBPROGRAM_SPECIFICATION ::= 4471 -- [[not] overriding] 4472 -- procedure DEFINING_PROGRAM_UNIT_NAME PARAMETER_PROFILE 4473 -- | [[not] overriding] 4474 -- function DEFINING_DESIGNATOR PARAMETER_AND_RESULT_PROFILE 4475 4476 -- Note: there are no separate nodes for the profiles, instead the 4477 -- information appears directly in the following nodes. 4478 4479 -- N_Function_Specification 4480 -- Sloc points to FUNCTION 4481 -- Defining_Unit_Name (Node1) (the designator) 4482 -- Elaboration_Boolean (Node2-Sem) 4483 -- Parameter_Specifications (List3) (set to No_List if no formal part) 4484 -- Null_Exclusion_Present (Flag11) 4485 -- Result_Definition (Node4) for result subtype 4486 -- Generic_Parent (Node5-Sem) 4487 -- Must_Override (Flag14) set if overriding indicator present 4488 -- Must_Not_Override (Flag15) set if not_overriding indicator present 4489 4490 -- N_Procedure_Specification 4491 -- Sloc points to PROCEDURE 4492 -- Defining_Unit_Name (Node1) 4493 -- Elaboration_Boolean (Node2-Sem) 4494 -- Parameter_Specifications (List3) (set to No_List if no formal part) 4495 -- Generic_Parent (Node5-Sem) 4496 -- Null_Present (Flag13) set for null procedure case (Ada 2005 feature) 4497 -- Must_Override (Flag14) set if overriding indicator present 4498 -- Must_Not_Override (Flag15) set if not_overriding indicator present 4499 4500 -- Note: overriding indicator is an Ada 2005 feature 4501 4502 --------------------- 4503 -- 6.1 Designator -- 4504 --------------------- 4505 4506 -- DESIGNATOR ::= 4507 -- [PARENT_UNIT_NAME .] IDENTIFIER | OPERATOR_SYMBOL 4508 4509 -- Designators that are simply identifiers or operator symbols appear 4510 -- directly in the tree in this form. The following node is used only 4511 -- in the case where the designator has a parent unit name component. 4512 4513 -- N_Designator 4514 -- Sloc points to period 4515 -- Name (Node2) holds the parent unit name. Note that this is always 4516 -- non-Empty, since this node is only used for the case where a 4517 -- parent library unit package name is present. 4518 -- Identifier (Node1) 4519 4520 -- Note that the identifier can also be an operator symbol here 4521 4522 ------------------------------ 4523 -- 6.1 Defining Designator -- 4524 ------------------------------ 4525 4526 -- DEFINING_DESIGNATOR ::= 4527 -- DEFINING_PROGRAM_UNIT_NAME | DEFINING_OPERATOR_SYMBOL 4528 4529 ------------------------------------- 4530 -- 6.1 Defining Program Unit Name -- 4531 ------------------------------------- 4532 4533 -- DEFINING_PROGRAM_UNIT_NAME ::= 4534 -- [PARENT_UNIT_NAME .] DEFINING_IDENTIFIER 4535 4536 -- The parent unit name is present only in the case of a child unit 4537 -- name (permissible only for Ada 95 for a library level unit, i.e. 4538 -- a unit at scope level one). If no such name is present, the defining 4539 -- program unit name is represented simply as the defining identifier. 4540 -- In the child unit case, the following node is used to represent the 4541 -- child unit name. 4542 4543 -- N_Defining_Program_Unit_Name 4544 -- Sloc points to period 4545 -- Name (Node2) holds the parent unit name. Note that this is always 4546 -- non-Empty, since this node is only used for the case where a 4547 -- parent unit name is present. 4548 -- Defining_Identifier (Node1) 4549 4550 -------------------------- 4551 -- 6.1 Operator Symbol -- 4552 -------------------------- 4553 4554 -- OPERATOR_SYMBOL ::= STRING_LITERAL 4555 4556 -- Note: the fields of the N_Operator_Symbol node are laid out to 4557 -- match the corresponding fields of an N_Character_Literal node. This 4558 -- allows easy conversion of the operator symbol node into a character 4559 -- literal node in the case where a string constant of the form of an 4560 -- operator symbol is scanned out as such, but turns out semantically 4561 -- to be a string literal that is not an operator. For details see 4562 -- Sinfo.CN.Change_Operator_Symbol_To_String_Literal. 4563 4564 -- N_Operator_Symbol 4565 -- Sloc points to literal 4566 -- Chars (Name1) contains the Name_Id for the operator symbol 4567 -- Strval (Str3) Id of string value. This is used if the operator 4568 -- symbol turns out to be a normal string after all. 4569 -- Entity (Node4-Sem) 4570 -- Associated_Node (Node4-Sem) 4571 -- Has_Private_View (Flag11-Sem) set in generic units. 4572 -- Etype (Node5-Sem) 4573 4574 -- Note: the Strval field may be set to No_String for generated 4575 -- operator symbols that are known not to be string literals 4576 -- semantically. 4577 4578 ----------------------------------- 4579 -- 6.1 Defining Operator Symbol -- 4580 ----------------------------------- 4581 4582 -- DEFINING_OPERATOR_SYMBOL ::= OPERATOR_SYMBOL 4583 4584 -- A defining operator symbol is an entity, which has additional 4585 -- fields depending on the setting of the Ekind field. These 4586 -- additional fields are defined (and access subprograms declared) 4587 -- in package Einfo. 4588 4589 -- Note: N_Defining_Operator_Symbol is an extended node whose fields 4590 -- are deliberately layed out to match the layout of fields in an 4591 -- ordinary N_Operator_Symbol node allowing for easy alteration of 4592 -- an operator symbol node into a defining operator symbol node. 4593 -- See Sinfo.CN.Change_Operator_Symbol_To_Defining_Operator_Symbol 4594 -- for further details. 4595 4596 -- N_Defining_Operator_Symbol 4597 -- Sloc points to literal 4598 -- Chars (Name1) contains the Name_Id for the operator symbol 4599 -- Next_Entity (Node2-Sem) 4600 -- Scope (Node3-Sem) 4601 -- Etype (Node5-Sem) 4602 4603 ---------------------------- 4604 -- 6.1 Parameter Profile -- 4605 ---------------------------- 4606 4607 -- PARAMETER_PROFILE ::= [FORMAL_PART] 4608 4609 --------------------------------------- 4610 -- 6.1 Parameter and Result Profile -- 4611 --------------------------------------- 4612 4613 -- PARAMETER_AND_RESULT_PROFILE ::= 4614 -- [FORMAL_PART] return [NULL_EXCLUSION] SUBTYPE_MARK 4615 -- | [FORMAL_PART] return ACCESS_DEFINITION 4616 4617 -- There is no explicit node in the tree for a parameter and result 4618 -- profile. Instead the information appears directly in the parent. 4619 4620 ---------------------- 4621 -- 6.1 Formal Part -- 4622 ---------------------- 4623 4624 -- FORMAL_PART ::= 4625 -- (PARAMETER_SPECIFICATION {; PARAMETER_SPECIFICATION}) 4626 4627 ---------------------------------- 4628 -- 6.1 Parameter Specification -- 4629 ---------------------------------- 4630 4631 -- PARAMETER_SPECIFICATION ::= 4632 -- DEFINING_IDENTIFIER_LIST : [ALIASED] MODE [NULL_EXCLUSION] 4633 -- SUBTYPE_MARK [:= DEFAULT_EXPRESSION] 4634 -- | DEFINING_IDENTIFIER_LIST : ACCESS_DEFINITION 4635 -- [:= DEFAULT_EXPRESSION] 4636 4637 -- Although the syntax allows multiple identifiers in the list, the 4638 -- semantics is as though successive specifications were given with 4639 -- identical type definition and expression components. To simplify 4640 -- semantic processing, the parser represents a multiple declaration 4641 -- case as a sequence of single Specifications, using the More_Ids and 4642 -- Prev_Ids flags to preserve the original source form as described 4643 -- in the section on "Handling of Defining Identifier Lists". 4644 4645 -- ALIASED can only be present in Ada 2012 mode 4646 4647 -- N_Parameter_Specification 4648 -- Sloc points to first identifier 4649 -- Defining_Identifier (Node1) 4650 -- Aliased_Present (Flag4) 4651 -- In_Present (Flag15) 4652 -- Out_Present (Flag17) 4653 -- Null_Exclusion_Present (Flag11) 4654 -- Parameter_Type (Node2) subtype mark or access definition 4655 -- Expression (Node3) (set to Empty if no default expression present) 4656 -- Do_Accessibility_Check (Flag13-Sem) 4657 -- More_Ids (Flag5) (set to False if no more identifiers in list) 4658 -- Prev_Ids (Flag6) (set to False if no previous identifiers in list) 4659 -- Default_Expression (Node5-Sem) 4660 4661 --------------- 4662 -- 6.1 Mode -- 4663 --------------- 4664 4665 -- MODE ::= [in] | in out | out 4666 4667 -- There is no explicit node in the tree for the Mode. Instead the 4668 -- In_Present and Out_Present flags are set in the parent node to 4669 -- record the presence of keywords specifying the mode. 4670 4671 -------------------------- 4672 -- 6.3 Subprogram Body -- 4673 -------------------------- 4674 4675 -- SUBPROGRAM_BODY ::= 4676 -- SUBPROGRAM_SPECIFICATION is 4677 -- DECLARATIVE_PART 4678 -- begin 4679 -- HANDLED_SEQUENCE_OF_STATEMENTS 4680 -- end [DESIGNATOR]; 4681 4682 -- N_Subprogram_Body 4683 -- Sloc points to FUNCTION or PROCEDURE 4684 -- Specification (Node1) 4685 -- Declarations (List2) 4686 -- Handled_Statement_Sequence (Node4) 4687 -- Activation_Chain_Entity (Node3-Sem) 4688 -- Corresponding_Spec (Node5-Sem) 4689 -- Acts_As_Spec (Flag4-Sem) 4690 -- Bad_Is_Detected (Flag15) used only by parser 4691 -- Do_Storage_Check (Flag17-Sem) 4692 -- Is_Protected_Subprogram_Body (Flag7-Sem) 4693 -- Is_Entry_Barrier_Function (Flag8-Sem) 4694 -- Is_Task_Master (Flag5-Sem) 4695 -- Was_Originally_Stub (Flag13-Sem) 4696 -- Has_Relative_Deadline_Pragma (Flag9-Sem) 4697 4698 ------------------------- 4699 -- Expression Function -- 4700 ------------------------- 4701 4702 -- This is an Ada 2012 extension, we put it here for now, to be labeled 4703 -- and put in its proper section when we know exactly where that is! 4704 4705 -- EXPRESSION_FUNCTION ::= 4706 -- FUNCTION SPECIFICATION IS (EXPRESSION); 4707 4708 -- N_Expression_Function 4709 -- Sloc points to FUNCTION 4710 -- Specification (Node1) 4711 -- Expression (Node3) 4712 -- Corresponding_Spec (Node5-Sem) 4713 4714 ----------------------------------- 4715 -- 6.4 Procedure Call Statement -- 4716 ----------------------------------- 4717 4718 -- PROCEDURE_CALL_STATEMENT ::= 4719 -- procedure_NAME; | procedure_PREFIX ACTUAL_PARAMETER_PART; 4720 4721 -- Note: the reason that a procedure call has expression fields is 4722 -- that it semantically resembles an expression, e.g. overloading is 4723 -- allowed and a type is concocted for semantic processing purposes. 4724 -- Certain of these fields, such as Parens are not relevant, but it 4725 -- is easier to just supply all of them together! 4726 4727 -- N_Procedure_Call_Statement 4728 -- Sloc points to first token of name or prefix 4729 -- Name (Node2) stores name or prefix 4730 -- Parameter_Associations (List3) (set to No_List if no 4731 -- actual parameter part) 4732 -- First_Named_Actual (Node4-Sem) 4733 -- Controlling_Argument (Node1-Sem) (set to Empty if not dispatching) 4734 -- Do_Tag_Check (Flag13-Sem) 4735 -- No_Elaboration_Check (Flag14-Sem) 4736 -- Parameter_List_Truncated (Flag17-Sem) 4737 -- ABE_Is_Certain (Flag18-Sem) 4738 -- plus fields for expression 4739 4740 -- If any IN parameter requires a range check, then the corresponding 4741 -- argument expression has the Do_Range_Check flag set, and the range 4742 -- check is done against the formal type. Note that this argument 4743 -- expression may appear directly in the Parameter_Associations list, 4744 -- or may be a descendent of an N_Parameter_Association node that 4745 -- appears in this list. 4746 4747 ------------------------ 4748 -- 6.4 Function Call -- 4749 ------------------------ 4750 4751 -- FUNCTION_CALL ::= 4752 -- function_NAME | function_PREFIX ACTUAL_PARAMETER_PART 4753 4754 -- Note: the parser may generate an indexed component node or simply 4755 -- a name node instead of a function call node. The semantic pass must 4756 -- correct this misidentification. 4757 4758 -- N_Function_Call 4759 -- Sloc points to first token of name or prefix 4760 -- Name (Node2) stores name or prefix 4761 -- Parameter_Associations (List3) (set to No_List if no 4762 -- actual parameter part) 4763 -- First_Named_Actual (Node4-Sem) 4764 -- Controlling_Argument (Node1-Sem) (set to Empty if not dispatching) 4765 -- In_Assertion (Flag4-Sem) 4766 -- Is_Expanded_Build_In_Place_Call (Flag11-Sem) 4767 -- Do_Tag_Check (Flag13-Sem) 4768 -- No_Elaboration_Check (Flag14-Sem) 4769 -- Parameter_List_Truncated (Flag17-Sem) 4770 -- ABE_Is_Certain (Flag18-Sem) 4771 -- plus fields for expression 4772 4773 -------------------------------- 4774 -- 6.4 Actual Parameter Part -- 4775 -------------------------------- 4776 4777 -- ACTUAL_PARAMETER_PART ::= 4778 -- (PARAMETER_ASSOCIATION {,PARAMETER_ASSOCIATION}) 4779 4780 -------------------------------- 4781 -- 6.4 Parameter Association -- 4782 -------------------------------- 4783 4784 -- PARAMETER_ASSOCIATION ::= 4785 -- [formal_parameter_SELECTOR_NAME =>] EXPLICIT_ACTUAL_PARAMETER 4786 4787 -- Note: the N_Parameter_Association node is built only if a formal 4788 -- parameter selector name is present, otherwise the parameter 4789 -- association appears in the tree simply as the node for the 4790 -- explicit actual parameter. 4791 4792 -- N_Parameter_Association 4793 -- Sloc points to formal parameter 4794 -- Selector_Name (Node2) (always non-Empty) 4795 -- Explicit_Actual_Parameter (Node3) 4796 -- Next_Named_Actual (Node4-Sem) 4797 -- Is_Accessibility_Actual (Flag13-Sem) 4798 4799 --------------------------- 4800 -- 6.4 Actual Parameter -- 4801 --------------------------- 4802 4803 -- EXPLICIT_ACTUAL_PARAMETER ::= EXPRESSION | variable_NAME 4804 4805 --------------------------- 4806 -- 6.5 Return Statement -- 4807 --------------------------- 4808 4809 -- SIMPLE_RETURN_STATEMENT ::= return [EXPRESSION]; 4810 4811 -- EXTENDED_RETURN_STATEMENT ::= 4812 -- return DEFINING_IDENTIFIER : [aliased] RETURN_SUBTYPE_INDICATION 4813 -- [:= EXPRESSION] [do 4814 -- HANDLED_SEQUENCE_OF_STATEMENTS 4815 -- end return]; 4816 4817 -- RETURN_SUBTYPE_INDICATION ::= SUBTYPE_INDICATION | ACCESS_DEFINITION 4818 4819 -- The term "return statement" is defined in 6.5 to mean either a 4820 -- SIMPLE_RETURN_STATEMENT or an EXTENDED_RETURN_STATEMENT. We avoid 4821 -- the use of this term, since it used to mean someting else in earlier 4822 -- versions of Ada. 4823 4824 -- N_Simple_Return_Statement 4825 -- Sloc points to RETURN 4826 -- Return_Statement_Entity (Node5-Sem) 4827 -- Expression (Node3) (set to Empty if no expression present) 4828 -- Storage_Pool (Node1-Sem) 4829 -- Procedure_To_Call (Node2-Sem) 4830 -- Do_Tag_Check (Flag13-Sem) 4831 -- By_Ref (Flag5-Sem) 4832 -- Comes_From_Extended_Return_Statement (Flag18-Sem) 4833 4834 -- Note: Return_Statement_Entity points to an E_Return_Statement 4835 4836 -- If a range check is required, then Do_Range_Check is set on the 4837 -- Expression. The check is against the return subtype of the function. 4838 4839 -- N_Extended_Return_Statement 4840 -- Sloc points to RETURN 4841 -- Return_Statement_Entity (Node5-Sem) 4842 -- Return_Object_Declarations (List3) 4843 -- Handled_Statement_Sequence (Node4) (set to Empty if not present) 4844 -- Storage_Pool (Node1-Sem) 4845 -- Procedure_To_Call (Node2-Sem) 4846 -- Do_Tag_Check (Flag13-Sem) 4847 -- By_Ref (Flag5-Sem) 4848 4849 -- Note: Return_Statement_Entity points to an E_Return_Statement. 4850 4851 -- Note that Return_Object_Declarations is a list containing the 4852 -- N_Object_Declaration -- see comment on this field above. 4853 4854 -- The declared object will have Is_Return_Object = True. 4855 4856 -- There is no such syntactic category as return_object_declaration 4857 -- in the RM. Return_Object_Declarations represents this portion of 4858 -- the syntax for EXTENDED_RETURN_STATEMENT: 4859 -- DEFINING_IDENTIFIER : [aliased] RETURN_SUBTYPE_INDICATION 4860 -- [:= EXPRESSION] 4861 4862 -- There are two entities associated with an extended_return_statement: 4863 -- the Return_Statement_Entity represents the statement itself, and the 4864 -- Defining_Identifier of the Object_Declaration in 4865 -- Return_Object_Declarations represents the object being 4866 -- returned. N_Simple_Return_Statement has only the former. 4867 4868 ------------------------------ 4869 -- 7.1 Package Declaration -- 4870 ------------------------------ 4871 4872 -- PACKAGE_DECLARATION ::= 4873 -- PACKAGE_SPECIFICATION; 4874 4875 -- Note: the activation chain entity for a package spec is used for 4876 -- all tasks declared in the package spec, or in the package body. 4877 4878 -- N_Package_Declaration 4879 -- Sloc points to PACKAGE 4880 -- Specification (Node1) 4881 -- Corresponding_Body (Node5-Sem) 4882 -- Parent_Spec (Node4-Sem) 4883 -- Activation_Chain_Entity (Node3-Sem) 4884 4885 -------------------------------- 4886 -- 7.1 Package Specification -- 4887 -------------------------------- 4888 4889 -- PACKAGE_SPECIFICATION ::= 4890 -- package DEFINING_PROGRAM_UNIT_NAME 4891 -- [ASPECT_SPECIFICATIONS] 4892 -- is 4893 -- {BASIC_DECLARATIVE_ITEM} 4894 -- [private 4895 -- {BASIC_DECLARATIVE_ITEM}] 4896 -- end [[PARENT_UNIT_NAME .] IDENTIFIER] 4897 4898 -- N_Package_Specification 4899 -- Sloc points to PACKAGE 4900 -- Defining_Unit_Name (Node1) 4901 -- Visible_Declarations (List2) 4902 -- Private_Declarations (List3) (set to No_List if no private 4903 -- part present) 4904 -- End_Label (Node4) 4905 -- Generic_Parent (Node5-Sem) 4906 -- Limited_View_Installed (Flag18-Sem) 4907 4908 ----------------------- 4909 -- 7.1 Package Body -- 4910 ----------------------- 4911 4912 -- PACKAGE_BODY ::= 4913 -- package body DEFINING_PROGRAM_UNIT_NAME 4914 -- [ASPECT_SPECIFICATIONS] 4915 -- is 4916 -- DECLARATIVE_PART 4917 -- [begin 4918 -- HANDLED_SEQUENCE_OF_STATEMENTS] 4919 -- end [[PARENT_UNIT_NAME .] IDENTIFIER]; 4920 4921 -- N_Package_Body 4922 -- Sloc points to PACKAGE 4923 -- Defining_Unit_Name (Node1) 4924 -- Declarations (List2) 4925 -- Handled_Statement_Sequence (Node4) (set to Empty if no HSS present) 4926 -- Corresponding_Spec (Node5-Sem) 4927 -- Was_Originally_Stub (Flag13-Sem) 4928 4929 -- Note: if a source level package does not contain a handled sequence 4930 -- of statements, then the parser supplies a dummy one with a null 4931 -- sequence of statements. Comes_From_Source will be False in this 4932 -- constructed sequence. The reason we need this is for the End_Label 4933 -- field in the HSS. 4934 4935 ----------------------------------- 4936 -- 7.4 Private Type Declaration -- 4937 ----------------------------------- 4938 4939 -- PRIVATE_TYPE_DECLARATION ::= 4940 -- type DEFINING_IDENTIFIER [DISCRIMINANT_PART] 4941 -- is [[abstract] tagged] [limited] private; 4942 4943 -- Note: TAGGED is not permitted in Ada 83 mode 4944 4945 -- N_Private_Type_Declaration 4946 -- Sloc points to TYPE 4947 -- Defining_Identifier (Node1) 4948 -- Discriminant_Specifications (List4) (set to No_List if no 4949 -- discriminant part) 4950 -- Unknown_Discriminants_Present (Flag13) set if (<>) discriminant 4951 -- Abstract_Present (Flag4) 4952 -- Tagged_Present (Flag15) 4953 -- Limited_Present (Flag17) 4954 4955 ---------------------------------------- 4956 -- 7.4 Private Extension Declaration -- 4957 ---------------------------------------- 4958 4959 -- PRIVATE_EXTENSION_DECLARATION ::= 4960 -- type DEFINING_IDENTIFIER [DISCRIMINANT_PART] is 4961 -- [abstract] [limited | synchronized] 4962 -- new ancestor_SUBTYPE_INDICATION [and INTERFACE_LIST] 4963 -- with private; 4964 4965 -- Note: LIMITED, and private extension declarations are not allowed 4966 -- in Ada 83 mode. 4967 4968 -- N_Private_Extension_Declaration 4969 -- Sloc points to TYPE 4970 -- Defining_Identifier (Node1) 4971 -- Discriminant_Specifications (List4) (set to No_List if no 4972 -- discriminant part) 4973 -- Unknown_Discriminants_Present (Flag13) set if (<>) discriminant 4974 -- Abstract_Present (Flag4) 4975 -- Limited_Present (Flag17) 4976 -- Synchronized_Present (Flag7) 4977 -- Subtype_Indication (Node5) 4978 -- Interface_List (List2) (set to No_List if none) 4979 4980 --------------------- 4981 -- 8.4 Use Clause -- 4982 --------------------- 4983 4984 -- USE_CLAUSE ::= USE_PACKAGE_CLAUSE | USE_TYPE_CLAUSE 4985 4986 ----------------------------- 4987 -- 8.4 Use Package Clause -- 4988 ----------------------------- 4989 4990 -- USE_PACKAGE_CLAUSE ::= use package_NAME {, package_NAME}; 4991 4992 -- N_Use_Package_Clause 4993 -- Sloc points to USE 4994 -- Names (List2) 4995 -- Next_Use_Clause (Node3-Sem) 4996 -- Hidden_By_Use_Clause (Elist4-Sem) 4997 4998 -------------------------- 4999 -- 8.4 Use Type Clause -- 5000 -------------------------- 5001 5002 -- USE_TYPE_CLAUSE ::= use [ALL] type SUBTYPE_MARK {, SUBTYPE_MARK}; 5003 5004 -- Note: use type clause is not permitted in Ada 83 mode 5005 5006 -- Note: the ALL keyword can appear only in Ada 2012 mode 5007 5008 -- N_Use_Type_Clause 5009 -- Sloc points to USE 5010 -- Subtype_Marks (List2) 5011 -- Next_Use_Clause (Node3-Sem) 5012 -- Hidden_By_Use_Clause (Elist4-Sem) 5013 -- Used_Operations (Elist5-Sem) 5014 -- All_Present (Flag15) 5015 5016 ------------------------------- 5017 -- 8.5 Renaming Declaration -- 5018 ------------------------------- 5019 5020 -- RENAMING_DECLARATION ::= 5021 -- OBJECT_RENAMING_DECLARATION 5022 -- | EXCEPTION_RENAMING_DECLARATION 5023 -- | PACKAGE_RENAMING_DECLARATION 5024 -- | SUBPROGRAM_RENAMING_DECLARATION 5025 -- | GENERIC_RENAMING_DECLARATION 5026 5027 -------------------------------------- 5028 -- 8.5 Object Renaming Declaration -- 5029 -------------------------------------- 5030 5031 -- OBJECT_RENAMING_DECLARATION ::= 5032 -- DEFINING_IDENTIFIER : 5033 -- [NULL_EXCLUSION] SUBTYPE_MARK renames object_NAME; 5034 -- | DEFINING_IDENTIFIER : 5035 -- ACCESS_DEFINITION renames object_NAME; 5036 5037 -- Note: Access_Definition is an optional field that gives support to 5038 -- Ada 2005 (AI-230). The parser generates nodes that have either the 5039 -- Subtype_Indication field or else the Access_Definition field. 5040 5041 -- N_Object_Renaming_Declaration 5042 -- Sloc points to first identifier 5043 -- Defining_Identifier (Node1) 5044 -- Null_Exclusion_Present (Flag11) (set to False if not present) 5045 -- Subtype_Mark (Node4) (set to Empty if not present) 5046 -- Access_Definition (Node3) (set to Empty if not present) 5047 -- Name (Node2) 5048 -- Corresponding_Generic_Association (Node5-Sem) 5049 5050 ----------------------------------------- 5051 -- 8.5 Exception Renaming Declaration -- 5052 ----------------------------------------- 5053 5054 -- EXCEPTION_RENAMING_DECLARATION ::= 5055 -- DEFINING_IDENTIFIER : exception renames exception_NAME; 5056 5057 -- N_Exception_Renaming_Declaration 5058 -- Sloc points to first identifier 5059 -- Defining_Identifier (Node1) 5060 -- Name (Node2) 5061 5062 --------------------------------------- 5063 -- 8.5 Package Renaming Declaration -- 5064 --------------------------------------- 5065 5066 -- PACKAGE_RENAMING_DECLARATION ::= 5067 -- package DEFINING_PROGRAM_UNIT_NAME renames package_NAME; 5068 5069 -- N_Package_Renaming_Declaration 5070 -- Sloc points to PACKAGE 5071 -- Defining_Unit_Name (Node1) 5072 -- Name (Node2) 5073 -- Parent_Spec (Node4-Sem) 5074 5075 ------------------------------------------ 5076 -- 8.5 Subprogram Renaming Declaration -- 5077 ------------------------------------------ 5078 5079 -- SUBPROGRAM_RENAMING_DECLARATION ::= 5080 -- SUBPROGRAM_SPECIFICATION renames callable_entity_NAME; 5081 5082 -- N_Subprogram_Renaming_Declaration 5083 -- Sloc points to RENAMES 5084 -- Specification (Node1) 5085 -- Name (Node2) 5086 -- Parent_Spec (Node4-Sem) 5087 -- Corresponding_Spec (Node5-Sem) 5088 -- Corresponding_Formal_Spec (Node3-Sem) 5089 -- From_Default (Flag6-Sem) 5090 5091 ----------------------------------------- 5092 -- 8.5.5 Generic Renaming Declaration -- 5093 ----------------------------------------- 5094 5095 -- GENERIC_RENAMING_DECLARATION ::= 5096 -- generic package DEFINING_PROGRAM_UNIT_NAME 5097 -- renames generic_package_NAME 5098 -- | generic procedure DEFINING_PROGRAM_UNIT_NAME 5099 -- renames generic_procedure_NAME 5100 -- | generic function DEFINING_PROGRAM_UNIT_NAME 5101 -- renames generic_function_NAME 5102 5103 -- N_Generic_Package_Renaming_Declaration 5104 -- Sloc points to GENERIC 5105 -- Defining_Unit_Name (Node1) 5106 -- Name (Node2) 5107 -- Parent_Spec (Node4-Sem) 5108 5109 -- N_Generic_Procedure_Renaming_Declaration 5110 -- Sloc points to GENERIC 5111 -- Defining_Unit_Name (Node1) 5112 -- Name (Node2) 5113 -- Parent_Spec (Node4-Sem) 5114 5115 -- N_Generic_Function_Renaming_Declaration 5116 -- Sloc points to GENERIC 5117 -- Defining_Unit_Name (Node1) 5118 -- Name (Node2) 5119 -- Parent_Spec (Node4-Sem) 5120 5121 -------------------------------- 5122 -- 9.1 Task Type Declaration -- 5123 -------------------------------- 5124 5125 -- TASK_TYPE_DECLARATION ::= 5126 -- task type DEFINING_IDENTIFIER [KNOWN_DISCRIMINANT_PART] 5127 -- [ASPECT_SPECIFICATIONS] 5128 -- [is [new INTERFACE_LIST with] TASK_DEFINITION]; 5129 5130 -- N_Task_Type_Declaration 5131 -- Sloc points to TASK 5132 -- Defining_Identifier (Node1) 5133 -- Discriminant_Specifications (List4) (set to No_List if no 5134 -- discriminant part) 5135 -- Interface_List (List2) (set to No_List if none) 5136 -- Task_Definition (Node3) (set to Empty if not present) 5137 -- Corresponding_Body (Node5-Sem) 5138 5139 ---------------------------------- 5140 -- 9.1 Single Task Declaration -- 5141 ---------------------------------- 5142 5143 -- SINGLE_TASK_DECLARATION ::= 5144 -- task DEFINING_IDENTIFIER 5145 -- [ASPECT_SPECIFICATIONS] 5146 -- [is [new INTERFACE_LIST with] TASK_DEFINITION]; 5147 5148 -- N_Single_Task_Declaration 5149 -- Sloc points to TASK 5150 -- Defining_Identifier (Node1) 5151 -- Interface_List (List2) (set to No_List if none) 5152 -- Task_Definition (Node3) (set to Empty if not present) 5153 5154 -------------------------- 5155 -- 9.1 Task Definition -- 5156 -------------------------- 5157 5158 -- TASK_DEFINITION ::= 5159 -- {TASK_ITEM} 5160 -- [private 5161 -- {TASK_ITEM}] 5162 -- end [task_IDENTIFIER] 5163 5164 -- Note: as a result of semantic analysis, the list of task items can 5165 -- include implicit type declarations resulting from entry families. 5166 5167 -- N_Task_Definition 5168 -- Sloc points to first token of task definition 5169 -- Visible_Declarations (List2) 5170 -- Private_Declarations (List3) (set to No_List if no private part) 5171 -- End_Label (Node4) 5172 -- Has_Storage_Size_Pragma (Flag5-Sem) 5173 -- Has_Relative_Deadline_Pragma (Flag9-Sem) 5174 5175 -------------------- 5176 -- 9.1 Task Item -- 5177 -------------------- 5178 5179 -- TASK_ITEM ::= ENTRY_DECLARATION | REPRESENTATION_CLAUSE 5180 5181 -------------------- 5182 -- 9.1 Task Body -- 5183 -------------------- 5184 5185 -- TASK_BODY ::= 5186 -- task body task_DEFINING_IDENTIFIER 5187 -- [ASPECT_SPECIFICATIONS] 5188 -- is 5189 -- DECLARATIVE_PART 5190 -- begin 5191 -- HANDLED_SEQUENCE_OF_STATEMENTS 5192 -- end [task_IDENTIFIER]; 5193 5194 -- Gigi restriction: This node never appears 5195 5196 -- N_Task_Body 5197 -- Sloc points to TASK 5198 -- Defining_Identifier (Node1) 5199 -- Declarations (List2) 5200 -- Handled_Statement_Sequence (Node4) 5201 -- Is_Task_Master (Flag5-Sem) 5202 -- Activation_Chain_Entity (Node3-Sem) 5203 -- Corresponding_Spec (Node5-Sem) 5204 -- Was_Originally_Stub (Flag13-Sem) 5205 5206 ------------------------------------- 5207 -- 9.4 Protected Type Declaration -- 5208 ------------------------------------- 5209 5210 -- PROTECTED_TYPE_DECLARATION ::= 5211 -- protected type DEFINING_IDENTIFIER [KNOWN_DISCRIMINANT_PART] 5212 -- [ASPECT_SPECIFICATIONS] 5213 -- is [new INTERFACE_LIST with] PROTECTED_DEFINITION; 5214 5215 -- Note: protected type declarations are not permitted in Ada 83 mode 5216 5217 -- N_Protected_Type_Declaration 5218 -- Sloc points to PROTECTED 5219 -- Defining_Identifier (Node1) 5220 -- Discriminant_Specifications (List4) (set to No_List if no 5221 -- discriminant part) 5222 -- Interface_List (List2) (set to No_List if none) 5223 -- Protected_Definition (Node3) 5224 -- Corresponding_Body (Node5-Sem) 5225 5226 --------------------------------------- 5227 -- 9.4 Single Protected Declaration -- 5228 --------------------------------------- 5229 5230 -- SINGLE_PROTECTED_DECLARATION ::= 5231 -- protected DEFINING_IDENTIFIER 5232 -- [ASPECT_SPECIFICATIONS] 5233 -- is [new INTERFACE_LIST with] PROTECTED_DEFINITION; 5234 5235 -- Note: single protected declarations are not allowed in Ada 83 mode 5236 5237 -- N_Single_Protected_Declaration 5238 -- Sloc points to PROTECTED 5239 -- Defining_Identifier (Node1) 5240 -- Interface_List (List2) (set to No_List if none) 5241 -- Protected_Definition (Node3) 5242 5243 ------------------------------- 5244 -- 9.4 Protected Definition -- 5245 ------------------------------- 5246 5247 -- PROTECTED_DEFINITION ::= 5248 -- {PROTECTED_OPERATION_DECLARATION} 5249 -- [private 5250 -- {PROTECTED_ELEMENT_DECLARATION}] 5251 -- end [protected_IDENTIFIER] 5252 5253 -- N_Protected_Definition 5254 -- Sloc points to first token of protected definition 5255 -- Visible_Declarations (List2) 5256 -- Private_Declarations (List3) (set to No_List if no private part) 5257 -- End_Label (Node4) 5258 5259 ------------------------------------------ 5260 -- 9.4 Protected Operation Declaration -- 5261 ------------------------------------------ 5262 5263 -- PROTECTED_OPERATION_DECLARATION ::= 5264 -- SUBPROGRAM_DECLARATION 5265 -- | ENTRY_DECLARATION 5266 -- | REPRESENTATION_CLAUSE 5267 5268 ---------------------------------------- 5269 -- 9.4 Protected Element Declaration -- 5270 ---------------------------------------- 5271 5272 -- PROTECTED_ELEMENT_DECLARATION ::= 5273 -- PROTECTED_OPERATION_DECLARATION | COMPONENT_DECLARATION 5274 5275 ------------------------- 5276 -- 9.4 Protected Body -- 5277 ------------------------- 5278 5279 -- PROTECTED_BODY ::= 5280 -- protected body DEFINING_IDENTIFIER 5281 -- [ASPECT_SPECIFICATIONS]; 5282 -- is 5283 -- {PROTECTED_OPERATION_ITEM} 5284 -- end [protected_IDENTIFIER]; 5285 5286 -- Note: protected bodies are not allowed in Ada 83 mode 5287 5288 -- Gigi restriction: This node never appears 5289 5290 -- N_Protected_Body 5291 -- Sloc points to PROTECTED 5292 -- Defining_Identifier (Node1) 5293 -- Declarations (List2) protected operation items (and pragmas) 5294 -- End_Label (Node4) 5295 -- Corresponding_Spec (Node5-Sem) 5296 -- Was_Originally_Stub (Flag13-Sem) 5297 5298 ----------------------------------- 5299 -- 9.4 Protected Operation Item -- 5300 ----------------------------------- 5301 5302 -- PROTECTED_OPERATION_ITEM ::= 5303 -- SUBPROGRAM_DECLARATION 5304 -- | SUBPROGRAM_BODY 5305 -- | ENTRY_BODY 5306 -- | REPRESENTATION_CLAUSE 5307 5308 ------------------------------ 5309 -- 9.5.2 Entry Declaration -- 5310 ------------------------------ 5311 5312 -- ENTRY_DECLARATION ::= 5313 -- [[not] overriding] 5314 -- entry DEFINING_IDENTIFIER 5315 -- [(DISCRETE_SUBTYPE_DEFINITION)] PARAMETER_PROFILE; 5316 5317 -- N_Entry_Declaration 5318 -- Sloc points to ENTRY 5319 -- Defining_Identifier (Node1) 5320 -- Discrete_Subtype_Definition (Node4) (set to Empty if not present) 5321 -- Parameter_Specifications (List3) (set to No_List if no formal part) 5322 -- Corresponding_Body (Node5-Sem) 5323 -- Must_Override (Flag14) set if overriding indicator present 5324 -- Must_Not_Override (Flag15) set if not_overriding indicator present 5325 5326 -- Note: overriding indicator is an Ada 2005 feature 5327 5328 ----------------------------- 5329 -- 9.5.2 Accept statement -- 5330 ----------------------------- 5331 5332 -- ACCEPT_STATEMENT ::= 5333 -- accept entry_DIRECT_NAME 5334 -- [(ENTRY_INDEX)] PARAMETER_PROFILE [do 5335 -- HANDLED_SEQUENCE_OF_STATEMENTS 5336 -- end [entry_IDENTIFIER]]; 5337 5338 -- Gigi restriction: This node never appears 5339 5340 -- Note: there are no explicit declarations allowed in an accept 5341 -- statement. However, the implicit declarations for any statement 5342 -- identifiers (labels and block/loop identifiers) are declarations 5343 -- that belong logically to the accept statement, and that is why 5344 -- there is a Declarations field in this node. 5345 5346 -- N_Accept_Statement 5347 -- Sloc points to ACCEPT 5348 -- Entry_Direct_Name (Node1) 5349 -- Entry_Index (Node5) (set to Empty if not present) 5350 -- Parameter_Specifications (List3) (set to No_List if no formal part) 5351 -- Handled_Statement_Sequence (Node4) 5352 -- Declarations (List2) (set to No_List if no declarations) 5353 5354 ------------------------ 5355 -- 9.5.2 Entry Index -- 5356 ------------------------ 5357 5358 -- ENTRY_INDEX ::= EXPRESSION 5359 5360 ----------------------- 5361 -- 9.5.2 Entry Body -- 5362 ----------------------- 5363 5364 -- ENTRY_BODY ::= 5365 -- entry DEFINING_IDENTIFIER ENTRY_BODY_FORMAL_PART ENTRY_BARRIER is 5366 -- DECLARATIVE_PART 5367 -- begin 5368 -- HANDLED_SEQUENCE_OF_STATEMENTS 5369 -- end [entry_IDENTIFIER]; 5370 5371 -- ENTRY_BARRIER ::= when CONDITION 5372 5373 -- Note: we store the CONDITION of the ENTRY_BARRIER in the node for 5374 -- the ENTRY_BODY_FORMAL_PART to avoid the N_Entry_Body node getting 5375 -- too full (it would otherwise have too many fields) 5376 5377 -- Gigi restriction: This node never appears 5378 5379 -- N_Entry_Body 5380 -- Sloc points to ENTRY 5381 -- Defining_Identifier (Node1) 5382 -- Entry_Body_Formal_Part (Node5) 5383 -- Declarations (List2) 5384 -- Handled_Statement_Sequence (Node4) 5385 -- Activation_Chain_Entity (Node3-Sem) 5386 5387 ----------------------------------- 5388 -- 9.5.2 Entry Body Formal Part -- 5389 ----------------------------------- 5390 5391 -- ENTRY_BODY_FORMAL_PART ::= 5392 -- [(ENTRY_INDEX_SPECIFICATION)] PARAMETER_PROFILE 5393 5394 -- Note that an entry body formal part node is present even if it is 5395 -- empty. This reflects the grammar, in which it is the components of 5396 -- the entry body formal part that are optional, not the entry body 5397 -- formal part itself. Also this means that the barrier condition 5398 -- always has somewhere to be stored. 5399 5400 -- Gigi restriction: This node never appears 5401 5402 -- N_Entry_Body_Formal_Part 5403 -- Sloc points to first token 5404 -- Entry_Index_Specification (Node4) (set to Empty if not present) 5405 -- Parameter_Specifications (List3) (set to No_List if no formal part) 5406 -- Condition (Node1) from entry barrier of entry body 5407 5408 -------------------------- 5409 -- 9.5.2 Entry Barrier -- 5410 -------------------------- 5411 5412 -- ENTRY_BARRIER ::= when CONDITION 5413 5414 -------------------------------------- 5415 -- 9.5.2 Entry Index Specification -- 5416 -------------------------------------- 5417 5418 -- ENTRY_INDEX_SPECIFICATION ::= 5419 -- for DEFINING_IDENTIFIER in DISCRETE_SUBTYPE_DEFINITION 5420 5421 -- Gigi restriction: This node never appears 5422 5423 -- N_Entry_Index_Specification 5424 -- Sloc points to FOR 5425 -- Defining_Identifier (Node1) 5426 -- Discrete_Subtype_Definition (Node4) 5427 5428 --------------------------------- 5429 -- 9.5.3 Entry Call Statement -- 5430 --------------------------------- 5431 5432 -- ENTRY_CALL_STATEMENT ::= entry_NAME [ACTUAL_PARAMETER_PART]; 5433 5434 -- The parser may generate a procedure call for this construct. The 5435 -- semantic pass must correct this misidentification where needed. 5436 5437 -- Gigi restriction: This node never appears 5438 5439 -- N_Entry_Call_Statement 5440 -- Sloc points to first token of name 5441 -- Name (Node2) 5442 -- Parameter_Associations (List3) (set to No_List if no 5443 -- actual parameter part) 5444 -- First_Named_Actual (Node4-Sem) 5445 5446 ------------------------------ 5447 -- 9.5.4 Requeue Statement -- 5448 ------------------------------ 5449 5450 -- REQUEUE_STATEMENT ::= requeue entry_NAME [with abort]; 5451 5452 -- Note: requeue statements are not permitted in Ada 83 mode 5453 5454 -- Gigi restriction: This node never appears 5455 5456 -- N_Requeue_Statement 5457 -- Sloc points to REQUEUE 5458 -- Name (Node2) 5459 -- Abort_Present (Flag15) 5460 5461 -------------------------- 5462 -- 9.6 Delay Statement -- 5463 -------------------------- 5464 5465 -- DELAY_STATEMENT ::= 5466 -- DELAY_UNTIL_STATEMENT 5467 -- | DELAY_RELATIVE_STATEMENT 5468 5469 -------------------------------- 5470 -- 9.6 Delay Until Statement -- 5471 -------------------------------- 5472 5473 -- DELAY_UNTIL_STATEMENT ::= delay until delay_EXPRESSION; 5474 5475 -- Note: delay until statements are not permitted in Ada 83 mode 5476 5477 -- Gigi restriction: This node never appears 5478 5479 -- N_Delay_Until_Statement 5480 -- Sloc points to DELAY 5481 -- Expression (Node3) 5482 5483 ----------------------------------- 5484 -- 9.6 Delay Relative Statement -- 5485 ----------------------------------- 5486 5487 -- DELAY_RELATIVE_STATEMENT ::= delay delay_EXPRESSION; 5488 5489 -- Gigi restriction: This node never appears 5490 5491 -- N_Delay_Relative_Statement 5492 -- Sloc points to DELAY 5493 -- Expression (Node3) 5494 5495 --------------------------- 5496 -- 9.7 Select Statement -- 5497 --------------------------- 5498 5499 -- SELECT_STATEMENT ::= 5500 -- SELECTIVE_ACCEPT 5501 -- | TIMED_ENTRY_CALL 5502 -- | CONDITIONAL_ENTRY_CALL 5503 -- | ASYNCHRONOUS_SELECT 5504 5505 ----------------------------- 5506 -- 9.7.1 Selective Accept -- 5507 ----------------------------- 5508 5509 -- SELECTIVE_ACCEPT ::= 5510 -- select 5511 -- [GUARD] 5512 -- SELECT_ALTERNATIVE 5513 -- {or 5514 -- [GUARD] 5515 -- SELECT_ALTERNATIVE} 5516 -- [else 5517 -- SEQUENCE_OF_STATEMENTS] 5518 -- end select; 5519 5520 -- Gigi restriction: This node never appears 5521 5522 -- Note: the guard expression, if present, appears in the node for 5523 -- the select alternative. 5524 5525 -- N_Selective_Accept 5526 -- Sloc points to SELECT 5527 -- Select_Alternatives (List1) 5528 -- Else_Statements (List4) (set to No_List if no else part) 5529 5530 ------------------ 5531 -- 9.7.1 Guard -- 5532 ------------------ 5533 5534 -- GUARD ::= when CONDITION => 5535 5536 -- As noted above, the CONDITION that is part of a GUARD is included 5537 -- in the node for the select alternative for convenience. 5538 5539 ------------------------------- 5540 -- 9.7.1 Select Alternative -- 5541 ------------------------------- 5542 5543 -- SELECT_ALTERNATIVE ::= 5544 -- ACCEPT_ALTERNATIVE 5545 -- | DELAY_ALTERNATIVE 5546 -- | TERMINATE_ALTERNATIVE 5547 5548 ------------------------------- 5549 -- 9.7.1 Accept Alternative -- 5550 ------------------------------- 5551 5552 -- ACCEPT_ALTERNATIVE ::= 5553 -- ACCEPT_STATEMENT [SEQUENCE_OF_STATEMENTS] 5554 5555 -- Gigi restriction: This node never appears 5556 5557 -- N_Accept_Alternative 5558 -- Sloc points to ACCEPT 5559 -- Accept_Statement (Node2) 5560 -- Condition (Node1) from the guard (set to Empty if no guard present) 5561 -- Statements (List3) (set to Empty_List if no statements) 5562 -- Pragmas_Before (List4) pragmas before alt (set to No_List if none) 5563 -- Accept_Handler_Records (List5-Sem) 5564 5565 ------------------------------ 5566 -- 9.7.1 Delay Alternative -- 5567 ------------------------------ 5568 5569 -- DELAY_ALTERNATIVE ::= 5570 -- DELAY_STATEMENT [SEQUENCE_OF_STATEMENTS] 5571 5572 -- Gigi restriction: This node never appears 5573 5574 -- N_Delay_Alternative 5575 -- Sloc points to DELAY 5576 -- Delay_Statement (Node2) 5577 -- Condition (Node1) from the guard (set to Empty if no guard present) 5578 -- Statements (List3) (set to Empty_List if no statements) 5579 -- Pragmas_Before (List4) pragmas before alt (set to No_List if none) 5580 5581 ---------------------------------- 5582 -- 9.7.1 Terminate Alternative -- 5583 ---------------------------------- 5584 5585 -- TERMINATE_ALTERNATIVE ::= terminate; 5586 5587 -- Gigi restriction: This node never appears 5588 5589 -- N_Terminate_Alternative 5590 -- Sloc points to TERMINATE 5591 -- Condition (Node1) from the guard (set to Empty if no guard present) 5592 -- Pragmas_Before (List4) pragmas before alt (set to No_List if none) 5593 -- Pragmas_After (List5) pragmas after alt (set to No_List if none) 5594 5595 ----------------------------- 5596 -- 9.7.2 Timed Entry Call -- 5597 ----------------------------- 5598 5599 -- TIMED_ENTRY_CALL ::= 5600 -- select 5601 -- ENTRY_CALL_ALTERNATIVE 5602 -- or 5603 -- DELAY_ALTERNATIVE 5604 -- end select; 5605 5606 -- Gigi restriction: This node never appears 5607 5608 -- N_Timed_Entry_Call 5609 -- Sloc points to SELECT 5610 -- Entry_Call_Alternative (Node1) 5611 -- Delay_Alternative (Node4) 5612 5613 ----------------------------------- 5614 -- 9.7.2 Entry Call Alternative -- 5615 ----------------------------------- 5616 5617 -- ENTRY_CALL_ALTERNATIVE ::= 5618 -- PROCEDURE_OR_ENTRY_CALL [SEQUENCE_OF_STATEMENTS] 5619 5620 -- PROCEDURE_OR_ENTRY_CALL ::= 5621 -- PROCEDURE_CALL_STATEMENT | ENTRY_CALL_STATEMENT 5622 5623 -- Gigi restriction: This node never appears 5624 5625 -- N_Entry_Call_Alternative 5626 -- Sloc points to first token of entry call statement 5627 -- Entry_Call_Statement (Node1) 5628 -- Statements (List3) (set to Empty_List if no statements) 5629 -- Pragmas_Before (List4) pragmas before alt (set to No_List if none) 5630 5631 ----------------------------------- 5632 -- 9.7.3 Conditional Entry Call -- 5633 ----------------------------------- 5634 5635 -- CONDITIONAL_ENTRY_CALL ::= 5636 -- select 5637 -- ENTRY_CALL_ALTERNATIVE 5638 -- else 5639 -- SEQUENCE_OF_STATEMENTS 5640 -- end select; 5641 5642 -- Gigi restriction: This node never appears 5643 5644 -- N_Conditional_Entry_Call 5645 -- Sloc points to SELECT 5646 -- Entry_Call_Alternative (Node1) 5647 -- Else_Statements (List4) 5648 5649 -------------------------------- 5650 -- 9.7.4 Asynchronous Select -- 5651 -------------------------------- 5652 5653 -- ASYNCHRONOUS_SELECT ::= 5654 -- select 5655 -- TRIGGERING_ALTERNATIVE 5656 -- then abort 5657 -- ABORTABLE_PART 5658 -- end select; 5659 5660 -- Note: asynchronous select is not permitted in Ada 83 mode 5661 5662 -- Gigi restriction: This node never appears 5663 5664 -- N_Asynchronous_Select 5665 -- Sloc points to SELECT 5666 -- Triggering_Alternative (Node1) 5667 -- Abortable_Part (Node2) 5668 5669 ----------------------------------- 5670 -- 9.7.4 Triggering Alternative -- 5671 ----------------------------------- 5672 5673 -- TRIGGERING_ALTERNATIVE ::= 5674 -- TRIGGERING_STATEMENT [SEQUENCE_OF_STATEMENTS] 5675 5676 -- Gigi restriction: This node never appears 5677 5678 -- N_Triggering_Alternative 5679 -- Sloc points to first token of triggering statement 5680 -- Triggering_Statement (Node1) 5681 -- Statements (List3) (set to Empty_List if no statements) 5682 -- Pragmas_Before (List4) pragmas before alt (set to No_List if none) 5683 5684 --------------------------------- 5685 -- 9.7.4 Triggering Statement -- 5686 --------------------------------- 5687 5688 -- TRIGGERING_STATEMENT ::= PROCEDURE_OR_ENTRY_CALL | DELAY_STATEMENT 5689 5690 --------------------------- 5691 -- 9.7.4 Abortable Part -- 5692 --------------------------- 5693 5694 -- ABORTABLE_PART ::= SEQUENCE_OF_STATEMENTS 5695 5696 -- Gigi restriction: This node never appears 5697 5698 -- N_Abortable_Part 5699 -- Sloc points to ABORT 5700 -- Statements (List3) 5701 5702 -------------------------- 5703 -- 9.8 Abort Statement -- 5704 -------------------------- 5705 5706 -- ABORT_STATEMENT ::= abort task_NAME {, task_NAME}; 5707 5708 -- Gigi restriction: This node never appears 5709 5710 -- N_Abort_Statement 5711 -- Sloc points to ABORT 5712 -- Names (List2) 5713 5714 ------------------------- 5715 -- 10.1.1 Compilation -- 5716 ------------------------- 5717 5718 -- COMPILATION ::= {COMPILATION_UNIT} 5719 5720 -- There is no explicit node in the tree for a compilation, since in 5721 -- general the compiler is processing only a single compilation unit 5722 -- at a time. It is possible to parse multiple units in syntax check 5723 -- only mode, but the trees are discarded in that case. 5724 5725 ------------------------------ 5726 -- 10.1.1 Compilation Unit -- 5727 ------------------------------ 5728 5729 -- COMPILATION_UNIT ::= 5730 -- CONTEXT_CLAUSE LIBRARY_ITEM 5731 -- | CONTEXT_CLAUSE SUBUNIT 5732 5733 -- The N_Compilation_Unit node itself represents the above syntax. 5734 -- However, there are two additional items not reflected in the above 5735 -- syntax. First we have the global declarations that are added by the 5736 -- code generator. These are outer level declarations (so they cannot 5737 -- be represented as being inside the units). An example is the wrapper 5738 -- subprograms that are created to do ABE checking. As always a list of 5739 -- declarations can contain actions as well (i.e. statements), and such 5740 -- statements are executed as part of the elaboration of the unit. Note 5741 -- that all such declarations are elaborated before the library unit. 5742 5743 -- Similarly, certain actions need to be elaborated at the completion 5744 -- of elaboration of the library unit (notably the statement that sets 5745 -- the Boolean flag indicating that elaboration is complete). 5746 5747 -- The third item not reflected in the syntax is pragmas that appear 5748 -- after the compilation unit. As always pragmas are a problem since 5749 -- they are not part of the formal syntax, but can be stuck into the 5750 -- source following a set of ad hoc rules, and we have to find an ad 5751 -- hoc way of sticking them into the tree. For pragmas that appear 5752 -- before the library unit, we just consider them to be part of the 5753 -- context clause, and pragmas can appear in the Context_Items list 5754 -- of the compilation unit. However, pragmas can also appear after 5755 -- the library item. 5756 5757 -- To deal with all these problems, we create an auxiliary node for 5758 -- a compilation unit, referenced from the N_Compilation_Unit node, 5759 -- that contains these items. 5760 5761 -- N_Compilation_Unit 5762 -- Sloc points to first token of defining unit name 5763 -- Library_Unit (Node4-Sem) corresponding/parent spec/body 5764 -- Context_Items (List1) context items and pragmas preceding unit 5765 -- Private_Present (Flag15) set if library unit has private keyword 5766 -- Unit (Node2) library item or subunit 5767 -- Aux_Decls_Node (Node5) points to the N_Compilation_Unit_Aux node 5768 -- Has_No_Elaboration_Code (Flag17-Sem) 5769 -- Body_Required (Flag13-Sem) set for spec if body is required 5770 -- Acts_As_Spec (Flag4-Sem) flag for subprogram body with no spec 5771 -- Context_Pending (Flag16-Sem) 5772 -- First_Inlined_Subprogram (Node3-Sem) 5773 -- Has_Pragma_Suppress_All (Flag14-Sem) 5774 5775 -- N_Compilation_Unit_Aux 5776 -- Sloc is a copy of the Sloc from the N_Compilation_Unit node 5777 -- Declarations (List2) (set to No_List if no global declarations) 5778 -- Actions (List1) (set to No_List if no actions) 5779 -- Pragmas_After (List5) pragmas after unit (set to No_List if none) 5780 -- Config_Pragmas (List4) config pragmas (set to Empty_List if none) 5781 -- Default_Storage_Pool (Node3-Sem) 5782 5783 -------------------------- 5784 -- 10.1.1 Library Item -- 5785 -------------------------- 5786 5787 -- LIBRARY_ITEM ::= 5788 -- [private] LIBRARY_UNIT_DECLARATION 5789 -- | LIBRARY_UNIT_BODY 5790 -- | [private] LIBRARY_UNIT_RENAMING_DECLARATION 5791 5792 -- Note: PRIVATE is not allowed in Ada 83 mode 5793 5794 -- There is no explicit node in the tree for library item, instead 5795 -- the declaration or body, and the flag for private if present, 5796 -- appear in the N_Compilation_Unit node. 5797 5798 -------------------------------------- 5799 -- 10.1.1 Library Unit Declaration -- 5800 -------------------------------------- 5801 5802 -- LIBRARY_UNIT_DECLARATION ::= 5803 -- SUBPROGRAM_DECLARATION | PACKAGE_DECLARATION 5804 -- | GENERIC_DECLARATION | GENERIC_INSTANTIATION 5805 5806 ----------------------------------------------- 5807 -- 10.1.1 Library Unit Renaming Declaration -- 5808 ----------------------------------------------- 5809 5810 -- LIBRARY_UNIT_RENAMING_DECLARATION ::= 5811 -- PACKAGE_RENAMING_DECLARATION 5812 -- | GENERIC_RENAMING_DECLARATION 5813 -- | SUBPROGRAM_RENAMING_DECLARATION 5814 5815 ------------------------------- 5816 -- 10.1.1 Library unit body -- 5817 ------------------------------- 5818 5819 -- LIBRARY_UNIT_BODY ::= SUBPROGRAM_BODY | PACKAGE_BODY 5820 5821 ------------------------------ 5822 -- 10.1.1 Parent Unit Name -- 5823 ------------------------------ 5824 5825 -- PARENT_UNIT_NAME ::= NAME 5826 5827 ---------------------------- 5828 -- 10.1.2 Context clause -- 5829 ---------------------------- 5830 5831 -- CONTEXT_CLAUSE ::= {CONTEXT_ITEM} 5832 5833 -- The context clause can include pragmas, and any pragmas that appear 5834 -- before the context clause proper (i.e. all configuration pragmas, 5835 -- also appear at the front of this list). 5836 5837 -------------------------- 5838 -- 10.1.2 Context_Item -- 5839 -------------------------- 5840 5841 -- CONTEXT_ITEM ::= WITH_CLAUSE | USE_CLAUSE | WITH_TYPE_CLAUSE 5842 5843 ------------------------- 5844 -- 10.1.2 With clause -- 5845 ------------------------- 5846 5847 -- WITH_CLAUSE ::= 5848 -- with library_unit_NAME {,library_unit_NAME}; 5849 5850 -- A separate With clause is built for each name, so that we have 5851 -- a Corresponding_Spec field for each with'ed spec. The flags 5852 -- First_Name and Last_Name are used to reconstruct the exact 5853 -- source form. When a list of names appears in one with clause, 5854 -- the first name in the list has First_Name set, and the last 5855 -- has Last_Name set. If the with clause has only one name, then 5856 -- both of the flags First_Name and Last_Name are set in this name. 5857 5858 -- Note: in the case of implicit with's that are installed by the 5859 -- Rtsfind routine, Implicit_With is set, and the Sloc is typically 5860 -- set to Standard_Location, but it is incorrect to test the Sloc 5861 -- to find out if a with clause is implicit, test the flag instead. 5862 5863 -- N_With_Clause 5864 -- Sloc points to first token of library unit name 5865 -- Withed_Body (Node1-Sem) 5866 -- Name (Node2) 5867 -- Next_Implicit_With (Node3-Sem) 5868 -- Library_Unit (Node4-Sem) 5869 -- Corresponding_Spec (Node5-Sem) 5870 -- First_Name (Flag5) (set to True if first name or only one name) 5871 -- Last_Name (Flag6) (set to True if last name or only one name) 5872 -- Context_Installed (Flag13-Sem) 5873 -- Elaborate_Present (Flag4-Sem) 5874 -- Elaborate_All_Present (Flag14-Sem) 5875 -- Elaborate_All_Desirable (Flag9-Sem) 5876 -- Elaborate_Desirable (Flag11-Sem) 5877 -- Private_Present (Flag15) set if with_clause has private keyword 5878 -- Implicit_With (Flag16-Sem) 5879 -- Implicit_With_From_Instantiation (Flag12-Sem) 5880 -- Limited_Present (Flag17) set if LIMITED is present 5881 -- Limited_View_Installed (Flag18-Sem) 5882 -- Unreferenced_In_Spec (Flag7-Sem) 5883 -- No_Entities_Ref_In_Spec (Flag8-Sem) 5884 5885 -- Note: Limited_Present and Limited_View_Installed are used to support 5886 -- the implementation of Ada 2005 (AI-50217). 5887 5888 -- Similarly, Private_Present is used to support the implementation of 5889 -- Ada 2005 (AI-50262). 5890 5891 ---------------------- 5892 -- With_Type clause -- 5893 ---------------------- 5894 5895 -- This is a GNAT extension, used to implement mutually recursive 5896 -- types declared in different packages. 5897 5898 -- Note: this is now obsolete. The functionality of this construct 5899 -- is now implemented by the Ada 2005 limited_with_clause. 5900 5901 --------------------- 5902 -- 10.2 Body stub -- 5903 --------------------- 5904 5905 -- BODY_STUB ::= 5906 -- SUBPROGRAM_BODY_STUB 5907 -- | PACKAGE_BODY_STUB 5908 -- | TASK_BODY_STUB 5909 -- | PROTECTED_BODY_STUB 5910 5911 ---------------------------------- 5912 -- 10.1.3 Subprogram Body Stub -- 5913 ---------------------------------- 5914 5915 -- SUBPROGRAM_BODY_STUB ::= 5916 -- SUBPROGRAM_SPECIFICATION is separate; 5917 5918 -- N_Subprogram_Body_Stub 5919 -- Sloc points to FUNCTION or PROCEDURE 5920 -- Specification (Node1) 5921 -- Library_Unit (Node4-Sem) points to the subunit 5922 -- Corresponding_Body (Node5-Sem) 5923 5924 ------------------------------- 5925 -- 10.1.3 Package Body Stub -- 5926 ------------------------------- 5927 5928 -- PACKAGE_BODY_STUB ::= 5929 -- package body DEFINING_IDENTIFIER is separate; 5930 5931 -- N_Package_Body_Stub 5932 -- Sloc points to PACKAGE 5933 -- Defining_Identifier (Node1) 5934 -- Library_Unit (Node4-Sem) points to the subunit 5935 -- Corresponding_Body (Node5-Sem) 5936 5937 ---------------------------- 5938 -- 10.1.3 Task Body Stub -- 5939 ---------------------------- 5940 5941 -- TASK_BODY_STUB ::= 5942 -- task body DEFINING_IDENTIFIER is separate; 5943 5944 -- N_Task_Body_Stub 5945 -- Sloc points to TASK 5946 -- Defining_Identifier (Node1) 5947 -- Library_Unit (Node4-Sem) points to the subunit 5948 -- Corresponding_Body (Node5-Sem) 5949 5950 --------------------------------- 5951 -- 10.1.3 Protected Body Stub -- 5952 --------------------------------- 5953 5954 -- PROTECTED_BODY_STUB ::= 5955 -- protected body DEFINING_IDENTIFIER is separate; 5956 5957 -- Note: protected body stubs are not allowed in Ada 83 mode 5958 5959 -- N_Protected_Body_Stub 5960 -- Sloc points to PROTECTED 5961 -- Defining_Identifier (Node1) 5962 -- Library_Unit (Node4-Sem) points to the subunit 5963 -- Corresponding_Body (Node5-Sem) 5964 5965 --------------------- 5966 -- 10.1.3 Subunit -- 5967 --------------------- 5968 5969 -- SUBUNIT ::= separate (PARENT_UNIT_NAME) PROPER_BODY 5970 5971 -- N_Subunit 5972 -- Sloc points to SEPARATE 5973 -- Name (Node2) is the name of the parent unit 5974 -- Proper_Body (Node1) is the subunit body 5975 -- Corresponding_Stub (Node3-Sem) is the stub declaration for the unit. 5976 5977 --------------------------------- 5978 -- 11.1 Exception Declaration -- 5979 --------------------------------- 5980 5981 -- EXCEPTION_DECLARATION ::= DEFINING_IDENTIFIER_LIST : exception 5982 -- [ASPECT_SPECIFICATIONS]; 5983 5984 -- For consistency with object declarations etc., the parser converts 5985 -- the case of multiple identifiers being declared to a series of 5986 -- declarations in which the expression is copied, using the More_Ids 5987 -- and Prev_Ids flags to remember the source form as described in the 5988 -- section on "Handling of Defining Identifier Lists". 5989 5990 -- N_Exception_Declaration 5991 -- Sloc points to EXCEPTION 5992 -- Defining_Identifier (Node1) 5993 -- Expression (Node3-Sem) 5994 -- Renaming_Exception (Node2-Sem) 5995 -- More_Ids (Flag5) (set to False if no more identifiers in list) 5996 -- Prev_Ids (Flag6) (set to False if no previous identifiers in list) 5997 5998 ------------------------------------------ 5999 -- 11.2 Handled Sequence Of Statements -- 6000 ------------------------------------------ 6001 6002 -- HANDLED_SEQUENCE_OF_STATEMENTS ::= 6003 -- SEQUENCE_OF_STATEMENTS 6004 -- [exception 6005 -- EXCEPTION_HANDLER 6006 -- {EXCEPTION_HANDLER}] 6007 -- [at end 6008 -- cleanup_procedure_call (param, param, param, ...);] 6009 6010 -- The AT END phrase is a GNAT extension to provide for cleanups. It is 6011 -- used only internally currently, but is considered to be syntactic. 6012 -- At the moment, the only cleanup action allowed is a single call to 6013 -- a parameterless procedure, and the Identifier field of the node is 6014 -- the procedure to be called. The cleanup action occurs whenever the 6015 -- sequence of statements is left for any reason. The possible reasons 6016 -- are: 6017 -- 1. reaching the end of the sequence 6018 -- 2. exit, return, or goto 6019 -- 3. exception or abort 6020 -- For some back ends, such as gcc with ZCX, "at end" is implemented 6021 -- entirely in the back end. In this case, a handled sequence of 6022 -- statements with an "at end" cannot also have exception handlers. 6023 -- For other back ends, such as gcc with SJLJ and .NET, the 6024 -- implementation is split between the front end and back end; the front 6025 -- end implements 3, and the back end implements 1 and 2. In this case, 6026 -- if there is an "at end", the front end inserts the appropriate 6027 -- exception handler, and this handler takes precedence over "at end" 6028 -- in case of exception. 6029 6030 -- The inserted exception handler is of the form: 6031 6032 -- when all others => 6033 -- cleanup; 6034 -- raise; 6035 6036 -- where cleanup is the procedure to be called. The reason we do this is 6037 -- so that the front end can handle the necessary entries in the 6038 -- exception tables, and other exception handler actions required as 6039 -- part of the normal handling for exception handlers. 6040 6041 -- The AT END cleanup handler protects only the sequence of statements 6042 -- (not the associated declarations of the parent), just like exception 6043 -- handlers. The big difference is that the cleanup procedure is called 6044 -- on either a normal or an abnormal exit from the statement sequence. 6045 6046 -- Note: the list of Exception_Handlers can contain pragmas as well 6047 -- as actual handlers. In practice these pragmas can only occur at 6048 -- the start of the list, since any pragmas occurring later on will 6049 -- be included in the statement list of the corresponding handler. 6050 6051 -- Note: although in the Ada syntax, the sequence of statements in 6052 -- a handled sequence of statements can only contain statements, we 6053 -- allow free mixing of declarations and statements in the resulting 6054 -- expanded tree. This is for example used to deal with the case of 6055 -- a cleanup procedure that must handle declarations as well as the 6056 -- statements of a block. 6057 6058 -- N_Handled_Sequence_Of_Statements 6059 -- Sloc points to first token of first statement 6060 -- Statements (List3) 6061 -- End_Label (Node4) (set to Empty if expander generated) 6062 -- Exception_Handlers (List5) (set to No_List if none present) 6063 -- At_End_Proc (Node1) (set to Empty if no clean up procedure) 6064 -- First_Real_Statement (Node2-Sem) 6065 6066 -- Note: the parent always contains a Declarations field which contains 6067 -- declarations associated with the handled sequence of statements. This 6068 -- is true even in the case of an accept statement (see description of 6069 -- the N_Accept_Statement node). 6070 6071 -- End_Label refers to the containing construct 6072 6073 ----------------------------- 6074 -- 11.2 Exception Handler -- 6075 ----------------------------- 6076 6077 -- EXCEPTION_HANDLER ::= 6078 -- when [CHOICE_PARAMETER_SPECIFICATION :] 6079 -- EXCEPTION_CHOICE {| EXCEPTION_CHOICE} => 6080 -- SEQUENCE_OF_STATEMENTS 6081 6082 -- Note: choice parameter specification is not allowed in Ada 83 mode 6083 6084 -- N_Exception_Handler 6085 -- Sloc points to WHEN 6086 -- Choice_Parameter (Node2) (set to Empty if not present) 6087 -- Exception_Choices (List4) 6088 -- Statements (List3) 6089 -- Exception_Label (Node5-Sem) (set to Empty of not present) 6090 -- Local_Raise_Statements (Elist1-Sem) (set to No_Elist if not present) 6091 -- Local_Raise_Not_OK (Flag7-Sem) 6092 -- Has_Local_Raise (Flag8-Sem) 6093 6094 ------------------------------------------ 6095 -- 11.2 Choice parameter specification -- 6096 ------------------------------------------ 6097 6098 -- CHOICE_PARAMETER_SPECIFICATION ::= DEFINING_IDENTIFIER 6099 6100 ---------------------------- 6101 -- 11.2 Exception Choice -- 6102 ---------------------------- 6103 6104 -- EXCEPTION_CHOICE ::= exception_NAME | others 6105 6106 -- Except in the case of OTHERS, no explicit node appears in the tree 6107 -- for exception choice. Instead the exception name appears directly. 6108 -- An OTHERS choice is represented by a N_Others_Choice node (see 6109 -- section 3.8.1. 6110 6111 -- Note: for the exception choice created for an at end handler, the 6112 -- exception choice is an N_Others_Choice node with All_Others set. 6113 6114 --------------------------- 6115 -- 11.3 Raise Statement -- 6116 --------------------------- 6117 6118 -- RAISE_STATEMENT ::= raise [exception_NAME]; 6119 6120 -- In Ada 2005, we have 6121 6122 -- RAISE_STATEMENT ::= raise; | raise exception_NAME [with EXPRESSION]; 6123 6124 -- N_Raise_Statement 6125 -- Sloc points to RAISE 6126 -- Name (Node2) (set to Empty if no exception name present) 6127 -- Expression (Node3) (set to Empty if no expression present) 6128 -- From_At_End (Flag4-Sem) 6129 6130 ------------------------------- 6131 -- 12.1 Generic Declaration -- 6132 ------------------------------- 6133 6134 -- GENERIC_DECLARATION ::= 6135 -- GENERIC_SUBPROGRAM_DECLARATION | GENERIC_PACKAGE_DECLARATION 6136 6137 ------------------------------------------ 6138 -- 12.1 Generic Subprogram Declaration -- 6139 ------------------------------------------ 6140 6141 -- GENERIC_SUBPROGRAM_DECLARATION ::= 6142 -- GENERIC_FORMAL_PART SUBPROGRAM_SPECIFICATION; 6143 6144 -- Note: Generic_Formal_Declarations can include pragmas 6145 6146 -- N_Generic_Subprogram_Declaration 6147 -- Sloc points to GENERIC 6148 -- Specification (Node1) subprogram specification 6149 -- Corresponding_Body (Node5-Sem) 6150 -- Generic_Formal_Declarations (List2) from generic formal part 6151 -- Parent_Spec (Node4-Sem) 6152 6153 --------------------------------------- 6154 -- 12.1 Generic Package Declaration -- 6155 --------------------------------------- 6156 6157 -- GENERIC_PACKAGE_DECLARATION ::= 6158 -- GENERIC_FORMAL_PART PACKAGE_SPECIFICATION 6159 -- [ASPECT_SPECIFICATIONS]; 6160 6161 -- Note: when we do generics right, the Activation_Chain_Entity entry 6162 -- for this node can be removed (since the expander won't see generic 6163 -- units any more)???. 6164 6165 -- Note: Generic_Formal_Declarations can include pragmas 6166 6167 -- N_Generic_Package_Declaration 6168 -- Sloc points to GENERIC 6169 -- Specification (Node1) package specification 6170 -- Corresponding_Body (Node5-Sem) 6171 -- Generic_Formal_Declarations (List2) from generic formal part 6172 -- Parent_Spec (Node4-Sem) 6173 -- Activation_Chain_Entity (Node3-Sem) 6174 6175 ------------------------------- 6176 -- 12.1 Generic Formal Part -- 6177 ------------------------------- 6178 6179 -- GENERIC_FORMAL_PART ::= 6180 -- generic {GENERIC_FORMAL_PARAMETER_DECLARATION | USE_CLAUSE} 6181 6182 ------------------------------------------------ 6183 -- 12.1 Generic Formal Parameter Declaration -- 6184 ------------------------------------------------ 6185 6186 -- GENERIC_FORMAL_PARAMETER_DECLARATION ::= 6187 -- FORMAL_OBJECT_DECLARATION 6188 -- | FORMAL_TYPE_DECLARATION 6189 -- | FORMAL_SUBPROGRAM_DECLARATION 6190 -- | FORMAL_PACKAGE_DECLARATION 6191 6192 --------------------------------- 6193 -- 12.3 Generic Instantiation -- 6194 --------------------------------- 6195 6196 -- GENERIC_INSTANTIATION ::= 6197 -- package DEFINING_PROGRAM_UNIT_NAME is 6198 -- new generic_package_NAME [GENERIC_ACTUAL_PART] 6199 -- [ASPECT_SPECIFICATIONS]; 6200 -- | [[not] overriding] 6201 -- procedure DEFINING_PROGRAM_UNIT_NAME is 6202 -- new generic_procedure_NAME [GENERIC_ACTUAL_PART] 6203 -- [ASPECT_SPECIFICATIONS]; 6204 -- | [[not] overriding] 6205 -- function DEFINING_DESIGNATOR is 6206 -- new generic_function_NAME [GENERIC_ACTUAL_PART] 6207 -- [ASPECT_SPECIFICATIONS]; 6208 6209 -- N_Package_Instantiation 6210 -- Sloc points to PACKAGE 6211 -- Defining_Unit_Name (Node1) 6212 -- Name (Node2) 6213 -- Generic_Associations (List3) (set to No_List if no 6214 -- generic actual part) 6215 -- Parent_Spec (Node4-Sem) 6216 -- Instance_Spec (Node5-Sem) 6217 -- ABE_Is_Certain (Flag18-Sem) 6218 6219 -- N_Procedure_Instantiation 6220 -- Sloc points to PROCEDURE 6221 -- Defining_Unit_Name (Node1) 6222 -- Name (Node2) 6223 -- Parent_Spec (Node4-Sem) 6224 -- Generic_Associations (List3) (set to No_List if no 6225 -- generic actual part) 6226 -- Instance_Spec (Node5-Sem) 6227 -- Must_Override (Flag14) set if overriding indicator present 6228 -- Must_Not_Override (Flag15) set if not_overriding indicator present 6229 -- ABE_Is_Certain (Flag18-Sem) 6230 6231 -- N_Function_Instantiation 6232 -- Sloc points to FUNCTION 6233 -- Defining_Unit_Name (Node1) 6234 -- Name (Node2) 6235 -- Generic_Associations (List3) (set to No_List if no 6236 -- generic actual part) 6237 -- Parent_Spec (Node4-Sem) 6238 -- Instance_Spec (Node5-Sem) 6239 -- Must_Override (Flag14) set if overriding indicator present 6240 -- Must_Not_Override (Flag15) set if not_overriding indicator present 6241 -- ABE_Is_Certain (Flag18-Sem) 6242 6243 -- Note: overriding indicator is an Ada 2005 feature 6244 6245 ------------------------------- 6246 -- 12.3 Generic Actual Part -- 6247 ------------------------------- 6248 6249 -- GENERIC_ACTUAL_PART ::= 6250 -- (GENERIC_ASSOCIATION {, GENERIC_ASSOCIATION}) 6251 6252 ------------------------------- 6253 -- 12.3 Generic Association -- 6254 ------------------------------- 6255 6256 -- GENERIC_ASSOCIATION ::= 6257 -- [generic_formal_parameter_SELECTOR_NAME =>] 6258 6259 -- Note: unlike the procedure call case, a generic association node 6260 -- is generated for every association, even if no formal parameter 6261 -- selector name is present. In this case the parser will leave the 6262 -- Selector_Name field set to Empty, to be filled in later by the 6263 -- semantic pass. 6264 6265 -- In Ada 2005, a formal may be associated with a box, if the 6266 -- association is part of the list of actuals for a formal package. 6267 -- If the association is given by OTHERS => <>, the association is 6268 -- an N_Others_Choice. 6269 6270 -- N_Generic_Association 6271 -- Sloc points to first token of generic association 6272 -- Selector_Name (Node2) (set to Empty if no formal 6273 -- parameter selector name) 6274 -- Explicit_Generic_Actual_Parameter (Node1) (Empty if box present) 6275 -- Box_Present (Flag15) (for formal_package associations with a box) 6276 6277 --------------------------------------------- 6278 -- 12.3 Explicit Generic Actual Parameter -- 6279 --------------------------------------------- 6280 6281 -- EXPLICIT_GENERIC_ACTUAL_PARAMETER ::= 6282 -- EXPRESSION | variable_NAME | subprogram_NAME 6283 -- | entry_NAME | SUBTYPE_MARK | package_instance_NAME 6284 6285 ------------------------------------- 6286 -- 12.4 Formal Object Declaration -- 6287 ------------------------------------- 6288 6289 -- FORMAL_OBJECT_DECLARATION ::= 6290 -- DEFINING_IDENTIFIER_LIST : 6291 -- MODE [NULL_EXCLUSION] SUBTYPE_MARK [:= DEFAULT_EXPRESSION] 6292 -- [ASPECT_SPECIFICATIONS]; 6293 -- | DEFINING_IDENTIFIER_LIST : 6294 -- MODE ACCESS_DEFINITION [:= DEFAULT_EXPRESSION] 6295 -- [ASPECT_SPECIFICATIONS]; 6296 6297 -- Although the syntax allows multiple identifiers in the list, the 6298 -- semantics is as though successive declarations were given with 6299 -- identical type definition and expression components. To simplify 6300 -- semantic processing, the parser represents a multiple declaration 6301 -- case as a sequence of single declarations, using the More_Ids and 6302 -- Prev_Ids flags to preserve the original source form as described 6303 -- in the section on "Handling of Defining Identifier Lists". 6304 6305 -- N_Formal_Object_Declaration 6306 -- Sloc points to first identifier 6307 -- Defining_Identifier (Node1) 6308 -- In_Present (Flag15) 6309 -- Out_Present (Flag17) 6310 -- Null_Exclusion_Present (Flag11) (set to False if not present) 6311 -- Subtype_Mark (Node4) (set to Empty if not present) 6312 -- Access_Definition (Node3) (set to Empty if not present) 6313 -- Default_Expression (Node5) (set to Empty if no default expression) 6314 -- More_Ids (Flag5) (set to False if no more identifiers in list) 6315 -- Prev_Ids (Flag6) (set to False if no previous identifiers in list) 6316 6317 ----------------------------------- 6318 -- 12.5 Formal Type Declaration -- 6319 ----------------------------------- 6320 6321 -- FORMAL_TYPE_DECLARATION ::= 6322 -- type DEFINING_IDENTIFIER [DISCRIMINANT_PART] 6323 -- is FORMAL_TYPE_DEFINITION 6324 -- [ASPECT_SPECIFICATIONS]; 6325 -- | type DEFINING_IDENTIFIER [DISCRIMINANT_PART] [is tagged] 6326 6327 -- N_Formal_Type_Declaration 6328 -- Sloc points to TYPE 6329 -- Defining_Identifier (Node1) 6330 -- Formal_Type_Definition (Node3) 6331 -- Discriminant_Specifications (List4) (set to No_List if no 6332 -- discriminant part) 6333 -- Unknown_Discriminants_Present (Flag13) set if (<>) discriminant 6334 6335 ---------------------------------- 6336 -- 12.5 Formal type definition -- 6337 ---------------------------------- 6338 6339 -- FORMAL_TYPE_DEFINITION ::= 6340 -- FORMAL_PRIVATE_TYPE_DEFINITION 6341 -- | FORMAL_DERIVED_TYPE_DEFINITION 6342 -- | FORMAL_DISCRETE_TYPE_DEFINITION 6343 -- | FORMAL_SIGNED_INTEGER_TYPE_DEFINITION 6344 -- | FORMAL_MODULAR_TYPE_DEFINITION 6345 -- | FORMAL_FLOATING_POINT_DEFINITION 6346 -- | FORMAL_ORDINARY_FIXED_POINT_DEFINITION 6347 -- | FORMAL_DECIMAL_FIXED_POINT_DEFINITION 6348 -- | FORMAL_ARRAY_TYPE_DEFINITION 6349 -- | FORMAL_ACCESS_TYPE_DEFINITION 6350 -- | FORMAL_INTERFACE_TYPE_DEFINITION 6351 -- | FORMAL_INCOMPLETE_TYPE_DEFINITION 6352 6353 -- The Ada 2012 syntax introduces two new non-terminals: 6354 -- Formal_{Complete,Incomplete}_Type_Declaration just to introduce 6355 -- the latter category. Here we introduce an incomplete type definition 6356 -- in order to preserve as much as possible the existing structure. 6357 6358 --------------------------------------------- 6359 -- 12.5.1 Formal Private Type Definition -- 6360 --------------------------------------------- 6361 6362 -- FORMAL_PRIVATE_TYPE_DEFINITION ::= 6363 -- [[abstract] tagged] [limited] private 6364 6365 -- Note: TAGGED is not allowed in Ada 83 mode 6366 6367 -- N_Formal_Private_Type_Definition 6368 -- Sloc points to PRIVATE 6369 -- Abstract_Present (Flag4) 6370 -- Tagged_Present (Flag15) 6371 -- Limited_Present (Flag17) 6372 6373 -------------------------------------------- 6374 -- 12.5.1 Formal Derived Type Definition -- 6375 -------------------------------------------- 6376 6377 -- FORMAL_DERIVED_TYPE_DEFINITION ::= 6378 -- [abstract] [limited | synchronized] 6379 -- new SUBTYPE_MARK [[and INTERFACE_LIST] with private] 6380 -- Note: this construct is not allowed in Ada 83 mode 6381 6382 -- N_Formal_Derived_Type_Definition 6383 -- Sloc points to NEW 6384 -- Subtype_Mark (Node4) 6385 -- Private_Present (Flag15) 6386 -- Abstract_Present (Flag4) 6387 -- Limited_Present (Flag17) 6388 -- Synchronized_Present (Flag7) 6389 -- Interface_List (List2) (set to No_List if none) 6390 6391 ----------------------------------------------- 6392 -- 12.5.1 Formal Incomplete Type Definition -- 6393 ----------------------------------------------- 6394 6395 -- FORMAL_INCOMPLETE_TYPE_DEFINITION ::= [tagged] 6396 6397 -- N_Formal_Incomplete_Type_Definition 6398 -- Sloc points to identifier of parent 6399 -- Tagged_Present (Flag15) 6400 6401 --------------------------------------------- 6402 -- 12.5.2 Formal Discrete Type Definition -- 6403 --------------------------------------------- 6404 6405 -- FORMAL_DISCRETE_TYPE_DEFINITION ::= (<>) 6406 6407 -- N_Formal_Discrete_Type_Definition 6408 -- Sloc points to ( 6409 6410 --------------------------------------------------- 6411 -- 12.5.2 Formal Signed Integer Type Definition -- 6412 --------------------------------------------------- 6413 6414 -- FORMAL_SIGNED_INTEGER_TYPE_DEFINITION ::= range <> 6415 6416 -- N_Formal_Signed_Integer_Type_Definition 6417 -- Sloc points to RANGE 6418 6419 -------------------------------------------- 6420 -- 12.5.2 Formal Modular Type Definition -- 6421 -------------------------------------------- 6422 6423 -- FORMAL_MODULAR_TYPE_DEFINITION ::= mod <> 6424 6425 -- N_Formal_Modular_Type_Definition 6426 -- Sloc points to MOD 6427 6428 ---------------------------------------------- 6429 -- 12.5.2 Formal Floating Point Definition -- 6430 ---------------------------------------------- 6431 6432 -- FORMAL_FLOATING_POINT_DEFINITION ::= digits <> 6433 6434 -- N_Formal_Floating_Point_Definition 6435 -- Sloc points to DIGITS 6436 6437 ---------------------------------------------------- 6438 -- 12.5.2 Formal Ordinary Fixed Point Definition -- 6439 ---------------------------------------------------- 6440 6441 -- FORMAL_ORDINARY_FIXED_POINT_DEFINITION ::= delta <> 6442 6443 -- N_Formal_Ordinary_Fixed_Point_Definition 6444 -- Sloc points to DELTA 6445 6446 --------------------------------------------------- 6447 -- 12.5.2 Formal Decimal Fixed Point Definition -- 6448 --------------------------------------------------- 6449 6450 -- FORMAL_DECIMAL_FIXED_POINT_DEFINITION ::= delta <> digits <> 6451 6452 -- Note: formal decimal fixed point definition not allowed in Ada 83 6453 6454 -- N_Formal_Decimal_Fixed_Point_Definition 6455 -- Sloc points to DELTA 6456 6457 ------------------------------------------ 6458 -- 12.5.3 Formal Array Type Definition -- 6459 ------------------------------------------ 6460 6461 -- FORMAL_ARRAY_TYPE_DEFINITION ::= ARRAY_TYPE_DEFINITION 6462 6463 ------------------------------------------- 6464 -- 12.5.4 Formal Access Type Definition -- 6465 ------------------------------------------- 6466 6467 -- FORMAL_ACCESS_TYPE_DEFINITION ::= ACCESS_TYPE_DEFINITION 6468 6469 ---------------------------------------------- 6470 -- 12.5.5 Formal Interface Type Definition -- 6471 ---------------------------------------------- 6472 6473 -- FORMAL_INTERFACE_TYPE_DEFINITION ::= INTERFACE_TYPE_DEFINITION 6474 6475 ----------------------------------------- 6476 -- 12.6 Formal Subprogram Declaration -- 6477 ----------------------------------------- 6478 6479 -- FORMAL_SUBPROGRAM_DECLARATION ::= 6480 -- FORMAL_CONCRETE_SUBPROGRAM_DECLARATION 6481 -- | FORMAL_ABSTRACT_SUBPROGRAM_DECLARATION 6482 6483 -------------------------------------------------- 6484 -- 12.6 Formal Concrete Subprogram Declaration -- 6485 -------------------------------------------------- 6486 6487 -- FORMAL_CONCRETE_SUBPROGRAM_DECLARATION ::= 6488 -- with SUBPROGRAM_SPECIFICATION [is SUBPROGRAM_DEFAULT] 6489 -- [ASPECT_SPECIFICATIONS]; 6490 6491 -- N_Formal_Concrete_Subprogram_Declaration 6492 -- Sloc points to WITH 6493 -- Specification (Node1) 6494 -- Default_Name (Node2) (set to Empty if no subprogram default) 6495 -- Box_Present (Flag15) 6496 6497 -- Note: if no subprogram default is present, then Name is set 6498 -- to Empty, and Box_Present is False. 6499 6500 -------------------------------------------------- 6501 -- 12.6 Formal Abstract Subprogram Declaration -- 6502 -------------------------------------------------- 6503 6504 -- FORMAL_ABSTRACT_SUBPROGRAM_DECLARATION ::= 6505 -- with SUBPROGRAM_SPECIFICATION is abstract [SUBPROGRAM_DEFAULT] 6506 -- [ASPECT_SPECIFICATIONS]; 6507 6508 -- N_Formal_Abstract_Subprogram_Declaration 6509 -- Sloc points to WITH 6510 -- Specification (Node1) 6511 -- Default_Name (Node2) (set to Empty if no subprogram default) 6512 -- Box_Present (Flag15) 6513 6514 -- Note: if no subprogram default is present, then Name is set 6515 -- to Empty, and Box_Present is False. 6516 6517 ------------------------------ 6518 -- 12.6 Subprogram Default -- 6519 ------------------------------ 6520 6521 -- SUBPROGRAM_DEFAULT ::= DEFAULT_NAME | <> 6522 6523 -- There is no separate node in the tree for a subprogram default. 6524 -- Instead the parent (N_Formal_Concrete_Subprogram_Declaration 6525 -- or N_Formal_Abstract_Subprogram_Declaration) node contains the 6526 -- default name or box indication, as needed. 6527 6528 ------------------------ 6529 -- 12.6 Default Name -- 6530 ------------------------ 6531 6532 -- DEFAULT_NAME ::= NAME 6533 6534 -------------------------------------- 6535 -- 12.7 Formal Package Declaration -- 6536 -------------------------------------- 6537 6538 -- FORMAL_PACKAGE_DECLARATION ::= 6539 -- with package DEFINING_IDENTIFIER 6540 -- is new generic_package_NAME FORMAL_PACKAGE_ACTUAL_PART 6541 -- [ASPECT_SPECIFICATIONS]; 6542 6543 -- Note: formal package declarations not allowed in Ada 83 mode 6544 6545 -- N_Formal_Package_Declaration 6546 -- Sloc points to WITH 6547 -- Defining_Identifier (Node1) 6548 -- Name (Node2) 6549 -- Generic_Associations (List3) (set to No_List if (<>) case or 6550 -- empty generic actual part) 6551 -- Box_Present (Flag15) 6552 -- Instance_Spec (Node5-Sem) 6553 -- ABE_Is_Certain (Flag18-Sem) 6554 6555 -------------------------------------- 6556 -- 12.7 Formal Package Actual Part -- 6557 -------------------------------------- 6558 6559 -- FORMAL_PACKAGE_ACTUAL_PART ::= 6560 -- ([OTHERS] => <>) 6561 -- | [GENERIC_ACTUAL_PART] 6562 -- (FORMAL_PACKAGE_ASSOCIATION {. FORMAL_PACKAGE_ASSOCIATION} 6563 6564 -- FORMAL_PACKAGE_ASSOCIATION ::= 6565 -- GENERIC_ASSOCIATION 6566 -- | GENERIC_FORMAL_PARAMETER_SELECTOR_NAME => <> 6567 6568 -- There is no explicit node in the tree for a formal package actual 6569 -- part. Instead the information appears in the parent node (i.e. the 6570 -- formal package declaration node itself). 6571 6572 -- There is no explicit node for a formal package association. All of 6573 -- them are represented either by a generic association, possibly with 6574 -- Box_Present, or by an N_Others_Choice. 6575 6576 --------------------------------- 6577 -- 13.1 Representation clause -- 6578 --------------------------------- 6579 6580 -- REPRESENTATION_CLAUSE ::= 6581 -- ATTRIBUTE_DEFINITION_CLAUSE 6582 -- | ENUMERATION_REPRESENTATION_CLAUSE 6583 -- | RECORD_REPRESENTATION_CLAUSE 6584 -- | AT_CLAUSE 6585 6586 ---------------------- 6587 -- 13.1 Local Name -- 6588 ---------------------- 6589 6590 -- LOCAL_NAME := 6591 -- DIRECT_NAME 6592 -- | DIRECT_NAME'ATTRIBUTE_DESIGNATOR 6593 -- | library_unit_NAME 6594 6595 -- The construct DIRECT_NAME'ATTRIBUTE_DESIGNATOR appears in the tree 6596 -- as an attribute reference, which has essentially the same form. 6597 6598 --------------------------------------- 6599 -- 13.3 Attribute definition clause -- 6600 --------------------------------------- 6601 6602 -- ATTRIBUTE_DEFINITION_CLAUSE ::= 6603 -- for LOCAL_NAME'ATTRIBUTE_DESIGNATOR use EXPRESSION; 6604 -- | for LOCAL_NAME'ATTRIBUTE_DESIGNATOR use NAME; 6605 6606 -- In Ada 83, the expression must be a simple expression and the 6607 -- local name must be a direct name. 6608 6609 -- Note: the only attribute definition clause that is processed by 6610 -- gigi is an address clause. For all other cases, the information 6611 -- is extracted by the front end and either results in setting entity 6612 -- information, e.g. Esize for the Size clause, or in appropriate 6613 -- expansion actions (e.g. in the case of Storage_Size). 6614 6615 -- For an address clause, Gigi constructs the appropriate addressing 6616 -- code. It also ensures that no aliasing optimizations are made 6617 -- for the object for which the address clause appears. 6618 6619 -- Note: for an address clause used to achieve an overlay: 6620 6621 -- A : Integer; 6622 -- B : Integer; 6623 -- for B'Address use A'Address; 6624 6625 -- the above rule means that Gigi will ensure that no optimizations 6626 -- will be made for B that would violate the implementation advice 6627 -- of RM 13.3(19). However, this advice applies only to B and not 6628 -- to A, which seems unfortunate. The GNAT front end will mark the 6629 -- object A as volatile to also prevent unwanted optimization 6630 -- assumptions based on no aliasing being made for B. 6631 6632 -- N_Attribute_Definition_Clause 6633 -- Sloc points to FOR 6634 -- Name (Node2) the local name 6635 -- Chars (Name1) the identifier name from the attribute designator 6636 -- Expression (Node3) the expression or name 6637 -- Entity (Node4-Sem) 6638 -- Next_Rep_Item (Node5-Sem) 6639 -- From_At_Mod (Flag4-Sem) 6640 -- Check_Address_Alignment (Flag11-Sem) 6641 -- From_Aspect_Specification (Flag13-Sem) 6642 -- Is_Delayed_Aspect (Flag14-Sem) 6643 -- Address_Warning_Posted (Flag18-Sem) 6644 6645 -- Note: if From_Aspect_Specification is set, then Sloc points to the 6646 -- aspect name, and Entity is resolved already to reference the entity 6647 -- to which the aspect applies. 6648 6649 ----------------------------------- 6650 -- 13.3.1 Aspect Specifications -- 6651 ----------------------------------- 6652 6653 -- We modify the RM grammar here, the RM grammar is: 6654 6655 -- ASPECT_SPECIFICATION ::= 6656 -- with ASPECT_MARK [=> ASPECT_DEFINITION] {, 6657 -- ASPECT_MARK [=> ASPECT_DEFINITION] } 6658 6659 -- ASPECT_MARK ::= aspect_IDENTIFIER['Class] 6660 6661 -- ASPECT_DEFINITION ::= NAME | EXPRESSION 6662 6663 -- That's inconvenient, since there is no non-terminal name for a single 6664 -- entry in the list of aspects. So we use this grammar instead: 6665 6666 -- ASPECT_SPECIFICATIONS ::= 6667 -- with ASPECT_SPECIFICATION {, ASPECT_SPECIFICATION} 6668 6669 -- ASPECT_SPECIFICATION => 6670 -- ASPECT_MARK [=> ASPECT_DEFINITION] 6671 6672 -- ASPECT_MARK ::= aspect_IDENTIFIER['Class] 6673 6674 -- ASPECT_DEFINITION ::= NAME | EXPRESSION 6675 6676 -- See separate package Aspects for details on the incorporation of 6677 -- these nodes into the tree, and how aspect specifications for a given 6678 -- declaration node are associated with that node. 6679 6680 -- N_Aspect_Specification 6681 -- Sloc points to aspect identifier 6682 -- Identifier (Node1) aspect identifier 6683 -- Aspect_Rep_Item (Node2-Sem) 6684 -- Expression (Node3) Aspect_Definition (set to Empty if none) 6685 -- Entity (Node4-Sem) entity to which the aspect applies 6686 -- Class_Present (Flag6) Set if 'Class present 6687 -- Next_Rep_Item (Node5-Sem) 6688 -- Split_PPC (Flag17) Set if split pre/post attribute 6689 -- Is_Boolean_Aspect (Flag16-Sem) 6690 -- Is_Delayed_Aspect (Flag14-Sem) 6691 6692 -- Note: Aspect_Specification is an Ada 2012 feature 6693 6694 -- Note: The Identifier serves to identify the aspect involved (it 6695 -- is the aspect whose name corresponds to the Chars field). This 6696 -- means that the other fields of this identifier are unused, and 6697 -- in particular we use the Entity field of this identifier to save 6698 -- a copy of the expression for visibility analysis, see spec of 6699 -- Sem_Ch13 for full details of this usage. 6700 6701 -- Note: When a Pre or Post aspect specification is processed, it is 6702 -- broken into AND THEN sections. The left most section has Split_PPC 6703 -- set to False, indicating that it is the original specification (e.g. 6704 -- for posting errors). For the other sections, Split_PPC is set True. 6705 6706 --------------------------------------------- 6707 -- 13.4 Enumeration representation clause -- 6708 --------------------------------------------- 6709 6710 -- ENUMERATION_REPRESENTATION_CLAUSE ::= 6711 -- for first_subtype_LOCAL_NAME use ENUMERATION_AGGREGATE; 6712 6713 -- In Ada 83, the name must be a direct name 6714 6715 -- N_Enumeration_Representation_Clause 6716 -- Sloc points to FOR 6717 -- Identifier (Node1) direct name 6718 -- Array_Aggregate (Node3) 6719 -- Next_Rep_Item (Node5-Sem) 6720 6721 --------------------------------- 6722 -- 13.4 Enumeration aggregate -- 6723 --------------------------------- 6724 6725 -- ENUMERATION_AGGREGATE ::= ARRAY_AGGREGATE 6726 6727 ------------------------------------------ 6728 -- 13.5.1 Record representation clause -- 6729 ------------------------------------------ 6730 6731 -- RECORD_REPRESENTATION_CLAUSE ::= 6732 -- for first_subtype_LOCAL_NAME use 6733 -- record [MOD_CLAUSE] 6734 -- {COMPONENT_CLAUSE} 6735 -- end record; 6736 6737 -- Gigi restriction: Mod_Clause is always Empty (if present it is 6738 -- replaced by a corresponding Alignment attribute definition clause). 6739 6740 -- Note: Component_Clauses can include pragmas 6741 6742 -- N_Record_Representation_Clause 6743 -- Sloc points to FOR 6744 -- Identifier (Node1) direct name 6745 -- Mod_Clause (Node2) (set to Empty if no mod clause present) 6746 -- Component_Clauses (List3) 6747 -- Next_Rep_Item (Node5-Sem) 6748 6749 ------------------------------ 6750 -- 13.5.1 Component clause -- 6751 ------------------------------ 6752 6753 -- COMPONENT_CLAUSE ::= 6754 -- component_LOCAL_NAME at POSITION 6755 -- range FIRST_BIT .. LAST_BIT; 6756 6757 -- N_Component_Clause 6758 -- Sloc points to AT 6759 -- Component_Name (Node1) points to Name or Attribute_Reference 6760 -- Position (Node2) 6761 -- First_Bit (Node3) 6762 -- Last_Bit (Node4) 6763 6764 ---------------------- 6765 -- 13.5.1 Position -- 6766 ---------------------- 6767 6768 -- POSITION ::= static_EXPRESSION 6769 6770 ----------------------- 6771 -- 13.5.1 First_Bit -- 6772 ----------------------- 6773 6774 -- FIRST_BIT ::= static_SIMPLE_EXPRESSION 6775 6776 ---------------------- 6777 -- 13.5.1 Last_Bit -- 6778 ---------------------- 6779 6780 -- LAST_BIT ::= static_SIMPLE_EXPRESSION 6781 6782 -------------------------- 6783 -- 13.8 Code statement -- 6784 -------------------------- 6785 6786 -- CODE_STATEMENT ::= QUALIFIED_EXPRESSION; 6787 6788 -- Note: in GNAT, the qualified expression has the form 6789 6790 -- Asm_Insn'(Asm (...)); 6791 6792 -- See package System.Machine_Code in file s-maccod.ads for details on 6793 -- the allowed parameters to Asm. There are two ways this node can 6794 -- arise, as a code statement, in which case the expression is the 6795 -- qualified expression, or as a result of the expansion of an intrinsic 6796 -- call to the Asm or Asm_Input procedure. 6797 6798 -- N_Code_Statement 6799 -- Sloc points to first token of the expression 6800 -- Expression (Node3) 6801 6802 -- Note: package Exp_Code contains an abstract functional interface 6803 -- for use by Gigi in accessing the data from N_Code_Statement nodes. 6804 6805 ------------------------ 6806 -- 13.12 Restriction -- 6807 ------------------------ 6808 6809 -- RESTRICTION ::= 6810 -- restriction_IDENTIFIER 6811 -- | restriction_parameter_IDENTIFIER => EXPRESSION 6812 6813 -- There is no explicit node for restrictions. Instead the restriction 6814 -- appears in normal pragma syntax as a pragma argument association, 6815 -- which has the same syntactic form. 6816 6817 -------------------------- 6818 -- B.2 Shift Operators -- 6819 -------------------------- 6820 6821 -- Calls to the intrinsic shift functions are converted to one of 6822 -- the following shift nodes, which have the form of normal binary 6823 -- operator names. Note that for a given shift operation, one node 6824 -- covers all possible types, as for normal operators. 6825 6826 -- Note: it is perfectly permissible for the expander to generate 6827 -- shift operation nodes directly, in which case they will be analyzed 6828 -- and parsed in the usual manner. 6829 6830 -- Sprint syntax: shift-function-name!(expr, count) 6831 6832 -- Note: the Left_Opnd field holds the first argument (the value to 6833 -- be shifted). The Right_Opnd field holds the second argument (the 6834 -- shift count). The Chars field is the name of the intrinsic function. 6835 6836 -- N_Op_Rotate_Left 6837 -- Sloc points to the function name 6838 -- plus fields for binary operator 6839 -- plus fields for expression 6840 -- Shift_Count_OK (Flag4-Sem) 6841 6842 -- N_Op_Rotate_Right 6843 -- Sloc points to the function name 6844 -- plus fields for binary operator 6845 -- plus fields for expression 6846 -- Shift_Count_OK (Flag4-Sem) 6847 6848 -- N_Op_Shift_Left 6849 -- Sloc points to the function name 6850 -- plus fields for binary operator 6851 -- plus fields for expression 6852 -- Shift_Count_OK (Flag4-Sem) 6853 6854 -- N_Op_Shift_Right_Arithmetic 6855 -- Sloc points to the function name 6856 -- plus fields for binary operator 6857 -- plus fields for expression 6858 -- Shift_Count_OK (Flag4-Sem) 6859 6860 -- N_Op_Shift_Right 6861 -- Sloc points to the function name 6862 -- plus fields for binary operator 6863 -- plus fields for expression 6864 -- Shift_Count_OK (Flag4-Sem) 6865 6866 -------------------------- 6867 -- Obsolescent Features -- 6868 -------------------------- 6869 6870 -- The syntax descriptions and tree nodes for obsolescent features are 6871 -- grouped together, corresponding to their location in appendix I in 6872 -- the RM. However, parsing and semantic analysis for these constructs 6873 -- is located in an appropriate chapter (see individual notes). 6874 6875 --------------------------- 6876 -- J.3 Delta Constraint -- 6877 --------------------------- 6878 6879 -- Note: the parse routine for this construct is located in section 6880 -- 3.5.9 of Par-Ch3, and semantic analysis is in Sem_Ch3, which is 6881 -- where delta constraint logically belongs. 6882 6883 -- DELTA_CONSTRAINT ::= DELTA static_EXPRESSION [RANGE_CONSTRAINT] 6884 6885 -- N_Delta_Constraint 6886 -- Sloc points to DELTA 6887 -- Delta_Expression (Node3) 6888 -- Range_Constraint (Node4) (set to Empty if not present) 6889 6890 -------------------- 6891 -- J.7 At Clause -- 6892 -------------------- 6893 6894 -- AT_CLAUSE ::= for DIRECT_NAME use at EXPRESSION; 6895 6896 -- Note: the parse routine for this construct is located in Par-Ch13, 6897 -- and the semantic analysis is in Sem_Ch13, where at clause logically 6898 -- belongs if it were not obsolescent. 6899 6900 -- Note: in Ada 83 the expression must be a simple expression 6901 6902 -- Gigi restriction: This node never appears, it is rewritten as an 6903 -- address attribute definition clause. 6904 6905 -- N_At_Clause 6906 -- Sloc points to FOR 6907 -- Identifier (Node1) 6908 -- Expression (Node3) 6909 6910 --------------------- 6911 -- J.8 Mod clause -- 6912 --------------------- 6913 6914 -- MOD_CLAUSE ::= at mod static_EXPRESSION; 6915 6916 -- Note: the parse routine for this construct is located in Par-Ch13, 6917 -- and the semantic analysis is in Sem_Ch13, where mod clause logically 6918 -- belongs if it were not obsolescent. 6919 6920 -- Note: in Ada 83, the expression must be a simple expression 6921 6922 -- Gigi restriction: this node never appears. It is replaced 6923 -- by a corresponding Alignment attribute definition clause. 6924 6925 -- Note: pragmas can appear before and after the MOD_CLAUSE since 6926 -- its name has "clause" in it. This is rather strange, but is quite 6927 -- definitely specified. The pragmas before are collected in the 6928 -- Pragmas_Before field of the mod clause node itself, and pragmas 6929 -- after are simply swallowed up in the list of component clauses. 6930 6931 -- N_Mod_Clause 6932 -- Sloc points to AT 6933 -- Expression (Node3) 6934 -- Pragmas_Before (List4) Pragmas before mod clause (No_List if none) 6935 6936 -------------------- 6937 -- Semantic Nodes -- 6938 -------------------- 6939 6940 -- These semantic nodes are used to hold additional semantic information. 6941 -- They are inserted into the tree as a result of semantic processing. 6942 -- Although there are no legitimate source syntax constructions that 6943 -- correspond directly to these nodes, we need a source syntax for the 6944 -- reconstructed tree printed by Sprint, and the node descriptions here 6945 -- show this syntax. 6946 6947 -------------- 6948 -- Contract -- 6949 -------------- 6950 6951 -- This node is used to hold the various parts of an entry or subprogram 6952 -- contract, consisting in pre- and postconditions on the one hand, and 6953 -- test-cases on the other hand. 6954 6955 -- It is referenced from an entry, a subprogram or a generic subprogram 6956 -- entity. 6957 6958 -- Sprint syntax: <none> as the node should not appear in the tree, but 6959 -- only attached to an entry or [generic] subprogram 6960 -- entity. 6961 6962 -- N_Contract 6963 -- Sloc points to the subprogram's name 6964 -- Spec_PPC_List (Node1) (set to Empty if none) 6965 -- Spec_CTC_List (Node2) (set to Empty if none) 6966 6967 -- Spec_PPC_List points to a list of Precondition and Postcondition 6968 -- pragma nodes for preconditions and postconditions declared in the 6969 -- spec of the entry/subprogram. The last pragma encountered is at the 6970 -- head of this list, so it is in reverse order of textual appearance. 6971 -- Note that this includes precondition/postcondition pragmas generated 6972 -- to correspond to Pre/Post aspects. 6973 6974 -- Spec_CTC_List points to a list of Contract_Case and Test_Case pragma 6975 -- nodes for contract-cases and test-cases declared in the spec of the 6976 -- entry/subprogram. The last pragma encountered is at the head of this 6977 -- list, so it is in reverse order of textual appearance. Note that 6978 -- this includes contract-case and test-case pragmas generated from 6979 -- Contract_Case and Test_Case aspects. 6980 6981 ------------------- 6982 -- Expanded_Name -- 6983 ------------------- 6984 6985 -- The N_Expanded_Name node is used to represent a selected component 6986 -- name that has been resolved to an expanded name. The semantic phase 6987 -- replaces N_Selected_Component nodes that represent names by the use 6988 -- of this node, leaving the N_Selected_Component node used only when 6989 -- the prefix is a record or protected type. 6990 6991 -- The fields of the N_Expanded_Name node are layed out identically 6992 -- to those of the N_Selected_Component node, allowing conversion of 6993 -- an expanded name node to a selected component node to be done 6994 -- easily, see Sinfo.CN.Change_Selected_Component_To_Expanded_Name. 6995 6996 -- There is no special sprint syntax for an expanded name 6997 6998 -- N_Expanded_Name 6999 -- Sloc points to the period 7000 -- Chars (Name1) copy of Chars field of selector name 7001 -- Prefix (Node3) 7002 -- Selector_Name (Node2) 7003 -- Entity (Node4-Sem) 7004 -- Associated_Node (Node4-Sem) 7005 -- Has_Private_View (Flag11-Sem) set in generic units. 7006 -- Redundant_Use (Flag13-Sem) 7007 -- Atomic_Sync_Required (Flag14-Sem) 7008 -- plus fields for expression 7009 7010 ----------------------------- 7011 -- Expression with Actions -- 7012 ----------------------------- 7013 7014 -- This node is created by the analyzer/expander to handle some 7015 -- expansion cases, notably short circuit forms where there are 7016 -- actions associated with the right-hand side operand. 7017 7018 -- The N_Expression_With_Actions node represents an expression with 7019 -- an associated set of actions (which are executable statements and 7020 -- declarations, as might occur in a handled statement sequence). 7021 7022 -- The required semantics is that the set of actions is executed in 7023 -- the order in which it appears just before the expression is 7024 -- evaluated (and these actions must only be executed if the value 7025 -- of the expression is evaluated). The node is considered to be 7026 -- a subexpression, whose value is the value of the Expression after 7027 -- executing all the actions. 7028 7029 -- If the actions contain declarations, then these declarations may 7030 -- be referenced within the expression. However note that there is 7031 -- no proper scope associated with the expression-with-action, so the 7032 -- back-end will elaborate them in the context of the enclosing scope. 7033 7034 -- Sprint syntax: do 7035 -- action; 7036 -- action; 7037 -- ... 7038 -- action; 7039 -- in expression end 7040 7041 -- N_Expression_With_Actions 7042 -- Actions (List1) 7043 -- Expression (Node3) 7044 -- plus fields for expression 7045 7046 -- Note: the actions list is always non-null, since we would 7047 -- never have created this node if there weren't some actions. 7048 7049 -- Note: Expression may be a Null_Statement, in which case the 7050 -- N_Expression_With_Actions has type Standard_Void_Type. However some 7051 -- backends do not support such expression-with-actions occurring 7052 -- outside of a proper (non-void) expression, so this should just be 7053 -- used as an intermediate representation within the front-end. 7054 7055 -------------------- 7056 -- Free Statement -- 7057 -------------------- 7058 7059 -- The N_Free_Statement node is generated as a result of a call to an 7060 -- instantiation of Unchecked_Deallocation. The instantiation of this 7061 -- generic is handled specially and generates this node directly. 7062 7063 -- Sprint syntax: free expression 7064 7065 -- N_Free_Statement 7066 -- Sloc is copied from the unchecked deallocation call 7067 -- Expression (Node3) argument to unchecked deallocation call 7068 -- Storage_Pool (Node1-Sem) 7069 -- Procedure_To_Call (Node2-Sem) 7070 -- Actual_Designated_Subtype (Node4-Sem) 7071 7072 -- Note: in the case where a debug source file is generated, the Sloc 7073 -- for this node points to the FREE keyword in the Sprint file output. 7074 7075 ------------------- 7076 -- Freeze Entity -- 7077 ------------------- 7078 7079 -- This node marks the point in a declarative part at which an entity 7080 -- declared therein becomes frozen. The expander places initialization 7081 -- procedures for types at those points. Gigi uses the freezing point 7082 -- to elaborate entities that may depend on previous private types. 7083 7084 -- See the section in Einfo "Delayed Freezing and Elaboration" for 7085 -- a full description of the use of this node. 7086 7087 -- The Entity field points back to the entity for the type (whose 7088 -- Freeze_Node field points back to this freeze node). 7089 7090 -- The Actions field contains a list of declarations and statements 7091 -- generated by the expander which are associated with the freeze 7092 -- node, and are elaborated as though the freeze node were replaced 7093 -- by this sequence of actions. 7094 7095 -- Note: the Sloc field in the freeze node references a construct 7096 -- associated with the freezing point. This is used for posting 7097 -- messages in some error/warning situations, e.g. the case where 7098 -- a primitive operation of a tagged type is declared too late. 7099 7100 -- Sprint syntax: freeze entity-name [ 7101 -- freeze actions 7102 -- ] 7103 7104 -- N_Freeze_Entity 7105 -- Sloc points near freeze point (see above special note) 7106 -- Entity (Node4-Sem) 7107 -- Access_Types_To_Process (Elist2-Sem) (set to No_Elist if none) 7108 -- TSS_Elist (Elist3-Sem) (set to No_Elist if no associated TSS's) 7109 -- Actions (List1) (set to No_List if no freeze actions) 7110 -- First_Subtype_Link (Node5-Sem) (set to Empty if no link) 7111 7112 -- The Actions field holds actions associated with the freeze. These 7113 -- actions are elaborated at the point where the type is frozen. 7114 7115 -- Note: in the case where a debug source file is generated, the Sloc 7116 -- for this node points to the FREEZE keyword in the Sprint file output. 7117 7118 -------------------------------- 7119 -- Implicit Label Declaration -- 7120 -------------------------------- 7121 7122 -- An implicit label declaration is created for every occurrence of a 7123 -- label on a statement or a label on a block or loop. It is chained 7124 -- in the declarations of the innermost enclosing block as specified 7125 -- in RM section 5.1 (3). 7126 7127 -- The Defining_Identifier is the actual identifier for the statement 7128 -- identifier. Note that the occurrence of the label is a reference, NOT 7129 -- the defining occurrence. The defining occurrence occurs at the head 7130 -- of the innermost enclosing block, and is represented by this node. 7131 7132 -- Note: from the grammar, this might better be called an implicit 7133 -- statement identifier declaration, but the term we choose seems 7134 -- friendlier, since at least informally statement identifiers are 7135 -- called labels in both cases (i.e. when used in labels, and when 7136 -- used as the identifiers of blocks and loops). 7137 7138 -- Note: although this is logically a semantic node, since it does not 7139 -- correspond directly to a source syntax construction, these nodes are 7140 -- actually created by the parser in a post pass done just after parsing 7141 -- is complete, before semantic analysis is started (see Par.Labl). 7142 7143 -- Sprint syntax: labelname : label; 7144 7145 -- N_Implicit_Label_Declaration 7146 -- Sloc points to the << of the label 7147 -- Defining_Identifier (Node1) 7148 -- Label_Construct (Node2-Sem) 7149 7150 -- Note: in the case where a debug source file is generated, the Sloc 7151 -- for this node points to the label name in the generated declaration. 7152 7153 --------------------- 7154 -- Itype_Reference -- 7155 --------------------- 7156 7157 -- This node is used to create a reference to an Itype. The only purpose 7158 -- is to make sure the Itype is defined if this is the first reference. 7159 7160 -- A typical use of this node is when an Itype is to be referenced in 7161 -- two branches of an IF statement. In this case it is important that 7162 -- the first use of the Itype not be inside the conditional, since then 7163 -- it might not be defined if the other branch of the IF is taken, in 7164 -- the case where the definition generates elaboration code. 7165 7166 -- The Itype field points to the referenced Itype 7167 7168 -- Sprint syntax: reference itype-name 7169 7170 -- N_Itype_Reference 7171 -- Sloc points to the node generating the reference 7172 -- Itype (Node1-Sem) 7173 7174 -- Note: in the case where a debug source file is generated, the Sloc 7175 -- for this node points to the REFERENCE keyword in the file output. 7176 7177 --------------------- 7178 -- Raise_xxx_Error -- 7179 --------------------- 7180 7181 -- One of these nodes is created during semantic analysis to replace 7182 -- a node for an expression that is determined to definitely raise 7183 -- the corresponding exception. 7184 7185 -- The N_Raise_xxx_Error node may also stand alone in place 7186 -- of a declaration or statement, in which case it simply causes 7187 -- the exception to be raised (i.e. it is equivalent to a raise 7188 -- statement that raises the corresponding exception). This use 7189 -- is distinguished by the fact that the Etype in this case is 7190 -- Standard_Void_Type; in the subexpression case, the Etype is the 7191 -- same as the type of the subexpression which it replaces. 7192 7193 -- If Condition is empty, then the raise is unconditional. If the 7194 -- Condition field is non-empty, it is a boolean expression which 7195 -- is first evaluated, and the exception is raised only if the 7196 -- value of the expression is True. In the unconditional case, the 7197 -- creation of this node is usually accompanied by a warning message 7198 -- error. The creation of this node will usually be accompanied by a 7199 -- message (unless it appears within the right operand of a short 7200 -- circuit form whose left argument is static and decisively 7201 -- eliminates elaboration of the raise operation. The condition field 7202 -- can ONLY be present when the node is used as a statement form, it 7203 -- may NOT be present in the case where the node appears within an 7204 -- expression. 7205 7206 -- The exception is generated with a message that contains the 7207 -- file name and line number, and then appended text. The Reason 7208 -- code shows the text to be added. The Reason code is an element 7209 -- of the type Types.RT_Exception_Code, and indicates both the 7210 -- message to be added, and the exception to be raised (which must 7211 -- match the node type). The value is stored by storing a Uint which 7212 -- is the Pos value of the enumeration element in this type. 7213 7214 -- Gigi restriction: This expander ensures that the type of the 7215 -- Condition field is always Standard.Boolean, even if the type 7216 -- in the source is some non-standard boolean type. 7217 7218 -- Sprint syntax: [xxx_error "msg"] 7219 -- or: [xxx_error when condition "msg"] 7220 7221 -- N_Raise_Constraint_Error 7222 -- Sloc references related construct 7223 -- Condition (Node1) (set to Empty if no condition) 7224 -- Reason (Uint3) 7225 -- plus fields for expression 7226 7227 -- N_Raise_Program_Error 7228 -- Sloc references related construct 7229 -- Condition (Node1) (set to Empty if no condition) 7230 -- Reason (Uint3) 7231 -- plus fields for expression 7232 7233 -- N_Raise_Storage_Error 7234 -- Sloc references related construct 7235 -- Condition (Node1) (set to Empty if no condition) 7236 -- Reason (Uint3) 7237 -- plus fields for expression 7238 7239 -- Note: Sloc is copied from the expression generating the exception. 7240 -- In the case where a debug source file is generated, the Sloc for 7241 -- this node points to the left bracket in the Sprint file output. 7242 7243 -- Note: the back end may be required to translate these nodes into 7244 -- appropriate goto statements. See description of N_Push/Pop_xxx_Label. 7245 7246 --------------------------------------------- 7247 -- Optimization of Exception Raise to Goto -- 7248 --------------------------------------------- 7249 7250 -- In some cases, the front end will determine that any exception raised 7251 -- by the back end for a certain exception should be transformed into a 7252 -- goto statement. 7253 7254 -- There are three kinds of exceptions raised by the back end (note that 7255 -- for this purpose we consider gigi to be part of the back end in the 7256 -- gcc case): 7257 7258 -- 1. Exceptions resulting from N_Raise_xxx_Error nodes 7259 -- 2. Exceptions from checks triggered by Do_xxx_Check flags 7260 -- 3. Other cases not specifically marked by the front end 7261 7262 -- Normally all such exceptions are translated into calls to the proper 7263 -- Rcheck_xx procedure, where xx encodes both the exception to be raised 7264 -- and the exception message. 7265 7266 -- The front end may determine that for a particular sequence of code, 7267 -- exceptions in any of these three categories for a particular builtin 7268 -- exception should result in a goto, rather than a call to Rcheck_xx. 7269 -- The exact sequence to be generated is: 7270 7271 -- Local_Raise (exception'Identity); 7272 -- goto Label 7273 7274 -- The front end marks such a sequence of code by bracketing it with 7275 -- push and pop nodes: 7276 7277 -- N_Push_xxx_Label (referencing the label) 7278 -- ... 7279 -- (code where transformation is expected for exception xxx) 7280 -- ... 7281 -- N_Pop_xxx_Label 7282 7283 -- The use of push/pop reflects the fact that such regions can properly 7284 -- nest, and one special case is a subregion in which no transformation 7285 -- is allowed. Such a region is marked by a N_Push_xxx_Label node whose 7286 -- Exception_Label field is Empty. 7287 7288 -- N_Push_Constraint_Error_Label 7289 -- Sloc references first statement in region covered 7290 -- Exception_Label (Node5-Sem) 7291 7292 -- N_Push_Program_Error_Label 7293 -- Sloc references first statement in region covered 7294 -- Exception_Label (Node5-Sem) 7295 7296 -- N_Push_Storage_Error_Label 7297 -- Sloc references first statement in region covered 7298 -- Exception_Label (Node5-Sem) 7299 7300 -- N_Pop_Constraint_Error_Label 7301 -- Sloc references last statement in region covered 7302 7303 -- N_Pop_Program_Error_Label 7304 -- Sloc references last statement in region covered 7305 7306 -- N_Pop_Storage_Error_Label 7307 -- Sloc references last statement in region covered 7308 7309 --------------- 7310 -- Reference -- 7311 --------------- 7312 7313 -- For a number of purposes, we need to construct references to objects. 7314 -- These references are subsequently treated as normal access values. 7315 -- An example is the construction of the parameter block passed to a 7316 -- task entry. The N_Reference node is provided for this purpose. It is 7317 -- similar in effect to the use of the Unrestricted_Access attribute, 7318 -- and like Unrestricted_Access can be applied to objects which would 7319 -- not be valid prefixes for the Unchecked_Access attribute (e.g. 7320 -- objects which are not aliased, and slices). In addition it can be 7321 -- applied to composite type values as well as objects, including string 7322 -- values and aggregates. 7323 7324 -- Note: we use the Prefix field for this expression so that the 7325 -- resulting node can be treated using common code with the attribute 7326 -- nodes for the 'Access and related attributes. Logically it would make 7327 -- more sense to call it an Expression field, but then we would have to 7328 -- special case the treatment of the N_Reference node. 7329 7330 -- Note: evaluating a N_Reference node is guaranteed to yield a non-null 7331 -- value at run time. Therefore, it is valid to set Is_Known_Non_Null on 7332 -- a temporary initialized to a N_Reference node in order to eliminate 7333 -- superfluous access checks. 7334 7335 -- Sprint syntax: prefix'reference 7336 7337 -- N_Reference 7338 -- Sloc is copied from the expression 7339 -- Prefix (Node3) 7340 -- plus fields for expression 7341 7342 -- Note: in the case where a debug source file is generated, the Sloc 7343 -- for this node points to the quote in the Sprint file output. 7344 7345 ----------------- 7346 -- SCIL Nodes -- 7347 ----------------- 7348 7349 -- SCIL nodes are special nodes added to the tree when the CodePeer 7350 -- mode is active. They help the CodePeer backend to locate nodes that 7351 -- require special processing. They are only generated if SCIL 7352 -- generation is enabled. A standard tree-walk will not encounter 7353 -- these nodes even if they are present; these nodes are only 7354 -- accessible via the function SCIL_LL.Get_SCIL_Node. 7355 7356 -- N_SCIL_Dispatch_Table_Tag_Init 7357 -- Sloc references a node for a tag initialization 7358 -- SCIL_Entity (Node4-Sem) 7359 -- 7360 -- An N_SCIL_Dispatch_Table_Tag_Init node may be associated (via 7361 -- Get_SCIL_Node) with the N_Object_Declaration node corresponding to 7362 -- the declaration of the dispatch table for a tagged type. 7363 7364 -- N_SCIL_Dispatching_Call 7365 -- Sloc references the node of a dispatching call 7366 -- SCIL_Target_Prim (Node2-Sem) 7367 -- SCIL_Entity (Node4-Sem) 7368 -- SCIL_Controlling_Tag (Node5-Sem) 7369 -- 7370 -- An N_Scil_Dispatching call node may be associated (via Get_SCIL_Node) 7371 -- with the N_Procedure_Call or N_Function_Call node (or a rewriting 7372 -- thereof) corresponding to a dispatching call. 7373 7374 -- N_SCIL_Membership_Test 7375 -- Sloc references the node of a membership test 7376 -- SCIL_Tag_Value (Node5-Sem) 7377 -- SCIL_Entity (Node4-Sem) 7378 -- 7379 -- An N_Scil_Membership_Test node may be associated (via Get_SCIL_Node) 7380 -- with the N_In node (or a rewriting thereof) corresponding to a 7381 -- classwide membership test. 7382 7383 --------------------- 7384 -- Subprogram_Info -- 7385 --------------------- 7386 7387 -- This node generates the appropriate Subprogram_Info value for a 7388 -- given procedure. See Ada.Exceptions for further details 7389 7390 -- Sprint syntax: subprog'subprogram_info 7391 7392 -- N_Subprogram_Info 7393 -- Sloc points to the entity for the procedure 7394 -- Identifier (Node1) identifier referencing the procedure 7395 -- Etype (Node5-Sem) type (always set to Ada.Exceptions.Code_Loc 7396 7397 -- Note: in the case where a debug source file is generated, the Sloc 7398 -- for this node points to the quote in the Sprint file output. 7399 7400 -------------------------- 7401 -- Unchecked Expression -- 7402 -------------------------- 7403 7404 -- An unchecked expression is one that must be analyzed and resolved 7405 -- with all checks off, regardless of the current setting of scope 7406 -- suppress flags. 7407 7408 -- Sprint syntax: `(expression) 7409 7410 -- Note: this node is always removed from the tree (and replaced by 7411 -- its constituent expression) on completion of analysis, so it only 7412 -- appears in intermediate trees, and will never be seen by Gigi. 7413 7414 -- N_Unchecked_Expression 7415 -- Sloc is a copy of the Sloc of the expression 7416 -- Expression (Node3) 7417 -- plus fields for expression 7418 7419 -- Note: in the case where a debug source file is generated, the Sloc 7420 -- for this node points to the back quote in the Sprint file output. 7421 7422 ------------------------------- 7423 -- Unchecked Type Conversion -- 7424 ------------------------------- 7425 7426 -- An unchecked type conversion node represents the semantic action 7427 -- corresponding to a call to an instantiation of Unchecked_Conversion. 7428 -- It is generated as a result of actual use of Unchecked_Conversion 7429 -- and also the expander generates unchecked type conversion nodes 7430 -- directly for expansion of complex semantic actions. 7431 7432 -- Note: an unchecked type conversion is a variable as far as the 7433 -- semantics are concerned, which is convenient for the expander. 7434 -- This does not change what Ada source programs are legal, since 7435 -- clearly a function call to an instantiation of Unchecked_Conversion 7436 -- is not a variable in any case. 7437 7438 -- Sprint syntax: subtype-mark!(expression) 7439 7440 -- N_Unchecked_Type_Conversion 7441 -- Sloc points to related node in source 7442 -- Subtype_Mark (Node4) 7443 -- Expression (Node3) 7444 -- Kill_Range_Check (Flag11-Sem) 7445 -- No_Truncation (Flag17-Sem) 7446 -- plus fields for expression 7447 7448 -- Note: in the case where a debug source file is generated, the Sloc 7449 -- for this node points to the exclamation in the Sprint file output. 7450 7451 ----------------------------------- 7452 -- Validate_Unchecked_Conversion -- 7453 ----------------------------------- 7454 7455 -- The front end does most of the validation of unchecked conversion, 7456 -- including checking sizes (this is done after the back end is called 7457 -- to take advantage of back-annotation of calculated sizes). 7458 7459 -- The front end also deals with specific cases that are not allowed 7460 -- e.g. involving unconstrained array types. 7461 7462 -- For the case of the standard gigi backend, this means that all 7463 -- checks are done in the front-end. 7464 7465 -- However, in the case of specialized back-ends, notably the JVM 7466 -- backend for JGNAT, additional requirements and restrictions apply 7467 -- to unchecked conversion, and these are most conveniently performed 7468 -- in the specialized back-end. 7469 7470 -- To accommodate this requirement, for such back ends, the following 7471 -- special node is generated recording an unchecked conversion that 7472 -- needs to be validated. The back end should post an appropriate 7473 -- error message if the unchecked conversion is invalid or warrants 7474 -- a special warning message. 7475 7476 -- Source_Type and Target_Type point to the entities for the two 7477 -- types involved in the unchecked conversion instantiation that 7478 -- is to be validated. 7479 7480 -- Sprint syntax: validate Unchecked_Conversion (source, target); 7481 7482 -- N_Validate_Unchecked_Conversion 7483 -- Sloc points to instantiation (location for warning message) 7484 -- Source_Type (Node1-Sem) 7485 -- Target_Type (Node2-Sem) 7486 7487 -- Note: in the case where a debug source file is generated, the Sloc 7488 -- for this node points to the VALIDATE keyword in the file output. 7489 7490 ----------- 7491 -- Empty -- 7492 ----------- 7493 7494 -- Used as the contents of the Nkind field of the dummy Empty node 7495 -- and in some other situations to indicate an uninitialized value. 7496 7497 -- N_Empty 7498 -- Chars (Name1) is set to No_Name 7499 7500 ----------- 7501 -- Error -- 7502 ----------- 7503 7504 -- Used as the contents of the Nkind field of the dummy Error node. 7505 -- Has an Etype field, which gets set to Any_Type later on, to help 7506 -- error recovery (Error_Posted is also set in the Error node). 7507 7508 -- N_Error 7509 -- Chars (Name1) is set to Error_Name 7510 -- Etype (Node5-Sem) 7511 7512 -------------------------- 7513 -- Node Type Definition -- 7514 -------------------------- 7515 7516 -- The following is the definition of the Node_Kind type. As previously 7517 -- discussed, this is separated off to allow rearrangement of the order to 7518 -- facilitate definition of subtype ranges. The comments show the subtype 7519 -- classes which apply to each set of node kinds. The first entry in the 7520 -- comment characterizes the following list of nodes. 7521 7522 type Node_Kind is ( 7523 N_Unused_At_Start, 7524 7525 -- N_Representation_Clause 7526 7527 N_At_Clause, 7528 N_Component_Clause, 7529 N_Enumeration_Representation_Clause, 7530 N_Mod_Clause, 7531 N_Record_Representation_Clause, 7532 7533 -- N_Representation_Clause, N_Has_Chars 7534 7535 N_Attribute_Definition_Clause, 7536 7537 -- N_Has_Chars 7538 7539 N_Empty, 7540 N_Pragma_Argument_Association, 7541 7542 -- N_Has_Etype, N_Has_Chars 7543 7544 -- Note: of course N_Error does not really have Etype or Chars fields, 7545 -- and any attempt to access these fields in N_Error will cause an 7546 -- error, but historically this always has been positioned so that an 7547 -- "in N_Has_Chars" or "in N_Has_Etype" test yields true for N_Error. 7548 -- Most likely this makes coding easier somewhere but still seems 7549 -- undesirable. To be investigated some time ??? 7550 7551 N_Error, 7552 7553 -- N_Entity, N_Has_Etype, N_Has_Chars 7554 7555 N_Defining_Character_Literal, 7556 N_Defining_Identifier, 7557 N_Defining_Operator_Symbol, 7558 7559 -- N_Subexpr, N_Has_Etype, N_Has_Chars, N_Has_Entity 7560 7561 N_Expanded_Name, 7562 7563 -- N_Direct_Name, N_Subexpr, N_Has_Etype, 7564 -- N_Has_Chars, N_Has_Entity 7565 7566 N_Identifier, 7567 N_Operator_Symbol, 7568 7569 -- N_Direct_Name, N_Subexpr, N_Has_Etype, 7570 -- N_Has_Chars, N_Has_Entity 7571 7572 N_Character_Literal, 7573 7574 -- N_Binary_Op, N_Op, N_Subexpr, 7575 -- N_Has_Etype, N_Has_Chars, N_Has_Entity 7576 7577 N_Op_Add, 7578 N_Op_Concat, 7579 N_Op_Expon, 7580 N_Op_Subtract, 7581 7582 -- N_Binary_Op, N_Op, N_Subexpr, N_Has_Treat_Fixed_As_Integer 7583 -- N_Has_Etype, N_Has_Chars, N_Has_Entity, N_Multiplying_Operator 7584 7585 N_Op_Divide, 7586 N_Op_Mod, 7587 N_Op_Multiply, 7588 N_Op_Rem, 7589 7590 -- N_Binary_Op, N_Op, N_Subexpr, N_Has_Etype 7591 -- N_Has_Entity, N_Has_Chars, N_Op_Boolean 7592 7593 N_Op_And, 7594 7595 -- N_Binary_Op, N_Op, N_Subexpr, N_Has_Etype 7596 -- N_Has_Entity, N_Has_Chars, N_Op_Boolean, N_Op_Compare 7597 7598 N_Op_Eq, 7599 N_Op_Ge, 7600 N_Op_Gt, 7601 N_Op_Le, 7602 N_Op_Lt, 7603 N_Op_Ne, 7604 7605 -- N_Binary_Op, N_Op, N_Subexpr, N_Has_Etype 7606 -- N_Has_Entity, N_Has_Chars, N_Op_Boolean 7607 7608 N_Op_Or, 7609 N_Op_Xor, 7610 7611 -- N_Binary_Op, N_Op, N_Subexpr, N_Has_Etype, 7612 -- N_Op_Shift, N_Has_Chars, N_Has_Entity 7613 7614 N_Op_Rotate_Left, 7615 N_Op_Rotate_Right, 7616 N_Op_Shift_Left, 7617 N_Op_Shift_Right, 7618 N_Op_Shift_Right_Arithmetic, 7619 7620 -- N_Unary_Op, N_Op, N_Subexpr, N_Has_Etype, 7621 -- N_Has_Chars, N_Has_Entity 7622 7623 N_Op_Abs, 7624 N_Op_Minus, 7625 N_Op_Not, 7626 N_Op_Plus, 7627 7628 -- N_Subexpr, N_Has_Etype, N_Has_Entity 7629 7630 N_Attribute_Reference, 7631 7632 -- N_Subexpr, N_Has_Etype, N_Membership_Test 7633 7634 N_In, 7635 N_Not_In, 7636 7637 -- N_Subexpr, N_Has_Etype, N_Short_Circuit 7638 7639 N_And_Then, 7640 N_Or_Else, 7641 7642 -- N_Subexpr, N_Has_Etype, N_Subprogram_Call 7643 7644 N_Function_Call, 7645 N_Procedure_Call_Statement, 7646 7647 -- N_Subexpr, N_Has_Etype, N_Raise_xxx_Error 7648 7649 N_Raise_Constraint_Error, 7650 N_Raise_Program_Error, 7651 N_Raise_Storage_Error, 7652 7653 -- N_Subexpr, N_Has_Etype 7654 7655 N_Explicit_Dereference, 7656 N_Expression_With_Actions, 7657 N_If_Expression, 7658 N_Indexed_Component, 7659 N_Integer_Literal, 7660 N_Null, 7661 N_Qualified_Expression, 7662 N_Quantified_Expression, 7663 N_Aggregate, 7664 N_Allocator, 7665 N_Case_Expression, 7666 N_Extension_Aggregate, 7667 N_Range, 7668 N_Real_Literal, 7669 N_Reference, 7670 N_Selected_Component, 7671 N_Slice, 7672 N_String_Literal, 7673 N_Subprogram_Info, 7674 N_Type_Conversion, 7675 N_Unchecked_Expression, 7676 N_Unchecked_Type_Conversion, 7677 7678 -- N_Has_Etype 7679 7680 N_Subtype_Indication, 7681 7682 -- N_Declaration 7683 7684 N_Component_Declaration, 7685 N_Entry_Declaration, 7686 N_Expression_Function, 7687 N_Formal_Object_Declaration, 7688 N_Formal_Type_Declaration, 7689 N_Full_Type_Declaration, 7690 N_Incomplete_Type_Declaration, 7691 N_Iterator_Specification, 7692 N_Loop_Parameter_Specification, 7693 N_Object_Declaration, 7694 N_Protected_Type_Declaration, 7695 N_Private_Extension_Declaration, 7696 N_Private_Type_Declaration, 7697 N_Subtype_Declaration, 7698 7699 -- N_Subprogram_Specification, N_Declaration 7700 7701 N_Function_Specification, 7702 N_Procedure_Specification, 7703 7704 -- N_Access_To_Subprogram_Definition 7705 7706 N_Access_Function_Definition, 7707 N_Access_Procedure_Definition, 7708 7709 -- N_Later_Decl_Item 7710 7711 N_Task_Type_Declaration, 7712 7713 -- N_Body_Stub, N_Later_Decl_Item 7714 7715 N_Package_Body_Stub, 7716 N_Protected_Body_Stub, 7717 N_Subprogram_Body_Stub, 7718 N_Task_Body_Stub, 7719 7720 -- N_Generic_Instantiation, N_Later_Decl_Item 7721 -- N_Subprogram_Instantiation 7722 7723 N_Function_Instantiation, 7724 N_Procedure_Instantiation, 7725 7726 -- N_Generic_Instantiation, N_Later_Decl_Item 7727 7728 N_Package_Instantiation, 7729 7730 -- N_Unit_Body, N_Later_Decl_Item, N_Proper_Body 7731 7732 N_Package_Body, 7733 N_Subprogram_Body, 7734 7735 -- N_Later_Decl_Item, N_Proper_Body 7736 7737 N_Protected_Body, 7738 N_Task_Body, 7739 7740 -- N_Later_Decl_Item 7741 7742 N_Implicit_Label_Declaration, 7743 N_Package_Declaration, 7744 N_Single_Task_Declaration, 7745 N_Subprogram_Declaration, 7746 N_Use_Package_Clause, 7747 7748 -- N_Generic_Declaration, N_Later_Decl_Item 7749 7750 N_Generic_Package_Declaration, 7751 N_Generic_Subprogram_Declaration, 7752 7753 -- N_Array_Type_Definition 7754 7755 N_Constrained_Array_Definition, 7756 N_Unconstrained_Array_Definition, 7757 7758 -- N_Renaming_Declaration 7759 7760 N_Exception_Renaming_Declaration, 7761 N_Object_Renaming_Declaration, 7762 N_Package_Renaming_Declaration, 7763 N_Subprogram_Renaming_Declaration, 7764 7765 -- N_Generic_Renaming_Declaration, N_Renaming_Declaration 7766 7767 N_Generic_Function_Renaming_Declaration, 7768 N_Generic_Package_Renaming_Declaration, 7769 N_Generic_Procedure_Renaming_Declaration, 7770 7771 -- N_Statement_Other_Than_Procedure_Call 7772 7773 N_Abort_Statement, 7774 N_Accept_Statement, 7775 N_Assignment_Statement, 7776 N_Asynchronous_Select, 7777 N_Block_Statement, 7778 N_Case_Statement, 7779 N_Code_Statement, 7780 N_Conditional_Entry_Call, 7781 7782 -- N_Statement_Other_Than_Procedure_Call, N_Delay_Statement 7783 7784 N_Delay_Relative_Statement, 7785 N_Delay_Until_Statement, 7786 7787 -- N_Statement_Other_Than_Procedure_Call 7788 7789 N_Entry_Call_Statement, 7790 N_Free_Statement, 7791 N_Goto_Statement, 7792 N_Loop_Statement, 7793 N_Null_Statement, 7794 N_Raise_Statement, 7795 N_Requeue_Statement, 7796 N_Simple_Return_Statement, 7797 N_Extended_Return_Statement, 7798 N_Selective_Accept, 7799 N_Timed_Entry_Call, 7800 7801 -- N_Statement_Other_Than_Procedure_Call, N_Has_Condition 7802 7803 N_Exit_Statement, 7804 N_If_Statement, 7805 7806 -- N_Has_Condition 7807 7808 N_Accept_Alternative, 7809 N_Delay_Alternative, 7810 N_Elsif_Part, 7811 N_Entry_Body_Formal_Part, 7812 N_Iteration_Scheme, 7813 N_Terminate_Alternative, 7814 7815 -- N_Formal_Subprogram_Declaration 7816 7817 N_Formal_Abstract_Subprogram_Declaration, 7818 N_Formal_Concrete_Subprogram_Declaration, 7819 7820 -- N_Push_xxx_Label, N_Push_Pop_xxx_Label 7821 7822 N_Push_Constraint_Error_Label, 7823 N_Push_Program_Error_Label, 7824 N_Push_Storage_Error_Label, 7825 7826 -- N_Pop_xxx_Label, N_Push_Pop_xxx_Label 7827 7828 N_Pop_Constraint_Error_Label, 7829 N_Pop_Program_Error_Label, 7830 N_Pop_Storage_Error_Label, 7831 7832 -- SCIL nodes 7833 7834 N_SCIL_Dispatch_Table_Tag_Init, 7835 N_SCIL_Dispatching_Call, 7836 N_SCIL_Membership_Test, 7837 7838 -- Other nodes (not part of any subtype class) 7839 7840 N_Abortable_Part, 7841 N_Abstract_Subprogram_Declaration, 7842 N_Access_Definition, 7843 N_Access_To_Object_Definition, 7844 N_Aspect_Specification, 7845 N_Case_Expression_Alternative, 7846 N_Case_Statement_Alternative, 7847 N_Compilation_Unit, 7848 N_Compilation_Unit_Aux, 7849 N_Component_Association, 7850 N_Component_Definition, 7851 N_Component_List, 7852 N_Contract, 7853 N_Derived_Type_Definition, 7854 N_Decimal_Fixed_Point_Definition, 7855 N_Defining_Program_Unit_Name, 7856 N_Delta_Constraint, 7857 N_Designator, 7858 N_Digits_Constraint, 7859 N_Discriminant_Association, 7860 N_Discriminant_Specification, 7861 N_Enumeration_Type_Definition, 7862 N_Entry_Body, 7863 N_Entry_Call_Alternative, 7864 N_Entry_Index_Specification, 7865 N_Exception_Declaration, 7866 N_Exception_Handler, 7867 N_Floating_Point_Definition, 7868 N_Formal_Decimal_Fixed_Point_Definition, 7869 N_Formal_Derived_Type_Definition, 7870 N_Formal_Discrete_Type_Definition, 7871 N_Formal_Floating_Point_Definition, 7872 N_Formal_Modular_Type_Definition, 7873 N_Formal_Ordinary_Fixed_Point_Definition, 7874 N_Formal_Package_Declaration, 7875 N_Formal_Private_Type_Definition, 7876 N_Formal_Incomplete_Type_Definition, 7877 N_Formal_Signed_Integer_Type_Definition, 7878 N_Freeze_Entity, 7879 N_Generic_Association, 7880 N_Handled_Sequence_Of_Statements, 7881 N_Index_Or_Discriminant_Constraint, 7882 N_Itype_Reference, 7883 N_Label, 7884 N_Modular_Type_Definition, 7885 N_Number_Declaration, 7886 N_Ordinary_Fixed_Point_Definition, 7887 N_Others_Choice, 7888 N_Package_Specification, 7889 N_Parameter_Association, 7890 N_Parameter_Specification, 7891 N_Pragma, 7892 N_Protected_Definition, 7893 N_Range_Constraint, 7894 N_Real_Range_Specification, 7895 N_Record_Definition, 7896 N_Signed_Integer_Type_Definition, 7897 N_Single_Protected_Declaration, 7898 N_Subunit, 7899 N_Task_Definition, 7900 N_Triggering_Alternative, 7901 N_Use_Type_Clause, 7902 N_Validate_Unchecked_Conversion, 7903 N_Variant, 7904 N_Variant_Part, 7905 N_With_Clause, 7906 N_Unused_At_End); 7907 7908 for Node_Kind'Size use 8; 7909 -- The data structures in Atree assume this! 7910 7911 ---------------------------- 7912 -- Node Class Definitions -- 7913 ---------------------------- 7914 7915 subtype N_Access_To_Subprogram_Definition is Node_Kind range 7916 N_Access_Function_Definition .. 7917 N_Access_Procedure_Definition; 7918 7919 subtype N_Array_Type_Definition is Node_Kind range 7920 N_Constrained_Array_Definition .. 7921 N_Unconstrained_Array_Definition; 7922 7923 subtype N_Binary_Op is Node_Kind range 7924 N_Op_Add .. 7925 N_Op_Shift_Right_Arithmetic; 7926 7927 subtype N_Body_Stub is Node_Kind range 7928 N_Package_Body_Stub .. 7929 N_Task_Body_Stub; 7930 7931 subtype N_Declaration is Node_Kind range 7932 N_Component_Declaration .. 7933 N_Procedure_Specification; 7934 -- Note: this includes all constructs normally thought of as declarations 7935 -- except those which are separately grouped as later declarations. 7936 7937 subtype N_Delay_Statement is Node_Kind range 7938 N_Delay_Relative_Statement .. 7939 N_Delay_Until_Statement; 7940 7941 subtype N_Direct_Name is Node_Kind range 7942 N_Identifier .. 7943 N_Character_Literal; 7944 7945 subtype N_Entity is Node_Kind range 7946 N_Defining_Character_Literal .. 7947 N_Defining_Operator_Symbol; 7948 7949 subtype N_Formal_Subprogram_Declaration is Node_Kind range 7950 N_Formal_Abstract_Subprogram_Declaration .. 7951 N_Formal_Concrete_Subprogram_Declaration; 7952 7953 subtype N_Generic_Declaration is Node_Kind range 7954 N_Generic_Package_Declaration .. 7955 N_Generic_Subprogram_Declaration; 7956 7957 subtype N_Generic_Instantiation is Node_Kind range 7958 N_Function_Instantiation .. 7959 N_Package_Instantiation; 7960 7961 subtype N_Generic_Renaming_Declaration is Node_Kind range 7962 N_Generic_Function_Renaming_Declaration .. 7963 N_Generic_Procedure_Renaming_Declaration; 7964 7965 subtype N_Has_Chars is Node_Kind range 7966 N_Attribute_Definition_Clause .. 7967 N_Op_Plus; 7968 7969 subtype N_Has_Entity is Node_Kind range 7970 N_Expanded_Name .. 7971 N_Attribute_Reference; 7972 -- Nodes that have Entity fields 7973 -- Warning: DOES NOT INCLUDE N_Freeze_Entity, N_Aspect_Specification, 7974 -- or N_Attribute_Definition_Clause. 7975 7976 subtype N_Has_Etype is Node_Kind range 7977 N_Error .. 7978 N_Subtype_Indication; 7979 7980 subtype N_Has_Treat_Fixed_As_Integer is Node_Kind range 7981 N_Op_Divide .. 7982 N_Op_Rem; 7983 7984 subtype N_Multiplying_Operator is Node_Kind range 7985 N_Op_Divide .. 7986 N_Op_Rem; 7987 7988 subtype N_Later_Decl_Item is Node_Kind range 7989 N_Task_Type_Declaration .. 7990 N_Generic_Subprogram_Declaration; 7991 -- Note: this is Ada 83 relevant only (see Ada 83 RM 3.9 (2)) and includes 7992 -- only those items which can appear as later declarative items. This also 7993 -- includes N_Implicit_Label_Declaration which is not specifically in the 7994 -- grammar but may appear as a valid later declarative items. It does NOT 7995 -- include N_Pragma which can also appear among later declarative items. 7996 -- It does however include N_Protected_Body, which is a bit peculiar, but 7997 -- harmless since this cannot appear in Ada 83 mode anyway. 7998 7999 subtype N_Membership_Test is Node_Kind range 8000 N_In .. 8001 N_Not_In; 8002 8003 subtype N_Op is Node_Kind range 8004 N_Op_Add .. 8005 N_Op_Plus; 8006 8007 subtype N_Op_Boolean is Node_Kind range 8008 N_Op_And .. 8009 N_Op_Xor; 8010 -- Binary operators which take operands of a boolean type, and yield 8011 -- a result of a boolean type. 8012 8013 subtype N_Op_Compare is Node_Kind range 8014 N_Op_Eq .. 8015 N_Op_Ne; 8016 8017 subtype N_Op_Shift is Node_Kind range 8018 N_Op_Rotate_Left .. 8019 N_Op_Shift_Right_Arithmetic; 8020 8021 subtype N_Proper_Body is Node_Kind range 8022 N_Package_Body .. 8023 N_Task_Body; 8024 8025 subtype N_Push_xxx_Label is Node_Kind range 8026 N_Push_Constraint_Error_Label .. 8027 N_Push_Storage_Error_Label; 8028 8029 subtype N_Pop_xxx_Label is Node_Kind range 8030 N_Pop_Constraint_Error_Label .. 8031 N_Pop_Storage_Error_Label; 8032 8033 subtype N_Push_Pop_xxx_Label is Node_Kind range 8034 N_Push_Constraint_Error_Label .. 8035 N_Pop_Storage_Error_Label; 8036 8037 subtype N_Raise_xxx_Error is Node_Kind range 8038 N_Raise_Constraint_Error .. 8039 N_Raise_Storage_Error; 8040 8041 subtype N_Renaming_Declaration is Node_Kind range 8042 N_Exception_Renaming_Declaration .. 8043 N_Generic_Procedure_Renaming_Declaration; 8044 8045 subtype N_Representation_Clause is Node_Kind range 8046 N_At_Clause .. 8047 N_Attribute_Definition_Clause; 8048 8049 subtype N_Short_Circuit is Node_Kind range 8050 N_And_Then .. 8051 N_Or_Else; 8052 8053 subtype N_SCIL_Node is Node_Kind range 8054 N_SCIL_Dispatch_Table_Tag_Init .. 8055 N_SCIL_Membership_Test; 8056 8057 subtype N_Statement_Other_Than_Procedure_Call is Node_Kind range 8058 N_Abort_Statement .. 8059 N_If_Statement; 8060 -- Note that this includes all statement types except for the cases of the 8061 -- N_Procedure_Call_Statement which is considered to be a subexpression 8062 -- (since overloading is possible, so it needs to go through the normal 8063 -- overloading resolution for expressions). 8064 8065 subtype N_Subprogram_Call is Node_Kind range 8066 N_Function_Call .. 8067 N_Procedure_Call_Statement; 8068 8069 subtype N_Subprogram_Instantiation is Node_Kind range 8070 N_Function_Instantiation .. 8071 N_Procedure_Instantiation; 8072 8073 subtype N_Has_Condition is Node_Kind range 8074 N_Exit_Statement .. 8075 N_Terminate_Alternative; 8076 -- Nodes with condition fields (does not include N_Raise_xxx_Error) 8077 8078 subtype N_Subexpr is Node_Kind range 8079 N_Expanded_Name .. 8080 N_Unchecked_Type_Conversion; 8081 -- Nodes with expression fields 8082 8083 subtype N_Subprogram_Specification is Node_Kind range 8084 N_Function_Specification .. 8085 N_Procedure_Specification; 8086 8087 subtype N_Unary_Op is Node_Kind range 8088 N_Op_Abs .. 8089 N_Op_Plus; 8090 8091 subtype N_Unit_Body is Node_Kind range 8092 N_Package_Body .. 8093 N_Subprogram_Body; 8094 8095 --------------------------- 8096 -- Node Access Functions -- 8097 --------------------------- 8098 8099 -- The following functions return the contents of the indicated field of 8100 -- the node referenced by the argument, which is a Node_Id. They provide 8101 -- logical access to fields in the node which could be accessed using the 8102 -- Atree.Unchecked_Access package, but the idea is always to use these 8103 -- higher level routines which preserve strong typing. In debug mode, 8104 -- these routines check that they are being applied to an appropriate 8105 -- node, as well as checking that the node is in range. 8106 8107 function ABE_Is_Certain 8108 (N : Node_Id) return Boolean; -- Flag18 8109 8110 function Abort_Present 8111 (N : Node_Id) return Boolean; -- Flag15 8112 8113 function Abortable_Part 8114 (N : Node_Id) return Node_Id; -- Node2 8115 8116 function Abstract_Present 8117 (N : Node_Id) return Boolean; -- Flag4 8118 8119 function Accept_Handler_Records 8120 (N : Node_Id) return List_Id; -- List5 8121 8122 function Accept_Statement 8123 (N : Node_Id) return Node_Id; -- Node2 8124 8125 function Access_Definition 8126 (N : Node_Id) return Node_Id; -- Node3 8127 8128 function Access_To_Subprogram_Definition 8129 (N : Node_Id) return Node_Id; -- Node3 8130 8131 function Access_Types_To_Process 8132 (N : Node_Id) return Elist_Id; -- Elist2 8133 8134 function Actions 8135 (N : Node_Id) return List_Id; -- List1 8136 8137 function Activation_Chain_Entity 8138 (N : Node_Id) return Node_Id; -- Node3 8139 8140 function Acts_As_Spec 8141 (N : Node_Id) return Boolean; -- Flag4 8142 8143 function Actual_Designated_Subtype 8144 (N : Node_Id) return Node_Id; -- Node4 8145 8146 function Address_Warning_Posted 8147 (N : Node_Id) return Boolean; -- Flag18 8148 8149 function Aggregate_Bounds 8150 (N : Node_Id) return Node_Id; -- Node3 8151 8152 function Aliased_Present 8153 (N : Node_Id) return Boolean; -- Flag4 8154 8155 function All_Others 8156 (N : Node_Id) return Boolean; -- Flag11 8157 8158 function All_Present 8159 (N : Node_Id) return Boolean; -- Flag15 8160 8161 function Alternatives 8162 (N : Node_Id) return List_Id; -- List4 8163 8164 function Ancestor_Part 8165 (N : Node_Id) return Node_Id; -- Node3 8166 8167 function Atomic_Sync_Required 8168 (N : Node_Id) return Boolean; -- Flag14 8169 8170 function Array_Aggregate 8171 (N : Node_Id) return Node_Id; -- Node3 8172 8173 function Aspect_Rep_Item 8174 (N : Node_Id) return Node_Id; -- Node2 8175 8176 function Assignment_OK 8177 (N : Node_Id) return Boolean; -- Flag15 8178 8179 function Associated_Node 8180 (N : Node_Id) return Node_Id; -- Node4 8181 8182 function At_End_Proc 8183 (N : Node_Id) return Node_Id; -- Node1 8184 8185 function Attribute_Name 8186 (N : Node_Id) return Name_Id; -- Name2 8187 8188 function Aux_Decls_Node 8189 (N : Node_Id) return Node_Id; -- Node5 8190 8191 function Backwards_OK 8192 (N : Node_Id) return Boolean; -- Flag6 8193 8194 function Bad_Is_Detected 8195 (N : Node_Id) return Boolean; -- Flag15 8196 8197 function By_Ref 8198 (N : Node_Id) return Boolean; -- Flag5 8199 8200 function Body_Required 8201 (N : Node_Id) return Boolean; -- Flag13 8202 8203 function Body_To_Inline 8204 (N : Node_Id) return Node_Id; -- Node3 8205 8206 function Box_Present 8207 (N : Node_Id) return Boolean; -- Flag15 8208 8209 function Char_Literal_Value 8210 (N : Node_Id) return Uint; -- Uint2 8211 8212 function Chars 8213 (N : Node_Id) return Name_Id; -- Name1 8214 8215 function Check_Address_Alignment 8216 (N : Node_Id) return Boolean; -- Flag11 8217 8218 function Choice_Parameter 8219 (N : Node_Id) return Node_Id; -- Node2 8220 8221 function Choices 8222 (N : Node_Id) return List_Id; -- List1 8223 8224 function Class_Present 8225 (N : Node_Id) return Boolean; -- Flag6 8226 8227 function Comes_From_Extended_Return_Statement 8228 (N : Node_Id) return Boolean; -- Flag18 8229 8230 function Compile_Time_Known_Aggregate 8231 (N : Node_Id) return Boolean; -- Flag18 8232 8233 function Component_Associations 8234 (N : Node_Id) return List_Id; -- List2 8235 8236 function Component_Clauses 8237 (N : Node_Id) return List_Id; -- List3 8238 8239 function Component_Definition 8240 (N : Node_Id) return Node_Id; -- Node4 8241 8242 function Component_Items 8243 (N : Node_Id) return List_Id; -- List3 8244 8245 function Component_List 8246 (N : Node_Id) return Node_Id; -- Node1 8247 8248 function Component_Name 8249 (N : Node_Id) return Node_Id; -- Node1 8250 8251 function Componentwise_Assignment 8252 (N : Node_Id) return Boolean; -- Flag14 8253 8254 function Condition 8255 (N : Node_Id) return Node_Id; -- Node1 8256 8257 function Condition_Actions 8258 (N : Node_Id) return List_Id; -- List3 8259 8260 function Config_Pragmas 8261 (N : Node_Id) return List_Id; -- List4 8262 8263 function Constant_Present 8264 (N : Node_Id) return Boolean; -- Flag17 8265 8266 function Constraint 8267 (N : Node_Id) return Node_Id; -- Node3 8268 8269 function Constraints 8270 (N : Node_Id) return List_Id; -- List1 8271 8272 function Context_Installed 8273 (N : Node_Id) return Boolean; -- Flag13 8274 8275 function Context_Pending 8276 (N : Node_Id) return Boolean; -- Flag16 8277 8278 function Context_Items 8279 (N : Node_Id) return List_Id; -- List1 8280 8281 function Controlling_Argument 8282 (N : Node_Id) return Node_Id; -- Node1 8283 8284 function Conversion_OK 8285 (N : Node_Id) return Boolean; -- Flag14 8286 8287 function Corresponding_Aspect 8288 (N : Node_Id) return Node_Id; -- Node3 8289 8290 function Corresponding_Body 8291 (N : Node_Id) return Node_Id; -- Node5 8292 8293 function Corresponding_Formal_Spec 8294 (N : Node_Id) return Node_Id; -- Node3 8295 8296 function Corresponding_Generic_Association 8297 (N : Node_Id) return Node_Id; -- Node5 8298 8299 function Corresponding_Integer_Value 8300 (N : Node_Id) return Uint; -- Uint4 8301 8302 function Corresponding_Spec 8303 (N : Node_Id) return Node_Id; -- Node5 8304 8305 function Corresponding_Stub 8306 (N : Node_Id) return Node_Id; -- Node3 8307 8308 function Dcheck_Function 8309 (N : Node_Id) return Entity_Id; -- Node5 8310 8311 function Declarations 8312 (N : Node_Id) return List_Id; -- List2 8313 8314 function Default_Expression 8315 (N : Node_Id) return Node_Id; -- Node5 8316 8317 function Default_Storage_Pool 8318 (N : Node_Id) return Node_Id; -- Node3 8319 8320 function Default_Name 8321 (N : Node_Id) return Node_Id; -- Node2 8322 8323 function Defining_Identifier 8324 (N : Node_Id) return Entity_Id; -- Node1 8325 8326 function Defining_Unit_Name 8327 (N : Node_Id) return Node_Id; -- Node1 8328 8329 function Delay_Alternative 8330 (N : Node_Id) return Node_Id; -- Node4 8331 8332 function Delay_Statement 8333 (N : Node_Id) return Node_Id; -- Node2 8334 8335 function Delta_Expression 8336 (N : Node_Id) return Node_Id; -- Node3 8337 8338 function Digits_Expression 8339 (N : Node_Id) return Node_Id; -- Node2 8340 8341 function Discr_Check_Funcs_Built 8342 (N : Node_Id) return Boolean; -- Flag11 8343 8344 function Discrete_Choices 8345 (N : Node_Id) return List_Id; -- List4 8346 8347 function Discrete_Range 8348 (N : Node_Id) return Node_Id; -- Node4 8349 8350 function Discrete_Subtype_Definition 8351 (N : Node_Id) return Node_Id; -- Node4 8352 8353 function Discrete_Subtype_Definitions 8354 (N : Node_Id) return List_Id; -- List2 8355 8356 function Discriminant_Specifications 8357 (N : Node_Id) return List_Id; -- List4 8358 8359 function Discriminant_Type 8360 (N : Node_Id) return Node_Id; -- Node5 8361 8362 function Do_Accessibility_Check 8363 (N : Node_Id) return Boolean; -- Flag13 8364 8365 function Do_Discriminant_Check 8366 (N : Node_Id) return Boolean; -- Flag13 8367 8368 function Do_Division_Check 8369 (N : Node_Id) return Boolean; -- Flag13 8370 8371 function Do_Length_Check 8372 (N : Node_Id) return Boolean; -- Flag4 8373 8374 function Do_Overflow_Check 8375 (N : Node_Id) return Boolean; -- Flag17 8376 8377 function Do_Range_Check 8378 (N : Node_Id) return Boolean; -- Flag9 8379 8380 function Do_Storage_Check 8381 (N : Node_Id) return Boolean; -- Flag17 8382 8383 function Do_Tag_Check 8384 (N : Node_Id) return Boolean; -- Flag13 8385 8386 function Elaborate_All_Desirable 8387 (N : Node_Id) return Boolean; -- Flag9 8388 8389 function Elaborate_All_Present 8390 (N : Node_Id) return Boolean; -- Flag14 8391 8392 function Elaborate_Desirable 8393 (N : Node_Id) return Boolean; -- Flag11 8394 8395 function Elaborate_Present 8396 (N : Node_Id) return Boolean; -- Flag4 8397 8398 function Elaboration_Boolean 8399 (N : Node_Id) return Node_Id; -- Node2 8400 8401 function Else_Actions 8402 (N : Node_Id) return List_Id; -- List3 8403 8404 function Else_Statements 8405 (N : Node_Id) return List_Id; -- List4 8406 8407 function Elsif_Parts 8408 (N : Node_Id) return List_Id; -- List3 8409 8410 function Enclosing_Variant 8411 (N : Node_Id) return Node_Id; -- Node2 8412 8413 function End_Label 8414 (N : Node_Id) return Node_Id; -- Node4 8415 8416 function End_Span 8417 (N : Node_Id) return Uint; -- Uint5 8418 8419 function Entity 8420 (N : Node_Id) return Node_Id; -- Node4 8421 8422 function Entity_Or_Associated_Node 8423 (N : Node_Id) return Node_Id; -- Node4 8424 8425 function Entry_Body_Formal_Part 8426 (N : Node_Id) return Node_Id; -- Node5 8427 8428 function Entry_Call_Alternative 8429 (N : Node_Id) return Node_Id; -- Node1 8430 8431 function Entry_Call_Statement 8432 (N : Node_Id) return Node_Id; -- Node1 8433 8434 function Entry_Direct_Name 8435 (N : Node_Id) return Node_Id; -- Node1 8436 8437 function Entry_Index 8438 (N : Node_Id) return Node_Id; -- Node5 8439 8440 function Entry_Index_Specification 8441 (N : Node_Id) return Node_Id; -- Node4 8442 8443 function Etype 8444 (N : Node_Id) return Node_Id; -- Node5 8445 8446 function Exception_Choices 8447 (N : Node_Id) return List_Id; -- List4 8448 8449 function Exception_Handlers 8450 (N : Node_Id) return List_Id; -- List5 8451 8452 function Exception_Junk 8453 (N : Node_Id) return Boolean; -- Flag8 8454 8455 function Exception_Label 8456 (N : Node_Id) return Node_Id; -- Node5 8457 8458 function Explicit_Actual_Parameter 8459 (N : Node_Id) return Node_Id; -- Node3 8460 8461 function Expansion_Delayed 8462 (N : Node_Id) return Boolean; -- Flag11 8463 8464 function Explicit_Generic_Actual_Parameter 8465 (N : Node_Id) return Node_Id; -- Node1 8466 8467 function Expression 8468 (N : Node_Id) return Node_Id; -- Node3 8469 8470 function Expressions 8471 (N : Node_Id) return List_Id; -- List1 8472 8473 function First_Bit 8474 (N : Node_Id) return Node_Id; -- Node3 8475 8476 function First_Inlined_Subprogram 8477 (N : Node_Id) return Entity_Id; -- Node3 8478 8479 function First_Name 8480 (N : Node_Id) return Boolean; -- Flag5 8481 8482 function First_Named_Actual 8483 (N : Node_Id) return Node_Id; -- Node4 8484 8485 function First_Real_Statement 8486 (N : Node_Id) return Node_Id; -- Node2 8487 8488 function First_Subtype_Link 8489 (N : Node_Id) return Entity_Id; -- Node5 8490 8491 function Float_Truncate 8492 (N : Node_Id) return Boolean; -- Flag11 8493 8494 function Formal_Type_Definition 8495 (N : Node_Id) return Node_Id; -- Node3 8496 8497 function Forwards_OK 8498 (N : Node_Id) return Boolean; -- Flag5 8499 8500 function From_Aspect_Specification 8501 (N : Node_Id) return Boolean; -- Flag13 8502 8503 function From_At_End 8504 (N : Node_Id) return Boolean; -- Flag4 8505 8506 function From_At_Mod 8507 (N : Node_Id) return Boolean; -- Flag4 8508 8509 function From_Default 8510 (N : Node_Id) return Boolean; -- Flag6 8511 8512 function Generic_Associations 8513 (N : Node_Id) return List_Id; -- List3 8514 8515 function Generic_Formal_Declarations 8516 (N : Node_Id) return List_Id; -- List2 8517 8518 function Generic_Parent 8519 (N : Node_Id) return Node_Id; -- Node5 8520 8521 function Generic_Parent_Type 8522 (N : Node_Id) return Node_Id; -- Node4 8523 8524 function Handled_Statement_Sequence 8525 (N : Node_Id) return Node_Id; -- Node4 8526 8527 function Handler_List_Entry 8528 (N : Node_Id) return Node_Id; -- Node2 8529 8530 function Has_Created_Identifier 8531 (N : Node_Id) return Boolean; -- Flag15 8532 8533 function Has_Dereference_Action 8534 (N : Node_Id) return Boolean; -- Flag13 8535 8536 function Has_Dynamic_Length_Check 8537 (N : Node_Id) return Boolean; -- Flag10 8538 8539 function Has_Dynamic_Range_Check 8540 (N : Node_Id) return Boolean; -- Flag12 8541 8542 function Has_Init_Expression 8543 (N : Node_Id) return Boolean; -- Flag14 8544 8545 function Has_Local_Raise 8546 (N : Node_Id) return Boolean; -- Flag8 8547 8548 function Has_No_Elaboration_Code 8549 (N : Node_Id) return Boolean; -- Flag17 8550 8551 function Has_Pragma_Suppress_All 8552 (N : Node_Id) return Boolean; -- Flag14 8553 8554 function Has_Private_View 8555 (N : Node_Id) return Boolean; -- Flag11 8556 8557 function Has_Relative_Deadline_Pragma 8558 (N : Node_Id) return Boolean; -- Flag9 8559 8560 function Has_Self_Reference 8561 (N : Node_Id) return Boolean; -- Flag13 8562 8563 function Has_Storage_Size_Pragma 8564 (N : Node_Id) return Boolean; -- Flag5 8565 8566 function Has_Wide_Character 8567 (N : Node_Id) return Boolean; -- Flag11 8568 8569 function Has_Wide_Wide_Character 8570 (N : Node_Id) return Boolean; -- Flag13 8571 8572 function Header_Size_Added 8573 (N : Node_Id) return Boolean; -- Flag11 8574 8575 function Hidden_By_Use_Clause 8576 (N : Node_Id) return Elist_Id; -- Elist4 8577 8578 function High_Bound 8579 (N : Node_Id) return Node_Id; -- Node2 8580 8581 function Identifier 8582 (N : Node_Id) return Node_Id; -- Node1 8583 8584 function Interface_List 8585 (N : Node_Id) return List_Id; -- List2 8586 8587 function Interface_Present 8588 (N : Node_Id) return Boolean; -- Flag16 8589 8590 function Implicit_With 8591 (N : Node_Id) return Boolean; -- Flag16 8592 8593 function Implicit_With_From_Instantiation 8594 (N : Node_Id) return Boolean; -- Flag12 8595 8596 function Import_Interface_Present 8597 (N : Node_Id) return Boolean; -- Flag16 8598 8599 function In_Assertion 8600 (N : Node_Id) return Boolean; -- Flag4 8601 8602 function In_Present 8603 (N : Node_Id) return Boolean; -- Flag15 8604 8605 function Includes_Infinities 8606 (N : Node_Id) return Boolean; -- Flag11 8607 8608 function Inherited_Discriminant 8609 (N : Node_Id) return Boolean; -- Flag13 8610 8611 function Instance_Spec 8612 (N : Node_Id) return Node_Id; -- Node5 8613 8614 function Intval 8615 (N : Node_Id) return Uint; -- Uint3 8616 8617 function Is_Accessibility_Actual 8618 (N : Node_Id) return Boolean; -- Flag13 8619 8620 function Is_Asynchronous_Call_Block 8621 (N : Node_Id) return Boolean; -- Flag7 8622 8623 function Is_Boolean_Aspect 8624 (N : Node_Id) return Boolean; -- Flag16 8625 8626 function Is_Component_Left_Opnd 8627 (N : Node_Id) return Boolean; -- Flag13 8628 8629 function Is_Component_Right_Opnd 8630 (N : Node_Id) return Boolean; -- Flag14 8631 8632 function Is_Controlling_Actual 8633 (N : Node_Id) return Boolean; -- Flag16 8634 8635 function Is_Delayed_Aspect 8636 (N : Node_Id) return Boolean; -- Flag14 8637 8638 function Is_Dynamic_Coextension 8639 (N : Node_Id) return Boolean; -- Flag18 8640 8641 function Is_Elsif 8642 (N : Node_Id) return Boolean; -- Flag13 8643 8644 function Is_Entry_Barrier_Function 8645 (N : Node_Id) return Boolean; -- Flag8 8646 8647 function Is_Expanded_Build_In_Place_Call 8648 (N : Node_Id) return Boolean; -- Flag11 8649 8650 function Is_Finalization_Wrapper 8651 (N : Node_Id) return Boolean; -- Flag9 8652 8653 function Is_Folded_In_Parser 8654 (N : Node_Id) return Boolean; -- Flag4 8655 8656 function Is_In_Discriminant_Check 8657 (N : Node_Id) return Boolean; -- Flag11 8658 8659 function Is_Machine_Number 8660 (N : Node_Id) return Boolean; -- Flag11 8661 8662 function Is_Null_Loop 8663 (N : Node_Id) return Boolean; -- Flag16 8664 8665 function Is_Overloaded 8666 (N : Node_Id) return Boolean; -- Flag5 8667 8668 function Is_Power_Of_2_For_Shift 8669 (N : Node_Id) return Boolean; -- Flag13 8670 8671 function Is_Prefixed_Call 8672 (N : Node_Id) return Boolean; -- Flag17 8673 8674 function Is_Protected_Subprogram_Body 8675 (N : Node_Id) return Boolean; -- Flag7 8676 8677 function Is_Static_Coextension 8678 (N : Node_Id) return Boolean; -- Flag14 8679 8680 function Is_Static_Expression 8681 (N : Node_Id) return Boolean; -- Flag6 8682 8683 function Is_Subprogram_Descriptor 8684 (N : Node_Id) return Boolean; -- Flag16 8685 8686 function Is_Task_Allocation_Block 8687 (N : Node_Id) return Boolean; -- Flag6 8688 8689 function Is_Task_Master 8690 (N : Node_Id) return Boolean; -- Flag5 8691 8692 function Iteration_Scheme 8693 (N : Node_Id) return Node_Id; -- Node2 8694 8695 function Iterator_Specification 8696 (N : Node_Id) return Node_Id; -- Node2 8697 8698 function Itype 8699 (N : Node_Id) return Entity_Id; -- Node1 8700 8701 function Kill_Range_Check 8702 (N : Node_Id) return Boolean; -- Flag11 8703 8704 function Label_Construct 8705 (N : Node_Id) return Node_Id; -- Node2 8706 8707 function Left_Opnd 8708 (N : Node_Id) return Node_Id; -- Node2 8709 8710 function Last_Bit 8711 (N : Node_Id) return Node_Id; -- Node4 8712 8713 function Last_Name 8714 (N : Node_Id) return Boolean; -- Flag6 8715 8716 function Library_Unit 8717 (N : Node_Id) return Node_Id; -- Node4 8718 8719 function Limited_View_Installed 8720 (N : Node_Id) return Boolean; -- Flag18 8721 8722 function Limited_Present 8723 (N : Node_Id) return Boolean; -- Flag17 8724 8725 function Literals 8726 (N : Node_Id) return List_Id; -- List1 8727 8728 function Local_Raise_Not_OK 8729 (N : Node_Id) return Boolean; -- Flag7 8730 8731 function Local_Raise_Statements 8732 (N : Node_Id) return Elist_Id; -- Elist1 8733 8734 function Loop_Actions 8735 (N : Node_Id) return List_Id; -- List2 8736 8737 function Loop_Parameter_Specification 8738 (N : Node_Id) return Node_Id; -- Node4 8739 8740 function Low_Bound 8741 (N : Node_Id) return Node_Id; -- Node1 8742 8743 function Mod_Clause 8744 (N : Node_Id) return Node_Id; -- Node2 8745 8746 function More_Ids 8747 (N : Node_Id) return Boolean; -- Flag5 8748 8749 function Must_Be_Byte_Aligned 8750 (N : Node_Id) return Boolean; -- Flag14 8751 8752 function Must_Not_Freeze 8753 (N : Node_Id) return Boolean; -- Flag8 8754 8755 function Must_Not_Override 8756 (N : Node_Id) return Boolean; -- Flag15 8757 8758 function Must_Override 8759 (N : Node_Id) return Boolean; -- Flag14 8760 8761 function Name 8762 (N : Node_Id) return Node_Id; -- Node2 8763 8764 function Names 8765 (N : Node_Id) return List_Id; -- List2 8766 8767 function Next_Entity 8768 (N : Node_Id) return Node_Id; -- Node2 8769 8770 function Next_Exit_Statement 8771 (N : Node_Id) return Node_Id; -- Node3 8772 8773 function Next_Implicit_With 8774 (N : Node_Id) return Node_Id; -- Node3 8775 8776 function Next_Named_Actual 8777 (N : Node_Id) return Node_Id; -- Node4 8778 8779 function Next_Pragma 8780 (N : Node_Id) return Node_Id; -- Node1 8781 8782 function Next_Rep_Item 8783 (N : Node_Id) return Node_Id; -- Node5 8784 8785 function Next_Use_Clause 8786 (N : Node_Id) return Node_Id; -- Node3 8787 8788 function No_Ctrl_Actions 8789 (N : Node_Id) return Boolean; -- Flag7 8790 8791 function No_Elaboration_Check 8792 (N : Node_Id) return Boolean; -- Flag14 8793 8794 function No_Entities_Ref_In_Spec 8795 (N : Node_Id) return Boolean; -- Flag8 8796 8797 function No_Initialization 8798 (N : Node_Id) return Boolean; -- Flag13 8799 8800 function No_Minimize_Eliminate 8801 (N : Node_Id) return Boolean; -- Flag17 8802 8803 function No_Truncation 8804 (N : Node_Id) return Boolean; -- Flag17 8805 8806 function Null_Present 8807 (N : Node_Id) return Boolean; -- Flag13 8808 8809 function Null_Exclusion_Present 8810 (N : Node_Id) return Boolean; -- Flag11 8811 8812 function Null_Exclusion_In_Return_Present 8813 (N : Node_Id) return Boolean; -- Flag14 8814 8815 function Null_Record_Present 8816 (N : Node_Id) return Boolean; -- Flag17 8817 8818 function Object_Definition 8819 (N : Node_Id) return Node_Id; -- Node4 8820 8821 function Of_Present 8822 (N : Node_Id) return Boolean; -- Flag16 8823 8824 function Original_Discriminant 8825 (N : Node_Id) return Node_Id; -- Node2 8826 8827 function Original_Entity 8828 (N : Node_Id) return Entity_Id; -- Node2 8829 8830 function Others_Discrete_Choices 8831 (N : Node_Id) return List_Id; -- List1 8832 8833 function Out_Present 8834 (N : Node_Id) return Boolean; -- Flag17 8835 8836 function Parameter_Associations 8837 (N : Node_Id) return List_Id; -- List3 8838 8839 function Parameter_List_Truncated 8840 (N : Node_Id) return Boolean; -- Flag17 8841 8842 function Parameter_Specifications 8843 (N : Node_Id) return List_Id; -- List3 8844 8845 function Parameter_Type 8846 (N : Node_Id) return Node_Id; -- Node2 8847 8848 function Parent_Spec 8849 (N : Node_Id) return Node_Id; -- Node4 8850 8851 function Position 8852 (N : Node_Id) return Node_Id; -- Node2 8853 8854 function Pragma_Argument_Associations 8855 (N : Node_Id) return List_Id; -- List2 8856 8857 function Pragma_Identifier 8858 (N : Node_Id) return Node_Id; -- Node4 8859 8860 function Pragmas_After 8861 (N : Node_Id) return List_Id; -- List5 8862 8863 function Pragmas_Before 8864 (N : Node_Id) return List_Id; -- List4 8865 8866 function Prefix 8867 (N : Node_Id) return Node_Id; -- Node3 8868 8869 function Premature_Use 8870 (N : Node_Id) return Node_Id; -- Node5 8871 8872 function Present_Expr 8873 (N : Node_Id) return Uint; -- Uint3 8874 8875 function Prev_Ids 8876 (N : Node_Id) return Boolean; -- Flag6 8877 8878 function Print_In_Hex 8879 (N : Node_Id) return Boolean; -- Flag13 8880 8881 function Private_Declarations 8882 (N : Node_Id) return List_Id; -- List3 8883 8884 function Private_Present 8885 (N : Node_Id) return Boolean; -- Flag15 8886 8887 function Procedure_To_Call 8888 (N : Node_Id) return Node_Id; -- Node2 8889 8890 function Proper_Body 8891 (N : Node_Id) return Node_Id; -- Node1 8892 8893 function Protected_Definition 8894 (N : Node_Id) return Node_Id; -- Node3 8895 8896 function Protected_Present 8897 (N : Node_Id) return Boolean; -- Flag6 8898 8899 function Raises_Constraint_Error 8900 (N : Node_Id) return Boolean; -- Flag7 8901 8902 function Range_Constraint 8903 (N : Node_Id) return Node_Id; -- Node4 8904 8905 function Range_Expression 8906 (N : Node_Id) return Node_Id; -- Node4 8907 8908 function Real_Range_Specification 8909 (N : Node_Id) return Node_Id; -- Node4 8910 8911 function Realval 8912 (N : Node_Id) return Ureal; -- Ureal3 8913 8914 function Reason 8915 (N : Node_Id) return Uint; -- Uint3 8916 8917 function Record_Extension_Part 8918 (N : Node_Id) return Node_Id; -- Node3 8919 8920 function Redundant_Use 8921 (N : Node_Id) return Boolean; -- Flag13 8922 8923 function Renaming_Exception 8924 (N : Node_Id) return Node_Id; -- Node2 8925 8926 function Result_Definition 8927 (N : Node_Id) return Node_Id; -- Node4 8928 8929 function Return_Object_Declarations 8930 (N : Node_Id) return List_Id; -- List3 8931 8932 function Return_Statement_Entity 8933 (N : Node_Id) return Node_Id; -- Node5 8934 8935 function Reverse_Present 8936 (N : Node_Id) return Boolean; -- Flag15 8937 8938 function Right_Opnd 8939 (N : Node_Id) return Node_Id; -- Node3 8940 8941 function Rounded_Result 8942 (N : Node_Id) return Boolean; -- Flag18 8943 8944 function SCIL_Controlling_Tag 8945 (N : Node_Id) return Node_Id; -- Node5 8946 8947 function SCIL_Entity 8948 (N : Node_Id) return Node_Id; -- Node4 8949 8950 function SCIL_Tag_Value 8951 (N : Node_Id) return Node_Id; -- Node5 8952 8953 function SCIL_Target_Prim 8954 (N : Node_Id) return Node_Id; -- Node2 8955 8956 function Scope 8957 (N : Node_Id) return Node_Id; -- Node3 8958 8959 function Select_Alternatives 8960 (N : Node_Id) return List_Id; -- List1 8961 8962 function Selector_Name 8963 (N : Node_Id) return Node_Id; -- Node2 8964 8965 function Selector_Names 8966 (N : Node_Id) return List_Id; -- List1 8967 8968 function Shift_Count_OK 8969 (N : Node_Id) return Boolean; -- Flag4 8970 8971 function Source_Type 8972 (N : Node_Id) return Entity_Id; -- Node1 8973 8974 function Spec_PPC_List 8975 (N : Node_Id) return Node_Id; -- Node1 8976 8977 function Spec_CTC_List 8978 (N : Node_Id) return Node_Id; -- Node2 8979 8980 function Specification 8981 (N : Node_Id) return Node_Id; -- Node1 8982 8983 function Split_PPC 8984 (N : Node_Id) return Boolean; -- Flag17 8985 8986 function Statements 8987 (N : Node_Id) return List_Id; -- List3 8988 8989 function Storage_Pool 8990 (N : Node_Id) return Node_Id; -- Node1 8991 8992 function Subpool_Handle_Name 8993 (N : Node_Id) return Node_Id; -- Node4 8994 8995 function Strval 8996 (N : Node_Id) return String_Id; -- Str3 8997 8998 function Subtype_Indication 8999 (N : Node_Id) return Node_Id; -- Node5 9000 9001 function Subtype_Mark 9002 (N : Node_Id) return Node_Id; -- Node4 9003 9004 function Subtype_Marks 9005 (N : Node_Id) return List_Id; -- List2 9006 9007 function Suppress_Assignment_Checks 9008 (N : Node_Id) return Boolean; -- Flag18 9009 9010 function Suppress_Loop_Warnings 9011 (N : Node_Id) return Boolean; -- Flag17 9012 9013 function Synchronized_Present 9014 (N : Node_Id) return Boolean; -- Flag7 9015 9016 function Tagged_Present 9017 (N : Node_Id) return Boolean; -- Flag15 9018 9019 function Target_Type 9020 (N : Node_Id) return Entity_Id; -- Node2 9021 9022 function Task_Definition 9023 (N : Node_Id) return Node_Id; -- Node3 9024 9025 function Task_Present 9026 (N : Node_Id) return Boolean; -- Flag5 9027 9028 function Then_Actions 9029 (N : Node_Id) return List_Id; -- List2 9030 9031 function Then_Statements 9032 (N : Node_Id) return List_Id; -- List2 9033 9034 function Treat_Fixed_As_Integer 9035 (N : Node_Id) return Boolean; -- Flag14 9036 9037 function Triggering_Alternative 9038 (N : Node_Id) return Node_Id; -- Node1 9039 9040 function Triggering_Statement 9041 (N : Node_Id) return Node_Id; -- Node1 9042 9043 function TSS_Elist 9044 (N : Node_Id) return Elist_Id; -- Elist3 9045 9046 function Type_Definition 9047 (N : Node_Id) return Node_Id; -- Node3 9048 9049 function Unit 9050 (N : Node_Id) return Node_Id; -- Node2 9051 9052 function Unknown_Discriminants_Present 9053 (N : Node_Id) return Boolean; -- Flag13 9054 9055 function Unreferenced_In_Spec 9056 (N : Node_Id) return Boolean; -- Flag7 9057 9058 function Variant_Part 9059 (N : Node_Id) return Node_Id; -- Node4 9060 9061 function Variants 9062 (N : Node_Id) return List_Id; -- List1 9063 9064 function Visible_Declarations 9065 (N : Node_Id) return List_Id; -- List2 9066 9067 function Used_Operations 9068 (N : Node_Id) return Elist_Id; -- Elist5 9069 9070 function Was_Originally_Stub 9071 (N : Node_Id) return Boolean; -- Flag13 9072 9073 function Withed_Body 9074 (N : Node_Id) return Node_Id; -- Node1 9075 9076 -- End functions (note used by xsinfo utility program to end processing) 9077 9078 ---------------------------- 9079 -- Node Update Procedures -- 9080 ---------------------------- 9081 9082 -- These are the corresponding node update routines, which again provide 9083 -- a high level logical access with type checking. In addition to setting 9084 -- the indicated field of the node N to the given Val, in the case of 9085 -- tree pointers (List1-4), the parent pointer of the Val node is set to 9086 -- point back to node N. This automates the setting of the parent pointer. 9087 9088 procedure Set_ABE_Is_Certain 9089 (N : Node_Id; Val : Boolean := True); -- Flag18 9090 9091 procedure Set_Abort_Present 9092 (N : Node_Id; Val : Boolean := True); -- Flag15 9093 9094 procedure Set_Abortable_Part 9095 (N : Node_Id; Val : Node_Id); -- Node2 9096 9097 procedure Set_Abstract_Present 9098 (N : Node_Id; Val : Boolean := True); -- Flag4 9099 9100 procedure Set_Accept_Handler_Records 9101 (N : Node_Id; Val : List_Id); -- List5 9102 9103 procedure Set_Accept_Statement 9104 (N : Node_Id; Val : Node_Id); -- Node2 9105 9106 procedure Set_Access_Definition 9107 (N : Node_Id; Val : Node_Id); -- Node3 9108 9109 procedure Set_Access_To_Subprogram_Definition 9110 (N : Node_Id; Val : Node_Id); -- Node3 9111 9112 procedure Set_Access_Types_To_Process 9113 (N : Node_Id; Val : Elist_Id); -- Elist2 9114 9115 procedure Set_Actions 9116 (N : Node_Id; Val : List_Id); -- List1 9117 9118 procedure Set_Activation_Chain_Entity 9119 (N : Node_Id; Val : Node_Id); -- Node3 9120 9121 procedure Set_Acts_As_Spec 9122 (N : Node_Id; Val : Boolean := True); -- Flag4 9123 9124 procedure Set_Actual_Designated_Subtype 9125 (N : Node_Id; Val : Node_Id); -- Node4 9126 9127 procedure Set_Address_Warning_Posted 9128 (N : Node_Id; Val : Boolean := True); -- Flag18 9129 9130 procedure Set_Aggregate_Bounds 9131 (N : Node_Id; Val : Node_Id); -- Node3 9132 9133 procedure Set_Aliased_Present 9134 (N : Node_Id; Val : Boolean := True); -- Flag4 9135 9136 procedure Set_All_Others 9137 (N : Node_Id; Val : Boolean := True); -- Flag11 9138 9139 procedure Set_All_Present 9140 (N : Node_Id; Val : Boolean := True); -- Flag15 9141 9142 procedure Set_Alternatives 9143 (N : Node_Id; Val : List_Id); -- List4 9144 9145 procedure Set_Ancestor_Part 9146 (N : Node_Id; Val : Node_Id); -- Node3 9147 9148 procedure Set_Atomic_Sync_Required 9149 (N : Node_Id; Val : Boolean := True); -- Flag14 9150 9151 procedure Set_Array_Aggregate 9152 (N : Node_Id; Val : Node_Id); -- Node3 9153 9154 procedure Set_Aspect_Rep_Item 9155 (N : Node_Id; Val : Node_Id); -- Node2 9156 9157 procedure Set_Assignment_OK 9158 (N : Node_Id; Val : Boolean := True); -- Flag15 9159 9160 procedure Set_Associated_Node 9161 (N : Node_Id; Val : Node_Id); -- Node4 9162 9163 procedure Set_Attribute_Name 9164 (N : Node_Id; Val : Name_Id); -- Name2 9165 9166 procedure Set_At_End_Proc 9167 (N : Node_Id; Val : Node_Id); -- Node1 9168 9169 procedure Set_Aux_Decls_Node 9170 (N : Node_Id; Val : Node_Id); -- Node5 9171 9172 procedure Set_Backwards_OK 9173 (N : Node_Id; Val : Boolean := True); -- Flag6 9174 9175 procedure Set_Bad_Is_Detected 9176 (N : Node_Id; Val : Boolean := True); -- Flag15 9177 9178 procedure Set_Body_Required 9179 (N : Node_Id; Val : Boolean := True); -- Flag13 9180 9181 procedure Set_Body_To_Inline 9182 (N : Node_Id; Val : Node_Id); -- Node3 9183 9184 procedure Set_Box_Present 9185 (N : Node_Id; Val : Boolean := True); -- Flag15 9186 9187 procedure Set_By_Ref 9188 (N : Node_Id; Val : Boolean := True); -- Flag5 9189 9190 procedure Set_Char_Literal_Value 9191 (N : Node_Id; Val : Uint); -- Uint2 9192 9193 procedure Set_Chars 9194 (N : Node_Id; Val : Name_Id); -- Name1 9195 9196 procedure Set_Check_Address_Alignment 9197 (N : Node_Id; Val : Boolean := True); -- Flag11 9198 9199 procedure Set_Choice_Parameter 9200 (N : Node_Id; Val : Node_Id); -- Node2 9201 9202 procedure Set_Choices 9203 (N : Node_Id; Val : List_Id); -- List1 9204 9205 procedure Set_Class_Present 9206 (N : Node_Id; Val : Boolean := True); -- Flag6 9207 9208 procedure Set_Comes_From_Extended_Return_Statement 9209 (N : Node_Id; Val : Boolean := True); -- Flag18 9210 9211 procedure Set_Compile_Time_Known_Aggregate 9212 (N : Node_Id; Val : Boolean := True); -- Flag18 9213 9214 procedure Set_Component_Associations 9215 (N : Node_Id; Val : List_Id); -- List2 9216 9217 procedure Set_Component_Clauses 9218 (N : Node_Id; Val : List_Id); -- List3 9219 9220 procedure Set_Component_Definition 9221 (N : Node_Id; Val : Node_Id); -- Node4 9222 9223 procedure Set_Component_Items 9224 (N : Node_Id; Val : List_Id); -- List3 9225 9226 procedure Set_Component_List 9227 (N : Node_Id; Val : Node_Id); -- Node1 9228 9229 procedure Set_Component_Name 9230 (N : Node_Id; Val : Node_Id); -- Node1 9231 9232 procedure Set_Componentwise_Assignment 9233 (N : Node_Id; Val : Boolean := True); -- Flag14 9234 9235 procedure Set_Condition 9236 (N : Node_Id; Val : Node_Id); -- Node1 9237 9238 procedure Set_Condition_Actions 9239 (N : Node_Id; Val : List_Id); -- List3 9240 9241 procedure Set_Config_Pragmas 9242 (N : Node_Id; Val : List_Id); -- List4 9243 9244 procedure Set_Constant_Present 9245 (N : Node_Id; Val : Boolean := True); -- Flag17 9246 9247 procedure Set_Constraint 9248 (N : Node_Id; Val : Node_Id); -- Node3 9249 9250 procedure Set_Constraints 9251 (N : Node_Id; Val : List_Id); -- List1 9252 9253 procedure Set_Context_Installed 9254 (N : Node_Id; Val : Boolean := True); -- Flag13 9255 9256 procedure Set_Context_Items 9257 (N : Node_Id; Val : List_Id); -- List1 9258 9259 procedure Set_Context_Pending 9260 (N : Node_Id; Val : Boolean := True); -- Flag16 9261 9262 procedure Set_Controlling_Argument 9263 (N : Node_Id; Val : Node_Id); -- Node1 9264 9265 procedure Set_Conversion_OK 9266 (N : Node_Id; Val : Boolean := True); -- Flag14 9267 9268 procedure Set_Corresponding_Aspect 9269 (N : Node_Id; Val : Node_Id); -- Node3 9270 9271 procedure Set_Corresponding_Body 9272 (N : Node_Id; Val : Node_Id); -- Node5 9273 9274 procedure Set_Corresponding_Formal_Spec 9275 (N : Node_Id; Val : Node_Id); -- Node3 9276 9277 procedure Set_Corresponding_Generic_Association 9278 (N : Node_Id; Val : Node_Id); -- Node5 9279 9280 procedure Set_Corresponding_Integer_Value 9281 (N : Node_Id; Val : Uint); -- Uint4 9282 9283 procedure Set_Corresponding_Spec 9284 (N : Node_Id; Val : Node_Id); -- Node5 9285 9286 procedure Set_Corresponding_Stub 9287 (N : Node_Id; Val : Node_Id); -- Node3 9288 9289 procedure Set_Dcheck_Function 9290 (N : Node_Id; Val : Entity_Id); -- Node5 9291 9292 procedure Set_Declarations 9293 (N : Node_Id; Val : List_Id); -- List2 9294 9295 procedure Set_Default_Expression 9296 (N : Node_Id; Val : Node_Id); -- Node5 9297 9298 procedure Set_Default_Storage_Pool 9299 (N : Node_Id; Val : Node_Id); -- Node3 9300 9301 procedure Set_Default_Name 9302 (N : Node_Id; Val : Node_Id); -- Node2 9303 9304 procedure Set_Defining_Identifier 9305 (N : Node_Id; Val : Entity_Id); -- Node1 9306 9307 procedure Set_Defining_Unit_Name 9308 (N : Node_Id; Val : Node_Id); -- Node1 9309 9310 procedure Set_Delay_Alternative 9311 (N : Node_Id; Val : Node_Id); -- Node4 9312 9313 procedure Set_Delay_Statement 9314 (N : Node_Id; Val : Node_Id); -- Node2 9315 9316 procedure Set_Delta_Expression 9317 (N : Node_Id; Val : Node_Id); -- Node3 9318 9319 procedure Set_Digits_Expression 9320 (N : Node_Id; Val : Node_Id); -- Node2 9321 9322 procedure Set_Discr_Check_Funcs_Built 9323 (N : Node_Id; Val : Boolean := True); -- Flag11 9324 9325 procedure Set_Discrete_Choices 9326 (N : Node_Id; Val : List_Id); -- List4 9327 9328 procedure Set_Discrete_Range 9329 (N : Node_Id; Val : Node_Id); -- Node4 9330 9331 procedure Set_Discrete_Subtype_Definition 9332 (N : Node_Id; Val : Node_Id); -- Node4 9333 9334 procedure Set_Discrete_Subtype_Definitions 9335 (N : Node_Id; Val : List_Id); -- List2 9336 9337 procedure Set_Discriminant_Specifications 9338 (N : Node_Id; Val : List_Id); -- List4 9339 9340 procedure Set_Discriminant_Type 9341 (N : Node_Id; Val : Node_Id); -- Node5 9342 9343 procedure Set_Do_Accessibility_Check 9344 (N : Node_Id; Val : Boolean := True); -- Flag13 9345 9346 procedure Set_Do_Discriminant_Check 9347 (N : Node_Id; Val : Boolean := True); -- Flag13 9348 9349 procedure Set_Do_Division_Check 9350 (N : Node_Id; Val : Boolean := True); -- Flag13 9351 9352 procedure Set_Do_Length_Check 9353 (N : Node_Id; Val : Boolean := True); -- Flag4 9354 9355 procedure Set_Do_Overflow_Check 9356 (N : Node_Id; Val : Boolean := True); -- Flag17 9357 9358 procedure Set_Do_Range_Check 9359 (N : Node_Id; Val : Boolean := True); -- Flag9 9360 9361 procedure Set_Do_Storage_Check 9362 (N : Node_Id; Val : Boolean := True); -- Flag17 9363 9364 procedure Set_Do_Tag_Check 9365 (N : Node_Id; Val : Boolean := True); -- Flag13 9366 9367 procedure Set_Elaborate_All_Desirable 9368 (N : Node_Id; Val : Boolean := True); -- Flag9 9369 9370 procedure Set_Elaborate_All_Present 9371 (N : Node_Id; Val : Boolean := True); -- Flag14 9372 9373 procedure Set_Elaborate_Desirable 9374 (N : Node_Id; Val : Boolean := True); -- Flag11 9375 9376 procedure Set_Elaborate_Present 9377 (N : Node_Id; Val : Boolean := True); -- Flag4 9378 9379 procedure Set_Elaboration_Boolean 9380 (N : Node_Id; Val : Node_Id); -- Node2 9381 9382 procedure Set_Else_Actions 9383 (N : Node_Id; Val : List_Id); -- List3 9384 9385 procedure Set_Else_Statements 9386 (N : Node_Id; Val : List_Id); -- List4 9387 9388 procedure Set_Elsif_Parts 9389 (N : Node_Id; Val : List_Id); -- List3 9390 9391 procedure Set_Enclosing_Variant 9392 (N : Node_Id; Val : Node_Id); -- Node2 9393 9394 procedure Set_End_Label 9395 (N : Node_Id; Val : Node_Id); -- Node4 9396 9397 procedure Set_End_Span 9398 (N : Node_Id; Val : Uint); -- Uint5 9399 9400 procedure Set_Entity 9401 (N : Node_Id; Val : Node_Id); -- Node4 9402 9403 procedure Set_Entry_Body_Formal_Part 9404 (N : Node_Id; Val : Node_Id); -- Node5 9405 9406 procedure Set_Entry_Call_Alternative 9407 (N : Node_Id; Val : Node_Id); -- Node1 9408 9409 procedure Set_Entry_Call_Statement 9410 (N : Node_Id; Val : Node_Id); -- Node1 9411 9412 procedure Set_Entry_Direct_Name 9413 (N : Node_Id; Val : Node_Id); -- Node1 9414 9415 procedure Set_Entry_Index 9416 (N : Node_Id; Val : Node_Id); -- Node5 9417 9418 procedure Set_Entry_Index_Specification 9419 (N : Node_Id; Val : Node_Id); -- Node4 9420 9421 procedure Set_Etype 9422 (N : Node_Id; Val : Node_Id); -- Node5 9423 9424 procedure Set_Exception_Choices 9425 (N : Node_Id; Val : List_Id); -- List4 9426 9427 procedure Set_Exception_Handlers 9428 (N : Node_Id; Val : List_Id); -- List5 9429 9430 procedure Set_Exception_Junk 9431 (N : Node_Id; Val : Boolean := True); -- Flag8 9432 9433 procedure Set_Exception_Label 9434 (N : Node_Id; Val : Node_Id); -- Node5 9435 9436 procedure Set_Expansion_Delayed 9437 (N : Node_Id; Val : Boolean := True); -- Flag11 9438 9439 procedure Set_Explicit_Actual_Parameter 9440 (N : Node_Id; Val : Node_Id); -- Node3 9441 9442 procedure Set_Explicit_Generic_Actual_Parameter 9443 (N : Node_Id; Val : Node_Id); -- Node1 9444 9445 procedure Set_Expression 9446 (N : Node_Id; Val : Node_Id); -- Node3 9447 9448 procedure Set_Expressions 9449 (N : Node_Id; Val : List_Id); -- List1 9450 9451 procedure Set_First_Bit 9452 (N : Node_Id; Val : Node_Id); -- Node3 9453 9454 procedure Set_First_Inlined_Subprogram 9455 (N : Node_Id; Val : Entity_Id); -- Node3 9456 9457 procedure Set_First_Name 9458 (N : Node_Id; Val : Boolean := True); -- Flag5 9459 9460 procedure Set_First_Named_Actual 9461 (N : Node_Id; Val : Node_Id); -- Node4 9462 9463 procedure Set_First_Real_Statement 9464 (N : Node_Id; Val : Node_Id); -- Node2 9465 9466 procedure Set_First_Subtype_Link 9467 (N : Node_Id; Val : Entity_Id); -- Node5 9468 9469 procedure Set_Float_Truncate 9470 (N : Node_Id; Val : Boolean := True); -- Flag11 9471 9472 procedure Set_Formal_Type_Definition 9473 (N : Node_Id; Val : Node_Id); -- Node3 9474 9475 procedure Set_Forwards_OK 9476 (N : Node_Id; Val : Boolean := True); -- Flag5 9477 9478 procedure Set_From_At_Mod 9479 (N : Node_Id; Val : Boolean := True); -- Flag4 9480 9481 procedure Set_From_Aspect_Specification 9482 (N : Node_Id; Val : Boolean := True); -- Flag13 9483 9484 procedure Set_From_At_End 9485 (N : Node_Id; Val : Boolean := True); -- Flag4 9486 9487 procedure Set_From_Default 9488 (N : Node_Id; Val : Boolean := True); -- Flag6 9489 9490 procedure Set_Generic_Associations 9491 (N : Node_Id; Val : List_Id); -- List3 9492 9493 procedure Set_Generic_Formal_Declarations 9494 (N : Node_Id; Val : List_Id); -- List2 9495 9496 procedure Set_Generic_Parent 9497 (N : Node_Id; Val : Node_Id); -- Node5 9498 9499 procedure Set_Generic_Parent_Type 9500 (N : Node_Id; Val : Node_Id); -- Node4 9501 9502 procedure Set_Handled_Statement_Sequence 9503 (N : Node_Id; Val : Node_Id); -- Node4 9504 9505 procedure Set_Handler_List_Entry 9506 (N : Node_Id; Val : Node_Id); -- Node2 9507 9508 procedure Set_Has_Created_Identifier 9509 (N : Node_Id; Val : Boolean := True); -- Flag15 9510 9511 procedure Set_Has_Dereference_Action 9512 (N : Node_Id; Val : Boolean := True); -- Flag13 9513 9514 procedure Set_Has_Dynamic_Length_Check 9515 (N : Node_Id; Val : Boolean := True); -- Flag10 9516 9517 procedure Set_Has_Dynamic_Range_Check 9518 (N : Node_Id; Val : Boolean := True); -- Flag12 9519 9520 procedure Set_Has_Init_Expression 9521 (N : Node_Id; Val : Boolean := True); -- Flag14 9522 9523 procedure Set_Has_Local_Raise 9524 (N : Node_Id; Val : Boolean := True); -- Flag8 9525 9526 procedure Set_Has_No_Elaboration_Code 9527 (N : Node_Id; Val : Boolean := True); -- Flag17 9528 9529 procedure Set_Has_Pragma_Suppress_All 9530 (N : Node_Id; Val : Boolean := True); -- Flag14 9531 9532 procedure Set_Has_Private_View 9533 (N : Node_Id; Val : Boolean := True); -- Flag11 9534 9535 procedure Set_Has_Relative_Deadline_Pragma 9536 (N : Node_Id; Val : Boolean := True); -- Flag9 9537 9538 procedure Set_Has_Self_Reference 9539 (N : Node_Id; Val : Boolean := True); -- Flag13 9540 9541 procedure Set_Has_Storage_Size_Pragma 9542 (N : Node_Id; Val : Boolean := True); -- Flag5 9543 9544 procedure Set_Has_Wide_Character 9545 (N : Node_Id; Val : Boolean := True); -- Flag11 9546 9547 procedure Set_Has_Wide_Wide_Character 9548 (N : Node_Id; Val : Boolean := True); -- Flag13 9549 9550 procedure Set_Header_Size_Added 9551 (N : Node_Id; Val : Boolean := True); -- Flag11 9552 9553 procedure Set_Hidden_By_Use_Clause 9554 (N : Node_Id; Val : Elist_Id); -- Elist4 9555 9556 procedure Set_High_Bound 9557 (N : Node_Id; Val : Node_Id); -- Node2 9558 9559 procedure Set_Identifier 9560 (N : Node_Id; Val : Node_Id); -- Node1 9561 9562 procedure Set_Interface_List 9563 (N : Node_Id; Val : List_Id); -- List2 9564 9565 procedure Set_Interface_Present 9566 (N : Node_Id; Val : Boolean := True); -- Flag16 9567 9568 procedure Set_Implicit_With 9569 (N : Node_Id; Val : Boolean := True); -- Flag16 9570 9571 procedure Set_Implicit_With_From_Instantiation 9572 (N : Node_Id; Val : Boolean := True); -- Flag12 9573 9574 procedure Set_Import_Interface_Present 9575 (N : Node_Id; Val : Boolean := True); -- Flag16 9576 9577 procedure Set_In_Assertion 9578 (N : Node_Id; Val : Boolean := True); -- Flag4 9579 9580 procedure Set_In_Present 9581 (N : Node_Id; Val : Boolean := True); -- Flag15 9582 9583 procedure Set_Includes_Infinities 9584 (N : Node_Id; Val : Boolean := True); -- Flag11 9585 9586 procedure Set_Inherited_Discriminant 9587 (N : Node_Id; Val : Boolean := True); -- Flag13 9588 9589 procedure Set_Instance_Spec 9590 (N : Node_Id; Val : Node_Id); -- Node5 9591 9592 procedure Set_Intval 9593 (N : Node_Id; Val : Uint); -- Uint3 9594 9595 procedure Set_Is_Accessibility_Actual 9596 (N : Node_Id; Val : Boolean := True); -- Flag13 9597 9598 procedure Set_Is_Asynchronous_Call_Block 9599 (N : Node_Id; Val : Boolean := True); -- Flag7 9600 9601 procedure Set_Is_Boolean_Aspect 9602 (N : Node_Id; Val : Boolean := True); -- Flag16 9603 9604 procedure Set_Is_Component_Left_Opnd 9605 (N : Node_Id; Val : Boolean := True); -- Flag13 9606 9607 procedure Set_Is_Component_Right_Opnd 9608 (N : Node_Id; Val : Boolean := True); -- Flag14 9609 9610 procedure Set_Is_Controlling_Actual 9611 (N : Node_Id; Val : Boolean := True); -- Flag16 9612 9613 procedure Set_Is_Delayed_Aspect 9614 (N : Node_Id; Val : Boolean := True); -- Flag14 9615 9616 procedure Set_Is_Dynamic_Coextension 9617 (N : Node_Id; Val : Boolean := True); -- Flag18 9618 9619 procedure Set_Is_Elsif 9620 (N : Node_Id; Val : Boolean := True); -- Flag13 9621 9622 procedure Set_Is_Entry_Barrier_Function 9623 (N : Node_Id; Val : Boolean := True); -- Flag8 9624 9625 procedure Set_Is_Expanded_Build_In_Place_Call 9626 (N : Node_Id; Val : Boolean := True); -- Flag11 9627 9628 procedure Set_Is_Finalization_Wrapper 9629 (N : Node_Id; Val : Boolean := True); -- Flag9 9630 9631 procedure Set_Is_Folded_In_Parser 9632 (N : Node_Id; Val : Boolean := True); -- Flag4 9633 9634 procedure Set_Is_In_Discriminant_Check 9635 (N : Node_Id; Val : Boolean := True); -- Flag11 9636 9637 procedure Set_Is_Machine_Number 9638 (N : Node_Id; Val : Boolean := True); -- Flag11 9639 9640 procedure Set_Is_Null_Loop 9641 (N : Node_Id; Val : Boolean := True); -- Flag16 9642 9643 procedure Set_Is_Overloaded 9644 (N : Node_Id; Val : Boolean := True); -- Flag5 9645 9646 procedure Set_Is_Power_Of_2_For_Shift 9647 (N : Node_Id; Val : Boolean := True); -- Flag13 9648 9649 procedure Set_Is_Prefixed_Call 9650 (N : Node_Id; Val : Boolean := True); -- Flag17 9651 9652 procedure Set_Is_Protected_Subprogram_Body 9653 (N : Node_Id; Val : Boolean := True); -- Flag7 9654 9655 procedure Set_Is_Static_Coextension 9656 (N : Node_Id; Val : Boolean := True); -- Flag14 9657 9658 procedure Set_Is_Static_Expression 9659 (N : Node_Id; Val : Boolean := True); -- Flag6 9660 9661 procedure Set_Is_Subprogram_Descriptor 9662 (N : Node_Id; Val : Boolean := True); -- Flag16 9663 9664 procedure Set_Is_Task_Allocation_Block 9665 (N : Node_Id; Val : Boolean := True); -- Flag6 9666 9667 procedure Set_Is_Task_Master 9668 (N : Node_Id; Val : Boolean := True); -- Flag5 9669 9670 procedure Set_Iteration_Scheme 9671 (N : Node_Id; Val : Node_Id); -- Node2 9672 9673 procedure Set_Iterator_Specification 9674 (N : Node_Id; Val : Node_Id); -- Node2 9675 9676 procedure Set_Itype 9677 (N : Node_Id; Val : Entity_Id); -- Node1 9678 9679 procedure Set_Kill_Range_Check 9680 (N : Node_Id; Val : Boolean := True); -- Flag11 9681 9682 procedure Set_Last_Bit 9683 (N : Node_Id; Val : Node_Id); -- Node4 9684 9685 procedure Set_Last_Name 9686 (N : Node_Id; Val : Boolean := True); -- Flag6 9687 9688 procedure Set_Library_Unit 9689 (N : Node_Id; Val : Node_Id); -- Node4 9690 9691 procedure Set_Label_Construct 9692 (N : Node_Id; Val : Node_Id); -- Node2 9693 9694 procedure Set_Left_Opnd 9695 (N : Node_Id; Val : Node_Id); -- Node2 9696 9697 procedure Set_Limited_View_Installed 9698 (N : Node_Id; Val : Boolean := True); -- Flag18 9699 9700 procedure Set_Limited_Present 9701 (N : Node_Id; Val : Boolean := True); -- Flag17 9702 9703 procedure Set_Literals 9704 (N : Node_Id; Val : List_Id); -- List1 9705 9706 procedure Set_Local_Raise_Not_OK 9707 (N : Node_Id; Val : Boolean := True); -- Flag7 9708 9709 procedure Set_Local_Raise_Statements 9710 (N : Node_Id; Val : Elist_Id); -- Elist1 9711 9712 procedure Set_Loop_Actions 9713 (N : Node_Id; Val : List_Id); -- List2 9714 9715 procedure Set_Loop_Parameter_Specification 9716 (N : Node_Id; Val : Node_Id); -- Node4 9717 9718 procedure Set_Low_Bound 9719 (N : Node_Id; Val : Node_Id); -- Node1 9720 9721 procedure Set_Mod_Clause 9722 (N : Node_Id; Val : Node_Id); -- Node2 9723 9724 procedure Set_More_Ids 9725 (N : Node_Id; Val : Boolean := True); -- Flag5 9726 9727 procedure Set_Must_Be_Byte_Aligned 9728 (N : Node_Id; Val : Boolean := True); -- Flag14 9729 9730 procedure Set_Must_Not_Freeze 9731 (N : Node_Id; Val : Boolean := True); -- Flag8 9732 9733 procedure Set_Must_Not_Override 9734 (N : Node_Id; Val : Boolean := True); -- Flag15 9735 9736 procedure Set_Must_Override 9737 (N : Node_Id; Val : Boolean := True); -- Flag14 9738 9739 procedure Set_Name 9740 (N : Node_Id; Val : Node_Id); -- Node2 9741 9742 procedure Set_Names 9743 (N : Node_Id; Val : List_Id); -- List2 9744 9745 procedure Set_Next_Entity 9746 (N : Node_Id; Val : Node_Id); -- Node2 9747 9748 procedure Set_Next_Exit_Statement 9749 (N : Node_Id; Val : Node_Id); -- Node3 9750 9751 procedure Set_Next_Implicit_With 9752 (N : Node_Id; Val : Node_Id); -- Node3 9753 9754 procedure Set_Next_Named_Actual 9755 (N : Node_Id; Val : Node_Id); -- Node4 9756 9757 procedure Set_Next_Pragma 9758 (N : Node_Id; Val : Node_Id); -- Node1 9759 9760 procedure Set_Next_Rep_Item 9761 (N : Node_Id; Val : Node_Id); -- Node5 9762 9763 procedure Set_Next_Use_Clause 9764 (N : Node_Id; Val : Node_Id); -- Node3 9765 9766 procedure Set_No_Ctrl_Actions 9767 (N : Node_Id; Val : Boolean := True); -- Flag7 9768 9769 procedure Set_No_Elaboration_Check 9770 (N : Node_Id; Val : Boolean := True); -- Flag14 9771 9772 procedure Set_No_Entities_Ref_In_Spec 9773 (N : Node_Id; Val : Boolean := True); -- Flag8 9774 9775 procedure Set_No_Initialization 9776 (N : Node_Id; Val : Boolean := True); -- Flag13 9777 9778 procedure Set_No_Minimize_Eliminate 9779 (N : Node_Id; Val : Boolean := True); -- Flag17 9780 9781 procedure Set_No_Truncation 9782 (N : Node_Id; Val : Boolean := True); -- Flag17 9783 9784 procedure Set_Null_Present 9785 (N : Node_Id; Val : Boolean := True); -- Flag13 9786 9787 procedure Set_Null_Exclusion_Present 9788 (N : Node_Id; Val : Boolean := True); -- Flag11 9789 9790 procedure Set_Null_Exclusion_In_Return_Present 9791 (N : Node_Id; Val : Boolean := True); -- Flag14 9792 9793 procedure Set_Null_Record_Present 9794 (N : Node_Id; Val : Boolean := True); -- Flag17 9795 9796 procedure Set_Object_Definition 9797 (N : Node_Id; Val : Node_Id); -- Node4 9798 9799 procedure Set_Of_Present 9800 (N : Node_Id; Val : Boolean := True); -- Flag16 9801 9802 procedure Set_Original_Discriminant 9803 (N : Node_Id; Val : Node_Id); -- Node2 9804 9805 procedure Set_Original_Entity 9806 (N : Node_Id; Val : Entity_Id); -- Node2 9807 9808 procedure Set_Others_Discrete_Choices 9809 (N : Node_Id; Val : List_Id); -- List1 9810 9811 procedure Set_Out_Present 9812 (N : Node_Id; Val : Boolean := True); -- Flag17 9813 9814 procedure Set_Parameter_Associations 9815 (N : Node_Id; Val : List_Id); -- List3 9816 9817 procedure Set_Parameter_List_Truncated 9818 (N : Node_Id; Val : Boolean := True); -- Flag17 9819 9820 procedure Set_Parameter_Specifications 9821 (N : Node_Id; Val : List_Id); -- List3 9822 9823 procedure Set_Parameter_Type 9824 (N : Node_Id; Val : Node_Id); -- Node2 9825 9826 procedure Set_Parent_Spec 9827 (N : Node_Id; Val : Node_Id); -- Node4 9828 9829 procedure Set_Position 9830 (N : Node_Id; Val : Node_Id); -- Node2 9831 9832 procedure Set_Pragma_Argument_Associations 9833 (N : Node_Id; Val : List_Id); -- List2 9834 9835 procedure Set_Pragma_Identifier 9836 (N : Node_Id; Val : Node_Id); -- Node4 9837 9838 procedure Set_Pragmas_After 9839 (N : Node_Id; Val : List_Id); -- List5 9840 9841 procedure Set_Pragmas_Before 9842 (N : Node_Id; Val : List_Id); -- List4 9843 9844 procedure Set_Prefix 9845 (N : Node_Id; Val : Node_Id); -- Node3 9846 9847 procedure Set_Premature_Use 9848 (N : Node_Id; Val : Node_Id); -- Node5 9849 9850 procedure Set_Present_Expr 9851 (N : Node_Id; Val : Uint); -- Uint3 9852 9853 procedure Set_Prev_Ids 9854 (N : Node_Id; Val : Boolean := True); -- Flag6 9855 9856 procedure Set_Print_In_Hex 9857 (N : Node_Id; Val : Boolean := True); -- Flag13 9858 9859 procedure Set_Private_Declarations 9860 (N : Node_Id; Val : List_Id); -- List3 9861 9862 procedure Set_Private_Present 9863 (N : Node_Id; Val : Boolean := True); -- Flag15 9864 9865 procedure Set_Procedure_To_Call 9866 (N : Node_Id; Val : Node_Id); -- Node2 9867 9868 procedure Set_Proper_Body 9869 (N : Node_Id; Val : Node_Id); -- Node1 9870 9871 procedure Set_Protected_Definition 9872 (N : Node_Id; Val : Node_Id); -- Node3 9873 9874 procedure Set_Protected_Present 9875 (N : Node_Id; Val : Boolean := True); -- Flag6 9876 9877 procedure Set_Raises_Constraint_Error 9878 (N : Node_Id; Val : Boolean := True); -- Flag7 9879 9880 procedure Set_Range_Constraint 9881 (N : Node_Id; Val : Node_Id); -- Node4 9882 9883 procedure Set_Range_Expression 9884 (N : Node_Id; Val : Node_Id); -- Node4 9885 9886 procedure Set_Real_Range_Specification 9887 (N : Node_Id; Val : Node_Id); -- Node4 9888 9889 procedure Set_Realval 9890 (N : Node_Id; Val : Ureal); -- Ureal3 9891 9892 procedure Set_Reason 9893 (N : Node_Id; Val : Uint); -- Uint3 9894 9895 procedure Set_Record_Extension_Part 9896 (N : Node_Id; Val : Node_Id); -- Node3 9897 9898 procedure Set_Redundant_Use 9899 (N : Node_Id; Val : Boolean := True); -- Flag13 9900 9901 procedure Set_Renaming_Exception 9902 (N : Node_Id; Val : Node_Id); -- Node2 9903 9904 procedure Set_Result_Definition 9905 (N : Node_Id; Val : Node_Id); -- Node4 9906 9907 procedure Set_Return_Object_Declarations 9908 (N : Node_Id; Val : List_Id); -- List3 9909 9910 procedure Set_Return_Statement_Entity 9911 (N : Node_Id; Val : Node_Id); -- Node5 9912 9913 procedure Set_Reverse_Present 9914 (N : Node_Id; Val : Boolean := True); -- Flag15 9915 9916 procedure Set_Right_Opnd 9917 (N : Node_Id; Val : Node_Id); -- Node3 9918 9919 procedure Set_Rounded_Result 9920 (N : Node_Id; Val : Boolean := True); -- Flag18 9921 9922 procedure Set_SCIL_Controlling_Tag 9923 (N : Node_Id; Val : Node_Id); -- Node5 9924 9925 procedure Set_SCIL_Entity 9926 (N : Node_Id; Val : Node_Id); -- Node4 9927 9928 procedure Set_SCIL_Tag_Value 9929 (N : Node_Id; Val : Node_Id); -- Node5 9930 9931 procedure Set_SCIL_Target_Prim 9932 (N : Node_Id; Val : Node_Id); -- Node2 9933 9934 procedure Set_Scope 9935 (N : Node_Id; Val : Node_Id); -- Node3 9936 9937 procedure Set_Select_Alternatives 9938 (N : Node_Id; Val : List_Id); -- List1 9939 9940 procedure Set_Selector_Name 9941 (N : Node_Id; Val : Node_Id); -- Node2 9942 9943 procedure Set_Selector_Names 9944 (N : Node_Id; Val : List_Id); -- List1 9945 9946 procedure Set_Shift_Count_OK 9947 (N : Node_Id; Val : Boolean := True); -- Flag4 9948 9949 procedure Set_Source_Type 9950 (N : Node_Id; Val : Entity_Id); -- Node1 9951 9952 procedure Set_Spec_PPC_List 9953 (N : Node_Id; Val : Node_Id); -- Node1 9954 9955 procedure Set_Spec_CTC_List 9956 (N : Node_Id; Val : Node_Id); -- Node2 9957 9958 procedure Set_Specification 9959 (N : Node_Id; Val : Node_Id); -- Node1 9960 9961 procedure Set_Split_PPC 9962 (N : Node_Id; Val : Boolean); -- Flag17 9963 9964 procedure Set_Statements 9965 (N : Node_Id; Val : List_Id); -- List3 9966 9967 procedure Set_Storage_Pool 9968 (N : Node_Id; Val : Node_Id); -- Node1 9969 9970 procedure Set_Subpool_Handle_Name 9971 (N : Node_Id; Val : Node_Id); -- Node4 9972 9973 procedure Set_Strval 9974 (N : Node_Id; Val : String_Id); -- Str3 9975 9976 procedure Set_Subtype_Indication 9977 (N : Node_Id; Val : Node_Id); -- Node5 9978 9979 procedure Set_Subtype_Mark 9980 (N : Node_Id; Val : Node_Id); -- Node4 9981 9982 procedure Set_Subtype_Marks 9983 (N : Node_Id; Val : List_Id); -- List2 9984 9985 procedure Set_Suppress_Assignment_Checks 9986 (N : Node_Id; Val : Boolean := True); -- Flag18 9987 9988 procedure Set_Suppress_Loop_Warnings 9989 (N : Node_Id; Val : Boolean := True); -- Flag17 9990 9991 procedure Set_Synchronized_Present 9992 (N : Node_Id; Val : Boolean := True); -- Flag7 9993 9994 procedure Set_Tagged_Present 9995 (N : Node_Id; Val : Boolean := True); -- Flag15 9996 9997 procedure Set_Target_Type 9998 (N : Node_Id; Val : Entity_Id); -- Node2 9999 10000 procedure Set_Task_Definition 10001 (N : Node_Id; Val : Node_Id); -- Node3 10002 10003 procedure Set_Task_Present 10004 (N : Node_Id; Val : Boolean := True); -- Flag5 10005 10006 procedure Set_Then_Actions 10007 (N : Node_Id; Val : List_Id); -- List2 10008 10009 procedure Set_Then_Statements 10010 (N : Node_Id; Val : List_Id); -- List2 10011 10012 procedure Set_Treat_Fixed_As_Integer 10013 (N : Node_Id; Val : Boolean := True); -- Flag14 10014 10015 procedure Set_Triggering_Alternative 10016 (N : Node_Id; Val : Node_Id); -- Node1 10017 10018 procedure Set_Triggering_Statement 10019 (N : Node_Id; Val : Node_Id); -- Node1 10020 10021 procedure Set_TSS_Elist 10022 (N : Node_Id; Val : Elist_Id); -- Elist3 10023 10024 procedure Set_Type_Definition 10025 (N : Node_Id; Val : Node_Id); -- Node3 10026 10027 procedure Set_Unit 10028 (N : Node_Id; Val : Node_Id); -- Node2 10029 10030 procedure Set_Unknown_Discriminants_Present 10031 (N : Node_Id; Val : Boolean := True); -- Flag13 10032 10033 procedure Set_Unreferenced_In_Spec 10034 (N : Node_Id; Val : Boolean := True); -- Flag7 10035 10036 procedure Set_Variant_Part 10037 (N : Node_Id; Val : Node_Id); -- Node4 10038 10039 procedure Set_Variants 10040 (N : Node_Id; Val : List_Id); -- List1 10041 10042 procedure Set_Visible_Declarations 10043 (N : Node_Id; Val : List_Id); -- List2 10044 10045 procedure Set_Used_Operations 10046 (N : Node_Id; Val : Elist_Id); -- Elist5 10047 10048 procedure Set_Was_Originally_Stub 10049 (N : Node_Id; Val : Boolean := True); -- Flag13 10050 10051 procedure Set_Withed_Body 10052 (N : Node_Id; Val : Node_Id); -- Node1 10053 10054 ------------------------- 10055 -- Iterator Procedures -- 10056 ------------------------- 10057 10058 -- The call to Next_xxx (N) is equivalent to N := Next_xxx (N) 10059 10060 procedure Next_Entity (N : in out Node_Id); 10061 procedure Next_Named_Actual (N : in out Node_Id); 10062 procedure Next_Rep_Item (N : in out Node_Id); 10063 procedure Next_Use_Clause (N : in out Node_Id); 10064 10065 ------------------------------------------- 10066 -- Miscellaneous Tree Access Subprograms -- 10067 ------------------------------------------- 10068 10069 function End_Location (N : Node_Id) return Source_Ptr; 10070 -- N is an N_If_Statement or N_Case_Statement node, and this function 10071 -- returns the location of the IF token in the END IF sequence by 10072 -- translating the value of the End_Span field. 10073 10074 procedure Set_End_Location (N : Node_Id; S : Source_Ptr); 10075 -- N is an N_If_Statement or N_Case_Statement node. This procedure sets 10076 -- the End_Span field to correspond to the given value S. In other words, 10077 -- End_Span is set to the difference between S and Sloc (N), the starting 10078 -- location. 10079 10080 function Get_Pragma_Arg (Arg : Node_Id) return Node_Id; 10081 -- Given an argument to a pragma Arg, this function returns the expression 10082 -- for the argument. This is Arg itself, or, in the case where Arg is a 10083 -- pragma argument association node, the expression from this node. 10084 10085 -------------------------------- 10086 -- Node_Kind Membership Tests -- 10087 -------------------------------- 10088 10089 -- The following functions allow a convenient notation for testing whether 10090 -- a Node_Kind value matches any one of a list of possible values. In each 10091 -- case True is returned if the given T argument is equal to any of the V 10092 -- arguments. Note that there is a similar set of functions defined in 10093 -- Atree where the first argument is a Node_Id whose Nkind field is tested. 10094 10095 function Nkind_In 10096 (T : Node_Kind; 10097 V1 : Node_Kind; 10098 V2 : Node_Kind) return Boolean; 10099 10100 function Nkind_In 10101 (T : Node_Kind; 10102 V1 : Node_Kind; 10103 V2 : Node_Kind; 10104 V3 : Node_Kind) return Boolean; 10105 10106 function Nkind_In 10107 (T : Node_Kind; 10108 V1 : Node_Kind; 10109 V2 : Node_Kind; 10110 V3 : Node_Kind; 10111 V4 : Node_Kind) return Boolean; 10112 10113 function Nkind_In 10114 (T : Node_Kind; 10115 V1 : Node_Kind; 10116 V2 : Node_Kind; 10117 V3 : Node_Kind; 10118 V4 : Node_Kind; 10119 V5 : Node_Kind) return Boolean; 10120 10121 function Nkind_In 10122 (T : Node_Kind; 10123 V1 : Node_Kind; 10124 V2 : Node_Kind; 10125 V3 : Node_Kind; 10126 V4 : Node_Kind; 10127 V5 : Node_Kind; 10128 V6 : Node_Kind) return Boolean; 10129 10130 function Nkind_In 10131 (T : Node_Kind; 10132 V1 : Node_Kind; 10133 V2 : Node_Kind; 10134 V3 : Node_Kind; 10135 V4 : Node_Kind; 10136 V5 : Node_Kind; 10137 V6 : Node_Kind; 10138 V7 : Node_Kind) return Boolean; 10139 10140 function Nkind_In 10141 (T : Node_Kind; 10142 V1 : Node_Kind; 10143 V2 : Node_Kind; 10144 V3 : Node_Kind; 10145 V4 : Node_Kind; 10146 V5 : Node_Kind; 10147 V6 : Node_Kind; 10148 V7 : Node_Kind; 10149 V8 : Node_Kind) return Boolean; 10150 10151 function Nkind_In 10152 (T : Node_Kind; 10153 V1 : Node_Kind; 10154 V2 : Node_Kind; 10155 V3 : Node_Kind; 10156 V4 : Node_Kind; 10157 V5 : Node_Kind; 10158 V6 : Node_Kind; 10159 V7 : Node_Kind; 10160 V8 : Node_Kind; 10161 V9 : Node_Kind) return Boolean; 10162 10163 pragma Inline (Nkind_In); 10164 -- Inline all above functions 10165 10166 ----------------------- 10167 -- Utility Functions -- 10168 ----------------------- 10169 10170 function Pragma_Name (N : Node_Id) return Name_Id; 10171 pragma Inline (Pragma_Name); 10172 -- Convenient function to obtain Chars field of Pragma_Identifier 10173 10174 ----------------------------- 10175 -- Syntactic Parent Tables -- 10176 ----------------------------- 10177 10178 -- These tables show for each node, and for each of the five fields, 10179 -- whether the corresponding field is syntactic (True) or semantic (False). 10180 -- Unused entries are also set to False. 10181 10182 subtype Field_Num is Natural range 1 .. 5; 10183 10184 Is_Syntactic_Field : constant array (Node_Kind, Field_Num) of Boolean := ( 10185 10186 -- Following entries can be built automatically from the sinfo sources 10187 -- using the makeisf utility (currently this program is in spitbol). 10188 10189 N_Identifier => 10190 (1 => True, -- Chars (Name1) 10191 2 => False, -- Original_Discriminant (Node2-Sem) 10192 3 => False, -- unused 10193 4 => False, -- Entity (Node4-Sem) 10194 5 => False), -- Etype (Node5-Sem) 10195 10196 N_Integer_Literal => 10197 (1 => False, -- unused 10198 2 => False, -- Original_Entity (Node2-Sem) 10199 3 => True, -- Intval (Uint3) 10200 4 => False, -- unused 10201 5 => False), -- Etype (Node5-Sem) 10202 10203 N_Real_Literal => 10204 (1 => False, -- unused 10205 2 => False, -- Original_Entity (Node2-Sem) 10206 3 => True, -- Realval (Ureal3) 10207 4 => False, -- Corresponding_Integer_Value (Uint4-Sem) 10208 5 => False), -- Etype (Node5-Sem) 10209 10210 N_Character_Literal => 10211 (1 => True, -- Chars (Name1) 10212 2 => True, -- Char_Literal_Value (Uint2) 10213 3 => False, -- unused 10214 4 => False, -- Entity (Node4-Sem) 10215 5 => False), -- Etype (Node5-Sem) 10216 10217 N_String_Literal => 10218 (1 => False, -- unused 10219 2 => False, -- unused 10220 3 => True, -- Strval (Str3) 10221 4 => False, -- unused 10222 5 => False), -- Etype (Node5-Sem) 10223 10224 N_Pragma => 10225 (1 => False, -- Next_Pragma (Node1-Sem) 10226 2 => True, -- Pragma_Argument_Associations (List2) 10227 3 => False, -- unused 10228 4 => True, -- Pragma_Identifier (Node4) 10229 5 => False), -- Next_Rep_Item (Node5-Sem) 10230 10231 N_Pragma_Argument_Association => 10232 (1 => True, -- Chars (Name1) 10233 2 => False, -- unused 10234 3 => True, -- Expression (Node3) 10235 4 => False, -- unused 10236 5 => False), -- unused 10237 10238 N_Defining_Identifier => 10239 (1 => True, -- Chars (Name1) 10240 2 => False, -- Next_Entity (Node2-Sem) 10241 3 => False, -- Scope (Node3-Sem) 10242 4 => False, -- unused 10243 5 => False), -- Etype (Node5-Sem) 10244 10245 N_Full_Type_Declaration => 10246 (1 => True, -- Defining_Identifier (Node1) 10247 2 => False, -- unused 10248 3 => True, -- Type_Definition (Node3) 10249 4 => True, -- Discriminant_Specifications (List4) 10250 5 => False), -- unused 10251 10252 N_Subtype_Declaration => 10253 (1 => True, -- Defining_Identifier (Node1) 10254 2 => False, -- unused 10255 3 => False, -- unused 10256 4 => False, -- Generic_Parent_Type (Node4-Sem) 10257 5 => True), -- Subtype_Indication (Node5) 10258 10259 N_Subtype_Indication => 10260 (1 => False, -- unused 10261 2 => False, -- unused 10262 3 => True, -- Constraint (Node3) 10263 4 => True, -- Subtype_Mark (Node4) 10264 5 => False), -- Etype (Node5-Sem) 10265 10266 N_Object_Declaration => 10267 (1 => True, -- Defining_Identifier (Node1) 10268 2 => False, -- Handler_List_Entry (Node2-Sem) 10269 3 => True, -- Expression (Node3) 10270 4 => True, -- Object_Definition (Node4) 10271 5 => False), -- Corresponding_Generic_Association (Node5-Sem) 10272 10273 N_Number_Declaration => 10274 (1 => True, -- Defining_Identifier (Node1) 10275 2 => False, -- unused 10276 3 => True, -- Expression (Node3) 10277 4 => False, -- unused 10278 5 => False), -- unused 10279 10280 N_Derived_Type_Definition => 10281 (1 => False, -- unused 10282 2 => True, -- Interface_List (List2) 10283 3 => True, -- Record_Extension_Part (Node3) 10284 4 => False, -- unused 10285 5 => True), -- Subtype_Indication (Node5) 10286 10287 N_Range_Constraint => 10288 (1 => False, -- unused 10289 2 => False, -- unused 10290 3 => False, -- unused 10291 4 => True, -- Range_Expression (Node4) 10292 5 => False), -- unused 10293 10294 N_Range => 10295 (1 => True, -- Low_Bound (Node1) 10296 2 => True, -- High_Bound (Node2) 10297 3 => False, -- unused 10298 4 => False, -- unused 10299 5 => False), -- Etype (Node5-Sem) 10300 10301 N_Enumeration_Type_Definition => 10302 (1 => True, -- Literals (List1) 10303 2 => False, -- unused 10304 3 => False, -- unused 10305 4 => True, -- End_Label (Node4) 10306 5 => False), -- unused 10307 10308 N_Defining_Character_Literal => 10309 (1 => True, -- Chars (Name1) 10310 2 => False, -- Next_Entity (Node2-Sem) 10311 3 => False, -- Scope (Node3-Sem) 10312 4 => False, -- unused 10313 5 => False), -- Etype (Node5-Sem) 10314 10315 N_Signed_Integer_Type_Definition => 10316 (1 => True, -- Low_Bound (Node1) 10317 2 => True, -- High_Bound (Node2) 10318 3 => False, -- unused 10319 4 => False, -- unused 10320 5 => False), -- unused 10321 10322 N_Modular_Type_Definition => 10323 (1 => False, -- unused 10324 2 => False, -- unused 10325 3 => True, -- Expression (Node3) 10326 4 => False, -- unused 10327 5 => False), -- unused 10328 10329 N_Floating_Point_Definition => 10330 (1 => False, -- unused 10331 2 => True, -- Digits_Expression (Node2) 10332 3 => False, -- unused 10333 4 => True, -- Real_Range_Specification (Node4) 10334 5 => False), -- unused 10335 10336 N_Real_Range_Specification => 10337 (1 => True, -- Low_Bound (Node1) 10338 2 => True, -- High_Bound (Node2) 10339 3 => False, -- unused 10340 4 => False, -- unused 10341 5 => False), -- unused 10342 10343 N_Ordinary_Fixed_Point_Definition => 10344 (1 => False, -- unused 10345 2 => False, -- unused 10346 3 => True, -- Delta_Expression (Node3) 10347 4 => True, -- Real_Range_Specification (Node4) 10348 5 => False), -- unused 10349 10350 N_Decimal_Fixed_Point_Definition => 10351 (1 => False, -- unused 10352 2 => True, -- Digits_Expression (Node2) 10353 3 => True, -- Delta_Expression (Node3) 10354 4 => True, -- Real_Range_Specification (Node4) 10355 5 => False), -- unused 10356 10357 N_Digits_Constraint => 10358 (1 => False, -- unused 10359 2 => True, -- Digits_Expression (Node2) 10360 3 => False, -- unused 10361 4 => True, -- Range_Constraint (Node4) 10362 5 => False), -- unused 10363 10364 N_Unconstrained_Array_Definition => 10365 (1 => False, -- unused 10366 2 => True, -- Subtype_Marks (List2) 10367 3 => False, -- unused 10368 4 => True, -- Component_Definition (Node4) 10369 5 => False), -- unused 10370 10371 N_Constrained_Array_Definition => 10372 (1 => False, -- unused 10373 2 => True, -- Discrete_Subtype_Definitions (List2) 10374 3 => False, -- unused 10375 4 => True, -- Component_Definition (Node4) 10376 5 => False), -- unused 10377 10378 N_Component_Definition => 10379 (1 => False, -- unused 10380 2 => False, -- unused 10381 3 => True, -- Access_Definition (Node3) 10382 4 => False, -- unused 10383 5 => True), -- Subtype_Indication (Node5) 10384 10385 N_Discriminant_Specification => 10386 (1 => True, -- Defining_Identifier (Node1) 10387 2 => False, -- unused 10388 3 => True, -- Expression (Node3) 10389 4 => False, -- unused 10390 5 => True), -- Discriminant_Type (Node5) 10391 10392 N_Index_Or_Discriminant_Constraint => 10393 (1 => True, -- Constraints (List1) 10394 2 => False, -- unused 10395 3 => False, -- unused 10396 4 => False, -- unused 10397 5 => False), -- unused 10398 10399 N_Discriminant_Association => 10400 (1 => True, -- Selector_Names (List1) 10401 2 => False, -- unused 10402 3 => True, -- Expression (Node3) 10403 4 => False, -- unused 10404 5 => False), -- unused 10405 10406 N_Record_Definition => 10407 (1 => True, -- Component_List (Node1) 10408 2 => True, -- Interface_List (List2) 10409 3 => False, -- unused 10410 4 => True, -- End_Label (Node4) 10411 5 => False), -- unused 10412 10413 N_Component_List => 10414 (1 => False, -- unused 10415 2 => False, -- unused 10416 3 => True, -- Component_Items (List3) 10417 4 => True, -- Variant_Part (Node4) 10418 5 => False), -- unused 10419 10420 N_Component_Declaration => 10421 (1 => True, -- Defining_Identifier (Node1) 10422 2 => False, -- unused 10423 3 => True, -- Expression (Node3) 10424 4 => True, -- Component_Definition (Node4) 10425 5 => False), -- unused 10426 10427 N_Variant_Part => 10428 (1 => True, -- Variants (List1) 10429 2 => True, -- Name (Node2) 10430 3 => False, -- unused 10431 4 => False, -- unused 10432 5 => False), -- unused 10433 10434 N_Variant => 10435 (1 => True, -- Component_List (Node1) 10436 2 => False, -- Enclosing_Variant (Node2-Sem) 10437 3 => False, -- Present_Expr (Uint3-Sem) 10438 4 => True, -- Discrete_Choices (List4) 10439 5 => False), -- Dcheck_Function (Node5-Sem) 10440 10441 N_Others_Choice => 10442 (1 => False, -- Others_Discrete_Choices (List1-Sem) 10443 2 => False, -- unused 10444 3 => False, -- unused 10445 4 => False, -- unused 10446 5 => False), -- unused 10447 10448 N_Access_To_Object_Definition => 10449 (1 => False, -- unused 10450 2 => False, -- unused 10451 3 => False, -- unused 10452 4 => False, -- unused 10453 5 => True), -- Subtype_Indication (Node5) 10454 10455 N_Access_Function_Definition => 10456 (1 => False, -- unused 10457 2 => False, -- unused 10458 3 => True, -- Parameter_Specifications (List3) 10459 4 => True, -- Result_Definition (Node4) 10460 5 => False), -- unused 10461 10462 N_Access_Procedure_Definition => 10463 (1 => False, -- unused 10464 2 => False, -- unused 10465 3 => True, -- Parameter_Specifications (List3) 10466 4 => False, -- unused 10467 5 => False), -- unused 10468 10469 N_Access_Definition => 10470 (1 => False, -- unused 10471 2 => False, -- unused 10472 3 => True, -- Access_To_Subprogram_Definition (Node3) 10473 4 => True, -- Subtype_Mark (Node4) 10474 5 => False), -- unused 10475 10476 N_Incomplete_Type_Declaration => 10477 (1 => True, -- Defining_Identifier (Node1) 10478 2 => False, -- unused 10479 3 => False, -- unused 10480 4 => True, -- Discriminant_Specifications (List4) 10481 5 => False), -- Premature_Use 10482 10483 N_Explicit_Dereference => 10484 (1 => False, -- unused 10485 2 => False, -- unused 10486 3 => True, -- Prefix (Node3) 10487 4 => False, -- Actual_Designated_Subtype (Node4-Sem) 10488 5 => False), -- Etype (Node5-Sem) 10489 10490 N_Indexed_Component => 10491 (1 => True, -- Expressions (List1) 10492 2 => False, -- unused 10493 3 => True, -- Prefix (Node3) 10494 4 => False, -- unused 10495 5 => False), -- Etype (Node5-Sem) 10496 10497 N_Slice => 10498 (1 => False, -- unused 10499 2 => False, -- unused 10500 3 => True, -- Prefix (Node3) 10501 4 => True, -- Discrete_Range (Node4) 10502 5 => False), -- Etype (Node5-Sem) 10503 10504 N_Selected_Component => 10505 (1 => False, -- unused 10506 2 => True, -- Selector_Name (Node2) 10507 3 => True, -- Prefix (Node3) 10508 4 => False, -- unused 10509 5 => False), -- Etype (Node5-Sem) 10510 10511 N_Attribute_Reference => 10512 (1 => True, -- Expressions (List1) 10513 2 => True, -- Attribute_Name (Name2) 10514 3 => True, -- Prefix (Node3) 10515 4 => False, -- Entity (Node4-Sem) 10516 5 => False), -- Etype (Node5-Sem) 10517 10518 N_Aggregate => 10519 (1 => True, -- Expressions (List1) 10520 2 => True, -- Component_Associations (List2) 10521 3 => False, -- Aggregate_Bounds (Node3-Sem) 10522 4 => False, -- unused 10523 5 => False), -- Etype (Node5-Sem) 10524 10525 N_Component_Association => 10526 (1 => True, -- Choices (List1) 10527 2 => False, -- Loop_Actions (List2-Sem) 10528 3 => True, -- Expression (Node3) 10529 4 => False, -- unused 10530 5 => False), -- unused 10531 10532 N_Extension_Aggregate => 10533 (1 => True, -- Expressions (List1) 10534 2 => True, -- Component_Associations (List2) 10535 3 => True, -- Ancestor_Part (Node3) 10536 4 => False, -- unused 10537 5 => False), -- Etype (Node5-Sem) 10538 10539 N_Null => 10540 (1 => False, -- unused 10541 2 => False, -- unused 10542 3 => False, -- unused 10543 4 => False, -- unused 10544 5 => False), -- Etype (Node5-Sem) 10545 10546 N_And_Then => 10547 (1 => False, -- Actions (List1-Sem) 10548 2 => True, -- Left_Opnd (Node2) 10549 3 => True, -- Right_Opnd (Node3) 10550 4 => False, -- unused 10551 5 => False), -- Etype (Node5-Sem) 10552 10553 N_Or_Else => 10554 (1 => False, -- Actions (List1-Sem) 10555 2 => True, -- Left_Opnd (Node2) 10556 3 => True, -- Right_Opnd (Node3) 10557 4 => False, -- unused 10558 5 => False), -- Etype (Node5-Sem) 10559 10560 N_In => 10561 (1 => False, -- unused 10562 2 => True, -- Left_Opnd (Node2) 10563 3 => True, -- Right_Opnd (Node3) 10564 4 => True, -- Alternatives (List4) 10565 5 => False), -- Etype (Node5-Sem) 10566 10567 N_Not_In => 10568 (1 => False, -- unused 10569 2 => True, -- Left_Opnd (Node2) 10570 3 => True, -- Right_Opnd (Node3) 10571 4 => True, -- Alternatives (List4) 10572 5 => False), -- Etype (Node5-Sem) 10573 10574 N_Op_And => 10575 (1 => True, -- Chars (Name1) 10576 2 => True, -- Left_Opnd (Node2) 10577 3 => True, -- Right_Opnd (Node3) 10578 4 => False, -- Entity (Node4-Sem) 10579 5 => False), -- Etype (Node5-Sem) 10580 10581 N_Op_Or => 10582 (1 => True, -- Chars (Name1) 10583 2 => True, -- Left_Opnd (Node2) 10584 3 => True, -- Right_Opnd (Node3) 10585 4 => False, -- Entity (Node4-Sem) 10586 5 => False), -- Etype (Node5-Sem) 10587 10588 N_Op_Xor => 10589 (1 => True, -- Chars (Name1) 10590 2 => True, -- Left_Opnd (Node2) 10591 3 => True, -- Right_Opnd (Node3) 10592 4 => False, -- Entity (Node4-Sem) 10593 5 => False), -- Etype (Node5-Sem) 10594 10595 N_Op_Eq => 10596 (1 => True, -- Chars (Name1) 10597 2 => True, -- Left_Opnd (Node2) 10598 3 => True, -- Right_Opnd (Node3) 10599 4 => False, -- Entity (Node4-Sem) 10600 5 => False), -- Etype (Node5-Sem) 10601 10602 N_Op_Ne => 10603 (1 => True, -- Chars (Name1) 10604 2 => True, -- Left_Opnd (Node2) 10605 3 => True, -- Right_Opnd (Node3) 10606 4 => False, -- Entity (Node4-Sem) 10607 5 => False), -- Etype (Node5-Sem) 10608 10609 N_Op_Lt => 10610 (1 => True, -- Chars (Name1) 10611 2 => True, -- Left_Opnd (Node2) 10612 3 => True, -- Right_Opnd (Node3) 10613 4 => False, -- Entity (Node4-Sem) 10614 5 => False), -- Etype (Node5-Sem) 10615 10616 N_Op_Le => 10617 (1 => True, -- Chars (Name1) 10618 2 => True, -- Left_Opnd (Node2) 10619 3 => True, -- Right_Opnd (Node3) 10620 4 => False, -- Entity (Node4-Sem) 10621 5 => False), -- Etype (Node5-Sem) 10622 10623 N_Op_Gt => 10624 (1 => True, -- Chars (Name1) 10625 2 => True, -- Left_Opnd (Node2) 10626 3 => True, -- Right_Opnd (Node3) 10627 4 => False, -- Entity (Node4-Sem) 10628 5 => False), -- Etype (Node5-Sem) 10629 10630 N_Op_Ge => 10631 (1 => True, -- Chars (Name1) 10632 2 => True, -- Left_Opnd (Node2) 10633 3 => True, -- Right_Opnd (Node3) 10634 4 => False, -- Entity (Node4-Sem) 10635 5 => False), -- Etype (Node5-Sem) 10636 10637 N_Op_Add => 10638 (1 => True, -- Chars (Name1) 10639 2 => True, -- Left_Opnd (Node2) 10640 3 => True, -- Right_Opnd (Node3) 10641 4 => False, -- Entity (Node4-Sem) 10642 5 => False), -- Etype (Node5-Sem) 10643 10644 N_Op_Subtract => 10645 (1 => True, -- Chars (Name1) 10646 2 => True, -- Left_Opnd (Node2) 10647 3 => True, -- Right_Opnd (Node3) 10648 4 => False, -- Entity (Node4-Sem) 10649 5 => False), -- Etype (Node5-Sem) 10650 10651 N_Op_Concat => 10652 (1 => True, -- Chars (Name1) 10653 2 => True, -- Left_Opnd (Node2) 10654 3 => True, -- Right_Opnd (Node3) 10655 4 => False, -- Entity (Node4-Sem) 10656 5 => False), -- Etype (Node5-Sem) 10657 10658 N_Op_Multiply => 10659 (1 => True, -- Chars (Name1) 10660 2 => True, -- Left_Opnd (Node2) 10661 3 => True, -- Right_Opnd (Node3) 10662 4 => False, -- Entity (Node4-Sem) 10663 5 => False), -- Etype (Node5-Sem) 10664 10665 N_Op_Divide => 10666 (1 => True, -- Chars (Name1) 10667 2 => True, -- Left_Opnd (Node2) 10668 3 => True, -- Right_Opnd (Node3) 10669 4 => False, -- Entity (Node4-Sem) 10670 5 => False), -- Etype (Node5-Sem) 10671 10672 N_Op_Mod => 10673 (1 => True, -- Chars (Name1) 10674 2 => True, -- Left_Opnd (Node2) 10675 3 => True, -- Right_Opnd (Node3) 10676 4 => False, -- Entity (Node4-Sem) 10677 5 => False), -- Etype (Node5-Sem) 10678 10679 N_Op_Rem => 10680 (1 => True, -- Chars (Name1) 10681 2 => True, -- Left_Opnd (Node2) 10682 3 => True, -- Right_Opnd (Node3) 10683 4 => False, -- Entity (Node4-Sem) 10684 5 => False), -- Etype (Node5-Sem) 10685 10686 N_Op_Expon => 10687 (1 => True, -- Chars (Name1) 10688 2 => True, -- Left_Opnd (Node2) 10689 3 => True, -- Right_Opnd (Node3) 10690 4 => False, -- Entity (Node4-Sem) 10691 5 => False), -- Etype (Node5-Sem) 10692 10693 N_Op_Plus => 10694 (1 => True, -- Chars (Name1) 10695 2 => False, -- unused 10696 3 => True, -- Right_Opnd (Node3) 10697 4 => False, -- Entity (Node4-Sem) 10698 5 => False), -- Etype (Node5-Sem) 10699 10700 N_Op_Minus => 10701 (1 => True, -- Chars (Name1) 10702 2 => False, -- unused 10703 3 => True, -- Right_Opnd (Node3) 10704 4 => False, -- Entity (Node4-Sem) 10705 5 => False), -- Etype (Node5-Sem) 10706 10707 N_Op_Abs => 10708 (1 => True, -- Chars (Name1) 10709 2 => False, -- unused 10710 3 => True, -- Right_Opnd (Node3) 10711 4 => False, -- Entity (Node4-Sem) 10712 5 => False), -- Etype (Node5-Sem) 10713 10714 N_Op_Not => 10715 (1 => True, -- Chars (Name1) 10716 2 => False, -- unused 10717 3 => True, -- Right_Opnd (Node3) 10718 4 => False, -- Entity (Node4-Sem) 10719 5 => False), -- Etype (Node5-Sem) 10720 10721 N_Type_Conversion => 10722 (1 => False, -- unused 10723 2 => False, -- unused 10724 3 => True, -- Expression (Node3) 10725 4 => True, -- Subtype_Mark (Node4) 10726 5 => False), -- Etype (Node5-Sem) 10727 10728 N_Qualified_Expression => 10729 (1 => False, -- unused 10730 2 => False, -- unused 10731 3 => True, -- Expression (Node3) 10732 4 => True, -- Subtype_Mark (Node4) 10733 5 => False), -- Etype (Node5-Sem) 10734 10735 N_Quantified_Expression => 10736 (1 => True, -- Condition (Node1) 10737 2 => True, -- Iterator_Specification 10738 3 => False, -- unused 10739 4 => True, -- Loop_Parameter_Specification (Node4) 10740 5 => False), -- Etype (Node5-Sem) 10741 10742 N_Allocator => 10743 (1 => False, -- Storage_Pool (Node1-Sem) 10744 2 => False, -- Procedure_To_Call (Node2-Sem) 10745 3 => True, -- Expression (Node3) 10746 4 => True, -- Subpool_Handle_Name (Node4) 10747 5 => False), -- Etype (Node5-Sem) 10748 10749 N_Null_Statement => 10750 (1 => False, -- unused 10751 2 => False, -- unused 10752 3 => False, -- unused 10753 4 => False, -- unused 10754 5 => False), -- unused 10755 10756 N_Label => 10757 (1 => True, -- Identifier (Node1) 10758 2 => False, -- unused 10759 3 => False, -- unused 10760 4 => False, -- unused 10761 5 => False), -- unused 10762 10763 N_Assignment_Statement => 10764 (1 => False, -- unused 10765 2 => True, -- Name (Node2) 10766 3 => True, -- Expression (Node3) 10767 4 => False, -- unused 10768 5 => False), -- unused 10769 10770 N_If_Statement => 10771 (1 => True, -- Condition (Node1) 10772 2 => True, -- Then_Statements (List2) 10773 3 => True, -- Elsif_Parts (List3) 10774 4 => True, -- Else_Statements (List4) 10775 5 => True), -- End_Span (Uint5) 10776 10777 N_Elsif_Part => 10778 (1 => True, -- Condition (Node1) 10779 2 => True, -- Then_Statements (List2) 10780 3 => False, -- Condition_Actions (List3-Sem) 10781 4 => False, -- unused 10782 5 => False), -- unused 10783 10784 N_Case_Expression => 10785 (1 => False, -- unused 10786 2 => False, -- unused 10787 3 => True, -- Expression (Node3) 10788 4 => True, -- Alternatives (List4) 10789 5 => False), -- unused 10790 10791 N_Case_Expression_Alternative => 10792 (1 => False, -- Actions (List1-Sem) 10793 2 => False, -- unused 10794 3 => True, -- Statements (List3) 10795 4 => True, -- Expression (Node4) 10796 5 => False), -- unused 10797 10798 N_Case_Statement => 10799 (1 => False, -- unused 10800 2 => False, -- unused 10801 3 => True, -- Expression (Node3) 10802 4 => True, -- Alternatives (List4) 10803 5 => True), -- End_Span (Uint5) 10804 10805 N_Case_Statement_Alternative => 10806 (1 => False, -- unused 10807 2 => False, -- unused 10808 3 => True, -- Statements (List3) 10809 4 => True, -- Discrete_Choices (List4) 10810 5 => False), -- unused 10811 10812 N_Loop_Statement => 10813 (1 => True, -- Identifier (Node1) 10814 2 => True, -- Iteration_Scheme (Node2) 10815 3 => True, -- Statements (List3) 10816 4 => True, -- End_Label (Node4) 10817 5 => False), -- unused 10818 10819 N_Iteration_Scheme => 10820 (1 => True, -- Condition (Node1) 10821 2 => True, -- Iterator_Specification (Node2) 10822 3 => False, -- Condition_Actions (List3-Sem) 10823 4 => True, -- Loop_Parameter_Specification (Node4) 10824 5 => False), -- unused 10825 10826 N_Loop_Parameter_Specification => 10827 (1 => True, -- Defining_Identifier (Node1) 10828 2 => False, -- unused 10829 3 => False, -- unused 10830 4 => True, -- Discrete_Subtype_Definition (Node4) 10831 5 => False), -- unused 10832 10833 N_Iterator_Specification => 10834 (1 => True, -- Defining_Identifier (Node1) 10835 2 => True, -- Name (Node2) 10836 3 => False, -- Unused 10837 4 => False, -- Unused 10838 5 => True), -- Subtype_Indication (Node5) 10839 10840 N_Block_Statement => 10841 (1 => True, -- Identifier (Node1) 10842 2 => True, -- Declarations (List2) 10843 3 => False, -- Activation_Chain_Entity (Node3-Sem) 10844 4 => True, -- Handled_Statement_Sequence (Node4) 10845 5 => False), -- unused 10846 10847 N_Exit_Statement => 10848 (1 => True, -- Condition (Node1) 10849 2 => True, -- Name (Node2) 10850 3 => False, -- unused 10851 4 => False, -- unused 10852 5 => False), -- unused 10853 10854 N_Goto_Statement => 10855 (1 => False, -- unused 10856 2 => True, -- Name (Node2) 10857 3 => False, -- unused 10858 4 => False, -- unused 10859 5 => False), -- unused 10860 10861 N_Subprogram_Declaration => 10862 (1 => True, -- Specification (Node1) 10863 2 => False, -- unused 10864 3 => False, -- Body_To_Inline (Node3-Sem) 10865 4 => False, -- Parent_Spec (Node4-Sem) 10866 5 => False), -- Corresponding_Body (Node5-Sem) 10867 10868 N_Abstract_Subprogram_Declaration => 10869 (1 => True, -- Specification (Node1) 10870 2 => False, -- unused 10871 3 => False, -- unused 10872 4 => False, -- unused 10873 5 => False), -- unused 10874 10875 N_Function_Specification => 10876 (1 => True, -- Defining_Unit_Name (Node1) 10877 2 => False, -- Elaboration_Boolean (Node2-Sem) 10878 3 => True, -- Parameter_Specifications (List3) 10879 4 => True, -- Result_Definition (Node4) 10880 5 => False), -- Generic_Parent (Node5-Sem) 10881 10882 N_Procedure_Specification => 10883 (1 => True, -- Defining_Unit_Name (Node1) 10884 2 => False, -- Elaboration_Boolean (Node2-Sem) 10885 3 => True, -- Parameter_Specifications (List3) 10886 4 => False, -- unused 10887 5 => False), -- Generic_Parent (Node5-Sem) 10888 10889 N_Designator => 10890 (1 => True, -- Identifier (Node1) 10891 2 => True, -- Name (Node2) 10892 3 => False, -- unused 10893 4 => False, -- unused 10894 5 => False), -- unused 10895 10896 N_Defining_Program_Unit_Name => 10897 (1 => True, -- Defining_Identifier (Node1) 10898 2 => True, -- Name (Node2) 10899 3 => False, -- unused 10900 4 => False, -- unused 10901 5 => False), -- unused 10902 10903 N_Operator_Symbol => 10904 (1 => True, -- Chars (Name1) 10905 2 => False, -- unused 10906 3 => True, -- Strval (Str3) 10907 4 => False, -- Entity (Node4-Sem) 10908 5 => False), -- Etype (Node5-Sem) 10909 10910 N_Defining_Operator_Symbol => 10911 (1 => True, -- Chars (Name1) 10912 2 => False, -- Next_Entity (Node2-Sem) 10913 3 => False, -- Scope (Node3-Sem) 10914 4 => False, -- unused 10915 5 => False), -- Etype (Node5-Sem) 10916 10917 N_Parameter_Specification => 10918 (1 => True, -- Defining_Identifier (Node1) 10919 2 => True, -- Parameter_Type (Node2) 10920 3 => True, -- Expression (Node3) 10921 4 => False, -- unused 10922 5 => False), -- Default_Expression (Node5-Sem) 10923 10924 N_Subprogram_Body => 10925 (1 => True, -- Specification (Node1) 10926 2 => True, -- Declarations (List2) 10927 3 => False, -- Activation_Chain_Entity (Node3-Sem) 10928 4 => True, -- Handled_Statement_Sequence (Node4) 10929 5 => False), -- Corresponding_Spec (Node5-Sem) 10930 10931 N_Expression_Function => 10932 (1 => True, -- Specification (Node1) 10933 2 => False, -- unused 10934 3 => True, -- Expression (Node3) 10935 4 => False, -- unused 10936 5 => False), -- unused 10937 10938 N_Procedure_Call_Statement => 10939 (1 => False, -- Controlling_Argument (Node1-Sem) 10940 2 => True, -- Name (Node2) 10941 3 => True, -- Parameter_Associations (List3) 10942 4 => False, -- First_Named_Actual (Node4-Sem) 10943 5 => False), -- Etype (Node5-Sem) 10944 10945 N_Function_Call => 10946 (1 => False, -- Controlling_Argument (Node1-Sem) 10947 2 => True, -- Name (Node2) 10948 3 => True, -- Parameter_Associations (List3) 10949 4 => False, -- First_Named_Actual (Node4-Sem) 10950 5 => False), -- Etype (Node5-Sem) 10951 10952 N_Parameter_Association => 10953 (1 => False, -- unused 10954 2 => True, -- Selector_Name (Node2) 10955 3 => True, -- Explicit_Actual_Parameter (Node3) 10956 4 => False, -- Next_Named_Actual (Node4-Sem) 10957 5 => False), -- unused 10958 10959 N_Simple_Return_Statement => 10960 (1 => False, -- Storage_Pool (Node1-Sem) 10961 2 => False, -- Procedure_To_Call (Node2-Sem) 10962 3 => True, -- Expression (Node3) 10963 4 => False, -- unused 10964 5 => False), -- Return_Statement_Entity (Node5-Sem) 10965 10966 N_Extended_Return_Statement => 10967 (1 => False, -- Storage_Pool (Node1-Sem) 10968 2 => False, -- Procedure_To_Call (Node2-Sem) 10969 3 => True, -- Return_Object_Declarations (List3) 10970 4 => True, -- Handled_Statement_Sequence (Node4) 10971 5 => False), -- Return_Statement_Entity (Node5-Sem) 10972 10973 N_Package_Declaration => 10974 (1 => True, -- Specification (Node1) 10975 2 => False, -- unused 10976 3 => False, -- Activation_Chain_Entity (Node3-Sem) 10977 4 => False, -- Parent_Spec (Node4-Sem) 10978 5 => False), -- Corresponding_Body (Node5-Sem) 10979 10980 N_Package_Specification => 10981 (1 => True, -- Defining_Unit_Name (Node1) 10982 2 => True, -- Visible_Declarations (List2) 10983 3 => True, -- Private_Declarations (List3) 10984 4 => True, -- End_Label (Node4) 10985 5 => False), -- Generic_Parent (Node5-Sem) 10986 10987 N_Package_Body => 10988 (1 => True, -- Defining_Unit_Name (Node1) 10989 2 => True, -- Declarations (List2) 10990 3 => False, -- unused 10991 4 => True, -- Handled_Statement_Sequence (Node4) 10992 5 => False), -- Corresponding_Spec (Node5-Sem) 10993 10994 N_Private_Type_Declaration => 10995 (1 => True, -- Defining_Identifier (Node1) 10996 2 => False, -- unused 10997 3 => False, -- unused 10998 4 => True, -- Discriminant_Specifications (List4) 10999 5 => False), -- unused 11000 11001 N_Private_Extension_Declaration => 11002 (1 => True, -- Defining_Identifier (Node1) 11003 2 => True, -- Interface_List (List2) 11004 3 => False, -- unused 11005 4 => True, -- Discriminant_Specifications (List4) 11006 5 => True), -- Subtype_Indication (Node5) 11007 11008 N_Use_Package_Clause => 11009 (1 => False, -- unused 11010 2 => True, -- Names (List2) 11011 3 => False, -- Next_Use_Clause (Node3-Sem) 11012 4 => False, -- Hidden_By_Use_Clause (Elist4-Sem) 11013 5 => False), -- unused 11014 11015 N_Use_Type_Clause => 11016 (1 => False, -- unused 11017 2 => True, -- Subtype_Marks (List2) 11018 3 => False, -- Next_Use_Clause (Node3-Sem) 11019 4 => False, -- Hidden_By_Use_Clause (Elist4-Sem) 11020 5 => False), -- unused 11021 11022 N_Object_Renaming_Declaration => 11023 (1 => True, -- Defining_Identifier (Node1) 11024 2 => True, -- Name (Node2) 11025 3 => True, -- Access_Definition (Node3) 11026 4 => True, -- Subtype_Mark (Node4) 11027 5 => False), -- Corresponding_Generic_Association (Node5-Sem) 11028 11029 N_Exception_Renaming_Declaration => 11030 (1 => True, -- Defining_Identifier (Node1) 11031 2 => True, -- Name (Node2) 11032 3 => False, -- unused 11033 4 => False, -- unused 11034 5 => False), -- unused 11035 11036 N_Package_Renaming_Declaration => 11037 (1 => True, -- Defining_Unit_Name (Node1) 11038 2 => True, -- Name (Node2) 11039 3 => False, -- unused 11040 4 => False, -- Parent_Spec (Node4-Sem) 11041 5 => False), -- unused 11042 11043 N_Subprogram_Renaming_Declaration => 11044 (1 => True, -- Specification (Node1) 11045 2 => True, -- Name (Node2) 11046 3 => False, -- Corresponding_Formal_Spec (Node3-Sem) 11047 4 => False, -- Parent_Spec (Node4-Sem) 11048 5 => False), -- Corresponding_Spec (Node5-Sem) 11049 11050 N_Generic_Package_Renaming_Declaration => 11051 (1 => True, -- Defining_Unit_Name (Node1) 11052 2 => True, -- Name (Node2) 11053 3 => False, -- unused 11054 4 => False, -- Parent_Spec (Node4-Sem) 11055 5 => False), -- unused 11056 11057 N_Generic_Procedure_Renaming_Declaration => 11058 (1 => True, -- Defining_Unit_Name (Node1) 11059 2 => True, -- Name (Node2) 11060 3 => False, -- unused 11061 4 => False, -- Parent_Spec (Node4-Sem) 11062 5 => False), -- unused 11063 11064 N_Generic_Function_Renaming_Declaration => 11065 (1 => True, -- Defining_Unit_Name (Node1) 11066 2 => True, -- Name (Node2) 11067 3 => False, -- unused 11068 4 => False, -- Parent_Spec (Node4-Sem) 11069 5 => False), -- unused 11070 11071 N_Task_Type_Declaration => 11072 (1 => True, -- Defining_Identifier (Node1) 11073 2 => True, -- Interface_List (List2) 11074 3 => True, -- Task_Definition (Node3) 11075 4 => True, -- Discriminant_Specifications (List4) 11076 5 => False), -- Corresponding_Body (Node5-Sem) 11077 11078 N_Single_Task_Declaration => 11079 (1 => True, -- Defining_Identifier (Node1) 11080 2 => True, -- Interface_List (List2) 11081 3 => True, -- Task_Definition (Node3) 11082 4 => False, -- unused 11083 5 => False), -- unused 11084 11085 N_Task_Definition => 11086 (1 => False, -- unused 11087 2 => True, -- Visible_Declarations (List2) 11088 3 => True, -- Private_Declarations (List3) 11089 4 => True, -- End_Label (Node4) 11090 5 => False), -- unused 11091 11092 N_Task_Body => 11093 (1 => True, -- Defining_Identifier (Node1) 11094 2 => True, -- Declarations (List2) 11095 3 => False, -- Activation_Chain_Entity (Node3-Sem) 11096 4 => True, -- Handled_Statement_Sequence (Node4) 11097 5 => False), -- Corresponding_Spec (Node5-Sem) 11098 11099 N_Protected_Type_Declaration => 11100 (1 => True, -- Defining_Identifier (Node1) 11101 2 => True, -- Interface_List (List2) 11102 3 => True, -- Protected_Definition (Node3) 11103 4 => True, -- Discriminant_Specifications (List4) 11104 5 => False), -- Corresponding_Body (Node5-Sem) 11105 11106 N_Single_Protected_Declaration => 11107 (1 => True, -- Defining_Identifier (Node1) 11108 2 => True, -- Interface_List (List2) 11109 3 => True, -- Protected_Definition (Node3) 11110 4 => False, -- unused 11111 5 => False), -- unused 11112 11113 N_Protected_Definition => 11114 (1 => False, -- unused 11115 2 => True, -- Visible_Declarations (List2) 11116 3 => True, -- Private_Declarations (List3) 11117 4 => True, -- End_Label (Node4) 11118 5 => False), -- unused 11119 11120 N_Protected_Body => 11121 (1 => True, -- Defining_Identifier (Node1) 11122 2 => True, -- Declarations (List2) 11123 3 => False, -- unused 11124 4 => True, -- End_Label (Node4) 11125 5 => False), -- Corresponding_Spec (Node5-Sem) 11126 11127 N_Entry_Declaration => 11128 (1 => True, -- Defining_Identifier (Node1) 11129 2 => False, -- unused 11130 3 => True, -- Parameter_Specifications (List3) 11131 4 => True, -- Discrete_Subtype_Definition (Node4) 11132 5 => False), -- Corresponding_Body (Node5-Sem) 11133 11134 N_Accept_Statement => 11135 (1 => True, -- Entry_Direct_Name (Node1) 11136 2 => True, -- Declarations (List2) 11137 3 => True, -- Parameter_Specifications (List3) 11138 4 => True, -- Handled_Statement_Sequence (Node4) 11139 5 => True), -- Entry_Index (Node5) 11140 11141 N_Entry_Body => 11142 (1 => True, -- Defining_Identifier (Node1) 11143 2 => True, -- Declarations (List2) 11144 3 => False, -- Activation_Chain_Entity (Node3-Sem) 11145 4 => True, -- Handled_Statement_Sequence (Node4) 11146 5 => True), -- Entry_Body_Formal_Part (Node5) 11147 11148 N_Entry_Body_Formal_Part => 11149 (1 => True, -- Condition (Node1) 11150 2 => False, -- unused 11151 3 => True, -- Parameter_Specifications (List3) 11152 4 => True, -- Entry_Index_Specification (Node4) 11153 5 => False), -- unused 11154 11155 N_Entry_Index_Specification => 11156 (1 => True, -- Defining_Identifier (Node1) 11157 2 => False, -- unused 11158 3 => False, -- unused 11159 4 => True, -- Discrete_Subtype_Definition (Node4) 11160 5 => False), -- unused 11161 11162 N_Entry_Call_Statement => 11163 (1 => False, -- unused 11164 2 => True, -- Name (Node2) 11165 3 => True, -- Parameter_Associations (List3) 11166 4 => False, -- First_Named_Actual (Node4-Sem) 11167 5 => False), -- unused 11168 11169 N_Requeue_Statement => 11170 (1 => False, -- unused 11171 2 => True, -- Name (Node2) 11172 3 => False, -- unused 11173 4 => False, -- unused 11174 5 => False), -- unused 11175 11176 N_Delay_Until_Statement => 11177 (1 => False, -- unused 11178 2 => False, -- unused 11179 3 => True, -- Expression (Node3) 11180 4 => False, -- unused 11181 5 => False), -- unused 11182 11183 N_Delay_Relative_Statement => 11184 (1 => False, -- unused 11185 2 => False, -- unused 11186 3 => True, -- Expression (Node3) 11187 4 => False, -- unused 11188 5 => False), -- unused 11189 11190 N_Selective_Accept => 11191 (1 => True, -- Select_Alternatives (List1) 11192 2 => False, -- unused 11193 3 => False, -- unused 11194 4 => True, -- Else_Statements (List4) 11195 5 => False), -- unused 11196 11197 N_Accept_Alternative => 11198 (1 => True, -- Condition (Node1) 11199 2 => True, -- Accept_Statement (Node2) 11200 3 => True, -- Statements (List3) 11201 4 => True, -- Pragmas_Before (List4) 11202 5 => False), -- Accept_Handler_Records (List5-Sem) 11203 11204 N_Delay_Alternative => 11205 (1 => True, -- Condition (Node1) 11206 2 => True, -- Delay_Statement (Node2) 11207 3 => True, -- Statements (List3) 11208 4 => True, -- Pragmas_Before (List4) 11209 5 => False), -- unused 11210 11211 N_Terminate_Alternative => 11212 (1 => True, -- Condition (Node1) 11213 2 => False, -- unused 11214 3 => False, -- unused 11215 4 => True, -- Pragmas_Before (List4) 11216 5 => True), -- Pragmas_After (List5) 11217 11218 N_Timed_Entry_Call => 11219 (1 => True, -- Entry_Call_Alternative (Node1) 11220 2 => False, -- unused 11221 3 => False, -- unused 11222 4 => True, -- Delay_Alternative (Node4) 11223 5 => False), -- unused 11224 11225 N_Entry_Call_Alternative => 11226 (1 => True, -- Entry_Call_Statement (Node1) 11227 2 => False, -- unused 11228 3 => True, -- Statements (List3) 11229 4 => True, -- Pragmas_Before (List4) 11230 5 => False), -- unused 11231 11232 N_Conditional_Entry_Call => 11233 (1 => True, -- Entry_Call_Alternative (Node1) 11234 2 => False, -- unused 11235 3 => False, -- unused 11236 4 => True, -- Else_Statements (List4) 11237 5 => False), -- unused 11238 11239 N_Asynchronous_Select => 11240 (1 => True, -- Triggering_Alternative (Node1) 11241 2 => True, -- Abortable_Part (Node2) 11242 3 => False, -- unused 11243 4 => False, -- unused 11244 5 => False), -- unused 11245 11246 N_Triggering_Alternative => 11247 (1 => True, -- Triggering_Statement (Node1) 11248 2 => False, -- unused 11249 3 => True, -- Statements (List3) 11250 4 => True, -- Pragmas_Before (List4) 11251 5 => False), -- unused 11252 11253 N_Abortable_Part => 11254 (1 => False, -- unused 11255 2 => False, -- unused 11256 3 => True, -- Statements (List3) 11257 4 => False, -- unused 11258 5 => False), -- unused 11259 11260 N_Abort_Statement => 11261 (1 => False, -- unused 11262 2 => True, -- Names (List2) 11263 3 => False, -- unused 11264 4 => False, -- unused 11265 5 => False), -- unused 11266 11267 N_Compilation_Unit => 11268 (1 => True, -- Context_Items (List1) 11269 2 => True, -- Unit (Node2) 11270 3 => False, -- First_Inlined_Subprogram (Node3-Sem) 11271 4 => False, -- Library_Unit (Node4-Sem) 11272 5 => True), -- Aux_Decls_Node (Node5) 11273 11274 N_Compilation_Unit_Aux => 11275 (1 => True, -- Actions (List1) 11276 2 => True, -- Declarations (List2) 11277 3 => False, -- Default_Storage_Pool (Node3) 11278 4 => True, -- Config_Pragmas (List4) 11279 5 => True), -- Pragmas_After (List5) 11280 11281 N_With_Clause => 11282 (1 => False, -- unused 11283 2 => True, -- Name (Node2) 11284 3 => False, -- unused 11285 4 => False, -- Library_Unit (Node4-Sem) 11286 5 => False), -- Corresponding_Spec (Node5-Sem) 11287 11288 N_Subprogram_Body_Stub => 11289 (1 => True, -- Specification (Node1) 11290 2 => False, -- unused 11291 3 => False, -- unused 11292 4 => False, -- Library_Unit (Node4-Sem) 11293 5 => False), -- Corresponding_Body (Node5-Sem) 11294 11295 N_Package_Body_Stub => 11296 (1 => True, -- Defining_Identifier (Node1) 11297 2 => False, -- unused 11298 3 => False, -- unused 11299 4 => False, -- Library_Unit (Node4-Sem) 11300 5 => False), -- Corresponding_Body (Node5-Sem) 11301 11302 N_Task_Body_Stub => 11303 (1 => True, -- Defining_Identifier (Node1) 11304 2 => False, -- unused 11305 3 => False, -- unused 11306 4 => False, -- Library_Unit (Node4-Sem) 11307 5 => False), -- Corresponding_Body (Node5-Sem) 11308 11309 N_Protected_Body_Stub => 11310 (1 => True, -- Defining_Identifier (Node1) 11311 2 => False, -- unused 11312 3 => False, -- unused 11313 4 => False, -- Library_Unit (Node4-Sem) 11314 5 => False), -- Corresponding_Body (Node5-Sem) 11315 11316 N_Subunit => 11317 (1 => True, -- Proper_Body (Node1) 11318 2 => True, -- Name (Node2) 11319 3 => False, -- Corresponding_Stub (Node3-Sem) 11320 4 => False, -- unused 11321 5 => False), -- unused 11322 11323 N_Exception_Declaration => 11324 (1 => True, -- Defining_Identifier (Node1) 11325 2 => False, -- unused 11326 3 => False, -- Expression (Node3-Sem) 11327 4 => False, -- unused 11328 5 => False), -- unused 11329 11330 N_Handled_Sequence_Of_Statements => 11331 (1 => True, -- At_End_Proc (Node1) 11332 2 => False, -- First_Real_Statement (Node2-Sem) 11333 3 => True, -- Statements (List3) 11334 4 => True, -- End_Label (Node4) 11335 5 => True), -- Exception_Handlers (List5) 11336 11337 N_Exception_Handler => 11338 (1 => False, -- Local_Raise_Statements (Elist1) 11339 2 => True, -- Choice_Parameter (Node2) 11340 3 => True, -- Statements (List3) 11341 4 => True, -- Exception_Choices (List4) 11342 5 => False), -- Exception_Label (Node5) 11343 11344 N_Raise_Statement => 11345 (1 => False, -- unused 11346 2 => True, -- Name (Node2) 11347 3 => True, -- Expression (Node3) 11348 4 => False, -- unused 11349 5 => False), -- unused 11350 11351 N_Generic_Subprogram_Declaration => 11352 (1 => True, -- Specification (Node1) 11353 2 => True, -- Generic_Formal_Declarations (List2) 11354 3 => False, -- unused 11355 4 => False, -- Parent_Spec (Node4-Sem) 11356 5 => False), -- Corresponding_Body (Node5-Sem) 11357 11358 N_Generic_Package_Declaration => 11359 (1 => True, -- Specification (Node1) 11360 2 => True, -- Generic_Formal_Declarations (List2) 11361 3 => False, -- Activation_Chain_Entity (Node3-Sem) 11362 4 => False, -- Parent_Spec (Node4-Sem) 11363 5 => False), -- Corresponding_Body (Node5-Sem) 11364 11365 N_Package_Instantiation => 11366 (1 => True, -- Defining_Unit_Name (Node1) 11367 2 => True, -- Name (Node2) 11368 3 => True, -- Generic_Associations (List3) 11369 4 => False, -- Parent_Spec (Node4-Sem) 11370 5 => False), -- Instance_Spec (Node5-Sem) 11371 11372 N_Procedure_Instantiation => 11373 (1 => True, -- Defining_Unit_Name (Node1) 11374 2 => True, -- Name (Node2) 11375 3 => True, -- Generic_Associations (List3) 11376 4 => False, -- Parent_Spec (Node4-Sem) 11377 5 => False), -- Instance_Spec (Node5-Sem) 11378 11379 N_Function_Instantiation => 11380 (1 => True, -- Defining_Unit_Name (Node1) 11381 2 => True, -- Name (Node2) 11382 3 => True, -- Generic_Associations (List3) 11383 4 => False, -- Parent_Spec (Node4-Sem) 11384 5 => False), -- Instance_Spec (Node5-Sem) 11385 11386 N_Generic_Association => 11387 (1 => True, -- Explicit_Generic_Actual_Parameter (Node1) 11388 2 => True, -- Selector_Name (Node2) 11389 3 => False, -- unused 11390 4 => False, -- unused 11391 5 => False), -- unused 11392 11393 N_Formal_Object_Declaration => 11394 (1 => True, -- Defining_Identifier (Node1) 11395 2 => False, -- unused 11396 3 => True, -- Access_Definition (Node3) 11397 4 => True, -- Subtype_Mark (Node4) 11398 5 => True), -- Default_Expression (Node5) 11399 11400 N_Formal_Type_Declaration => 11401 (1 => True, -- Defining_Identifier (Node1) 11402 2 => False, -- unused 11403 3 => True, -- Formal_Type_Definition (Node3) 11404 4 => True, -- Discriminant_Specifications (List4) 11405 5 => False), -- unused 11406 11407 N_Formal_Private_Type_Definition => 11408 (1 => False, -- unused 11409 2 => False, -- unused 11410 3 => False, -- unused 11411 4 => False, -- unused 11412 5 => False), -- unused 11413 11414 N_Formal_Incomplete_Type_Definition => 11415 (1 => False, -- unused 11416 2 => False, -- unused 11417 3 => False, -- unused 11418 4 => False, -- unused 11419 5 => False), -- unused 11420 11421 N_Formal_Derived_Type_Definition => 11422 (1 => False, -- unused 11423 2 => True, -- Interface_List (List2) 11424 3 => False, -- unused 11425 4 => True, -- Subtype_Mark (Node4) 11426 5 => False), -- unused 11427 11428 N_Formal_Discrete_Type_Definition => 11429 (1 => False, -- unused 11430 2 => False, -- unused 11431 3 => False, -- unused 11432 4 => False, -- unused 11433 5 => False), -- unused 11434 11435 N_Formal_Signed_Integer_Type_Definition => 11436 (1 => False, -- unused 11437 2 => False, -- unused 11438 3 => False, -- unused 11439 4 => False, -- unused 11440 5 => False), -- unused 11441 11442 N_Formal_Modular_Type_Definition => 11443 (1 => False, -- unused 11444 2 => False, -- unused 11445 3 => False, -- unused 11446 4 => False, -- unused 11447 5 => False), -- unused 11448 11449 N_Formal_Floating_Point_Definition => 11450 (1 => False, -- unused 11451 2 => False, -- unused 11452 3 => False, -- unused 11453 4 => False, -- unused 11454 5 => False), -- unused 11455 11456 N_Formal_Ordinary_Fixed_Point_Definition => 11457 (1 => False, -- unused 11458 2 => False, -- unused 11459 3 => False, -- unused 11460 4 => False, -- unused 11461 5 => False), -- unused 11462 11463 N_Formal_Decimal_Fixed_Point_Definition => 11464 (1 => False, -- unused 11465 2 => False, -- unused 11466 3 => False, -- unused 11467 4 => False, -- unused 11468 5 => False), -- unused 11469 11470 N_Formal_Concrete_Subprogram_Declaration => 11471 (1 => True, -- Specification (Node1) 11472 2 => True, -- Default_Name (Node2) 11473 3 => False, -- unused 11474 4 => False, -- unused 11475 5 => False), -- unused 11476 11477 N_Formal_Abstract_Subprogram_Declaration => 11478 (1 => True, -- Specification (Node1) 11479 2 => True, -- Default_Name (Node2) 11480 3 => False, -- unused 11481 4 => False, -- unused 11482 5 => False), -- unused 11483 11484 N_Formal_Package_Declaration => 11485 (1 => True, -- Defining_Identifier (Node1) 11486 2 => True, -- Name (Node2) 11487 3 => True, -- Generic_Associations (List3) 11488 4 => False, -- unused 11489 5 => False), -- Instance_Spec (Node5-Sem) 11490 11491 N_Attribute_Definition_Clause => 11492 (1 => True, -- Chars (Name1) 11493 2 => True, -- Name (Node2) 11494 3 => True, -- Expression (Node3) 11495 4 => False, -- unused 11496 5 => False), -- Next_Rep_Item (Node5-Sem) 11497 11498 N_Aspect_Specification => 11499 (1 => True, -- Identifier (Node1) 11500 2 => False, -- Aspect_Rep_Item (Node2-Sem) 11501 3 => True, -- Expression (Node3) 11502 4 => False, -- Entity (Node4-Sem) 11503 5 => False), -- Next_Rep_Item (Node5-Sem) 11504 11505 N_Enumeration_Representation_Clause => 11506 (1 => True, -- Identifier (Node1) 11507 2 => False, -- unused 11508 3 => True, -- Array_Aggregate (Node3) 11509 4 => False, -- unused 11510 5 => False), -- Next_Rep_Item (Node5-Sem) 11511 11512 N_Record_Representation_Clause => 11513 (1 => True, -- Identifier (Node1) 11514 2 => True, -- Mod_Clause (Node2) 11515 3 => True, -- Component_Clauses (List3) 11516 4 => False, -- unused 11517 5 => False), -- Next_Rep_Item (Node5-Sem) 11518 11519 N_Component_Clause => 11520 (1 => True, -- Component_Name (Node1) 11521 2 => True, -- Position (Node2) 11522 3 => True, -- First_Bit (Node3) 11523 4 => True, -- Last_Bit (Node4) 11524 5 => False), -- unused 11525 11526 N_Code_Statement => 11527 (1 => False, -- unused 11528 2 => False, -- unused 11529 3 => True, -- Expression (Node3) 11530 4 => False, -- unused 11531 5 => False), -- unused 11532 11533 N_Op_Rotate_Left => 11534 (1 => True, -- Chars (Name1) 11535 2 => True, -- Left_Opnd (Node2) 11536 3 => True, -- Right_Opnd (Node3) 11537 4 => False, -- Entity (Node4-Sem) 11538 5 => False), -- Etype (Node5-Sem) 11539 11540 N_Op_Rotate_Right => 11541 (1 => True, -- Chars (Name1) 11542 2 => True, -- Left_Opnd (Node2) 11543 3 => True, -- Right_Opnd (Node3) 11544 4 => False, -- Entity (Node4-Sem) 11545 5 => False), -- Etype (Node5-Sem) 11546 11547 N_Op_Shift_Left => 11548 (1 => True, -- Chars (Name1) 11549 2 => True, -- Left_Opnd (Node2) 11550 3 => True, -- Right_Opnd (Node3) 11551 4 => False, -- Entity (Node4-Sem) 11552 5 => False), -- Etype (Node5-Sem) 11553 11554 N_Op_Shift_Right_Arithmetic => 11555 (1 => True, -- Chars (Name1) 11556 2 => True, -- Left_Opnd (Node2) 11557 3 => True, -- Right_Opnd (Node3) 11558 4 => False, -- Entity (Node4-Sem) 11559 5 => False), -- Etype (Node5-Sem) 11560 11561 N_Op_Shift_Right => 11562 (1 => True, -- Chars (Name1) 11563 2 => True, -- Left_Opnd (Node2) 11564 3 => True, -- Right_Opnd (Node3) 11565 4 => False, -- Entity (Node4-Sem) 11566 5 => False), -- Etype (Node5-Sem) 11567 11568 N_Delta_Constraint => 11569 (1 => False, -- unused 11570 2 => False, -- unused 11571 3 => True, -- Delta_Expression (Node3) 11572 4 => True, -- Range_Constraint (Node4) 11573 5 => False), -- unused 11574 11575 N_At_Clause => 11576 (1 => True, -- Identifier (Node1) 11577 2 => False, -- unused 11578 3 => True, -- Expression (Node3) 11579 4 => False, -- unused 11580 5 => False), -- unused 11581 11582 N_Mod_Clause => 11583 (1 => False, -- unused 11584 2 => False, -- unused 11585 3 => True, -- Expression (Node3) 11586 4 => True, -- Pragmas_Before (List4) 11587 5 => False), -- unused 11588 11589 N_If_Expression => 11590 (1 => True, -- Expressions (List1) 11591 2 => False, -- Then_Actions (List2-Sem) 11592 3 => False, -- Else_Actions (List3-Sem) 11593 4 => False, -- unused 11594 5 => False), -- Etype (Node5-Sem) 11595 11596 N_Contract => 11597 (1 => False, -- Spec_PPC_List (Node1) 11598 2 => False, -- Spec_CTC_List (Node2) 11599 3 => False, -- unused 11600 4 => False, -- unused 11601 5 => False), -- unused 11602 11603 N_Expanded_Name => 11604 (1 => True, -- Chars (Name1) 11605 2 => True, -- Selector_Name (Node2) 11606 3 => True, -- Prefix (Node3) 11607 4 => False, -- Entity (Node4-Sem) 11608 5 => False), -- Etype (Node5-Sem) 11609 11610 N_Expression_With_Actions => 11611 (1 => True, -- Actions (List1) 11612 2 => False, -- unused 11613 3 => True, -- Expression (Node3) 11614 4 => False, -- unused 11615 5 => False), -- unused 11616 11617 N_Free_Statement => 11618 (1 => False, -- Storage_Pool (Node1-Sem) 11619 2 => False, -- Procedure_To_Call (Node2-Sem) 11620 3 => True, -- Expression (Node3) 11621 4 => False, -- Actual_Designated_Subtype (Node4-Sem) 11622 5 => False), -- unused 11623 11624 N_Freeze_Entity => 11625 (1 => True, -- Actions (List1) 11626 2 => False, -- Access_Types_To_Process (Elist2-Sem) 11627 3 => False, -- TSS_Elist (Elist3-Sem) 11628 4 => False, -- Entity (Node4-Sem) 11629 5 => False), -- First_Subtype_Link (Node5-Sem) 11630 11631 N_Implicit_Label_Declaration => 11632 (1 => True, -- Defining_Identifier (Node1) 11633 2 => False, -- Label_Construct (Node2-Sem) 11634 3 => False, -- unused 11635 4 => False, -- unused 11636 5 => False), -- unused 11637 11638 N_Itype_Reference => 11639 (1 => False, -- Itype (Node1-Sem) 11640 2 => False, -- unused 11641 3 => False, -- unused 11642 4 => False, -- unused 11643 5 => False), -- unused 11644 11645 N_Raise_Constraint_Error => 11646 (1 => True, -- Condition (Node1) 11647 2 => False, -- unused 11648 3 => True, -- Reason (Uint3) 11649 4 => False, -- unused 11650 5 => False), -- Etype (Node5-Sem) 11651 11652 N_Raise_Program_Error => 11653 (1 => True, -- Condition (Node1) 11654 2 => False, -- unused 11655 3 => True, -- Reason (Uint3) 11656 4 => False, -- unused 11657 5 => False), -- Etype (Node5-Sem) 11658 11659 N_Raise_Storage_Error => 11660 (1 => True, -- Condition (Node1) 11661 2 => False, -- unused 11662 3 => True, -- Reason (Uint3) 11663 4 => False, -- unused 11664 5 => False), -- Etype (Node5-Sem) 11665 11666 N_Push_Constraint_Error_Label => 11667 (1 => False, -- unused 11668 2 => False, -- unused 11669 3 => False, -- unused 11670 4 => False, -- unused 11671 5 => False), -- unused 11672 11673 N_Push_Program_Error_Label => 11674 (1 => False, -- Exception_Label 11675 2 => False, -- unused 11676 3 => False, -- unused 11677 4 => False, -- unused 11678 5 => False), -- Exception_Label 11679 11680 N_Push_Storage_Error_Label => 11681 (1 => False, -- Exception_Label 11682 2 => False, -- unused 11683 3 => False, -- unused 11684 4 => False, -- unused 11685 5 => False), -- Exception_Label 11686 11687 N_Pop_Constraint_Error_Label => 11688 (1 => False, -- unused 11689 2 => False, -- unused 11690 3 => False, -- unused 11691 4 => False, -- unused 11692 5 => False), -- unused 11693 11694 N_Pop_Program_Error_Label => 11695 (1 => False, -- unused 11696 2 => False, -- unused 11697 3 => False, -- unused 11698 4 => False, -- unused 11699 5 => False), -- unused 11700 11701 N_Pop_Storage_Error_Label => 11702 (1 => False, -- unused 11703 2 => False, -- unused 11704 3 => False, -- unused 11705 4 => False, -- unused 11706 5 => False), -- unused 11707 11708 N_Reference => 11709 (1 => False, -- unused 11710 2 => False, -- unused 11711 3 => True, -- Prefix (Node3) 11712 4 => False, -- unused 11713 5 => False), -- Etype (Node5-Sem) 11714 11715 N_Subprogram_Info => 11716 (1 => True, -- Identifier (Node1) 11717 2 => False, -- unused 11718 3 => False, -- unused 11719 4 => False, -- unused 11720 5 => False), -- Etype (Node5-Sem) 11721 11722 N_Unchecked_Expression => 11723 (1 => False, -- unused 11724 2 => False, -- unused 11725 3 => True, -- Expression (Node3) 11726 4 => False, -- unused 11727 5 => False), -- Etype (Node5-Sem) 11728 11729 N_Unchecked_Type_Conversion => 11730 (1 => False, -- unused 11731 2 => False, -- unused 11732 3 => True, -- Expression (Node3) 11733 4 => True, -- Subtype_Mark (Node4) 11734 5 => False), -- Etype (Node5-Sem) 11735 11736 N_Validate_Unchecked_Conversion => 11737 (1 => False, -- Source_Type (Node1-Sem) 11738 2 => False, -- Target_Type (Node2-Sem) 11739 3 => False, -- unused 11740 4 => False, -- unused 11741 5 => False), -- unused 11742 11743 -- Entries for SCIL nodes 11744 11745 N_SCIL_Dispatch_Table_Tag_Init => 11746 (1 => False, -- unused 11747 2 => False, -- unused 11748 3 => False, -- unused 11749 4 => False, -- SCIL_Entity (Node4-Sem) 11750 5 => False), -- unused 11751 11752 N_SCIL_Dispatching_Call => 11753 (1 => False, -- unused 11754 2 => False, -- SCIL_Target_Prim (Node2-Sem) 11755 3 => False, -- unused 11756 4 => False, -- SCIL_Entity (Node4-Sem) 11757 5 => False), -- SCIL_Controlling_Tag (Node5-Sem) 11758 11759 N_SCIL_Membership_Test => 11760 (1 => False, -- unused 11761 2 => False, -- unused 11762 3 => False, -- unused 11763 4 => False, -- SCIL_Entity (Node4-Sem) 11764 5 => False), -- SCIL_Tag_Value (Node5-Sem) 11765 11766 -- Entries for Empty, Error and Unused. Even thought these have a Chars 11767 -- field for debugging purposes, they are not really syntactic fields, so 11768 -- we mark all fields as unused. 11769 11770 N_Empty => 11771 (1 => False, -- unused 11772 2 => False, -- unused 11773 3 => False, -- unused 11774 4 => False, -- unused 11775 5 => False), -- unused 11776 11777 N_Error => 11778 (1 => False, -- unused 11779 2 => False, -- unused 11780 3 => False, -- unused 11781 4 => False, -- unused 11782 5 => False), -- unused 11783 11784 N_Unused_At_Start => 11785 (1 => False, -- unused 11786 2 => False, -- unused 11787 3 => False, -- unused 11788 4 => False, -- unused 11789 5 => False), -- unused 11790 11791 N_Unused_At_End => 11792 (1 => False, -- unused 11793 2 => False, -- unused 11794 3 => False, -- unused 11795 4 => False, -- unused 11796 5 => False)); -- unused 11797 11798 -------------------- 11799 -- Inline Pragmas -- 11800 -------------------- 11801 11802 pragma Inline (ABE_Is_Certain); 11803 pragma Inline (Abort_Present); 11804 pragma Inline (Abortable_Part); 11805 pragma Inline (Abstract_Present); 11806 pragma Inline (Accept_Handler_Records); 11807 pragma Inline (Accept_Statement); 11808 pragma Inline (Access_Definition); 11809 pragma Inline (Access_To_Subprogram_Definition); 11810 pragma Inline (Access_Types_To_Process); 11811 pragma Inline (Actions); 11812 pragma Inline (Activation_Chain_Entity); 11813 pragma Inline (Acts_As_Spec); 11814 pragma Inline (Actual_Designated_Subtype); 11815 pragma Inline (Address_Warning_Posted); 11816 pragma Inline (Aggregate_Bounds); 11817 pragma Inline (Aliased_Present); 11818 pragma Inline (All_Others); 11819 pragma Inline (All_Present); 11820 pragma Inline (Alternatives); 11821 pragma Inline (Ancestor_Part); 11822 pragma Inline (Atomic_Sync_Required); 11823 pragma Inline (Array_Aggregate); 11824 pragma Inline (Aspect_Rep_Item); 11825 pragma Inline (Assignment_OK); 11826 pragma Inline (Associated_Node); 11827 pragma Inline (At_End_Proc); 11828 pragma Inline (Attribute_Name); 11829 pragma Inline (Aux_Decls_Node); 11830 pragma Inline (Backwards_OK); 11831 pragma Inline (Bad_Is_Detected); 11832 pragma Inline (Body_To_Inline); 11833 pragma Inline (Body_Required); 11834 pragma Inline (By_Ref); 11835 pragma Inline (Box_Present); 11836 pragma Inline (Char_Literal_Value); 11837 pragma Inline (Chars); 11838 pragma Inline (Check_Address_Alignment); 11839 pragma Inline (Choice_Parameter); 11840 pragma Inline (Choices); 11841 pragma Inline (Class_Present); 11842 pragma Inline (Comes_From_Extended_Return_Statement); 11843 pragma Inline (Compile_Time_Known_Aggregate); 11844 pragma Inline (Component_Associations); 11845 pragma Inline (Component_Clauses); 11846 pragma Inline (Component_Definition); 11847 pragma Inline (Component_Items); 11848 pragma Inline (Component_List); 11849 pragma Inline (Component_Name); 11850 pragma Inline (Componentwise_Assignment); 11851 pragma Inline (Condition); 11852 pragma Inline (Condition_Actions); 11853 pragma Inline (Config_Pragmas); 11854 pragma Inline (Constant_Present); 11855 pragma Inline (Constraint); 11856 pragma Inline (Constraints); 11857 pragma Inline (Context_Installed); 11858 pragma Inline (Context_Items); 11859 pragma Inline (Context_Pending); 11860 pragma Inline (Controlling_Argument); 11861 pragma Inline (Conversion_OK); 11862 pragma Inline (Corresponding_Aspect); 11863 pragma Inline (Corresponding_Body); 11864 pragma Inline (Corresponding_Formal_Spec); 11865 pragma Inline (Corresponding_Generic_Association); 11866 pragma Inline (Corresponding_Integer_Value); 11867 pragma Inline (Corresponding_Spec); 11868 pragma Inline (Corresponding_Stub); 11869 pragma Inline (Dcheck_Function); 11870 pragma Inline (Declarations); 11871 pragma Inline (Default_Expression); 11872 pragma Inline (Default_Storage_Pool); 11873 pragma Inline (Default_Name); 11874 pragma Inline (Defining_Identifier); 11875 pragma Inline (Defining_Unit_Name); 11876 pragma Inline (Delay_Alternative); 11877 pragma Inline (Delay_Statement); 11878 pragma Inline (Delta_Expression); 11879 pragma Inline (Digits_Expression); 11880 pragma Inline (Discr_Check_Funcs_Built); 11881 pragma Inline (Discrete_Choices); 11882 pragma Inline (Discrete_Range); 11883 pragma Inline (Discrete_Subtype_Definition); 11884 pragma Inline (Discrete_Subtype_Definitions); 11885 pragma Inline (Discriminant_Specifications); 11886 pragma Inline (Discriminant_Type); 11887 pragma Inline (Do_Accessibility_Check); 11888 pragma Inline (Do_Discriminant_Check); 11889 pragma Inline (Do_Length_Check); 11890 pragma Inline (Do_Division_Check); 11891 pragma Inline (Do_Overflow_Check); 11892 pragma Inline (Do_Range_Check); 11893 pragma Inline (Do_Storage_Check); 11894 pragma Inline (Do_Tag_Check); 11895 pragma Inline (Elaborate_Present); 11896 pragma Inline (Elaborate_All_Desirable); 11897 pragma Inline (Elaborate_All_Present); 11898 pragma Inline (Elaborate_Desirable); 11899 pragma Inline (Elaboration_Boolean); 11900 pragma Inline (Else_Actions); 11901 pragma Inline (Else_Statements); 11902 pragma Inline (Elsif_Parts); 11903 pragma Inline (Enclosing_Variant); 11904 pragma Inline (End_Label); 11905 pragma Inline (End_Span); 11906 pragma Inline (Entity); 11907 pragma Inline (Entity_Or_Associated_Node); 11908 pragma Inline (Entry_Body_Formal_Part); 11909 pragma Inline (Entry_Call_Alternative); 11910 pragma Inline (Entry_Call_Statement); 11911 pragma Inline (Entry_Direct_Name); 11912 pragma Inline (Entry_Index); 11913 pragma Inline (Entry_Index_Specification); 11914 pragma Inline (Etype); 11915 pragma Inline (Exception_Choices); 11916 pragma Inline (Exception_Handlers); 11917 pragma Inline (Exception_Junk); 11918 pragma Inline (Exception_Label); 11919 pragma Inline (Expansion_Delayed); 11920 pragma Inline (Explicit_Actual_Parameter); 11921 pragma Inline (Explicit_Generic_Actual_Parameter); 11922 pragma Inline (Expression); 11923 pragma Inline (Expressions); 11924 pragma Inline (First_Bit); 11925 pragma Inline (First_Inlined_Subprogram); 11926 pragma Inline (First_Name); 11927 pragma Inline (First_Named_Actual); 11928 pragma Inline (First_Real_Statement); 11929 pragma Inline (First_Subtype_Link); 11930 pragma Inline (Float_Truncate); 11931 pragma Inline (Formal_Type_Definition); 11932 pragma Inline (Forwards_OK); 11933 pragma Inline (From_Aspect_Specification); 11934 pragma Inline (From_At_End); 11935 pragma Inline (From_At_Mod); 11936 pragma Inline (From_Default); 11937 pragma Inline (Generic_Associations); 11938 pragma Inline (Generic_Formal_Declarations); 11939 pragma Inline (Generic_Parent); 11940 pragma Inline (Generic_Parent_Type); 11941 pragma Inline (Handled_Statement_Sequence); 11942 pragma Inline (Handler_List_Entry); 11943 pragma Inline (Has_Created_Identifier); 11944 pragma Inline (Has_Dereference_Action); 11945 pragma Inline (Has_Dynamic_Length_Check); 11946 pragma Inline (Has_Dynamic_Range_Check); 11947 pragma Inline (Has_Init_Expression); 11948 pragma Inline (Has_Local_Raise); 11949 pragma Inline (Has_Self_Reference); 11950 pragma Inline (Has_No_Elaboration_Code); 11951 pragma Inline (Has_Pragma_Suppress_All); 11952 pragma Inline (Has_Private_View); 11953 pragma Inline (Has_Relative_Deadline_Pragma); 11954 pragma Inline (Has_Storage_Size_Pragma); 11955 pragma Inline (Has_Wide_Character); 11956 pragma Inline (Has_Wide_Wide_Character); 11957 pragma Inline (Header_Size_Added); 11958 pragma Inline (Hidden_By_Use_Clause); 11959 pragma Inline (High_Bound); 11960 pragma Inline (Identifier); 11961 pragma Inline (Implicit_With); 11962 pragma Inline (Implicit_With_From_Instantiation); 11963 pragma Inline (Interface_List); 11964 pragma Inline (Interface_Present); 11965 pragma Inline (Includes_Infinities); 11966 pragma Inline (Import_Interface_Present); 11967 pragma Inline (In_Assertion); 11968 pragma Inline (In_Present); 11969 pragma Inline (Inherited_Discriminant); 11970 pragma Inline (Instance_Spec); 11971 pragma Inline (Intval); 11972 pragma Inline (Iterator_Specification); 11973 pragma Inline (Is_Accessibility_Actual); 11974 pragma Inline (Is_Asynchronous_Call_Block); 11975 pragma Inline (Is_Boolean_Aspect); 11976 pragma Inline (Is_Component_Left_Opnd); 11977 pragma Inline (Is_Component_Right_Opnd); 11978 pragma Inline (Is_Controlling_Actual); 11979 pragma Inline (Is_Delayed_Aspect); 11980 pragma Inline (Is_Dynamic_Coextension); 11981 pragma Inline (Is_Elsif); 11982 pragma Inline (Is_Entry_Barrier_Function); 11983 pragma Inline (Is_Expanded_Build_In_Place_Call); 11984 pragma Inline (Is_Finalization_Wrapper); 11985 pragma Inline (Is_Folded_In_Parser); 11986 pragma Inline (Is_In_Discriminant_Check); 11987 pragma Inline (Is_Machine_Number); 11988 pragma Inline (Is_Null_Loop); 11989 pragma Inline (Is_Overloaded); 11990 pragma Inline (Is_Power_Of_2_For_Shift); 11991 pragma Inline (Is_Prefixed_Call); 11992 pragma Inline (Is_Protected_Subprogram_Body); 11993 pragma Inline (Is_Static_Coextension); 11994 pragma Inline (Is_Static_Expression); 11995 pragma Inline (Is_Subprogram_Descriptor); 11996 pragma Inline (Is_Task_Allocation_Block); 11997 pragma Inline (Is_Task_Master); 11998 pragma Inline (Iteration_Scheme); 11999 pragma Inline (Itype); 12000 pragma Inline (Kill_Range_Check); 12001 pragma Inline (Last_Bit); 12002 pragma Inline (Last_Name); 12003 pragma Inline (Library_Unit); 12004 pragma Inline (Label_Construct); 12005 pragma Inline (Left_Opnd); 12006 pragma Inline (Limited_View_Installed); 12007 pragma Inline (Limited_Present); 12008 pragma Inline (Literals); 12009 pragma Inline (Local_Raise_Not_OK); 12010 pragma Inline (Local_Raise_Statements); 12011 pragma Inline (Loop_Actions); 12012 pragma Inline (Loop_Parameter_Specification); 12013 pragma Inline (Low_Bound); 12014 pragma Inline (Mod_Clause); 12015 pragma Inline (More_Ids); 12016 pragma Inline (Must_Be_Byte_Aligned); 12017 pragma Inline (Must_Not_Freeze); 12018 pragma Inline (Must_Not_Override); 12019 pragma Inline (Must_Override); 12020 pragma Inline (Name); 12021 pragma Inline (Names); 12022 pragma Inline (Next_Entity); 12023 pragma Inline (Next_Exit_Statement); 12024 pragma Inline (Next_Implicit_With); 12025 pragma Inline (Next_Named_Actual); 12026 pragma Inline (Next_Pragma); 12027 pragma Inline (Next_Rep_Item); 12028 pragma Inline (Next_Use_Clause); 12029 pragma Inline (No_Ctrl_Actions); 12030 pragma Inline (No_Elaboration_Check); 12031 pragma Inline (No_Entities_Ref_In_Spec); 12032 pragma Inline (No_Initialization); 12033 pragma Inline (No_Minimize_Eliminate); 12034 pragma Inline (No_Truncation); 12035 pragma Inline (Null_Present); 12036 pragma Inline (Null_Exclusion_Present); 12037 pragma Inline (Null_Exclusion_In_Return_Present); 12038 pragma Inline (Null_Record_Present); 12039 pragma Inline (Object_Definition); 12040 pragma Inline (Of_Present); 12041 pragma Inline (Original_Discriminant); 12042 pragma Inline (Original_Entity); 12043 pragma Inline (Others_Discrete_Choices); 12044 pragma Inline (Out_Present); 12045 pragma Inline (Parameter_Associations); 12046 pragma Inline (Parameter_Specifications); 12047 pragma Inline (Parameter_List_Truncated); 12048 pragma Inline (Parameter_Type); 12049 pragma Inline (Parent_Spec); 12050 pragma Inline (Position); 12051 pragma Inline (Pragma_Argument_Associations); 12052 pragma Inline (Pragma_Identifier); 12053 pragma Inline (Pragmas_After); 12054 pragma Inline (Pragmas_Before); 12055 pragma Inline (Prefix); 12056 pragma Inline (Premature_Use); 12057 pragma Inline (Present_Expr); 12058 pragma Inline (Prev_Ids); 12059 pragma Inline (Print_In_Hex); 12060 pragma Inline (Private_Declarations); 12061 pragma Inline (Private_Present); 12062 pragma Inline (Procedure_To_Call); 12063 pragma Inline (Proper_Body); 12064 pragma Inline (Protected_Definition); 12065 pragma Inline (Protected_Present); 12066 pragma Inline (Raises_Constraint_Error); 12067 pragma Inline (Range_Constraint); 12068 pragma Inline (Range_Expression); 12069 pragma Inline (Real_Range_Specification); 12070 pragma Inline (Realval); 12071 pragma Inline (Reason); 12072 pragma Inline (Record_Extension_Part); 12073 pragma Inline (Redundant_Use); 12074 pragma Inline (Renaming_Exception); 12075 pragma Inline (Result_Definition); 12076 pragma Inline (Return_Object_Declarations); 12077 pragma Inline (Return_Statement_Entity); 12078 pragma Inline (Reverse_Present); 12079 pragma Inline (Right_Opnd); 12080 pragma Inline (Rounded_Result); 12081 pragma Inline (SCIL_Controlling_Tag); 12082 pragma Inline (SCIL_Entity); 12083 pragma Inline (SCIL_Tag_Value); 12084 pragma Inline (SCIL_Target_Prim); 12085 pragma Inline (Scope); 12086 pragma Inline (Select_Alternatives); 12087 pragma Inline (Selector_Name); 12088 pragma Inline (Selector_Names); 12089 pragma Inline (Shift_Count_OK); 12090 pragma Inline (Source_Type); 12091 pragma Inline (Spec_PPC_List); 12092 pragma Inline (Spec_CTC_List); 12093 pragma Inline (Specification); 12094 pragma Inline (Split_PPC); 12095 pragma Inline (Statements); 12096 pragma Inline (Storage_Pool); 12097 pragma Inline (Subpool_Handle_Name); 12098 pragma Inline (Strval); 12099 pragma Inline (Subtype_Indication); 12100 pragma Inline (Subtype_Mark); 12101 pragma Inline (Subtype_Marks); 12102 pragma Inline (Suppress_Assignment_Checks); 12103 pragma Inline (Suppress_Loop_Warnings); 12104 pragma Inline (Synchronized_Present); 12105 pragma Inline (Tagged_Present); 12106 pragma Inline (Target_Type); 12107 pragma Inline (Task_Definition); 12108 pragma Inline (Task_Present); 12109 pragma Inline (Then_Actions); 12110 pragma Inline (Then_Statements); 12111 pragma Inline (Triggering_Alternative); 12112 pragma Inline (Triggering_Statement); 12113 pragma Inline (Treat_Fixed_As_Integer); 12114 pragma Inline (TSS_Elist); 12115 pragma Inline (Type_Definition); 12116 pragma Inline (Unit); 12117 pragma Inline (Unknown_Discriminants_Present); 12118 pragma Inline (Unreferenced_In_Spec); 12119 pragma Inline (Variant_Part); 12120 pragma Inline (Variants); 12121 pragma Inline (Visible_Declarations); 12122 pragma Inline (Used_Operations); 12123 pragma Inline (Was_Originally_Stub); 12124 pragma Inline (Withed_Body); 12125 12126 pragma Inline (Set_ABE_Is_Certain); 12127 pragma Inline (Set_Abort_Present); 12128 pragma Inline (Set_Abortable_Part); 12129 pragma Inline (Set_Abstract_Present); 12130 pragma Inline (Set_Accept_Handler_Records); 12131 pragma Inline (Set_Accept_Statement); 12132 pragma Inline (Set_Access_Definition); 12133 pragma Inline (Set_Access_To_Subprogram_Definition); 12134 pragma Inline (Set_Access_Types_To_Process); 12135 pragma Inline (Set_Actions); 12136 pragma Inline (Set_Activation_Chain_Entity); 12137 pragma Inline (Set_Acts_As_Spec); 12138 pragma Inline (Set_Actual_Designated_Subtype); 12139 pragma Inline (Set_Address_Warning_Posted); 12140 pragma Inline (Set_Aggregate_Bounds); 12141 pragma Inline (Set_Aliased_Present); 12142 pragma Inline (Set_All_Others); 12143 pragma Inline (Set_All_Present); 12144 pragma Inline (Set_Alternatives); 12145 pragma Inline (Set_Ancestor_Part); 12146 pragma Inline (Set_Atomic_Sync_Required); 12147 pragma Inline (Set_Array_Aggregate); 12148 pragma Inline (Set_Aspect_Rep_Item); 12149 pragma Inline (Set_Assignment_OK); 12150 pragma Inline (Set_Associated_Node); 12151 pragma Inline (Set_At_End_Proc); 12152 pragma Inline (Set_Attribute_Name); 12153 pragma Inline (Set_Aux_Decls_Node); 12154 pragma Inline (Set_Backwards_OK); 12155 pragma Inline (Set_Bad_Is_Detected); 12156 pragma Inline (Set_Body_To_Inline); 12157 pragma Inline (Set_Body_Required); 12158 pragma Inline (Set_By_Ref); 12159 pragma Inline (Set_Box_Present); 12160 pragma Inline (Set_Char_Literal_Value); 12161 pragma Inline (Set_Chars); 12162 pragma Inline (Set_Check_Address_Alignment); 12163 pragma Inline (Set_Choice_Parameter); 12164 pragma Inline (Set_Choices); 12165 pragma Inline (Set_Class_Present); 12166 pragma Inline (Set_Comes_From_Extended_Return_Statement); 12167 pragma Inline (Set_Compile_Time_Known_Aggregate); 12168 pragma Inline (Set_Component_Associations); 12169 pragma Inline (Set_Component_Clauses); 12170 pragma Inline (Set_Component_Definition); 12171 pragma Inline (Set_Component_Items); 12172 pragma Inline (Set_Component_List); 12173 pragma Inline (Set_Component_Name); 12174 pragma Inline (Set_Componentwise_Assignment); 12175 pragma Inline (Set_Condition); 12176 pragma Inline (Set_Condition_Actions); 12177 pragma Inline (Set_Config_Pragmas); 12178 pragma Inline (Set_Constant_Present); 12179 pragma Inline (Set_Constraint); 12180 pragma Inline (Set_Constraints); 12181 pragma Inline (Set_Context_Installed); 12182 pragma Inline (Set_Context_Items); 12183 pragma Inline (Set_Context_Pending); 12184 pragma Inline (Set_Controlling_Argument); 12185 pragma Inline (Set_Conversion_OK); 12186 pragma Inline (Set_Corresponding_Aspect); 12187 pragma Inline (Set_Corresponding_Body); 12188 pragma Inline (Set_Corresponding_Formal_Spec); 12189 pragma Inline (Set_Corresponding_Generic_Association); 12190 pragma Inline (Set_Corresponding_Integer_Value); 12191 pragma Inline (Set_Corresponding_Spec); 12192 pragma Inline (Set_Corresponding_Stub); 12193 pragma Inline (Set_Dcheck_Function); 12194 pragma Inline (Set_Declarations); 12195 pragma Inline (Set_Default_Expression); 12196 pragma Inline (Set_Default_Storage_Pool); 12197 pragma Inline (Set_Default_Name); 12198 pragma Inline (Set_Defining_Identifier); 12199 pragma Inline (Set_Defining_Unit_Name); 12200 pragma Inline (Set_Delay_Alternative); 12201 pragma Inline (Set_Delay_Statement); 12202 pragma Inline (Set_Delta_Expression); 12203 pragma Inline (Set_Digits_Expression); 12204 pragma Inline (Set_Discr_Check_Funcs_Built); 12205 pragma Inline (Set_Discrete_Choices); 12206 pragma Inline (Set_Discrete_Range); 12207 pragma Inline (Set_Discrete_Subtype_Definition); 12208 pragma Inline (Set_Discrete_Subtype_Definitions); 12209 pragma Inline (Set_Discriminant_Specifications); 12210 pragma Inline (Set_Discriminant_Type); 12211 pragma Inline (Set_Do_Accessibility_Check); 12212 pragma Inline (Set_Do_Discriminant_Check); 12213 pragma Inline (Set_Do_Length_Check); 12214 pragma Inline (Set_Do_Division_Check); 12215 pragma Inline (Set_Do_Overflow_Check); 12216 pragma Inline (Set_Do_Range_Check); 12217 pragma Inline (Set_Do_Storage_Check); 12218 pragma Inline (Set_Do_Tag_Check); 12219 pragma Inline (Set_Elaborate_Present); 12220 pragma Inline (Set_Elaborate_All_Desirable); 12221 pragma Inline (Set_Elaborate_All_Present); 12222 pragma Inline (Set_Elaborate_Desirable); 12223 pragma Inline (Set_Elaboration_Boolean); 12224 pragma Inline (Set_Else_Actions); 12225 pragma Inline (Set_Else_Statements); 12226 pragma Inline (Set_Elsif_Parts); 12227 pragma Inline (Set_Enclosing_Variant); 12228 pragma Inline (Set_End_Label); 12229 pragma Inline (Set_End_Span); 12230 pragma Inline (Set_Entity); 12231 pragma Inline (Set_Entry_Body_Formal_Part); 12232 pragma Inline (Set_Entry_Call_Alternative); 12233 pragma Inline (Set_Entry_Call_Statement); 12234 pragma Inline (Set_Entry_Direct_Name); 12235 pragma Inline (Set_Entry_Index); 12236 pragma Inline (Set_Entry_Index_Specification); 12237 pragma Inline (Set_Etype); 12238 pragma Inline (Set_Exception_Choices); 12239 pragma Inline (Set_Exception_Handlers); 12240 pragma Inline (Set_Exception_Junk); 12241 pragma Inline (Set_Exception_Label); 12242 pragma Inline (Set_Expansion_Delayed); 12243 pragma Inline (Set_Explicit_Actual_Parameter); 12244 pragma Inline (Set_Explicit_Generic_Actual_Parameter); 12245 pragma Inline (Set_Expression); 12246 pragma Inline (Set_Expressions); 12247 pragma Inline (Set_First_Bit); 12248 pragma Inline (Set_First_Inlined_Subprogram); 12249 pragma Inline (Set_First_Name); 12250 pragma Inline (Set_First_Named_Actual); 12251 pragma Inline (Set_First_Real_Statement); 12252 pragma Inline (Set_First_Subtype_Link); 12253 pragma Inline (Set_Float_Truncate); 12254 pragma Inline (Set_Formal_Type_Definition); 12255 pragma Inline (Set_Forwards_OK); 12256 pragma Inline (Set_From_Aspect_Specification); 12257 pragma Inline (Set_From_At_End); 12258 pragma Inline (Set_From_At_Mod); 12259 pragma Inline (Set_From_Default); 12260 pragma Inline (Set_Generic_Associations); 12261 pragma Inline (Set_Generic_Formal_Declarations); 12262 pragma Inline (Set_Generic_Parent); 12263 pragma Inline (Set_Generic_Parent_Type); 12264 pragma Inline (Set_Handled_Statement_Sequence); 12265 pragma Inline (Set_Handler_List_Entry); 12266 pragma Inline (Set_Has_Created_Identifier); 12267 pragma Inline (Set_Has_Dereference_Action); 12268 pragma Inline (Set_Has_Dynamic_Length_Check); 12269 pragma Inline (Set_Has_Init_Expression); 12270 pragma Inline (Set_Has_Local_Raise); 12271 pragma Inline (Set_Has_Dynamic_Range_Check); 12272 pragma Inline (Set_Has_No_Elaboration_Code); 12273 pragma Inline (Set_Has_Pragma_Suppress_All); 12274 pragma Inline (Set_Has_Private_View); 12275 pragma Inline (Set_Has_Relative_Deadline_Pragma); 12276 pragma Inline (Set_Has_Storage_Size_Pragma); 12277 pragma Inline (Set_Has_Wide_Character); 12278 pragma Inline (Set_Has_Wide_Wide_Character); 12279 pragma Inline (Set_Header_Size_Added); 12280 pragma Inline (Set_Hidden_By_Use_Clause); 12281 pragma Inline (Set_High_Bound); 12282 pragma Inline (Set_Identifier); 12283 pragma Inline (Set_Implicit_With); 12284 pragma Inline (Set_Includes_Infinities); 12285 pragma Inline (Set_Interface_List); 12286 pragma Inline (Set_Interface_Present); 12287 pragma Inline (Set_Import_Interface_Present); 12288 pragma Inline (Set_In_Assertion); 12289 pragma Inline (Set_In_Present); 12290 pragma Inline (Set_Inherited_Discriminant); 12291 pragma Inline (Set_Instance_Spec); 12292 pragma Inline (Set_Intval); 12293 pragma Inline (Set_Iterator_Specification); 12294 pragma Inline (Set_Is_Accessibility_Actual); 12295 pragma Inline (Set_Is_Asynchronous_Call_Block); 12296 pragma Inline (Set_Is_Boolean_Aspect); 12297 pragma Inline (Set_Is_Component_Left_Opnd); 12298 pragma Inline (Set_Is_Component_Right_Opnd); 12299 pragma Inline (Set_Is_Controlling_Actual); 12300 pragma Inline (Set_Is_Delayed_Aspect); 12301 pragma Inline (Set_Is_Dynamic_Coextension); 12302 pragma Inline (Set_Is_Elsif); 12303 pragma Inline (Set_Is_Entry_Barrier_Function); 12304 pragma Inline (Set_Is_Expanded_Build_In_Place_Call); 12305 pragma Inline (Set_Is_Finalization_Wrapper); 12306 pragma Inline (Set_Is_Folded_In_Parser); 12307 pragma Inline (Set_Is_In_Discriminant_Check); 12308 pragma Inline (Set_Is_Machine_Number); 12309 pragma Inline (Set_Is_Null_Loop); 12310 pragma Inline (Set_Is_Overloaded); 12311 pragma Inline (Set_Is_Power_Of_2_For_Shift); 12312 pragma Inline (Set_Is_Prefixed_Call); 12313 pragma Inline (Set_Is_Protected_Subprogram_Body); 12314 pragma Inline (Set_Has_Self_Reference); 12315 pragma Inline (Set_Is_Static_Coextension); 12316 pragma Inline (Set_Is_Static_Expression); 12317 pragma Inline (Set_Is_Subprogram_Descriptor); 12318 pragma Inline (Set_Is_Task_Allocation_Block); 12319 pragma Inline (Set_Is_Task_Master); 12320 pragma Inline (Set_Iteration_Scheme); 12321 pragma Inline (Set_Itype); 12322 pragma Inline (Set_Kill_Range_Check); 12323 pragma Inline (Set_Last_Bit); 12324 pragma Inline (Set_Last_Name); 12325 pragma Inline (Set_Library_Unit); 12326 pragma Inline (Set_Label_Construct); 12327 pragma Inline (Set_Left_Opnd); 12328 pragma Inline (Set_Limited_View_Installed); 12329 pragma Inline (Set_Limited_Present); 12330 pragma Inline (Set_Literals); 12331 pragma Inline (Set_Local_Raise_Not_OK); 12332 pragma Inline (Set_Local_Raise_Statements); 12333 pragma Inline (Set_Loop_Actions); 12334 pragma Inline (Set_Loop_Parameter_Specification); 12335 pragma Inline (Set_Low_Bound); 12336 pragma Inline (Set_Mod_Clause); 12337 pragma Inline (Set_More_Ids); 12338 pragma Inline (Set_Must_Be_Byte_Aligned); 12339 pragma Inline (Set_Must_Not_Freeze); 12340 pragma Inline (Set_Must_Not_Override); 12341 pragma Inline (Set_Must_Override); 12342 pragma Inline (Set_Name); 12343 pragma Inline (Set_Names); 12344 pragma Inline (Set_Next_Entity); 12345 pragma Inline (Set_Next_Exit_Statement); 12346 pragma Inline (Set_Next_Implicit_With); 12347 pragma Inline (Set_Next_Named_Actual); 12348 pragma Inline (Set_Next_Pragma); 12349 pragma Inline (Set_Next_Rep_Item); 12350 pragma Inline (Set_Next_Use_Clause); 12351 pragma Inline (Set_No_Ctrl_Actions); 12352 pragma Inline (Set_No_Elaboration_Check); 12353 pragma Inline (Set_No_Entities_Ref_In_Spec); 12354 pragma Inline (Set_No_Initialization); 12355 pragma Inline (Set_No_Minimize_Eliminate); 12356 pragma Inline (Set_No_Truncation); 12357 pragma Inline (Set_Null_Present); 12358 pragma Inline (Set_Null_Exclusion_Present); 12359 pragma Inline (Set_Null_Exclusion_In_Return_Present); 12360 pragma Inline (Set_Null_Record_Present); 12361 pragma Inline (Set_Object_Definition); 12362 pragma Inline (Set_Of_Present); 12363 pragma Inline (Set_Original_Discriminant); 12364 pragma Inline (Set_Original_Entity); 12365 pragma Inline (Set_Others_Discrete_Choices); 12366 pragma Inline (Set_Out_Present); 12367 pragma Inline (Set_Parameter_Associations); 12368 pragma Inline (Set_Parameter_Specifications); 12369 pragma Inline (Set_Parameter_List_Truncated); 12370 pragma Inline (Set_Parameter_Type); 12371 pragma Inline (Set_Parent_Spec); 12372 pragma Inline (Set_Position); 12373 pragma Inline (Set_Pragma_Argument_Associations); 12374 pragma Inline (Set_Pragma_Identifier); 12375 pragma Inline (Set_Pragmas_After); 12376 pragma Inline (Set_Pragmas_Before); 12377 pragma Inline (Set_Prefix); 12378 pragma Inline (Set_Premature_Use); 12379 pragma Inline (Set_Present_Expr); 12380 pragma Inline (Set_Prev_Ids); 12381 pragma Inline (Set_Print_In_Hex); 12382 pragma Inline (Set_Private_Declarations); 12383 pragma Inline (Set_Private_Present); 12384 pragma Inline (Set_Procedure_To_Call); 12385 pragma Inline (Set_Proper_Body); 12386 pragma Inline (Set_Protected_Definition); 12387 pragma Inline (Set_Protected_Present); 12388 pragma Inline (Set_Raises_Constraint_Error); 12389 pragma Inline (Set_Range_Constraint); 12390 pragma Inline (Set_Range_Expression); 12391 pragma Inline (Set_Real_Range_Specification); 12392 pragma Inline (Set_Realval); 12393 pragma Inline (Set_Reason); 12394 pragma Inline (Set_Record_Extension_Part); 12395 pragma Inline (Set_Redundant_Use); 12396 pragma Inline (Set_Renaming_Exception); 12397 pragma Inline (Set_Result_Definition); 12398 pragma Inline (Set_Return_Object_Declarations); 12399 pragma Inline (Set_Reverse_Present); 12400 pragma Inline (Set_Right_Opnd); 12401 pragma Inline (Set_Rounded_Result); 12402 pragma Inline (Set_SCIL_Controlling_Tag); 12403 pragma Inline (Set_SCIL_Entity); 12404 pragma Inline (Set_SCIL_Tag_Value); 12405 pragma Inline (Set_SCIL_Target_Prim); 12406 pragma Inline (Set_Scope); 12407 pragma Inline (Set_Select_Alternatives); 12408 pragma Inline (Set_Selector_Name); 12409 pragma Inline (Set_Selector_Names); 12410 pragma Inline (Set_Shift_Count_OK); 12411 pragma Inline (Set_Source_Type); 12412 pragma Inline (Set_Spec_PPC_List); 12413 pragma Inline (Set_Spec_CTC_List); 12414 pragma Inline (Set_Specification); 12415 pragma Inline (Set_Split_PPC); 12416 pragma Inline (Set_Statements); 12417 pragma Inline (Set_Storage_Pool); 12418 pragma Inline (Set_Subpool_Handle_Name); 12419 pragma Inline (Set_Strval); 12420 pragma Inline (Set_Subtype_Indication); 12421 pragma Inline (Set_Subtype_Mark); 12422 pragma Inline (Set_Subtype_Marks); 12423 pragma Inline (Set_Suppress_Assignment_Checks); 12424 pragma Inline (Set_Suppress_Loop_Warnings); 12425 pragma Inline (Set_Synchronized_Present); 12426 pragma Inline (Set_Tagged_Present); 12427 pragma Inline (Set_Target_Type); 12428 pragma Inline (Set_Task_Definition); 12429 pragma Inline (Set_Task_Present); 12430 pragma Inline (Set_Then_Actions); 12431 pragma Inline (Set_Then_Statements); 12432 pragma Inline (Set_Triggering_Alternative); 12433 pragma Inline (Set_Triggering_Statement); 12434 pragma Inline (Set_Treat_Fixed_As_Integer); 12435 pragma Inline (Set_TSS_Elist); 12436 pragma Inline (Set_Type_Definition); 12437 pragma Inline (Set_Unit); 12438 pragma Inline (Set_Unknown_Discriminants_Present); 12439 pragma Inline (Set_Unreferenced_In_Spec); 12440 pragma Inline (Set_Variant_Part); 12441 pragma Inline (Set_Variants); 12442 pragma Inline (Set_Visible_Declarations); 12443 pragma Inline (Set_Used_Operations); 12444 pragma Inline (Set_Was_Originally_Stub); 12445 pragma Inline (Set_Withed_Body); 12446 12447end Sinfo; 12448