-/* Return the task info associated to the Environment Task.
- This function assumes that the inferior does in fact use tasking. */
-
-struct ada_task_info *
-ada_get_environment_task (void)
-{
- ada_build_task_list (0);
- gdb_assert (VEC_length (ada_task_info_s, task_list) > 0);
-
- /* We use a little bit of insider knowledge to determine which task
- is the Environment Task: We know that this task is created first,
- and thus should always be task #1, which is at index 0 of the
- TASK_LIST. */
- return (VEC_index (ada_task_info_s, task_list, 0));
-}
-
-/* Call the ITERATOR function once for each Ada task that hasn't been
- terminated yet. */