OSDN Git Service

da00377a4321beb4f36503a9b23ab09814165585
[pf3gnuchains/gcc-fork.git] / gcc / config / sol2-c.c
1 /* Solaris support needed only by C/C++ frontends.
2    Copyright (C) 2004, 2005, 2007, 2009 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, 0 },
40   { NULL, FMT_LEN_none, STD_C89, NULL, FMT_LEN_none, STD_C89, 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, STD_C89 }
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, STD_C89, 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 }