From 963a6417f4ecb14daec07b0dbb9fac1f36c544fd Mon Sep 17 00:00:00 2001 From: "Paul N. Hilfinger" Date: Fri, 1 Oct 2004 10:23:09 +0000 Subject: First part of turning on initial Ada support. * symfile.c (init_filename_language_table): Add extensions for Ada. * defs.h (enum language): Add language_ada. * gdbtypes.h (TYPE_FLAG_FIXED_INSTANCE): Define. * ada-lang.c: Strip code that is conditionalized out by GNAT_GDB. (add_symbols_from_enclosing_procs): Make a no-op for now. (ada_unqualified_name,add_angle_brackets,function_name_from_pc) (extended_canonical_line_spec, find_sal_from_funcs_and_line) (find_line_in_linetable, find_next_line_in_linetable) (read_all_symtabs, is_plausible_func_for_line) (adjust_pc_past_prologue, error_breakpoint_runtime_sym_not_found) (is_runtime_sym_defined, check_size): Remove declaration. (function_name_from_pc, ada_translate_error_message) (ada_lookup_minimal_symbol): Remove definition. (ada_add_block_symbols): Remove useless label. * ada-lang.h (ada_maybe_exception_partial_symbol): Remove useless declaration. (ada_is_exception_sym): Likewise. --- gdb/symfile.c | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'gdb/symfile.c') diff --git a/gdb/symfile.c b/gdb/symfile.c index 14e8ccd534..ee9336d30e 100644 --- a/gdb/symfile.c +++ b/gdb/symfile.c @@ -2185,6 +2185,10 @@ init_filename_language_table (void) add_filename_language (".pas", language_pascal); add_filename_language (".p", language_pascal); add_filename_language (".pp", language_pascal); + add_filename_language (".adb", language_ada); + add_filename_language (".ads", language_ada); + add_filename_language (".a", language_ada); + add_filename_language (".ada", language_ada); } } -- cgit v1.2.1