* windows-nat.c (+windows_get_ada_task_ptid): New function.

        (init_windows_ops): Set windows_ops.to_get_ada_task_ptid.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index c9ba8b2f8334bda8dbed453f03bf1a482e33adb3..3c5d1d01c505ecf1a34dcdd1a8b00ae9cf564f1b 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,8 @@
+2009-04-01  Joel Brobecker  <brobecker@adacore.com>
+
+       * windows-nat.c (+windows_get_ada_task_ptid): New function.
+       (init_windows_ops): Set windows_ops.to_get_ada_task_ptid.
+
 2009-03-31  Daniel Jacobowitz  <dan@codesourcery.com>
            Keith Seitz  <keiths@redhat.com>
            Jan Kratochvil  <jan.kratochvil@redhat.com>

diff --git a/gdb/windows-nat.c b/gdb/windows-nat.c
index 65500800b97dae6737e83c5a13b3096105bcef24..c4c5fa8c77c6a1e2d69ba70dea0c510cdc2171fc 100644 (file)
--- a/gdb/windows-nat.c
+++ b/gdb/windows-nat.c
@@ -2115,6 +2115,12 @@ windows_xfer_partial (struct target_ops *ops, enum target_object object,
     }
 }
 
+static ptid_t
+windows_get_ada_task_ptid (long lwp, long thread)
+{
+  return ptid_build (ptid_get_pid (inferior_ptid), 0, lwp);
+}
+
 static void
 init_windows_ops (void)
 {
@@ -2156,6 +2162,7 @@ init_windows_ops (void)
   windows_ops.to_has_registers = 1;
   windows_ops.to_has_execution = 1;
   windows_ops.to_pid_to_exec_file = windows_pid_to_exec_file;
+  windows_ops.to_get_ada_task_ptid = windows_get_ada_task_ptid;
   i386_use_watchpoints (&windows_ops);
 
   windows_ops.to_magic = OPS_MAGIC;