langhooks-def.h revision 117395
190075Sobrien/* Default macros to initialize the lang_hooks data structure.
2117395Skan   Copyright 2001, 2002 Free Software Foundation, Inc.
390075Sobrien   Contributed by Alexandre Oliva  <aoliva@redhat.com>
490075Sobrien
590075SobrienThis file is part of GNU CC.
690075Sobrien
790075SobrienGNU CC is free software; you can redistribute it and/or modify
890075Sobrienit under the terms of the GNU General Public License as published by
990075Sobrienthe Free Software Foundation; either version 2, or (at your option)
1090075Sobrienany later version.
1190075Sobrien
1290075SobrienGNU CC is distributed in the hope that it will be useful,
1390075Sobrienbut WITHOUT ANY WARRANTY; without even the implied warranty of
1490075SobrienMERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
1590075SobrienGNU General Public License for more details.
1690075Sobrien
1790075SobrienYou should have received a copy of the GNU General Public License
1890075Sobrienalong with GNU CC; see the file COPYING.  If not, write to
1990075Sobrienthe Free Software Foundation, 59 Temple Place - Suite 330,
2090075SobrienBoston, MA 02111-1307, USA.  */
2190075Sobrien
2290075Sobrien#ifndef GCC_LANG_HOOKS_DEF_H
2390075Sobrien#define GCC_LANG_HOOKS_DEF_H
2490075Sobrien
25102780Skan#include "hooks.h"
26102780Skan
27117395Skanstruct diagnostic_context;
28117395Skan
2990075Sobrien/* Provide a hook routine for alias sets that always returns 1.  This is
3090075Sobrien   used by languages that haven't deal with alias sets yet.  */
3190075Sobrienextern HOST_WIDE_INT hook_get_alias_set_0	PARAMS ((tree));
3290075Sobrien
3390075Sobrien/* Note to creators of new hooks:
3490075Sobrien
3590075Sobrien   The macros in this file should NOT be surrounded by a
3690075Sobrien   #ifdef...#endif pair, since this file declares the defaults.  Each
3790075Sobrien   front end overrides any hooks it wishes to, in the file containing
3890075Sobrien   its struct lang_hooks, AFTER including this file.
3990075Sobrien
4090075Sobrien   Prefix all default hooks with "lhd_".  */
4190075Sobrien
4290075Sobrien/* See langhooks.h for the definition and documentation of each hook.  */
4390075Sobrien
4490075Sobrienextern void lhd_do_nothing PARAMS ((void));
45117395Skanextern void lhd_do_nothing_t PARAMS ((tree));
46117395Skanextern void lhd_do_nothing_i PARAMS ((int));
47117395Skanextern void lhd_do_nothing_f PARAMS ((struct function *));
4890075Sobrienextern int lhd_decode_option PARAMS ((int, char **));
4990075Sobrienextern HOST_WIDE_INT lhd_get_alias_set PARAMS ((tree));
5090075Sobrienextern tree lhd_return_tree PARAMS ((tree));
51117395Skanextern tree lhd_return_null_tree PARAMS ((tree));
5290075Sobrienextern int lhd_safe_from_p PARAMS ((rtx, tree));
5390075Sobrienextern int lhd_staticp PARAMS ((tree));
54117395Skanextern int lhd_unsafe_for_reeval PARAMS ((tree));
5590075Sobrienextern void lhd_clear_binding_stack PARAMS ((void));
5690075Sobrienextern void lhd_print_tree_nothing PARAMS ((FILE *, tree, int));
57117395Skanextern const char *lhd_decl_printable_name PARAMS ((tree, int));
58117395Skanextern rtx lhd_expand_expr PARAMS ((tree, rtx, enum machine_mode, int));
59117395Skanextern void lhd_print_error_function PARAMS ((struct diagnostic_context *,
60117395Skan					      const char *));
61117395Skanextern void lhd_set_decl_assembler_name PARAMS ((tree));
62117395Skanextern bool lhd_can_use_bit_fields_p PARAMS ((void));
63117395Skanextern bool lhd_warn_unused_global_decl PARAMS ((tree));
64117395Skanextern void lhd_incomplete_type_error PARAMS ((tree, tree));
65117395Skanextern tree lhd_type_promotes_to PARAMS ((tree));
66117395Skanextern bool lhd_decl_ok_for_sibcall PARAMS ((tree));
67102780Skanextern tree lhd_expr_size PARAMS ((tree));
6890075Sobrien
6990075Sobrien/* Declarations of default tree inlining hooks.  */
7090075Sobrientree lhd_tree_inlining_walk_subtrees		PARAMS ((tree *, int *,
7190075Sobrien							 walk_tree_fn,
7290075Sobrien							 void *, void *));
7390075Sobrienint lhd_tree_inlining_cannot_inline_tree_fn	PARAMS ((tree *));
7490075Sobrienint lhd_tree_inlining_disregard_inline_limits	PARAMS ((tree));
7590075Sobrientree lhd_tree_inlining_add_pending_fn_decls	PARAMS ((void *, tree));
7690075Sobrienint lhd_tree_inlining_tree_chain_matters_p	PARAMS ((tree));
7790075Sobrienint lhd_tree_inlining_auto_var_in_fn_p		PARAMS ((tree, tree));
7890075Sobrientree lhd_tree_inlining_copy_res_decl_for_inlining PARAMS ((tree, tree,
7990075Sobrien							   tree, void *,
8090075Sobrien							   int *, void *));
8190075Sobrienint lhd_tree_inlining_anon_aggr_type_p		PARAMS ((tree));
8290075Sobrienint lhd_tree_inlining_start_inlining		PARAMS ((tree));
8390075Sobrienvoid lhd_tree_inlining_end_inlining		PARAMS ((tree));
8496263Sobrientree lhd_tree_inlining_convert_parm_for_inlining PARAMS ((tree, tree, tree));
8590075Sobrien
86117395Skanvoid write_global_declarations PARAMS ((void));
87117395Skan
8890075Sobrien#define LANG_HOOKS_NAME			"GNU unknown"
8990075Sobrien#define LANG_HOOKS_IDENTIFIER_SIZE	sizeof (struct lang_identifier)
9090075Sobrien#define LANG_HOOKS_INIT			lhd_do_nothing
9190075Sobrien#define LANG_HOOKS_FINISH		lhd_do_nothing
92117395Skan#define LANG_HOOKS_PARSE_FILE		lhd_do_nothing_i
9390075Sobrien#define LANG_HOOKS_CLEAR_BINDING_STACK	lhd_clear_binding_stack
9490075Sobrien#define LANG_HOOKS_INIT_OPTIONS		lhd_do_nothing
9590075Sobrien#define LANG_HOOKS_DECODE_OPTION	lhd_decode_option
96117395Skan#define LANG_HOOKS_POST_OPTIONS		hook_bool_void_false
9790075Sobrien#define LANG_HOOKS_GET_ALIAS_SET	lhd_get_alias_set
9890075Sobrien#define LANG_HOOKS_EXPAND_CONSTANT	lhd_return_tree
99117395Skan#define LANG_HOOKS_EXPAND_EXPR		lhd_expand_expr
10090075Sobrien#define LANG_HOOKS_SAFE_FROM_P		lhd_safe_from_p
101117395Skan#define LANG_HOOKS_FINISH_INCOMPLETE_DECL lhd_do_nothing_t
102117395Skan#define LANG_HOOKS_UNSAFE_FOR_REEVAL	lhd_unsafe_for_reeval
10390075Sobrien#define LANG_HOOKS_STATICP		lhd_staticp
104117395Skan#define LANG_HOOKS_INSERT_DEFAULT_ATTRIBUTES lhd_do_nothing_t
105117395Skan#define LANG_HOOKS_DUP_LANG_SPECIFIC_DECL lhd_do_nothing_t
106117395Skan#define LANG_HOOKS_UNSAVE_EXPR_NOW	lhd_unsave_expr_now
107117395Skan#define LANG_HOOKS_MAYBE_BUILD_CLEANUP	lhd_return_null_tree
108117395Skan#define LANG_HOOKS_SET_DECL_ASSEMBLER_NAME lhd_set_decl_assembler_name
109117395Skan#define LANG_HOOKS_CAN_USE_BIT_FIELDS_P lhd_can_use_bit_fields_p
11090075Sobrien#define LANG_HOOKS_HONOR_READONLY	false
11190075Sobrien#define LANG_HOOKS_PRINT_STATISTICS	lhd_do_nothing
11290075Sobrien#define LANG_HOOKS_PRINT_XNODE		lhd_print_tree_nothing
11390075Sobrien#define LANG_HOOKS_PRINT_DECL		lhd_print_tree_nothing
11490075Sobrien#define LANG_HOOKS_PRINT_TYPE		lhd_print_tree_nothing
11590075Sobrien#define LANG_HOOKS_PRINT_IDENTIFIER	lhd_print_tree_nothing
116117395Skan#define LANG_HOOKS_PRINT_ERROR_FUNCTION lhd_print_error_function
117117395Skan#define LANG_HOOKS_DECL_PRINTABLE_NAME	lhd_decl_printable_name
118102780Skan#define LANG_HOOKS_EXPR_SIZE		lhd_expr_size
11990075Sobrien
120117395Skan#define LANG_HOOKS_FUNCTION_INIT	lhd_do_nothing_f
121117395Skan#define LANG_HOOKS_FUNCTION_FINAL	lhd_do_nothing_f
122117395Skan#define LANG_HOOKS_FUNCTION_ENTER_NESTED lhd_do_nothing_f
123117395Skan#define LANG_HOOKS_FUNCTION_LEAVE_NESTED lhd_do_nothing_f
124117395Skan
125117395Skan/* Attribute hooks.  */
126117395Skan#define LANG_HOOKS_ATTRIBUTE_TABLE		NULL
127117395Skan#define LANG_HOOKS_COMMON_ATTRIBUTE_TABLE	NULL
128117395Skan#define LANG_HOOKS_FORMAT_ATTRIBUTE_TABLE	NULL
129117395Skan
13090075Sobrien/* Tree inlining hooks.  */
13190075Sobrien#define LANG_HOOKS_TREE_INLINING_WALK_SUBTREES lhd_tree_inlining_walk_subtrees
13290075Sobrien#define LANG_HOOKS_TREE_INLINING_CANNOT_INLINE_TREE_FN \
13390075Sobrien  lhd_tree_inlining_cannot_inline_tree_fn
13490075Sobrien#define LANG_HOOKS_TREE_INLINING_DISREGARD_INLINE_LIMITS \
13590075Sobrien  lhd_tree_inlining_disregard_inline_limits
13690075Sobrien#define LANG_HOOKS_TREE_INLINING_ADD_PENDING_FN_DECLS \
13790075Sobrien  lhd_tree_inlining_add_pending_fn_decls
13890075Sobrien#define LANG_HOOKS_TREE_INLINING_TREE_CHAIN_MATTERS_P \
13990075Sobrien  lhd_tree_inlining_tree_chain_matters_p
14090075Sobrien#define LANG_HOOKS_TREE_INLINING_AUTO_VAR_IN_FN_P \
14190075Sobrien  lhd_tree_inlining_auto_var_in_fn_p
14290075Sobrien#define LANG_HOOKS_TREE_INLINING_COPY_RES_DECL_FOR_INLINING \
14390075Sobrien  lhd_tree_inlining_copy_res_decl_for_inlining
14490075Sobrien#define LANG_HOOKS_TREE_INLINING_ANON_AGGR_TYPE_P \
14590075Sobrien  lhd_tree_inlining_anon_aggr_type_p
146107590Sobrien#define LANG_HOOKS_TREE_INLINING_VAR_MOD_TYPE_P \
147117395Skan  hook_bool_tree_false
14890075Sobrien#define LANG_HOOKS_TREE_INLINING_START_INLINING \
14990075Sobrien  lhd_tree_inlining_start_inlining
15090075Sobrien#define LANG_HOOKS_TREE_INLINING_END_INLINING \
15190075Sobrien  lhd_tree_inlining_end_inlining
15296263Sobrien#define LANG_HOOKS_TREE_INLINING_CONVERT_PARM_FOR_INLINING \
15396263Sobrien  lhd_tree_inlining_convert_parm_for_inlining
15490075Sobrien
15590075Sobrien#define LANG_HOOKS_TREE_INLINING_INITIALIZER { \
15690075Sobrien  LANG_HOOKS_TREE_INLINING_WALK_SUBTREES, \
15790075Sobrien  LANG_HOOKS_TREE_INLINING_CANNOT_INLINE_TREE_FN, \
15890075Sobrien  LANG_HOOKS_TREE_INLINING_DISREGARD_INLINE_LIMITS, \
15990075Sobrien  LANG_HOOKS_TREE_INLINING_ADD_PENDING_FN_DECLS, \
16090075Sobrien  LANG_HOOKS_TREE_INLINING_TREE_CHAIN_MATTERS_P, \
16190075Sobrien  LANG_HOOKS_TREE_INLINING_AUTO_VAR_IN_FN_P, \
16290075Sobrien  LANG_HOOKS_TREE_INLINING_COPY_RES_DECL_FOR_INLINING, \
16390075Sobrien  LANG_HOOKS_TREE_INLINING_ANON_AGGR_TYPE_P, \
164107590Sobrien  LANG_HOOKS_TREE_INLINING_VAR_MOD_TYPE_P, \
16590075Sobrien  LANG_HOOKS_TREE_INLINING_START_INLINING, \
16696263Sobrien  LANG_HOOKS_TREE_INLINING_END_INLINING, \
16796263Sobrien  LANG_HOOKS_TREE_INLINING_CONVERT_PARM_FOR_INLINING \
16890075Sobrien} \
16990075Sobrien
170117395Skan#define LANG_HOOKS_FUNCTION_INITIALIZER {	\
171117395Skan  LANG_HOOKS_FUNCTION_INIT,			\
172117395Skan  LANG_HOOKS_FUNCTION_FINAL,			\
173117395Skan  LANG_HOOKS_FUNCTION_ENTER_NESTED,		\
174117395Skan  LANG_HOOKS_FUNCTION_LEAVE_NESTED		\
175117395Skan}
176117395Skan
17790075Sobrien/* Tree dump hooks.  */
17890075Sobrienint lhd_tree_dump_dump_tree 			PARAMS ((void *, tree));
17990075Sobrienint lhd_tree_dump_type_quals			PARAMS ((tree));
18090075Sobrien
18190075Sobrien#define LANG_HOOKS_TREE_DUMP_DUMP_TREE_FN lhd_tree_dump_dump_tree
18290075Sobrien#define LANG_HOOKS_TREE_DUMP_TYPE_QUALS_FN lhd_tree_dump_type_quals
18390075Sobrien
18490075Sobrien#define LANG_HOOKS_TREE_DUMP_INITIALIZER { \
18590075Sobrien  LANG_HOOKS_TREE_DUMP_DUMP_TREE_FN, \
18690075Sobrien  LANG_HOOKS_TREE_DUMP_TYPE_QUALS_FN \
187117395Skan}
18890075Sobrien
189117395Skan/* Types hooks.  There are no reasonable defaults for most of them,
190117395Skan   so we create a compile-time error instead.  */
191117395Skan#define LANG_HOOKS_MAKE_TYPE make_node
192117395Skan#define LANG_HOOKS_INCOMPLETE_TYPE_ERROR lhd_incomplete_type_error
193117395Skan#define LANG_HOOKS_TYPE_PROMOTES_TO lhd_type_promotes_to
194117395Skan
195117395Skan#define LANG_HOOKS_FOR_TYPES_INITIALIZER { \
196117395Skan  LANG_HOOKS_MAKE_TYPE, \
197117395Skan  LANG_HOOKS_TYPE_FOR_MODE, \
198117395Skan  LANG_HOOKS_TYPE_FOR_SIZE, \
199117395Skan  LANG_HOOKS_UNSIGNED_TYPE, \
200117395Skan  LANG_HOOKS_SIGNED_TYPE, \
201117395Skan  LANG_HOOKS_SIGNED_OR_UNSIGNED_TYPE, \
202117395Skan  LANG_HOOKS_TYPE_PROMOTES_TO, \
203117395Skan  LANG_HOOKS_INCOMPLETE_TYPE_ERROR \
204117395Skan}
205117395Skan
206117395Skan/* Declaration hooks.  */
207117395Skan#define LANG_HOOKS_PUSHLEVEL	pushlevel
208117395Skan#define LANG_HOOKS_POPLEVEL	poplevel
209117395Skan#define LANG_HOOKS_GLOBAL_BINDINGS_P global_bindings_p
210117395Skan#define LANG_HOOKS_INSERT_BLOCK	insert_block
211117395Skan#define LANG_HOOKS_SET_BLOCK	set_block
212117395Skan#define LANG_HOOKS_PUSHDECL	pushdecl
213117395Skan#define LANG_HOOKS_GETDECLS	getdecls
214117395Skan#define LANG_HOOKS_WARN_UNUSED_GLOBAL_DECL lhd_warn_unused_global_decl
215117395Skan#define LANG_HOOKS_WRITE_GLOBALS write_global_declarations
216117395Skan#define LANG_HOOKS_DECL_OK_FOR_SIBCALL	lhd_decl_ok_for_sibcall
217117395Skan
218117395Skan#define LANG_HOOKS_DECLS { \
219117395Skan  LANG_HOOKS_PUSHLEVEL, \
220117395Skan  LANG_HOOKS_POPLEVEL, \
221117395Skan  LANG_HOOKS_GLOBAL_BINDINGS_P, \
222117395Skan  LANG_HOOKS_INSERT_BLOCK, \
223117395Skan  LANG_HOOKS_SET_BLOCK, \
224117395Skan  LANG_HOOKS_PUSHDECL, \
225117395Skan  LANG_HOOKS_GETDECLS, \
226117395Skan  LANG_HOOKS_WARN_UNUSED_GLOBAL_DECL, \
227117395Skan  LANG_HOOKS_WRITE_GLOBALS, \
228117395Skan  LANG_HOOKS_DECL_OK_FOR_SIBCALL, \
229117395Skan}
230117395Skan
23190075Sobrien/* The whole thing.  The structure is defined in langhooks.h.  */
23290075Sobrien#define LANG_HOOKS_INITIALIZER { \
23390075Sobrien  LANG_HOOKS_NAME, \
23490075Sobrien  LANG_HOOKS_IDENTIFIER_SIZE, \
23590075Sobrien  LANG_HOOKS_INIT_OPTIONS, \
23690075Sobrien  LANG_HOOKS_DECODE_OPTION, \
23790075Sobrien  LANG_HOOKS_POST_OPTIONS, \
23890075Sobrien  LANG_HOOKS_INIT, \
23990075Sobrien  LANG_HOOKS_FINISH, \
240117395Skan  LANG_HOOKS_PARSE_FILE, \
24190075Sobrien  LANG_HOOKS_CLEAR_BINDING_STACK, \
24290075Sobrien  LANG_HOOKS_GET_ALIAS_SET, \
24390075Sobrien  LANG_HOOKS_EXPAND_CONSTANT, \
244117395Skan  LANG_HOOKS_EXPAND_EXPR, \
245117395Skan  LANG_HOOKS_TRUTHVALUE_CONVERSION, \
246117395Skan  LANG_HOOKS_INSERT_DEFAULT_ATTRIBUTES, \
24790075Sobrien  LANG_HOOKS_SAFE_FROM_P, \
248117395Skan  LANG_HOOKS_FINISH_INCOMPLETE_DECL, \
249117395Skan  LANG_HOOKS_UNSAFE_FOR_REEVAL, \
250117395Skan  LANG_HOOKS_MARK_ADDRESSABLE, \
25190075Sobrien  LANG_HOOKS_STATICP, \
252117395Skan  LANG_HOOKS_DUP_LANG_SPECIFIC_DECL, \
253117395Skan  LANG_HOOKS_UNSAVE_EXPR_NOW, \
254117395Skan  LANG_HOOKS_MAYBE_BUILD_CLEANUP, \
255117395Skan  LANG_HOOKS_SET_DECL_ASSEMBLER_NAME, \
256117395Skan  LANG_HOOKS_CAN_USE_BIT_FIELDS_P, \
25790075Sobrien  LANG_HOOKS_HONOR_READONLY, \
25890075Sobrien  LANG_HOOKS_PRINT_STATISTICS, \
25990075Sobrien  LANG_HOOKS_PRINT_XNODE, \
26090075Sobrien  LANG_HOOKS_PRINT_DECL, \
26190075Sobrien  LANG_HOOKS_PRINT_TYPE, \
26290075Sobrien  LANG_HOOKS_PRINT_IDENTIFIER, \
263117395Skan  LANG_HOOKS_DECL_PRINTABLE_NAME, \
264117395Skan  LANG_HOOKS_PRINT_ERROR_FUNCTION, \
265102780Skan  LANG_HOOKS_EXPR_SIZE, \
266117395Skan  LANG_HOOKS_ATTRIBUTE_TABLE, \
267117395Skan  LANG_HOOKS_COMMON_ATTRIBUTE_TABLE, \
268117395Skan  LANG_HOOKS_FORMAT_ATTRIBUTE_TABLE, \
269117395Skan  LANG_HOOKS_FUNCTION_INITIALIZER, \
27090075Sobrien  LANG_HOOKS_TREE_INLINING_INITIALIZER, \
271117395Skan  LANG_HOOKS_TREE_DUMP_INITIALIZER, \
272117395Skan  LANG_HOOKS_DECLS, \
273117395Skan  LANG_HOOKS_FOR_TYPES_INITIALIZER \
27490075Sobrien}
27590075Sobrien
27690075Sobrien#endif /* GCC_LANG_HOOKS_DEF_H */
277