1 /****************************************************************************
3 * GNAT COMPILER COMPONENTS *
9 * Copyright (C) 1992-2022, Free Software Foundation, Inc. *
11 * GNAT is free software; you can redistribute it and/or modify it under *
12 * terms of the GNU General Public License as published by the Free Soft- *
13 * ware Foundation; either version 3, or (at your option) any later ver- *
14 * sion. GNAT is distributed in the hope that it will be useful, but WITH- *
15 * OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY *
16 * or FITNESS FOR A PARTICULAR PURPOSE. *
18 * As a special exception under Section 7 of GPL version 3, you are granted *
19 * additional permissions described in the GCC Runtime Library Exception, *
20 * version 3.1, as published by the Free Software Foundation. *
22 * You should have received a copy of the GNU General Public License and *
23 * a copy of the GCC Runtime Library Exception along with this program; *
24 * see the files COPYING3 and COPYING.RUNTIME respectively. If not, see *
25 * <http://www.gnu.org/licenses/>. *
27 * GNAT was originally developed by the GNAT team at New York University. *
28 * Extensive contributions were provided by Ada Core Technologies Inc. *
30 ****************************************************************************/
32 /* This is the C header that contains the declarations of Ada subprograms and
33 variables used by gigi and not declared in other C header files. It was
34 created manually from Ada specifications. The original Ada declarations
35 in these specifications must be marked with:
37 "WARNING: There is a matching C declaration of this <entity_kind> in fe.h"
39 where <entity_kind> is either "subprogram" or "variable" or "type".
41 WARNING: functions taking String_Pointer parameters must abide by the rule
42 documented alongside the definition of String_Pointer in types.h. */
50 #define Serious_Errors_Detected atree__serious_errors_detected
52 extern Nat Serious_Errors_Detected
;
56 #define Compiler_Abort comperr__compiler_abort
58 extern void Compiler_Abort (String_Pointer
, String_Pointer
, Boolean
) ATTRIBUTE_NORETURN
;
62 #define Debug_Flag_Dot_KK debug__debug_flag_dot_kk
63 #define Debug_Flag_Dot_R debug__debug_flag_dot_r
64 #define Debug_Flag_Dot_8 debug__debug_flag_dot_8
65 #define Debug_Flag_NN debug__debug_flag_nn
67 extern Boolean Debug_Flag_Dot_KK
;
68 extern Boolean Debug_Flag_Dot_R
;
69 extern Boolean Debug_Flag_Dot_8
;
70 extern Boolean Debug_Flag_NN
;
74 /* Valid_Uint is used to preserve the old behavior of Esize and
75 friends, where Uint_0 was the default. All calls to this
80 return X
== No_Uint
? Uint_0
: X
;
83 #define Set_Alignment einfo__entities__set_alignment
84 #define Set_Component_Bit_Offset einfo__entities__set_component_bit_offset
85 #define Set_Component_Size einfo__entities__set_component_size
86 #define Set_Esize einfo__entities__set_esize
87 #define Set_Mechanism einfo__entities__set_mechanism
88 #define Set_Normalized_First_Bit einfo__entities__set_normalized_first_bit
89 #define Set_Normalized_Position einfo__entities__set_normalized_position
90 #define Set_RM_Size einfo__entities__set_rm_size
92 extern void Set_Alignment (Entity_Id
, Uint
);
93 extern void Set_Component_Bit_Offset (Entity_Id
, Uint
);
94 extern void Set_Component_Size (Entity_Id
, Uint
);
95 extern void Set_Esize (Entity_Id
, Uint
);
96 extern void Set_Mechanism (Entity_Id
, Mechanism_Type
);
97 extern void Set_Normalized_First_Bit (Entity_Id
, Uint
);
98 extern void Set_Normalized_Position (Entity_Id
, Uint
);
99 extern void Set_RM_Size (Entity_Id
, Uint
);
101 #define Is_Entity_Name einfo__utils__is_entity_name
103 extern Boolean
Is_Entity_Name (Node_Id
);
105 #define Get_Attribute_Definition_Clause einfo__utils__get_attribute_definition_clause
107 extern Node_Id
Get_Attribute_Definition_Clause (Entity_Id
, unsigned char);
111 #define Error_Msg_N errout__error_msg_n
112 #define Error_Msg_NE errout__error_msg_ne
113 #define Set_Identifier_Casing errout__set_identifier_casing
115 extern void Error_Msg_N (String_Pointer
, Node_Id
);
116 extern void Error_Msg_NE (String_Pointer
, Node_Id
, Entity_Id
);
117 extern void Set_Identifier_Casing (void *, const void *);
121 #define Error_Msg_Uint_1 err_vars__error_msg_uint_1
122 #define Error_Msg_Uint_2 err_vars__error_msg_uint_2
124 extern Uint Error_Msg_Uint_1
;
125 extern Uint Error_Msg_Uint_2
;
129 #define Get_Local_Raise_Call_Entity exp_ch11__get_local_raise_call_entity
130 #define Get_RT_Exception_Entity exp_ch11__get_rt_exception_entity
131 #define Get_RT_Exception_Name exp_ch11__get_rt_exception_name
132 #define Warn_If_No_Local_Raise exp_ch11__warn_if_no_local_raise
134 extern Entity_Id
Get_Local_Raise_Call_Entity (void);
135 extern Entity_Id
Get_RT_Exception_Entity (int);
136 extern void Get_RT_Exception_Name (enum RT_Exception_Code
);
137 extern void Warn_If_No_Local_Raise (int);
141 #define Asm_Input_Constraint exp_code__asm_input_constraint
142 #define Asm_Input_Value exp_code__asm_input_value
143 #define Asm_Output_Constraint exp_code__asm_output_constraint
144 #define Asm_Output_Variable exp_code__asm_output_variable
145 #define Asm_Template exp_code__asm_template
146 #define Clobber_Get_Next exp_code__clobber_get_next
147 #define Clobber_Setup exp_code__clobber_setup
148 #define Is_Asm_Volatile exp_code__is_asm_volatile
149 #define Next_Asm_Input exp_code__next_asm_input
150 #define Next_Asm_Output exp_code__next_asm_output
151 #define Setup_Asm_Inputs exp_code__setup_asm_inputs
152 #define Setup_Asm_Outputs exp_code__setup_asm_outputs
154 extern Node_Id
Asm_Input_Constraint (void);
155 extern Node_Id
Asm_Input_Value (void);
156 extern Node_Id
Asm_Output_Constraint (void);
157 extern Node_Id
Asm_Output_Variable (void);
158 extern Node_Id
Asm_Template (Node_Id
);
159 extern void *Clobber_Get_Next (void);
160 extern void Clobber_Setup (Node_Id
);
161 extern Boolean
Is_Asm_Volatile (Node_Id
);
162 extern void Next_Asm_Input (void);
163 extern void Next_Asm_Output (void);
164 extern void Setup_Asm_Inputs (Node_Id
);
165 extern void Setup_Asm_Outputs (Node_Id
);
169 #define Get_Encoded_Name exp_dbug__get_encoded_name
170 #define Get_External_Name exp_dbug__get_external_name
171 #define Get_Variant_Encoding exp_dbug__get_variant_encoding
173 extern void Get_Encoded_Name (Entity_Id
);
174 extern void Get_External_Name (Entity_Id
, Boolean
, String_Pointer
);
175 extern void Get_Variant_Encoding (Entity_Id
);
179 #define Is_Init_Proc exp_tss__is_init_proc
181 extern Boolean
Is_Init_Proc (Entity_Id
);
185 #define Find_Interface_Tag exp_util__find_interface_tag
186 #define Is_Fully_Repped_Tagged_Type exp_util__is_fully_repped_tagged_type
187 #define Is_Related_To_Func_Return exp_util__is_related_to_func_return
188 #define Is_Secondary_Stack_Thunk exp_util__is_secondary_stack_thunk
189 #define Thunk_Target exp_util__thunk_target
191 extern Entity_Id
Find_Interface_Tag (Entity_Id
, Entity_Id
);
192 extern Boolean
Is_Fully_Repped_Tagged_Type (Entity_Id
);
193 extern Boolean
Is_Related_To_Func_Return (Entity_Id
);
194 extern Boolean
Is_Secondary_Stack_Thunk (Entity_Id
);
195 extern Entity_Id
Thunk_Target (Entity_Id
);
199 #define Cunit lib__cunit
200 #define Ident_String lib__ident_string
201 #define In_Extended_Main_Code_Unit lib__in_extended_main_code_unit
203 extern Node_Id
Cunit (Unit_Number_Type
);
204 extern Node_Id
Ident_String (Unit_Number_Type
);
205 extern Boolean
In_Extended_Main_Code_Unit (Entity_Id
);
209 #define Ada_Version opt__ada_version
210 #define Back_End_Inlining opt__back_end_inlining
211 #define Debug_Generated_Code opt__debug_generated_code
212 #define Enable_128bit_Types opt__enable_128bit_types
213 #define Exception_Extra_Info opt__exception_extra_info
214 #define Exception_Locations_Suppressed opt__exception_locations_suppressed
215 #define Generate_SCO_Instance_Table opt__generate_sco_instance_table
216 #define GNAT_Mode opt__gnat_mode
217 #define List_Representation_Info opt__list_representation_info
218 #define No_Strict_Aliasing_CP opt__no_strict_aliasing
219 #define Suppress_Checks opt__suppress_checks
222 Ada_83
, Ada_95
, Ada_2005
, Ada_2012
, Ada_2022
, Ada_With_Extensions
225 extern Ada_Version_Type Ada_Version
;
226 extern Boolean Back_End_Inlining
;
227 extern Boolean Debug_Generated_Code
;
228 extern Boolean Enable_128bit_Types
;
229 extern Boolean Exception_Extra_Info
;
230 extern Boolean Exception_Locations_Suppressed
;
231 extern Boolean Generate_SCO_Instance_Table
;
232 extern Boolean GNAT_Mode
;
233 extern Int List_Representation_Info
;
234 extern Boolean No_Strict_Aliasing_CP
;
235 extern Boolean Suppress_Checks
;
237 #define ZCX_Exceptions opt__zcx_exceptions
238 #define SJLJ_Exceptions opt__sjlj_exceptions
240 extern Boolean
ZCX_Exceptions (void);
241 extern Boolean
SJLJ_Exceptions (void);
245 #define Check_Elaboration_Code_Allowed \
246 restrict__check_elaboration_code_allowed
247 #define Check_Implicit_Dynamic_Code_Allowed \
248 restrict__check_implicit_dynamic_code_allowed
249 #define Check_No_Implicit_Heap_Alloc \
250 restrict__check_no_implicit_heap_alloc
251 #define Check_No_Implicit_Protected_Alloc \
252 restrict__check_no_implicit_protected_alloc
253 #define Check_No_Implicit_Task_Alloc \
254 restrict__check_no_implicit_task_alloc
255 #define No_Exception_Handlers_Set \
256 restrict__no_exception_handlers_set
257 #define No_Exception_Propagation_Active \
258 restrict__no_exception_propagation_active
260 extern void Check_Elaboration_Code_Allowed (Node_Id
);
261 extern void Check_Implicit_Dynamic_Code_Allowed (Node_Id
);
262 extern void Check_No_Implicit_Heap_Alloc (Node_Id
);
263 extern void Check_No_Implicit_Protected_Alloc (Node_Id
);
264 extern void Check_No_Implicit_Task_Alloc (Node_Id
);
265 extern Boolean
No_Exception_Handlers_Set (void);
266 extern Boolean
No_Exception_Propagation_Active (void);
270 #define Is_Single_Aggregate sem_aggr__is_single_aggregate
272 extern Boolean
Is_Single_Aggregate (Node_Id
);
276 #define Ancestor_Subtype sem_aux__ancestor_subtype
277 #define Constant_Value sem_aux__constant_value
278 #define First_Discriminant sem_aux__first_discriminant
279 #define First_Stored_Discriminant sem_aux__first_stored_discriminant
280 #define First_Subtype sem_aux__first_subtype
281 #define Is_By_Reference_Type sem_aux__is_by_reference_type
282 #define Is_Derived_Type sem_aux__is_derived_type
284 extern Entity_Id
Ancestor_Subtype (Entity_Id
);
285 extern Node_Id
Constant_Value (Entity_Id
);
286 extern Entity_Id
First_Discriminant (Entity_Id
);
287 extern Entity_Id
First_Stored_Discriminant (Entity_Id
);
288 extern Entity_Id
First_Subtype (Entity_Id
);
289 extern Boolean
Is_By_Reference_Type (Entity_Id
);
290 extern Boolean
Is_Derived_Type (Entity_Id
);
294 #define Compile_Time_Known_Value sem_eval__compile_time_known_value
296 extern Boolean
Compile_Time_Known_Value (Node_Id
);
300 #define Defining_Entity sem_util__defining_entity
301 #define First_Actual sem_util__first_actual
302 #define Is_Expression_Function sem_util__is_expression_function
303 #define Is_Variable_Size_Record sem_util__is_variable_size_record
304 #define Needs_Secondary_Stack sem_util__needs_secondary_stack
305 #define Next_Actual sem_util__next_actual
307 extern Entity_Id
Defining_Entity (Node_Id
);
308 extern Node_Id
First_Actual (Node_Id
);
309 extern Boolean
Is_Expression_Function (Entity_Id
);
310 extern Boolean
Is_Variable_Size_Record (Entity_Id
);
311 extern Boolean
Needs_Secondary_Stack (Entity_Id
);
312 extern Node_Id
Next_Actual (Node_Id
);
316 #define End_Location sinfo__utils__end_location
317 #define Set_Has_No_Elaboration_Code sinfo__nodes__set_has_no_elaboration_code
318 #define Set_Present_Expr sinfo__nodes__set_present_expr
320 extern Source_Ptr
End_Location (Node_Id
);
321 extern void Set_Has_No_Elaboration_Code (Node_Id
, Boolean
);
322 extern void Set_Present_Expr (Node_Id
, Uint
);
326 #define Debug_Source_Name sinput__debug_source_name
327 #define Get_Column_Number sinput__get_column_number
328 #define Get_Logical_Line_Number sinput__get_logical_line_number
329 #define Get_Source_File_Index sinput__get_source_file_index
331 extern File_Name_Type
Debug_Source_Name (Source_File_Index
);
332 extern Column_Number_Type
Get_Column_Number (Source_Ptr
);
333 extern Line_Number_Type
Get_Logical_Line_Number (Source_Ptr
);
334 extern Source_File_Index
Get_Source_File_Index (Source_Ptr
);
338 #define Machine_Overflows_On_Target \
339 targparm__machine_overflows_on_target
340 #define Signed_Zeros_On_Target \
341 targparm__signed_zeros_on_target
342 #define Stack_Check_Limits_On_Target \
343 targparm__stack_check_limits_on_target
344 #define Stack_Check_Probes_On_Target \
345 targparm__stack_check_probes_on_target
347 extern Boolean Machine_Overflows_On_Target
;
348 extern Boolean Signed_Zeros_On_Target
;
349 extern Boolean Stack_Check_Limits_On_Target
;
350 extern Boolean Stack_Check_Probes_On_Target
;
354 #define Warn_On_Questionable_Layout warnsw__warn_on_questionable_layout
356 extern Boolean Warn_On_Questionable_Layout
;
358 // The following corresponds to Ada code in Einfo.Utils.
361 typedef Component_Alignment_Kind C
;
363 typedef Mechanism_Type M
;
370 #define Is_Access_Object_Type einfo__utils__is_access_object_type
371 B
Is_Access_Object_Type (E Id
);
373 #define Is_Named_Access_Type einfo__utils__is_named_access_type
374 B
Is_Named_Access_Type (E Id
);
376 #define Address_Clause einfo__utils__address_clause
377 N
Address_Clause (E Id
);
379 #define Aft_Value einfo__utils__aft_value
382 #define Alignment_Clause einfo__utils__alignment_clause
383 N
Alignment_Clause (E Id
);
385 #define Base_Type einfo__utils__base_type
388 #define Declaration_Node einfo__utils__declaration_node
389 N
Declaration_Node (E Id
);
391 #define Designated_Type einfo__utils__designated_type
392 E
Designated_Type (E Id
);
394 #define First_Component einfo__utils__first_component
395 E
First_Component (E Id
);
397 #define First_Component_Or_Discriminant einfo__utils__first_component_or_discriminant
398 E
First_Component_Or_Discriminant (E Id
);
400 #define First_Formal einfo__utils__first_formal
401 E
First_Formal (E Id
);
403 #define First_Formal_With_Extras einfo__utils__first_formal_with_extras
404 E
First_Formal_With_Extras (E Id
);
406 #define Has_Attach_Handler einfo__utils__has_attach_handler
407 B
Has_Attach_Handler (E Id
);
409 #define Has_Entries einfo__utils__has_entries
410 B
Has_Entries (E Id
);
412 #define Has_Foreign_Convention einfo__utils__has_foreign_convention
413 B
Has_Foreign_Convention (E Id
);
415 #define Has_Interrupt_Handler einfo__utils__has_interrupt_handler
416 B
Has_Interrupt_Handler (E Id
);
418 #define Has_Non_Limited_View einfo__utils__has_non_limited_view
419 B
Has_Non_Limited_View (E Id
);
421 #define Has_Non_Null_Abstract_State einfo__utils__has_non_null_abstract_state
422 B
Has_Non_Null_Abstract_State (E Id
);
424 #define Has_Non_Null_Visible_Refinement einfo__utils__has_non_null_visible_refinement
425 B
Has_Non_Null_Visible_Refinement (E Id
);
427 #define Has_Null_Abstract_State einfo__utils__has_null_abstract_state
428 B
Has_Null_Abstract_State (E Id
);
430 #define Has_Null_Visible_Refinement einfo__utils__has_null_visible_refinement
431 B
Has_Null_Visible_Refinement (E Id
);
433 #define Implementation_Base_Type einfo__utils__implementation_base_type
434 E
Implementation_Base_Type (E Id
);
436 #define Is_Base_Type einfo__utils__is_base_type
437 B
Is_Base_Type (E Id
);
439 #define Is_Boolean_Type einfo__utils__is_boolean_type
440 B
Is_Boolean_Type (E Id
);
442 #define Is_Constant_Object einfo__utils__is_constant_object
443 B
Is_Constant_Object (E Id
);
445 #define Is_Controlled einfo__utils__is_controlled
446 B
Is_Controlled (E Id
);
448 #define Is_Discriminal einfo__utils__is_discriminal
449 B
Is_Discriminal (E Id
);
451 #define Is_Dynamic_Scope einfo__utils__is_dynamic_scope
452 B
Is_Dynamic_Scope (E Id
);
454 #define Is_Elaboration_Target einfo__utils__is_elaboration_target
455 B
Is_Elaboration_Target (E Id
);
457 #define Is_External_State einfo__utils__is_external_state
458 B
Is_External_State (E Id
);
460 #define Is_Finalizer einfo__utils__is_finalizer
461 B
Is_Finalizer (E Id
);
463 #define Is_Null_State einfo__utils__is_null_state
464 B
Is_Null_State (E Id
);
466 #define Is_Package_Or_Generic_Package einfo__utils__is_package_or_generic_package
467 B
Is_Package_Or_Generic_Package (E Id
);
469 #define Is_Packed_Array einfo__utils__is_packed_array
470 B
Is_Packed_Array (E Id
);
472 #define Is_Prival einfo__utils__is_prival
475 #define Is_Protected_Component einfo__utils__is_protected_component
476 B
Is_Protected_Component (E Id
);
478 #define Is_Protected_Interface einfo__utils__is_protected_interface
479 B
Is_Protected_Interface (E Id
);
481 #define Is_Protected_Record_Type einfo__utils__is_protected_record_type
482 B
Is_Protected_Record_Type (E Id
);
484 #define Is_Relaxed_Initialization_State einfo__utils__is_relaxed_initialization_state
485 B
Is_Relaxed_Initialization_State (E Id
);
487 #define Is_Standard_Character_Type einfo__utils__is_standard_character_type
488 B
Is_Standard_Character_Type (E Id
);
490 #define Is_Standard_String_Type einfo__utils__is_standard_string_type
491 B
Is_Standard_String_Type (E Id
);
493 #define Is_String_Type einfo__utils__is_string_type
494 B
Is_String_Type (E Id
);
496 #define Is_Synchronized_Interface einfo__utils__is_synchronized_interface
497 B
Is_Synchronized_Interface (E Id
);
499 #define Is_Synchronized_State einfo__utils__is_synchronized_state
500 B
Is_Synchronized_State (E Id
);
502 #define Is_Task_Interface einfo__utils__is_task_interface
503 B
Is_Task_Interface (E Id
);
505 #define Is_Task_Record_Type einfo__utils__is_task_record_type
506 B
Is_Task_Record_Type (E Id
);
508 #define Is_Wrapper_Package einfo__utils__is_wrapper_package
509 B
Is_Wrapper_Package (E Id
);
511 #define Last_Formal einfo__utils__last_formal
512 E
Last_Formal (E Id
);
514 #define Machine_Emax_Value einfo__utils__machine_emax_value
515 U
Machine_Emax_Value (E Id
);
517 #define Machine_Emin_Value einfo__utils__machine_emin_value
518 U
Machine_Emin_Value (E Id
);
520 #define Machine_Mantissa_Value einfo__utils__machine_mantissa_value
521 U
Machine_Mantissa_Value (E Id
);
523 #define Machine_Radix_Value einfo__utils__machine_radix_value
524 U
Machine_Radix_Value (E Id
);
526 #define Model_Emin_Value einfo__utils__model_emin_value
527 U
Model_Emin_Value (E Id
);
529 #define Model_Epsilon_Value einfo__utils__model_epsilon_value
530 R
Model_Epsilon_Value (E Id
);
532 #define Model_Mantissa_Value einfo__utils__model_mantissa_value
533 U
Model_Mantissa_Value (E Id
);
535 #define Model_Small_Value einfo__utils__model_small_value
536 R
Model_Small_Value (E Id
);
538 #define Next_Component einfo__utils__next_component
539 E
Next_Component (E Id
);
541 #define Next_Component_Or_Discriminant einfo__utils__next_component_or_discriminant
542 E
Next_Component_Or_Discriminant (E Id
);
544 #define Next_Discriminant einfo__utils__next_discriminant
545 E
Next_Discriminant (E Id
);
547 #define Next_Formal einfo__utils__next_formal
548 E
Next_Formal (E Id
);
550 #define Next_Formal_With_Extras einfo__utils__next_formal_with_extras
551 E
Next_Formal_With_Extras (E Id
);
553 #define Number_Dimensions einfo__utils__number_dimensions
554 Pos
Number_Dimensions (E Id
);
556 #define Number_Entries einfo__utils__number_entries
557 Nat
Number_Entries (E Id
);
559 #define Number_Formals einfo__utils__number_formals
560 Pos
Number_Formals (E Id
);
562 #define Object_Size_Clause einfo__utils__object_size_clause
563 N
Object_Size_Clause (E Id
);
565 #define Partial_Refinement_Constituents einfo__utils__partial_refinement_constituents
566 L
Partial_Refinement_Constituents (E Id
);
568 #define Primitive_Operations einfo__utils__primitive_operations
569 L
Primitive_Operations (E Id
);
571 #define Root_Type einfo__utils__root_type
574 #define Safe_Emax_Value einfo__utils__safe_emax_value
575 U
Safe_Emax_Value (E Id
);
577 #define Safe_First_Value einfo__utils__safe_first_value
578 R
Safe_First_Value (E Id
);
580 #define Safe_Last_Value einfo__utils__safe_last_value
581 R
Safe_Last_Value (E Id
);
583 #define Scope_Depth einfo__utils__scope_depth
584 U
Scope_Depth (E Id
);
586 #define Scope_Depth_Set einfo__utils__scope_depth_set
587 B
Scope_Depth_Set (E Id
);
589 #define Size_Clause einfo__utils__size_clause
590 N
Size_Clause (E Id
);
592 #define Stream_Size_Clause einfo__utils__stream_size_clause
593 N
Stream_Size_Clause (E Id
);
595 #define Type_High_Bound einfo__utils__type_high_bound
596 N
Type_High_Bound (E Id
);
598 #define Type_Low_Bound einfo__utils__type_low_bound
599 N
Type_Low_Bound (E Id
);
601 #define Underlying_Type einfo__utils__underlying_type
602 E
Underlying_Type (E Id
);
604 #define Known_Alignment einfo__utils__known_alignment
605 B
Known_Alignment (Entity_Id E
);
607 #define Known_Component_Bit_Offset einfo__utils__known_component_bit_offset
608 B
Known_Component_Bit_Offset (Entity_Id E
);
610 #define Known_Component_Size einfo__utils__known_component_size
611 B
Known_Component_Size (Entity_Id E
);
613 #define Known_Esize einfo__utils__known_esize
614 B
Known_Esize (Entity_Id E
);
616 #define Known_Normalized_First_Bit einfo__utils__known_normalized_first_bit
617 B
Known_Normalized_First_Bit (Entity_Id E
);
619 #define Known_Normalized_Position einfo__utils__known_normalized_position
620 B
Known_Normalized_Position (Entity_Id E
);
622 #define Known_Normalized_Position_Max einfo__utils__known_normalized_position_max
623 B
Known_Normalized_Position_Max (Entity_Id E
);
625 #define Known_RM_Size einfo__utils__known_rm_size
626 B
Known_RM_Size (Entity_Id E
);
628 #define Copy_Alignment einfo__utils__copy_alignment
629 B
Copy_Alignment(Entity_Id To
, Entity_Id From
);
631 #define Copy_Esize einfo__utils__copy_esize
632 B
Copy_Esize(Entity_Id To
, Entity_Id From
);
634 #define Copy_RM_Size einfo__utils__copy_rm_size
635 B
Copy_RM_Size(Entity_Id To
, Entity_Id From
);
637 #define Is_Discrete_Or_Fixed_Point_Type einfo__utils__is_discrete_or_fixed_point_type
638 B
Is_Discrete_Or_Fixed_Point_Type (E Id
);
640 #define Is_Floating_Point_Type einfo__utils__is_floating_point_type
641 B
Is_Floating_Point_Type (E Id
);
643 #define Is_Record_Type einfo__utils__is_record_type
644 B
Is_Record_Type (E Id
);
646 #define Is_Full_Access einfo__utils__is_full_access
647 B
Is_Full_Access (E Id
);
649 #define Next_Index einfo__utils__next_index
650 Node_Id
Next_Index (Node_Id Id
);
652 #define Next_Literal einfo__utils__next_literal
653 E
Next_Literal (E Id
);
655 #define Next_Stored_Discriminant einfo__utils__next_stored_discriminant
656 E
Next_Stored_Discriminant (E Id
);
658 #define Parameter_Mode einfo__utils__parameter_mode
659 // Parameter_Mode really returns Formal_Kind, but that is not visible, because
660 // fe.h is included before einfo.h.
661 Entity_Kind
Parameter_Mode (E Id
);
663 // The following is needed because Convention in Sem_Util is a renaming
664 // of Basic_Convention.
666 #define Convention einfo__entities__basic_convention
667 Convention_Id
Convention (N Node
);
669 // See comments regarding Entity_Or_Associated_Node in Sinfo.Utils.
671 #define Entity sinfo__nodes__entity_or_associated_node
672 Entity_Id
Entity (N Node
);
674 // See comments regarding Renamed_Or_Alias in Einfo.Utils
676 #define Alias einfo__entities__renamed_or_alias
678 #define Renamed_Entity einfo__entities__renamed_or_alias
679 Node_Id
Renamed_Entity (N Node
);
681 #define Renamed_Object einfo__entities__renamed_or_alias
682 Node_Id
Renamed_Object (N Node
);