From: Ronan Desplanques <desplanques@adacore.com>
Date: Tue, 4 Nov 2025 14:24:36 +0000 (+0100)
Subject: Add support for new Ada task state
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=40cfadce94be217cc84624a58b8f5a2d7ee1eabb;p=thirdparty%2Fbinutils-gdb.git

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 3298b04d64b..9819232f1cb 100644
--- 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 4b2c29df048..e4469227a9e 100644
--- 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}.