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