From: Joel Brobecker <brobecker@gnat.com>
Date: Thu, 5 Mar 2009 23:42:32 +0000 (+0000)
Subject:         Implement the target-specific part of Ada tasking support
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=d36df9c574a35b93e079b0058168474ad6872204;p=binutils-gdb.git

    Implement the target-specific part of Ada tasking support
        on Tru64.

        * dec-thread.c (dec_thread_get_ada_task_ptid): New function.
        (init_dec_thread_ops): Set the to_get_ada_task_ptid method.
---

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index cbacc27c3d8..eb4c4908bc1 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,11 @@
+2009-03-05  Joel Brobecker  <brobecker@adacore.com>
+
+	Implement the target-specific part of Ada tasking support
+	on Tru64.
+
+	* dec-thread.c (dec_thread_get_ada_task_ptid): New function.
+	(init_dec_thread_ops): Set the to_get_ada_task_ptid method.
+
 2009-03-05  Joel Brobecker  <brobecker@adacore.com>
 
 	Get rid of the global "base_target" and use "find_target_beneath"
diff --git a/gdb/dec-thread.c b/gdb/dec-thread.c
index 95f2f52618a..aa40c5988a9 100644
--- a/gdb/dec-thread.c
+++ b/gdb/dec-thread.c
@@ -660,6 +660,26 @@ dec_thread_new_objfile_observer (struct objfile *objfile)
      disable_dec_thread ();
 }
 
+/* The "to_get_ada_task_ptid" method of the dec_thread_ops.  */
+
+static ptid_t
+dec_thread_get_ada_task_ptid (long lwp, long thread)
+{
+  int i;
+  struct dec_thread_info *info;
+
+  debug ("dec_thread_get_ada_task_ptid (lwp=0x%lx, thread=0x%lx)",
+         lwp, thread);
+
+  for (i = 0; VEC_iterate (dec_thread_info_s, dec_thread_list, i, info);
+       i++)
+    if (info->info.teb == (pthread_t) thread)
+      return ptid_build_from_info (*info);
+  
+  warning (_("Could not find thread id from THREAD = 0x%lx\n"), thread);
+  return inferior_ptid;
+}
+
 static void
 init_dec_thread_ops (void)
 {
@@ -674,6 +694,7 @@ init_dec_thread_ops (void)
   dec_thread_ops.to_thread_alive       = dec_thread_thread_alive;
   dec_thread_ops.to_pid_to_str         = dec_thread_pid_to_str;
   dec_thread_ops.to_stratum            = thread_stratum;
+  dec_thread_ops.to_get_ada_task_ptid  = dec_thread_get_ada_task_ptid;
   dec_thread_ops.to_magic              = OPS_MAGIC;
 }