Mercurial > hg > CbC > CbC_gcc
annotate gcc/c-objc-common.c @ 55:77e2b8dfacca gcc-4.4.5
update it from 4.4.3 to 4.5.0
| author | ryoma <e075725@ie.u-ryukyu.ac.jp> |
|---|---|
| date | Fri, 12 Feb 2010 23:39:51 +0900 |
| parents | a06113de4d67 |
| children | b7f97abdc517 |
| rev | line source |
|---|---|
| 0 | 1 /* Some code common to C and ObjC front ends. |
|
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
2 Copyright (C) 2001, 2002, 2003, 2004, 2005, 2007, |
|
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
3 2009 Free Software Foundation, Inc. |
| 0 | 4 |
| 5 This file is part of GCC. | |
| 6 | |
| 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 3, or (at your option) any later | |
| 10 version. | |
| 11 | |
| 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 | |
| 15 for more details. | |
| 16 | |
| 17 You should have received a copy of the GNU General Public License | |
| 18 along with GCC; see the file COPYING3. If not see | |
| 19 <http://www.gnu.org/licenses/>. */ | |
| 20 | |
| 21 #include "config.h" | |
| 22 #include "system.h" | |
| 23 #include "coretypes.h" | |
| 24 #include "tm.h" | |
| 25 #include "tree.h" | |
| 26 #include "rtl.h" | |
| 27 #include "insn-config.h" | |
| 28 #include "integrate.h" | |
| 29 #include "c-tree.h" | |
|
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
30 #include "intl.h" |
| 0 | 31 #include "c-pretty-print.h" |
| 32 #include "function.h" | |
| 33 #include "flags.h" | |
| 34 #include "toplev.h" | |
| 35 #include "diagnostic.h" | |
| 36 #include "tree-inline.h" | |
| 37 #include "varray.h" | |
| 38 #include "ggc.h" | |
| 39 #include "langhooks.h" | |
| 40 #include "tree-mudflap.h" | |
| 41 #include "target.h" | |
| 42 #include "c-objc-common.h" | |
| 43 | |
| 44 static bool c_tree_printer (pretty_printer *, text_info *, const char *, | |
| 45 int, bool, bool, bool); | |
| 46 | |
| 47 bool | |
| 48 c_missing_noreturn_ok_p (tree decl) | |
| 49 { | |
| 50 /* A missing noreturn is not ok for freestanding implementations and | |
| 51 ok for the `main' function in hosted implementations. */ | |
| 52 return flag_hosted && MAIN_NAME_P (DECL_ASSEMBLER_NAME (decl)); | |
| 53 } | |
| 54 | |
| 55 /* Called from check_global_declarations. */ | |
| 56 | |
| 57 bool | |
| 58 c_warn_unused_global_decl (const_tree decl) | |
| 59 { | |
| 60 if (TREE_CODE (decl) == FUNCTION_DECL && DECL_DECLARED_INLINE_P (decl)) | |
| 61 return false; | |
| 62 if (DECL_IN_SYSTEM_HEADER (decl)) | |
| 63 return false; | |
| 64 | |
| 65 return true; | |
| 66 } | |
| 67 | |
| 68 /* Initialization common to C and Objective-C front ends. */ | |
| 69 bool | |
| 70 c_objc_common_init (void) | |
| 71 { | |
| 72 c_init_decl_processing (); | |
| 73 | |
| 74 if (c_common_init () == false) | |
| 75 return false; | |
| 76 | |
| 77 /* These were not defined in the Objective-C front end, but I'm | |
| 78 putting them here anyway. The diagnostic format decoder might | |
| 79 want an enhanced ObjC implementation. */ | |
| 80 diagnostic_format_decoder (global_dc) = &c_tree_printer; | |
| 81 | |
| 82 return true; | |
| 83 } | |
| 84 | |
| 85 /* Called during diagnostic message formatting process to print a | |
| 86 source-level entity onto BUFFER. The meaning of the format specifiers | |
| 87 is as follows: | |
| 88 %D: a general decl, | |
| 89 %E: an identifier or expression, | |
| 90 %F: a function declaration, | |
| 91 %T: a type. | |
| 92 | |
| 93 These format specifiers form a subset of the format specifiers set used | |
| 94 by the C++ front-end. | |
| 95 Please notice when called, the `%' part was already skipped by the | |
| 96 diagnostic machinery. */ | |
| 97 static bool | |
| 98 c_tree_printer (pretty_printer *pp, text_info *text, const char *spec, | |
| 99 int precision, bool wide, bool set_locus, bool hash) | |
| 100 { | |
| 101 tree t = va_arg (*text->args_ptr, tree); | |
| 102 tree name; | |
| 103 c_pretty_printer *cpp = (c_pretty_printer *) pp; | |
| 104 pp->padding = pp_none; | |
| 105 | |
| 106 if (precision != 0 || wide || hash) | |
| 107 return false; | |
| 108 | |
| 109 if (set_locus && text->locus) | |
| 110 *text->locus = DECL_SOURCE_LOCATION (t); | |
| 111 | |
| 112 switch (*spec) | |
| 113 { | |
| 114 case 'D': | |
| 115 if (DECL_DEBUG_EXPR_IS_FROM (t) && DECL_DEBUG_EXPR (t)) | |
| 116 { | |
| 117 t = DECL_DEBUG_EXPR (t); | |
| 118 if (!DECL_P (t)) | |
| 119 { | |
| 120 pp_c_expression (cpp, t); | |
| 121 return true; | |
| 122 } | |
| 123 } | |
| 124 /* FALLTHRU */ | |
| 125 | |
| 126 case 'F': | |
| 127 if (DECL_NAME (t)) | |
|
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
128 { |
|
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
129 pp_identifier (cpp, lang_hooks.decl_printable_name (t, 2)); |
|
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
130 return true; |
|
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
131 } |
| 0 | 132 break; |
| 133 | |
| 134 case 'T': | |
| 135 gcc_assert (TYPE_P (t)); | |
| 136 name = TYPE_NAME (t); | |
| 137 | |
| 138 if (name && TREE_CODE (name) == TYPE_DECL) | |
| 139 { | |
| 140 if (DECL_NAME (name)) | |
|
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
141 pp_identifier (cpp, lang_hooks.decl_printable_name (name, 2)); |
| 0 | 142 else |
| 143 pp_type_id (cpp, t); | |
| 144 return true; | |
| 145 } | |
| 146 else | |
| 147 { | |
| 148 pp_type_id (cpp, t); | |
| 149 return true; | |
| 150 } | |
| 151 break; | |
| 152 | |
| 153 case 'E': | |
| 154 if (TREE_CODE (t) == IDENTIFIER_NODE) | |
|
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
155 pp_identifier (cpp, IDENTIFIER_POINTER (t)); |
| 0 | 156 else |
|
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
157 pp_expression (cpp, t); |
|
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
158 return true; |
| 0 | 159 |
| 160 default: | |
| 161 return false; | |
| 162 } | |
| 163 | |
|
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
164 pp_string (cpp, _("({anonymous})")); |
| 0 | 165 return true; |
| 166 } | |
| 167 | |
| 168 /* In C and ObjC, all decls have "C" linkage. */ | |
| 169 bool | |
| 170 has_c_linkage (const_tree decl ATTRIBUTE_UNUSED) | |
| 171 { | |
| 172 return true; | |
| 173 } | |
| 174 | |
| 175 void | |
| 176 c_initialize_diagnostics (diagnostic_context *context) | |
| 177 { | |
| 178 pretty_printer *base = context->printer; | |
| 179 c_pretty_printer *pp = XNEW (c_pretty_printer); | |
| 180 memcpy (pp_base (pp), base, sizeof (pretty_printer)); | |
| 181 pp_c_pretty_printer_init (pp); | |
| 182 context->printer = (pretty_printer *) pp; | |
| 183 | |
| 184 /* It is safe to free this object because it was previously XNEW()'d. */ | |
| 185 XDELETE (base); | |
| 186 } | |
| 187 | |
| 188 int | |
| 189 c_types_compatible_p (tree x, tree y) | |
| 190 { | |
| 191 return comptypes (TYPE_MAIN_VARIANT (x), TYPE_MAIN_VARIANT (y)); | |
| 192 } | |
| 193 | |
| 194 /* Determine if the type is a vla type for the backend. */ | |
| 195 | |
| 196 bool | |
| 197 c_vla_unspec_p (tree x, tree fn ATTRIBUTE_UNUSED) | |
| 198 { | |
| 199 return c_vla_type_p (x); | |
| 200 } |