Implement task switching on pa-hpux.

gdb/ChangeLog:

        * inf-ttrace.c (inf_ttrace_get_ada_task_ptid): New function.
        (inf_ttrace_target): Set t->to_get_ada_task_ptid.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 1725c3bd5cc95049d29a8ff4077dde5acca5dddd..f4b6639dc27e9e0198795daa99551c8131c9ee25 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,9 @@
+2010-05-08  Joel Brobecker  <brobecker@adacore.com>
+
+       Implement task switching on pa-hpux.
+       * inf-ttrace.c (inf_ttrace_get_ada_task_ptid): New function.
+       (inf_ttrace_target): Set t->to_get_ada_task_ptid.
+
 2010-05-08  Pierre Muller  <muller@ics.u-strasbg.fr>
 
        * valops.c (find_overload_match): Add missing i18n markup.

diff --git a/gdb/inf-ttrace.c b/gdb/inf-ttrace.c
index 708a07c587597ed811aab203505f2a292fcbee90..199ceb9f17503e0891e9235d46f4a7d40f2fd220 100644 (file)
--- a/gdb/inf-ttrace.c
+++ b/gdb/inf-ttrace.c
@@ -1243,6 +1243,15 @@ inf_ttrace_pid_to_str (struct target_ops *ops, ptid_t ptid)
 }
 \f
 
+/* Implement the get_ada_task_ptid target_ops method.  */
+
+static ptid_t
+inf_ttrace_get_ada_task_ptid (long lwp, long thread)
+{
+  return ptid_build (ptid_get_pid (inferior_ptid), lwp, 0);
+}
+
+\f
 struct target_ops *
 inf_ttrace_target (void)
 {
@@ -1267,6 +1276,7 @@ inf_ttrace_target (void)
   t->to_extra_thread_info = inf_ttrace_extra_thread_info;
   t->to_pid_to_str = inf_ttrace_pid_to_str;
   t->to_xfer_partial = inf_ttrace_xfer_partial;
+  t->to_get_ada_task_ptid = inf_ttrace_get_ada_task_ptid;
 
   return t;
 }