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.
This commit is contained in:
Paul N. Hilfinger
2004-10-01 10:23:09 +00:00
parent b7c92712fa
commit 963a6417f4
6 changed files with 40 additions and 1741 deletions

View File

@@ -293,6 +293,17 @@ enum type_code
#define TYPE_ADDRESS_CLASS_ALL(t) (TYPE_INSTANCE_FLAGS(t) \
& TYPE_FLAG_ADDRESS_CLASS_ALL)
/* The debugging formats (especially STABS) do not contain enough information
to represent all Ada types---especially those whose size depends on
dynamic quantities. Therefore, the GNAT Ada compiler includes
extra information in the form of additional type definitions
connected by naming conventions. This flag indicates that the
type is an ordinary (unencoded) GDB type that has been created from
the necessary run-time information, and does not need further
interpretation. Optionally marks ordinary, fixed-size GDB type. */
#define TYPE_FLAG_FIXED_INSTANCE (1 << 15)
/* Array bound type. */
enum array_bound_type
{