1 /* Some code common to C and ObjC front ends.
2 Copyright (C) 2001-2013 Free Software Foundation, Inc.
4 This file is part of GCC.
6 GCC is free software; you can redistribute it and/or modify it under
7 the terms of the GNU General Public License as published by the Free
8 Software Foundation; either version 3, or (at your option) any later
11 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
12 WARRANTY; without even the implied warranty of MERCHANTABILITY or
13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
16 You should have received a copy of the GNU General Public License
17 along with GCC; see the file COPYING3. If not see
18 <http://www.gnu.org/licenses/>. */
22 #include "coretypes.h"
26 #include "c-family/c-pretty-print.h"
28 #include "diagnostic.h"
29 #include "tree-pretty-print.h"
30 #include "langhooks.h"
31 #include "c-objc-common.h"
33 #include <new> // For placement new.
35 static bool c_tree_printer (pretty_printer *, text_info *, const char *,
36 int, bool, bool, bool);
39 c_missing_noreturn_ok_p (tree decl)
41 /* A missing noreturn is not ok for freestanding implementations and
42 ok for the `main' function in hosted implementations. */
43 return flag_hosted && MAIN_NAME_P (DECL_ASSEMBLER_NAME (decl));
46 /* Called from check_global_declarations. */
49 c_warn_unused_global_decl (const_tree decl)
51 if (TREE_CODE (decl) == FUNCTION_DECL && DECL_DECLARED_INLINE_P (decl))
53 if (DECL_IN_SYSTEM_HEADER (decl))
59 /* Initialization common to C and Objective-C front ends. */
61 c_objc_common_init (void)
63 c_init_decl_processing ();
65 if (c_common_init () == false)
68 /* These were not defined in the Objective-C front end, but I'm
69 putting them here anyway. The diagnostic format decoder might
70 want an enhanced ObjC implementation. */
71 diagnostic_format_decoder (global_dc) = &c_tree_printer;
76 /* Called during diagnostic message formatting process to print a
77 source-level entity onto BUFFER. The meaning of the format specifiers
80 %E: an identifier or expression,
81 %F: a function declaration,
83 %V: a list of type qualifiers from a tree.
84 %v: an explicit list of type qualifiers
85 %#v: an explicit list of type qualifiers of a function type.
87 Please notice when called, the `%' part was already skipped by the
88 diagnostic machinery. */
90 c_tree_printer (pretty_printer *pp, text_info *text, const char *spec,
91 int precision, bool wide, bool set_locus, bool hash)
95 // FIXME: the next cast should be a dynamic_cast, when it is permitted.
96 c_pretty_printer *cpp = (c_pretty_printer *) pp;
97 pp->padding = pp_none;
99 if (precision != 0 || wide)
104 percent_K_format (text);
110 t = va_arg (*text->args_ptr, tree);
111 if (set_locus && text->locus)
112 *text->locus = DECL_SOURCE_LOCATION (t);
118 if (TREE_CODE (t) == VAR_DECL && DECL_HAS_DEBUG_EXPR_P (t))
120 t = DECL_DEBUG_EXPR (t);
123 pp_c_expression (cpp, t);
132 pp_identifier (cpp, lang_hooks.decl_printable_name (t, 2));
138 gcc_assert (TYPE_P (t));
139 name = TYPE_NAME (t);
141 if (name && TREE_CODE (name) == TYPE_DECL)
143 if (DECL_NAME (name))
144 pp_identifier (cpp, lang_hooks.decl_printable_name (name, 2));
157 if (TREE_CODE (t) == IDENTIFIER_NODE)
158 pp_identifier (cpp, IDENTIFIER_POINTER (t));
160 pp_expression (cpp, t);
164 pp_c_type_qualifier_list (cpp, t);
168 pp_c_cv_qualifiers (cpp, va_arg (*text->args_ptr, int), hash);
175 pp_string (cpp, _("({anonymous})"));
179 /* In C and ObjC, all decls have "C" linkage. */
181 has_c_linkage (const_tree decl ATTRIBUTE_UNUSED)
187 c_initialize_diagnostics (diagnostic_context *context)
189 c_common_initialize_diagnostics (context);
191 pretty_printer *base = context->printer;
192 c_pretty_printer *pp = XNEW (c_pretty_printer);
193 context->printer = new (pp) c_pretty_printer ();
195 /* It is safe to free this object because it was previously XNEW()'d. */
196 base->~pretty_printer ();
201 c_types_compatible_p (tree x, tree y)
203 return comptypes (TYPE_MAIN_VARIANT (x), TYPE_MAIN_VARIANT (y));
206 /* Determine if the type is a vla type for the backend. */
209 c_vla_unspec_p (tree x, tree fn ATTRIBUTE_UNUSED)
211 return c_vla_type_p (x);