?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
PR c++/11808
[official-gcc.git] / gcc / ada / einfo.h
bloba25fd3a7f0633415159a2a02564bb2f946c0443b
1 /*--------------------------------------------------------------------------*/
2 /* */
3 /* GNAT COMPILER COMPONENTS */
4 /* */
5 /* E I N F O */
6 /* */
7 /* C Header File */
8 /* */
9 /* Generated by xeinfo revision 1.3 using */
10 /* einfo.ads revision 1.654 */
11 /* einfo.adb revision 1.642 */
12 /* */
13 /* Copyright (C) 1992-2002 Free Software Foundation, Inc. */
14 /* */
15 /* GNAT is free software; you can redistribute it and/or modify it under */
16 /* terms of the GNU General Public License as published by the Free Soft- */
17 /* ware Foundation; either version 2, or (at your option) any later ver- */
18 /* sion. GNAT is distributed in the hope that it will be useful, but WITH- */
19 /* OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY */
20 /* or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License */
21 /* for more details. You should have received a copy of the GNU General */
22 /* Public License distributed with GNAT; see file COPYING. If not, write */
23 /* to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, */
24 /* MA 02111-1307, USA. */
25 /* */
26 /* As a special exception, if other files instantiate generics from this */
27 /* unit, or you link this unit with other files to produce an executable, */
28 /* this unit does not by itself cause the resulting executable to be */
29 /* covered by the GNU General Public License. This exception does not */
30 /* however invalidate any other reasons why the executable file might be */
31 /* covered by the GNU Public License. */
32 /* */
33 /* GNAT was originally developed by the GNAT team at New York University. */
34 /* Extensive contributions were provided by Ada Core Technologies Inc. */
35 /* */
36 /*--------------------------------------------------------------------------*/
37
38 #define E_Void 0
39 #define E_Variable 1
40 #define E_Component 2
41 #define E_Constant 3
42 #define E_Discriminant 4
43 #define E_Loop_Parameter 5
44 #define E_In_Parameter 6
45 #define E_Out_Parameter 7
46 #define E_In_Out_Parameter 8
47 #define E_Generic_In_Out_Parameter 9
48 #define E_Generic_In_Parameter 10
49 #define E_Named_Integer 11
50 #define E_Named_Real 12
51 #define E_Enumeration_Type 13
52 #define E_Enumeration_Subtype 14
53 #define E_Signed_Integer_Type 15
54 #define E_Signed_Integer_Subtype 16
55 #define E_Modular_Integer_Type 17
56 #define E_Modular_Integer_Subtype 18
57 #define E_Ordinary_Fixed_Point_Type 19
58 #define E_Ordinary_Fixed_Point_Subtype 20
59 #define E_Decimal_Fixed_Point_Type 21
60 #define E_Decimal_Fixed_Point_Subtype 22
61 #define E_Floating_Point_Type 23
62 #define E_Floating_Point_Subtype 24
63 #define E_Access_Type 25
64 #define E_Access_Subtype 26
65 #define E_Access_Attribute_Type 27
66 #define E_Allocator_Type 28
67 #define E_General_Access_Type 29
68 #define E_Access_Subprogram_Type 30
69 #define E_Access_Protected_Subprogram_Type 31
70 #define E_Anonymous_Access_Type 32
71 #define E_Array_Type 33
72 #define E_Array_Subtype 34
73 #define E_String_Type 35
74 #define E_String_Subtype 36
75 #define E_String_Literal_Subtype 37
76 #define E_Class_Wide_Type 38
77 #define E_Class_Wide_Subtype 39
78 #define E_Record_Type 40
79 #define E_Record_Subtype 41
80 #define E_Record_Type_With_Private 42
81 #define E_Record_Subtype_With_Private 43
82 #define E_Private_Type 44
83 #define E_Private_Subtype 45
84 #define E_Limited_Private_Type 46
85 #define E_Limited_Private_Subtype 47
86 #define E_Incomplete_Type 48
87 #define E_Task_Type 49
88 #define E_Task_Subtype 50
89 #define E_Protected_Type 51
90 #define E_Protected_Subtype 52
91 #define E_Exception_Type 53
92 #define E_Subprogram_Type 54
93 #define E_Enumeration_Literal 55
94 #define E_Function 56
95 #define E_Operator 57
96 #define E_Procedure 58
97 #define E_Entry 59
98 #define E_Entry_Family 60
99 #define E_Block 61
100 #define E_Entry_Index_Parameter 62
101 #define E_Exception 63
102 #define E_Generic_Function 64
103 #define E_Generic_Package 65
104 #define E_Generic_Procedure 66
105 #define E_Label 67
106 #define E_Loop 68
107 #define E_Package 69
108 #define E_Package_Body 70
109 #define E_Protected_Object 71
110 #define E_Protected_Body 72
111 #define E_Task_Body 73
112 #define E_Subprogram_Body 74
113
114 SUBTYPE (Access_Kind, Entity_Kind,
115 E_Access_Type, E_Anonymous_Access_Type)
116
117 SUBTYPE (Array_Kind, Entity_Kind,
118 E_Array_Type, E_String_Literal_Subtype)
119
120 SUBTYPE (Class_Wide_Kind, Entity_Kind,
121 E_Class_Wide_Type, E_Class_Wide_Subtype)
122
123 SUBTYPE (Composite_Kind, Entity_Kind,
124 E_Array_Type, E_Protected_Subtype)
125
126 SUBTYPE (Concurrent_Kind, Entity_Kind,
127 E_Task_Type, E_Protected_Subtype)
128
129 SUBTYPE (Concurrent_Body_Kind, Entity_Kind,
130 E_Protected_Body, E_Task_Body)
131
132 SUBTYPE (Decimal_Fixed_Point_Kind, Entity_Kind,
133 E_Decimal_Fixed_Point_Type, E_Decimal_Fixed_Point_Subtype)
134
135 SUBTYPE (Digits_Kind, Entity_Kind,
136 E_Decimal_Fixed_Point_Type, E_Floating_Point_Subtype)
137
138 SUBTYPE (Discrete_Kind, Entity_Kind,
139 E_Enumeration_Type, E_Modular_Integer_Subtype)
140
141 SUBTYPE (Discrete_Or_Fixed_Point_Kind, Entity_Kind,
142 E_Enumeration_Type, E_Decimal_Fixed_Point_Subtype)
143
144 SUBTYPE (Elementary_Kind, Entity_Kind,
145 E_Enumeration_Type, E_Anonymous_Access_Type)
146
147 SUBTYPE (Enumeration_Kind, Entity_Kind,
148 E_Enumeration_Type, E_Enumeration_Subtype)
149
150 SUBTYPE (Entry_Kind, Entity_Kind,
151 E_Entry, E_Entry_Family)
152
153 SUBTYPE (Fixed_Point_Kind, Entity_Kind,
154 E_Ordinary_Fixed_Point_Type, E_Decimal_Fixed_Point_Subtype)
155
156 SUBTYPE (Float_Kind, Entity_Kind,
157 E_Floating_Point_Type, E_Floating_Point_Subtype)
158
159 SUBTYPE (Formal_Kind, Entity_Kind,
160 E_In_Parameter, E_In_Out_Parameter)
161
162 SUBTYPE (Generic_Unit_Kind, Entity_Kind,
163 E_Generic_Function, E_Generic_Procedure)
164
165 SUBTYPE (Incomplete_Or_Private_Kind, Entity_Kind,
166 E_Record_Type_With_Private, E_Incomplete_Type)
167
168 SUBTYPE (Integer_Kind, Entity_Kind,
169 E_Signed_Integer_Type, E_Modular_Integer_Subtype)
170
171 SUBTYPE (Modular_Integer_Kind, Entity_Kind,
172 E_Modular_Integer_Type, E_Modular_Integer_Subtype)
173
174 SUBTYPE (Named_Kind, Entity_Kind,
175 E_Named_Integer, E_Named_Real)
176
177 SUBTYPE (Numeric_Kind, Entity_Kind,
178 E_Signed_Integer_Type, E_Floating_Point_Subtype)
179
180 SUBTYPE (Object_Kind, Entity_Kind,
181 E_Variable, E_Generic_In_Parameter)
182
183 SUBTYPE (Ordinary_Fixed_Point_Kind, Entity_Kind,
184 E_Ordinary_Fixed_Point_Type, E_Ordinary_Fixed_Point_Subtype)
185
186 SUBTYPE (Overloadable_Kind, Entity_Kind,
187 E_Enumeration_Literal, E_Entry)
188
189 SUBTYPE (Private_Kind, Entity_Kind,
190 E_Record_Type_With_Private, E_Limited_Private_Subtype)
191
192 SUBTYPE (Protected_Kind, Entity_Kind,
193 E_Protected_Type, E_Protected_Subtype)
194
195 SUBTYPE (Real_Kind, Entity_Kind,
196 E_Ordinary_Fixed_Point_Type, E_Floating_Point_Subtype)
197
198 SUBTYPE (Record_Kind, Entity_Kind,
199 E_Class_Wide_Type, E_Record_Subtype_With_Private)
200
201 SUBTYPE (Scalar_Kind, Entity_Kind,
202 E_Enumeration_Type, E_Floating_Point_Subtype)
203
204 SUBTYPE (String_Kind, Entity_Kind,
205 E_String_Type, E_String_Literal_Subtype)
206
207 SUBTYPE (Subprogram_Kind, Entity_Kind,
208 E_Function, E_Procedure)
209
210 SUBTYPE (Signed_Integer_Kind, Entity_Kind,
211 E_Signed_Integer_Type, E_Signed_Integer_Subtype)
212
213 SUBTYPE (Task_Kind, Entity_Kind,
214 E_Task_Type, E_Task_Subtype)
215
216 SUBTYPE (Type_Kind, Entity_Kind,
217 E_Enumeration_Type, E_Subprogram_Type)
218
219 typedef char Component_Alignment_Kind;
220 #define Calign_Default 0
221 #define Calign_Component_Size 1
222 #define Calign_Component_Size_4 2
223 #define Calign_Storage_Unit 3
224
225 typedef Boolean B;
226 typedef Component_Alignment_Kind C;
227 typedef Entity_Id E;
228 typedef Mechanism_Type M;
229 typedef Node_Id N;
230 typedef Uint U;
231 typedef Ureal R;
232 typedef Elist_Id L;
233 typedef List_Id S;
234
235 INLINE L Accept_Address (E Id);
236 INLINE E Access_Disp_Table (E Id);
237 INLINE E Actual_Subtype (E Id);
238 INLINE B Address_Taken (E Id);
239 INLINE E Alias (E Id);
240 INLINE U Alignment (E Id);
241 INLINE E Associated_Final_Chain (E Id);
242 INLINE E Associated_Formal_Package (E Id);
243 INLINE N Associated_Node_For_Itype (E Id);
244 INLINE E Associated_Storage_Pool (E Id);
245 INLINE N Barrier_Function (E Id);
246 INLINE N Block_Node (E Id);
247 INLINE E Body_Entity (E Id);
248 INLINE E CR_Discriminant (E Id);
249 INLINE B C_Pass_By_Copy (E Id);
250 INLINE E Class_Wide_Type (E Id);
251 INLINE E Cloned_Subtype (E Id);
252
253 #define Component_Alignment einfo__component_alignment
254 C Component_Alignment (E Id);
255
256 INLINE N Component_Clause (E Id);
257 INLINE U Component_Bit_Offset (E Id);
258 INLINE U Component_Size (E Id);
259 INLINE E Component_Type (E Id);
260 INLINE E Corresponding_Concurrent_Type (E Id);
261 INLINE E Corresponding_Discriminant (E Id);
262 INLINE E Corresponding_Equality (E Id);
263 INLINE E Corresponding_Record_Type (E Id);
264 INLINE E Corresponding_Remote_Type (E Id);
265 INLINE B Debug_Info_Off (E Id);
266 INLINE E Debug_Renaming_Link (E Id);
267 INLINE E DTC_Entity (E Id);
268 INLINE U DT_Entry_Count (E Id);
269 INLINE U DT_Position (E Id);
270 INLINE E Default_Expr_Function (E Id);
271 INLINE B Default_Expressions_Processed (E Id);
272 INLINE N Default_Value (E Id);
273 INLINE B Delay_Cleanups (E Id);
274 INLINE B Delay_Subprogram_Descriptors (E Id);
275 INLINE R Delta_Value (E Id);
276 INLINE L Dependent_Instances (E Id);
277 INLINE B Depends_On_Private (E Id);
278 INLINE U Digits_Value (E Id);
279 INLINE E Directly_Designated_Type (E Id);
280 INLINE B Discard_Names (E Id);
281 INLINE E Discriminal (E Id);
282 INLINE E Discriminal_Link (E Id);
283 INLINE E Discriminant_Checking_Func (E Id);
284 INLINE L Discriminant_Constraint (E Id);
285 INLINE N Discriminant_Default_Value (E Id);
286 INLINE U Discriminant_Number (E Id);
287 INLINE B Elaborate_All_Desirable (E Id);
288 INLINE E Elaboration_Entity (E Id);
289 INLINE B Elaboration_Entity_Required (E Id);
290 INLINE E Enclosing_Scope (E Id);
291 INLINE B Entry_Accepted (E Id);
292 INLINE E Entry_Bodies_Array (E Id);
293 INLINE E Entry_Cancel_Parameter (E Id);
294 INLINE E Entry_Component (E Id);
295 INLINE E Entry_Formal (E Id);
296 INLINE E Entry_Index_Constant (E Id);
297 INLINE E Entry_Index_Type (E Id);
298 INLINE E Entry_Parameters_Type (E Id);
299 INLINE E Enum_Pos_To_Rep (E Id);
300 INLINE U Enumeration_Pos (E Id);
301 INLINE U Enumeration_Rep (E Id);
302 INLINE N Enumeration_Rep_Expr (E Id);
303 INLINE E Equivalent_Type (E Id);
304 INLINE U Esize (E Id);
305 INLINE U Exception_Code (E Id);
306 INLINE E Extra_Accessibility (E Id);
307 INLINE E Extra_Constrained (E Id);
308 INLINE E Extra_Formal (E Id);
309 INLINE E Finalization_Chain_Entity (E Id);
310
311 #define Finalize_Storage_Only einfo__finalize_storage_only
312 B Finalize_Storage_Only (E Id);
313
314 INLINE E First_Entity (E Id);
315 INLINE N First_Index (E Id);
316 INLINE E First_Literal (E Id);
317 INLINE E First_Optional_Parameter (E Id);
318 INLINE E First_Private_Entity (E Id);
319 INLINE N First_Rep_Item (E Id);
320 INLINE N Freeze_Node (E Id);
321 INLINE B From_With_Type (E Id);
322 INLINE E Full_View (E Id);
323 INLINE B Function_Returns_With_DSP (E Id);
324 INLINE L Generic_Renamings (E Id);
325 INLINE L Girder_Constraint (E Id);
326 INLINE S Handler_Records (E Id);
327 INLINE B Has_Aliased_Components (E Id);
328 INLINE B Has_Alignment_Clause (E Id);
329 INLINE B Has_All_Calls_Remote (E Id);
330 INLINE B Has_Atomic_Components (E Id);
331 INLINE B Has_Biased_Representation (E Id);
332 INLINE B Has_Completion (E Id);
333 INLINE B Has_Completion_In_Body (E Id);
334 INLINE B Has_Complex_Representation (E Id);
335 INLINE B Has_Component_Size_Clause (E Id);
336 INLINE B Has_Controlled_Component (E Id);
337 INLINE B Has_Controlling_Result (E Id);
338 INLINE B Has_Convention_Pragma (E Id);
339 INLINE B Has_Delayed_Freeze (E Id);
340 INLINE B Has_Discriminants (E Id);
341 INLINE B Has_Enumeration_Rep_Clause (E Id);
342 INLINE B Has_Exit (E Id);
343 INLINE B Has_External_Tag_Rep_Clause (E Id);
344 INLINE B Has_Fully_Qualified_Name (E Id);
345 INLINE B Has_Gigi_Rep_Item (E Id);
346 INLINE B Has_Homonym (E Id);
347
348 #define Has_Interrupt_Handler einfo__has_interrupt_handler
349 B Has_Interrupt_Handler (E Id);
350
351 INLINE B Has_Machine_Radix_Clause (E Id);
352 INLINE B Has_Master_Entity (E Id);
353 INLINE B Has_Missing_Return (E Id);
354 INLINE B Has_Nested_Block_With_Handler (E Id);
355 INLINE B Has_Forward_Instantiation (E Id);
356 INLINE B Has_Non_Standard_Rep (E Id);
357 INLINE B Has_Object_Size_Clause (E Id);
358 INLINE B Has_Per_Object_Constraint (E Id);
359 INLINE B Has_Pragma_Controlled (E Id);
360 INLINE B Has_Pragma_Elaborate_Body (E Id);
361 INLINE B Has_Pragma_Inline (E Id);
362 INLINE B Has_Pragma_Pack (E Id);
363 INLINE B Has_Pragma_Pure_Function (E Id);
364 INLINE B Has_Pragma_Unreferenced (E Id);
365 INLINE B Has_Primitive_Operations (E Id);
366 INLINE B Has_Qualified_Name (E Id);
367 INLINE B Has_Record_Rep_Clause (E Id);
368 INLINE B Has_Recursive_Call (E Id);
369 INLINE B Has_Size_Clause (E Id);
370 INLINE B Has_Small_Clause (E Id);
371 INLINE B Has_Specified_Layout (E Id);
372 INLINE B Has_Storage_Size_Clause (E Id);
373 INLINE B Has_Subprogram_Descriptor (E Id);
374 INLINE B Has_Task (E Id);
375 INLINE B Has_Unchecked_Union (E Id);
376 INLINE B Has_Unknown_Discriminants (E Id);
377 INLINE B Has_Volatile_Components (E Id);
378 INLINE E Homonym (E Id);
379 INLINE E Hiding_Loop_Variable (E Id);
380 INLINE B In_Package_Body (E Id);
381 INLINE B In_Private_Part (E Id);
382 INLINE B In_Use (E Id);
383 INLINE L Inner_Instances (E Id);
384 INLINE N Interface_Name (E Id);
385 INLINE B Is_AST_Entry (E Id);
386 INLINE B Is_Abstract (E Id);
387 INLINE B Is_Access_Constant (E Id);
388 INLINE B Is_Aliased (E Id);
389 INLINE B Is_Asynchronous (E Id);
390 INLINE B Is_Atomic (E Id);
391 INLINE B Is_Bit_Packed_Array (E Id);
392 INLINE B Is_CPP_Class (E Id);
393 INLINE B Is_Called (E Id);
394 INLINE B Is_Character_Type (E Id);
395 INLINE B Is_Child_Unit (E Id);
396 INLINE B Is_Compilation_Unit (E Id);
397 INLINE B Is_Completely_Hidden (E Id);
398 INLINE B Is_Constr_Subt_For_UN_Aliased (E Id);
399 INLINE B Is_Constr_Subt_For_U_Nominal (E Id);
400 INLINE B Is_Constrained (E Id);
401 INLINE B Is_Constructor (E Id);
402 INLINE B Is_Controlled (E Id);
403 INLINE B Is_Controlling_Formal (E Id);
404 INLINE B Is_Destructor (E Id);
405 INLINE B Is_Discrim_SO_Function (E Id);
406 INLINE B Is_Dispatching_Operation (E Id);
407 INLINE B Is_Eliminated (E Id);
408 INLINE B Is_Entry_Formal (E Id);
409 INLINE B Is_Exported (E Id);
410 INLINE B Is_First_Subtype (E Id);
411 INLINE B Is_For_Access_Subtype (E Id);
412 INLINE B Is_Frozen (E Id);
413 INLINE B Is_Generic_Instance (E Id);
414 INLINE B Is_Hidden (E Id);
415 INLINE B Is_Hidden_Open_Scope (E Id);
416 INLINE B Is_Immediately_Visible (E Id);
417 INLINE B Is_Imported (E Id);
418 INLINE B Is_Inlined (E Id);
419 INLINE B Is_Instantiated (E Id);
420 INLINE B Is_Internal (E Id);
421 INLINE B Is_Interrupt_Handler (E Id);
422 INLINE B Is_Intrinsic_Subprogram (E Id);
423 INLINE B Is_Itype (E Id);
424 INLINE B Is_Known_Valid (E Id);
425 INLINE B Is_Limited_Composite (E Id);
426 INLINE B Is_Machine_Code_Subprogram (E Id);
427 INLINE B Is_Non_Static_Subtype (E Id);
428 INLINE B Is_Null_Init_Proc (E Id);
429 INLINE B Is_Optional_Parameter (E Id);
430 INLINE B Is_Package_Body_Entity (E Id);
431 INLINE B Is_Packed (E Id);
432 INLINE B Is_Packed_Array_Type (E Id);
433 INLINE B Is_Potentially_Use_Visible (E Id);
434 INLINE B Is_Preelaborated (E Id);
435 INLINE B Is_Private_Composite (E Id);
436 INLINE B Is_Private_Descendant (E Id);
437 INLINE B Is_Psected (E Id);
438 INLINE B Is_Public (E Id);
439 INLINE B Is_Pure (E Id);
440 INLINE B Is_Remote_Call_Interface (E Id);
441 INLINE B Is_Remote_Types (E Id);
442 INLINE B Is_Renaming_Of_Object (E Id);
443 INLINE B Is_Shared_Passive (E Id);
444 INLINE B Is_Statically_Allocated (E Id);
445 INLINE B Is_Tag (E Id);
446 INLINE B Is_Tagged_Type (E Id);
447 INLINE B Is_True_Constant (E Id);
448 INLINE B Is_Unchecked_Union (E Id);
449 INLINE B Is_Unsigned_Type (E Id);
450 INLINE B Is_VMS_Exception (E Id);
451 INLINE B Is_Valued_Procedure (E Id);
452 INLINE B Is_Visible_Child_Unit (E Id);
453 INLINE B Is_Volatile (E Id);
454
455 #define Is_Wrapper_Package einfo__is_wrapper_package
456 B Is_Wrapper_Package (E Id);
457
458 INLINE E Last_Entity (E Id);
459 INLINE E Lit_Indexes (E Id);
460 INLINE E Lit_Strings (E Id);
461 INLINE B Machine_Radix_10 (E Id);
462 INLINE E Master_Id (E Id);
463 INLINE B Materialize_Entity (E Id);
464 INLINE M Mechanism (E Id);
465 INLINE U Modulus (E Id);
466 INLINE B Needs_Debug_Info (E Id);
467 INLINE B Needs_No_Actuals (E Id);
468 INLINE E Next_Inlined_Subprogram (E Id);
469 INLINE B No_Pool_Assigned (E Id);
470 INLINE B No_Return (E Id);
471 INLINE B Non_Binary_Modulus (E Id);
472 INLINE B Nonzero_Is_True (E Id);
473 INLINE U Normalized_First_Bit (E Id);
474 INLINE U Normalized_Position (E Id);
475 INLINE U Normalized_Position_Max (E Id);
476 INLINE B Not_Source_Assigned (E Id);
477 INLINE E Object_Ref (E Id);
478 INLINE E Original_Array_Type (E Id);
479 INLINE E Original_Record_Component (E Id);
480 INLINE E Packed_Array_Type (E Id);
481 INLINE E Parent_Subtype (E Id);
482 INLINE L Primitive_Operations (E Id);
483 INLINE E Prival (E Id);
484 INLINE L Privals_Chain (E Id);
485 INLINE L Private_Dependents (E Id);
486 INLINE N Private_View (E Id);
487 INLINE E Protected_Body_Subprogram (E Id);
488 INLINE E Protected_Formal (E Id);
489 INLINE E Protected_Operation (E Id);
490 INLINE U RM_Size (E Id);
491 INLINE B Reachable (E Id);
492 INLINE B Referenced (E Id);
493 INLINE N Referenced_Object (E Id);
494 INLINE N Register_Exception_Call (E Id);
495 INLINE E Related_Array_Object (E Id);
496 INLINE E Related_Instance (E Id);
497 INLINE N Renamed_Entity (E Id);
498 INLINE N Renamed_Object (E Id);
499 INLINE U Renaming_Map (E Id);
500 INLINE B Return_Present (E Id);
501 INLINE B Returns_By_Ref (E Id);
502 INLINE B Reverse_Bit_Order (E Id);
503 INLINE N Scalar_Range (E Id);
504 INLINE U Scale_Value (E Id);
505 INLINE U Scope_Depth_Value (E Id);
506 INLINE B Sec_Stack_Needed_For_Return (E Id);
507 INLINE S Shadow_Entities (E Id);
508 INLINE E Shared_Var_Assign_Proc (E Id);
509 INLINE E Shared_Var_Read_Proc (E Id);
510 INLINE N Size_Check_Code (E Id);
511 INLINE B Size_Known_At_Compile_Time (E Id);
512 INLINE B Size_Depends_On_Discriminant (E Id);
513 INLINE R Small_Value (E Id);
514 INLINE E Spec_Entity (E Id);
515 INLINE E Storage_Size_Variable (E Id);
516 INLINE B Strict_Alignment (E Id);
517 INLINE U String_Literal_Length (E Id);
518 INLINE N String_Literal_Low_Bound (E Id);
519 INLINE B Suppress_Access_Checks (E Id);
520 INLINE B Suppress_Accessibility_Checks (E Id);
521 INLINE B Suppress_Discriminant_Checks (E Id);
522 INLINE B Suppress_Division_Checks (E Id);
523 INLINE B Suppress_Elaboration_Checks (E Id);
524 INLINE B Suppress_Elaboration_Warnings (E Id);
525 INLINE B Suppress_Index_Checks (E Id);
526 INLINE B Suppress_Init_Proc (E Id);
527 INLINE B Suppress_Length_Checks (E Id);
528 INLINE B Suppress_Overflow_Checks (E Id);
529 INLINE B Suppress_Range_Checks (E Id);
530 INLINE B Suppress_Storage_Checks (E Id);
531 INLINE B Suppress_Style_Checks (E Id);
532 INLINE B Suppress_Tag_Checks (E Id);
533 INLINE E Underlying_Full_View (E Id);
534 INLINE N Unset_Reference (E Id);
535 INLINE B Uses_Sec_Stack (E Id);
536 INLINE B Vax_Float (E Id);
537 INLINE B Warnings_Off (E Id);
538 INLINE B Is_Access_Type (E Id);
539 INLINE B Is_Array_Type (E Id);
540 INLINE B Is_Class_Wide_Type (E Id);
541 INLINE B Is_Composite_Type (E Id);
542 INLINE B Is_Concurrent_Body (E Id);
543 INLINE B Is_Concurrent_Record_Type (E Id);
544 INLINE B Is_Concurrent_Type (E Id);
545 INLINE B Is_Decimal_Fixed_Point_Type (E Id);
546 INLINE B Is_Digits_Type (E Id);
547 INLINE B Is_Discrete_Or_Fixed_Point_Type (E Id);
548 INLINE B Is_Discrete_Type (E Id);
549 INLINE B Is_Elementary_Type (E Id);
550 INLINE B Is_Entry (E Id);
551 INLINE B Is_Enumeration_Type (E Id);
552 INLINE B Is_Fixed_Point_Type (E Id);
553 INLINE B Is_Floating_Point_Type (E Id);
554 INLINE B Is_Formal (E Id);
555 INLINE B Is_Formal_Subprogram (E Id);
556 INLINE B Is_Generic_Actual_Type (E Id);
557 INLINE B Is_Generic_Type (E Id);
558 INLINE B Is_Generic_Unit (E Id);
559 INLINE B Is_Incomplete_Or_Private_Type (E Id);
560 INLINE B Is_Integer_Type (E Id);
561 INLINE B Is_Limited_Record (E Id);
562 INLINE B Is_Modular_Integer_Type (E Id);
563 INLINE B Is_Named_Number (E Id);
564 INLINE B Is_Numeric_Type (E Id);
565 INLINE B Is_Object (E Id);
566 INLINE B Is_Ordinary_Fixed_Point_Type (E Id);
567 INLINE B Is_Overloadable (E Id);
568 INLINE B Is_Private_Type (E Id);
569 INLINE B Is_Protected_Type (E Id);
570 INLINE B Is_Real_Type (E Id);
571 INLINE B Is_Record_Type (E Id);
572 INLINE B Is_Scalar_Type (E Id);
573 INLINE B Is_Signed_Integer_Type (E Id);
574 INLINE B Is_Subprogram (E Id);
575 INLINE B Is_Task_Type (E Id);
576 INLINE B Is_Type (E Id);
577
578 #define Address_Clause einfo__address_clause
579 N Address_Clause (E Id);
580
581 #define Alignment_Clause einfo__alignment_clause
582 N Alignment_Clause (E Id);
583
584 #define Ancestor_Subtype einfo__ancestor_subtype
585 E Ancestor_Subtype (E Id);
586
587 #define Base_Type einfo__base_type
588 E Base_Type (E Id);
589
590 #define Constant_Value einfo__constant_value
591 N Constant_Value (E Id);
592
593 #define Declaration_Node einfo__declaration_node
594 N Declaration_Node (E Id);
595
596 #define Designated_Type einfo__designated_type
597 E Designated_Type (E Id);
598
599 #define Enclosing_Dynamic_Scope einfo__enclosing_dynamic_scope
600 E Enclosing_Dynamic_Scope (E Id);
601
602 #define First_Component einfo__first_component
603 E First_Component (E Id);
604
605 #define First_Discriminant einfo__first_discriminant
606 E First_Discriminant (E Id);
607
608 #define First_Formal einfo__first_formal
609 E First_Formal (E Id);
610
611 #define First_Girder_Discriminant einfo__first_girder_discriminant
612 E First_Girder_Discriminant (E Id);
613
614 #define First_Subtype einfo__first_subtype
615 E First_Subtype (E Id);
616
617 #define Has_Attach_Handler einfo__has_attach_handler
618 B Has_Attach_Handler (E Id);
619
620 #define Has_Entries einfo__has_entries
621 B Has_Entries (E Id);
622
623 #define Has_Foreign_Convention einfo__has_foreign_convention
624 B Has_Foreign_Convention (E Id);
625
626 #define Has_Private_Ancestor einfo__has_private_ancestor
627 B Has_Private_Ancestor (E Id);
628
629 INLINE B Has_Private_Declaration (E Id);
630
631 #define Implementation_Base_Type einfo__implementation_base_type
632 E Implementation_Base_Type (E Id);
633
634 #define Is_Always_Inlined einfo__is_always_inlined
635 B Is_Always_Inlined (E Id);
636
637 #define Is_Boolean_Type einfo__is_boolean_type
638 B Is_Boolean_Type (E Id);
639
640 #define Is_By_Copy_Type einfo__is_by_copy_type
641 B Is_By_Copy_Type (E Id);
642
643 #define Is_By_Reference_Type einfo__is_by_reference_type
644 B Is_By_Reference_Type (E Id);
645
646 #define Is_Derived_Type einfo__is_derived_type
647 B Is_Derived_Type (E Id);
648
649 #define Is_Dynamic_Scope einfo__is_dynamic_scope
650 B Is_Dynamic_Scope (E Id);
651
652 #define Is_Indefinite_Subtype einfo__is_indefinite_subtype
653 B Is_Indefinite_Subtype (E Id);
654
655 #define Is_Limited_Type einfo__is_limited_type
656 B Is_Limited_Type (E Id);
657
658 #define Is_Package einfo__is_package
659 B Is_Package (E Id);
660
661 #define Is_Protected_Private einfo__is_protected_private
662 B Is_Protected_Private (E Id);
663
664 #define Is_Protected_Record_Type einfo__is_protected_record_type
665 B Is_Protected_Record_Type (E Id);
666
667 #define Is_Return_By_Reference_Type einfo__is_return_by_reference_type
668 B Is_Return_By_Reference_Type (E Id);
669
670 #define Is_String_Type einfo__is_string_type
671 B Is_String_Type (E Id);
672
673 #define Is_Task_Record_Type einfo__is_task_record_type
674 B Is_Task_Record_Type (E Id);
675
676 #define Next_Component einfo__next_component
677 E Next_Component (E Id);
678
679 #define Next_Discriminant einfo__next_discriminant
680 E Next_Discriminant (E Id);
681
682 #define Next_Formal einfo__next_formal
683 E Next_Formal (E Id);
684
685 #define Next_Formal_With_Extras einfo__next_formal_with_extras
686 E Next_Formal_With_Extras (E Id);
687
688 #define Next_Girder_Discriminant einfo__next_girder_discriminant
689 E Next_Girder_Discriminant (E Id);
690
691 INLINE E Next_Literal (E Id);
692
693 #define Number_Dimensions einfo__number_dimensions
694 Pos Number_Dimensions (E Id);
695
696 #define Number_Discriminants einfo__number_discriminants
697 Pos Number_Discriminants (E Id);
698
699 #define Number_Entries einfo__number_entries
700 Nat Number_Entries (E Id);
701
702 #define Number_Formals einfo__number_formals
703 Pos Number_Formals (E Id);
704
705 INLINE Formal_Kind Parameter_Mode (E Id);
706
707 #define Root_Type einfo__root_type
708 E Root_Type (E Id);
709
710 #define Scope_Depth_Set einfo__scope_depth_set
711 B Scope_Depth_Set (E Id);
712
713 #define Size_Clause einfo__size_clause
714 N Size_Clause (E Id);
715
716 #define Tag_Component einfo__tag_component
717 E Tag_Component (E Id);
718
719 #define Type_High_Bound einfo__type_high_bound
720 N Type_High_Bound (E Id);
721
722 #define Type_Low_Bound einfo__type_low_bound
723 N Type_Low_Bound (E Id);
724
725 #define Underlying_Type einfo__underlying_type
726 E Underlying_Type (E Id);
727
728 #define Known_Alignment einfo__known_alignment
729 B Known_Alignment (Entity_Id E);
730
731 #define Known_Component_Bit_Offset einfo__known_component_bit_offset
732 B Known_Component_Bit_Offset (Entity_Id E);
733
734 #define Known_Component_Size einfo__known_component_size
735 B Known_Component_Size (Entity_Id E);
736
737 #define Known_Esize einfo__known_esize
738 B Known_Esize (Entity_Id E);
739
740 #define Known_Normalized_First_Bit einfo__known_normalized_first_bit
741 B Known_Normalized_First_Bit (Entity_Id E);
742
743 #define Known_Normalized_Position einfo__known_normalized_position
744 B Known_Normalized_Position (Entity_Id E);
745
746 #define Known_Normalized_Position_Max einfo__known_normalized_position_max
747 B Known_Normalized_Position_Max (Entity_Id E);
748
749 #define Known_RM_Size einfo__known_rm_size
750 B Known_RM_Size (Entity_Id E);
751
752 #define Known_Static_Component_Bit_Offset einfo__known_static_component_bit_offset
753 B Known_Static_Component_Bit_Offset (Entity_Id E);
754
755 #define Known_Static_Component_Size einfo__known_static_component_size
756 B Known_Static_Component_Size (Entity_Id E);
757
758 #define Known_Static_Esize einfo__known_static_esize
759 B Known_Static_Esize (Entity_Id E);
760
761 #define Known_Static_Normalized_First_Bit einfo__known_static_normalized_first_bit
762 B Known_Static_Normalized_First_Bit (Entity_Id E);
763
764 #define Known_Static_Normalized_Position einfo__known_static_normalized_position
765 B Known_Static_Normalized_Position (Entity_Id E);
766
767 #define Known_Static_Normalized_Position_Max einfo__known_static_normalized_position_max
768 B Known_Static_Normalized_Position_Max (Entity_Id E);
769
770 #define Known_Static_RM_Size einfo__known_static_rm_size
771 B Known_Static_RM_Size (Entity_Id E);
772
773 #define Unknown_Alignment einfo__unknown_alignment
774 B Unknown_Alignment (Entity_Id E);
775
776 #define Unknown_Component_Bit_Offset einfo__unknown_component_bit_offset
777 B Unknown_Component_Bit_Offset (Entity_Id E);
778
779 #define Unknown_Component_Size einfo__unknown_component_size
780 B Unknown_Component_Size (Entity_Id E);
781
782 #define Unknown_Esize einfo__unknown_esize
783 B Unknown_Esize (Entity_Id E);
784
785 #define Unknown_Normalized_First_Bit einfo__unknown_normalized_first_bit
786 B Unknown_Normalized_First_Bit (Entity_Id E);
787
788 #define Unknown_Normalized_Position einfo__unknown_normalized_position
789 B Unknown_Normalized_Position (Entity_Id E);
790
791 #define Unknown_Normalized_Position_Max einfo__unknown_normalized_position_max
792 B Unknown_Normalized_Position_Max (Entity_Id E);
793
794 #define Unknown_RM_Size einfo__unknown_rm_size
795 B Unknown_RM_Size (Entity_Id E);
796
797
798 INLINE L Accept_Address (E Id)
799 { return Elist21 (Id); }
800
801 INLINE E Access_Disp_Table (E Id)
802 { return Node16 (Implementation_Base_Type (Id)); }
803
804 INLINE E Actual_Subtype (E Id)
805 { return Node17 (Id); }
806
807 INLINE B Address_Taken (E Id)
808 { return Flag104 (Id); }
809
810 INLINE E Alias (E Id)
811 { return Node18 (Id); }
812
813 INLINE U Alignment (E Id)
814 { return Uint14 (Id); }
815
816 INLINE E Associated_Final_Chain (E Id)
817 { return Node23 (Id); }
818
819 INLINE E Associated_Formal_Package (E Id)
820 { return Node12 (Id); }
821
822 INLINE N Associated_Node_For_Itype (E Id)
823 { return Node8 (Id); }
824
825 INLINE E Associated_Storage_Pool (E Id)
826 { return Node22 (Root_Type (Id)); }
827
828 INLINE N Barrier_Function (E Id)
829 { return Node12 (Id); }
830
831 INLINE N Block_Node (E Id)
832 { return Node11 (Id); }
833
834 INLINE E Body_Entity (E Id)
835 { return Node19 (Id); }
836
837 INLINE B C_Pass_By_Copy (E Id)
838 { return Flag125 (Implementation_Base_Type (Id)); }
839
840 INLINE E Class_Wide_Type (E Id)
841 { return Node9 (Id); }
842
843 INLINE E Cloned_Subtype (E Id)
844 { return Node16 (Id); }
845
846 INLINE U Component_Bit_Offset (E Id)
847 { return Uint11 (Id); }
848
849 INLINE N Component_Clause (E Id)
850 { return Node13 (Id); }
851
852 INLINE U Component_Size (E Id)
853 { return Uint22 (Implementation_Base_Type (Id)); }
854
855 INLINE E Component_Type (E Id)
856 { return Node20 (Implementation_Base_Type (Id)); }
857
858 INLINE E Corresponding_Concurrent_Type (E Id)
859 { return Node18 (Id); }
860
861 INLINE E Corresponding_Discriminant (E Id)
862 { return Node19 (Id); }
863
864 INLINE E Corresponding_Equality (E Id)
865 { return Node13 (Id); }
866
867 INLINE E Corresponding_Record_Type (E Id)
868 { return Node18 (Id); }
869
870 INLINE E Corresponding_Remote_Type (E Id)
871 { return Node22 (Id); }
872
873 INLINE E CR_Discriminant (E Id)
874 { return Node23 (Id); }
875
876 INLINE B Debug_Info_Off (E Id)
877 { return Flag166 (Id); }
878
879 INLINE E Debug_Renaming_Link (E Id)
880 { return Node13 (Id); }
881
882 INLINE E Default_Expr_Function (E Id)
883 { return Node21 (Id); }
884
885 INLINE B Default_Expressions_Processed (E Id)
886 { return Flag108 (Id); }
887
888 INLINE N Default_Value (E Id)
889 { return Node20 (Id); }
890
891 INLINE B Delay_Cleanups (E Id)
892 { return Flag114 (Id); }
893
894 INLINE B Delay_Subprogram_Descriptors (E Id)
895 { return Flag50 (Id); }
896
897 INLINE R Delta_Value (E Id)
898 { return Ureal18 (Id); }
899
900 INLINE L Dependent_Instances (E Id)
901 { return Elist8 (Id); }
902
903 INLINE B Depends_On_Private (E Id)
904 { return Flag14 (Id); }
905
906 INLINE U Digits_Value (E Id)
907 { return Uint17 (Id); }
908
909 INLINE E Directly_Designated_Type (E Id)
910 { return Node20 (Id); }
911
912 INLINE B Discard_Names (E Id)
913 { return Flag88 (Id); }
914
915 INLINE E Discriminal (E Id)
916 { return Node17 (Id); }
917
918 INLINE N Discriminal_Link (E Id)
919 { return Node10 (Id); }
920
921 INLINE E Discriminant_Checking_Func (E Id)
922 { return Node20 (Id); }
923
924 INLINE L Discriminant_Constraint (E Id)
925 { return Elist21 (Id); }
926
927 INLINE N Discriminant_Default_Value (E Id)
928 { return Node20 (Id); }
929
930 INLINE U Discriminant_Number (E Id)
931 { return Uint15 (Id); }
932
933 INLINE U DT_Entry_Count (E Id)
934 { return Uint15 (Id); }
935
936 INLINE U DT_Position (E Id)
937 { return Uint15 (Id); }
938
939 INLINE E DTC_Entity (E Id)
940 { return Node16 (Id); }
941
942 INLINE B Elaborate_All_Desirable (E Id)
943 { return Flag146 (Id); }
944
945 INLINE E Elaboration_Entity (E Id)
946 { return Node13 (Id); }
947
948 INLINE B Elaboration_Entity_Required (E Id)
949 { return Flag174 (Id); }
950
951 INLINE E Enclosing_Scope (E Id)
952 { return Node18 (Id); }
953
954 INLINE B Entry_Accepted (E Id)
955 { return Flag152 (Id); }
956
957 INLINE E Entry_Bodies_Array (E Id)
958 { return Node15 (Id); }
959
960 INLINE E Entry_Cancel_Parameter (E Id)
961 { return Node23 (Id); }
962
963 INLINE E Entry_Component (E Id)
964 { return Node11 (Id); }
965
966 INLINE E Entry_Formal (E Id)
967 { return Node16 (Id); }
968
969 INLINE N Entry_Index_Constant (E Id)
970 { return Node18 (Id); }
971
972 INLINE E Entry_Parameters_Type (E Id)
973 { return Node15 (Id); }
974
975 INLINE E Enum_Pos_To_Rep (E Id)
976 { return Node23 (Id); }
977
978 INLINE Uint Enumeration_Pos (E Id)
979 { return Uint11 (Id); }
980
981 INLINE U Enumeration_Rep (E Id)
982 { return Uint12 (Id); }
983
984 INLINE N Enumeration_Rep_Expr (E Id)
985 { return Node22 (Id); }
986
987 INLINE E Equivalent_Type (E Id)
988 { return Node18 (Id); }
989
990 INLINE Uint Esize (E Id)
991 { return Uint12 (Id); }
992
993 INLINE Uint Exception_Code (E Id)
994 { return Uint22 (Id); }
995
996 INLINE E Extra_Accessibility (E Id)
997 { return Node13 (Id); }
998
999 INLINE E Extra_Constrained (E Id)
1000 { return Node23 (Id); }
1001
1002 INLINE E Extra_Formal (E Id)
1003 { return Node15 (Id); }
1004
1005 INLINE E Finalization_Chain_Entity (E Id)
1006 { return Node19 (Id); }
1007
1008 INLINE E First_Entity (E Id)
1009 { return Node17 (Id); }
1010
1011 INLINE N First_Index (E Id)
1012 { return Node17 (Id); }
1013
1014 INLINE E First_Literal (E Id)
1015 { return Node17 (Id); }
1016
1017 INLINE E First_Optional_Parameter (E Id)
1018 { return Node14 (Id); }
1019
1020 INLINE E First_Private_Entity (E Id)
1021 { return Node16 (Id); }
1022
1023 INLINE E First_Rep_Item (E Id)
1024 { return Node6 (Id); }
1025
1026 INLINE N Freeze_Node (E Id)
1027 { return Node7 (Id); }
1028
1029 INLINE B From_With_Type (E Id)
1030 { return Flag159 (Id); }
1031
1032 INLINE E Full_View (E Id)
1033 { return Node11 (Id); }
1034
1035 INLINE B Function_Returns_With_DSP (E Id)
1036 { return Flag169 (Id); }
1037
1038 INLINE L Generic_Renamings (E Id)
1039 { return Elist23 (Id); }
1040
1041 INLINE L Girder_Constraint (E Id)
1042 { return Elist23 (Id); }
1043
1044 INLINE S Handler_Records (E Id)
1045 { return List10 (Id); }
1046
1047 INLINE B Has_Aliased_Components (E Id)
1048 { return Flag135 (Implementation_Base_Type (Id)); }
1049
1050 INLINE B Has_Alignment_Clause (E Id)
1051 { return Flag46 (Id); }
1052
1053 INLINE B Has_All_Calls_Remote (E Id)
1054 { return Flag79 (Id); }
1055
1056 INLINE B Has_Atomic_Components (E Id)
1057 { return Flag86 (Implementation_Base_Type (Id)); }
1058
1059 INLINE B Has_Biased_Representation (E Id)
1060 { return Flag139 (Id); }
1061
1062 INLINE B Has_Completion (E Id)
1063 { return Flag26 (Id); }
1064
1065 INLINE B Has_Completion_In_Body (E Id)
1066 { return Flag71 (Id); }
1067
1068 INLINE B Has_Complex_Representation (E Id)
1069 { return Flag140 (Implementation_Base_Type (Id)); }
1070
1071 INLINE B Has_Component_Size_Clause (E Id)
1072 { return Flag68 (Implementation_Base_Type (Id)); }
1073
1074 INLINE B Has_Controlled_Component (E Id)
1075 { return Flag43 (Base_Type (Id)); }
1076
1077 INLINE B Has_Controlling_Result (E Id)
1078 { return Flag98 (Id); }
1079
1080 INLINE B Has_Convention_Pragma (E Id)
1081 { return Flag119 (Id); }
1082
1083 INLINE B Has_Delayed_Freeze (E Id)
1084 { return Flag18 (Id); }
1085
1086 INLINE B Has_Discriminants (E Id)
1087 { return Flag5 (Id); }
1088
1089 INLINE B Has_Enumeration_Rep_Clause (E Id)
1090 { return Flag66 (Id); }
1091
1092 INLINE B Has_Exit (E Id)
1093 { return Flag47 (Id); }
1094
1095 INLINE B Has_External_Tag_Rep_Clause (E Id)
1096 { return Flag110 (Id); }
1097
1098 INLINE B Has_Forward_Instantiation (E Id)
1099 { return Flag175 (Id); }
1100
1101 INLINE B Has_Fully_Qualified_Name (E Id)
1102 { return Flag173 (Id); }
1103
1104 INLINE B Has_Gigi_Rep_Item (E Id)
1105 { return Flag82 (Id); }
1106
1107 INLINE B Has_Homonym (E Id)
1108 { return Flag56 (Id); }
1109
1110 INLINE B Has_Machine_Radix_Clause (E Id)
1111 { return Flag83 (Id); }
1112
1113 INLINE B Has_Master_Entity (E Id)
1114 { return Flag21 (Id); }
1115
1116 INLINE B Has_Missing_Return (E Id)
1117 { return Flag142 (Id); }
1118
1119 INLINE B Has_Nested_Block_With_Handler (E Id)
1120 { return Flag101 (Id); }
1121
1122 INLINE B Has_Non_Standard_Rep (E Id)
1123 { return Flag75 (Implementation_Base_Type (Id)); }
1124
1125 INLINE B Has_Object_Size_Clause (E Id)
1126 { return Flag172 (Id); }
1127
1128 INLINE B Has_Per_Object_Constraint (E Id)
1129 { return Flag154 (Id); }
1130
1131 INLINE B Has_Pragma_Controlled (E Id)
1132 { return Flag27 (Implementation_Base_Type (Id)); }
1133
1134 INLINE B Has_Pragma_Elaborate_Body (E Id)
1135 { return Flag150 (Id); }
1136
1137 INLINE B Has_Pragma_Inline (E Id)
1138 { return Flag157 (Id); }
1139
1140 INLINE B Has_Pragma_Pack (E Id)
1141 { return Flag121 (Implementation_Base_Type (Id)); }
1142
1143 INLINE B Has_Pragma_Pure_Function (E Id)
1144 { return Flag179 (Id); }
1145
1146 INLINE B Has_Pragma_Unreferenced (E Id)
1147 { return Flag180 (Id); }
1148
1149 INLINE B Has_Primitive_Operations (E Id)
1150 { return Flag120 (Base_Type (Id)); }
1151
1152 INLINE B Has_Private_Declaration (E Id)
1153 { return Flag155 (Id); }
1154
1155 INLINE B Has_Qualified_Name (E Id)
1156 { return Flag161 (Id); }
1157
1158 INLINE B Has_Record_Rep_Clause (E Id)
1159 { return Flag65 (Implementation_Base_Type (Id)); }
1160
1161 INLINE B Has_Recursive_Call (E Id)
1162 { return Flag143 (Id); }
1163
1164 INLINE B Has_Size_Clause (E Id)
1165 { return Flag29 (Id); }
1166
1167 INLINE B Has_Small_Clause (E Id)
1168 { return Flag67 (Id); }
1169
1170 INLINE B Has_Specified_Layout (E Id)
1171 { return Flag100 (Implementation_Base_Type (Id)); }
1172
1173 INLINE B Has_Storage_Size_Clause (E Id)
1174 { return Flag23 (Implementation_Base_Type (Id)); }
1175
1176 INLINE B Has_Subprogram_Descriptor (E Id)
1177 { return Flag93 (Id); }
1178
1179 INLINE B Has_Task (E Id)
1180 { return Flag30 (Base_Type (Id)); }
1181
1182 INLINE B Has_Unchecked_Union (E Id)
1183 { return Flag123 (Base_Type (Id)); }
1184
1185 INLINE B Has_Unknown_Discriminants (E Id)
1186 { return Flag72 (Id); }
1187
1188 INLINE B Has_Volatile_Components (E Id)
1189 { return Flag87 (Implementation_Base_Type (Id)); }
1190
1191 INLINE E Hiding_Loop_Variable (E Id)
1192 { return Node8 (Id); }
1193
1194 INLINE E Homonym (E Id)
1195 { return Node4 (Id); }
1196
1197 INLINE B In_Package_Body (E Id)
1198 { return Flag48 (Id); }
1199
1200 INLINE B In_Private_Part (E Id)
1201 { return Flag45 (Id); }
1202
1203 INLINE B In_Use (E Id)
1204 { return Flag8 (Id); }
1205
1206 INLINE L Inner_Instances (E Id)
1207 { return Elist23 (Id); }
1208
1209 INLINE N Interface_Name (E Id)
1210 { return Node21 (Id); }
1211
1212 INLINE B Is_Abstract (E Id)
1213 { return Flag19 (Id); }
1214
1215 INLINE B Is_Access_Constant (E Id)
1216 { return Flag69 (Id); }
1217
1218 INLINE B Is_Aliased (E Id)
1219 { return Flag15 (Id); }
1220
1221 INLINE B Is_AST_Entry (E Id)
1222 { return Flag132 (Id); }
1223
1224 INLINE B Is_Asynchronous (E Id)
1225 { return Flag81 (Id); }
1226
1227 INLINE B Is_Atomic (E Id)
1228 { return Flag85 (Id); }
1229
1230 INLINE B Is_Bit_Packed_Array (E Id)
1231 { return Flag122 (Implementation_Base_Type (Id)); }
1232
1233 INLINE B Is_Called (E Id)
1234 { return Flag102 (Id); }
1235
1236 INLINE B Is_Character_Type (E Id)
1237 { return Flag63 (Id); }
1238
1239 INLINE B Is_Child_Unit (E Id)
1240 { return Flag73 (Id); }
1241
1242 INLINE B Is_Compilation_Unit (E Id)
1243 { return Flag149 (Id); }
1244
1245 INLINE B Is_Completely_Hidden (E Id)
1246 { return Flag103 (Id); }
1247
1248 INLINE B Is_Constr_Subt_For_U_Nominal (E Id)
1249 { return Flag80 (Id); }
1250
1251 INLINE B Is_Constr_Subt_For_UN_Aliased (E Id)
1252 { return Flag141 (Id); }
1253
1254 INLINE B Is_Constrained (E Id)
1255 { return Flag12 (Id); }
1256
1257 INLINE B Is_Constructor (E Id)
1258 { return Flag76 (Id); }
1259
1260 INLINE B Is_Controlled (E Id)
1261 { return Flag42 (Base_Type (Id)); }
1262
1263 INLINE B Is_Controlling_Formal (E Id)
1264 { return Flag97 (Id); }
1265
1266 INLINE B Is_CPP_Class (E Id)
1267 { return Flag74 (Id); }
1268
1269 INLINE B Is_Destructor (E Id)
1270 { return Flag77 (Id); }
1271
1272 INLINE B Is_Discrim_SO_Function (E Id)
1273 { return Flag176 (Id); }
1274
1275 INLINE B Is_Dispatching_Operation (E Id)
1276 { return Flag6 (Id); }
1277
1278 INLINE B Is_Eliminated (E Id)
1279 { return Flag124 (Id); }
1280
1281 INLINE B Is_Entry_Formal (E Id)
1282 { return Flag52 (Id); }
1283
1284 INLINE B Is_Exported (E Id)
1285 { return Flag99 (Id); }
1286
1287 INLINE B Is_First_Subtype (E Id)
1288 { return Flag70 (Id); }
1289
1290 INLINE B Is_For_Access_Subtype (E Id)
1291 { return Flag118 (Id); }
1292
1293 INLINE B Is_Formal_Subprogram (E Id)
1294 { return Flag111 (Id); }
1295
1296 INLINE B Is_Frozen (E Id)
1297 { return Flag4 (Id); }
1298
1299 INLINE B Is_Generic_Actual_Type (E Id)
1300 { return Flag94 (Id); }
1301
1302 INLINE B Is_Generic_Instance (E Id)
1303 { return Flag130 (Id); }
1304
1305 INLINE B Is_Generic_Type (E Id)
1306 { return Flag13 (Id); }
1307
1308 INLINE B Is_Hidden (E Id)
1309 { return Flag57 (Id); }
1310
1311 INLINE B Is_Hidden_Open_Scope (E Id)
1312 { return Flag171 (Id); }
1313
1314 INLINE B Is_Immediately_Visible (E Id)
1315 { return Flag7 (Id); }
1316
1317 INLINE B Is_Imported (E Id)
1318 { return Flag24 (Id); }
1319
1320 INLINE B Is_Inlined (E Id)
1321 { return Flag11 (Id); }
1322
1323 INLINE B Is_Instantiated (E Id)
1324 { return Flag126 (Id); }
1325
1326 INLINE B Is_Internal (E Id)
1327 { return Flag17 (Id); }
1328
1329 INLINE B Is_Interrupt_Handler (E Id)
1330 { return Flag89 (Id); }
1331
1332 INLINE B Is_Intrinsic_Subprogram (E Id)
1333 { return Flag64 (Id); }
1334
1335 INLINE B Is_Itype (E Id)
1336 { return Flag91 (Id); }
1337
1338 INLINE B Is_Known_Valid (E Id)
1339 { return Flag170 (Id); }
1340
1341 INLINE B Is_Limited_Composite (E Id)
1342 { return Flag106 (Id); }
1343
1344 INLINE B Is_Limited_Record (E Id)
1345 { return Flag25 (Id); }
1346
1347 INLINE B Is_Machine_Code_Subprogram (E Id)
1348 { return Flag137 (Id); }
1349
1350 INLINE B Is_Non_Static_Subtype (E Id)
1351 { return Flag109 (Id); }
1352
1353 INLINE B Is_Null_Init_Proc (E Id)
1354 { return Flag178 (Id); }
1355
1356 INLINE B Is_Optional_Parameter (E Id)
1357 { return Flag134 (Id); }
1358
1359 INLINE B Is_Package_Body_Entity (E Id)
1360 { return Flag160 (Id); }
1361
1362 INLINE B Is_Packed (E Id)
1363 { return Flag51 (Implementation_Base_Type (Id)); }
1364
1365 INLINE B Is_Packed_Array_Type (E Id)
1366 { return Flag138 (Id); }
1367
1368 INLINE B Is_Potentially_Use_Visible (E Id)
1369 { return Flag9 (Id); }
1370
1371 INLINE B Is_Preelaborated (E Id)
1372 { return Flag59 (Id); }
1373
1374 INLINE B Is_Private_Composite (E Id)
1375 { return Flag107 (Id); }
1376
1377 INLINE B Is_Private_Descendant (E Id)
1378 { return Flag53 (Id); }
1379
1380 INLINE B Is_Psected (E Id)
1381 { return Flag153 (Id); }
1382
1383 INLINE B Is_Public (E Id)
1384 { return Flag10 (Id); }
1385
1386 INLINE B Is_Pure (E Id)
1387 { return Flag44 (Id); }
1388
1389 INLINE B Is_Remote_Call_Interface (E Id)
1390 { return Flag62 (Id); }
1391
1392 INLINE B Is_Remote_Types (E Id)
1393 { return Flag61 (Id); }
1394
1395 INLINE B Is_Renaming_Of_Object (E Id)
1396 { return Flag112 (Id); }
1397
1398 INLINE B Is_Shared_Passive (E Id)
1399 { return Flag60 (Id); }
1400
1401 INLINE B Is_Statically_Allocated (E Id)
1402 { return Flag28 (Id); }
1403
1404 INLINE B Is_Tag (E Id)
1405 { return Flag78 (Id); }
1406
1407 INLINE B Is_Tagged_Type (E Id)
1408 { return Flag55 (Id); }
1409
1410 INLINE B Is_True_Constant (E Id)
1411 { return Flag163 (Id); }
1412
1413 INLINE B Is_Unchecked_Union (E Id)
1414 { return Flag117 (Id); }
1415
1416 INLINE B Is_Unsigned_Type (E Id)
1417 { return Flag144 (Id); }
1418
1419 INLINE B Is_Valued_Procedure (E Id)
1420 { return Flag127 (Id); }
1421
1422 INLINE B Is_Visible_Child_Unit (E Id)
1423 { return Flag116 (Id); }
1424
1425 INLINE B Is_VMS_Exception (E Id)
1426 { return Flag133 (Id); }
1427
1428 INLINE B Is_Volatile (E Id)
1429 { return Flag16 (Id); }
1430
1431 INLINE E Last_Entity (E Id)
1432 { return Node20 (Id); }
1433
1434 INLINE E Lit_Indexes (E Id)
1435 { return Node15 (Id); }
1436
1437 INLINE E Lit_Strings (E Id)
1438 { return Node16 (Id); }
1439
1440 INLINE B Machine_Radix_10 (E Id)
1441 { return Flag84 (Id); }
1442
1443 INLINE E Master_Id (E Id)
1444 { return Node17 (Id); }
1445
1446 INLINE B Materialize_Entity (E Id)
1447 { return Flag168 (Id); }
1448
1449 INLINE M Mechanism (E Id)
1450 { return UI_To_Int (Uint8 (Id)); }
1451
1452 INLINE Uint Modulus (E Id)
1453 { return Uint17 (Base_Type (Id)); }
1454
1455 INLINE B Needs_Debug_Info (E Id)
1456 { return Flag147 (Id); }
1457
1458 INLINE B Needs_No_Actuals (E Id)
1459 { return Flag22 (Id); }
1460
1461 INLINE E Next_Inlined_Subprogram (E Id)
1462 { return Node12 (Id); }
1463
1464 INLINE B No_Pool_Assigned (E Id)
1465 { return Flag131 (Root_Type (Id)); }
1466
1467 INLINE B No_Return (E Id)
1468 { return Flag113 (Id); }
1469
1470 INLINE B Non_Binary_Modulus (E Id)
1471 { return Flag58 (Base_Type (Id)); }
1472
1473 INLINE B Nonzero_Is_True (E Id)
1474 { return Flag162 (Base_Type (Id)); }
1475
1476 INLINE U Normalized_First_Bit (E Id)
1477 { return Uint8 (Id); }
1478
1479 INLINE U Normalized_Position (E Id)
1480 { return Uint9 (Id); }
1481
1482 INLINE U Normalized_Position_Max (E Id)
1483 { return Uint10 (Id); }
1484
1485 INLINE B Not_Source_Assigned (E Id)
1486 { return Flag115 (Id); }
1487
1488 INLINE E Object_Ref (E Id)
1489 { return Node17 (Id); }
1490
1491 INLINE E Original_Array_Type (E Id)
1492 { return Node21 (Id); }
1493
1494 INLINE E Original_Record_Component (E Id)
1495 { return Node22 (Id); }
1496
1497 INLINE E Packed_Array_Type (E Id)
1498 { return Node23 (Id); }
1499
1500 INLINE E Parent_Subtype (E Id)
1501 { return Node19 (Id); }
1502
1503 INLINE L Primitive_Operations (E Id)
1504 { return Elist15 (Id); }
1505
1506 INLINE E Prival (E Id)
1507 { return Node17 (Id); }
1508
1509 INLINE L Privals_Chain (E Id)
1510 { return Elist23 (Id); }
1511
1512 INLINE L Private_Dependents (E Id)
1513 { return Elist18 (Id); }
1514
1515 INLINE N Private_View (E Id)
1516 { return Node22 (Id); }
1517
1518 INLINE E Protected_Body_Subprogram (E Id)
1519 { return Node11 (Id); }
1520
1521 INLINE E Protected_Formal (E Id)
1522 { return Node22 (Id); }
1523
1524 INLINE N Protected_Operation (E Id)
1525 { return Node23 (Id); }
1526
1527 INLINE B Reachable (E Id)
1528 { return Flag49 (Id); }
1529
1530 INLINE B Referenced (E Id)
1531 { return Flag156 (Id); }
1532
1533 INLINE N Referenced_Object (E Id)
1534 { return Node10 (Id); }
1535
1536 INLINE N Register_Exception_Call (E Id)
1537 { return Node20 (Id); }
1538
1539 INLINE E Related_Array_Object (E Id)
1540 { return Node19 (Id); }
1541
1542 INLINE E Related_Instance (E Id)
1543 { return Node15 (Id); }
1544
1545 INLINE N Renamed_Entity (E Id)
1546 { return Node18 (Id); }
1547
1548 INLINE N Renamed_Object (E Id)
1549 { return Node18 (Id); }
1550
1551 INLINE U Renaming_Map (E Id)
1552 { return Uint9 (Id); }
1553
1554 INLINE B Return_Present (E Id)
1555 { return Flag54 (Id); }
1556
1557 INLINE B Returns_By_Ref (E Id)
1558 { return Flag90 (Id); }
1559
1560 INLINE B Reverse_Bit_Order (E Id)
1561 { return Flag164 (Base_Type (Id)); }
1562
1563 INLINE U RM_Size (E Id)
1564 { return Uint13 (Id); }
1565
1566 INLINE N Scalar_Range (E Id)
1567 { return Node20 (Id); }
1568
1569 INLINE U Scale_Value (E Id)
1570 { return Uint15 (Id); }
1571
1572 INLINE U Scope_Depth_Value (E Id)
1573 { return Uint22 (Id); }
1574
1575 INLINE B Sec_Stack_Needed_For_Return (E Id)
1576 { return Flag167 (Id); }
1577
1578 INLINE S Shadow_Entities (E Id)
1579 { return List14 (Id); }
1580
1581 INLINE E Shared_Var_Assign_Proc (E Id)
1582 { return Node22 (Id); }
1583
1584 INLINE E Shared_Var_Read_Proc (E Id)
1585 { return Node15 (Id); }
1586
1587 INLINE N Size_Check_Code (E Id)
1588 { return Node9 (Id); }
1589
1590 INLINE B Size_Depends_On_Discriminant (E Id)
1591 { return Flag177 (Id); }
1592
1593 INLINE B Size_Known_At_Compile_Time (E Id)
1594 { return Flag92 (Id); }
1595
1596 INLINE R Small_Value (E Id)
1597 { return Ureal21 (Id); }
1598
1599 INLINE E Spec_Entity (E Id)
1600 { return Node19 (Id); }
1601
1602 INLINE E Storage_Size_Variable (E Id)
1603 { return Node15 (Implementation_Base_Type (Id)); }
1604
1605 INLINE B Strict_Alignment (E Id)
1606 { return Flag145 (Implementation_Base_Type (Id)); }
1607
1608 INLINE U String_Literal_Length (E Id)
1609 { return Uint16 (Id); }
1610
1611 INLINE N String_Literal_Low_Bound (E Id)
1612 { return Node15 (Id); }
1613
1614 INLINE B Suppress_Access_Checks (E Id)
1615 { return Flag31 (Id); }
1616
1617 INLINE B Suppress_Accessibility_Checks (E Id)
1618 { return Flag32 (Id); }
1619
1620 INLINE B Suppress_Discriminant_Checks (E Id)
1621 { return Flag33 (Id); }
1622
1623 INLINE B Suppress_Division_Checks (E Id)
1624 { return Flag34 (Id); }
1625
1626 INLINE B Suppress_Elaboration_Checks (E Id)
1627 { return Flag35 (Id); }
1628
1629 INLINE B Suppress_Elaboration_Warnings (E Id)
1630 { return Flag148 (Id); }
1631
1632 INLINE B Suppress_Index_Checks (E Id)
1633 { return Flag36 (Id); }
1634
1635 INLINE B Suppress_Init_Proc (E Id)
1636 { return Flag105 (Base_Type (Id)); }
1637
1638 INLINE B Suppress_Length_Checks (E Id)
1639 { return Flag37 (Id); }
1640
1641 INLINE B Suppress_Overflow_Checks (E Id)
1642 { return Flag38 (Id); }
1643
1644 INLINE B Suppress_Range_Checks (E Id)
1645 { return Flag39 (Id); }
1646
1647 INLINE B Suppress_Storage_Checks (E Id)
1648 { return Flag40 (Id); }
1649
1650 INLINE B Suppress_Style_Checks (E Id)
1651 { return Flag165 (Id); }
1652
1653 INLINE B Suppress_Tag_Checks (E Id)
1654 { return Flag41 (Id); }
1655
1656 INLINE E Underlying_Full_View (E Id)
1657 { return Node19 (Id); }
1658
1659 INLINE N Unset_Reference (E Id)
1660 { return Node16 (Id); }
1661
1662 INLINE B Uses_Sec_Stack (E Id)
1663 { return Flag95 (Id); }
1664
1665 INLINE B Vax_Float (E Id)
1666 { return Flag151 (Base_Type (Id)); }
1667
1668 INLINE B Warnings_Off (E Id)
1669 { return Flag96 (Id); }
1670
1671 INLINE B Is_Access_Type (E Id)
1672 { return IN (Ekind (Id), Access_Kind); }
1673
1674 INLINE B Is_Array_Type (E Id)
1675 { return IN (Ekind (Id), Array_Kind); }
1676
1677 INLINE B Is_Class_Wide_Type (E Id)
1678 { return IN (Ekind (Id), Class_Wide_Kind); }
1679
1680 INLINE B Is_Composite_Type (E Id)
1681 { return IN (Ekind (Id), Composite_Kind); }
1682
1683 INLINE B Is_Concurrent_Body (E Id)
1684 { return IN (Ekind (Id), Concurrent_Body_Kind); }
1685
1686 INLINE B Is_Concurrent_Record_Type (E Id)
1687 { return Flag20 (Id); }
1688
1689 INLINE B Is_Concurrent_Type (E Id)
1690 { return IN (Ekind (Id), Concurrent_Kind); }
1691
1692 INLINE B Is_Decimal_Fixed_Point_Type (E Id)
1693 { return IN (Ekind (Id), Decimal_Fixed_Point_Kind); }
1694
1695 INLINE B Is_Digits_Type (E Id)
1696 { return IN (Ekind (Id), Digits_Kind); }
1697
1698 INLINE B Is_Discrete_Or_Fixed_Point_Type (E Id)
1699 { return IN (Ekind (Id), Discrete_Or_Fixed_Point_Kind); }
1700
1701 INLINE B Is_Discrete_Type (E Id)
1702 { return IN (Ekind (Id), Discrete_Kind); }
1703
1704 INLINE B Is_Elementary_Type (E Id)
1705 { return IN (Ekind (Id), Elementary_Kind); }
1706
1707 INLINE B Is_Entry (E Id)
1708 { return IN (Ekind (Id), Entry_Kind); }
1709
1710 INLINE B Is_Enumeration_Type (E Id)
1711 { return IN (Ekind (Id), Enumeration_Kind); }
1712
1713 INLINE B Is_Fixed_Point_Type (E Id)
1714 { return IN (Ekind (Id), Fixed_Point_Kind); }
1715
1716 INLINE B Is_Floating_Point_Type (E Id)
1717 { return IN (Ekind (Id), Float_Kind); }
1718
1719 INLINE B Is_Formal (E Id)
1720 { return IN (Ekind (Id), Formal_Kind); }
1721
1722 INLINE B Is_Generic_Unit (E Id)
1723 { return IN (Ekind (Id), Generic_Unit_Kind); }
1724
1725 INLINE B Is_Incomplete_Or_Private_Type (E Id)
1726 { return IN (Ekind (Id), Incomplete_Or_Private_Kind); }
1727
1728 INLINE B Is_Integer_Type (E Id)
1729 { return IN (Ekind (Id), Integer_Kind); }
1730
1731 INLINE B Is_Modular_Integer_Type (E Id)
1732 { return IN (Ekind (Id), Modular_Integer_Kind); }
1733
1734 INLINE B Is_Named_Number (E Id)
1735 { return IN (Ekind (Id), Named_Kind); }
1736
1737 INLINE B Is_Numeric_Type (E Id)
1738 { return IN (Ekind (Id), Numeric_Kind); }
1739
1740 INLINE B Is_Object (E Id)
1741 { return IN (Ekind (Id), Object_Kind); }
1742
1743 INLINE B Is_Ordinary_Fixed_Point_Type (E Id)
1744 { return IN (Ekind (Id), Ordinary_Fixed_Point_Kind); }
1745
1746 INLINE B Is_Overloadable (E Id)
1747 { return IN (Ekind (Id), Overloadable_Kind); }
1748
1749 INLINE B Is_Private_Type (E Id)
1750 { return IN (Ekind (Id), Private_Kind); }
1751
1752 INLINE B Is_Protected_Type (E Id)
1753 { return IN (Ekind (Id), Protected_Kind); }
1754
1755 INLINE B Is_Real_Type (E Id)
1756 { return IN (Ekind (Id), Real_Kind); }
1757
1758 INLINE B Is_Record_Type (E Id)
1759 { return IN (Ekind (Id), Record_Kind); }
1760
1761 INLINE B Is_Scalar_Type (E Id)
1762 { return IN (Ekind (Id), Scalar_Kind); }
1763
1764 INLINE B Is_Signed_Integer_Type (E Id)
1765 { return IN (Ekind (Id), Signed_Integer_Kind); }
1766
1767 INLINE B Is_Subprogram (E Id)
1768 { return IN (Ekind (Id), Subprogram_Kind); }
1769
1770 INLINE B Is_Task_Type (E Id)
1771 { return IN (Ekind (Id), Task_Kind); }
1772
1773 INLINE B Is_Type (E Id)
1774 { return IN (Ekind (Id), Type_Kind); }
1775
1776 INLINE N Entry_Index_Type (E Id)
1777 { return Etype (Discrete_Subtype_Definition (Parent (Id))); }
1778
1779 INLINE Node_Id Next_Index (Node_Id Id)
1780 { return Next (Id); }
1781
1782 INLINE E Next_Literal (E Id)
1783 { return Next (Id); }
1784
1785 INLINE Formal_Kind Parameter_Mode (E Id)
1786 { return Ekind (Id); }
1787
1788 /* End of einfo.h (C version of Einfo package specification) */
Mirror of the offical gcc git repository hosted at gcc.gnu.org