From 554fd8c5195424bdbcabf5de30fdc183aba391bd Mon Sep 17 00:00:00 2001 From: upstream source tree Date: Sun, 15 Mar 2015 20:14:05 -0400 Subject: obtained gcc-4.6.4.tar.bz2 from upstream website; verified gcc-4.6.4.tar.bz2.sig; imported gcc-4.6.4 source tree from verified upstream tarball. downloading a git-generated archive based on the 'upstream' tag should provide you with a source tree that is binary identical to the one extracted from the above tarball. if you have obtained the source via the command 'git clone', however, do note that line-endings of files in your working directory might differ from line-endings of the respective files in the upstream repository. --- gcc/config/sol2-c.c | 272 ++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 272 insertions(+) create mode 100644 gcc/config/sol2-c.c (limited to 'gcc/config/sol2-c.c') diff --git a/gcc/config/sol2-c.c b/gcc/config/sol2-c.c new file mode 100644 index 000000000..ff42c3895 --- /dev/null +++ b/gcc/config/sol2-c.c @@ -0,0 +1,272 @@ +/* Solaris support needed only by C/C++ frontends. + Copyright (C) 2004, 2005, 2007, 2009, 2010 Free Software Foundation, Inc. + Contributed by CodeSourcery, LLC. + +This file is part of GCC. + +GCC is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 3, or (at your option) +any later version. + +GCC is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +GNU General Public License for more details. + +You should have received a copy of the GNU General Public License +along with GCC; see the file COPYING3. If not see +. */ + +#include "config.h" +#include "system.h" +#include "coretypes.h" +#include "tree.h" +#include "tm.h" +#include "tm_p.h" + +#include "c-family/c-format.h" +#include "intl.h" + +#include "cpplib.h" +#include "c-family/c-pragma.h" +#include "c-family/c-common.h" + +/* cmn_err only accepts "l" and "ll". */ +static const format_length_info cmn_err_length_specs[] = +{ + { "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 } +}; + +static const format_flag_spec cmn_err_flag_specs[] = +{ + { '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 }, + { 0, 0, 0, NULL, NULL, STD_C89 } +}; + + +static const format_flag_pair cmn_err_flag_pairs[] = +{ + { 0, 0, 0, 0 } +}; + +static const format_char_info bitfield_string_type = + { "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[] = +{ + /* C89 conversion specifiers. */ + { "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 }, + { "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 }, + { "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 }, + { "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 } +}; + +const format_kind_info solaris_format_types[] = { + { "cmn_err", cmn_err_length_specs, cmn_err_char_table, "", NULL, + cmn_err_flag_specs, cmn_err_flag_pairs, + FMT_FLAG_ARG_CONVERT|FMT_FLAG_EMPTY_PREC_OK, + 'w', 0, 0, 0, 'L', 0, + &integer_type_node, &integer_type_node + } +}; + +/* Handle #pragma align ALIGNMENT (VAR [, VAR]...) */ + +static void +solaris_pragma_align (cpp_reader *pfile ATTRIBUTE_UNUSED) +{ + tree t, x; + enum cpp_ttype ttype; + HOST_WIDE_INT low; + + if (pragma_lex (&x) != CPP_NUMBER + || pragma_lex (&t) != CPP_OPEN_PAREN) + { + warning (0, "malformed %<#pragma align%>, ignoring"); + return; + } + + low = TREE_INT_CST_LOW (x); + if (TREE_INT_CST_HIGH (x) != 0 + || (low != 1 && low != 2 && low != 4 && low != 8 && low != 16 + && low != 32 && low != 64 && low != 128)) + { + warning (0, "invalid alignment for %<#pragma align%>, ignoring"); + return; + } + + ttype = pragma_lex (&t); + if (ttype != CPP_NAME) + { + warning (0, "malformed %<#pragma align%>, ignoring"); + return; + } + + while (1) + { + tree decl = identifier_global_value (t); + if (decl && DECL_P (decl)) + warning (0, "%<#pragma align%> must appear before the declaration of " + "%D, ignoring", decl); + else + solaris_pending_aligns = tree_cons (t, build_tree_list (NULL, x), + solaris_pending_aligns); + + ttype = pragma_lex (&t); + if (ttype == CPP_COMMA) + { + ttype = pragma_lex (&t); + if (ttype != CPP_NAME) + { + warning (0, "malformed %<#pragma align%>"); + return; + } + } + else if (ttype == CPP_CLOSE_PAREN) + { + if (pragma_lex (&t) != CPP_EOF) + warning (0, "junk at end of %<#pragma align%>"); + return; + } + else + { + warning (0, "malformed %<#pragma align%>"); + return; + } + } +} + +/* Handle #pragma init (function [, function]...) */ + +static void +solaris_pragma_init (cpp_reader *pfile ATTRIBUTE_UNUSED) +{ + tree t; + enum cpp_ttype ttype; + + if (pragma_lex (&t) != CPP_OPEN_PAREN) + { + warning (0, "malformed %<#pragma init%>, ignoring"); + return; + } + + ttype = pragma_lex (&t); + if (ttype != CPP_NAME) + { + warning (0, "malformed %<#pragma init%>, ignoring"); + return; + } + + while (1) + { + tree decl = identifier_global_value (t); + if (decl && DECL_P (decl)) + { + tree attrs = build_tree_list (get_identifier ("init"), + NULL); + TREE_USED (decl) = 1; + DECL_PRESERVE_P (decl) = 1; + decl_attributes (&decl, attrs, 0); + } + else + solaris_pending_inits = tree_cons (t, NULL, solaris_pending_inits); + + ttype = pragma_lex (&t); + if (ttype == CPP_COMMA) + { + ttype = pragma_lex (&t); + if (ttype != CPP_NAME) + { + warning (0, "malformed %<#pragma init%>"); + return; + } + } + else if (ttype == CPP_CLOSE_PAREN) + { + if (pragma_lex (&t) != CPP_EOF) + warning (0, "junk at end of %<#pragma init%>"); + return; + } + else + { + warning (0, "malformed %<#pragma init%>"); + return; + } + } +} + +/* Handle #pragma fini (function [, function]...) */ + +static void +solaris_pragma_fini (cpp_reader *pfile ATTRIBUTE_UNUSED) +{ + tree t; + enum cpp_ttype ttype; + + if (pragma_lex (&t) != CPP_OPEN_PAREN) + { + warning (0, "malformed %<#pragma fini%>, ignoring"); + return; + } + + ttype = pragma_lex (&t); + if (ttype != CPP_NAME) + { + warning (0, "malformed %<#pragma fini%>, ignoring"); + return; + } + + while (1) + { + tree decl = identifier_global_value (t); + if (decl && DECL_P (decl)) + { + tree attrs = build_tree_list (get_identifier ("fini"), + NULL); + TREE_USED (decl) = 1; + DECL_PRESERVE_P (decl) = 1; + decl_attributes (&decl, attrs, 0); + } + else + solaris_pending_finis = tree_cons (t, NULL, solaris_pending_finis); + + ttype = pragma_lex (&t); + if (ttype == CPP_COMMA) + { + ttype = pragma_lex (&t); + if (ttype != CPP_NAME) + { + warning (0, "malformed %<#pragma fini%>"); + return; + } + } + else if (ttype == CPP_CLOSE_PAREN) + { + if (pragma_lex (&t) != CPP_EOF) + warning (0, "junk at end of %<#pragma fini%>"); + return; + } + else + { + warning (0, "malformed %<#pragma fini%>"); + return; + } + } +} + +/* Register Solaris-specific #pragma directives. */ + +void +solaris_register_pragmas (void) +{ + c_register_pragma_with_expansion (0, "align", solaris_pragma_align); + c_register_pragma (0, "init", solaris_pragma_init); + c_register_pragma (0, "fini", solaris_pragma_fini); +} -- cgit v1.2.3