gcc/config/sol2-c.c

   1 /* Solaris support needed only by C/C++ frontends.
   2    Copyright (C) 2004-2013 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
  28 #include "c-family/c-format.h"
  29 #include "intl.h"
  30
  31 #include "cpplib.h"
  32 #include "c-family/c-pragma.h"
  33 #include "c-family/c-common.h"
  34
  35 /* cmn_err only accepts "l" and "ll".  */
  36 static const format_length_info cmn_err_length_specs[] =
  37 {
  38   { "l", FMT_LEN_l, STD_C89, "ll", FMT_LEN_ll, STD_C89, 0 },
  39   { NULL, FMT_LEN_none, STD_C89, NULL, FMT_LEN_none, STD_C89, 0 }
  40 };
  41
  42 static const format_flag_spec cmn_err_flag_specs[] =
  43 {
  44   { 'w',  0, 0, N_("field width"),     N_("field width in printf format"),     STD_C89 },
  45   { 'L',  0, 0, N_("length modifier"), N_("length modifier in printf format"), STD_C89 },
  46   { 0, 0, 0, NULL, NULL, STD_C89 }
  47 };
  48
  49
  50 static const format_flag_pair cmn_err_flag_pairs[] =
  51 {
  52   { 0, 0, 0, 0 }
  53 };
  54
  55 static const format_char_info bitfield_string_type =
  56   { "b",   1, STD_C89, { T89_C,   BADLEN,  BADLEN,  BADLEN,  BADLEN,  BADLEN,  BADLEN,  BADLEN,  BADLEN  }, "",   "cR", NULL };
  57
  58 static const format_char_info cmn_err_char_table[] =
  59 {
  60   /* C89 conversion specifiers.  */
  61   { "dD",  0, STD_C89, { T89_I,   BADLEN,  BADLEN,  T89_L,   T9L_LL,  BADLEN,  BADLEN,  BADLEN,  BADLEN  }, "w",  "",   NULL },
  62   { "oOxX",0, STD_C89, { T89_UI,  BADLEN,  BADLEN,  T89_UL,  T9L_ULL, BADLEN,  BADLEN,  BADLEN,  BADLEN  }, "w",  "",   NULL },
  63   { "u",   0, STD_C89, { T89_UI,  BADLEN,  BADLEN,  T89_UL,  T9L_ULL, BADLEN,  BADLEN,  BADLEN,  BADLEN  }, "w",  "",   NULL },
  64   { "c",   0, STD_C89, { T89_C,   BADLEN,  BADLEN,  BADLEN,  BADLEN,  BADLEN,  BADLEN,  BADLEN,  BADLEN  }, "w",  "",   NULL },
  65   { "p",   1, STD_C89, { T89_V,   BADLEN,  BADLEN,  BADLEN,  BADLEN,  BADLEN,  BADLEN,  BADLEN,  BADLEN  }, "w", "c",  NULL },
  66   { "s",   1, STD_C89, { T89_C,   BADLEN,  BADLEN,  BADLEN,  BADLEN,  BADLEN,  BADLEN,  BADLEN,  BADLEN  }, "w",  "cR", NULL },
  67   { "b",   0, STD_C89, { T89_I,   BADLEN,  BADLEN,  BADLEN,  BADLEN,  BADLEN,  BADLEN,  BADLEN,  BADLEN  }, "w",   "",   &bitfield_string_type },
  68   { NULL,  0, STD_C89, NOLENGTHS, NULL, NULL, NULL }
  69 };
  70
  71 EXPORTED_CONST format_kind_info solaris_format_types[] = {
  72   { "cmn_err",  cmn_err_length_specs,  cmn_err_char_table, "", NULL,
  73     cmn_err_flag_specs, cmn_err_flag_pairs,
  74     FMT_FLAG_ARG_CONVERT|FMT_FLAG_EMPTY_PREC_OK,
  75     'w', 0, 0, 0, 'L', 0,
  76     &integer_type_node, &integer_type_node
  77   }
  78 };
  79
  80 /* Handle #pragma align ALIGNMENT (VAR [, VAR]...)  */
  81
  82 static void
  83 solaris_pragma_align (cpp_reader *pfile ATTRIBUTE_UNUSED)
  84 {
  85   tree t, x;
  86   enum cpp_ttype ttype;
  87   HOST_WIDE_INT low;
  88
  89   if (pragma_lex (&x) != CPP_NUMBER
  90       || pragma_lex (&t) != CPP_OPEN_PAREN)
  91     {
  92       warning (0, "malformed %<#pragma align%>, ignoring");
  93       return;
  94     }
  95
  96   low = TREE_INT_CST_LOW (x);
  97   if (TREE_INT_CST_HIGH (x) != 0
  98       || (low != 1 && low != 2 && low != 4 && low != 8 && low != 16
  99           && low != 32 && low != 64 && low != 128))
 100     {
 101       warning (0, "invalid alignment for %<#pragma align%>, ignoring");
 102       return;
 103     }
 104
 105   ttype = pragma_lex (&t);
 106   if (ttype != CPP_NAME)
 107     {
 108       warning (0, "malformed %<#pragma align%>, ignoring");
 109       return;
 110     }
 111
 112   while (1)
 113     {
 114       tree decl = identifier_global_value (t);
 115       if (decl && DECL_P (decl))
 116         warning (0, "%<#pragma align%> must appear before the declaration of "
 117                  "%D, ignoring", decl);
 118       else
 119         solaris_pending_aligns = tree_cons (t, build_tree_list (NULL, x),
 120                                             solaris_pending_aligns);
 121
 122       ttype = pragma_lex (&t);
 123       if (ttype == CPP_COMMA)
 124         {
 125           ttype = pragma_lex (&t);
 126           if (ttype != CPP_NAME)
 127             {
 128               warning (0, "malformed %<#pragma align%>");
 129               return;
 130             }
 131         }
 132       else if (ttype == CPP_CLOSE_PAREN)
 133         {
 134           if (pragma_lex (&t) != CPP_EOF)
 135             warning (0, "junk at end of %<#pragma align%>");
 136           return;
 137         }
 138       else
 139         {
 140           warning (0, "malformed %<#pragma align%>");
 141           return;
 142         }
 143     }
 144 }
 145
 146 /* Handle #pragma init (function [, function]...)  */
 147
 148 static void
 149 solaris_pragma_init (cpp_reader *pfile ATTRIBUTE_UNUSED)
 150 {
 151   tree t;
 152   enum cpp_ttype ttype;
 153
 154   if (pragma_lex (&t) != CPP_OPEN_PAREN)
 155     {
 156       warning (0, "malformed %<#pragma init%>, ignoring");
 157       return;
 158     }
 159
 160   ttype = pragma_lex (&t);
 161   if (ttype != CPP_NAME)
 162     {
 163       warning (0, "malformed %<#pragma init%>, ignoring");
 164       return;
 165     }
 166
 167   while (1)
 168     {
 169       tree decl = identifier_global_value (t);
 170       if (decl && DECL_P (decl))
 171         {
 172           tree attrs = build_tree_list (get_identifier ("init"),
 173                                         NULL);
 174           TREE_USED (decl) = 1;
 175           DECL_PRESERVE_P (decl) = 1;
 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 attrs = build_tree_list (get_identifier ("fini"),
 232                                         NULL);
 233           TREE_USED (decl) = 1;
 234           DECL_PRESERVE_P (decl) = 1;
 235           decl_attributes (&decl, attrs, 0);
 236         }
 237       else
 238         solaris_pending_finis = tree_cons (t, NULL, solaris_pending_finis);
 239
 240       ttype = pragma_lex (&t);
 241       if (ttype == CPP_COMMA)
 242         {
 243           ttype = pragma_lex (&t);
 244           if (ttype != CPP_NAME)
 245             {
 246               warning (0, "malformed %<#pragma fini%>");
 247               return;
 248             }
 249         }
 250       else if (ttype == CPP_CLOSE_PAREN)
 251         {
 252           if (pragma_lex (&t) != CPP_EOF)
 253             warning (0, "junk at end of %<#pragma fini%>");
 254           return;
 255         }
 256       else
 257         {
 258           warning (0, "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 }