espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-10-18 13:23:10 +08:00
Code Issues Packages Projects Releases Wiki Activity

[Ada] Add ada-tasks.c:iterate_over_live_ada_tasks

Browse Source 
This new function is needed by the ravenscar-thread layer.

gdb/ChangeLog:

        * ada-tasks.c (iterate_over_live_ada_tasks): New function.
        * ada-lang.h (iterate_over_live_ada_tasks): Declare.
This commit is contained in:
Joel Brobecker
2010-09-28 21:39:03 +00:00
parent c95e9f2791
commit 474011fbad
3 changed files with 30 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
gdb/ChangeLog
View File

@ -1,3 +1,8 @@
2010-09-28 Joel Brobecker <brobecker@adacore.com>
* ada-tasks.c (iterate_over_live_ada_tasks): New function.
* ada-lang.h (iterate_over_live_ada_tasks): Declare.
2010-09-27 Pierre Muller <muller@ics.u-strasbg.fr> 2010-09-27 Pierre Muller <muller@ics.u-strasbg.fr>
* amd64-windows-tdep.c (amd64_skip_main_prologue): New function. * amd64-windows-tdep.c (amd64_skip_main_prologue): New function.

4
gdb/ada-lang.h
View File

@ -378,6 +378,10 @@ extern int valid_task_id (int);
extern int ada_get_task_number (ptid_t); extern int ada_get_task_number (ptid_t);
typedef void (ada_task_list_iterator_ftype) (struct ada_task_info *task);
extern void iterate_over_live_ada_tasks
(ada_task_list_iterator_ftype *iterator);
extern int ada_build_task_list (int warn_if_null); extern int ada_build_task_list (int warn_if_null);
extern int ada_exception_catchpoint_p (struct breakpoint *b); extern int ada_exception_catchpoint_p (struct breakpoint *b);

21
gdb/ada-tasks.c
View File

@ -212,6 +212,27 @@ ada_task_is_alive (struct ada_task_info *task_info)
return (task_info->state != Terminated); return (task_info->state != Terminated);
} }
/* Call the ITERATOR function once for each Ada task that hasn't been
terminated yet. */
void
iterate_over_live_ada_tasks (ada_task_list_iterator_ftype *iterator)
{
int i, nb_tasks;
struct ada_task_info *task;
ada_build_task_list (0);
nb_tasks = VEC_length (ada_task_info_s, task_list);
for (i = 0; i < nb_tasks; i++)
{
task = VEC_index (ada_task_info_s, task_list, i);
if (!ada_task_is_alive (task))
continue;
iterator (task);
}
}
/* Extract the contents of the value as a string whose length is LENGTH, /* Extract the contents of the value as a string whose length is LENGTH,
and store the result in DEST. */ and store the result in DEST. */