gcc/c-lang.c

   1 /* Language-specific hook definitions for C front end.
   2    Copyright (C) 1991, 1995, 1997, 1998,
   3    1999, 2000, 2001, 2003 Free Software Foundation, Inc.
   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 2, 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 COPYING.  If not, write to the Free
  19 Software Foundation, 59 Temple Place - Suite 330, Boston, MA
  20 02111-1307, USA.  */
  21
  22
  23 #include "config.h"
  24 #include "system.h"
  25 #include "coretypes.h"
  26 #include "tm.h"
  27 #include "tree.h"
  28 #include "c-tree.h"
  29 #include "c-common.h"
  30 #include "ggc.h"
  31 #include "langhooks.h"
  32 #include "langhooks-def.h"
  33 #include "diagnostic.h"
  34 #include "c-pretty-print.h"
  35
  36 static void c_initialize_diagnostics (diagnostic_context *);
  37
  38 enum c_language_kind c_language = clk_c;
  39
  40 /* ### When changing hooks, consider if ObjC needs changing too!! ### */
  41
  42 #undef LANG_HOOKS_NAME
  43 #define LANG_HOOKS_NAME "GNU C"
  44 #undef LANG_HOOKS_INIT
  45 #define LANG_HOOKS_INIT c_objc_common_init
  46 #undef LANG_HOOKS_FINISH
  47 #define LANG_HOOKS_FINISH c_common_finish
  48 #undef LANG_HOOKS_INIT_OPTIONS
  49 #define LANG_HOOKS_INIT_OPTIONS c_common_init_options
  50 #undef LANG_HOOKS_INITIALIZE_DIAGNOSTICS
  51 #define LANG_HOOKS_INITIALIZE_DIAGNOSTICS c_initialize_diagnostics
  52 #undef LANG_HOOKS_HANDLE_OPTION
  53 #define LANG_HOOKS_HANDLE_OPTION c_common_handle_option
  54 #undef LANG_HOOKS_MISSING_ARGUMENT
  55 #define LANG_HOOKS_MISSING_ARGUMENT c_common_missing_argument
  56 #undef LANG_HOOKS_POST_OPTIONS
  57 #define LANG_HOOKS_POST_OPTIONS c_common_post_options
  58 #undef LANG_HOOKS_GET_ALIAS_SET
  59 #define LANG_HOOKS_GET_ALIAS_SET c_common_get_alias_set
  60 #undef LANG_HOOKS_SAFE_FROM_P
  61 #define LANG_HOOKS_SAFE_FROM_P c_safe_from_p
  62 #undef LANG_HOOKS_EXPAND_EXPR
  63 #define LANG_HOOKS_EXPAND_EXPR c_expand_expr
  64 #undef LANG_HOOKS_MARK_ADDRESSABLE
  65 #define LANG_HOOKS_MARK_ADDRESSABLE c_mark_addressable
  66 #undef LANG_HOOKS_PARSE_FILE
  67 #define LANG_HOOKS_PARSE_FILE c_common_parse_file
  68 #undef LANG_HOOKS_TRUTHVALUE_CONVERSION
  69 #define LANG_HOOKS_TRUTHVALUE_CONVERSION c_common_truthvalue_conversion
  70 #undef LANG_HOOKS_FINISH_INCOMPLETE_DECL
  71 #define LANG_HOOKS_FINISH_INCOMPLETE_DECL c_finish_incomplete_decl
  72 #undef LANG_HOOKS_UNSAFE_FOR_REEVAL
  73 #define LANG_HOOKS_UNSAFE_FOR_REEVAL c_common_unsafe_for_reeval
  74 #undef LANG_HOOKS_STATICP
  75 #define LANG_HOOKS_STATICP c_staticp
  76 #undef LANG_HOOKS_SET_DECL_ASSEMBLER_NAME
  77 #define LANG_HOOKS_SET_DECL_ASSEMBLER_NAME c_static_assembler_name
  78 #undef LANG_HOOKS_NO_BODY_BLOCKS
  79 #define LANG_HOOKS_NO_BODY_BLOCKS true
  80 #undef LANG_HOOKS_WARN_UNUSED_GLOBAL_DECL
  81 #define LANG_HOOKS_WARN_UNUSED_GLOBAL_DECL c_warn_unused_global_decl
  82 #undef LANG_HOOKS_PRINT_IDENTIFIER
  83 #define LANG_HOOKS_PRINT_IDENTIFIER c_print_identifier
  84 #undef LANG_HOOKS_FUNCTION_ENTER_NESTED
  85 #define LANG_HOOKS_FUNCTION_ENTER_NESTED c_push_function_context
  86 #undef LANG_HOOKS_FUNCTION_LEAVE_NESTED
  87 #define LANG_HOOKS_FUNCTION_LEAVE_NESTED c_pop_function_context
  88 #undef LANG_HOOKS_DUP_LANG_SPECIFIC_DECL
  89 #define LANG_HOOKS_DUP_LANG_SPECIFIC_DECL c_dup_lang_specific_decl
  90 #undef LANG_HOOKS_DECL_UNINIT
  91 #define LANG_HOOKS_DECL_UNINIT c_decl_uninit
  92
  93 /* Attribute hooks.  */
  94 #undef LANG_HOOKS_COMMON_ATTRIBUTE_TABLE
  95 #define LANG_HOOKS_COMMON_ATTRIBUTE_TABLE c_common_attribute_table
  96 #undef LANG_HOOKS_FORMAT_ATTRIBUTE_TABLE
  97 #define LANG_HOOKS_FORMAT_ATTRIBUTE_TABLE c_common_format_attribute_table
  98
  99 #undef LANG_HOOKS_TREE_INLINING_CANNOT_INLINE_TREE_FN
 100 #define LANG_HOOKS_TREE_INLINING_CANNOT_INLINE_TREE_FN \
 101   c_cannot_inline_tree_fn
 102 #undef LANG_HOOKS_TREE_INLINING_DISREGARD_INLINE_LIMITS
 103 #define LANG_HOOKS_TREE_INLINING_DISREGARD_INLINE_LIMITS \
 104   c_disregard_inline_limits
 105 #undef LANG_HOOKS_TREE_INLINING_ANON_AGGR_TYPE_P
 106 #define LANG_HOOKS_TREE_INLINING_ANON_AGGR_TYPE_P \
 107   anon_aggr_type_p
 108 #undef LANG_HOOKS_TREE_INLINING_CONVERT_PARM_FOR_INLINING
 109 #define LANG_HOOKS_TREE_INLINING_CONVERT_PARM_FOR_INLINING \
 110   c_convert_parm_for_inlining
 111 #undef LANG_HOOKS_TREE_INLINING_ESTIMATE_NUM_INSNS
 112 #define LANG_HOOKS_TREE_INLINING_ESTIMATE_NUM_INSNS c_estimate_num_insns
 113 #undef LANG_HOOKS_TREE_DUMP_DUMP_TREE_FN
 114 #define LANG_HOOKS_TREE_DUMP_DUMP_TREE_FN c_dump_tree
 115
 116 #undef LANG_HOOKS_CALLGRAPH_EXPAND_FUNCTION
 117 #define LANG_HOOKS_CALLGRAPH_EXPAND_FUNCTION c_expand_body
 118
 119 #undef LANG_HOOKS_TYPE_FOR_MODE
 120 #define LANG_HOOKS_TYPE_FOR_MODE c_common_type_for_mode
 121 #undef LANG_HOOKS_TYPE_FOR_SIZE
 122 #define LANG_HOOKS_TYPE_FOR_SIZE c_common_type_for_size
 123 #undef LANG_HOOKS_SIGNED_TYPE
 124 #define LANG_HOOKS_SIGNED_TYPE c_common_signed_type
 125 #undef LANG_HOOKS_UNSIGNED_TYPE
 126 #define LANG_HOOKS_UNSIGNED_TYPE c_common_unsigned_type
 127 #undef LANG_HOOKS_SIGNED_OR_UNSIGNED_TYPE
 128 #define LANG_HOOKS_SIGNED_OR_UNSIGNED_TYPE c_common_signed_or_unsigned_type
 129 #undef LANG_HOOKS_INCOMPLETE_TYPE_ERROR
 130 #define LANG_HOOKS_INCOMPLETE_TYPE_ERROR c_incomplete_type_error
 131 #undef LANG_HOOKS_TYPE_PROMOTES_TO
 132 #define LANG_HOOKS_TYPE_PROMOTES_TO c_type_promotes_to
 133
 134 #undef LANG_HOOKS_WRITE_GLOBALS
 135 #define LANG_HOOKS_WRITE_GLOBALS c_write_global_declarations
 136
 137 /* ### When changing hooks, consider if ObjC needs changing too!! ### */
 138
 139 /* Each front end provides its own.  */
 140 const struct lang_hooks lang_hooks = LANG_HOOKS_INITIALIZER;
 141
 142 /* Tree code classes.  */
 143
 144 #define DEFTREECODE(SYM, NAME, TYPE, LENGTH) TYPE,
 145
 146 const char tree_code_type[] = {
 147 #include "tree.def"
 148   'x',
 149 #include "c-common.def"
 150 };
 151 #undef DEFTREECODE
 152
 153 /* Table indexed by tree code giving number of expression
 154    operands beyond the fixed part of the node structure.
 155    Not used for types or decls.  */
 156
 157 #define DEFTREECODE(SYM, NAME, TYPE, LENGTH) LENGTH,
 158
 159 const unsigned char tree_code_length[] = {
 160 #include "tree.def"
 161   0,
 162 #include "c-common.def"
 163 };
 164 #undef DEFTREECODE
 165
 166 /* Names of tree components.
 167    Used for printing out the tree and error messages.  */
 168 #define DEFTREECODE(SYM, NAME, TYPE, LEN) NAME,
 169
 170 const char *const tree_code_name[] = {
 171 #include "tree.def"
 172   "@@dummy",
 173 #include "c-common.def"
 174 };
 175 #undef DEFTREECODE
 176
 177 /* Used by c-lex.c, but only for objc.  */
 178
 179 tree
 180 lookup_interface (tree arg ATTRIBUTE_UNUSED)
 181 {
 182   return 0;
 183 }
 184
 185 tree
 186 is_class_name (tree arg ATTRIBUTE_UNUSED)
 187 {
 188   return 0;
 189 }
 190
 191 tree
 192 objc_is_id (tree arg ATTRIBUTE_UNUSED)
 193 {
 194   return 0;
 195 }
 196
 197 void
 198 objc_check_decl (tree decl ATTRIBUTE_UNUSED)
 199 {
 200 }
 201
 202 int
 203 objc_comptypes (tree lhs ATTRIBUTE_UNUSED, tree rhs ATTRIBUTE_UNUSED,
 204                 int reflexive ATTRIBUTE_UNUSED)
 205 {
 206   return -1;
 207 }
 208
 209 tree
 210 objc_message_selector (void)
 211 {
 212   return 0;
 213 }
 214
 215 /* Used by c-typeck.c (build_external_ref), but only for objc.  */
 216
 217 tree
 218 lookup_objc_ivar (tree id ATTRIBUTE_UNUSED)
 219 {
 220   return 0;
 221 }
 222
 223 void
 224 finish_file (void)
 225 {
 226   c_objc_common_finish_file ();
 227 }
 228
 229 static void
 230 c_initialize_diagnostics (diagnostic_context *context)
 231 {
 232   pretty_printer *base = context->printer;
 233   c_pretty_printer pp = xmalloc (sizeof *pp);
 234   memcpy (pp_base (pp), base, sizeof (pretty_printer));
 235   pp_c_pretty_printer_init (pp);
 236   context->printer = (pretty_printer *) pp;
 237
 238   /* It is safe to free this object because it was previously malloc()'d.  */
 239   free (base);
 240 }
 241
 242
 243 #include "gtype-c.h"