diff options
Diffstat (limited to 'gcc/ada/misc.c')
| -rw-r--r-- | gcc/ada/misc.c | 17 |
1 files changed, 6 insertions, 11 deletions
diff --git a/gcc/ada/misc.c b/gcc/ada/misc.c index 8ef1063c2fa..f6ad45b9f18 100644 --- a/gcc/ada/misc.c +++ b/gcc/ada/misc.c @@ -6,7 +6,7 @@ * * * C Implementation File * * * - * $Revision: 1.8 $ + * $Revision: 1.9 $ * * * Copyright (C) 1992-2001 Free Software Foundation, Inc. * * * @@ -116,6 +116,10 @@ static HOST_WIDE_INT gnat_get_alias_set PARAMS ((tree)); /* Structure giving our language-specific hooks. */ +#undef LANG_HOOKS_NAME +#define LANG_HOOKS_NAME "GNU Ada" +#undef LANG_HOOKS_IDENTIFIER_SIZE +#define LANG_HOOKS_IDENTIFIER_SIZE sizeof (struct tree_identifier) #undef LANG_HOOKS_INIT #define LANG_HOOKS_INIT gnat_init #undef LANG_HOOKS_INIT_OPTIONS @@ -127,7 +131,7 @@ static HOST_WIDE_INT gnat_get_alias_set PARAMS ((tree)); #undef LANG_HOOKS_GET_ALIAS_SET #define LANG_HOOKS_GET_ALIAS_SET gnat_get_alias_set -struct lang_hooks lang_hooks = LANG_HOOKS_INITIALIZER; +const struct lang_hooks lang_hooks = LANG_HOOKS_INITIALIZER; /* gnat standard argc argv */ @@ -136,7 +140,6 @@ extern char **gnat_argv; /* Global Variables Expected by gcc: */ -const char * const language_string = "GNU Ada"; int flag_traditional; /* Used by dwarfout.c. */ int ggc_p = 1; @@ -358,14 +361,6 @@ gnat_init () #endif } -/* Return a short string identifying this language to the debugger. */ - -const char * -lang_identify () -{ - return "ada"; -} - /* If DECL has a cleanup, build and return that cleanup here. This is a callback called by expand_expr. */ |