From d36df9c574a35b93e079b0058168474ad6872204 Mon Sep 17 00:00:00 2001 From: Joel Brobecker Date: Thu, 5 Mar 2009 23:42:32 +0000 Subject: [PATCH] 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. --- gdb/ChangeLog | 8 ++++++++ gdb/dec-thread.c | 21 +++++++++++++++++++++ 2 files changed, 29 insertions(+) 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 + + 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 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; } -- 2.30.2