Mercurial > hg > CbC > CbC_gcc

comparison gcc/config/sol2-c.c @ 0:a06113de4d67

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
first commit
author kent <kent@cr.ie.u-ryukyu.ac.jp>
date Fri, 17 Jul 2009 14:47:48 +0900
parents
children 77e2b8dfacca
comparison
equal deleted inserted replaced
-1:000000000000 0:a06113de4d67
1 /* Solaris support needed only by C/C++ frontends.
2 Copyright (C) 2004, 2005, 2007 Free Software Foundation, Inc.
3 Contributed by CodeSourcery, LLC.
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 3, 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 COPYING3. If not see
19 <http://www.gnu.org/licenses/>. */
20
21 #include "config.h"
22 #include "system.h"
23 #include "coretypes.h"
24 #include "tree.h"
25 #include "tm.h"
26 #include "tm_p.h"
27 #include "toplev.h"
28
29 #include "c-format.h"
30 #include "intl.h"
31
32 #include "cpplib.h"
33 #include "c-pragma.h"
34 #include "c-common.h"
35
36 /* cmn_err only accepts "l" and "ll". */
37 static const format_length_info cmn_err_length_specs[] =
38 {
39 { "l", FMT_LEN_l, STD_C89, "ll", FMT_LEN_ll, STD_C89 },
40 { NULL, 0, 0, NULL, 0, 0 }
41 };
42
43 static const format_flag_spec cmn_err_flag_specs[] =
44 {
45 { 'w', 0, 0, N_("field width"), N_("field width in printf format"), STD_C89 },
46 { 'L', 0, 0, N_("length modifier"), N_("length modifier in printf format"), STD_C89 },
47 { 0, 0, 0, NULL, NULL, 0 }
48 };
49
50
51 static const format_flag_pair cmn_err_flag_pairs[] =
52 {
53 { 0, 0, 0, 0 }
54 };
55
56 static const format_char_info bitfield_string_type =
57 { "b", 1, STD_C89, { T89_C, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN }, "", "cR", NULL };
58
59 static const format_char_info cmn_err_char_table[] =
60 {
61 /* C89 conversion specifiers. */
62 { "dD", 0, STD_C89, { T89_I, BADLEN, BADLEN, T89_L, T9L_LL, BADLEN, BADLEN, BADLEN, BADLEN }, "w", "", NULL },
63 { "oOxX",0, STD_C89, { T89_UI, BADLEN, BADLEN, T89_UL, T9L_ULL, BADLEN, BADLEN, BADLEN, BADLEN }, "w", "", NULL },
64 { "u", 0, STD_C89, { T89_UI, BADLEN, BADLEN, T89_UL, T9L_ULL, BADLEN, BADLEN, BADLEN, BADLEN }, "w", "", NULL },
65 { "c", 0, STD_C89, { T89_C, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN }, "w", "", NULL },
66 { "p", 1, STD_C89, { T89_V, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN }, "w", "c", NULL },
67 { "s", 1, STD_C89, { T89_C, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN }, "w", "cR", NULL },
68 { "b", 0, STD_C89, { T89_I, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN }, "w", "", &bitfield_string_type },
69 { NULL, 0, 0, NOLENGTHS, NULL, NULL, NULL }
70 };
71
72 const format_kind_info solaris_format_types[] = {
73 { "cmn_err", cmn_err_length_specs, cmn_err_char_table, "", NULL,
74 cmn_err_flag_specs, cmn_err_flag_pairs,
75 FMT_FLAG_ARG_CONVERT|FMT_FLAG_EMPTY_PREC_OK,
76 'w', 0, 0, 0, 'L', 0,
77 &integer_type_node, &integer_type_node
78 }
79 };
80
81 /* Handle #pragma align ALIGNMENT (VAR [, VAR]...) */
82
83 static void
84 solaris_pragma_align (cpp_reader *pfile ATTRIBUTE_UNUSED)
85 {
86 tree t, x;
87 enum cpp_ttype ttype;
88 HOST_WIDE_INT low;
89
90 if (pragma_lex (&x) != CPP_NUMBER
91 || pragma_lex (&t) != CPP_OPEN_PAREN)
92 {
93 warning (0, "malformed %<#pragma align%>, ignoring");
94 return;
95 }
96
97 low = TREE_INT_CST_LOW (x);
98 if (TREE_INT_CST_HIGH (x) != 0
99 || (low != 1 && low != 2 && low != 4 && low != 8 && low != 16
100 && low != 32 && low != 64 && low != 128))
101 {
102 warning (0, "invalid alignment for %<#pragma align%>, ignoring");
103 return;
104 }
105
106 ttype = pragma_lex (&t);
107 if (ttype != CPP_NAME)
108 {
109 warning (0, "malformed %<#pragma align%>, ignoring");
110 return;
111 }
112
113 while (1)
114 {
115 tree decl = identifier_global_value (t);
116 if (decl && DECL_P (decl))
117 warning (0, "%<#pragma align%> must appear before the declaration of "
118 "%D, ignoring", decl);
119 else
120 solaris_pending_aligns = tree_cons (t, build_tree_list (NULL, x),
121 solaris_pending_aligns);
122
123 ttype = pragma_lex (&t);
124 if (ttype == CPP_COMMA)
125 {
126 ttype = pragma_lex (&t);
127 if (ttype != CPP_NAME)
128 {
129 warning (0, "malformed %<#pragma align%>");
130 return;
131 }
132 }
133 else if (ttype == CPP_CLOSE_PAREN)
134 {
135 if (pragma_lex (&t) != CPP_EOF)
136 warning (0, "junk at end of %<#pragma align%>");
137 return;
138 }
139 else
140 {
141 warning (0, "malformed %<#pragma align%>");
142 return;
143 }
144 }
145 }
146
147 /* Handle #pragma init (function [, function]...) */
148
149 static void
150 solaris_pragma_init (cpp_reader *pfile ATTRIBUTE_UNUSED)
151 {
152 tree t;
153 enum cpp_ttype ttype;
154
155 if (pragma_lex (&t) != CPP_OPEN_PAREN)
156 {
157 warning (0, "malformed %<#pragma init%>, ignoring");
158 return;
159 }
160
161 ttype = pragma_lex (&t);
162 if (ttype != CPP_NAME)
163 {
164 warning (0, "malformed %<#pragma init%>, ignoring");
165 return;
166 }
167
168 while (1)
169 {
170 tree decl = identifier_global_value (t);
171 if (decl && DECL_P (decl))
172 {
173 tree init_list = build_tree_list (get_identifier ("init"),
174 NULL);
175 tree attrs = tree_cons (get_identifier ("used"), NULL, init_list);
176 decl_attributes (&decl, attrs, 0);
177 }
178 else
179 solaris_pending_inits = tree_cons (t, NULL, solaris_pending_inits);
180
181 ttype = pragma_lex (&t);
182 if (ttype == CPP_COMMA)
183 {
184 ttype = pragma_lex (&t);
185 if (ttype != CPP_NAME)
186 {
187 warning (0, "malformed %<#pragma init%>");
188 return;
189 }
190 }
191 else if (ttype == CPP_CLOSE_PAREN)
192 {
193 if (pragma_lex (&t) != CPP_EOF)
194 warning (0, "junk at end of %<#pragma init%>");
195 return;
196 }
197 else
198 {
199 warning (0, "malformed %<#pragma init%>");
200 return;
201 }
202 }
203 }
204
205 /* Handle #pragma fini (function [, function]...) */
206
207 static void
208 solaris_pragma_fini (cpp_reader *pfile ATTRIBUTE_UNUSED)
209 {
210 tree t;
211 enum cpp_ttype ttype;
212
213 if (pragma_lex (&t) != CPP_OPEN_PAREN)
214 {
215 warning (0, "malformed %<#pragma fini%>, ignoring");
216 return;
217 }
218
219 ttype = pragma_lex (&t);
220 if (ttype != CPP_NAME)
221 {
222 warning (0, "malformed %<#pragma fini%>, ignoring");
223 return;
224 }
225
226 while (1)
227 {
228 tree decl = identifier_global_value (t);
229 if (decl && DECL_P (decl))
230 {
231 tree fini_list = build_tree_list (get_identifier ("fini"),
232 NULL);
233 tree attrs = tree_cons (get_identifier ("used"), NULL, fini_list);
234 decl_attributes (&decl, attrs, 0);
235 }
236 else
237 solaris_pending_finis = tree_cons (t, NULL, solaris_pending_finis);
238
239 ttype = pragma_lex (&t);
240 if (ttype == CPP_COMMA)
241 {
242 ttype = pragma_lex (&t);
243 if (ttype != CPP_NAME)
244 {
245 warning (0, "malformed %<#pragma fini%>");
246 return;
247 }
248 }
249 else if (ttype == CPP_CLOSE_PAREN)
250 {
251 if (pragma_lex (&t) != CPP_EOF)
252 warning (0, "junk at end of %<#pragma fini%>");
253 return;
254 }
255 else
256 {
257 warning (0, "malformed %<#pragma fini%>");
258 return;
259 }
260 }
261 }
262
263 /* Register Solaris-specific #pragma directives. */
264
265 void
266 solaris_register_pragmas (void)
267 {
268 c_register_pragma_with_expansion (0, "align", solaris_pragma_align);
269 c_register_pragma (0, "init", solaris_pragma_init);
270 c_register_pragma (0, "fini", solaris_pragma_fini);
271 }