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

        * ada-lang.h (ada_task_is_alive): Remove declaration.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 985f46da7e9043c8e2023790709613cbb15fa51b..4733c177d095aa1f9f363938da6512933664c568 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -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

diff --git a/gdb/ada-lang.h b/gdb/ada-lang.h
index 946ffccc897fec50c81d104821fdca735441717c..50f90fbcc40500117df8fef1676d7cc80155b36e 100644 (file)
--- 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 599a17b7fc6f4475a70e0d0e19d1a3a77cc4c861..d0ce5ab1bdf58c5dfd9bb9606bba294f0aa257f0 100644 (file)
--- 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.  */