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