diff options
| -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 440f1411846..416f5a978f0 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 d1e8ca50c51..935c2e146f9 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 8e42252d42e..3cbcc4fe4df 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. */ |