diff options
| author | Joel Brobecker <brobecker@gnat.com> | 2010-09-28 21:39:03 +0000 |
|---|---|---|
| committer | Joel Brobecker <brobecker@gnat.com> | 2010-09-28 21:39:03 +0000 |
| commit | 474011fbad9ea70b37691b05202488ee9904d65e (patch) | |
| tree | 34ed98c8c6dd6cf713149fc7329cbcc10285c9f4 /gdb | |
| parent | c95e9f279130c09af2c427065700e3e08500b168 (diff) | |
| download | gdb-474011fbad9ea70b37691b05202488ee9904d65e.zip gdb-474011fbad9ea70b37691b05202488ee9904d65e.tar.gz gdb-474011fbad9ea70b37691b05202488ee9904d65e.tar.bz2 | |
[Ada] Add ada-tasks.c:iterate_over_live_ada_tasks
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.
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/ada-lang.h | 4 | ||||
| -rw-r--r-- | gdb/ada-tasks.c | 21 |
3 files changed, 30 insertions, 0 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 440f141..416f5a9 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -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> * amd64-windows-tdep.c (amd64_skip_main_prologue): New function. diff --git a/gdb/ada-lang.h b/gdb/ada-lang.h index d1e8ca5..935c2e1 100644 --- a/gdb/ada-lang.h +++ b/gdb/ada-lang.h @@ -378,6 +378,10 @@ extern int valid_task_id (int); 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_exception_catchpoint_p (struct breakpoint *b); diff --git a/gdb/ada-tasks.c b/gdb/ada-tasks.c index 8e42252..3cbcc4f 100644 --- a/gdb/ada-tasks.c +++ b/gdb/ada-tasks.c @@ -212,6 +212,27 @@ ada_task_is_alive (struct ada_task_info *task_info) 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, and store the result in DEST. */ |