1/* Default macros to initialize the lang_hooks data structure.
2   Copyright 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
3   Contributed by Alexandre Oliva  <aoliva@redhat.com>
4
5This file is part of GCC.
6
7GCC is free software; you can redistribute it and/or modify
8it under the terms of the GNU General Public License as published by
9the Free Software Foundation; either version 2, or (at your option)
10any later version.
11
12GCC is distributed in the hope that it will be useful,
13but WITHOUT ANY WARRANTY; without even the implied warranty of
14MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15GNU General Public License for more details.
16
17You should have received a copy of the GNU General Public License
18along with GCC; see the file COPYING.  If not, write to
19the Free Software Foundation, 51 Franklin Street, Fifth Floor,
20Boston, MA 02110-1301, USA.  */
21
22#ifndef GCC_LANG_HOOKS_DEF_H
23#define GCC_LANG_HOOKS_DEF_H
24
25#include "hooks.h"
26
27struct diagnostic_context;
28
29/* Provide a hook routine for alias sets that always returns 1.  This is
30   used by languages that haven't deal with alias sets yet.  */
31extern HOST_WIDE_INT hook_get_alias_set_0 (tree);
32
33/* Note to creators of new hooks:
34
35   The macros in this file should NOT be surrounded by a
36   #ifdef...#endif pair, since this file declares the defaults.  Each
37   front end overrides any hooks it wishes to, in the file containing
38   its struct lang_hooks, AFTER including this file.  */
39
40/* See langhooks.h for the definition and documentation of each hook.  */
41
42extern void lhd_do_nothing (void);
43extern void lhd_do_nothing_t (tree);
44extern void lhd_do_nothing_i (int);
45extern void lhd_do_nothing_f (struct function *);
46extern bool lhd_post_options (const char **);
47extern HOST_WIDE_INT lhd_get_alias_set (tree);
48extern tree lhd_return_tree (tree);
49extern tree lhd_return_null_tree_v (void);
50extern tree lhd_return_null_tree (tree);
51extern tree lhd_do_nothing_iii_return_null_tree (int, int, int);
52extern int lhd_safe_from_p (rtx, tree);
53extern tree lhd_staticp (tree);
54extern void lhd_print_tree_nothing (FILE *, tree, int);
55extern const char *lhd_decl_printable_name (tree, int);
56extern const char *lhd_dwarf_name (tree, int);
57extern int lhd_types_compatible_p (tree, tree);
58extern rtx lhd_expand_expr (tree, rtx, enum machine_mode, int, rtx *);
59extern int lhd_expand_decl (tree);
60extern void lhd_print_error_function (struct diagnostic_context *,
61				      const char *);
62extern void lhd_set_decl_assembler_name (tree);
63extern bool lhd_can_use_bit_fields_p (void);
64extern bool lhd_warn_unused_global_decl (tree);
65extern void lhd_incomplete_type_error (tree, tree);
66extern tree lhd_type_promotes_to (tree);
67extern void lhd_register_builtin_type (tree, const char *);
68extern bool lhd_decl_ok_for_sibcall (tree);
69extern const char *lhd_comdat_group (tree);
70extern tree lhd_expr_size (tree);
71extern size_t lhd_tree_size (enum tree_code);
72extern HOST_WIDE_INT lhd_to_target_charset (HOST_WIDE_INT);
73extern tree lhd_expr_to_decl (tree, bool *, bool *, bool *);
74
75/* Declarations of default tree inlining hooks.  */
76extern tree lhd_tree_inlining_walk_subtrees (tree *, int *, walk_tree_fn,
77					     void *, struct pointer_set_t*);
78extern int lhd_tree_inlining_cannot_inline_tree_fn (tree *);
79extern int lhd_tree_inlining_disregard_inline_limits (tree);
80extern tree lhd_tree_inlining_add_pending_fn_decls (void *, tree);
81extern int lhd_tree_inlining_auto_var_in_fn_p (tree, tree);
82extern int lhd_tree_inlining_anon_aggr_type_p (tree);
83extern int lhd_tree_inlining_start_inlining (tree);
84extern void lhd_tree_inlining_end_inlining (tree);
85extern tree lhd_tree_inlining_convert_parm_for_inlining (tree, tree, tree, int);
86extern void lhd_initialize_diagnostics (struct diagnostic_context *);
87extern tree lhd_callgraph_analyze_expr (tree *, int *, tree);
88
89
90/* Declarations for tree gimplification hooks.  */
91extern int lhd_gimplify_expr (tree *, tree *, tree *);
92extern enum omp_clause_default_kind lhd_omp_predetermined_sharing (tree);
93extern tree lhd_omp_assignment (tree, tree, tree);
94struct gimplify_omp_ctx;
95extern void lhd_omp_firstprivatize_type_sizes (struct gimplify_omp_ctx *,
96					       tree);
97
98/* APPLE LOCAL begin 6353006  */
99extern tree lhd_build_generic_block_struct_type (void);
100/* APPLE LOCAL end 6353006  */
101
102/* APPLE LOCAL radar 6386976  */
103extern bool lhd_is_runtime_specific_type (tree);
104
105#define LANG_HOOKS_NAME			"GNU unknown"
106#define LANG_HOOKS_IDENTIFIER_SIZE	sizeof (struct lang_identifier)
107#define LANG_HOOKS_INIT			hook_bool_void_false
108#define LANG_HOOKS_FINISH		lhd_do_nothing
109#define LANG_HOOKS_PARSE_FILE		lhd_do_nothing_i
110#define LANG_HOOKS_CLEAR_BINDING_STACK	lhd_do_nothing
111#define LANG_HOOKS_INIT_OPTIONS		hook_uint_uint_constcharptrptr_0
112#define LANG_HOOKS_INITIALIZE_DIAGNOSTICS lhd_initialize_diagnostics
113#define LANG_HOOKS_HANDLE_OPTION	hook_int_size_t_constcharptr_int_0
114#define LANG_HOOKS_MISSING_ARGUMENT	hook_bool_constcharptr_size_t_false
115#define LANG_HOOKS_POST_OPTIONS		lhd_post_options
116#define LANG_HOOKS_GET_ALIAS_SET	lhd_get_alias_set
117#define LANG_HOOKS_EXPAND_CONSTANT	lhd_return_tree
118#define LANG_HOOKS_EXPAND_EXPR		lhd_expand_expr
119#define LANG_HOOKS_EXPAND_DECL		lhd_expand_decl
120#define LANG_HOOKS_SAFE_FROM_P		lhd_safe_from_p
121#define LANG_HOOKS_FINISH_INCOMPLETE_DECL lhd_do_nothing_t
122#define LANG_HOOKS_STATICP		lhd_staticp
123#define LANG_HOOKS_DUP_LANG_SPECIFIC_DECL lhd_do_nothing_t
124#define LANG_HOOKS_SET_DECL_ASSEMBLER_NAME lhd_set_decl_assembler_name
125#define LANG_HOOKS_CAN_USE_BIT_FIELDS_P lhd_can_use_bit_fields_p
126#define LANG_HOOKS_REDUCE_BIT_FIELD_OPERATIONS false
127#define LANG_HOOKS_NO_BODY_BLOCKS	false
128#define LANG_HOOKS_PRINT_STATISTICS	lhd_do_nothing
129#define LANG_HOOKS_PRINT_XNODE		lhd_print_tree_nothing
130#define LANG_HOOKS_PRINT_DECL		lhd_print_tree_nothing
131#define LANG_HOOKS_PRINT_TYPE		lhd_print_tree_nothing
132#define LANG_HOOKS_PRINT_IDENTIFIER	lhd_print_tree_nothing
133#define LANG_HOOKS_PRINT_ERROR_FUNCTION lhd_print_error_function
134#define LANG_HOOKS_DECL_PRINTABLE_NAME	lhd_decl_printable_name
135#define LANG_HOOKS_DWARF_NAME		lhd_dwarf_name
136#define LANG_HOOKS_GET_CALLEE_FNDECL	lhd_return_null_tree
137#define LANG_HOOKS_EXPR_SIZE		lhd_expr_size
138#define LANG_HOOKS_TREE_SIZE		lhd_tree_size
139#define LANG_HOOKS_TYPES_COMPATIBLE_P	lhd_types_compatible_p
140#define LANG_HOOKS_BUILTIN_FUNCTION	builtin_function
141#define LANG_HOOKS_EXPR_TO_DECL		lhd_expr_to_decl
142#define LANG_HOOKS_TO_TARGET_CHARSET	lhd_to_target_charset
143#define LANG_HOOKS_INIT_TS		lhd_do_nothing
144
145#define LANG_HOOKS_FUNCTION_INIT	lhd_do_nothing_f
146#define LANG_HOOKS_FUNCTION_FINAL	lhd_do_nothing_f
147#define LANG_HOOKS_FUNCTION_ENTER_NESTED lhd_do_nothing_f
148#define LANG_HOOKS_FUNCTION_LEAVE_NESTED lhd_do_nothing_f
149#define LANG_HOOKS_FUNCTION_MISSING_NORETURN_OK_P hook_bool_tree_true
150
151/* APPLE LOCAL begin radar 6353006  */
152#define LANG_HOOKS_BUILD_GENERIC_BLOCK_STRUCT_TYPE \
153lhd_build_generic_block_struct_type
154/* APPLE LOCAL end radar 6353006  */
155
156/* Attribute hooks.  */
157#define LANG_HOOKS_ATTRIBUTE_TABLE		NULL
158#define LANG_HOOKS_COMMON_ATTRIBUTE_TABLE	NULL
159#define LANG_HOOKS_FORMAT_ATTRIBUTE_TABLE	NULL
160
161/* Tree inlining hooks.  */
162#define LANG_HOOKS_TREE_INLINING_WALK_SUBTREES lhd_tree_inlining_walk_subtrees
163#define LANG_HOOKS_TREE_INLINING_CANNOT_INLINE_TREE_FN \
164  lhd_tree_inlining_cannot_inline_tree_fn
165#define LANG_HOOKS_TREE_INLINING_DISREGARD_INLINE_LIMITS \
166  lhd_tree_inlining_disregard_inline_limits
167#define LANG_HOOKS_TREE_INLINING_ADD_PENDING_FN_DECLS \
168  lhd_tree_inlining_add_pending_fn_decls
169#define LANG_HOOKS_TREE_INLINING_AUTO_VAR_IN_FN_P \
170  lhd_tree_inlining_auto_var_in_fn_p
171#define LANG_HOOKS_TREE_INLINING_ANON_AGGR_TYPE_P \
172  lhd_tree_inlining_anon_aggr_type_p
173#define LANG_HOOKS_TREE_INLINING_VAR_MOD_TYPE_P \
174  hook_bool_tree_tree_false
175#define LANG_HOOKS_TREE_INLINING_START_INLINING \
176  lhd_tree_inlining_start_inlining
177#define LANG_HOOKS_TREE_INLINING_END_INLINING \
178  lhd_tree_inlining_end_inlining
179#define LANG_HOOKS_TREE_INLINING_CONVERT_PARM_FOR_INLINING \
180  lhd_tree_inlining_convert_parm_for_inlining
181
182#define LANG_HOOKS_TREE_INLINING_INITIALIZER { \
183  LANG_HOOKS_TREE_INLINING_WALK_SUBTREES, \
184  LANG_HOOKS_TREE_INLINING_CANNOT_INLINE_TREE_FN, \
185  LANG_HOOKS_TREE_INLINING_DISREGARD_INLINE_LIMITS, \
186  LANG_HOOKS_TREE_INLINING_ADD_PENDING_FN_DECLS, \
187  LANG_HOOKS_TREE_INLINING_AUTO_VAR_IN_FN_P, \
188  LANG_HOOKS_TREE_INLINING_ANON_AGGR_TYPE_P, \
189  LANG_HOOKS_TREE_INLINING_VAR_MOD_TYPE_P, \
190  LANG_HOOKS_TREE_INLINING_START_INLINING, \
191  LANG_HOOKS_TREE_INLINING_END_INLINING, \
192  LANG_HOOKS_TREE_INLINING_CONVERT_PARM_FOR_INLINING \
193}
194
195#define LANG_HOOKS_CALLGRAPH_ANALYZE_EXPR lhd_callgraph_analyze_expr
196#define LANG_HOOKS_CALLGRAPH_EXPAND_FUNCTION NULL
197
198#define LANG_HOOKS_CALLGRAPH_INITIALIZER { \
199  LANG_HOOKS_CALLGRAPH_ANALYZE_EXPR, \
200  LANG_HOOKS_CALLGRAPH_EXPAND_FUNCTION, \
201}
202
203#define LANG_HOOKS_FUNCTION_INITIALIZER {	\
204  LANG_HOOKS_FUNCTION_INIT,			\
205  LANG_HOOKS_FUNCTION_FINAL,			\
206  LANG_HOOKS_FUNCTION_ENTER_NESTED,		\
207  LANG_HOOKS_FUNCTION_LEAVE_NESTED,		\
208  LANG_HOOKS_FUNCTION_MISSING_NORETURN_OK_P	\
209}
210
211/* Hooks for tree gimplification.  */
212#define LANG_HOOKS_GIMPLIFY_EXPR lhd_gimplify_expr
213#define LANG_HOOKS_FOLD_OBJ_TYPE_REF NULL
214
215/* Tree dump hooks.  */
216extern bool lhd_tree_dump_dump_tree (void *, tree);
217extern int lhd_tree_dump_type_quals (tree);
218extern tree lhd_make_node (enum tree_code);
219
220#define LANG_HOOKS_TREE_DUMP_DUMP_TREE_FN lhd_tree_dump_dump_tree
221#define LANG_HOOKS_TREE_DUMP_TYPE_QUALS_FN lhd_tree_dump_type_quals
222
223#define LANG_HOOKS_TREE_DUMP_INITIALIZER { \
224  LANG_HOOKS_TREE_DUMP_DUMP_TREE_FN, \
225  LANG_HOOKS_TREE_DUMP_TYPE_QUALS_FN \
226}
227
228/* Types hooks.  There are no reasonable defaults for most of them,
229   so we create a compile-time error instead.  */
230#define LANG_HOOKS_MAKE_TYPE lhd_make_node
231#define LANG_HOOKS_INCOMPLETE_TYPE_ERROR lhd_incomplete_type_error
232#define LANG_HOOKS_GENERIC_TYPE_P	hook_bool_tree_false
233#define LANG_HOOKS_TYPE_PROMOTES_TO lhd_type_promotes_to
234#define LANG_HOOKS_REGISTER_BUILTIN_TYPE lhd_register_builtin_type
235#define LANG_HOOKS_TYPE_MAX_SIZE	lhd_return_null_tree
236#define LANG_HOOKS_OMP_FIRSTPRIVATIZE_TYPE_SIZES \
237  lhd_omp_firstprivatize_type_sizes
238/* APPLE LOCAL radar 6386976  */
239#define LANG_HOOKS_IS_RUNTIME_SPECIFIC_TYPE lhd_is_runtime_specific_type
240#define LANG_HOOKS_HASH_TYPES		true
241
242#define LANG_HOOKS_FOR_TYPES_INITIALIZER { \
243  LANG_HOOKS_MAKE_TYPE, \
244  LANG_HOOKS_TYPE_FOR_MODE, \
245  LANG_HOOKS_TYPE_FOR_SIZE, \
246  LANG_HOOKS_UNSIGNED_TYPE, \
247  LANG_HOOKS_SIGNED_TYPE, \
248  LANG_HOOKS_SIGNED_OR_UNSIGNED_TYPE, \
249  LANG_HOOKS_GENERIC_TYPE_P, \
250  LANG_HOOKS_TYPE_PROMOTES_TO, \
251  LANG_HOOKS_REGISTER_BUILTIN_TYPE, \
252  LANG_HOOKS_INCOMPLETE_TYPE_ERROR, \
253  LANG_HOOKS_TYPE_MAX_SIZE, \
254  LANG_HOOKS_OMP_FIRSTPRIVATIZE_TYPE_SIZES, \
255  /* APPLE LOCAL radar 6386976  */ \
256  LANG_HOOKS_IS_RUNTIME_SPECIFIC_TYPE, \
257  LANG_HOOKS_HASH_TYPES \
258}
259
260/* Declaration hooks.  */
261#define LANG_HOOKS_GLOBAL_BINDINGS_P global_bindings_p
262#define LANG_HOOKS_INSERT_BLOCK	insert_block
263#define LANG_HOOKS_PUSHDECL	pushdecl
264#define LANG_HOOKS_GETDECLS	getdecls
265#define LANG_HOOKS_WARN_UNUSED_GLOBAL_DECL lhd_warn_unused_global_decl
266#define LANG_HOOKS_WRITE_GLOBALS write_global_declarations
267#define LANG_HOOKS_PREPARE_ASSEMBLE_VARIABLE NULL
268#define LANG_HOOKS_DECL_OK_FOR_SIBCALL	lhd_decl_ok_for_sibcall
269#define LANG_HOOKS_COMDAT_GROUP lhd_comdat_group
270#define LANG_HOOKS_OMP_PRIVATIZE_BY_REFERENCE hook_bool_tree_false
271#define LANG_HOOKS_OMP_PREDETERMINED_SHARING lhd_omp_predetermined_sharing
272#define LANG_HOOKS_OMP_DISREGARD_VALUE_EXPR hook_bool_tree_bool_false
273#define LANG_HOOKS_OMP_PRIVATE_DEBUG_CLAUSE hook_bool_tree_bool_false
274#define LANG_HOOKS_OMP_CLAUSE_DEFAULT_CTOR hook_tree_tree_tree_null
275#define LANG_HOOKS_OMP_CLAUSE_COPY_CTOR lhd_omp_assignment
276#define LANG_HOOKS_OMP_CLAUSE_ASSIGN_OP lhd_omp_assignment
277#define LANG_HOOKS_OMP_CLAUSE_DTOR hook_tree_tree_tree_null
278
279#define LANG_HOOKS_DECLS { \
280  LANG_HOOKS_GLOBAL_BINDINGS_P, \
281  LANG_HOOKS_INSERT_BLOCK, \
282  LANG_HOOKS_PUSHDECL, \
283  LANG_HOOKS_GETDECLS, \
284  LANG_HOOKS_WARN_UNUSED_GLOBAL_DECL, \
285  LANG_HOOKS_WRITE_GLOBALS, \
286  LANG_HOOKS_PREPARE_ASSEMBLE_VARIABLE, \
287  LANG_HOOKS_DECL_OK_FOR_SIBCALL, \
288  LANG_HOOKS_COMDAT_GROUP, \
289  LANG_HOOKS_OMP_PRIVATIZE_BY_REFERENCE, \
290  LANG_HOOKS_OMP_PREDETERMINED_SHARING, \
291  LANG_HOOKS_OMP_DISREGARD_VALUE_EXPR, \
292  LANG_HOOKS_OMP_PRIVATE_DEBUG_CLAUSE, \
293  LANG_HOOKS_OMP_CLAUSE_DEFAULT_CTOR, \
294  LANG_HOOKS_OMP_CLAUSE_COPY_CTOR, \
295  LANG_HOOKS_OMP_CLAUSE_ASSIGN_OP, \
296  LANG_HOOKS_OMP_CLAUSE_DTOR \
297}
298
299/* The whole thing.  The structure is defined in langhooks.h.  */
300#define LANG_HOOKS_INITIALIZER { \
301  LANG_HOOKS_NAME, \
302  LANG_HOOKS_IDENTIFIER_SIZE, \
303  LANG_HOOKS_TREE_SIZE, \
304  LANG_HOOKS_INIT_OPTIONS, \
305  LANG_HOOKS_INITIALIZE_DIAGNOSTICS, \
306  LANG_HOOKS_HANDLE_OPTION, \
307  LANG_HOOKS_MISSING_ARGUMENT, \
308  LANG_HOOKS_POST_OPTIONS, \
309  LANG_HOOKS_INIT, \
310  LANG_HOOKS_FINISH, \
311  LANG_HOOKS_PARSE_FILE, \
312  LANG_HOOKS_CLEAR_BINDING_STACK, \
313  LANG_HOOKS_GET_ALIAS_SET, \
314  LANG_HOOKS_EXPAND_CONSTANT, \
315  LANG_HOOKS_EXPAND_EXPR, \
316  LANG_HOOKS_EXPAND_DECL, \
317  LANG_HOOKS_SAFE_FROM_P, \
318  LANG_HOOKS_FINISH_INCOMPLETE_DECL, \
319  LANG_HOOKS_MARK_ADDRESSABLE, \
320  LANG_HOOKS_STATICP, \
321  LANG_HOOKS_DUP_LANG_SPECIFIC_DECL, \
322  LANG_HOOKS_SET_DECL_ASSEMBLER_NAME, \
323  LANG_HOOKS_CAN_USE_BIT_FIELDS_P, \
324  LANG_HOOKS_REDUCE_BIT_FIELD_OPERATIONS, \
325  LANG_HOOKS_NO_BODY_BLOCKS, \
326  LANG_HOOKS_PRINT_STATISTICS, \
327  LANG_HOOKS_PRINT_XNODE, \
328  LANG_HOOKS_PRINT_DECL, \
329  LANG_HOOKS_PRINT_TYPE, \
330  LANG_HOOKS_PRINT_IDENTIFIER, \
331  LANG_HOOKS_DECL_PRINTABLE_NAME, \
332  LANG_HOOKS_DWARF_NAME, \
333  LANG_HOOKS_TYPES_COMPATIBLE_P, \
334  LANG_HOOKS_GET_CALLEE_FNDECL, \
335  LANG_HOOKS_PRINT_ERROR_FUNCTION, \
336  LANG_HOOKS_EXPR_SIZE, \
337  LANG_HOOKS_TO_TARGET_CHARSET, \
338  LANG_HOOKS_ATTRIBUTE_TABLE, \
339  LANG_HOOKS_COMMON_ATTRIBUTE_TABLE, \
340  LANG_HOOKS_FORMAT_ATTRIBUTE_TABLE, \
341  LANG_HOOKS_FUNCTION_INITIALIZER, \
342  LANG_HOOKS_TREE_INLINING_INITIALIZER, \
343  LANG_HOOKS_CALLGRAPH_INITIALIZER, \
344  LANG_HOOKS_TREE_DUMP_INITIALIZER, \
345  LANG_HOOKS_DECLS, \
346  LANG_HOOKS_FOR_TYPES_INITIALIZER, \
347  LANG_HOOKS_GIMPLIFY_EXPR, \
348  LANG_HOOKS_FOLD_OBJ_TYPE_REF, \
349  LANG_HOOKS_BUILTIN_FUNCTION, \
350  LANG_HOOKS_INIT_TS,          \
351  LANG_HOOKS_EXPR_TO_DECL, \
352/* APPLE LOCAL radar 6353006  */ \
353  LANG_HOOKS_BUILD_GENERIC_BLOCK_STRUCT_TYPE, \
354}
355
356#endif /* GCC_LANG_HOOKS_DEF_H */
357