Merge branch 'master' of ssh://crater.dragonflybsd.org/repository/git/dragonfly
[dragonfly.git] / contrib / gcc-3.4 / 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 #undef LANG_HOOKS_RTL_EXPAND_STMT
94 #define LANG_HOOKS_RTL_EXPAND_STMT expand_stmt
95
96 /* Attribute hooks.  */
97 #undef LANG_HOOKS_COMMON_ATTRIBUTE_TABLE
98 #define LANG_HOOKS_COMMON_ATTRIBUTE_TABLE c_common_attribute_table
99 #undef LANG_HOOKS_FORMAT_ATTRIBUTE_TABLE
100 #define LANG_HOOKS_FORMAT_ATTRIBUTE_TABLE c_common_format_attribute_table
101
102 #undef LANG_HOOKS_TREE_INLINING_CANNOT_INLINE_TREE_FN
103 #define LANG_HOOKS_TREE_INLINING_CANNOT_INLINE_TREE_FN \
104   c_cannot_inline_tree_fn
105 #undef LANG_HOOKS_TREE_INLINING_DISREGARD_INLINE_LIMITS
106 #define LANG_HOOKS_TREE_INLINING_DISREGARD_INLINE_LIMITS \
107   c_disregard_inline_limits
108 #undef LANG_HOOKS_TREE_INLINING_ANON_AGGR_TYPE_P
109 #define LANG_HOOKS_TREE_INLINING_ANON_AGGR_TYPE_P \
110   anon_aggr_type_p
111 #undef LANG_HOOKS_TREE_INLINING_CONVERT_PARM_FOR_INLINING
112 #define LANG_HOOKS_TREE_INLINING_CONVERT_PARM_FOR_INLINING \
113   c_convert_parm_for_inlining
114 #undef LANG_HOOKS_TREE_INLINING_ESTIMATE_NUM_INSNS
115 #define LANG_HOOKS_TREE_INLINING_ESTIMATE_NUM_INSNS c_estimate_num_insns
116 #undef LANG_HOOKS_TREE_DUMP_DUMP_TREE_FN
117 #define LANG_HOOKS_TREE_DUMP_DUMP_TREE_FN c_dump_tree
118
119 #undef LANG_HOOKS_CALLGRAPH_EXPAND_FUNCTION
120 #define LANG_HOOKS_CALLGRAPH_EXPAND_FUNCTION c_expand_body
121
122 #undef LANG_HOOKS_TYPE_FOR_MODE
123 #define LANG_HOOKS_TYPE_FOR_MODE c_common_type_for_mode
124 #undef LANG_HOOKS_TYPE_FOR_SIZE
125 #define LANG_HOOKS_TYPE_FOR_SIZE c_common_type_for_size
126 #undef LANG_HOOKS_SIGNED_TYPE
127 #define LANG_HOOKS_SIGNED_TYPE c_common_signed_type
128 #undef LANG_HOOKS_UNSIGNED_TYPE
129 #define LANG_HOOKS_UNSIGNED_TYPE c_common_unsigned_type
130 #undef LANG_HOOKS_SIGNED_OR_UNSIGNED_TYPE
131 #define LANG_HOOKS_SIGNED_OR_UNSIGNED_TYPE c_common_signed_or_unsigned_type
132 #undef LANG_HOOKS_INCOMPLETE_TYPE_ERROR
133 #define LANG_HOOKS_INCOMPLETE_TYPE_ERROR c_incomplete_type_error
134 #undef LANG_HOOKS_TYPE_PROMOTES_TO
135 #define LANG_HOOKS_TYPE_PROMOTES_TO c_type_promotes_to
136 #undef LANG_HOOKS_REGISTER_BUILTIN_TYPE
137 #define LANG_HOOKS_REGISTER_BUILTIN_TYPE c_register_builtin_type
138
139 #undef LANG_HOOKS_WRITE_GLOBALS
140 #define LANG_HOOKS_WRITE_GLOBALS c_write_global_declarations
141
142 /* ### When changing hooks, consider if ObjC needs changing too!! ### */
143
144 /* Each front end provides its own.  */
145 const struct lang_hooks lang_hooks = LANG_HOOKS_INITIALIZER;
146
147 /* Tree code classes.  */
148
149 #define DEFTREECODE(SYM, NAME, TYPE, LENGTH) TYPE,
150
151 const char tree_code_type[] = {
152 #include "tree.def"
153   'x',
154 #include "c-common.def"
155 };
156 #undef DEFTREECODE
157
158 /* Table indexed by tree code giving number of expression
159    operands beyond the fixed part of the node structure.
160    Not used for types or decls.  */
161
162 #define DEFTREECODE(SYM, NAME, TYPE, LENGTH) LENGTH,
163
164 const unsigned char tree_code_length[] = {
165 #include "tree.def"
166   0,
167 #include "c-common.def"
168 };
169 #undef DEFTREECODE
170
171 /* Names of tree components.
172    Used for printing out the tree and error messages.  */
173 #define DEFTREECODE(SYM, NAME, TYPE, LEN) NAME,
174
175 const char *const tree_code_name[] = {
176 #include "tree.def"
177   "@@dummy",
178 #include "c-common.def"
179 };
180 #undef DEFTREECODE
181
182 void
183 finish_file (void)
184 {
185   c_objc_common_finish_file ();
186 }
187
188 static void
189 c_initialize_diagnostics (diagnostic_context *context)
190 {
191   pretty_printer *base = context->printer;
192   c_pretty_printer *pp = xmalloc (sizeof (c_pretty_printer));
193   memcpy (pp_base (pp), base, sizeof (pretty_printer));
194   pp_c_pretty_printer_init (pp);
195   context->printer = (pretty_printer *) pp;
196
197   /* It is safe to free this object because it was previously malloc()'d.  */
198   free (base);
199 }
200
201 #include "gtype-c.h"