gcc/cp/cp-lang.c

   1 /* Language-dependent hooks for C++.
   2    Copyright 2001, 2002, 2004 Free Software Foundation, Inc.
   3    Contributed by Alexandre Oliva  <aoliva@redhat.com>
   4
   5 This file is part of GCC.
   6
   7 GCC is free software; you can redistribute it and/or modify
   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
  12 GCC is distributed in the hope that it will be useful,
  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
  18 along with GCC; see the file COPYING.  If not, write to
  19 the Free Software Foundation, 59 Temple Place - Suite 330,
  20 Boston, MA 02111-1307, USA.  */
  21
  22 #include "config.h"
  23 #include "system.h"
  24 #include "coretypes.h"
  25 #include "tm.h"
  26 #include "tree.h"
  27 #include "cp-tree.h"
  28 #include "c-common.h"
  29 #include "toplev.h"
  30 #include "langhooks.h"
  31 #include "langhooks-def.h"
  32 #include "diagnostic.h"
  33 #include "cxx-pretty-print.h"
  34
  35 enum c_language_kind c_language = clk_cxx;
  36
  37 static HOST_WIDE_INT cxx_get_alias_set (tree);
  38 static bool cxx_warn_unused_global_decl (tree);
  39 static tree cp_expr_size (tree);
  40 static size_t cp_tree_size (enum tree_code);
  41 static bool cp_var_mod_type_p (tree, tree);
  42 static int cxx_types_compatible_p (tree, tree);
  43 static void cxx_initialize_diagnostics (diagnostic_context *);
  44
  45 #undef LANG_HOOKS_NAME
  46 #define LANG_HOOKS_NAME "GNU C++"
  47 #undef LANG_HOOKS_TREE_SIZE
  48 #define LANG_HOOKS_TREE_SIZE cp_tree_size
  49 #undef LANG_HOOKS_INIT
  50 #define LANG_HOOKS_INIT cxx_init
  51 #undef LANG_HOOKS_FINISH
  52 #define LANG_HOOKS_FINISH cxx_finish
  53 #undef LANG_HOOKS_CLEAR_BINDING_STACK
  54 #define LANG_HOOKS_CLEAR_BINDING_STACK pop_everything
  55 #undef LANG_HOOKS_INIT_OPTIONS
  56 #define LANG_HOOKS_INIT_OPTIONS c_common_init_options
  57 #undef LANG_HOOKS_INITIALIZE_DIAGNOSTICS
  58 #define LANG_HOOKS_INITIALIZE_DIAGNOSTICS cxx_initialize_diagnostics
  59 #undef LANG_HOOKS_HANDLE_OPTION
  60 #define LANG_HOOKS_HANDLE_OPTION c_common_handle_option
  61 #undef LANG_HOOKS_HANDLE_FILENAME
  62 #define LANG_HOOKS_HANDLE_FILENAME c_common_handle_filename
  63 #undef LANG_HOOKS_MISSING_ARGUMENT
  64 #define LANG_HOOKS_MISSING_ARGUMENT c_common_missing_argument
  65 #undef LANG_HOOKS_POST_OPTIONS
  66 #define LANG_HOOKS_POST_OPTIONS c_common_post_options
  67 #undef LANG_HOOKS_GET_ALIAS_SET
  68 #define LANG_HOOKS_GET_ALIAS_SET cxx_get_alias_set
  69 #undef LANG_HOOKS_EXPAND_CONSTANT
  70 #define LANG_HOOKS_EXPAND_CONSTANT cplus_expand_constant
  71 #undef LANG_HOOKS_EXPAND_EXPR
  72 #define LANG_HOOKS_EXPAND_EXPR cxx_expand_expr
  73 #undef LANG_HOOKS_EXPAND_DECL
  74 #define LANG_HOOKS_EXPAND_DECL c_expand_decl
  75 #undef LANG_HOOKS_PARSE_FILE
  76 #define LANG_HOOKS_PARSE_FILE c_common_parse_file
  77 #undef LANG_HOOKS_DUP_LANG_SPECIFIC_DECL
  78 #define LANG_HOOKS_DUP_LANG_SPECIFIC_DECL cxx_dup_lang_specific_decl
  79 #undef LANG_HOOKS_TRUTHVALUE_CONVERSION
  80 #define LANG_HOOKS_TRUTHVALUE_CONVERSION c_common_truthvalue_conversion
  81 #undef LANG_HOOKS_SET_DECL_ASSEMBLER_NAME
  82 #define LANG_HOOKS_SET_DECL_ASSEMBLER_NAME mangle_decl
  83 #undef LANG_HOOKS_MARK_ADDRESSABLE
  84 #define LANG_HOOKS_MARK_ADDRESSABLE cxx_mark_addressable
  85 #undef LANG_HOOKS_PRINT_STATISTICS
  86 #define LANG_HOOKS_PRINT_STATISTICS cxx_print_statistics
  87 #undef LANG_HOOKS_PRINT_XNODE
  88 #define LANG_HOOKS_PRINT_XNODE cxx_print_xnode
  89 #undef LANG_HOOKS_PRINT_DECL
  90 #define LANG_HOOKS_PRINT_DECL cxx_print_decl
  91 #undef LANG_HOOKS_PRINT_TYPE
  92 #define LANG_HOOKS_PRINT_TYPE cxx_print_type
  93 #undef LANG_HOOKS_PRINT_IDENTIFIER
  94 #define LANG_HOOKS_PRINT_IDENTIFIER cxx_print_identifier
  95 #undef LANG_HOOKS_DECL_PRINTABLE_NAME
  96 #define LANG_HOOKS_DECL_PRINTABLE_NAME  cxx_printable_name
  97 #undef LANG_HOOKS_PRINT_ERROR_FUNCTION
  98 #define LANG_HOOKS_PRINT_ERROR_FUNCTION cxx_print_error_function
  99 #undef LANG_HOOKS_WARN_UNUSED_GLOBAL_DECL
 100 #define LANG_HOOKS_WARN_UNUSED_GLOBAL_DECL cxx_warn_unused_global_decl
 101 #undef LANG_HOOKS_WRITE_GLOBALS
 102 #define LANG_HOOKS_WRITE_GLOBALS lhd_do_nothing
 103
 104
 105 #undef LANG_HOOKS_FUNCTION_INIT
 106 #define LANG_HOOKS_FUNCTION_INIT cxx_push_function_context
 107 #undef LANG_HOOKS_FUNCTION_FINAL
 108 #define LANG_HOOKS_FUNCTION_FINAL cxx_pop_function_context
 109 #undef LANG_HOOKS_FUNCTION_MISSING_NORETURN_OK_P
 110 #define LANG_HOOKS_FUNCTION_MISSING_NORETURN_OK_P cp_missing_noreturn_ok_p
 111
 112 /* Attribute hooks.  */
 113 #undef LANG_HOOKS_COMMON_ATTRIBUTE_TABLE
 114 #define LANG_HOOKS_COMMON_ATTRIBUTE_TABLE c_common_attribute_table
 115 #undef LANG_HOOKS_FORMAT_ATTRIBUTE_TABLE
 116 #define LANG_HOOKS_FORMAT_ATTRIBUTE_TABLE c_common_format_attribute_table
 117 #undef LANG_HOOKS_ATTRIBUTE_TABLE
 118 #define LANG_HOOKS_ATTRIBUTE_TABLE cxx_attribute_table
 119
 120 #undef LANG_HOOKS_TREE_INLINING_WALK_SUBTREES
 121 #define LANG_HOOKS_TREE_INLINING_WALK_SUBTREES \
 122   cp_walk_subtrees
 123 #undef LANG_HOOKS_TREE_INLINING_CANNOT_INLINE_TREE_FN
 124 #define LANG_HOOKS_TREE_INLINING_CANNOT_INLINE_TREE_FN \
 125   cp_cannot_inline_tree_fn
 126 #undef LANG_HOOKS_TREE_INLINING_ADD_PENDING_FN_DECLS
 127 #define LANG_HOOKS_TREE_INLINING_ADD_PENDING_FN_DECLS \
 128   cp_add_pending_fn_decls
 129 #undef LANG_HOOKS_TREE_INLINING_AUTO_VAR_IN_FN_P
 130 #define LANG_HOOKS_TREE_INLINING_AUTO_VAR_IN_FN_P \
 131   cp_auto_var_in_fn_p
 132 #undef LANG_HOOKS_TREE_INLINING_ANON_AGGR_TYPE_P
 133 #define LANG_HOOKS_TREE_INLINING_ANON_AGGR_TYPE_P anon_aggr_type_p
 134 #undef LANG_HOOKS_TREE_INLINING_VAR_MOD_TYPE_P
 135 #define LANG_HOOKS_TREE_INLINING_VAR_MOD_TYPE_P cp_var_mod_type_p
 136 #undef LANG_HOOKS_TREE_DUMP_DUMP_TREE_FN
 137 #define LANG_HOOKS_TREE_DUMP_DUMP_TREE_FN cp_dump_tree
 138 #undef LANG_HOOKS_TREE_DUMP_TYPE_QUALS_FN
 139 #define LANG_HOOKS_TREE_DUMP_TYPE_QUALS_FN cp_type_quals
 140 #undef LANG_HOOKS_EXPR_SIZE
 141 #define LANG_HOOKS_EXPR_SIZE cp_expr_size
 142
 143 #undef LANG_HOOKS_CALLGRAPH_ANALYZE_EXPR
 144 #define LANG_HOOKS_CALLGRAPH_ANALYZE_EXPR cxx_callgraph_analyze_expr
 145 #undef LANG_HOOKS_CALLGRAPH_EXPAND_FUNCTION
 146 #define LANG_HOOKS_CALLGRAPH_EXPAND_FUNCTION expand_body
 147
 148 #undef LANG_HOOKS_MAKE_TYPE
 149 #define LANG_HOOKS_MAKE_TYPE cxx_make_type
 150 #undef LANG_HOOKS_TYPE_FOR_MODE
 151 #define LANG_HOOKS_TYPE_FOR_MODE c_common_type_for_mode
 152 #undef LANG_HOOKS_TYPE_FOR_SIZE
 153 #define LANG_HOOKS_TYPE_FOR_SIZE c_common_type_for_size
 154 #undef LANG_HOOKS_SIGNED_TYPE
 155 #define LANG_HOOKS_SIGNED_TYPE c_common_signed_type
 156 #undef LANG_HOOKS_UNSIGNED_TYPE
 157 #define LANG_HOOKS_UNSIGNED_TYPE c_common_unsigned_type
 158 #undef LANG_HOOKS_SIGNED_OR_UNSIGNED_TYPE
 159 #define LANG_HOOKS_SIGNED_OR_UNSIGNED_TYPE c_common_signed_or_unsigned_type
 160 #undef LANG_HOOKS_INCOMPLETE_TYPE_ERROR
 161 #define LANG_HOOKS_INCOMPLETE_TYPE_ERROR cxx_incomplete_type_error
 162 #undef LANG_HOOKS_TYPE_PROMOTES_TO
 163 #define LANG_HOOKS_TYPE_PROMOTES_TO cxx_type_promotes_to
 164 #undef LANG_HOOKS_TYPES_COMPATIBLE_P
 165 #define LANG_HOOKS_TYPES_COMPATIBLE_P cxx_types_compatible_p
 166 #undef LANG_HOOKS_REGISTER_BUILTIN_TYPE
 167 #define LANG_HOOKS_REGISTER_BUILTIN_TYPE c_register_builtin_type
 168 #undef LANG_HOOKS_GIMPLIFY_EXPR
 169 #define LANG_HOOKS_GIMPLIFY_EXPR cp_gimplify_expr
 170 #undef LANG_HOOKS_FOLD_OBJ_TYPE_REF
 171 #define LANG_HOOKS_FOLD_OBJ_TYPE_REF cp_fold_obj_type_ref
 172
 173 /* Each front end provides its own hooks, for toplev.c.  */
 174 const struct lang_hooks lang_hooks = LANG_HOOKS_INITIALIZER;
 175
 176 /* Tree code classes.  */
 177
 178 #define DEFTREECODE(SYM, NAME, TYPE, LENGTH) TYPE,
 179
 180 const char tree_code_type[] = {
 181 #include "tree.def"
 182   'x',
 183 #include "c-common.def"
 184   'x',
 185 #include "cp-tree.def"
 186 };
 187 #undef DEFTREECODE
 188
 189 /* Table indexed by tree code giving number of expression
 190    operands beyond the fixed part of the node structure.
 191    Not used for types or decls.  */
 192
 193 #define DEFTREECODE(SYM, NAME, TYPE, LENGTH) LENGTH,
 194
 195 const unsigned char tree_code_length[] = {
 196 #include "tree.def"
 197   0,
 198 #include "c-common.def"
 199   0,
 200 #include "cp-tree.def"
 201 };
 202 #undef DEFTREECODE
 203
 204 /* Names of tree components.
 205    Used for printing out the tree and error messages.  */
 206 #define DEFTREECODE(SYM, NAME, TYPE, LEN) NAME,
 207
 208 const char *const tree_code_name[] = {
 209 #include "tree.def"
 210   "@@dummy",
 211 #include "c-common.def"
 212   "@@dummy",
 213 #include "cp-tree.def"
 214 };
 215 #undef DEFTREECODE
 216
 217 /* Special routine to get the alias set for C++.  */
 218
 219 static HOST_WIDE_INT
 220 cxx_get_alias_set (tree t)
 221 {
 222   if (IS_FAKE_BASE_TYPE (t))
 223     /* The base variant of a type must be in the same alias set as the
 224        complete type.  */
 225     return get_alias_set (TYPE_CONTEXT (t));
 226
 227   /* Punt on PMFs until we canonicalize functions properly.  */
 228   if (TYPE_PTRMEMFUNC_P (t))
 229     return 0;
 230
 231   return c_common_get_alias_set (t);
 232 }
 233
 234 /* Called from check_global_declarations.  */
 235
 236 static bool
 237 cxx_warn_unused_global_decl (tree decl)
 238 {
 239   if (TREE_CODE (decl) == FUNCTION_DECL && DECL_DECLARED_INLINE_P (decl))
 240     return false;
 241   if (DECL_IN_SYSTEM_HEADER (decl))
 242     return false;
 243
 244   /* Const variables take the place of #defines in C++.  */
 245   if (TREE_CODE (decl) == VAR_DECL && TREE_READONLY (decl))
 246     return false;
 247
 248   return true;
 249 }
 250
 251 /* Langhook for expr_size: Tell the backend that the value of an expression
 252    of non-POD class type does not include any tail padding; a derived class
 253    might have allocated something there.  */
 254
 255 static tree
 256 cp_expr_size (tree exp)
 257 {
 258   if (CLASS_TYPE_P (TREE_TYPE (exp)))
 259     {
 260       /* The backend should not be interested in the size of an expression
 261          of a type with both of these set; all copies of such types must go
 262          through a constructor or assignment op.  */
 263       if (TYPE_HAS_COMPLEX_INIT_REF (TREE_TYPE (exp))
 264           && TYPE_HAS_COMPLEX_ASSIGN_REF (TREE_TYPE (exp))
 265           /* But storing a CONSTRUCTOR isn't a copy.  */
 266           && TREE_CODE (exp) != CONSTRUCTOR)
 267         abort ();
 268       /* This would be wrong for a type with virtual bases, but they are
 269          caught by the abort above.  */
 270       return (is_empty_class (TREE_TYPE (exp))
 271               ? size_zero_node
 272               : CLASSTYPE_SIZE_UNIT (TREE_TYPE (exp)));
 273     }
 274   else
 275     /* Use the default code.  */
 276     return lhd_expr_size (exp);
 277 }
 278
 279 /* Langhook for tree_size: determine size of our 'x' and 'c' nodes.  */
 280 static size_t
 281 cp_tree_size (enum tree_code code)
 282 {
 283   switch (code)
 284     {
 285     case TINST_LEVEL:           return sizeof (struct tinst_level_s);
 286     case PTRMEM_CST:            return sizeof (struct ptrmem_cst);
 287     case BASELINK:              return sizeof (struct tree_baselink);
 288     case TEMPLATE_PARM_INDEX:   return sizeof (template_parm_index);
 289     case DEFAULT_ARG:           return sizeof (struct tree_default_arg);
 290     case OVERLOAD:              return sizeof (struct tree_overload);
 291     default:
 292       abort ();
 293     }
 294   /* NOTREACHED */
 295 }
 296
 297 /* Returns true if T is a variably modified type, in the sense of C99.
 298    FN is as passed to variably_modified_p.
 299    This routine needs only check cases that cannot be handled by the
 300    language-independent logic in tree.c.  */
 301
 302 static bool
 303 cp_var_mod_type_p (tree type, tree fn)
 304 {
 305   /* If TYPE is a pointer-to-member, it is variably modified if either
 306      the class or the member are variably modified.  */
 307   if (TYPE_PTR_TO_MEMBER_P (type))
 308     return (variably_modified_type_p (TYPE_PTRMEM_CLASS_TYPE (type), fn)
 309             || variably_modified_type_p (TYPE_PTRMEM_POINTED_TO_TYPE (type),
 310                                          fn));
 311
 312   /* All other types are not variably modified.  */
 313   return false;
 314 }
 315
 316 /* This compares two types for equivalence ("compatible" in C-based languages).
 317    This routine should only return 1 if it is sure.  It should not be used
 318    in contexts where erroneously returning 0 causes problems.  */
 319
 320 static int cxx_types_compatible_p (tree x, tree y)
 321 {
 322   if (same_type_ignoring_top_level_qualifiers_p (x, y))
 323     return 1;
 324
 325   /* Once we get to the middle-end, references and pointers are
 326      interchangeable.  FIXME should we try to replace all references with
 327      pointers?  */
 328   if (POINTER_TYPE_P (x) && POINTER_TYPE_P (y)
 329       && same_type_p (TREE_TYPE (x), TREE_TYPE (y)))
 330     return 1;
 331
 332   return 0;
 333 }
 334
 335 /* Construct a C++-aware pretty-printer for CONTEXT.  It is assumed
 336    that CONTEXT->printer is an already constructed basic pretty_printer.  */
 337 static void
 338 cxx_initialize_diagnostics (diagnostic_context *context)
 339 {
 340   pretty_printer *base = context->printer;
 341   cxx_pretty_printer *pp = xmalloc (sizeof (cxx_pretty_printer));
 342   memcpy (pp_base (pp), base, sizeof (pretty_printer));
 343   pp_cxx_pretty_printer_init (pp);
 344   context->printer = (pretty_printer *) pp;
 345
 346   /* It is safe to free this object because it was previously malloc()'d.  */
 347   free (base);
 348 }
 349
 350 /* Stubs to keep c-opts.c happy.  */
 351 void
 352 push_file_scope (void)
 353 {
 354 }
 355
 356 void
 357 pop_file_scope (void)
 358 {
 359 }
 360
 361 /* c-pragma.c needs to query whether a decl has extern "C" linkage.  */
 362 bool
 363 has_c_linkage (tree decl)
 364 {
 365   return DECL_EXTERN_C_P (decl);
 366 }