diff options
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/ada/misc.c | 17 | ||||
| -rw-r--r-- | gcc/ada/utils.c | 8 |
3 files changed, 14 insertions, 18 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index b7c2e6e..07645b0 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,10 @@ +2001-11-09 Neil Booth <neil@daikokuya.demon.co.uk> + + * misc.c (LANG_HOOKS_NAME, LANG_HOOKS_IDENTIFIER_SIZE): Override. + (struct lang_hooks): Constify. + (language_string, lang_identify): Remove. + * utils.c (init_decl_processing): Update. + 2001-11-06 Neil Booth <neil@cat.daikokuya.demon.co.uk> * misc.c: Include langhooks-def.h. diff --git a/gcc/ada/misc.c b/gcc/ada/misc.c index 8ef1063..f6ad45b 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. */ diff --git a/gcc/ada/utils.c b/gcc/ada/utils.c index 42892e5..a190009 100644 --- a/gcc/ada/utils.c +++ b/gcc/ada/utils.c @@ -6,7 +6,7 @@ * * * C Implementation File * * * - * $Revision$ + * $Revision: 1.2 $ * * * Copyright (C) 1992-2001, Free Software Foundation, Inc. * * * @@ -480,12 +480,6 @@ pushdecl (decl) void init_decl_processing () { - /* The structure `tree_identifier' is the GCC tree data structure that holds - IDENTIFIER_NODE nodes. We need to call `set_identifier_size' to tell GCC - that we have not added any language specific fields to IDENTIFIER_NODE - nodes. */ - set_identifier_size (sizeof (struct tree_identifier)); - lineno = 0; /* incomplete_decl_finalize_hook is defined in toplev.c. It needs to be set |