From: Joel Brobecker <brobecker@gnat.com>
Date: Wed, 1 Apr 2009 16:35:41 +0000 (+0000)
Subject:         * windows-nat.c (+windows_get_ada_task_ptid): New function.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=1e2f1c5caa96a6e36670cd183f72b896e472aae0;p=binutils-gdb.git

    * 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 c9ba8b2f833..3c5d1d01c50 100644
--- 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 65500800b97..c4c5fa8c77c 100644
--- 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;