URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [config/] [i386/] [netware.c] - Rev 316
Go to most recent revision | Compare with Previous | Blame | View Log
/* 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 <http://www.gnu.org/licenses/>. */ #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; }
Go to most recent revision | Compare with Previous | Blame | View Log