diff options
| author | Joel Brobecker <brobecker@gnat.com> | 2010-01-19 09:39:12 +0000 |
|---|---|---|
| committer | Joel Brobecker <brobecker@gnat.com> | 2010-01-19 09:39:12 +0000 |
| commit | d5cd603472bb4b3c14782728aa55bbafdfe783e8 (patch) | |
| tree | 550acd299382450c49a10aa4afcaeb87322a0e1b /gdb/ada-lang.c | |
| parent | 37a1f2771f06b9f7ef98af3270bedb2d48ac31a5 (diff) | |
| download | gdb-d5cd603472bb4b3c14782728aa55bbafdfe783e8.zip gdb-d5cd603472bb4b3c14782728aa55bbafdfe783e8.tar.gz gdb-d5cd603472bb4b3c14782728aa55bbafdfe783e8.tar.bz2 | |
Delete unused or undefined functions.
* breakpoint.c (ep_parse_optional_filename): Delete.
* dcache.c (dcache_write_line): Remove declaration.
* infrun.c (build_infrun): Remove declaration.
* tracepoint.c (tracepoint_save_command): Remove declaration.
* linux-nat.c (init_lwp_list): Delete. No longer used.
* event-loop.c (check_async_signal_handlers): Delete declaration.
* infrun.c (init_execution_control_state): Delete.
(proceed): Update comment to avoid mentioning
init_execution_control_state.
* target.c (kill_or_be_killed, nosupport_runtime): Delete.
* ada-lang.c (ada_to_static_fixed_value): Delete.
* scm-lang.c (evaluate_subexp_scm): Delete declaration.
* cp-namespace.c (cp_copy_usings): Delete.
* xml-syscall.c (xml_number_of_syscalls): Delete.
* progspace.c (find_program_space_by_num): Delete.
* inflow.c (handle_sigio): Delete declaration.
* hppa-tdep.c (hppa_alignof): Delete.
* mipsnbsd-tdep.c (mipsnbsd_sigtramp_offset)
(mipsnbsd_core_osabi_sniffer): Delete.
Diffstat (limited to 'gdb/ada-lang.c')
| -rw-r--r-- | gdb/ada-lang.c | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c index 4f77600..f00c06f 100644 --- a/gdb/ada-lang.c +++ b/gdb/ada-lang.c @@ -7575,22 +7575,6 @@ ada_to_fixed_value (struct value *val) value_address (val), val); } - -/* A value representing VAL, but with a standard (static-sized) type - chosen to approximate the real type of VAL as well as possible, but - without consulting any runtime values. For Ada dynamic-sized - types, therefore, the type of the result is likely to be inaccurate. */ - -static struct value * -ada_to_static_fixed_value (struct value *val) -{ - struct type *type = - to_static_fixed_type (static_unwrap_type (value_type (val))); - if (type == value_type (val)) - return val; - else - return coerce_unspec_val_to_type (val, type); -} /* Attributes */ |