1 /* Default macros to initialize the lang_hooks data structure.
2    Copyright (C) 2001-2018 Free Software Foundation, Inc.
3    Contributed by Alexandre Oliva  <aoliva@redhat.com>
4 
5 This file is part of GCC.
6 
7 GCC is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3, or (at your option)
10 any later version.
11 
12 GCC is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15 GNU General Public License for more details.
16 
17 You should have received a copy of the GNU General Public License
18 along with GCC; see the file COPYING3.  If not see
19 <http://www.gnu.org/licenses/>.  */
20 
21 #ifndef GCC_LANG_HOOKS_DEF_H
22 #define GCC_LANG_HOOKS_DEF_H
23 
24 #include "hooks.h"
25 
26 struct diagnostic_info;
27 class substring_loc;
28 
29 /* Note to creators of new hooks:
30 
31    The macros in this file should NOT be surrounded by a
32    #ifdef...#endif pair, since this file declares the defaults.  Each
33    front end overrides any hooks it wishes to, in the file containing
34    its struct lang_hooks, AFTER including this file.  */
35 
36 /* See langhooks.h for the definition and documentation of each hook.  */
37 
38 extern void lhd_do_nothing (void);
39 extern void lhd_do_nothing_t (tree);
40 extern void lhd_do_nothing_f (struct function *);
41 extern tree lhd_pass_through_t (tree);
42 extern void lhd_register_dumps (gcc::dump_manager *);
43 extern bool lhd_post_options (const char **);
44 extern alias_set_type lhd_get_alias_set (tree);
45 extern tree lhd_return_null_tree (tree);
46 extern tree lhd_return_null_const_tree (const_tree);
47 extern tree lhd_do_nothing_iii_return_null_tree (int, int, int);
48 extern void lhd_print_tree_nothing (FILE *, tree, int);
49 extern const char *lhd_decl_printable_name (tree, int);
50 extern const char *lhd_dwarf_name (tree, int);
51 extern int lhd_types_compatible_p (tree, tree);
52 extern void lhd_print_error_function (diagnostic_context *,
53 				      const char *, struct diagnostic_info *);
54 extern void lhd_set_decl_assembler_name (tree decl);
55 extern void lhd_overwrite_decl_assembler_name (tree decl, tree name);
56 extern bool lhd_warn_unused_global_decl (const_tree);
57 extern tree lhd_type_for_size (unsigned precision, int unsignedp);
58 extern void lhd_incomplete_type_error (location_t, const_tree, const_tree);
59 extern tree lhd_type_promotes_to (tree);
60 extern void lhd_register_builtin_type (tree, const char *);
61 extern bool lhd_decl_ok_for_sibcall (const_tree);
62 extern size_t lhd_tree_size (enum tree_code);
63 extern HOST_WIDE_INT lhd_to_target_charset (HOST_WIDE_INT);
64 extern tree lhd_expr_to_decl (tree, bool *, bool *);
65 extern tree lhd_builtin_function (tree);
66 extern tree lhd_enum_underlying_base_type (const_tree);
67 
68 /* Declarations of default tree inlining hooks.  */
69 extern void lhd_initialize_diagnostics (diagnostic_context *);
70 extern void lhd_init_options (unsigned int,
71 			      struct cl_decoded_option *);
72 extern bool lhd_complain_wrong_lang_p (const struct cl_option *);
73 extern bool lhd_handle_option (size_t, const char *, int, int, location_t,
74 			       const struct cl_option_handlers *);
75 
76 
77 /* Declarations for tree gimplification hooks.  */
78 extern int lhd_gimplify_expr (tree *, gimple_seq *, gimple_seq *);
79 extern enum omp_clause_default_kind lhd_omp_predetermined_sharing (tree);
80 extern tree lhd_omp_assignment (tree, tree, tree);
81 extern void lhd_omp_finish_clause (tree, gimple_seq *);
82 struct gimplify_omp_ctx;
83 extern void lhd_omp_firstprivatize_type_sizes (struct gimplify_omp_ctx *,
84 					       tree);
85 extern bool lhd_omp_mappable_type (tree);
86 extern bool lhd_omp_scalar_p (tree);
87 
88 extern const char *lhd_get_substring_location (const substring_loc &,
89 					       location_t *out_loc);
90 extern int lhd_decl_dwarf_attribute (const_tree, int);
91 extern int lhd_type_dwarf_attribute (const_tree, int);
92 
93 #define LANG_HOOKS_NAME			"GNU unknown"
94 #define LANG_HOOKS_IDENTIFIER_SIZE	sizeof (struct lang_identifier)
95 #define LANG_HOOKS_INIT			hook_bool_void_false
96 #define LANG_HOOKS_FINISH		lhd_do_nothing
97 #define LANG_HOOKS_PARSE_FILE		lhd_do_nothing
98 #define LANG_HOOKS_OPTION_LANG_MASK	hook_uint_void_0
99 #define LANG_HOOKS_INIT_OPTIONS_STRUCT	hook_void_gcc_optionsp
100 #define LANG_HOOKS_INIT_OPTIONS		lhd_init_options
101 #define LANG_HOOKS_INITIALIZE_DIAGNOSTICS lhd_initialize_diagnostics
102 #define LANG_HOOKS_REGISTER_DUMPS	lhd_register_dumps
103 #define LANG_HOOKS_COMPLAIN_WRONG_LANG_P lhd_complain_wrong_lang_p
104 #define LANG_HOOKS_HANDLE_OPTION	lhd_handle_option
105 #define LANG_HOOKS_POST_OPTIONS		lhd_post_options
106 #define LANG_HOOKS_MISSING_NORETURN_OK_P hook_bool_tree_true
107 #define LANG_HOOKS_GET_ALIAS_SET	lhd_get_alias_set
108 #define LANG_HOOKS_FINISH_INCOMPLETE_DECL lhd_do_nothing_t
109 #define LANG_HOOKS_DUP_LANG_SPECIFIC_DECL lhd_do_nothing_t
110 #define LANG_HOOKS_SET_DECL_ASSEMBLER_NAME lhd_set_decl_assembler_name
111 #define LANG_HOOKS_OVERWRITE_DECL_ASSEMBLER_NAME lhd_overwrite_decl_assembler_name
112 #define LANG_HOOKS_PRINT_STATISTICS	lhd_do_nothing
113 #define LANG_HOOKS_PRINT_XNODE		lhd_print_tree_nothing
114 #define LANG_HOOKS_PRINT_DECL		lhd_print_tree_nothing
115 #define LANG_HOOKS_PRINT_TYPE		lhd_print_tree_nothing
116 #define LANG_HOOKS_PRINT_IDENTIFIER	lhd_print_tree_nothing
117 #define LANG_HOOKS_PRINT_ERROR_FUNCTION lhd_print_error_function
118 #define LANG_HOOKS_DECL_PRINTABLE_NAME	lhd_decl_printable_name
119 #define LANG_HOOKS_DWARF_NAME		lhd_dwarf_name
120 #define LANG_HOOKS_FREE_LANG_DATA	lhd_do_nothing_t
121 #define LANG_HOOKS_TREE_SIZE		lhd_tree_size
122 #define LANG_HOOKS_TYPES_COMPATIBLE_P	lhd_types_compatible_p
123 #define LANG_HOOKS_BUILTIN_FUNCTION	lhd_builtin_function
124 #define LANG_HOOKS_BUILTIN_FUNCTION_EXT_SCOPE	LANG_HOOKS_BUILTIN_FUNCTION
125 #define LANG_HOOKS_EXPR_TO_DECL		lhd_expr_to_decl
126 #define LANG_HOOKS_TO_TARGET_CHARSET	lhd_to_target_charset
127 #define LANG_HOOKS_INIT_TS		lhd_do_nothing
128 #define LANG_HOOKS_EH_PERSONALITY	lhd_gcc_personality
129 #define LANG_HOOKS_EH_RUNTIME_TYPE	lhd_pass_through_t
130 #define LANG_HOOKS_EH_PROTECT_CLEANUP_ACTIONS	NULL
131 #define LANG_HOOKS_BLOCK_MAY_FALLTHRU	hook_bool_const_tree_true
132 #define LANG_HOOKS_EH_USE_CXA_END_CLEANUP	false
133 #define LANG_HOOKS_DEEP_UNSHARING	false
134 #define LANG_HOOKS_CUSTOM_FUNCTION_DESCRIPTORS	false
135 #define LANG_HOOKS_EMITS_BEGIN_STMT	false
136 #define LANG_HOOKS_RUN_LANG_SELFTESTS   lhd_do_nothing
137 #define LANG_HOOKS_GET_SUBSTRING_LOCATION lhd_get_substring_location
138 
139 /* Attribute hooks.  */
140 #define LANG_HOOKS_ATTRIBUTE_TABLE		NULL
141 #define LANG_HOOKS_COMMON_ATTRIBUTE_TABLE	NULL
142 #define LANG_HOOKS_FORMAT_ATTRIBUTE_TABLE	NULL
143 
144 /* Tree inlining hooks.  */
145 #define LANG_HOOKS_TREE_INLINING_VAR_MOD_TYPE_P \
146   hook_bool_tree_tree_false
147 
148 #define LANG_HOOKS_TREE_INLINING_INITIALIZER { \
149   LANG_HOOKS_TREE_INLINING_VAR_MOD_TYPE_P, \
150 }
151 
152 /* Hooks for tree gimplification.  */
153 #define LANG_HOOKS_GIMPLIFY_EXPR lhd_gimplify_expr
154 
155 /* Tree dump hooks.  */
156 extern bool lhd_tree_dump_dump_tree (void *, tree);
157 extern int lhd_tree_dump_type_quals (const_tree);
158 extern tree lhd_make_node (enum tree_code);
159 
160 #define LANG_HOOKS_TREE_DUMP_DUMP_TREE_FN lhd_tree_dump_dump_tree
161 #define LANG_HOOKS_TREE_DUMP_TYPE_QUALS_FN lhd_tree_dump_type_quals
162 
163 #define LANG_HOOKS_TREE_DUMP_INITIALIZER { \
164   LANG_HOOKS_TREE_DUMP_DUMP_TREE_FN, \
165   LANG_HOOKS_TREE_DUMP_TYPE_QUALS_FN \
166 }
167 
168 /* Types hooks.  There are no reasonable defaults for most of them,
169    so we create a compile-time error instead.  */
170 extern tree lhd_unit_size_without_reusable_padding (tree);
171 
172 #define LANG_HOOKS_MAKE_TYPE lhd_make_node
173 #define LANG_HOOKS_CLASSIFY_RECORD	NULL
174 #define LANG_HOOKS_TYPE_FOR_SIZE	lhd_type_for_size
175 #define LANG_HOOKS_INCOMPLETE_TYPE_ERROR lhd_incomplete_type_error
176 #define LANG_HOOKS_GENERIC_TYPE_P	hook_bool_const_tree_false
177 #define LANG_HOOKS_GET_INNERMOST_GENERIC_PARMS hook_tree_const_tree_null
178 #define LANG_HOOKS_GET_INNERMOST_GENERIC_ARGS hook_tree_const_tree_null
179 #define LANG_HOOKS_FUNCTION_PARAMETER_PACK_P hook_bool_const_tree_false
180 #define LANG_HOOKS_GET_ARGUMENT_PACK_ELEMS hook_tree_const_tree_null
181 #define LANG_HOOKS_GENERIC_GENERIC_PARAMETER_DECL_P hook_bool_const_tree_false
182 #define LANG_HOOKS_FUNCTION_PARM_EXPANDED_FROM_PACK_P \
183 					hook_bool_tree_tree_false
184 #define LANG_HOOKS_GET_GENERIC_FUNCTION_DECL hook_tree_const_tree_null
185 #define LANG_HOOKS_TYPE_PROMOTES_TO lhd_type_promotes_to
186 #define LANG_HOOKS_REGISTER_BUILTIN_TYPE lhd_register_builtin_type
187 #define LANG_HOOKS_TYPE_MAX_SIZE	lhd_return_null_const_tree
188 #define LANG_HOOKS_OMP_FIRSTPRIVATIZE_TYPE_SIZES \
189   lhd_omp_firstprivatize_type_sizes
190 #define LANG_HOOKS_OMP_MAPPABLE_TYPE	lhd_omp_mappable_type
191 #define LANG_HOOKS_TYPE_HASH_EQ		NULL
192 #define LANG_HOOKS_COPY_LANG_QUALIFIERS NULL
193 #define LANG_HOOKS_GET_ARRAY_DESCR_INFO	NULL
194 #define LANG_HOOKS_GET_SUBRANGE_BOUNDS	NULL
195 #define LANG_HOOKS_GET_TYPE_BIAS	NULL
196 #define LANG_HOOKS_DESCRIPTIVE_TYPE	NULL
197 #define LANG_HOOKS_RECONSTRUCT_COMPLEX_TYPE reconstruct_complex_type
198 #define LANG_HOOKS_ENUM_UNDERLYING_BASE_TYPE lhd_enum_underlying_base_type
199 #define LANG_HOOKS_GET_DEBUG_TYPE	NULL
200 #define LANG_HOOKS_GET_FIXED_POINT_TYPE_INFO NULL
201 #define LANG_HOOKS_TYPE_DWARF_ATTRIBUTE	lhd_type_dwarf_attribute
202 #define LANG_HOOKS_UNIT_SIZE_WITHOUT_REUSABLE_PADDING lhd_unit_size_without_reusable_padding
203 
204 #define LANG_HOOKS_FOR_TYPES_INITIALIZER { \
205   LANG_HOOKS_MAKE_TYPE, \
206   LANG_HOOKS_CLASSIFY_RECORD, \
207   LANG_HOOKS_TYPE_FOR_MODE, \
208   LANG_HOOKS_TYPE_FOR_SIZE, \
209   LANG_HOOKS_GENERIC_TYPE_P, \
210   LANG_HOOKS_GET_ARGUMENT_PACK_ELEMS, \
211   LANG_HOOKS_TYPE_PROMOTES_TO, \
212   LANG_HOOKS_REGISTER_BUILTIN_TYPE, \
213   LANG_HOOKS_INCOMPLETE_TYPE_ERROR, \
214   LANG_HOOKS_TYPE_MAX_SIZE, \
215   LANG_HOOKS_OMP_FIRSTPRIVATIZE_TYPE_SIZES, \
216   LANG_HOOKS_OMP_MAPPABLE_TYPE, \
217   LANG_HOOKS_TYPE_HASH_EQ, \
218   LANG_HOOKS_COPY_LANG_QUALIFIERS, \
219   LANG_HOOKS_GET_ARRAY_DESCR_INFO, \
220   LANG_HOOKS_GET_SUBRANGE_BOUNDS, \
221   LANG_HOOKS_GET_TYPE_BIAS, \
222   LANG_HOOKS_DESCRIPTIVE_TYPE, \
223   LANG_HOOKS_RECONSTRUCT_COMPLEX_TYPE, \
224   LANG_HOOKS_ENUM_UNDERLYING_BASE_TYPE, \
225   LANG_HOOKS_GET_DEBUG_TYPE, \
226   LANG_HOOKS_GET_FIXED_POINT_TYPE_INFO, \
227   LANG_HOOKS_TYPE_DWARF_ATTRIBUTE, \
228   LANG_HOOKS_UNIT_SIZE_WITHOUT_REUSABLE_PADDING \
229 }
230 
231 /* Declaration hooks.  */
232 #define LANG_HOOKS_GLOBAL_BINDINGS_P global_bindings_p
233 #define LANG_HOOKS_PUSHDECL	pushdecl
234 #define LANG_HOOKS_GETDECLS	getdecls
235 #define LANG_HOOKS_DECL_DWARF_ATTRIBUTE lhd_decl_dwarf_attribute
236 #define LANG_HOOKS_WARN_UNUSED_GLOBAL_DECL lhd_warn_unused_global_decl
237 #define LANG_HOOKS_POST_COMPILATION_PARSING_CLEANUPS NULL
238 #define LANG_HOOKS_DECL_OK_FOR_SIBCALL	lhd_decl_ok_for_sibcall
239 #define LANG_HOOKS_OMP_PRIVATIZE_BY_REFERENCE hook_bool_const_tree_false
240 #define LANG_HOOKS_OMP_PREDETERMINED_SHARING lhd_omp_predetermined_sharing
241 #define LANG_HOOKS_OMP_REPORT_DECL lhd_pass_through_t
242 #define LANG_HOOKS_OMP_DISREGARD_VALUE_EXPR hook_bool_tree_bool_false
243 #define LANG_HOOKS_OMP_PRIVATE_DEBUG_CLAUSE hook_bool_tree_bool_false
244 #define LANG_HOOKS_OMP_PRIVATE_OUTER_REF hook_bool_tree_false
245 #define LANG_HOOKS_OMP_CLAUSE_DEFAULT_CTOR hook_tree_tree_tree_tree_null
246 #define LANG_HOOKS_OMP_CLAUSE_COPY_CTOR lhd_omp_assignment
247 #define LANG_HOOKS_OMP_CLAUSE_ASSIGN_OP lhd_omp_assignment
248 #define LANG_HOOKS_OMP_CLAUSE_LINEAR_CTOR NULL
249 #define LANG_HOOKS_OMP_CLAUSE_DTOR hook_tree_tree_tree_null
250 #define LANG_HOOKS_OMP_FINISH_CLAUSE lhd_omp_finish_clause
251 #define LANG_HOOKS_OMP_SCALAR_P lhd_omp_scalar_p
252 
253 #define LANG_HOOKS_DECLS { \
254   LANG_HOOKS_GLOBAL_BINDINGS_P, \
255   LANG_HOOKS_PUSHDECL, \
256   LANG_HOOKS_GETDECLS, \
257   LANG_HOOKS_DECL_DWARF_ATTRIBUTE, \
258   LANG_HOOKS_GENERIC_GENERIC_PARAMETER_DECL_P, \
259   LANG_HOOKS_FUNCTION_PARM_EXPANDED_FROM_PACK_P, \
260   LANG_HOOKS_GET_GENERIC_FUNCTION_DECL, \
261   LANG_HOOKS_WARN_UNUSED_GLOBAL_DECL, \
262   LANG_HOOKS_POST_COMPILATION_PARSING_CLEANUPS, \
263   LANG_HOOKS_DECL_OK_FOR_SIBCALL, \
264   LANG_HOOKS_OMP_PRIVATIZE_BY_REFERENCE, \
265   LANG_HOOKS_OMP_PREDETERMINED_SHARING, \
266   LANG_HOOKS_OMP_REPORT_DECL, \
267   LANG_HOOKS_OMP_DISREGARD_VALUE_EXPR, \
268   LANG_HOOKS_OMP_PRIVATE_DEBUG_CLAUSE, \
269   LANG_HOOKS_OMP_PRIVATE_OUTER_REF, \
270   LANG_HOOKS_OMP_CLAUSE_DEFAULT_CTOR, \
271   LANG_HOOKS_OMP_CLAUSE_COPY_CTOR, \
272   LANG_HOOKS_OMP_CLAUSE_ASSIGN_OP, \
273   LANG_HOOKS_OMP_CLAUSE_LINEAR_CTOR, \
274   LANG_HOOKS_OMP_CLAUSE_DTOR, \
275   LANG_HOOKS_OMP_FINISH_CLAUSE, \
276   LANG_HOOKS_OMP_SCALAR_P \
277 }
278 
279 /* LTO hooks.  */
280 extern void lhd_begin_section (const char *);
281 extern void lhd_append_data (const void *, size_t, void *);
282 extern void lhd_end_section (void);
283 
284 #define LANG_HOOKS_BEGIN_SECTION lhd_begin_section
285 #define LANG_HOOKS_APPEND_DATA lhd_append_data
286 #define LANG_HOOKS_END_SECTION lhd_end_section
287 
288 #define LANG_HOOKS_LTO { \
289   LANG_HOOKS_BEGIN_SECTION, \
290   LANG_HOOKS_APPEND_DATA, \
291   LANG_HOOKS_END_SECTION \
292 }
293 
294 /* The whole thing.  The structure is defined in langhooks.h.  */
295 #define LANG_HOOKS_INITIALIZER { \
296   LANG_HOOKS_NAME, \
297   LANG_HOOKS_IDENTIFIER_SIZE, \
298   LANG_HOOKS_FREE_LANG_DATA, \
299   LANG_HOOKS_TREE_SIZE, \
300   LANG_HOOKS_OPTION_LANG_MASK, \
301   LANG_HOOKS_INIT_OPTIONS_STRUCT, \
302   LANG_HOOKS_INIT_OPTIONS, \
303   LANG_HOOKS_INITIALIZE_DIAGNOSTICS, \
304   LANG_HOOKS_REGISTER_DUMPS, \
305   LANG_HOOKS_COMPLAIN_WRONG_LANG_P, \
306   LANG_HOOKS_HANDLE_OPTION, \
307   LANG_HOOKS_POST_OPTIONS, \
308   LANG_HOOKS_INIT, \
309   LANG_HOOKS_FINISH, \
310   LANG_HOOKS_PARSE_FILE, \
311   LANG_HOOKS_MISSING_NORETURN_OK_P, \
312   LANG_HOOKS_GET_ALIAS_SET, \
313   LANG_HOOKS_FINISH_INCOMPLETE_DECL, \
314   LANG_HOOKS_DUP_LANG_SPECIFIC_DECL, \
315   LANG_HOOKS_SET_DECL_ASSEMBLER_NAME, \
316   LANG_HOOKS_OVERWRITE_DECL_ASSEMBLER_NAME, \
317   LANG_HOOKS_PRINT_STATISTICS, \
318   LANG_HOOKS_PRINT_XNODE, \
319   LANG_HOOKS_PRINT_DECL, \
320   LANG_HOOKS_PRINT_TYPE, \
321   LANG_HOOKS_PRINT_IDENTIFIER, \
322   LANG_HOOKS_DECL_PRINTABLE_NAME, \
323   LANG_HOOKS_DWARF_NAME, \
324   LANG_HOOKS_TYPES_COMPATIBLE_P, \
325   LANG_HOOKS_PRINT_ERROR_FUNCTION, \
326   LANG_HOOKS_TO_TARGET_CHARSET, \
327   LANG_HOOKS_ATTRIBUTE_TABLE, \
328   LANG_HOOKS_COMMON_ATTRIBUTE_TABLE, \
329   LANG_HOOKS_FORMAT_ATTRIBUTE_TABLE, \
330   LANG_HOOKS_TREE_INLINING_INITIALIZER, \
331   LANG_HOOKS_TREE_DUMP_INITIALIZER, \
332   LANG_HOOKS_DECLS, \
333   LANG_HOOKS_FOR_TYPES_INITIALIZER, \
334   LANG_HOOKS_LTO, \
335   LANG_HOOKS_GET_INNERMOST_GENERIC_PARMS, \
336   LANG_HOOKS_GET_INNERMOST_GENERIC_ARGS, \
337   LANG_HOOKS_FUNCTION_PARAMETER_PACK_P, \
338   LANG_HOOKS_GIMPLIFY_EXPR, \
339   LANG_HOOKS_BUILTIN_FUNCTION, \
340   LANG_HOOKS_BUILTIN_FUNCTION_EXT_SCOPE, \
341   LANG_HOOKS_INIT_TS,          \
342   LANG_HOOKS_EXPR_TO_DECL, \
343   LANG_HOOKS_EH_PERSONALITY, \
344   LANG_HOOKS_EH_RUNTIME_TYPE, \
345   LANG_HOOKS_EH_PROTECT_CLEANUP_ACTIONS, \
346   LANG_HOOKS_BLOCK_MAY_FALLTHRU, \
347   LANG_HOOKS_EH_USE_CXA_END_CLEANUP, \
348   LANG_HOOKS_DEEP_UNSHARING, \
349   LANG_HOOKS_CUSTOM_FUNCTION_DESCRIPTORS, \
350   LANG_HOOKS_EMITS_BEGIN_STMT, \
351   LANG_HOOKS_RUN_LANG_SELFTESTS, \
352   LANG_HOOKS_GET_SUBSTRING_LOCATION \
353 }
354 
355 #endif /* GCC_LANG_HOOKS_DEF_H */
356