diff options
| author | hainque <hainque@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-05-19 12:31:50 +0000 |
|---|---|---|
| committer | hainque <hainque@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-05-19 12:31:50 +0000 |
| commit | 7d70920125c277428733004f11b2e18d55038b6f (patch) | |
| tree | 3e100b52fe6535b867760b19644619e5846e3062 /gcc/ada | |
| parent | 7d67118da951f7bb32fcb25e1bd41e295decadbd (diff) | |
| download | ppe42-gcc-7d70920125c277428733004f11b2e18d55038b6f.tar.gz ppe42-gcc-7d70920125c277428733004f11b2e18d55038b6f.zip | |
* 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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@113905 138bc75d-0d04-0410-961f-82ee72b054a4
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 3c4e8cba33d..2f68e42b4d9 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. */ |
