* ada-tasks.c (ada_task_is_alive): Move up and make static.

* ada-lang.h (ada_task_is_alive): Remove declaration.
This commit is contained in:
Joel Brobecker 2009-03-13 01:51:17 +00:00
parent facc390f02
commit e22dccb54c
3 changed files with 14 additions and 11 deletions

View file

@ -1,3 +1,8 @@
2009-03-12 Jerome Guitton <guitton@adacore.com>
* ada-tasks.c (ada_task_is_alive): Move up and make static.
* ada-lang.h (ada_task_is_alive): Remove declaration.
2009-03-12 Jerome Guitton <guitton@adacore.com> 2009-03-12 Jerome Guitton <guitton@adacore.com>
* ada-lang.c (ada_delta): Change the type of numerators and * ada-lang.c (ada_delta): Change the type of numerators and

View file

@ -226,8 +226,6 @@ struct ada_task_info
CORE_ADDR caller_task; CORE_ADDR caller_task;
}; };
int ada_task_is_alive (struct ada_task_info *task);
/* Assuming V points to an array of S objects, make sure that it contains at /* Assuming V points to an array of S objects, make sure that it contains at
least M objects, updating V and S as necessary. */ least M objects, updating V and S as necessary. */

View file

@ -202,6 +202,15 @@ valid_task_id (int task_num)
&& task_num <= VEC_length (ada_task_info_s, task_list)); && task_num <= VEC_length (ada_task_info_s, task_list));
} }
/* Return non-zero iff the task STATE corresponds to a non-terminated
task state. */
static int
ada_task_is_alive (struct ada_task_info *task_info)
{
return (task_info->state != Terminated);
}
/* 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. */
@ -662,15 +671,6 @@ ada_build_task_list (int warn_if_null)
return 1; return 1;
} }
/* Return non-zero iff the task STATE corresponds to a non-terminated
task state. */
int
ada_task_is_alive (struct ada_task_info *task_info)
{
return (task_info->state != Terminated);
}
/* Print a one-line description of the task whose number is TASKNO. /* Print a one-line description of the task whose number is TASKNO.
The formatting should fit the "info tasks" array. */ The formatting should fit the "info tasks" array. */