FreeChainXenon/binutils-gdb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[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

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);
}
/* 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. */