]>
Commit | Line | Data |
---|---|---|
b0278d39 | 1 | /* Default macros to initialize the lang_hooks data structure. |
3ad4992f | 2 | Copyright 2001, 2002, 2003 Free Software Foundation, Inc. |
b0278d39 | 3 | Contributed by Alexandre Oliva <aoliva@redhat.com> |
4 | ||
4642865b | 5 | This file is part of GCC. |
b0278d39 | 6 | |
4642865b | 7 | GCC is free software; you can redistribute it and/or modify |
b0278d39 | 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 | ||
4642865b | 12 | GCC is distributed in the hope that it will be useful, |
b0278d39 | 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 | |
4642865b | 18 | along with GCC; see the file COPYING. If not, write to |
b0278d39 | 19 | the Free Software Foundation, 59 Temple Place - Suite 330, |
20 | Boston, MA 02111-1307, USA. */ | |
21 | ||
22 | #ifndef GCC_LANG_HOOKS_DEF_H | |
23 | #define GCC_LANG_HOOKS_DEF_H | |
24 | ||
dd436eaf | 25 | #include "hooks.h" |
26 | ||
6c7ff025 | 27 | struct diagnostic_context; |
28 | ||
b0278d39 | 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. */ | |
3ad4992f | 31 | extern HOST_WIDE_INT hook_get_alias_set_0 (tree); |
b0278d39 | 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 | |
e938cdf5 | 38 | its struct lang_hooks, AFTER including this file. */ |
b0278d39 | 39 | |
40 | /* See langhooks.h for the definition and documentation of each hook. */ | |
41 | ||
3ad4992f | 42 | extern void lhd_do_nothing (void); |
43 | extern void lhd_do_nothing_t (tree); | |
44 | extern void lhd_do_nothing_i (int); | |
45 | extern void lhd_do_nothing_f (struct function *); | |
46 | extern bool lhd_post_options (const char **); | |
47 | extern HOST_WIDE_INT lhd_get_alias_set (tree); | |
48 | extern tree lhd_return_tree (tree); | |
49 | extern tree lhd_return_null_tree (tree); | |
50 | extern int lhd_safe_from_p (rtx, tree); | |
51 | extern int lhd_staticp (tree); | |
52 | extern int lhd_unsafe_for_reeval (tree); | |
53 | extern void lhd_clear_binding_stack (void); | |
54 | extern void lhd_print_tree_nothing (FILE *, tree, int); | |
55 | extern const char *lhd_decl_printable_name (tree, int); | |
56 | extern rtx lhd_expand_expr (tree, rtx, enum machine_mode, int); | |
57 | extern void lhd_print_error_function (struct diagnostic_context *, | |
58 | const char *); | |
59 | extern void lhd_set_decl_assembler_name (tree); | |
60 | extern bool lhd_can_use_bit_fields_p (void); | |
61 | extern bool lhd_warn_unused_global_decl (tree); | |
62 | extern void lhd_incomplete_type_error (tree, tree); | |
63 | extern tree lhd_type_promotes_to (tree); | |
64 | extern bool lhd_decl_ok_for_sibcall (tree); | |
65 | extern tree lhd_expr_size (tree); | |
66 | extern size_t lhd_tree_size (enum tree_code); | |
b0278d39 | 67 | |
68 | /* Declarations of default tree inlining hooks. */ | |
3ad4992f | 69 | extern tree lhd_tree_inlining_walk_subtrees (tree *, int *, walk_tree_fn, |
70 | void *, void *); | |
71 | extern int lhd_tree_inlining_cannot_inline_tree_fn (tree *); | |
72 | extern int lhd_tree_inlining_disregard_inline_limits (tree); | |
73 | extern tree lhd_tree_inlining_add_pending_fn_decls (void *, tree); | |
74 | extern int lhd_tree_inlining_tree_chain_matters_p (tree); | |
75 | extern int lhd_tree_inlining_auto_var_in_fn_p (tree, tree); | |
76 | extern tree lhd_tree_inlining_copy_res_decl_for_inlining (tree, tree, tree, | |
77 | void *, int *, tree); | |
78 | extern int lhd_tree_inlining_anon_aggr_type_p (tree); | |
79 | extern int lhd_tree_inlining_start_inlining (tree); | |
80 | extern void lhd_tree_inlining_end_inlining (tree); | |
81 | extern tree lhd_tree_inlining_convert_parm_for_inlining (tree, tree, tree); | |
82 | ||
83 | extern void write_global_declarations (void); | |
28db4d96 | 84 | |
d19bd1f0 | 85 | #define LANG_HOOKS_NAME "GNU unknown" |
86 | #define LANG_HOOKS_IDENTIFIER_SIZE sizeof (struct lang_identifier) | |
03bde601 | 87 | #define LANG_HOOKS_INIT hook_bool_void_false |
b0278d39 | 88 | #define LANG_HOOKS_FINISH lhd_do_nothing |
1c542e4c | 89 | #define LANG_HOOKS_PARSE_FILE lhd_do_nothing_i |
b0278d39 | 90 | #define LANG_HOOKS_CLEAR_BINDING_STACK lhd_clear_binding_stack |
4838a8b6 | 91 | #define LANG_HOOKS_INIT_OPTIONS hook_uint_uint_constcharptrptr_0 |
92 | #define LANG_HOOKS_HANDLE_OPTION hook_int_size_t_constcharptr_int_0 | |
03bde601 | 93 | #define LANG_HOOKS_POST_OPTIONS lhd_post_options |
b0278d39 | 94 | #define LANG_HOOKS_GET_ALIAS_SET lhd_get_alias_set |
b3187c7c | 95 | #define LANG_HOOKS_EXPAND_CONSTANT lhd_return_tree |
b467ecc1 | 96 | #define LANG_HOOKS_EXPAND_EXPR lhd_expand_expr |
b3187c7c | 97 | #define LANG_HOOKS_SAFE_FROM_P lhd_safe_from_p |
ee23fd7b | 98 | #define LANG_HOOKS_FINISH_INCOMPLETE_DECL lhd_do_nothing_t |
99 | #define LANG_HOOKS_UNSAFE_FOR_REEVAL lhd_unsafe_for_reeval | |
f1833f1b | 100 | #define LANG_HOOKS_STATICP lhd_staticp |
26ca6c20 | 101 | #define LANG_HOOKS_INSERT_DEFAULT_ATTRIBUTES lhd_do_nothing_t |
dbc42b78 | 102 | #define LANG_HOOKS_DUP_LANG_SPECIFIC_DECL lhd_do_nothing_t |
1d347c23 | 103 | #define LANG_HOOKS_UNSAVE_EXPR_NOW lhd_unsave_expr_now |
04745efb | 104 | #define LANG_HOOKS_MAYBE_BUILD_CLEANUP lhd_return_null_tree |
d1f6c8f2 | 105 | #define LANG_HOOKS_SET_DECL_ASSEMBLER_NAME lhd_set_decl_assembler_name |
d50b22af | 106 | #define LANG_HOOKS_CAN_USE_BIT_FIELDS_P lhd_can_use_bit_fields_p |
b0278d39 | 107 | #define LANG_HOOKS_HONOR_READONLY false |
685b5cc2 | 108 | #define LANG_HOOKS_NO_BODY_BLOCKS false |
b7fced5e | 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 | |
6c7ff025 | 114 | #define LANG_HOOKS_PRINT_ERROR_FUNCTION lhd_print_error_function |
96554925 | 115 | #define LANG_HOOKS_DECL_PRINTABLE_NAME lhd_decl_printable_name |
c3f16ae3 | 116 | #define LANG_HOOKS_EXPR_SIZE lhd_expr_size |
295e387a | 117 | #define LANG_HOOKS_TREE_SIZE lhd_tree_size |
b0278d39 | 118 | |
c80c4f22 | 119 | #define LANG_HOOKS_FUNCTION_INIT lhd_do_nothing_f |
1f3233d1 | 120 | #define LANG_HOOKS_FUNCTION_FINAL lhd_do_nothing_f |
c80c4f22 | 121 | #define LANG_HOOKS_FUNCTION_ENTER_NESTED lhd_do_nothing_f |
122 | #define LANG_HOOKS_FUNCTION_LEAVE_NESTED lhd_do_nothing_f | |
c80c4f22 | 123 | |
f8e93a2e | 124 | /* Attribute hooks. */ |
125 | #define LANG_HOOKS_ATTRIBUTE_TABLE NULL | |
126 | #define LANG_HOOKS_COMMON_ATTRIBUTE_TABLE NULL | |
127 | #define LANG_HOOKS_FORMAT_ATTRIBUTE_TABLE NULL | |
128 | ||
b0278d39 | 129 | /* Tree inlining hooks. */ |
130 | #define LANG_HOOKS_TREE_INLINING_WALK_SUBTREES lhd_tree_inlining_walk_subtrees | |
131 | #define LANG_HOOKS_TREE_INLINING_CANNOT_INLINE_TREE_FN \ | |
132 | lhd_tree_inlining_cannot_inline_tree_fn | |
133 | #define LANG_HOOKS_TREE_INLINING_DISREGARD_INLINE_LIMITS \ | |
134 | lhd_tree_inlining_disregard_inline_limits | |
135 | #define LANG_HOOKS_TREE_INLINING_ADD_PENDING_FN_DECLS \ | |
136 | lhd_tree_inlining_add_pending_fn_decls | |
137 | #define LANG_HOOKS_TREE_INLINING_TREE_CHAIN_MATTERS_P \ | |
138 | lhd_tree_inlining_tree_chain_matters_p | |
139 | #define LANG_HOOKS_TREE_INLINING_AUTO_VAR_IN_FN_P \ | |
140 | lhd_tree_inlining_auto_var_in_fn_p | |
141 | #define LANG_HOOKS_TREE_INLINING_COPY_RES_DECL_FOR_INLINING \ | |
142 | lhd_tree_inlining_copy_res_decl_for_inlining | |
143 | #define LANG_HOOKS_TREE_INLINING_ANON_AGGR_TYPE_P \ | |
144 | lhd_tree_inlining_anon_aggr_type_p | |
21ac3a84 | 145 | #define LANG_HOOKS_TREE_INLINING_VAR_MOD_TYPE_P \ |
b2ec75b5 | 146 | hook_bool_tree_false |
054e01a7 | 147 | #define LANG_HOOKS_TREE_INLINING_START_INLINING \ |
148 | lhd_tree_inlining_start_inlining | |
149 | #define LANG_HOOKS_TREE_INLINING_END_INLINING \ | |
150 | lhd_tree_inlining_end_inlining | |
78b80426 | 151 | #define LANG_HOOKS_TREE_INLINING_CONVERT_PARM_FOR_INLINING \ |
152 | lhd_tree_inlining_convert_parm_for_inlining | |
b0278d39 | 153 | |
154 | #define LANG_HOOKS_TREE_INLINING_INITIALIZER { \ | |
155 | LANG_HOOKS_TREE_INLINING_WALK_SUBTREES, \ | |
156 | LANG_HOOKS_TREE_INLINING_CANNOT_INLINE_TREE_FN, \ | |
157 | LANG_HOOKS_TREE_INLINING_DISREGARD_INLINE_LIMITS, \ | |
158 | LANG_HOOKS_TREE_INLINING_ADD_PENDING_FN_DECLS, \ | |
159 | LANG_HOOKS_TREE_INLINING_TREE_CHAIN_MATTERS_P, \ | |
160 | LANG_HOOKS_TREE_INLINING_AUTO_VAR_IN_FN_P, \ | |
161 | LANG_HOOKS_TREE_INLINING_COPY_RES_DECL_FOR_INLINING, \ | |
054e01a7 | 162 | LANG_HOOKS_TREE_INLINING_ANON_AGGR_TYPE_P, \ |
21ac3a84 | 163 | LANG_HOOKS_TREE_INLINING_VAR_MOD_TYPE_P, \ |
054e01a7 | 164 | LANG_HOOKS_TREE_INLINING_START_INLINING, \ |
78b80426 | 165 | LANG_HOOKS_TREE_INLINING_END_INLINING, \ |
166 | LANG_HOOKS_TREE_INLINING_CONVERT_PARM_FOR_INLINING \ | |
b0278d39 | 167 | } \ |
168 | ||
833eb724 | 169 | #define LANG_HOOKS_CALLGRAPH_LOWER_FUNCTION NULL |
170 | #define LANG_HOOKS_CALLGRAPH_EXPAND_FUNCTION NULL | |
171 | ||
172 | #define LANG_HOOKS_CALLGRAPH_INITIALIZER { \ | |
173 | LANG_HOOKS_CALLGRAPH_LOWER_FUNCTION, \ | |
174 | LANG_HOOKS_CALLGRAPH_EXPAND_FUNCTION, \ | |
175 | } \ | |
176 | ||
1f3233d1 | 177 | #define LANG_HOOKS_FUNCTION_INITIALIZER { \ |
178 | LANG_HOOKS_FUNCTION_INIT, \ | |
179 | LANG_HOOKS_FUNCTION_FINAL, \ | |
180 | LANG_HOOKS_FUNCTION_ENTER_NESTED, \ | |
181 | LANG_HOOKS_FUNCTION_LEAVE_NESTED \ | |
c80c4f22 | 182 | } |
183 | ||
3119c950 | 184 | /* Tree dump hooks. */ |
3ad4992f | 185 | extern bool lhd_tree_dump_dump_tree (void *, tree); |
186 | extern int lhd_tree_dump_type_quals (tree); | |
3119c950 | 187 | |
188 | #define LANG_HOOKS_TREE_DUMP_DUMP_TREE_FN lhd_tree_dump_dump_tree | |
189 | #define LANG_HOOKS_TREE_DUMP_TYPE_QUALS_FN lhd_tree_dump_type_quals | |
190 | ||
191 | #define LANG_HOOKS_TREE_DUMP_INITIALIZER { \ | |
192 | LANG_HOOKS_TREE_DUMP_DUMP_TREE_FN, \ | |
193 | LANG_HOOKS_TREE_DUMP_TYPE_QUALS_FN \ | |
20325f61 | 194 | } |
195 | ||
ee23fd7b | 196 | /* Types hooks. There are no reasonable defaults for most of them, |
197 | so we create a compile-time error instead. */ | |
a1f71e15 | 198 | #define LANG_HOOKS_MAKE_TYPE make_node |
1dd25100 | 199 | #define LANG_HOOKS_INCOMPLETE_TYPE_ERROR lhd_incomplete_type_error |
63c62881 | 200 | #define LANG_HOOKS_TYPE_PROMOTES_TO lhd_type_promotes_to |
a1f71e15 | 201 | |
202 | #define LANG_HOOKS_FOR_TYPES_INITIALIZER { \ | |
771d21fa | 203 | LANG_HOOKS_MAKE_TYPE, \ |
204 | LANG_HOOKS_TYPE_FOR_MODE, \ | |
4070745f | 205 | LANG_HOOKS_TYPE_FOR_SIZE, \ |
206 | LANG_HOOKS_UNSIGNED_TYPE, \ | |
207 | LANG_HOOKS_SIGNED_TYPE, \ | |
1dd25100 | 208 | LANG_HOOKS_SIGNED_OR_UNSIGNED_TYPE, \ |
63c62881 | 209 | LANG_HOOKS_TYPE_PROMOTES_TO, \ |
1dd25100 | 210 | LANG_HOOKS_INCOMPLETE_TYPE_ERROR \ |
a1f71e15 | 211 | } |
212 | ||
20325f61 | 213 | /* Declaration hooks. */ |
214 | #define LANG_HOOKS_PUSHLEVEL pushlevel | |
215 | #define LANG_HOOKS_POPLEVEL poplevel | |
216 | #define LANG_HOOKS_GLOBAL_BINDINGS_P global_bindings_p | |
217 | #define LANG_HOOKS_INSERT_BLOCK insert_block | |
218 | #define LANG_HOOKS_SET_BLOCK set_block | |
219 | #define LANG_HOOKS_PUSHDECL pushdecl | |
220 | #define LANG_HOOKS_GETDECLS getdecls | |
8d58a5a7 | 221 | #define LANG_HOOKS_WARN_UNUSED_GLOBAL_DECL lhd_warn_unused_global_decl |
28db4d96 | 222 | #define LANG_HOOKS_WRITE_GLOBALS write_global_declarations |
8efca15a | 223 | #define LANG_HOOKS_PREPARE_ASSEMBLE_VARIABLE NULL |
e2e9c55b | 224 | #define LANG_HOOKS_DECL_OK_FOR_SIBCALL lhd_decl_ok_for_sibcall |
20325f61 | 225 | |
226 | #define LANG_HOOKS_DECLS { \ | |
227 | LANG_HOOKS_PUSHLEVEL, \ | |
228 | LANG_HOOKS_POPLEVEL, \ | |
229 | LANG_HOOKS_GLOBAL_BINDINGS_P, \ | |
230 | LANG_HOOKS_INSERT_BLOCK, \ | |
231 | LANG_HOOKS_SET_BLOCK, \ | |
232 | LANG_HOOKS_PUSHDECL, \ | |
8d58a5a7 | 233 | LANG_HOOKS_GETDECLS, \ |
28db4d96 | 234 | LANG_HOOKS_WARN_UNUSED_GLOBAL_DECL, \ |
e2e9c55b | 235 | LANG_HOOKS_WRITE_GLOBALS, \ |
8efca15a | 236 | LANG_HOOKS_PREPARE_ASSEMBLE_VARIABLE, \ |
e2e9c55b | 237 | LANG_HOOKS_DECL_OK_FOR_SIBCALL, \ |
20325f61 | 238 | } |
3119c950 | 239 | |
240 | /* The whole thing. The structure is defined in langhooks.h. */ | |
b0278d39 | 241 | #define LANG_HOOKS_INITIALIZER { \ |
d19bd1f0 | 242 | LANG_HOOKS_NAME, \ |
243 | LANG_HOOKS_IDENTIFIER_SIZE, \ | |
295e387a | 244 | LANG_HOOKS_TREE_SIZE, \ |
b0278d39 | 245 | LANG_HOOKS_INIT_OPTIONS, \ |
5457b645 | 246 | LANG_HOOKS_HANDLE_OPTION, \ |
b0278d39 | 247 | LANG_HOOKS_POST_OPTIONS, \ |
435fb09b | 248 | LANG_HOOKS_INIT, \ |
249 | LANG_HOOKS_FINISH, \ | |
b78207a0 | 250 | LANG_HOOKS_PARSE_FILE, \ |
435fb09b | 251 | LANG_HOOKS_CLEAR_BINDING_STACK, \ |
b0278d39 | 252 | LANG_HOOKS_GET_ALIAS_SET, \ |
b3187c7c | 253 | LANG_HOOKS_EXPAND_CONSTANT, \ |
b467ecc1 | 254 | LANG_HOOKS_EXPAND_EXPR, \ |
aff9e656 | 255 | LANG_HOOKS_TRUTHVALUE_CONVERSION, \ |
26ca6c20 | 256 | LANG_HOOKS_INSERT_DEFAULT_ATTRIBUTES, \ |
b3187c7c | 257 | LANG_HOOKS_SAFE_FROM_P, \ |
ee23fd7b | 258 | LANG_HOOKS_FINISH_INCOMPLETE_DECL, \ |
259 | LANG_HOOKS_UNSAFE_FOR_REEVAL, \ | |
9b86eec0 | 260 | LANG_HOOKS_MARK_ADDRESSABLE, \ |
f1833f1b | 261 | LANG_HOOKS_STATICP, \ |
dbc42b78 | 262 | LANG_HOOKS_DUP_LANG_SPECIFIC_DECL, \ |
1d347c23 | 263 | LANG_HOOKS_UNSAVE_EXPR_NOW, \ |
04745efb | 264 | LANG_HOOKS_MAYBE_BUILD_CLEANUP, \ |
d1f6c8f2 | 265 | LANG_HOOKS_SET_DECL_ASSEMBLER_NAME, \ |
d50b22af | 266 | LANG_HOOKS_CAN_USE_BIT_FIELDS_P, \ |
b0278d39 | 267 | LANG_HOOKS_HONOR_READONLY, \ |
685b5cc2 | 268 | LANG_HOOKS_NO_BODY_BLOCKS, \ |
b7fced5e | 269 | LANG_HOOKS_PRINT_STATISTICS, \ |
270 | LANG_HOOKS_PRINT_XNODE, \ | |
271 | LANG_HOOKS_PRINT_DECL, \ | |
272 | LANG_HOOKS_PRINT_TYPE, \ | |
273 | LANG_HOOKS_PRINT_IDENTIFIER, \ | |
96554925 | 274 | LANG_HOOKS_DECL_PRINTABLE_NAME, \ |
6c7ff025 | 275 | LANG_HOOKS_PRINT_ERROR_FUNCTION, \ |
c3f16ae3 | 276 | LANG_HOOKS_EXPR_SIZE, \ |
f8e93a2e | 277 | LANG_HOOKS_ATTRIBUTE_TABLE, \ |
278 | LANG_HOOKS_COMMON_ATTRIBUTE_TABLE, \ | |
279 | LANG_HOOKS_FORMAT_ATTRIBUTE_TABLE, \ | |
c80c4f22 | 280 | LANG_HOOKS_FUNCTION_INITIALIZER, \ |
3119c950 | 281 | LANG_HOOKS_TREE_INLINING_INITIALIZER, \ |
833eb724 | 282 | LANG_HOOKS_CALLGRAPH_INITIALIZER, \ |
20325f61 | 283 | LANG_HOOKS_TREE_DUMP_INITIALIZER, \ |
a1f71e15 | 284 | LANG_HOOKS_DECLS, \ |
285 | LANG_HOOKS_FOR_TYPES_INITIALIZER \ | |
b0278d39 | 286 | } |
287 | ||
288 | #endif /* GCC_LANG_HOOKS_DEF_H */ |