diff options
| -rw-r--r-- | gdb/ChangeLog | 8 | ||||
| -rw-r--r-- | gdb/dec-thread.c | 21 |
2 files changed, 29 insertions, 0 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index cbacc27..eb4c490 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,5 +1,13 @@ 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" to find the underlying target. * dec-thread.c (base_target): Delete. diff --git a/gdb/dec-thread.c b/gdb/dec-thread.c index 95f2f52..aa40c59 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; } |