* 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:
parent
facc390f02
commit
e22dccb54c
3 changed files with 14 additions and 11 deletions
|
@ -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>
|
||||
|
||||
* ada-lang.c (ada_delta): Change the type of numerators and
|
||||
|
|
|
@ -226,8 +226,6 @@ struct ada_task_info
|
|||
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
|
||||
least M objects, updating V and S as necessary. */
|
||||
|
||||
|
|
|
@ -202,6 +202,15 @@ valid_task_id (int task_num)
|
|||
&& 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,
|
||||
and store the result in DEST. */
|
||||
|
||||
|
@ -662,15 +671,6 @@ ada_build_task_list (int warn_if_null)
|
|||
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.
|
||||
The formatting should fit the "info tasks" array. */
|
||||
|
||||
|
|
Loading…
Reference in a new issue