]>
Commit | Line | Data |
---|---|---|
d23c55c2 | 1 | /* Default macros to initialize the lang_hooks data structure. |
43577e6b | 2 | Copyright 2001, 2002 Free Software Foundation, Inc. |
d23c55c2 NB |
3 | Contributed by Alexandre Oliva <aoliva@redhat.com> |
4 | ||
63b025a5 | 5 | This file is part of GCC. |
d23c55c2 | 6 | |
63b025a5 | 7 | GCC is free software; you can redistribute it and/or modify |
d23c55c2 NB |
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 | ||
63b025a5 | 12 | GCC is distributed in the hope that it will be useful, |
d23c55c2 NB |
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 | |
63b025a5 | 18 | along with GCC; see the file COPYING. If not, write to |
d23c55c2 NB |
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 | ||
e5f3b786 NB |
25 | #include "hooks.h" |
26 | ||
7cb32822 NB |
27 | struct diagnostic_context; |
28 | ||
d23c55c2 NB |
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. */ | |
31 | extern HOST_WIDE_INT hook_get_alias_set_0 PARAMS ((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 | Prefix all default hooks with "lhd_". */ | |
41 | ||
42 | /* See langhooks.h for the definition and documentation of each hook. */ | |
43 | ||
44 | extern void lhd_do_nothing PARAMS ((void)); | |
63e1b1c4 | 45 | extern void lhd_do_nothing_t PARAMS ((tree)); |
ff45c01e | 46 | extern void lhd_do_nothing_i PARAMS ((int)); |
b03e38e1 | 47 | extern void lhd_do_nothing_f PARAMS ((struct function *)); |
d23c55c2 | 48 | extern int lhd_decode_option PARAMS ((int, char **)); |
4bfec483 | 49 | extern bool lhd_post_options PARAMS ((const char **)); |
d23c55c2 | 50 | extern HOST_WIDE_INT lhd_get_alias_set PARAMS ((tree)); |
ac79cd5a | 51 | extern tree lhd_return_tree PARAMS ((tree)); |
c88770e9 | 52 | extern tree lhd_return_null_tree PARAMS ((tree)); |
ac79cd5a | 53 | extern int lhd_safe_from_p PARAMS ((rtx, tree)); |
d062a680 | 54 | extern int lhd_staticp PARAMS ((tree)); |
48a7a235 | 55 | extern int lhd_unsafe_for_reeval PARAMS ((tree)); |
d23c55c2 | 56 | extern void lhd_clear_binding_stack PARAMS ((void)); |
5d69f816 | 57 | extern void lhd_print_tree_nothing PARAMS ((FILE *, tree, int)); |
7afff7cf | 58 | extern const char *lhd_decl_printable_name PARAMS ((tree, int)); |
c9d892a8 | 59 | extern rtx lhd_expand_expr PARAMS ((tree, rtx, enum machine_mode, int)); |
7cb32822 NB |
60 | extern void lhd_print_error_function PARAMS ((struct diagnostic_context *, |
61 | const char *)); | |
599bba86 | 62 | extern void lhd_set_decl_assembler_name PARAMS ((tree)); |
57ce46bb | 63 | extern bool lhd_can_use_bit_fields_p PARAMS ((void)); |
ef4f94ac | 64 | extern bool lhd_warn_unused_global_decl PARAMS ((tree)); |
7a228918 | 65 | extern void lhd_incomplete_type_error PARAMS ((tree, tree)); |
ab393bf1 | 66 | extern tree lhd_type_promotes_to PARAMS ((tree)); |
a77a9a18 | 67 | extern tree lhd_expr_size PARAMS ((tree)); |
d23c55c2 NB |
68 | |
69 | /* Declarations of default tree inlining hooks. */ | |
70 | tree lhd_tree_inlining_walk_subtrees PARAMS ((tree *, int *, | |
71 | walk_tree_fn, | |
72 | void *, void *)); | |
73 | int lhd_tree_inlining_cannot_inline_tree_fn PARAMS ((tree *)); | |
74 | int lhd_tree_inlining_disregard_inline_limits PARAMS ((tree)); | |
75 | tree lhd_tree_inlining_add_pending_fn_decls PARAMS ((void *, tree)); | |
76 | int lhd_tree_inlining_tree_chain_matters_p PARAMS ((tree)); | |
77 | int lhd_tree_inlining_auto_var_in_fn_p PARAMS ((tree, tree)); | |
78 | tree lhd_tree_inlining_copy_res_decl_for_inlining PARAMS ((tree, tree, | |
79 | tree, void *, | |
4977bab6 | 80 | int *, tree)); |
d23c55c2 | 81 | int lhd_tree_inlining_anon_aggr_type_p PARAMS ((tree)); |
742a37d5 JM |
82 | int lhd_tree_inlining_start_inlining PARAMS ((tree)); |
83 | void lhd_tree_inlining_end_inlining PARAMS ((tree)); | |
f735a153 | 84 | tree lhd_tree_inlining_convert_parm_for_inlining PARAMS ((tree, tree, tree)); |
d23c55c2 | 85 | |
2b59501b MA |
86 | void write_global_declarations PARAMS ((void)); |
87 | ||
3ac88239 NB |
88 | #define LANG_HOOKS_NAME "GNU unknown" |
89 | #define LANG_HOOKS_IDENTIFIER_SIZE sizeof (struct lang_identifier) | |
4bfec483 | 90 | #define LANG_HOOKS_INIT hook_bool_void_false |
d23c55c2 | 91 | #define LANG_HOOKS_FINISH lhd_do_nothing |
ff45c01e | 92 | #define LANG_HOOKS_PARSE_FILE lhd_do_nothing_i |
d23c55c2 NB |
93 | #define LANG_HOOKS_CLEAR_BINDING_STACK lhd_clear_binding_stack |
94 | #define LANG_HOOKS_INIT_OPTIONS lhd_do_nothing | |
95 | #define LANG_HOOKS_DECODE_OPTION lhd_decode_option | |
4bfec483 | 96 | #define LANG_HOOKS_POST_OPTIONS lhd_post_options |
d23c55c2 | 97 | #define LANG_HOOKS_GET_ALIAS_SET lhd_get_alias_set |
ac79cd5a | 98 | #define LANG_HOOKS_EXPAND_CONSTANT lhd_return_tree |
c9d892a8 | 99 | #define LANG_HOOKS_EXPAND_EXPR lhd_expand_expr |
ac79cd5a | 100 | #define LANG_HOOKS_SAFE_FROM_P lhd_safe_from_p |
48a7a235 NB |
101 | #define LANG_HOOKS_FINISH_INCOMPLETE_DECL lhd_do_nothing_t |
102 | #define LANG_HOOKS_UNSAFE_FOR_REEVAL lhd_unsafe_for_reeval | |
d062a680 | 103 | #define LANG_HOOKS_STATICP lhd_staticp |
7ffb4fd2 | 104 | #define LANG_HOOKS_INSERT_DEFAULT_ATTRIBUTES lhd_do_nothing_t |
63e1b1c4 | 105 | #define LANG_HOOKS_DUP_LANG_SPECIFIC_DECL lhd_do_nothing_t |
24965e7a | 106 | #define LANG_HOOKS_UNSAVE_EXPR_NOW lhd_unsave_expr_now |
c88770e9 | 107 | #define LANG_HOOKS_MAYBE_BUILD_CLEANUP lhd_return_null_tree |
599bba86 | 108 | #define LANG_HOOKS_SET_DECL_ASSEMBLER_NAME lhd_set_decl_assembler_name |
57ce46bb | 109 | #define LANG_HOOKS_CAN_USE_BIT_FIELDS_P lhd_can_use_bit_fields_p |
d23c55c2 | 110 | #define LANG_HOOKS_HONOR_READONLY false |
5d69f816 NB |
111 | #define LANG_HOOKS_PRINT_STATISTICS lhd_do_nothing |
112 | #define LANG_HOOKS_PRINT_XNODE lhd_print_tree_nothing | |
113 | #define LANG_HOOKS_PRINT_DECL lhd_print_tree_nothing | |
114 | #define LANG_HOOKS_PRINT_TYPE lhd_print_tree_nothing | |
115 | #define LANG_HOOKS_PRINT_IDENTIFIER lhd_print_tree_nothing | |
7cb32822 | 116 | #define LANG_HOOKS_PRINT_ERROR_FUNCTION lhd_print_error_function |
7afff7cf | 117 | #define LANG_HOOKS_DECL_PRINTABLE_NAME lhd_decl_printable_name |
a77a9a18 | 118 | #define LANG_HOOKS_EXPR_SIZE lhd_expr_size |
d23c55c2 | 119 | |
b03e38e1 | 120 | #define LANG_HOOKS_FUNCTION_INIT lhd_do_nothing_f |
e2500fed | 121 | #define LANG_HOOKS_FUNCTION_FINAL lhd_do_nothing_f |
b03e38e1 NB |
122 | #define LANG_HOOKS_FUNCTION_ENTER_NESTED lhd_do_nothing_f |
123 | #define LANG_HOOKS_FUNCTION_LEAVE_NESTED lhd_do_nothing_f | |
b03e38e1 | 124 | |
349ae713 NB |
125 | /* Attribute hooks. */ |
126 | #define LANG_HOOKS_ATTRIBUTE_TABLE NULL | |
127 | #define LANG_HOOKS_COMMON_ATTRIBUTE_TABLE NULL | |
128 | #define LANG_HOOKS_FORMAT_ATTRIBUTE_TABLE NULL | |
129 | ||
d23c55c2 NB |
130 | /* Tree inlining hooks. */ |
131 | #define LANG_HOOKS_TREE_INLINING_WALK_SUBTREES lhd_tree_inlining_walk_subtrees | |
132 | #define LANG_HOOKS_TREE_INLINING_CANNOT_INLINE_TREE_FN \ | |
133 | lhd_tree_inlining_cannot_inline_tree_fn | |
134 | #define LANG_HOOKS_TREE_INLINING_DISREGARD_INLINE_LIMITS \ | |
135 | lhd_tree_inlining_disregard_inline_limits | |
136 | #define LANG_HOOKS_TREE_INLINING_ADD_PENDING_FN_DECLS \ | |
137 | lhd_tree_inlining_add_pending_fn_decls | |
138 | #define LANG_HOOKS_TREE_INLINING_TREE_CHAIN_MATTERS_P \ | |
139 | lhd_tree_inlining_tree_chain_matters_p | |
140 | #define LANG_HOOKS_TREE_INLINING_AUTO_VAR_IN_FN_P \ | |
141 | lhd_tree_inlining_auto_var_in_fn_p | |
142 | #define LANG_HOOKS_TREE_INLINING_COPY_RES_DECL_FOR_INLINING \ | |
143 | lhd_tree_inlining_copy_res_decl_for_inlining | |
144 | #define LANG_HOOKS_TREE_INLINING_ANON_AGGR_TYPE_P \ | |
145 | lhd_tree_inlining_anon_aggr_type_p | |
8bcefb43 | 146 | #define LANG_HOOKS_TREE_INLINING_VAR_MOD_TYPE_P \ |
7b1bd3c5 | 147 | hook_bool_tree_false |
742a37d5 JM |
148 | #define LANG_HOOKS_TREE_INLINING_START_INLINING \ |
149 | lhd_tree_inlining_start_inlining | |
150 | #define LANG_HOOKS_TREE_INLINING_END_INLINING \ | |
151 | lhd_tree_inlining_end_inlining | |
f735a153 JJ |
152 | #define LANG_HOOKS_TREE_INLINING_CONVERT_PARM_FOR_INLINING \ |
153 | lhd_tree_inlining_convert_parm_for_inlining | |
d23c55c2 NB |
154 | |
155 | #define LANG_HOOKS_TREE_INLINING_INITIALIZER { \ | |
156 | LANG_HOOKS_TREE_INLINING_WALK_SUBTREES, \ | |
157 | LANG_HOOKS_TREE_INLINING_CANNOT_INLINE_TREE_FN, \ | |
158 | LANG_HOOKS_TREE_INLINING_DISREGARD_INLINE_LIMITS, \ | |
159 | LANG_HOOKS_TREE_INLINING_ADD_PENDING_FN_DECLS, \ | |
160 | LANG_HOOKS_TREE_INLINING_TREE_CHAIN_MATTERS_P, \ | |
161 | LANG_HOOKS_TREE_INLINING_AUTO_VAR_IN_FN_P, \ | |
162 | LANG_HOOKS_TREE_INLINING_COPY_RES_DECL_FOR_INLINING, \ | |
742a37d5 | 163 | LANG_HOOKS_TREE_INLINING_ANON_AGGR_TYPE_P, \ |
8bcefb43 | 164 | LANG_HOOKS_TREE_INLINING_VAR_MOD_TYPE_P, \ |
742a37d5 | 165 | LANG_HOOKS_TREE_INLINING_START_INLINING, \ |
f735a153 JJ |
166 | LANG_HOOKS_TREE_INLINING_END_INLINING, \ |
167 | LANG_HOOKS_TREE_INLINING_CONVERT_PARM_FOR_INLINING \ | |
d23c55c2 NB |
168 | } \ |
169 | ||
e72fcfe8 JH |
170 | #define LANG_HOOKS_CALLGRAPH_LOWER_FUNCTION NULL |
171 | #define LANG_HOOKS_CALLGRAPH_EXPAND_FUNCTION NULL | |
172 | ||
173 | #define LANG_HOOKS_CALLGRAPH_INITIALIZER { \ | |
174 | LANG_HOOKS_CALLGRAPH_LOWER_FUNCTION, \ | |
175 | LANG_HOOKS_CALLGRAPH_EXPAND_FUNCTION, \ | |
176 | } \ | |
177 | ||
e2500fed GK |
178 | #define LANG_HOOKS_FUNCTION_INITIALIZER { \ |
179 | LANG_HOOKS_FUNCTION_INIT, \ | |
180 | LANG_HOOKS_FUNCTION_FINAL, \ | |
181 | LANG_HOOKS_FUNCTION_ENTER_NESTED, \ | |
182 | LANG_HOOKS_FUNCTION_LEAVE_NESTED \ | |
b03e38e1 NB |
183 | } |
184 | ||
89d684bb | 185 | /* Tree dump hooks. */ |
2bd3ecad | 186 | bool lhd_tree_dump_dump_tree PARAMS ((void *, tree)); |
89d684bb BM |
187 | int lhd_tree_dump_type_quals PARAMS ((tree)); |
188 | ||
189 | #define LANG_HOOKS_TREE_DUMP_DUMP_TREE_FN lhd_tree_dump_dump_tree | |
190 | #define LANG_HOOKS_TREE_DUMP_TYPE_QUALS_FN lhd_tree_dump_type_quals | |
191 | ||
192 | #define LANG_HOOKS_TREE_DUMP_INITIALIZER { \ | |
193 | LANG_HOOKS_TREE_DUMP_DUMP_TREE_FN, \ | |
194 | LANG_HOOKS_TREE_DUMP_TYPE_QUALS_FN \ | |
43577e6b NB |
195 | } |
196 | ||
48a7a235 NB |
197 | /* Types hooks. There are no reasonable defaults for most of them, |
198 | so we create a compile-time error instead. */ | |
f1e639b1 | 199 | #define LANG_HOOKS_MAKE_TYPE make_node |
7a228918 | 200 | #define LANG_HOOKS_INCOMPLETE_TYPE_ERROR lhd_incomplete_type_error |
ab393bf1 | 201 | #define LANG_HOOKS_TYPE_PROMOTES_TO lhd_type_promotes_to |
f1e639b1 NB |
202 | |
203 | #define LANG_HOOKS_FOR_TYPES_INITIALIZER { \ | |
b0c48229 NB |
204 | LANG_HOOKS_MAKE_TYPE, \ |
205 | LANG_HOOKS_TYPE_FOR_MODE, \ | |
ceef8ce4 NB |
206 | LANG_HOOKS_TYPE_FOR_SIZE, \ |
207 | LANG_HOOKS_UNSIGNED_TYPE, \ | |
208 | LANG_HOOKS_SIGNED_TYPE, \ | |
7a228918 | 209 | LANG_HOOKS_SIGNED_OR_UNSIGNED_TYPE, \ |
ab393bf1 | 210 | LANG_HOOKS_TYPE_PROMOTES_TO, \ |
7a228918 | 211 | LANG_HOOKS_INCOMPLETE_TYPE_ERROR \ |
f1e639b1 NB |
212 | } |
213 | ||
43577e6b NB |
214 | /* Declaration hooks. */ |
215 | #define LANG_HOOKS_PUSHLEVEL pushlevel | |
216 | #define LANG_HOOKS_POPLEVEL poplevel | |
217 | #define LANG_HOOKS_GLOBAL_BINDINGS_P global_bindings_p | |
218 | #define LANG_HOOKS_INSERT_BLOCK insert_block | |
219 | #define LANG_HOOKS_SET_BLOCK set_block | |
220 | #define LANG_HOOKS_PUSHDECL pushdecl | |
221 | #define LANG_HOOKS_GETDECLS getdecls | |
ef4f94ac | 222 | #define LANG_HOOKS_WARN_UNUSED_GLOBAL_DECL lhd_warn_unused_global_decl |
2b59501b | 223 | #define LANG_HOOKS_WRITE_GLOBALS write_global_declarations |
43577e6b NB |
224 | |
225 | #define LANG_HOOKS_DECLS { \ | |
226 | LANG_HOOKS_PUSHLEVEL, \ | |
227 | LANG_HOOKS_POPLEVEL, \ | |
228 | LANG_HOOKS_GLOBAL_BINDINGS_P, \ | |
229 | LANG_HOOKS_INSERT_BLOCK, \ | |
230 | LANG_HOOKS_SET_BLOCK, \ | |
231 | LANG_HOOKS_PUSHDECL, \ | |
ef4f94ac | 232 | LANG_HOOKS_GETDECLS, \ |
2b59501b MA |
233 | LANG_HOOKS_WARN_UNUSED_GLOBAL_DECL, \ |
234 | LANG_HOOKS_WRITE_GLOBALS \ | |
43577e6b | 235 | } |
89d684bb BM |
236 | |
237 | /* The whole thing. The structure is defined in langhooks.h. */ | |
d23c55c2 | 238 | #define LANG_HOOKS_INITIALIZER { \ |
3ac88239 NB |
239 | LANG_HOOKS_NAME, \ |
240 | LANG_HOOKS_IDENTIFIER_SIZE, \ | |
d23c55c2 NB |
241 | LANG_HOOKS_INIT_OPTIONS, \ |
242 | LANG_HOOKS_DECODE_OPTION, \ | |
243 | LANG_HOOKS_POST_OPTIONS, \ | |
4d6baafa NB |
244 | LANG_HOOKS_INIT, \ |
245 | LANG_HOOKS_FINISH, \ | |
52dabb6c | 246 | LANG_HOOKS_PARSE_FILE, \ |
4d6baafa | 247 | LANG_HOOKS_CLEAR_BINDING_STACK, \ |
d23c55c2 | 248 | LANG_HOOKS_GET_ALIAS_SET, \ |
ac79cd5a | 249 | LANG_HOOKS_EXPAND_CONSTANT, \ |
c9d892a8 | 250 | LANG_HOOKS_EXPAND_EXPR, \ |
78ef5b89 | 251 | LANG_HOOKS_TRUTHVALUE_CONVERSION, \ |
7ffb4fd2 | 252 | LANG_HOOKS_INSERT_DEFAULT_ATTRIBUTES, \ |
ac79cd5a | 253 | LANG_HOOKS_SAFE_FROM_P, \ |
48a7a235 NB |
254 | LANG_HOOKS_FINISH_INCOMPLETE_DECL, \ |
255 | LANG_HOOKS_UNSAFE_FOR_REEVAL, \ | |
dffd7eb6 | 256 | LANG_HOOKS_MARK_ADDRESSABLE, \ |
d062a680 | 257 | LANG_HOOKS_STATICP, \ |
63e1b1c4 | 258 | LANG_HOOKS_DUP_LANG_SPECIFIC_DECL, \ |
24965e7a | 259 | LANG_HOOKS_UNSAVE_EXPR_NOW, \ |
c88770e9 | 260 | LANG_HOOKS_MAYBE_BUILD_CLEANUP, \ |
599bba86 | 261 | LANG_HOOKS_SET_DECL_ASSEMBLER_NAME, \ |
57ce46bb | 262 | LANG_HOOKS_CAN_USE_BIT_FIELDS_P, \ |
d23c55c2 | 263 | LANG_HOOKS_HONOR_READONLY, \ |
5d69f816 NB |
264 | LANG_HOOKS_PRINT_STATISTICS, \ |
265 | LANG_HOOKS_PRINT_XNODE, \ | |
266 | LANG_HOOKS_PRINT_DECL, \ | |
267 | LANG_HOOKS_PRINT_TYPE, \ | |
268 | LANG_HOOKS_PRINT_IDENTIFIER, \ | |
7afff7cf | 269 | LANG_HOOKS_DECL_PRINTABLE_NAME, \ |
7cb32822 | 270 | LANG_HOOKS_PRINT_ERROR_FUNCTION, \ |
a77a9a18 | 271 | LANG_HOOKS_EXPR_SIZE, \ |
349ae713 NB |
272 | LANG_HOOKS_ATTRIBUTE_TABLE, \ |
273 | LANG_HOOKS_COMMON_ATTRIBUTE_TABLE, \ | |
274 | LANG_HOOKS_FORMAT_ATTRIBUTE_TABLE, \ | |
b03e38e1 | 275 | LANG_HOOKS_FUNCTION_INITIALIZER, \ |
89d684bb | 276 | LANG_HOOKS_TREE_INLINING_INITIALIZER, \ |
e72fcfe8 | 277 | LANG_HOOKS_CALLGRAPH_INITIALIZER, \ |
43577e6b | 278 | LANG_HOOKS_TREE_DUMP_INITIALIZER, \ |
f1e639b1 NB |
279 | LANG_HOOKS_DECLS, \ |
280 | LANG_HOOKS_FOR_TYPES_INITIALIZER \ | |
d23c55c2 NB |
281 | } |
282 | ||
283 | #endif /* GCC_LANG_HOOKS_DEF_H */ |