/* Solaris support needed only by C/C++ frontends.
|
/* Solaris support needed only by C/C++ frontends.
|
Copyright (C) 2004, 2005, 2007, 2009, 2010, 2011
|
Copyright (C) 2004, 2005, 2007, 2009, 2010, 2011
|
Free Software Foundation, Inc.
|
Free Software Foundation, Inc.
|
Contributed by CodeSourcery, LLC.
|
Contributed by CodeSourcery, LLC.
|
|
|
This file is part of GCC.
|
This file is part of GCC.
|
|
|
GCC is free software; you can redistribute it and/or modify
|
GCC is free software; you can redistribute it and/or modify
|
it under the terms of the GNU General Public License as published by
|
it under the terms of the GNU General Public License as published by
|
the Free Software Foundation; either version 3, or (at your option)
|
the Free Software Foundation; either version 3, or (at your option)
|
any later version.
|
any later version.
|
|
|
GCC is distributed in the hope that it will be useful,
|
GCC is distributed in the hope that it will be useful,
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
GNU General Public License for more details.
|
GNU General Public License for more details.
|
|
|
You should have received a copy of the GNU General Public License
|
You should have received a copy of the GNU General Public License
|
along with GCC; see the file COPYING3. If not see
|
along with GCC; see the file COPYING3. If not see
|
<http://www.gnu.org/licenses/>. */
|
<http://www.gnu.org/licenses/>. */
|
|
|
#include "config.h"
|
#include "config.h"
|
#include "system.h"
|
#include "system.h"
|
#include "coretypes.h"
|
#include "coretypes.h"
|
#include "tree.h"
|
#include "tree.h"
|
#include "tm.h"
|
#include "tm.h"
|
#include "tm_p.h"
|
#include "tm_p.h"
|
|
|
#include "c-family/c-format.h"
|
#include "c-family/c-format.h"
|
#include "intl.h"
|
#include "intl.h"
|
|
|
#include "cpplib.h"
|
#include "cpplib.h"
|
#include "c-family/c-pragma.h"
|
#include "c-family/c-pragma.h"
|
#include "c-family/c-common.h"
|
#include "c-family/c-common.h"
|
|
|
/* cmn_err only accepts "l" and "ll". */
|
/* cmn_err only accepts "l" and "ll". */
|
static const format_length_info cmn_err_length_specs[] =
|
static const format_length_info cmn_err_length_specs[] =
|
{
|
{
|
{ "l", FMT_LEN_l, STD_C89, "ll", FMT_LEN_ll, STD_C89, 0 },
|
{ "l", FMT_LEN_l, STD_C89, "ll", FMT_LEN_ll, STD_C89, 0 },
|
{ NULL, FMT_LEN_none, STD_C89, NULL, FMT_LEN_none, STD_C89, 0 }
|
{ NULL, FMT_LEN_none, STD_C89, NULL, FMT_LEN_none, STD_C89, 0 }
|
};
|
};
|
|
|
static const format_flag_spec cmn_err_flag_specs[] =
|
static const format_flag_spec cmn_err_flag_specs[] =
|
{
|
{
|
{ 'w', 0, 0, N_("field width"), N_("field width in printf format"), STD_C89 },
|
{ 'w', 0, 0, N_("field width"), N_("field width in printf format"), STD_C89 },
|
{ 'L', 0, 0, N_("length modifier"), N_("length modifier in printf format"), STD_C89 },
|
{ 'L', 0, 0, N_("length modifier"), N_("length modifier in printf format"), STD_C89 },
|
{ 0, 0, 0, NULL, NULL, STD_C89 }
|
{ 0, 0, 0, NULL, NULL, STD_C89 }
|
};
|
};
|
|
|
|
|
static const format_flag_pair cmn_err_flag_pairs[] =
|
static const format_flag_pair cmn_err_flag_pairs[] =
|
{
|
{
|
{ 0, 0, 0, 0 }
|
{ 0, 0, 0, 0 }
|
};
|
};
|
|
|
static const format_char_info bitfield_string_type =
|
static const format_char_info bitfield_string_type =
|
{ "b", 1, STD_C89, { T89_C, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN }, "", "cR", NULL };
|
{ "b", 1, STD_C89, { T89_C, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN }, "", "cR", NULL };
|
|
|
static const format_char_info cmn_err_char_table[] =
|
static const format_char_info cmn_err_char_table[] =
|
{
|
{
|
/* C89 conversion specifiers. */
|
/* C89 conversion specifiers. */
|
{ "dD", 0, STD_C89, { T89_I, BADLEN, BADLEN, T89_L, T9L_LL, BADLEN, BADLEN, BADLEN, BADLEN }, "w", "", NULL },
|
{ "dD", 0, STD_C89, { T89_I, BADLEN, BADLEN, T89_L, T9L_LL, BADLEN, BADLEN, BADLEN, BADLEN }, "w", "", NULL },
|
{ "oOxX",0, STD_C89, { T89_UI, BADLEN, BADLEN, T89_UL, T9L_ULL, BADLEN, BADLEN, BADLEN, BADLEN }, "w", "", NULL },
|
{ "oOxX",0, STD_C89, { T89_UI, BADLEN, BADLEN, T89_UL, T9L_ULL, BADLEN, BADLEN, BADLEN, BADLEN }, "w", "", NULL },
|
{ "u", 0, STD_C89, { T89_UI, BADLEN, BADLEN, T89_UL, T9L_ULL, BADLEN, BADLEN, BADLEN, BADLEN }, "w", "", NULL },
|
{ "u", 0, STD_C89, { T89_UI, BADLEN, BADLEN, T89_UL, T9L_ULL, BADLEN, BADLEN, BADLEN, BADLEN }, "w", "", NULL },
|
{ "c", 0, STD_C89, { T89_C, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN }, "w", "", NULL },
|
{ "c", 0, STD_C89, { T89_C, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN }, "w", "", NULL },
|
{ "p", 1, STD_C89, { T89_V, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN }, "w", "c", NULL },
|
{ "p", 1, STD_C89, { T89_V, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN }, "w", "c", NULL },
|
{ "s", 1, STD_C89, { T89_C, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN }, "w", "cR", NULL },
|
{ "s", 1, STD_C89, { T89_C, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN }, "w", "cR", NULL },
|
{ "b", 0, STD_C89, { T89_I, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN }, "w", "", &bitfield_string_type },
|
{ "b", 0, STD_C89, { T89_I, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN }, "w", "", &bitfield_string_type },
|
{ NULL, 0, STD_C89, NOLENGTHS, NULL, NULL, NULL }
|
{ NULL, 0, STD_C89, NOLENGTHS, NULL, NULL, NULL }
|
};
|
};
|
|
|
EXPORTED_CONST format_kind_info solaris_format_types[] = {
|
EXPORTED_CONST format_kind_info solaris_format_types[] = {
|
{ "cmn_err", cmn_err_length_specs, cmn_err_char_table, "", NULL,
|
{ "cmn_err", cmn_err_length_specs, cmn_err_char_table, "", NULL,
|
cmn_err_flag_specs, cmn_err_flag_pairs,
|
cmn_err_flag_specs, cmn_err_flag_pairs,
|
FMT_FLAG_ARG_CONVERT|FMT_FLAG_EMPTY_PREC_OK,
|
FMT_FLAG_ARG_CONVERT|FMT_FLAG_EMPTY_PREC_OK,
|
'w', 0, 0, 0, 'L', 0,
|
'w', 0, 0, 0, 'L', 0,
|
&integer_type_node, &integer_type_node
|
&integer_type_node, &integer_type_node
|
}
|
}
|
};
|
};
|
|
|
/* Handle #pragma align ALIGNMENT (VAR [, VAR]...) */
|
/* Handle #pragma align ALIGNMENT (VAR [, VAR]...) */
|
|
|
static void
|
static void
|
solaris_pragma_align (cpp_reader *pfile ATTRIBUTE_UNUSED)
|
solaris_pragma_align (cpp_reader *pfile ATTRIBUTE_UNUSED)
|
{
|
{
|
tree t, x;
|
tree t, x;
|
enum cpp_ttype ttype;
|
enum cpp_ttype ttype;
|
HOST_WIDE_INT low;
|
HOST_WIDE_INT low;
|
|
|
if (pragma_lex (&x) != CPP_NUMBER
|
if (pragma_lex (&x) != CPP_NUMBER
|
|| pragma_lex (&t) != CPP_OPEN_PAREN)
|
|| pragma_lex (&t) != CPP_OPEN_PAREN)
|
{
|
{
|
warning (0, "malformed %<#pragma align%>, ignoring");
|
warning (0, "malformed %<#pragma align%>, ignoring");
|
return;
|
return;
|
}
|
}
|
|
|
low = TREE_INT_CST_LOW (x);
|
low = TREE_INT_CST_LOW (x);
|
if (TREE_INT_CST_HIGH (x) != 0
|
if (TREE_INT_CST_HIGH (x) != 0
|
|| (low != 1 && low != 2 && low != 4 && low != 8 && low != 16
|
|| (low != 1 && low != 2 && low != 4 && low != 8 && low != 16
|
&& low != 32 && low != 64 && low != 128))
|
&& low != 32 && low != 64 && low != 128))
|
{
|
{
|
warning (0, "invalid alignment for %<#pragma align%>, ignoring");
|
warning (0, "invalid alignment for %<#pragma align%>, ignoring");
|
return;
|
return;
|
}
|
}
|
|
|
ttype = pragma_lex (&t);
|
ttype = pragma_lex (&t);
|
if (ttype != CPP_NAME)
|
if (ttype != CPP_NAME)
|
{
|
{
|
warning (0, "malformed %<#pragma align%>, ignoring");
|
warning (0, "malformed %<#pragma align%>, ignoring");
|
return;
|
return;
|
}
|
}
|
|
|
while (1)
|
while (1)
|
{
|
{
|
tree decl = identifier_global_value (t);
|
tree decl = identifier_global_value (t);
|
if (decl && DECL_P (decl))
|
if (decl && DECL_P (decl))
|
warning (0, "%<#pragma align%> must appear before the declaration of "
|
warning (0, "%<#pragma align%> must appear before the declaration of "
|
"%D, ignoring", decl);
|
"%D, ignoring", decl);
|
else
|
else
|
solaris_pending_aligns = tree_cons (t, build_tree_list (NULL, x),
|
solaris_pending_aligns = tree_cons (t, build_tree_list (NULL, x),
|
solaris_pending_aligns);
|
solaris_pending_aligns);
|
|
|
ttype = pragma_lex (&t);
|
ttype = pragma_lex (&t);
|
if (ttype == CPP_COMMA)
|
if (ttype == CPP_COMMA)
|
{
|
{
|
ttype = pragma_lex (&t);
|
ttype = pragma_lex (&t);
|
if (ttype != CPP_NAME)
|
if (ttype != CPP_NAME)
|
{
|
{
|
warning (0, "malformed %<#pragma align%>");
|
warning (0, "malformed %<#pragma align%>");
|
return;
|
return;
|
}
|
}
|
}
|
}
|
else if (ttype == CPP_CLOSE_PAREN)
|
else if (ttype == CPP_CLOSE_PAREN)
|
{
|
{
|
if (pragma_lex (&t) != CPP_EOF)
|
if (pragma_lex (&t) != CPP_EOF)
|
warning (0, "junk at end of %<#pragma align%>");
|
warning (0, "junk at end of %<#pragma align%>");
|
return;
|
return;
|
}
|
}
|
else
|
else
|
{
|
{
|
warning (0, "malformed %<#pragma align%>");
|
warning (0, "malformed %<#pragma align%>");
|
return;
|
return;
|
}
|
}
|
}
|
}
|
}
|
}
|
|
|
/* Handle #pragma init (function [, function]...) */
|
/* Handle #pragma init (function [, function]...) */
|
|
|
static void
|
static void
|
solaris_pragma_init (cpp_reader *pfile ATTRIBUTE_UNUSED)
|
solaris_pragma_init (cpp_reader *pfile ATTRIBUTE_UNUSED)
|
{
|
{
|
tree t;
|
tree t;
|
enum cpp_ttype ttype;
|
enum cpp_ttype ttype;
|
|
|
if (pragma_lex (&t) != CPP_OPEN_PAREN)
|
if (pragma_lex (&t) != CPP_OPEN_PAREN)
|
{
|
{
|
warning (0, "malformed %<#pragma init%>, ignoring");
|
warning (0, "malformed %<#pragma init%>, ignoring");
|
return;
|
return;
|
}
|
}
|
|
|
ttype = pragma_lex (&t);
|
ttype = pragma_lex (&t);
|
if (ttype != CPP_NAME)
|
if (ttype != CPP_NAME)
|
{
|
{
|
warning (0, "malformed %<#pragma init%>, ignoring");
|
warning (0, "malformed %<#pragma init%>, ignoring");
|
return;
|
return;
|
}
|
}
|
|
|
while (1)
|
while (1)
|
{
|
{
|
tree decl = identifier_global_value (t);
|
tree decl = identifier_global_value (t);
|
if (decl && DECL_P (decl))
|
if (decl && DECL_P (decl))
|
{
|
{
|
tree attrs = build_tree_list (get_identifier ("init"),
|
tree attrs = build_tree_list (get_identifier ("init"),
|
NULL);
|
NULL);
|
TREE_USED (decl) = 1;
|
TREE_USED (decl) = 1;
|
DECL_PRESERVE_P (decl) = 1;
|
DECL_PRESERVE_P (decl) = 1;
|
decl_attributes (&decl, attrs, 0);
|
decl_attributes (&decl, attrs, 0);
|
}
|
}
|
else
|
else
|
solaris_pending_inits = tree_cons (t, NULL, solaris_pending_inits);
|
solaris_pending_inits = tree_cons (t, NULL, solaris_pending_inits);
|
|
|
ttype = pragma_lex (&t);
|
ttype = pragma_lex (&t);
|
if (ttype == CPP_COMMA)
|
if (ttype == CPP_COMMA)
|
{
|
{
|
ttype = pragma_lex (&t);
|
ttype = pragma_lex (&t);
|
if (ttype != CPP_NAME)
|
if (ttype != CPP_NAME)
|
{
|
{
|
warning (0, "malformed %<#pragma init%>");
|
warning (0, "malformed %<#pragma init%>");
|
return;
|
return;
|
}
|
}
|
}
|
}
|
else if (ttype == CPP_CLOSE_PAREN)
|
else if (ttype == CPP_CLOSE_PAREN)
|
{
|
{
|
if (pragma_lex (&t) != CPP_EOF)
|
if (pragma_lex (&t) != CPP_EOF)
|
warning (0, "junk at end of %<#pragma init%>");
|
warning (0, "junk at end of %<#pragma init%>");
|
return;
|
return;
|
}
|
}
|
else
|
else
|
{
|
{
|
warning (0, "malformed %<#pragma init%>");
|
warning (0, "malformed %<#pragma init%>");
|
return;
|
return;
|
}
|
}
|
}
|
}
|
}
|
}
|
|
|
/* Handle #pragma fini (function [, function]...) */
|
/* Handle #pragma fini (function [, function]...) */
|
|
|
static void
|
static void
|
solaris_pragma_fini (cpp_reader *pfile ATTRIBUTE_UNUSED)
|
solaris_pragma_fini (cpp_reader *pfile ATTRIBUTE_UNUSED)
|
{
|
{
|
tree t;
|
tree t;
|
enum cpp_ttype ttype;
|
enum cpp_ttype ttype;
|
|
|
if (pragma_lex (&t) != CPP_OPEN_PAREN)
|
if (pragma_lex (&t) != CPP_OPEN_PAREN)
|
{
|
{
|
warning (0, "malformed %<#pragma fini%>, ignoring");
|
warning (0, "malformed %<#pragma fini%>, ignoring");
|
return;
|
return;
|
}
|
}
|
|
|
ttype = pragma_lex (&t);
|
ttype = pragma_lex (&t);
|
if (ttype != CPP_NAME)
|
if (ttype != CPP_NAME)
|
{
|
{
|
warning (0, "malformed %<#pragma fini%>, ignoring");
|
warning (0, "malformed %<#pragma fini%>, ignoring");
|
return;
|
return;
|
}
|
}
|
|
|
while (1)
|
while (1)
|
{
|
{
|
tree decl = identifier_global_value (t);
|
tree decl = identifier_global_value (t);
|
if (decl && DECL_P (decl))
|
if (decl && DECL_P (decl))
|
{
|
{
|
tree attrs = build_tree_list (get_identifier ("fini"),
|
tree attrs = build_tree_list (get_identifier ("fini"),
|
NULL);
|
NULL);
|
TREE_USED (decl) = 1;
|
TREE_USED (decl) = 1;
|
DECL_PRESERVE_P (decl) = 1;
|
DECL_PRESERVE_P (decl) = 1;
|
decl_attributes (&decl, attrs, 0);
|
decl_attributes (&decl, attrs, 0);
|
}
|
}
|
else
|
else
|
solaris_pending_finis = tree_cons (t, NULL, solaris_pending_finis);
|
solaris_pending_finis = tree_cons (t, NULL, solaris_pending_finis);
|
|
|
ttype = pragma_lex (&t);
|
ttype = pragma_lex (&t);
|
if (ttype == CPP_COMMA)
|
if (ttype == CPP_COMMA)
|
{
|
{
|
ttype = pragma_lex (&t);
|
ttype = pragma_lex (&t);
|
if (ttype != CPP_NAME)
|
if (ttype != CPP_NAME)
|
{
|
{
|
warning (0, "malformed %<#pragma fini%>");
|
warning (0, "malformed %<#pragma fini%>");
|
return;
|
return;
|
}
|
}
|
}
|
}
|
else if (ttype == CPP_CLOSE_PAREN)
|
else if (ttype == CPP_CLOSE_PAREN)
|
{
|
{
|
if (pragma_lex (&t) != CPP_EOF)
|
if (pragma_lex (&t) != CPP_EOF)
|
warning (0, "junk at end of %<#pragma fini%>");
|
warning (0, "junk at end of %<#pragma fini%>");
|
return;
|
return;
|
}
|
}
|
else
|
else
|
{
|
{
|
warning (0, "malformed %<#pragma fini%>");
|
warning (0, "malformed %<#pragma fini%>");
|
return;
|
return;
|
}
|
}
|
}
|
}
|
}
|
}
|
|
|
/* Register Solaris-specific #pragma directives. */
|
/* Register Solaris-specific #pragma directives. */
|
|
|
void
|
void
|
solaris_register_pragmas (void)
|
solaris_register_pragmas (void)
|
{
|
{
|
c_register_pragma_with_expansion (0, "align", solaris_pragma_align);
|
c_register_pragma_with_expansion (0, "align", solaris_pragma_align);
|
c_register_pragma (0, "init", solaris_pragma_init);
|
c_register_pragma (0, "init", solaris_pragma_init);
|
c_register_pragma (0, "fini", solaris_pragma_fini);
|
c_register_pragma (0, "fini", solaris_pragma_fini);
|
}
|
}
|
|
|