Add support for new Ada task state

GNAT recently added support for asynchronous aborts of tasks blocked in
calls to Ada.Synchronous_Task_Control.Suspend_Until_True. That GNAT
change added a new value to the Task_States enumerated type. This patch
adds the corresponding value to task_states.

diff --git a/gdb/ada-tasks.c b/gdb/ada-tasks.c
index 3298b04d64b8b0bc6467f110008b9a34a510ccf5..9819232f1cbc6d61d39897f22e27243cf7c00eff 100644 (file)
--- a/gdb/ada-tasks.c
+++ b/gdb/ada-tasks.c
@@ -60,7 +60,8 @@ enum task_states
   Asynchronous_Hold,
   Interrupt_Server_Blocked_On_Event_Flag,
   Activating,
-  Acceptor_Delay_Sleep
+  Acceptor_Delay_Sleep,
+  Suspension_Object_Sleep,
 };
 
 /* A short description corresponding to each possible task state.  */
@@ -82,7 +83,8 @@ static const char * const task_states[] = {
   N_("Asynchronous Hold"),
   "",
   N_("Activating"),
-  N_("Selective Wait")
+  N_("Selective Wait"),
+  N_("Suspension object sleep")
 };
 
 /* Return a string representing the task state.  */

diff --git a/gdb/doc/gdb.texinfo b/gdb/doc/gdb.texinfo
index 4b2c29df048d8c24de3f88b0a651cf7094df1815..e4469227a9ed57860efe8ebdbd42033795c5b21e 100644 (file)
--- a/gdb/doc/gdb.texinfo
+++ b/gdb/doc/gdb.texinfo
@@ -19533,6 +19533,10 @@ The task has been created and is being made runnable.
 @item Selective Wait
 The task is waiting in a selective wait statement.
 
+@item Suspension object sleep
+The task is waiting in a call to @code{Suspend_Until_True} on a suspension
+object.
+
 @item Accepting RV with @var{taskno}
 The task is accepting a rendez-vous with the task @var{taskno}.