X-Git-Url: https://oss.titaniummirror.com/gitweb?a=blobdiff_plain;f=gcc%2Fconfig%2Fi386%2Fnetware.c;fp=gcc%2Fconfig%2Fi386%2Fnetware.c;h=fa9ffbbeac13853538e9cdc94636109df4c7f0f8;hb=6fed43773c9b0ce596dca5686f37ac3fc0fa11c0;hp=0000000000000000000000000000000000000000;hpb=27b11d56b743098deb193d510b337ba22dc52e5c;p=msp430-gcc.git diff --git a/gcc/config/i386/netware.c b/gcc/config/i386/netware.c new file mode 100644 index 00000000..fa9ffbbe --- /dev/null +++ b/gcc/config/i386/netware.c @@ -0,0 +1,228 @@ +/* Subroutines for insn-output.c for NetWare. + Contributed by Jan Beulich (jbeulich@novell.com) + Copyright (C) 2004, 2005, 2007, 2008 Free Software Foundation, Inc. + +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 "tm.h" +#include "rtl.h" +#include "regs.h" +#include "hard-reg-set.h" +#include "output.h" +#include "tree.h" +#include "flags.h" +#include "tm_p.h" +#include "toplev.h" +#include "langhooks.h" +#include "ggc.h" + +/* Return string which is the function name, identified by ID, modified + with PREFIX and a suffix consisting of an atsign (@) followed by the + number of bytes of arguments. If ID is NULL use the DECL_NAME as base. + Return NULL if no change required. */ + +static tree +gen_stdcall_or_fastcall_decoration (tree decl, tree id, char prefix) +{ + unsigned HOST_WIDE_INT total = 0; + const char *old_str = IDENTIFIER_POINTER (id != NULL_TREE ? id : DECL_NAME (decl)); + char *new_str; + tree type = TREE_TYPE (decl); + + if (prototype_p (type)) + { + tree arg; + function_args_iterator args_iter; + + /* This attribute is ignored for variadic functions. */ + if (stdarg_p (type)) + return NULL_TREE; + + /* Quit if we hit an incomplete type. Error is reported + by convert_arguments in c-typeck.c or cp/typeck.c. */ + FOREACH_FUNCTION_ARGS(type, arg, args_iter) + { + HOST_WIDE_INT parm_size; + unsigned HOST_WIDE_INT parm_boundary_bytes; + + if (! COMPLETE_TYPE_P (arg)) + break; + + parm_size = int_size_in_bytes (arg); + if (parm_size < 0) + break; + + parm_boundary_bytes = PARM_BOUNDARY / BITS_PER_UNIT; + + /* Must round up to include padding. This is done the same + way as in store_one_arg. */ + total += (parm_size + parm_boundary_bytes - 1) + / parm_boundary_bytes * parm_boundary_bytes; + } + } + + new_str = XALLOCAVEC (char, 1 + strlen (old_str) + 1 + 10 + 1); + sprintf (new_str, "%c%s@" HOST_WIDE_INT_PRINT_UNSIGNED, + prefix, old_str, total); + + return get_identifier (new_str); +} + +/* Return string which is the function name, identified by ID, modified + with an _n@ prefix (where n represents the number of arguments passed in + registers). If ID is NULL use the DECL_NAME as base. + Return NULL if no change required. */ + +static tree +gen_regparm_prefix (tree decl, tree id, unsigned int nregs) +{ + unsigned HOST_WIDE_INT total = 0; + const char *old_str = IDENTIFIER_POINTER (id != NULL_TREE ? id : DECL_NAME (decl)); + char *new_str; + tree type = TREE_TYPE (decl); + + if (prototype_p (type)) + { + tree arg; + function_args_iterator args_iter; + + /* This attribute is ignored for variadic functions. */ + if (stdarg_p (type)) + return NULL_TREE; + + /* Quit if we hit an incomplete type. Error is reported + by convert_arguments in c-typeck.c or cp/typeck.c. */ + FOREACH_FUNCTION_ARGS(type, arg, args_iter) + { + HOST_WIDE_INT parm_size; + unsigned HOST_WIDE_INT parm_boundary_bytes; + + if (! COMPLETE_TYPE_P (arg)) + break; + + parm_size = int_size_in_bytes (arg); + if (parm_size < 0) + break; + + parm_boundary_bytes = PARM_BOUNDARY / BITS_PER_UNIT; + + /* Must round up to include padding. This is done the same + way as in store_one_arg. */ + total += (parm_size + parm_boundary_bytes - 1) + / parm_boundary_bytes * parm_boundary_bytes; + } + } + + if (nregs > total / UNITS_PER_WORD) + nregs = total / UNITS_PER_WORD; + gcc_assert (nregs <= 9); + new_str = XALLOCAVEC (char, 3 + strlen (old_str) + 1); + sprintf (new_str, "_%u@%s", nregs, old_str); + + return get_identifier (new_str); +} + +/* Maybe decorate and get a new identifier for the DECL of a stdcall or + fastcall function. The original identifier is supplied in ID. */ + +static tree +i386_nlm_maybe_mangle_decl_assembler_name (tree decl, tree id) +{ + tree type_attributes = TYPE_ATTRIBUTES (TREE_TYPE (decl)); + tree new_id; + + if (lookup_attribute ("stdcall", type_attributes)) + new_id = gen_stdcall_or_fastcall_decoration (decl, id, '_'); + else if (lookup_attribute ("fastcall", type_attributes)) + new_id = gen_stdcall_or_fastcall_decoration (decl, id, FASTCALL_PREFIX); + else if ((new_id = lookup_attribute ("regparm", type_attributes))) + new_id = gen_regparm_prefix (decl, id, + TREE_INT_CST_LOW (TREE_VALUE (TREE_VALUE (new_id)))); + else + new_id = NULL_TREE; + + return new_id; +} + +/* This is used as a target hook to modify the DECL_ASSEMBLER_NAME + in the language-independent default hook + langhooks.c:lhd_set_decl_assembler_name () + and in cp/mangle.c:mangle_decl (). */ +tree +i386_nlm_mangle_decl_assembler_name (tree decl, tree id) +{ + tree new_id = TREE_CODE (decl) == FUNCTION_DECL + ? i386_nlm_maybe_mangle_decl_assembler_name (decl, id) + : NULL_TREE; + + return (new_id ? new_id : id); +} + +void +i386_nlm_encode_section_info (tree decl, rtx rtl, int first) +{ + default_encode_section_info (decl, rtl, first); + + if (TREE_CODE (decl) == FUNCTION_DECL + /* Do not change the identifier if a verbatim asmspec + or if stdcall suffix already added. */ + && *IDENTIFIER_POINTER (DECL_ASSEMBLER_NAME (decl)) != '*' + && !strchr (IDENTIFIER_POINTER (DECL_ASSEMBLER_NAME (decl)), '@') + /* FIXME: Imported stdcall names are not modified by the Ada frontend. + Check and decorate the RTL name now. */ + && strcmp (lang_hooks.name, "GNU Ada") == 0) + { + rtx symbol = XEXP (rtl, 0); + tree new_id; + tree old_id = DECL_ASSEMBLER_NAME (decl); + + gcc_assert (GET_CODE (symbol) == SYMBOL_REF); + + if ((new_id = i386_nlm_maybe_mangle_decl_assembler_name (decl, old_id))) + XSTR (symbol, 0) = IDENTIFIER_POINTER (new_id); + } +} + +/* Strip the stdcall/fastcall/regparm pre-/suffix. */ + +const char * +i386_nlm_strip_name_encoding (const char *str) +{ + const char *name = default_strip_name_encoding (str); + + if (*str != '*' && (*name == '_' || *name == '@')) + { + const char *p = strchr (name + 1, '@'); + + if (p) + { + ++name; + if (ISDIGIT (p[1])) + name = ggc_alloc_string (name, p - name); + else + { + gcc_assert (ISDIGIT (*name)); + name++; + gcc_assert (name == p); + } + } + } + return name; +}