1 /* Language-specific hook definitions for C front end.
2 Copyright (C) 1991, 1995, 1997, 1998,
3 1999, 2000, 2001 Free Software Foundation, Inc.
5 This file is part of GCC.
7 GCC is free software; you can redistribute it and/or modify it under
8 the terms of the GNU General Public License as published by the Free
9 Software Foundation; either version 2, or (at your option) any later
12 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
13 WARRANTY; without even the implied warranty of MERCHANTABILITY or
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
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 the Free
19 Software Foundation, 59 Temple Place - Suite 330, Boston, MA
26 #include "tree-inline.h"
30 #include "diagnostic.h"
39 #include "insn-config.h"
40 #include "integrate.h"
41 #include "langhooks.h"
43 static int c_tree_printer PARAMS ((output_buffer *));
44 static int c_missing_noreturn_ok_p PARAMS ((tree));
45 static void c_init PARAMS ((void));
46 static void c_init_options PARAMS ((void));
47 static void c_post_options PARAMS ((void));
48 static int c_disregard_inline_limits PARAMS ((tree));
49 static int c_cannot_inline_tree_fn PARAMS ((tree *));
51 #undef LANG_HOOKS_INIT
52 #define LANG_HOOKS_INIT c_init
53 #undef LANG_HOOKS_INIT_OPTIONS
54 #define LANG_HOOKS_INIT_OPTIONS c_init_options
55 #undef LANG_HOOKS_DECODE_OPTION
56 #define LANG_HOOKS_DECODE_OPTION c_decode_option
57 #undef LANG_HOOKS_POST_OPTIONS
58 #define LANG_HOOKS_POST_OPTIONS c_post_options
59 #undef LANG_HOOKS_GET_ALIAS_SET
60 #define LANG_HOOKS_GET_ALIAS_SET c_common_get_alias_set
62 #undef LANG_HOOKS_TREE_INLINING_CANNOT_INLINE_TREE_FN
63 #define LANG_HOOKS_TREE_INLINING_CANNOT_INLINE_TREE_FN \
64 c_cannot_inline_tree_fn
65 #undef LANG_HOOKS_TREE_INLINING_DISREGARD_INLINE_LIMITS
66 #define LANG_HOOKS_TREE_INLINING_DISREGARD_INLINE_LIMITS \
67 c_disregard_inline_limits
68 #undef LANG_HOOKS_TREE_INLINING_ANON_AGGR_TYPE_P
69 #define LANG_HOOKS_TREE_INLINING_ANON_AGGR_TYPE_P \
72 /* Each front end provides its own. */
73 struct lang_hooks lang_hooks = LANG_HOOKS_INITIALIZER;
75 /* Post-switch processing. */
79 cpp_post_options (parse_in);
81 /* Use tree inlining if possible. Function instrumentation is only
82 done in the RTL level, so we disable tree inlining. */
83 if (! flag_instrument_function_entry_exit)
87 flag_inline_trees = 1;
90 if (flag_inline_functions)
92 flag_inline_trees = 2;
93 flag_inline_functions = 0;
101 /* Make identifier nodes long enough for the language-specific slots. */
102 set_identifier_size (sizeof (struct lang_identifier));
104 parse_in = cpp_create_reader (ident_hash, CLK_GNUC89);
106 /* Mark as "unspecified". */
107 flag_bounds_check = -1;
113 c_common_lang_init ();
115 /* If still unspecified, make it match -std=c99
116 (allowing for -pedantic-errors). */
117 if (mesg_implicit_function_declaration < 0)
120 mesg_implicit_function_declaration = flag_pedantic_errors ? 2 : 1;
122 mesg_implicit_function_declaration = 0;
125 save_lang_status = &push_c_function_context;
126 restore_lang_status = &pop_c_function_context;
127 mark_lang_status = &mark_c_function_context;
128 lang_expand_expr = &c_expand_expr;
129 lang_safe_from_p = &c_safe_from_p;
130 diagnostic_format_decoder (global_dc) = &c_tree_printer;
131 lang_expand_decl_stmt = &c_expand_decl_stmt;
132 lang_missing_noreturn_ok_p = &c_missing_noreturn_ok_p;
144 print_lang_statistics ()
148 /* used by print-tree.c */
151 lang_print_xnode (file, node, indent)
152 FILE *file ATTRIBUTE_UNUSED;
153 tree node ATTRIBUTE_UNUSED;
154 int indent ATTRIBUTE_UNUSED;
158 /* Used by c-lex.c, but only for objc. */
161 lookup_interface (arg)
162 tree arg ATTRIBUTE_UNUSED;
169 tree arg ATTRIBUTE_UNUSED;
175 maybe_objc_check_decl (decl)
176 tree decl ATTRIBUTE_UNUSED;
181 maybe_objc_comptypes (lhs, rhs, reflexive)
182 tree lhs ATTRIBUTE_UNUSED;
183 tree rhs ATTRIBUTE_UNUSED;
184 int reflexive ATTRIBUTE_UNUSED;
190 maybe_building_objc_message_expr ()
196 recognize_objc_keyword ()
201 /* Used by c-typeck.c (build_external_ref), but only for objc. */
204 lookup_objc_ivar (id)
205 tree id ATTRIBUTE_UNUSED;
210 #if !defined(ASM_OUTPUT_CONSTRUCTOR) || !defined(ASM_OUTPUT_DESTRUCTOR)
211 extern tree static_ctors;
212 extern tree static_dtors;
214 static tree start_cdtor PARAMS ((int));
215 static void finish_cdtor PARAMS ((tree));
218 start_cdtor (method_type)
221 tree fnname = get_file_function_name (method_type);
222 tree void_list_node_1 = build_tree_list (NULL_TREE, void_type_node);
225 start_function (void_list_node_1,
226 build_nt (CALL_EXPR, fnname,
227 tree_cons (NULL_TREE, NULL_TREE, void_list_node_1),
232 current_function_cannot_inline
233 = "static constructors and destructors cannot be inlined";
235 body = c_begin_compound_stmt ();
239 add_scope_stmt (/*begin_p=*/1, /*partial_p=*/0);
251 scope = add_scope_stmt (/*begin_p=*/0, /*partial_p=*/0);
252 block = poplevel (0, 0, 0);
253 SCOPE_STMT_BLOCK (TREE_PURPOSE (scope)) = block;
254 SCOPE_STMT_BLOCK (TREE_VALUE (scope)) = block;
256 RECHAIN_STMTS (body, COMPOUND_BODY (body));
262 /* Called at end of parsing, but before end-of-file processing. */
267 #ifndef ASM_OUTPUT_CONSTRUCTOR
270 tree body = start_cdtor ('I');
272 for (; static_ctors; static_ctors = TREE_CHAIN (static_ctors))
273 c_expand_expr_stmt (build_function_call (TREE_VALUE (static_ctors),
279 #ifndef ASM_OUTPUT_DESTRUCTOR
282 tree body = start_cdtor ('D');
284 for (; static_dtors; static_dtors = TREE_CHAIN (static_dtors))
285 c_expand_expr_stmt (build_function_call (TREE_VALUE (static_dtors),
293 (*back_end_hook) (getdecls ());
297 FILE *stream = dump_begin (TDI_all, &flags);
301 dump_node (getdecls (), flags & ~TDF_SLIM, stream);
302 dump_end (TDI_all, stream);
307 /* Called during diagnostic message formatting process to print a
308 source-level entity onto BUFFER. The meaning of the format specifiers
311 %F: a function declaration,
314 These format specifiers form a subset of the format specifiers set used
315 by the C++ front-end.
316 Please notice when called, the `%' part was already skipped by the
317 diagnostic machinery. */
319 c_tree_printer (buffer)
320 output_buffer *buffer;
322 tree t = va_arg (output_buffer_format_args (buffer), tree);
324 switch (*output_buffer_text_cursor (buffer))
330 const char *n = DECL_NAME (t)
331 ? (*decl_printable_name) (t, 2)
333 output_add_string (buffer, n);
343 c_missing_noreturn_ok_p (decl)
346 /* A missing noreturn is not ok for freestanding implementations and
347 ok for the `main' function in hosted implementations. */
348 return flag_hosted && MAIN_NAME_P (DECL_ASSEMBLER_NAME (decl));
351 /* We want to inline `extern inline' functions even if this would
352 violate inlining limits. Some glibc and linux constructs depend on
353 such functions always being inlined when optimizing. */
356 c_disregard_inline_limits (fn)
359 return DECL_DECLARED_INLINE_P (fn) && DECL_EXTERNAL (fn);
362 static tree inline_forbidden_p PARAMS ((tree *, int *, void *));
365 inline_forbidden_p (nodep, walk_subtrees, fn)
367 int *walk_subtrees ATTRIBUTE_UNUSED;
373 switch (TREE_CODE (node))
376 t = get_callee_fndecl (node);
381 /* We cannot inline functions that call setjmp. */
382 if (setjmp_call_p (t))
385 switch (DECL_FUNCTION_CODE (t))
387 /* We cannot inline functions that take a variable number of
389 case BUILT_IN_VARARGS_START:
390 case BUILT_IN_STDARG_START:
392 /* Functions that need information about the address of the
393 caller can't (shouldn't?) be inlined. */
394 case BUILT_IN_RETURN_ADDRESS:
405 /* We cannot inline functions that contain other functions. */
406 if (TREE_CODE (TREE_OPERAND (node, 0)) == FUNCTION_DECL
407 && DECL_INITIAL (TREE_OPERAND (node, 0)))
413 t = TREE_OPERAND (node, 0);
415 /* We will not inline a function which uses computed goto. The
416 addresses of its local labels, which may be tucked into
417 global storage, are of course not constant across
418 instantiations, which causes unexpected behaviour. */
419 if (TREE_CODE (t) != LABEL_DECL)
422 /* We cannot inline a nested function that jumps to a nonlocal
424 if (TREE_CODE (t) == LABEL_DECL
425 && DECL_CONTEXT (t) && DECL_CONTEXT (t) != fn)
438 c_cannot_inline_tree_fn (fnp)
444 if (! function_attribute_inlinable_p (fn))
446 DECL_UNINLINABLE (fn) = 1;
450 /* If a function has pending sizes, we must not defer its
451 compilation, and we can't inline it as a tree. */
452 if (fn == current_function_decl)
454 t = get_pending_sizes ();
455 put_pending_sizes (t);
459 DECL_UNINLINABLE (fn) = 1;
464 if (DECL_CONTEXT (fn))
466 /* If a nested function has pending sizes, we may have already
468 if (DECL_LANG_SPECIFIC (fn)->pending_sizes)
470 DECL_UNINLINABLE (fn) = 1;
476 /* We rely on the fact that this function is called upfront,
477 just before we start expanding a function. If FN is active
478 (i.e., it's the current_function_decl or a parent thereof),
479 we have to walk FN's saved tree. Otherwise, we can safely
480 assume we have done it before and, if we didn't mark it as
481 uninlinable (in which case we wouldn't have been called), it
482 is inlinable. Unfortunately, this strategy doesn't work for
483 nested functions, because they're only expanded as part of
484 their enclosing functions, so the inlinability test comes in
486 t = current_function_decl;
489 t = DECL_CONTEXT (t);
494 if (walk_tree (&DECL_SAVED_TREE (fn), inline_forbidden_p, fn, NULL))
496 DECL_UNINLINABLE (fn) = 1;