From e22dccb54c00bd39b48bbcf07cafc13b522ab857 Mon Sep 17 00:00:00 2001 From: Joel Brobecker Date: Fri, 13 Mar 2009 01:51:17 +0000 Subject: [PATCH] * ada-tasks.c (ada_task_is_alive): Move up and make static. * ada-lang.h (ada_task_is_alive): Remove declaration. --- gdb/ChangeLog | 5 +++++ gdb/ada-lang.h | 2 -- gdb/ada-tasks.c | 18 +++++++++--------- 3 files changed, 14 insertions(+), 11 deletions(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 985f46da7e9..4733c177d09 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,8 @@ +2009-03-12 Jerome Guitton + + * 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 * ada-lang.c (ada_delta): Change the type of numerators and diff --git a/gdb/ada-lang.h b/gdb/ada-lang.h index 946ffccc897..50f90fbcc40 100644 --- a/gdb/ada-lang.h +++ b/gdb/ada-lang.h @@ -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. */ diff --git a/gdb/ada-tasks.c b/gdb/ada-tasks.c index 599a17b7fc6..d0ce5ab1bdf 100644 --- a/gdb/ada-tasks.c +++ b/gdb/ada-tasks.c @@ -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. */ -- 2.30.2