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
  34 #undef LANG_HOOKS_NAME
  35 #define LANG_HOOKS_NAME "GNU C++"
  36 #undef LANG_HOOKS_INIT
  37 #define LANG_HOOKS_INIT cxx_init
  38 #undef LANG_HOOKS_FINISH
  39 #define LANG_HOOKS_FINISH cxx_finish
  40 #undef LANG_HOOKS_CLEAR_BINDING_STACK
  41 #define LANG_HOOKS_CLEAR_BINDING_STACK pop_everything
  42 #undef LANG_HOOKS_INIT_OPTIONS
  43 #define LANG_HOOKS_INIT_OPTIONS cxx_init_options
  44 #undef LANG_HOOKS_DECODE_OPTION
  45 #define LANG_HOOKS_DECODE_OPTION cxx_decode_option
  46 #undef LANG_HOOKS_POST_OPTIONS
  47 #define LANG_HOOKS_POST_OPTIONS cxx_post_options
  48 #undef LANG_HOOKS_GET_ALIAS_SET
  49 #define LANG_HOOKS_GET_ALIAS_SET cxx_get_alias_set
  50 #undef LANG_HOOKS_EXPAND_CONSTANT
  51 #define LANG_HOOKS_EXPAND_CONSTANT cplus_expand_constant
  52 #undef LANG_HOOKS_SAFE_FROM_P
  53 #define LANG_HOOKS_SAFE_FROM_P c_safe_from_p
  54 #undef LANG_HOOKS_PARSE_FILE
  55 #define LANG_HOOKS_PARSE_FILE c_common_parse_file
  56 #undef LANG_HOOKS_DUP_LANG_SPECIFIC_DECL
  57 #define LANG_HOOKS_DUP_LANG_SPECIFIC_DECL cxx_dup_lang_specific_decl
  58 #undef LANG_HOOKS_UNSAVE_EXPR_NOW
  59 #define LANG_HOOKS_UNSAVE_EXPR_NOW cxx_unsave_expr_now
  60 #undef LANG_HOOKS_PRINT_STATISTICS
  61 #define LANG_HOOKS_PRINT_STATISTICS cxx_print_statistics
  62 #undef LANG_HOOKS_PRINT_XNODE
  63 #define LANG_HOOKS_PRINT_XNODE cxx_print_xnode
  64 #undef LANG_HOOKS_PRINT_DECL
  65 #define LANG_HOOKS_PRINT_DECL cxx_print_decl
  66 #undef LANG_HOOKS_PRINT_TYPE
  67 #define LANG_HOOKS_PRINT_TYPE cxx_print_type
  68 #undef LANG_HOOKS_PRINT_IDENTIFIER
  69 #define LANG_HOOKS_PRINT_IDENTIFIER cxx_print_identifier
  70 #undef LANG_HOOKS_DECL_PRINTABLE_NAME
  71 #define LANG_HOOKS_DECL_PRINTABLE_NAME  cxx_printable_name
  72 #undef LANG_HOOKS_SET_YYDEBUG
  73 #define LANG_HOOKS_SET_YYDEBUG cxx_set_yydebug
  74
  75 #undef LANG_HOOKS_TREE_INLINING_WALK_SUBTREES
  76 #define LANG_HOOKS_TREE_INLINING_WALK_SUBTREES \
  77   cp_walk_subtrees
  78 #undef LANG_HOOKS_TREE_INLINING_CANNOT_INLINE_TREE_FN
  79 #define LANG_HOOKS_TREE_INLINING_CANNOT_INLINE_TREE_FN \
  80   cp_cannot_inline_tree_fn
  81 #undef LANG_HOOKS_TREE_INLINING_ADD_PENDING_FN_DECLS
  82 #define LANG_HOOKS_TREE_INLINING_ADD_PENDING_FN_DECLS \
  83   cp_add_pending_fn_decls
  84 #undef LANG_HOOKS_TREE_INLINING_TREE_CHAIN_MATTERS_P
  85 #define LANG_HOOKS_TREE_INLINING_TREE_CHAIN_MATTERS_P \
  86   cp_is_overload_p
  87 #undef LANG_HOOKS_TREE_INLINING_AUTO_VAR_IN_FN_P
  88 #define LANG_HOOKS_TREE_INLINING_AUTO_VAR_IN_FN_P \
  89   cp_auto_var_in_fn_p
  90 #undef LANG_HOOKS_TREE_INLINING_COPY_RES_DECL_FOR_INLINING
  91 #define LANG_HOOKS_TREE_INLINING_COPY_RES_DECL_FOR_INLINING \
  92   cp_copy_res_decl_for_inlining
  93 #undef LANG_HOOKS_TREE_INLINING_ANON_AGGR_TYPE_P
  94 #define LANG_HOOKS_TREE_INLINING_ANON_AGGR_TYPE_P anon_aggr_type_p
  95 #undef LANG_HOOKS_TREE_INLINING_START_INLINING
  96 #define LANG_HOOKS_TREE_INLINING_START_INLINING cp_start_inlining
  97 #undef LANG_HOOKS_TREE_INLINING_END_INLINING
  98 #define LANG_HOOKS_TREE_INLINING_END_INLINING cp_end_inlining
  99 #undef LANG_HOOKS_TREE_DUMP_DUMP_TREE_FN
 100 #define LANG_HOOKS_TREE_DUMP_DUMP_TREE_FN cp_dump_tree
 101 #undef LANG_HOOKS_TREE_DUMP_TYPE_QUALS_FN
 102 #define LANG_HOOKS_TREE_DUMP_TYPE_QUALS_FN cp_type_quals
 103
 104 /* Each front end provides its own hooks, for toplev.c.  */
 105 const struct lang_hooks lang_hooks = LANG_HOOKS_INITIALIZER;
 106
 107 /* Check if a C++ type is safe for aliasing.
 108    Return TRUE if T safe for aliasing FALSE otherwise.  */
 109
 110 static bool
 111 ok_to_generate_alias_set_for_type (t)
 112      tree t;
 113 {
 114   if (TYPE_PTRMEMFUNC_P (t))
 115     return true;
 116   if (AGGREGATE_TYPE_P (t))
 117     {
 118       if ((TREE_CODE (t) == RECORD_TYPE) || (TREE_CODE (t) == UNION_TYPE))
 119         {
 120           tree fields;
 121           /* PODs are safe.  */
 122           if (! CLASSTYPE_NON_POD_P(t))
 123             return true;
 124           /* Classes with virtual baseclasses are not.  */
 125           if (TYPE_USES_VIRTUAL_BASECLASSES (t))
 126             return false;
 127           /* Recursively check the base classes.  */
 128           if (TYPE_BINFO (t) != NULL && TYPE_BINFO_BASETYPES (t) != NULL)
 129             {
 130               int i;
 131               for (i = 0; i < TREE_VEC_LENGTH (TYPE_BINFO_BASETYPES (t)); i++)
 132                 {
 133                   tree binfo = TREE_VEC_ELT (TYPE_BINFO_BASETYPES (t), i);
 134                   if (!ok_to_generate_alias_set_for_type (BINFO_TYPE (binfo)))
 135                     return false;
 136                 }
 137             }
 138           /* Check all the fields.  */
 139           for (fields = TYPE_FIELDS (t); fields; fields = TREE_CHAIN (fields))
 140             {
 141               if (TREE_CODE (fields) != FIELD_DECL)
 142                 continue;
 143               if (! ok_to_generate_alias_set_for_type (TREE_TYPE (fields)))
 144                 return false;
 145             }
 146           return true;
 147         }
 148       else if (TREE_CODE (t) == ARRAY_TYPE)
 149         return ok_to_generate_alias_set_for_type (TREE_TYPE (t));
 150       else
 151         /* This should never happen, we dealt with all the aggregate
 152            types that can appear in C++ above.  */
 153         abort ();
 154     }
 155   else
 156     return true;
 157 }
 158
 159 /* Tree code classes. */
 160
 161 #define DEFTREECODE(SYM, NAME, TYPE, LENGTH) TYPE,
 162
 163 const char tree_code_type[] = {
 164 #include "tree.def"
 165   'x',
 166 #include "c-common.def"
 167   'x',
 168 #include "cp-tree.def"
 169 };
 170 #undef DEFTREECODE
 171
 172 /* Table indexed by tree code giving number of expression
 173    operands beyond the fixed part of the node structure.
 174    Not used for types or decls.  */
 175
 176 #define DEFTREECODE(SYM, NAME, TYPE, LENGTH) LENGTH,
 177
 178 const unsigned char tree_code_length[] = {
 179 #include "tree.def"
 180   0,
 181 #include "c-common.def"
 182   0,
 183 #include "cp-tree.def"
 184 };
 185 #undef DEFTREECODE
 186
 187 /* Names of tree components.
 188    Used for printing out the tree and error messages.  */
 189 #define DEFTREECODE(SYM, NAME, TYPE, LEN) NAME,
 190
 191 const char *const tree_code_name[] = {
 192 #include "tree.def"
 193   "@@dummy",
 194 #include "c-common.def"
 195   "@@dummy",
 196 #include "cp-tree.def"
 197 };
 198 #undef DEFTREECODE
 199
 200 /* Special routine to get the alias set for C++.  */
 201
 202 static HOST_WIDE_INT
 203 cxx_get_alias_set (t)
 204      tree t;
 205 {
 206   /* It's not yet safe to use alias sets for classes in C++.  */
 207   if (!ok_to_generate_alias_set_for_type(t))
 208     return 0;
 209
 210   return c_common_get_alias_set (t);
 211 }