Mercurial > hg > CbC > CbC_gcc
comparison gcc/ada/fe.h @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 84e7813d76e9 |
children |
comparison
equal
deleted
inserted
replaced
131:84e7813d76e9 | 145:1830386684a0 |
---|---|
4 * * | 4 * * |
5 * FE * | 5 * FE * |
6 * * | 6 * * |
7 * C Header File * | 7 * C Header File * |
8 * * | 8 * * |
9 * Copyright (C) 1992-2018, Free Software Foundation, Inc. * | 9 * Copyright (C) 1992-2019, Free Software Foundation, Inc. * |
10 * * | 10 * * |
11 * GNAT is free software; you can redistribute it and/or modify it under * | 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- * | 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- * | 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- * | 14 * sion. GNAT is distributed in the hope that it will be useful, but WITH- * |
27 * GNAT was originally developed by the GNAT team at New York University. * | 27 * GNAT was originally developed by the GNAT team at New York University. * |
28 * Extensive contributions were provided by Ada Core Technologies Inc. * | 28 * Extensive contributions were provided by Ada Core Technologies Inc. * |
29 * * | 29 * * |
30 ****************************************************************************/ | 30 ****************************************************************************/ |
31 | 31 |
32 /* This file contains declarations to access front-end functions and variables | 32 /* This is the C header that contains the declarations of Ada subprograms and |
33 used by gigi. | 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: | |
36 | |
37 "WARNING: There is a matching C declaration of this <entity_kind> in fe.h" | |
38 | |
39 where <entity_kind> is either "subprogram" or "variable" or "type". | |
34 | 40 |
35 WARNING: functions taking String_Pointer parameters must abide by the rule | 41 WARNING: functions taking String_Pointer parameters must abide by the rule |
36 documented alongside the definition of String_Pointer in types.h. */ | 42 documented alongside the definition of String_Pointer in types.h. */ |
37 | 43 |
38 #ifdef __cplusplus | 44 #ifdef __cplusplus |
39 extern "C" { | 45 extern "C" { |
40 #endif | 46 #endif |
41 | 47 |
42 /* atree: */ | 48 /* atree: */ |
43 | 49 |
44 #define Serious_Errors_Detected atree__serious_errors_detected | 50 #define Serious_Errors_Detected atree__serious_errors_detected |
51 | |
52 extern Nat Serious_Errors_Detected; | |
45 | 53 |
46 /* comperr: */ | 54 /* comperr: */ |
47 | 55 |
48 #define Compiler_Abort comperr__compiler_abort | 56 #define Compiler_Abort comperr__compiler_abort |
57 | |
49 extern int Compiler_Abort (String_Pointer, String_Pointer, Boolean) ATTRIBUTE_NORETURN; | 58 extern int Compiler_Abort (String_Pointer, String_Pointer, Boolean) ATTRIBUTE_NORETURN; |
50 | |
51 /* csets: */ | |
52 | |
53 #define Fold_Lower(C) csets__fold_lower[C] | |
54 #define Fold_Upper(C) csets__fold_upper[C] | |
55 extern char Fold_Lower[], Fold_Upper[]; | |
56 | 59 |
57 /* debug: */ | 60 /* debug: */ |
58 | 61 |
59 #define Debug_Flag_Dot_R debug__debug_flag_dot_r | 62 #define Debug_Flag_Dot_R debug__debug_flag_dot_r |
60 #define Debug_Flag_NN debug__debug_flag_nn | 63 #define Debug_Flag_NN debug__debug_flag_nn |
64 | |
61 extern Boolean Debug_Flag_Dot_R; | 65 extern Boolean Debug_Flag_Dot_R; |
62 extern Boolean Debug_Flag_NN; | 66 extern Boolean Debug_Flag_NN; |
63 | 67 |
64 /* einfo: */ | 68 /* einfo: */ |
65 | 69 |
79 extern void Set_Mechanism (Entity_Id, Mechanism_Type); | 83 extern void Set_Mechanism (Entity_Id, Mechanism_Type); |
80 extern void Set_Normalized_First_Bit (Entity_Id, Uint); | 84 extern void Set_Normalized_First_Bit (Entity_Id, Uint); |
81 extern void Set_Normalized_Position (Entity_Id, Uint); | 85 extern void Set_Normalized_Position (Entity_Id, Uint); |
82 extern void Set_RM_Size (Entity_Id, Uint); | 86 extern void Set_RM_Size (Entity_Id, Uint); |
83 | 87 |
84 #define Is_Entity_Name einfo__is_entity_name | 88 #define Is_Entity_Name einfo__is_entity_name |
89 | |
85 extern Boolean Is_Entity_Name (Node_Id); | 90 extern Boolean Is_Entity_Name (Node_Id); |
86 | 91 |
87 #define Get_Attribute_Definition_Clause einfo__get_attribute_definition_clause | 92 #define Get_Attribute_Definition_Clause einfo__get_attribute_definition_clause |
93 | |
88 extern Node_Id Get_Attribute_Definition_Clause (Entity_Id, unsigned char); | 94 extern Node_Id Get_Attribute_Definition_Clause (Entity_Id, unsigned char); |
89 | 95 |
90 /* errout: */ | 96 /* errout: */ |
91 | 97 |
92 #define Error_Msg_N errout__error_msg_n | 98 #define Error_Msg_N errout__error_msg_n |
93 #define Error_Msg_NE errout__error_msg_ne | 99 #define Error_Msg_NE errout__error_msg_ne |
94 #define Set_Identifier_Casing errout__set_identifier_casing | 100 #define Set_Identifier_Casing errout__set_identifier_casing |
95 | 101 |
96 extern void Error_Msg_N (String_Pointer, Node_Id); | 102 extern void Error_Msg_N (String_Pointer, Node_Id); |
97 extern void Error_Msg_NE (String_Pointer, Node_Id, Entity_Id); | 103 extern void Error_Msg_NE (String_Pointer, Node_Id, Entity_Id); |
98 extern void Set_Identifier_Casing (Char *, const Char *); | 104 extern void Set_Identifier_Casing (Char *, const Char *); |
99 | 105 |
100 /* err_vars: */ | 106 /* err_vars: */ |
101 | 107 |
102 #define Error_Msg_Node_2 err_vars__error_msg_node_2 | 108 #define Error_Msg_Uint_1 err_vars__error_msg_uint_1 |
103 #define Error_Msg_Uint_1 err_vars__error_msg_uint_1 | 109 #define Error_Msg_Uint_2 err_vars__error_msg_uint_2 |
104 #define Error_Msg_Uint_2 err_vars__error_msg_uint_2 | 110 |
105 | 111 extern Uint Error_Msg_Uint_1; |
106 extern Entity_Id Error_Msg_Node_2; | 112 extern Uint Error_Msg_Uint_2; |
107 extern Uint Error_Msg_Uint_1; | |
108 extern Uint Error_Msg_Uint_2; | |
109 extern Nat Serious_Errors_Detected; | |
110 | 113 |
111 /* exp_ch11: */ | 114 /* exp_ch11: */ |
112 | 115 |
113 #define Get_Local_Raise_Call_Entity exp_ch11__get_local_raise_call_entity | 116 #define Get_Local_Raise_Call_Entity exp_ch11__get_local_raise_call_entity |
114 #define Get_RT_Exception_Entity exp_ch11__get_rt_exception_entity | 117 #define Get_RT_Exception_Entity exp_ch11__get_rt_exception_entity |
115 #define Get_RT_Exception_Name exp_ch11__get_rt_exception_name | 118 #define Get_RT_Exception_Name exp_ch11__get_rt_exception_name |
116 #define Warn_If_No_Local_Raise exp_ch11__warn_if_no_local_raise | 119 #define Warn_If_No_Local_Raise exp_ch11__warn_if_no_local_raise |
117 | 120 |
118 extern Entity_Id Get_Local_Raise_Call_Entity (void); | 121 extern Entity_Id Get_Local_Raise_Call_Entity (void); |
119 extern Entity_Id Get_RT_Exception_Entity (int); | 122 extern Entity_Id Get_RT_Exception_Entity (int); |
120 extern void Get_RT_Exception_Name (int); | 123 extern void Get_RT_Exception_Name (int); |
121 extern void Warn_If_No_Local_Raise (int); | 124 extern void Warn_If_No_Local_Raise (int); |
122 | 125 |
123 /* exp_code: */ | 126 /* exp_code: */ |
124 | 127 |
125 #define Asm_Input_Constraint exp_code__asm_input_constraint | 128 #define Asm_Input_Constraint exp_code__asm_input_constraint |
126 #define Asm_Input_Value exp_code__asm_input_value | 129 #define Asm_Input_Value exp_code__asm_input_value |
127 #define Asm_Output_Constraint exp_code__asm_output_constraint | 130 #define Asm_Output_Constraint exp_code__asm_output_constraint |
128 #define Asm_Output_Variable exp_code__asm_output_variable | 131 #define Asm_Output_Variable exp_code__asm_output_variable |
129 #define Asm_Template exp_code__asm_template | 132 #define Asm_Template exp_code__asm_template |
130 #define Clobber_Get_Next exp_code__clobber_get_next | 133 #define Clobber_Get_Next exp_code__clobber_get_next |
131 #define Clobber_Setup exp_code__clobber_setup | 134 #define Clobber_Setup exp_code__clobber_setup |
132 #define Is_Asm_Volatile exp_code__is_asm_volatile | 135 #define Is_Asm_Volatile exp_code__is_asm_volatile |
133 #define Next_Asm_Input exp_code__next_asm_input | 136 #define Next_Asm_Input exp_code__next_asm_input |
134 #define Next_Asm_Output exp_code__next_asm_output | 137 #define Next_Asm_Output exp_code__next_asm_output |
135 #define Setup_Asm_Inputs exp_code__setup_asm_inputs | 138 #define Setup_Asm_Inputs exp_code__setup_asm_inputs |
136 #define Setup_Asm_Outputs exp_code__setup_asm_outputs | 139 #define Setup_Asm_Outputs exp_code__setup_asm_outputs |
137 | 140 |
138 extern Node_Id Asm_Input_Constraint (void); | 141 extern Node_Id Asm_Input_Constraint (void); |
139 extern Node_Id Asm_Input_Value (void); | 142 extern Node_Id Asm_Input_Value (void); |
140 extern Node_Id Asm_Output_Constraint (void); | 143 extern Node_Id Asm_Output_Constraint (void); |
141 extern Node_Id Asm_Output_Variable (void); | 144 extern Node_Id Asm_Output_Variable (void); |
148 extern void Setup_Asm_Inputs (Node_Id); | 151 extern void Setup_Asm_Inputs (Node_Id); |
149 extern void Setup_Asm_Outputs (Node_Id); | 152 extern void Setup_Asm_Outputs (Node_Id); |
150 | 153 |
151 /* exp_dbug: */ | 154 /* exp_dbug: */ |
152 | 155 |
153 #define Get_Encoded_Name exp_dbug__get_encoded_name | 156 #define Get_Encoded_Name exp_dbug__get_encoded_name |
154 #define Get_External_Name exp_dbug__get_external_name | 157 #define Get_External_Name exp_dbug__get_external_name |
155 | 158 #define Get_Variant_Encoding exp_dbug__get_variant_encoding |
156 extern void Get_Encoded_Name (Entity_Id); | 159 |
157 extern void Get_External_Name (Entity_Id, Boolean, String_Pointer); | 160 extern void Get_Encoded_Name (Entity_Id); |
161 extern void Get_External_Name (Entity_Id, Boolean, String_Pointer); | |
162 extern void Get_Variant_Encoding (Entity_Id); | |
158 | 163 |
159 /* exp_tss: */ | 164 /* exp_tss: */ |
160 | 165 |
161 #define Is_Init_Proc exp_tss__is_init_proc | 166 #define Is_Init_Proc exp_tss__is_init_proc |
162 | 167 |
163 extern Boolean Is_Init_Proc (Entity_Id); | 168 extern Boolean Is_Init_Proc (Entity_Id); |
164 | 169 |
165 /* exp_util: */ | 170 /* exp_util: */ |
166 | 171 |
167 #define Is_Fully_Repped_Tagged_Type exp_util__is_fully_repped_tagged_type | 172 #define Is_Fully_Repped_Tagged_Type exp_util__is_fully_repped_tagged_type |
168 #define Find_Interface_Tag exp_util__find_interface_tag | 173 #define Find_Interface_Tag exp_util__find_interface_tag |
169 | 174 |
170 extern Boolean Is_Fully_Repped_Tagged_Type (Entity_Id); | 175 extern Boolean Is_Fully_Repped_Tagged_Type (Entity_Id); |
171 extern Entity_Id Find_Interface_Tag (Entity_Id, Entity_Id); | 176 extern Entity_Id Find_Interface_Tag (Entity_Id, Entity_Id); |
172 | 177 |
173 /* lib: */ | 178 /* lib: */ |
174 | 179 |
175 #define Cunit lib__cunit | 180 #define Cunit lib__cunit |
176 #define Ident_String lib__ident_string | 181 #define Ident_String lib__ident_string |
177 #define In_Extended_Main_Code_Unit lib__in_extended_main_code_unit | 182 #define In_Extended_Main_Code_Unit lib__in_extended_main_code_unit |
178 #define In_Same_Source_Unit lib__in_same_source_unit | |
179 | 183 |
180 extern Node_Id Cunit (Unit_Number_Type); | 184 extern Node_Id Cunit (Unit_Number_Type); |
181 extern Node_Id Ident_String (Unit_Number_Type); | 185 extern Node_Id Ident_String (Unit_Number_Type); |
182 extern Boolean In_Extended_Main_Code_Unit (Entity_Id); | 186 extern Boolean In_Extended_Main_Code_Unit (Entity_Id); |
183 extern Boolean In_Same_Source_Unit (Node_Id, Node_Id); | |
184 | 187 |
185 /* opt: */ | 188 /* opt: */ |
186 | 189 |
187 #define Back_End_Inlining opt__back_end_inlining | 190 #define Ada_Version opt__ada_version |
188 #define Exception_Extra_Info opt__exception_extra_info | 191 #define Back_End_Inlining opt__back_end_inlining |
189 #define Exception_Locations_Suppressed opt__exception_locations_suppressed | 192 #define Debug_Generated_Code opt__debug_generated_code |
190 #define Exception_Mechanism opt__exception_mechanism | 193 #define Exception_Extra_Info opt__exception_extra_info |
191 #define Float_Format opt__float_format | 194 #define Exception_Locations_Suppressed opt__exception_locations_suppressed |
192 #define Generate_SCO_Instance_Table opt__generate_sco_instance_table | 195 #define Exception_Mechanism opt__exception_mechanism |
193 #define GNAT_Mode opt__gnat_mode | 196 #define Generate_SCO_Instance_Table opt__generate_sco_instance_table |
194 #define List_Representation_Info opt__list_representation_info | 197 #define GNAT_Mode opt__gnat_mode |
195 #define No_Strict_Aliasing_CP opt__no_strict_aliasing | 198 #define List_Representation_Info opt__list_representation_info |
199 #define No_Strict_Aliasing_CP opt__no_strict_aliasing | |
200 #define Suppress_Checks opt__suppress_checks | |
201 | |
202 typedef enum { | |
203 Ada_83, Ada_95, Ada_2005, Ada_2012, Ada_2020 | |
204 } Ada_Version_Type; | |
196 | 205 |
197 typedef enum { | 206 typedef enum { |
198 Front_End_SJLJ, Back_End_ZCX, Back_End_SJLJ | 207 Front_End_SJLJ, Back_End_ZCX, Back_End_SJLJ |
199 } Exception_Mechanism_Type; | 208 } Exception_Mechanism_Type; |
200 | 209 |
210 extern Ada_Version_Type Ada_Version; | |
201 extern Boolean Back_End_Inlining; | 211 extern Boolean Back_End_Inlining; |
212 extern Boolean Debug_Generated_Code; | |
202 extern Boolean Exception_Extra_Info; | 213 extern Boolean Exception_Extra_Info; |
203 extern Boolean Exception_Locations_Suppressed; | 214 extern Boolean Exception_Locations_Suppressed; |
204 extern Exception_Mechanism_Type Exception_Mechanism; | 215 extern Exception_Mechanism_Type Exception_Mechanism; |
205 extern Char Float_Format; | |
206 extern Boolean Generate_SCO_Instance_Table; | 216 extern Boolean Generate_SCO_Instance_Table; |
207 extern Boolean GNAT_Mode; | 217 extern Boolean GNAT_Mode; |
208 extern Int List_Representation_Info; | 218 extern Int List_Representation_Info; |
209 extern Boolean No_Strict_Aliasing_CP; | 219 extern Boolean No_Strict_Aliasing_CP; |
210 | 220 extern Boolean Suppress_Checks; |
211 #define ZCX_Exceptions opt__zcx_exceptions | 221 |
212 #define SJLJ_Exceptions opt__sjlj_exceptions | 222 #define ZCX_Exceptions opt__zcx_exceptions |
213 #define Front_End_Exceptions opt__front_end_exceptions | 223 #define SJLJ_Exceptions opt__sjlj_exceptions |
214 #define Back_End_Exceptions opt__back_end_exceptions | 224 #define Front_End_Exceptions opt__front_end_exceptions |
215 | 225 #define Back_End_Exceptions opt__back_end_exceptions |
216 extern Boolean ZCX_Exceptions (void); | 226 |
217 extern Boolean SJLJ_Exceptions (void); | 227 extern Boolean ZCX_Exceptions (void); |
218 extern Boolean Front_End_Exceptions (void); | 228 extern Boolean SJLJ_Exceptions (void); |
219 extern Boolean Back_End_Exceptions (void); | 229 extern Boolean Front_End_Exceptions (void); |
230 extern Boolean Back_End_Exceptions (void); | |
220 | 231 |
221 /* restrict: */ | 232 /* restrict: */ |
222 | 233 |
223 #define No_Exception_Handlers_Set restrict__no_exception_handlers_set | 234 #define Check_Elaboration_Code_Allowed \ |
224 #define Check_No_Implicit_Heap_Alloc restrict__check_no_implicit_heap_alloc | 235 restrict__check_elaboration_code_allowed |
225 #define Check_No_Implicit_Task_Alloc restrict__check_no_implicit_task_alloc | 236 #define Check_Implicit_Dynamic_Code_Allowed \ |
226 #define Check_No_Implicit_Protected_Alloc restrict__check_no_implicit_protected_alloc | 237 restrict__check_implicit_dynamic_code_allowed |
227 #define Check_Elaboration_Code_Allowed restrict__check_elaboration_code_allowed | 238 #define Check_No_Implicit_Heap_Alloc \ |
228 #define Check_Implicit_Dynamic_Code_Allowed restrict__check_implicit_dynamic_code_allowed | 239 restrict__check_no_implicit_heap_alloc |
229 | 240 #define Check_No_Implicit_Protected_Alloc \ |
230 extern Boolean No_Exception_Handlers_Set (void); | 241 restrict__check_no_implicit_protected_alloc |
231 extern void Check_No_Implicit_Heap_Alloc (Node_Id); | 242 #define Check_No_Implicit_Task_Alloc \ |
232 extern void Check_No_Implicit_Task_Alloc (Node_Id); | 243 restrict__check_no_implicit_task_alloc |
233 extern void Check_No_Implicit_Protected_Alloc (Node_Id); | 244 #define No_Exception_Handlers_Set \ |
234 extern void Check_Elaboration_Code_Allowed (Node_Id); | 245 restrict__no_exception_handlers_set |
235 extern void Check_Implicit_Dynamic_Code_Allowed (Node_Id); | 246 |
247 extern void Check_Elaboration_Code_Allowed (Node_Id); | |
248 extern void Check_Implicit_Dynamic_Code_Allowed (Node_Id); | |
249 extern void Check_No_Implicit_Heap_Alloc (Node_Id); | |
250 extern void Check_No_Implicit_Protected_Alloc (Node_Id); | |
251 extern void Check_No_Implicit_Task_Alloc (Node_Id); | |
252 extern Boolean No_Exception_Handlers_Set (void); | |
236 | 253 |
237 /* sem_aggr: */ | 254 /* sem_aggr: */ |
238 | 255 |
239 #define Is_Others_Aggregate sem_aggr__is_others_aggregate | 256 #define Is_Others_Aggregate sem_aggr__is_others_aggregate |
240 | 257 |
241 extern Boolean Is_Others_Aggregate (Node_Id); | 258 extern Boolean Is_Others_Aggregate (Node_Id); |
242 | 259 |
243 /* sem_aux: */ | 260 /* sem_aux: */ |
244 | 261 |
245 #define Ancestor_Subtype sem_aux__ancestor_subtype | 262 #define Ancestor_Subtype sem_aux__ancestor_subtype |
246 #define Constant_Value sem_aux__constant_value | 263 #define Constant_Value sem_aux__constant_value |
247 #define First_Discriminant sem_aux__first_discriminant | 264 #define First_Discriminant sem_aux__first_discriminant |
248 #define First_Stored_Discriminant sem_aux__first_stored_discriminant | 265 #define First_Stored_Discriminant sem_aux__first_stored_discriminant |
249 #define First_Subtype sem_aux__first_subtype | 266 #define First_Subtype sem_aux__first_subtype |
250 #define Is_By_Reference_Type sem_aux__is_by_reference_type | 267 #define Is_By_Reference_Type sem_aux__is_by_reference_type |
251 #define Is_Derived_Type sem_aux__is_derived_type | 268 #define Is_Derived_Type sem_aux__is_derived_type |
252 | 269 |
253 extern Entity_Id Ancestor_Subtype (Entity_Id); | 270 extern Entity_Id Ancestor_Subtype (Entity_Id); |
254 extern Node_Id Constant_Value (Entity_Id); | 271 extern Node_Id Constant_Value (Entity_Id); |
255 extern Entity_Id First_Discriminant (Entity_Id); | 272 extern Entity_Id First_Discriminant (Entity_Id); |
256 extern Entity_Id First_Stored_Discriminant (Entity_Id); | 273 extern Entity_Id First_Stored_Discriminant (Entity_Id); |
257 extern Entity_Id First_Subtype (Entity_Id); | 274 extern Entity_Id First_Subtype (Entity_Id); |
258 extern Boolean Is_By_Reference_Type (Entity_Id); | 275 extern Boolean Is_By_Reference_Type (Entity_Id); |
259 extern Boolean Is_Derived_Type (Entity_Id); | 276 extern Boolean Is_Derived_Type (Entity_Id); |
260 | 277 |
261 /* sem_eval: */ | 278 /* sem_eval: */ |
262 | 279 |
263 #define Compile_Time_Known_Value sem_eval__compile_time_known_value | 280 #define Compile_Time_Known_Value sem_eval__compile_time_known_value |
264 #define Expr_Value sem_eval__expr_value | |
265 #define Expr_Value_S sem_eval__expr_value_s | |
266 #define Is_OK_Static_Expression sem_eval__is_ok_static_expression | 281 #define Is_OK_Static_Expression sem_eval__is_ok_static_expression |
267 #define Is_OK_Static_Subtype sem_eval__is_ok_static_subtype | 282 |
268 | 283 extern Boolean Compile_Time_Known_Value (Node_Id); |
269 extern Uint Expr_Value (Node_Id); | 284 extern Boolean Is_OK_Static_Expression (Node_Id); |
270 extern Node_Id Expr_Value_S (Node_Id); | |
271 extern Boolean Compile_Time_Known_Value (Node_Id); | |
272 extern Boolean Is_OK_Static_Expression (Node_Id); | |
273 extern Boolean Is_OK_Static_Subtype (Entity_Id); | |
274 | 285 |
275 /* sem_util: */ | 286 /* sem_util: */ |
276 | 287 |
277 #define Defining_Entity sem_util__defining_entity | 288 #define Defining_Entity sem_util__defining_entity |
278 #define First_Actual sem_util__first_actual | 289 #define First_Actual sem_util__first_actual |
290 #define Is_Variable_Size_Record sem_util__is_variable_size_record | |
279 #define Next_Actual sem_util__next_actual | 291 #define Next_Actual sem_util__next_actual |
280 #define Is_Variable_Size_Record sem_util__is_variable_size_record | |
281 #define Requires_Transient_Scope sem_util__requires_transient_scope | 292 #define Requires_Transient_Scope sem_util__requires_transient_scope |
282 | 293 |
283 extern Entity_Id Defining_Entity (Node_Id); | 294 extern Entity_Id Defining_Entity (Node_Id); |
284 extern Node_Id First_Actual (Node_Id); | 295 extern Node_Id First_Actual (Node_Id); |
296 extern Boolean Is_Variable_Size_Record (Entity_Id Id); | |
285 extern Node_Id Next_Actual (Node_Id); | 297 extern Node_Id Next_Actual (Node_Id); |
286 extern Boolean Is_Variable_Size_Record (Entity_Id Id); | |
287 extern Boolean Requires_Transient_Scope (Entity_Id); | 298 extern Boolean Requires_Transient_Scope (Entity_Id); |
288 | 299 |
289 /* sinfo: */ | 300 /* sinfo: */ |
290 | 301 |
291 #define End_Location sinfo__end_location | 302 #define End_Location sinfo__end_location |
292 #define Set_Has_No_Elaboration_Code sinfo__set_has_no_elaboration_code | 303 #define Set_Has_No_Elaboration_Code sinfo__set_has_no_elaboration_code |
293 #define Set_Present_Expr sinfo__set_present_expr | 304 #define Set_Present_Expr sinfo__set_present_expr |
294 | 305 |
295 extern Source_Ptr End_Location (Node_Id); | 306 extern Source_Ptr End_Location (Node_Id); |
296 extern void Set_Has_No_Elaboration_Code (Node_Id, Boolean); | 307 extern void Set_Has_No_Elaboration_Code (Node_Id, Boolean); |
297 extern void Set_Present_Expr (Node_Id, Uint); | 308 extern void Set_Present_Expr (Node_Id, Uint); |
298 | 309 |
310 /* sinput: */ | |
311 | |
312 #define Debug_Source_Name sinput__debug_source_name | |
313 #define Get_Column_Number sinput__get_column_number | |
314 #define Get_Logical_Line_Number sinput__get_logical_line_number | |
315 #define Get_Source_File_Index sinput__get_source_file_index | |
316 | |
317 extern File_Name_Type Debug_Source_Name (Source_File_Index); | |
318 extern Column_Number_Type Get_Column_Number (Source_Ptr); | |
319 extern Line_Number_Type Get_Logical_Line_Number (Source_Ptr); | |
320 extern Source_File_Index Get_Source_File_Index (Source_Ptr); | |
321 | |
299 /* targparm: */ | 322 /* targparm: */ |
300 | 323 |
301 #define Backend_Overflow_Checks_On_Target targparm__backend_overflow_checks_on_target | 324 #define Machine_Overflows_On_Target \ |
302 #define Machine_Overflows_On_Target targparm__machine_overflows_on_target | 325 targparm__machine_overflows_on_target |
303 #define Signed_Zeros_On_Target targparm__signed_zeros_on_target | 326 #define Signed_Zeros_On_Target \ |
304 #define Stack_Check_Probes_On_Target targparm__stack_check_probes_on_target | 327 targparm__signed_zeros_on_target |
305 #define Stack_Check_Limits_On_Target targparm__stack_check_limits_on_target | 328 #define Stack_Check_Limits_On_Target \ |
306 | 329 targparm__stack_check_limits_on_target |
307 extern Boolean Backend_Overflow_Checks_On_Target; | 330 #define Stack_Check_Probes_On_Target \ |
331 targparm__stack_check_probes_on_target | |
332 | |
308 extern Boolean Machine_Overflows_On_Target; | 333 extern Boolean Machine_Overflows_On_Target; |
309 extern Boolean Signed_Zeros_On_Target; | 334 extern Boolean Signed_Zeros_On_Target; |
335 extern Boolean Stack_Check_Limits_On_Target; | |
310 extern Boolean Stack_Check_Probes_On_Target; | 336 extern Boolean Stack_Check_Probes_On_Target; |
311 extern Boolean Stack_Check_Limits_On_Target; | |
312 | 337 |
313 /* warnsw: */ | 338 /* warnsw: */ |
314 | 339 |
315 #define Warn_On_Questionable_Layout warnsw__warn_on_questionable_layout | 340 #define Warn_On_Questionable_Layout warnsw__warn_on_questionable_layout |
316 | 341 |
317 extern Boolean Warn_On_Questionable_Layout; | 342 extern Boolean Warn_On_Questionable_Layout; |
318 | 343 |
319 #ifdef __cplusplus | 344 #ifdef __cplusplus |
320 } | 345 } |