diff options
| author | Nicolas Setton <setton@adacore.com> | 2006-05-19 12:31:50 +0000 |
|---|---|---|
| committer | Olivier Hainque <hainque@gcc.gnu.org> | 2006-05-19 12:31:50 +0000 |
| commit | 721a8ac58bbc00df746ccdfd6529f2d5424b11f3 (patch) | |
| tree | 3e100b52fe6535b867760b19644619e5846e3062 /gcc/ada | |
| parent | 6a1f86116204a1aaecbd1824cfd520ae248bb026 (diff) | |
| download | gcc-721a8ac58bbc00df746ccdfd6529f2d5424b11f3.zip gcc-721a8ac58bbc00df746ccdfd6529f2d5424b11f3.tar.gz gcc-721a8ac58bbc00df746ccdfd6529f2d5424b11f3.tar.bz2 | |
langhooks.h (struct lang_hooks): Add dwarf_name language hook.
* langhooks.h (struct lang_hooks): Add dwarf_name language hook.
* langhooks.c (lhd_dwarf_name): New function.
* langhooks-def.h (lhd_dwarf_name): Declare.
(LANG_HOOKS_DWARF_NAME): New macro, defaults to lhd_dwarf_name.
* dwarf2out.c (dwarf2_name): Use the dwarf_name language hook.
* ada/misc.c (gnat_dwarf_name): New function.
(LANG_HOOKS_DWARF_NAME): Define to gnat_dwarf_name.
From-SVN: r113905
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/misc.c | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/gcc/ada/misc.c b/gcc/ada/misc.c index 3c4e8cb..2f68e42 100644 --- a/gcc/ada/misc.c +++ b/gcc/ada/misc.c @@ -94,6 +94,7 @@ static HOST_WIDE_INT gnat_get_alias_set (tree); static void gnat_print_decl (FILE *, tree, int); static void gnat_print_type (FILE *, tree, int); static const char *gnat_printable_name (tree, int); +static const char *gnat_dwarf_name (tree, int); static tree gnat_eh_runtime_type (tree); static int gnat_eh_type_covers (tree, tree); static void gnat_parse_file (int); @@ -144,6 +145,8 @@ static tree gnat_type_max_size (tree); #define LANG_HOOKS_TYPE_MAX_SIZE gnat_type_max_size #undef LANG_HOOKS_DECL_PRINTABLE_NAME #define LANG_HOOKS_DECL_PRINTABLE_NAME gnat_printable_name +#undef LANG_HOOKS_DWARF_NAME +#define LANG_HOOKS_DWARF_NAME gnat_dwarf_name #undef LANG_HOOKS_CALLGRAPH_EXPAND_FUNCTION #define LANG_HOOKS_CALLGRAPH_EXPAND_FUNCTION gnat_expand_body #undef LANG_HOOKS_GIMPLIFY_EXPR @@ -596,6 +599,14 @@ gnat_printable_name (tree decl, int verbosity) return (const char *) ada_name; } +static const char * +gnat_dwarf_name (tree t, int verbosity ATTRIBUTE_UNUSED) +{ + gcc_assert (DECL_P (t)); + + return (const char *) IDENTIFIER_POINTER (DECL_NAME (t)); +} + /* Expands GNAT-specific GCC tree nodes. The only ones we support here are and NULL_EXPR. */ |