* 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 985f46d..4733c17 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,5 +1,10 @@
 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
        denominators to DOUBLEST, as they may not fit into a long.
        (scaling_factor): Ditto.

diff --git a/gdb/ada-lang.h b/gdb/ada-lang.h
index 946ffcc..50f90fb 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 599a17b..d0ce5ab 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.  */