aboutsummaryrefslogtreecommitdiff
path: root/gdb/ada-tasks.c
diff options
context:
space:
mode:
authorJoel Brobecker <brobecker@gnat.com>2010-11-23 01:04:54 +0000
committerJoel Brobecker <brobecker@gnat.com>2010-11-23 01:04:54 +0000
commit09e7f15bcf0986ca21c6832ece4c10a613159900 (patch)
tree23f4f39b819e02eec2c964ab58591af1a86b9c4f /gdb/ada-tasks.c
parent3a867c2212df1b93fbac759ba26093512949ff19 (diff)
downloadgdb-09e7f15bcf0986ca21c6832ece4c10a613159900.zip
gdb-09e7f15bcf0986ca21c6832ece4c10a613159900.tar.gz
gdb-09e7f15bcf0986ca21c6832ece4c10a613159900.tar.bz2
[Ada/tasks] Optimize ATCB lookups
Type symbols that are used to decode the Ada task control block may be duplicated in any unit that uses a tasking feature; an Ada lookup of these symbols would collect all the duplicated instances and could provoke the load of a huge amount of debug symbols in the process. However, when decoding the task information, we are only interested in one instance; and we have the full name of the symbol anyway. So use a C lookup instead of an Ada lookup. 2010-11-05 Jerome Guitton <guitton@adacore.com> * ada-tasks.c (get_tcb_types_info): Use C lookups to get ATCB symbols.
Diffstat (limited to 'gdb/ada-tasks.c')
-rw-r--r--gdb/ada-tasks.c19
1 files changed, 14 insertions, 5 deletions
diff --git a/gdb/ada-tasks.c b/gdb/ada-tasks.c
index 3cbcc4f..90502e8 100644
--- a/gdb/ada-tasks.c
+++ b/gdb/ada-tasks.c
@@ -380,20 +380,29 @@ get_tcb_types_info (struct type **atcb_type,
const char *private_data_name = "system__task_primitives__private_data";
const char *entry_call_record_name = "system__tasking__entry_call_record";
+ /* ATCB symbols may be found in several compilation units. As we
+ are only interested in one instance, use standard (literal,
+ C-like) lookups to get the first match. */
+
struct symbol *atcb_sym =
- lookup_symbol (atcb_name, NULL, VAR_DOMAIN, NULL);
+ lookup_symbol_in_language (atcb_name, NULL, VAR_DOMAIN,
+ language_c, NULL);
const struct symbol *common_atcb_sym =
- lookup_symbol (common_atcb_name, NULL, VAR_DOMAIN, NULL);
+ lookup_symbol_in_language (common_atcb_name, NULL, VAR_DOMAIN,
+ language_c, NULL);
const struct symbol *private_data_sym =
- lookup_symbol (private_data_name, NULL, VAR_DOMAIN, NULL);
+ lookup_symbol_in_language (private_data_name, NULL, VAR_DOMAIN,
+ language_c, NULL);
const struct symbol *entry_call_record_sym =
- lookup_symbol (entry_call_record_name, NULL, VAR_DOMAIN, NULL);
+ lookup_symbol_in_language (entry_call_record_name, NULL, VAR_DOMAIN,
+ language_c, NULL);
if (atcb_sym == NULL || atcb_sym->type == NULL)
{
/* In Ravenscar run-time libs, the ATCB does not have a dynamic
size, so the symbol name differs. */
- atcb_sym = lookup_symbol (atcb_name_fixed, NULL, VAR_DOMAIN, NULL);
+ atcb_sym = lookup_symbol_in_language (atcb_name_fixed, NULL, VAR_DOMAIN,
+ language_c, NULL);
if (atcb_sym == NULL || atcb_sym->type == NULL)
error (_("Cannot find Ada_Task_Control_Block type. Aborting"));