diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2008-03-08 12:44:51 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2008-03-08 12:44:51 +0000 |
| commit | 7934d78179a91cf3f2c03ce6c6b2c014ac61fdab (patch) | |
| tree | 2c606bc53dbf5581ce09df47cf3fcfa90384d62b /gcc/ada/misc.c | |
| parent | 904e4b8d32159b43f5edba2f4723fa2782925d0a (diff) | |
| download | gcc-7934d78179a91cf3f2c03ce6c6b2c014ac61fdab.zip gcc-7934d78179a91cf3f2c03ce6c6b2c014ac61fdab.tar.gz gcc-7934d78179a91cf3f2c03ce6c6b2c014ac61fdab.tar.bz2 | |
lang.opt (nostdlib): Move around.
* lang.opt (nostdlib): Move around.
* misc.c (gnat_handle_option): Fix formatting.
(gnat_dwarf_name): Move around.
* trans.c (Case_Statement_to_gnu): Fix formatting.
(gnat_to_gnu): Likewise.
* utils.c (aggregate_type_contains_array_p): Likewise.
(create_subprog_decl): Likewise.
From-SVN: r133035
Diffstat (limited to 'gcc/ada/misc.c')
| -rw-r--r-- | gcc/ada/misc.c | 27 |
1 files changed, 13 insertions, 14 deletions
diff --git a/gcc/ada/misc.c b/gcc/ada/misc.c index 3845ba8..da0f2d9 100644 --- a/gcc/ada/misc.c +++ b/gcc/ada/misc.c @@ -6,7 +6,7 @@ * * * C Implementation File * * * - * Copyright (C) 1992-2007, Free Software Foundation, Inc. * + * Copyright (C) 1992-2008, Free Software Foundation, Inc. * * * * GNAT is free software; you can redistribute it and/or modify it under * * terms of the GNU General Public License as published by the Free Soft- * @@ -126,7 +126,7 @@ static tree gnat_type_max_size (const_tree); #undef LANG_HOOKS_PUSHDECL #define LANG_HOOKS_PUSHDECL gnat_return_tree #undef LANG_HOOKS_WRITE_GLOBALS -#define LANG_HOOKS_WRITE_GLOBALS gnat_write_global_declarations +#define LANG_HOOKS_WRITE_GLOBALS gnat_write_global_declarations #undef LANG_HOOKS_FINISH_INCOMPLETE_DECL #define LANG_HOOKS_FINISH_INCOMPLETE_DECL gnat_finish_incomplete_decl #undef LANG_HOOKS_REDUCE_BIT_FIELD_OPERATIONS @@ -303,9 +303,9 @@ gnat_handle_option (size_t scode, const char *arg, int value) case OPT_feliminate_unused_debug_types: /* We arrange for post_option to be able to only set the corresponding - flag to 1 when explicitely requested by the user. We expect the - default flag value to be either 0 or positive, and expose a positive - -f as a negative value to post_option. */ + flag to 1 when explicitely requested by the user. We expect the + default flag value to be either 0 or positive, and expose a positive + -f as a negative value to post_option. */ flag_eliminate_unused_debug_types = -value; break; @@ -527,7 +527,6 @@ gnat_init_gcc_eh (void) marked as "cannot trap" if the flag is not set (see emit_libcall_block). We should not let this be since it is possible for such calls to actually raise in Ada. */ - flag_exceptions = 1; flag_non_call_exceptions = 1; @@ -615,6 +614,14 @@ gnat_print_type (FILE *file, tree node, int indent) } 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)); +} + +static const char * gnat_printable_name (tree decl, int verbosity) { const char *coded_name = IDENTIFIER_POINTER (DECL_NAME (decl)); @@ -631,14 +638,6 @@ 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. */ |