gcc/cp/cp-lang.c

   1 /* Language-dependent hooks for C++.
   2    Copyright 2001 Free Software Foundation, Inc.
   3    Contributed by Alexandre Oliva  <aoliva@redhat.com>
   4
   5 This file is part of GNU CC.
   6
   7 GNU CC 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 GNU CC 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 GNU CC; 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 "tree.h"
  25 #include "cp-tree.h"
  26 #include "c-common.h"
  27 #include "toplev.h"
  28 #include "langhooks.h"
  29 #include "langhooks-def.h"
  30
  31 static HOST_WIDE_INT cxx_get_alias_set PARAMS ((tree));
  32 static bool ok_to_generate_alias_set_for_type PARAMS ((tree));
  33 static bool cxx_warn_unused_global_decl PARAMS ((tree));
  34
  35 #undef LANG_HOOKS_NAME
  36 #define LANG_HOOKS_NAME "GNU C++"
  37 #undef LANG_HOOKS_INIT
  38 #define LANG_HOOKS_INIT cxx_init
  39 #undef LANG_HOOKS_FINISH
  40 #define LANG_HOOKS_FINISH cxx_finish
  41 #undef LANG_HOOKS_CLEAR_BINDING_STACK
  42 #define LANG_HOOKS_CLEAR_BINDING_STACK pop_everything
  43 #undef LANG_HOOKS_INIT_OPTIONS
  44 #define LANG_HOOKS_INIT_OPTIONS cxx_init_options
  45 #undef LANG_HOOKS_DECODE_OPTION
  46 #define LANG_HOOKS_DECODE_OPTION cxx_decode_option
  47 #undef LANG_HOOKS_POST_OPTIONS
  48 #define LANG_HOOKS_POST_OPTIONS cxx_post_options
  49 #undef LANG_HOOKS_GET_ALIAS_SET
  50 #define LANG_HOOKS_GET_ALIAS_SET cxx_get_alias_set
  51 #undef LANG_HOOKS_EXPAND_CONSTANT
  52 #define LANG_HOOKS_EXPAND_CONSTANT cplus_expand_constant
  53 #undef LANG_HOOKS_EXPAND_EXPR
  54 #define LANG_HOOKS_EXPAND_EXPR cxx_expand_expr
  55 #undef LANG_HOOKS_SAFE_FROM_P
  56 #define LANG_HOOKS_SAFE_FROM_P c_safe_from_p
  57 #undef LANG_HOOKS_PARSE_FILE
  58 #define LANG_HOOKS_PARSE_FILE c_common_parse_file
  59 #undef LANG_HOOKS_DUP_LANG_SPECIFIC_DECL
  60 #define LANG_HOOKS_DUP_LANG_SPECIFIC_DECL cxx_dup_lang_specific_decl
  61 #undef LANG_HOOKS_UNSAVE_EXPR_NOW
  62 #define LANG_HOOKS_UNSAVE_EXPR_NOW cxx_unsave_expr_now
  63 #undef LANG_HOOKS_MAYBE_BUILD_CLEANUP
  64 #define LANG_HOOKS_MAYBE_BUILD_CLEANUP cxx_maybe_build_cleanup
  65 #undef LANG_HOOKS_TRUTHVALUE_CONVERSION
  66 #define LANG_HOOKS_TRUTHVALUE_CONVERSION c_common_truthvalue_conversion
  67 #undef LANG_HOOKS_INSERT_DEFAULT_ATTRIBUTES
  68 #define LANG_HOOKS_INSERT_DEFAULT_ATTRIBUTES cxx_insert_default_attributes
  69 #undef LANG_HOOKS_MARK_TREE
  70 #define LANG_HOOKS_MARK_TREE cxx_mark_tree
  71 #undef LANG_HOOKS_UNSAFE_FOR_REEVAL
  72 #define LANG_HOOKS_UNSAFE_FOR_REEVAL c_common_unsafe_for_reeval
  73 #undef LANG_HOOKS_SET_DECL_ASSEMBLER_NAME
  74 #define LANG_HOOKS_SET_DECL_ASSEMBLER_NAME mangle_decl
  75 #undef LANG_HOOKS_MARK_ADDRESSABLE
  76 #define LANG_HOOKS_MARK_ADDRESSABLE cxx_mark_addressable
  77 #undef LANG_HOOKS_PRINT_STATISTICS
  78 #define LANG_HOOKS_PRINT_STATISTICS cxx_print_statistics
  79 #undef LANG_HOOKS_PRINT_XNODE
  80 #define LANG_HOOKS_PRINT_XNODE cxx_print_xnode
  81 #undef LANG_HOOKS_PRINT_DECL
  82 #define LANG_HOOKS_PRINT_DECL cxx_print_decl
  83 #undef LANG_HOOKS_PRINT_TYPE
  84 #define LANG_HOOKS_PRINT_TYPE cxx_print_type
  85 #undef LANG_HOOKS_PRINT_IDENTIFIER
  86 #define LANG_HOOKS_PRINT_IDENTIFIER cxx_print_identifier
  87 #undef LANG_HOOKS_DECL_PRINTABLE_NAME
  88 #define LANG_HOOKS_DECL_PRINTABLE_NAME  cxx_printable_name
  89 #undef LANG_HOOKS_PRINT_ERROR_FUNCTION
  90 #define LANG_HOOKS_PRINT_ERROR_FUNCTION cxx_print_error_function
  91 #undef LANG_HOOKS_SET_YYDEBUG
  92 #define LANG_HOOKS_SET_YYDEBUG cxx_set_yydebug
  93 #undef LANG_HOOKS_WARN_UNUSED_GLOBAL_DECL
  94 #define LANG_HOOKS_WARN_UNUSED_GLOBAL_DECL cxx_warn_unused_global_decl
  95
  96 #undef LANG_HOOKS_FUNCTION_INIT
  97 #define LANG_HOOKS_FUNCTION_INIT cxx_push_function_context
  98 #undef LANG_HOOKS_FUNCTION_FREE
  99 #define LANG_HOOKS_FUNCTION_FREE cxx_pop_function_context
 100 #undef LANG_HOOKS_FUNCTION_MARK
 101 #define LANG_HOOKS_FUNCTION_MARK cxx_mark_function_context
 102
 103 /* Attribute hooks.  */
 104 #undef LANG_HOOKS_COMMON_ATTRIBUTE_TABLE
 105 #define LANG_HOOKS_COMMON_ATTRIBUTE_TABLE c_common_attribute_table
 106 #undef LANG_HOOKS_FORMAT_ATTRIBUTE_TABLE
 107 #define LANG_HOOKS_FORMAT_ATTRIBUTE_TABLE c_common_format_attribute_table
 108 #undef LANG_HOOKS_ATTRIBUTE_TABLE
 109 #define LANG_HOOKS_ATTRIBUTE_TABLE cxx_attribute_table
 110
 111 #undef LANG_HOOKS_TREE_INLINING_WALK_SUBTREES
 112 #define LANG_HOOKS_TREE_INLINING_WALK_SUBTREES \
 113   cp_walk_subtrees
 114 #undef LANG_HOOKS_TREE_INLINING_CANNOT_INLINE_TREE_FN
 115 #define LANG_HOOKS_TREE_INLINING_CANNOT_INLINE_TREE_FN \
 116   cp_cannot_inline_tree_fn
 117 #undef LANG_HOOKS_TREE_INLINING_ADD_PENDING_FN_DECLS
 118 #define LANG_HOOKS_TREE_INLINING_ADD_PENDING_FN_DECLS \
 119   cp_add_pending_fn_decls
 120 #undef LANG_HOOKS_TREE_INLINING_TREE_CHAIN_MATTERS_P
 121 #define LANG_HOOKS_TREE_INLINING_TREE_CHAIN_MATTERS_P \
 122   cp_is_overload_p
 123 #undef LANG_HOOKS_TREE_INLINING_AUTO_VAR_IN_FN_P
 124 #define LANG_HOOKS_TREE_INLINING_AUTO_VAR_IN_FN_P \
 125   cp_auto_var_in_fn_p
 126 #undef LANG_HOOKS_TREE_INLINING_COPY_RES_DECL_FOR_INLINING
 127 #define LANG_HOOKS_TREE_INLINING_COPY_RES_DECL_FOR_INLINING \
 128   cp_copy_res_decl_for_inlining
 129 #undef LANG_HOOKS_TREE_INLINING_ANON_AGGR_TYPE_P
 130 #define LANG_HOOKS_TREE_INLINING_ANON_AGGR_TYPE_P anon_aggr_type_p
 131 #undef LANG_HOOKS_TREE_INLINING_START_INLINING
 132 #define LANG_HOOKS_TREE_INLINING_START_INLINING cp_start_inlining
 133 #undef LANG_HOOKS_TREE_INLINING_END_INLINING
 134 #define LANG_HOOKS_TREE_INLINING_END_INLINING cp_end_inlining
 135 #undef LANG_HOOKS_TREE_DUMP_DUMP_TREE_FN
 136 #define LANG_HOOKS_TREE_DUMP_DUMP_TREE_FN cp_dump_tree
 137 #undef LANG_HOOKS_TREE_DUMP_TYPE_QUALS_FN
 138 #define LANG_HOOKS_TREE_DUMP_TYPE_QUALS_FN cp_type_quals
 139
 140 #undef LANG_HOOKS_MAKE_TYPE
 141 #define LANG_HOOKS_MAKE_TYPE cxx_make_type
 142 #undef LANG_HOOKS_TYPE_FOR_MODE
 143 #define LANG_HOOKS_TYPE_FOR_MODE c_common_type_for_mode
 144 #undef LANG_HOOKS_TYPE_FOR_SIZE
 145 #define LANG_HOOKS_TYPE_FOR_SIZE c_common_type_for_size
 146 #undef LANG_HOOKS_SIGNED_TYPE
 147 #define LANG_HOOKS_SIGNED_TYPE c_common_signed_type
 148 #undef LANG_HOOKS_UNSIGNED_TYPE
 149 #define LANG_HOOKS_UNSIGNED_TYPE c_common_unsigned_type
 150 #undef LANG_HOOKS_SIGNED_OR_UNSIGNED_TYPE
 151 #define LANG_HOOKS_SIGNED_OR_UNSIGNED_TYPE c_common_signed_or_unsigned_type
 152 #undef LANG_HOOKS_INCOMPLETE_TYPE_ERROR
 153 #define LANG_HOOKS_INCOMPLETE_TYPE_ERROR cxx_incomplete_type_error
 154 #undef LANG_HOOKS_TYPE_PROMOTES_TO
 155 #define LANG_HOOKS_TYPE_PROMOTES_TO cxx_type_promotes_to
 156
 157 /* Each front end provides its own hooks, for toplev.c.  */
 158 const struct lang_hooks lang_hooks = LANG_HOOKS_INITIALIZER;
 159
 160 /* Tree code classes. */
 161
 162 #define DEFTREECODE(SYM, NAME, TYPE, LENGTH) TYPE,
 163
 164 const char tree_code_type[] = {
 165 #include "tree.def"
 166   'x',
 167 #include "c-common.def"
 168   'x',
 169 #include "cp-tree.def"
 170 };
 171 #undef DEFTREECODE
 172
 173 /* Table indexed by tree code giving number of expression
 174    operands beyond the fixed part of the node structure.
 175    Not used for types or decls.  */
 176
 177 #define DEFTREECODE(SYM, NAME, TYPE, LENGTH) LENGTH,
 178
 179 const unsigned char tree_code_length[] = {
 180 #include "tree.def"
 181   0,
 182 #include "c-common.def"
 183   0,
 184 #include "cp-tree.def"
 185 };
 186 #undef DEFTREECODE
 187
 188 /* Names of tree components.
 189    Used for printing out the tree and error messages.  */
 190 #define DEFTREECODE(SYM, NAME, TYPE, LEN) NAME,
 191
 192 const char *const tree_code_name[] = {
 193 #include "tree.def"
 194   "@@dummy",
 195 #include "c-common.def"
 196   "@@dummy",
 197 #include "cp-tree.def"
 198 };
 199 #undef DEFTREECODE
 200
 201 /* Check if a C++ type is safe for aliasing.
 202    Return TRUE if T safe for aliasing FALSE otherwise.  */
 203
 204 static bool
 205 ok_to_generate_alias_set_for_type (t)
 206      tree t;
 207 {
 208   if (TYPE_PTRMEMFUNC_P (t))
 209     return true;
 210   if (AGGREGATE_TYPE_P (t))
 211     {
 212       if ((TREE_CODE (t) == RECORD_TYPE) || (TREE_CODE (t) == UNION_TYPE))
 213         {
 214           tree fields;
 215           /* PODs are safe.  */
 216           if (! CLASSTYPE_NON_POD_P(t))
 217             return true;
 218           /* Classes with virtual baseclasses are not.  */
 219           if (TYPE_USES_VIRTUAL_BASECLASSES (t))
 220             return false;
 221           /* Recursively check the base classes.  */
 222           if (TYPE_BINFO (t) != NULL && TYPE_BINFO_BASETYPES (t) != NULL)
 223             {
 224               int i;
 225               for (i = 0; i < TREE_VEC_LENGTH (TYPE_BINFO_BASETYPES (t)); i++)
 226                 {
 227                   tree binfo = TREE_VEC_ELT (TYPE_BINFO_BASETYPES (t), i);
 228                   if (!ok_to_generate_alias_set_for_type (BINFO_TYPE (binfo)))
 229                     return false;
 230                 }
 231             }
 232           /* Check all the fields.  */
 233           for (fields = TYPE_FIELDS (t); fields; fields = TREE_CHAIN (fields))
 234             {
 235               if (TREE_CODE (fields) != FIELD_DECL)
 236                 continue;
 237               if (! ok_to_generate_alias_set_for_type (TREE_TYPE (fields)))
 238                 return false;
 239             }
 240           return true;
 241         }
 242       else if (TREE_CODE (t) == ARRAY_TYPE)
 243         return ok_to_generate_alias_set_for_type (TREE_TYPE (t));
 244       else
 245         /* This should never happen, we dealt with all the aggregate
 246            types that can appear in C++ above.  */
 247         abort ();
 248     }
 249   else
 250     return true;
 251 }
 252
 253 /* Special routine to get the alias set for C++.  */
 254
 255 static HOST_WIDE_INT
 256 cxx_get_alias_set (t)
 257      tree t;
 258 {
 259   /* It's not yet safe to use alias sets for classes in C++.  */
 260   if (!ok_to_generate_alias_set_for_type(t))
 261     return 0;
 262
 263   return c_common_get_alias_set (t);
 264 }
 265
 266 /* Called from check_global_declarations.  */
 267
 268 static bool
 269 cxx_warn_unused_global_decl (decl)
 270      tree decl;
 271 {
 272   if (TREE_CODE (decl) == FUNCTION_DECL && DECL_DECLARED_INLINE_P (decl))
 273     return false;
 274   if (DECL_IN_SYSTEM_HEADER (decl))
 275     return false;
 276
 277   /* Const variables take the place of #defines in C++.  */
 278   if (TREE_CODE (decl) == VAR_DECL && TREE_READONLY (decl))
 279     return false;
 280
 281   return true;
 282 }