OSDN Git Service

gcc/fortran:
[pf3gnuchains/gcc-fork.git] / gcc / langhooks-def.h
1 /* Default macros to initialize the lang_hooks data structure.
2    Copyright 2001, 2002, 2003, 2004, 2005, 2006, 2007 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 2, 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 COPYING.  If not, write to
19 the Free Software Foundation, 51 Franklin Street, Fifth Floor,
20 Boston, 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
27 struct diagnostic_context;
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_i (int);
41 extern void lhd_do_nothing_f (struct function *);
42 extern bool lhd_post_options (const char **);
43 extern HOST_WIDE_INT lhd_get_alias_set (tree);
44 extern tree lhd_return_tree (tree);
45 extern tree lhd_return_null_tree_v (void);
46 extern tree lhd_return_null_tree (tree);
47 extern tree lhd_do_nothing_iii_return_null_tree (int, int, int);
48 extern tree lhd_staticp (tree);
49 extern void lhd_print_tree_nothing (FILE *, tree, int);
50 extern const char *lhd_decl_printable_name (tree, int);
51 extern const char *lhd_dwarf_name (tree, int);
52 extern int lhd_types_compatible_p (tree, tree);
53 extern rtx lhd_expand_expr (tree, rtx, enum machine_mode, int, rtx *);
54 extern int lhd_expand_decl (tree);
55 extern void lhd_print_error_function (struct diagnostic_context *,
56                                       const char *);
57 extern void lhd_set_decl_assembler_name (tree);
58 extern bool lhd_warn_unused_global_decl (tree);
59 extern void lhd_incomplete_type_error (tree, tree);
60 extern tree lhd_type_promotes_to (tree);
61 extern void lhd_register_builtin_type (tree, const char *);
62 extern bool lhd_decl_ok_for_sibcall (tree);
63 extern const char *lhd_comdat_group (tree);
64 extern tree lhd_expr_size (tree);
65 extern size_t lhd_tree_size (enum tree_code);
66 extern HOST_WIDE_INT lhd_to_target_charset (HOST_WIDE_INT);
67 extern tree lhd_expr_to_decl (tree, bool *, bool *, bool *);
68 extern tree lhd_builtin_function (tree decl);
69
70 /* Declarations of default tree inlining hooks.  */
71 extern tree lhd_tree_inlining_walk_subtrees (tree *, int *, walk_tree_fn,
72                                              void *, struct pointer_set_t*);
73 extern int lhd_tree_inlining_cannot_inline_tree_fn (tree *);
74 extern int lhd_tree_inlining_disregard_inline_limits (tree);
75 extern int lhd_tree_inlining_auto_var_in_fn_p (tree, tree);
76 extern void lhd_initialize_diagnostics (struct diagnostic_context *);
77 extern tree lhd_callgraph_analyze_expr (tree *, int *, tree);
78
79
80 /* Declarations for tree gimplification hooks.  */
81 extern int lhd_gimplify_expr (tree *, tree *, tree *);
82 extern enum omp_clause_default_kind lhd_omp_predetermined_sharing (tree);
83 extern tree lhd_omp_assignment (tree, tree, tree);
84 struct gimplify_omp_ctx;
85 extern void lhd_omp_firstprivatize_type_sizes (struct gimplify_omp_ctx *,
86                                                tree);
87
88 #define LANG_HOOKS_NAME                 "GNU unknown"
89 #define LANG_HOOKS_IDENTIFIER_SIZE      sizeof (struct lang_identifier)
90 #define LANG_HOOKS_INIT                 hook_bool_void_false
91 #define LANG_HOOKS_FINISH               lhd_do_nothing
92 #define LANG_HOOKS_PARSE_FILE           lhd_do_nothing_i
93 #define LANG_HOOKS_CLEAR_BINDING_STACK  lhd_do_nothing
94 #define LANG_HOOKS_INIT_OPTIONS         hook_uint_uint_constcharptrptr_0
95 #define LANG_HOOKS_INITIALIZE_DIAGNOSTICS lhd_initialize_diagnostics
96 #define LANG_HOOKS_HANDLE_OPTION        hook_int_size_t_constcharptr_int_0
97 #define LANG_HOOKS_MISSING_ARGUMENT     hook_bool_constcharptr_size_t_false
98 #define LANG_HOOKS_POST_OPTIONS         lhd_post_options
99 #define LANG_HOOKS_GET_ALIAS_SET        lhd_get_alias_set
100 #define LANG_HOOKS_EXPAND_CONSTANT      lhd_return_tree
101 #define LANG_HOOKS_EXPAND_EXPR          lhd_expand_expr
102 #define LANG_HOOKS_EXPAND_DECL          lhd_expand_decl
103 #define LANG_HOOKS_FINISH_INCOMPLETE_DECL lhd_do_nothing_t
104 #define LANG_HOOKS_STATICP              lhd_staticp
105 #define LANG_HOOKS_DUP_LANG_SPECIFIC_DECL lhd_do_nothing_t
106 #define LANG_HOOKS_SET_DECL_ASSEMBLER_NAME lhd_set_decl_assembler_name
107 #define LANG_HOOKS_REDUCE_BIT_FIELD_OPERATIONS false
108 #define LANG_HOOKS_NO_BODY_BLOCKS       false
109 #define LANG_HOOKS_PRINT_STATISTICS     lhd_do_nothing
110 #define LANG_HOOKS_PRINT_XNODE          lhd_print_tree_nothing
111 #define LANG_HOOKS_PRINT_DECL           lhd_print_tree_nothing
112 #define LANG_HOOKS_PRINT_TYPE           lhd_print_tree_nothing
113 #define LANG_HOOKS_PRINT_IDENTIFIER     lhd_print_tree_nothing
114 #define LANG_HOOKS_PRINT_ERROR_FUNCTION lhd_print_error_function
115 #define LANG_HOOKS_DECL_PRINTABLE_NAME  lhd_decl_printable_name
116 #define LANG_HOOKS_DWARF_NAME           lhd_dwarf_name
117 #define LANG_HOOKS_GET_CALLEE_FNDECL    lhd_return_null_tree
118 #define LANG_HOOKS_EXPR_SIZE            lhd_expr_size
119 #define LANG_HOOKS_TREE_SIZE            lhd_tree_size
120 #define LANG_HOOKS_TYPES_COMPATIBLE_P   lhd_types_compatible_p
121 #define LANG_HOOKS_BUILTIN_FUNCTION     lhd_builtin_function
122 #define LANG_HOOKS_EXPR_TO_DECL         lhd_expr_to_decl
123 #define LANG_HOOKS_TO_TARGET_CHARSET    lhd_to_target_charset
124 #define LANG_HOOKS_INIT_TS              lhd_do_nothing
125
126 #define LANG_HOOKS_FUNCTION_INIT        lhd_do_nothing_f
127 #define LANG_HOOKS_FUNCTION_FINAL       lhd_do_nothing_f
128 #define LANG_HOOKS_FUNCTION_ENTER_NESTED lhd_do_nothing_f
129 #define LANG_HOOKS_FUNCTION_LEAVE_NESTED lhd_do_nothing_f
130 #define LANG_HOOKS_FUNCTION_MISSING_NORETURN_OK_P hook_bool_tree_true
131
132 /* Attribute hooks.  */
133 #define LANG_HOOKS_ATTRIBUTE_TABLE              NULL
134 #define LANG_HOOKS_COMMON_ATTRIBUTE_TABLE       NULL
135 #define LANG_HOOKS_FORMAT_ATTRIBUTE_TABLE       NULL
136
137 /* Tree inlining hooks.  */
138 #define LANG_HOOKS_TREE_INLINING_WALK_SUBTREES lhd_tree_inlining_walk_subtrees
139 #define LANG_HOOKS_TREE_INLINING_CANNOT_INLINE_TREE_FN \
140   lhd_tree_inlining_cannot_inline_tree_fn
141 #define LANG_HOOKS_TREE_INLINING_DISREGARD_INLINE_LIMITS \
142   lhd_tree_inlining_disregard_inline_limits
143 #define LANG_HOOKS_TREE_INLINING_AUTO_VAR_IN_FN_P \
144   lhd_tree_inlining_auto_var_in_fn_p
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_WALK_SUBTREES, \
150   LANG_HOOKS_TREE_INLINING_CANNOT_INLINE_TREE_FN, \
151   LANG_HOOKS_TREE_INLINING_DISREGARD_INLINE_LIMITS, \
152   LANG_HOOKS_TREE_INLINING_AUTO_VAR_IN_FN_P, \
153   LANG_HOOKS_TREE_INLINING_VAR_MOD_TYPE_P, \
154 }
155
156 #define LANG_HOOKS_CALLGRAPH_ANALYZE_EXPR lhd_callgraph_analyze_expr
157 #define LANG_HOOKS_CALLGRAPH_EXPAND_FUNCTION NULL
158
159 #define LANG_HOOKS_CALLGRAPH_INITIALIZER { \
160   LANG_HOOKS_CALLGRAPH_ANALYZE_EXPR, \
161   LANG_HOOKS_CALLGRAPH_EXPAND_FUNCTION, \
162 }
163
164 #define LANG_HOOKS_FUNCTION_INITIALIZER {       \
165   LANG_HOOKS_FUNCTION_INIT,                     \
166   LANG_HOOKS_FUNCTION_FINAL,                    \
167   LANG_HOOKS_FUNCTION_ENTER_NESTED,             \
168   LANG_HOOKS_FUNCTION_LEAVE_NESTED,             \
169   LANG_HOOKS_FUNCTION_MISSING_NORETURN_OK_P     \
170 }
171
172 /* Hooks for tree gimplification.  */
173 #define LANG_HOOKS_GIMPLIFY_EXPR lhd_gimplify_expr
174 #define LANG_HOOKS_FOLD_OBJ_TYPE_REF NULL
175
176 /* Tree dump hooks.  */
177 extern bool lhd_tree_dump_dump_tree (void *, tree);
178 extern int lhd_tree_dump_type_quals (tree);
179 extern tree lhd_make_node (enum tree_code);
180
181 #define LANG_HOOKS_TREE_DUMP_DUMP_TREE_FN lhd_tree_dump_dump_tree
182 #define LANG_HOOKS_TREE_DUMP_TYPE_QUALS_FN lhd_tree_dump_type_quals
183
184 #define LANG_HOOKS_TREE_DUMP_INITIALIZER { \
185   LANG_HOOKS_TREE_DUMP_DUMP_TREE_FN, \
186   LANG_HOOKS_TREE_DUMP_TYPE_QUALS_FN \
187 }
188
189 /* Types hooks.  There are no reasonable defaults for most of them,
190    so we create a compile-time error instead.  */
191 #define LANG_HOOKS_MAKE_TYPE lhd_make_node
192 #define LANG_HOOKS_INCOMPLETE_TYPE_ERROR lhd_incomplete_type_error
193 #define LANG_HOOKS_GENERIC_TYPE_P       hook_bool_tree_false
194 #define LANG_HOOKS_TYPE_PROMOTES_TO lhd_type_promotes_to
195 #define LANG_HOOKS_REGISTER_BUILTIN_TYPE lhd_register_builtin_type
196 #define LANG_HOOKS_TYPE_MAX_SIZE        lhd_return_null_tree
197 #define LANG_HOOKS_OMP_FIRSTPRIVATIZE_TYPE_SIZES \
198   lhd_omp_firstprivatize_type_sizes
199 #define LANG_HOOKS_HASH_TYPES           true
200
201 #define LANG_HOOKS_FOR_TYPES_INITIALIZER { \
202   LANG_HOOKS_MAKE_TYPE, \
203   LANG_HOOKS_TYPE_FOR_MODE, \
204   LANG_HOOKS_TYPE_FOR_SIZE, \
205   LANG_HOOKS_GENERIC_TYPE_P, \
206   LANG_HOOKS_TYPE_PROMOTES_TO, \
207   LANG_HOOKS_REGISTER_BUILTIN_TYPE, \
208   LANG_HOOKS_INCOMPLETE_TYPE_ERROR, \
209   LANG_HOOKS_TYPE_MAX_SIZE, \
210   LANG_HOOKS_OMP_FIRSTPRIVATIZE_TYPE_SIZES, \
211   LANG_HOOKS_HASH_TYPES \
212 }
213
214 /* Declaration hooks.  */
215 #define LANG_HOOKS_GLOBAL_BINDINGS_P global_bindings_p
216 #define LANG_HOOKS_INSERT_BLOCK insert_block
217 #define LANG_HOOKS_PUSHDECL     pushdecl
218 #define LANG_HOOKS_GETDECLS     getdecls
219 #define LANG_HOOKS_WARN_UNUSED_GLOBAL_DECL lhd_warn_unused_global_decl
220 #define LANG_HOOKS_WRITE_GLOBALS write_global_declarations
221 #define LANG_HOOKS_DECL_OK_FOR_SIBCALL  lhd_decl_ok_for_sibcall
222 #define LANG_HOOKS_COMDAT_GROUP lhd_comdat_group
223 #define LANG_HOOKS_OMP_PRIVATIZE_BY_REFERENCE hook_bool_tree_false
224 #define LANG_HOOKS_OMP_PREDETERMINED_SHARING lhd_omp_predetermined_sharing
225 #define LANG_HOOKS_OMP_DISREGARD_VALUE_EXPR hook_bool_tree_bool_false
226 #define LANG_HOOKS_OMP_PRIVATE_DEBUG_CLAUSE hook_bool_tree_bool_false
227 #define LANG_HOOKS_OMP_CLAUSE_DEFAULT_CTOR hook_tree_tree_tree_null
228 #define LANG_HOOKS_OMP_CLAUSE_COPY_CTOR lhd_omp_assignment
229 #define LANG_HOOKS_OMP_CLAUSE_ASSIGN_OP lhd_omp_assignment
230 #define LANG_HOOKS_OMP_CLAUSE_DTOR hook_tree_tree_tree_null
231
232 #define LANG_HOOKS_DECLS { \
233   LANG_HOOKS_GLOBAL_BINDINGS_P, \
234   LANG_HOOKS_INSERT_BLOCK, \
235   LANG_HOOKS_PUSHDECL, \
236   LANG_HOOKS_GETDECLS, \
237   LANG_HOOKS_WARN_UNUSED_GLOBAL_DECL, \
238   LANG_HOOKS_WRITE_GLOBALS, \
239   LANG_HOOKS_DECL_OK_FOR_SIBCALL, \
240   LANG_HOOKS_COMDAT_GROUP, \
241   LANG_HOOKS_OMP_PRIVATIZE_BY_REFERENCE, \
242   LANG_HOOKS_OMP_PREDETERMINED_SHARING, \
243   LANG_HOOKS_OMP_DISREGARD_VALUE_EXPR, \
244   LANG_HOOKS_OMP_PRIVATE_DEBUG_CLAUSE, \
245   LANG_HOOKS_OMP_CLAUSE_DEFAULT_CTOR, \
246   LANG_HOOKS_OMP_CLAUSE_COPY_CTOR, \
247   LANG_HOOKS_OMP_CLAUSE_ASSIGN_OP, \
248   LANG_HOOKS_OMP_CLAUSE_DTOR \
249 }
250
251 /* The whole thing.  The structure is defined in langhooks.h.  */
252 #define LANG_HOOKS_INITIALIZER { \
253   LANG_HOOKS_NAME, \
254   LANG_HOOKS_IDENTIFIER_SIZE, \
255   LANG_HOOKS_TREE_SIZE, \
256   LANG_HOOKS_INIT_OPTIONS, \
257   LANG_HOOKS_INITIALIZE_DIAGNOSTICS, \
258   LANG_HOOKS_HANDLE_OPTION, \
259   LANG_HOOKS_MISSING_ARGUMENT, \
260   LANG_HOOKS_POST_OPTIONS, \
261   LANG_HOOKS_INIT, \
262   LANG_HOOKS_FINISH, \
263   LANG_HOOKS_PARSE_FILE, \
264   LANG_HOOKS_CLEAR_BINDING_STACK, \
265   LANG_HOOKS_GET_ALIAS_SET, \
266   LANG_HOOKS_EXPAND_CONSTANT, \
267   LANG_HOOKS_EXPAND_EXPR, \
268   LANG_HOOKS_EXPAND_DECL, \
269   LANG_HOOKS_FINISH_INCOMPLETE_DECL, \
270   LANG_HOOKS_MARK_ADDRESSABLE, \
271   LANG_HOOKS_STATICP, \
272   LANG_HOOKS_DUP_LANG_SPECIFIC_DECL, \
273   LANG_HOOKS_SET_DECL_ASSEMBLER_NAME, \
274   LANG_HOOKS_REDUCE_BIT_FIELD_OPERATIONS, \
275   LANG_HOOKS_NO_BODY_BLOCKS, \
276   LANG_HOOKS_PRINT_STATISTICS, \
277   LANG_HOOKS_PRINT_XNODE, \
278   LANG_HOOKS_PRINT_DECL, \
279   LANG_HOOKS_PRINT_TYPE, \
280   LANG_HOOKS_PRINT_IDENTIFIER, \
281   LANG_HOOKS_DECL_PRINTABLE_NAME, \
282   LANG_HOOKS_DWARF_NAME, \
283   LANG_HOOKS_TYPES_COMPATIBLE_P, \
284   LANG_HOOKS_GET_CALLEE_FNDECL, \
285   LANG_HOOKS_PRINT_ERROR_FUNCTION, \
286   LANG_HOOKS_EXPR_SIZE, \
287   LANG_HOOKS_TO_TARGET_CHARSET, \
288   LANG_HOOKS_ATTRIBUTE_TABLE, \
289   LANG_HOOKS_COMMON_ATTRIBUTE_TABLE, \
290   LANG_HOOKS_FORMAT_ATTRIBUTE_TABLE, \
291   LANG_HOOKS_FUNCTION_INITIALIZER, \
292   LANG_HOOKS_TREE_INLINING_INITIALIZER, \
293   LANG_HOOKS_CALLGRAPH_INITIALIZER, \
294   LANG_HOOKS_TREE_DUMP_INITIALIZER, \
295   LANG_HOOKS_DECLS, \
296   LANG_HOOKS_FOR_TYPES_INITIALIZER, \
297   LANG_HOOKS_GIMPLIFY_EXPR, \
298   LANG_HOOKS_FOLD_OBJ_TYPE_REF, \
299   LANG_HOOKS_BUILTIN_FUNCTION, \
300   LANG_HOOKS_INIT_TS,          \
301   LANG_HOOKS_EXPR_TO_DECL, \
302 }
303
304 #endif /* GCC_LANG_HOOKS_DEF_H */