gdb/thread.c

   1 /* Multi-process/thread control for GDB, the GNU debugger.
   2
   3    Copyright (C) 1986, 1987, 1988, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
   4    2000, 2001, 2002, 2003, 2004, 2007, 2008, 2009, 2010, 2011
   5    Free Software Foundation, Inc.
   6
   7    Contributed by Lynx Real-Time Systems, Inc.  Los Gatos, CA.
   8
   9    This file is part of GDB.
  10
  11    This program is free software; you can redistribute it and/or modify
  12    it under the terms of the GNU General Public License as published by
  13    the Free Software Foundation; either version 3 of the License, or
  14    (at your option) any later version.
  15
  16    This program is distributed in the hope that it will be useful,
  17    but WITHOUT ANY WARRANTY; without even the implied warranty of
  18    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19    GNU General Public License for more details.
  20
  21    You should have received a copy of the GNU General Public License
  22    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
  23
  24 #include "defs.h"
  25 #include "symtab.h"
  26 #include "frame.h"
  27 #include "inferior.h"
  28 #include "environ.h"
  29 #include "value.h"
  30 #include "target.h"
  31 #include "gdbthread.h"
  32 #include "exceptions.h"
  33 #include "command.h"
  34 #include "gdbcmd.h"
  35 #include "regcache.h"
  36 #include "gdb.h"
  37 #include "gdb_string.h"
  38
  39 #include <ctype.h>
  40 #include <sys/types.h>
  41 #include <signal.h>
  42 #include "ui-out.h"
  43 #include "observer.h"
  44 #include "annotate.h"
  45 #include "cli/cli-decode.h"
  46
  47 /* Definition of struct thread_info exported to gdbthread.h.  */
  48
  49 /* Prototypes for exported functions.  */
  50
  51 void _initialize_thread (void);
  52
  53 /* Prototypes for local functions.  */
  54
  55 static struct thread_info *thread_list = NULL;
  56 static int highest_thread_num;
  57
  58 static void thread_command (char *tidstr, int from_tty);
  59 static void thread_apply_all_command (char *, int);
  60 static int thread_alive (struct thread_info *);
  61 static void info_threads_command (char *, int);
  62 static void thread_apply_command (char *, int);
  63 static void restore_current_thread (ptid_t);
  64 static void prune_threads (void);
  65
  66 /* Frontend view of the thread state.  Possible extensions: stepping,
  67    finishing, until(ling),...  */
  68 enum thread_state
  69 {
  70   THREAD_STOPPED,
  71   THREAD_RUNNING,
  72   THREAD_EXITED,
  73 };
  74
  75 struct thread_info*
  76 inferior_thread (void)
  77 {
  78   struct thread_info *tp = find_thread_ptid (inferior_ptid);
  79   gdb_assert (tp);
  80   return tp;
  81 }
  82
  83 void
  84 delete_step_resume_breakpoint (struct thread_info *tp)
  85 {
  86   if (tp && tp->control.step_resume_breakpoint)
  87     {
  88       delete_breakpoint (tp->control.step_resume_breakpoint);
  89       tp->control.step_resume_breakpoint = NULL;
  90     }
  91 }
  92
  93 void
  94 delete_exception_resume_breakpoint (struct thread_info *tp)
  95 {
  96   if (tp && tp->control.exception_resume_breakpoint)
  97     {
  98       delete_breakpoint (tp->control.exception_resume_breakpoint);
  99       tp->control.exception_resume_breakpoint = NULL;
 100     }
 101 }
 102
 103 static void
 104 clear_thread_inferior_resources (struct thread_info *tp)
 105 {
 106   /* NOTE: this will take care of any left-over step_resume breakpoints,
 107      but not any user-specified thread-specific breakpoints.  We can not
 108      delete the breakpoint straight-off, because the inferior might not
 109      be stopped at the moment.  */
 110   if (tp->control.step_resume_breakpoint)
 111     {
 112       tp->control.step_resume_breakpoint->disposition = disp_del_at_next_stop;
 113       tp->control.step_resume_breakpoint = NULL;
 114     }
 115
 116   if (tp->control.exception_resume_breakpoint)
 117     {
 118       tp->control.exception_resume_breakpoint->disposition
 119         = disp_del_at_next_stop;
 120       tp->control.exception_resume_breakpoint = NULL;
 121     }
 122
 123   bpstat_clear (&tp->control.stop_bpstat);
 124
 125   discard_all_intermediate_continuations_thread (tp);
 126   discard_all_continuations_thread (tp);
 127
 128   delete_longjmp_breakpoint (tp->num);
 129 }
 130
 131 static void
 132 free_thread (struct thread_info *tp)
 133 {
 134   clear_thread_inferior_resources (tp);
 135
 136   if (tp->private)
 137     {
 138       if (tp->private_dtor)
 139         tp->private_dtor (tp->private);
 140       else
 141         xfree (tp->private);
 142     }
 143
 144   xfree (tp);
 145 }
 146
 147 void
 148 init_thread_list (void)
 149 {
 150   struct thread_info *tp, *tpnext;
 151
 152   highest_thread_num = 0;
 153
 154   if (!thread_list)
 155     return;
 156
 157   for (tp = thread_list; tp; tp = tpnext)
 158     {
 159       tpnext = tp->next;
 160       free_thread (tp);
 161     }
 162
 163   thread_list = NULL;
 164 }
 165
 166 /* Allocate a new thread with target id PTID and add it to the thread
 167    list.  */
 168
 169 static struct thread_info *
 170 new_thread (ptid_t ptid)
 171 {
 172   struct thread_info *tp;
 173
 174   tp = xcalloc (1, sizeof (*tp));
 175
 176   tp->ptid = ptid;
 177   tp->num = ++highest_thread_num;
 178   tp->next = thread_list;
 179   thread_list = tp;
 180
 181   /* Nothing to follow yet.  */
 182   tp->pending_follow.kind = TARGET_WAITKIND_SPURIOUS;
 183   tp->state_ = THREAD_STOPPED;
 184
 185   return tp;
 186 }
 187
 188 struct thread_info *
 189 add_thread_silent (ptid_t ptid)
 190 {
 191   struct thread_info *tp;
 192
 193   tp = find_thread_ptid (ptid);
 194   if (tp)
 195     /* Found an old thread with the same id.  It has to be dead,
 196        otherwise we wouldn't be adding a new thread with the same id.
 197        The OS is reusing this id --- delete it, and recreate a new
 198        one.  */
 199     {
 200       /* In addition to deleting the thread, if this is the current
 201          thread, then we need to take care that delete_thread doesn't
 202          really delete the thread if it is inferior_ptid.  Create a
 203          new template thread in the list with an invalid ptid, switch
 204          to it, delete the original thread, reset the new thread's
 205          ptid, and switch to it.  */
 206
 207       if (ptid_equal (inferior_ptid, ptid))
 208         {
 209           tp = new_thread (null_ptid);
 210
 211           /* Make switch_to_thread not read from the thread.  */
 212           tp->state_ = THREAD_EXITED;
 213           switch_to_thread (null_ptid);
 214
 215           /* Now we can delete it.  */
 216           delete_thread (ptid);
 217
 218           /* Now reset its ptid, and reswitch inferior_ptid to it.  */
 219           tp->ptid = ptid;
 220           tp->state_ = THREAD_STOPPED;
 221           switch_to_thread (ptid);
 222
 223           observer_notify_new_thread (tp);
 224
 225           /* All done.  */
 226           return tp;
 227         }
 228       else
 229         /* Just go ahead and delete it.  */
 230         delete_thread (ptid);
 231     }
 232
 233   tp = new_thread (ptid);
 234   observer_notify_new_thread (tp);
 235
 236   return tp;
 237 }
 238
 239 struct thread_info *
 240 add_thread_with_info (ptid_t ptid, struct private_thread_info *private)
 241 {
 242   struct thread_info *result = add_thread_silent (ptid);
 243
 244   result->private = private;
 245
 246   if (print_thread_events)
 247     printf_unfiltered (_("[New %s]\n"), target_pid_to_str (ptid));
 248
 249   annotate_new_thread ();
 250   return result;
 251 }
 252
 253 struct thread_info *
 254 add_thread (ptid_t ptid)
 255 {
 256   return add_thread_with_info (ptid, NULL);
 257 }
 258
 259 /* Delete thread PTID.  If SILENT, don't notify the observer of this
 260    exit.  */
 261 static void
 262 delete_thread_1 (ptid_t ptid, int silent)
 263 {
 264   struct thread_info *tp, *tpprev;
 265
 266   tpprev = NULL;
 267
 268   for (tp = thread_list; tp; tpprev = tp, tp = tp->next)
 269     if (ptid_equal (tp->ptid, ptid))
 270       break;
 271
 272   if (!tp)
 273     return;
 274
 275   /* If this is the current thread, or there's code out there that
 276      relies on it existing (refcount > 0) we can't delete yet.  Mark
 277      it as exited, and notify it.  */
 278   if (tp->refcount > 0
 279       || ptid_equal (tp->ptid, inferior_ptid))
 280     {
 281       if (tp->state_ != THREAD_EXITED)
 282         {
 283           observer_notify_thread_exit (tp, silent);
 284
 285           /* Tag it as exited.  */
 286           tp->state_ = THREAD_EXITED;
 287
 288           /* Clear breakpoints, etc. associated with this thread.  */
 289           clear_thread_inferior_resources (tp);
 290         }
 291
 292        /* Will be really deleted some other time.  */
 293        return;
 294      }
 295
 296   if (tpprev)
 297     tpprev->next = tp->next;
 298   else
 299     thread_list = tp->next;
 300
 301   /* Notify thread exit, but only if we haven't already.  */
 302   if (tp->state_ != THREAD_EXITED)
 303     observer_notify_thread_exit (tp, silent);
 304
 305   free_thread (tp);
 306 }
 307
 308 /* Delete thread PTID and notify of thread exit.  If this is
 309    inferior_ptid, don't actually delete it, but tag it as exited and
 310    do the notification.  If PTID is the user selected thread, clear
 311    it.  */
 312 void
 313 delete_thread (ptid_t ptid)
 314 {
 315   delete_thread_1 (ptid, 0 /* not silent */);
 316 }
 317
 318 void
 319 delete_thread_silent (ptid_t ptid)
 320 {
 321   delete_thread_1 (ptid, 1 /* silent */);
 322 }
 323
 324 struct thread_info *
 325 find_thread_id (int num)
 326 {
 327   struct thread_info *tp;
 328
 329   for (tp = thread_list; tp; tp = tp->next)
 330     if (tp->num == num)
 331       return tp;
 332
 333   return NULL;
 334 }
 335
 336 /* Find a thread_info by matching PTID.  */
 337 struct thread_info *
 338 find_thread_ptid (ptid_t ptid)
 339 {
 340   struct thread_info *tp;
 341
 342   for (tp = thread_list; tp; tp = tp->next)
 343     if (ptid_equal (tp->ptid, ptid))
 344       return tp;
 345
 346   return NULL;
 347 }
 348
 349 /*
 350  * Thread iterator function.
 351  *
 352  * Calls a callback function once for each thread, so long as
 353  * the callback function returns false.  If the callback function
 354  * returns true, the iteration will end and the current thread
 355  * will be returned.  This can be useful for implementing a
 356  * search for a thread with arbitrary attributes, or for applying
 357  * some operation to every thread.
 358  *
 359  * FIXME: some of the existing functionality, such as
 360  * "Thread apply all", might be rewritten using this functionality.
 361  */
 362
 363 struct thread_info *
 364 iterate_over_threads (int (*callback) (struct thread_info *, void *),
 365                       void *data)
 366 {
 367   struct thread_info *tp, *next;
 368
 369   for (tp = thread_list; tp; tp = next)
 370     {
 371       next = tp->next;
 372       if ((*callback) (tp, data))
 373         return tp;
 374     }
 375
 376   return NULL;
 377 }
 378
 379 int
 380 thread_count (void)
 381 {
 382   int result = 0;
 383   struct thread_info *tp;
 384
 385   for (tp = thread_list; tp; tp = tp->next)
 386     ++result;
 387
 388   return result;
 389 }
 390
 391 int
 392 valid_thread_id (int num)
 393 {
 394   struct thread_info *tp;
 395
 396   for (tp = thread_list; tp; tp = tp->next)
 397     if (tp->num == num)
 398       return 1;
 399
 400   return 0;
 401 }
 402
 403 int
 404 pid_to_thread_id (ptid_t ptid)
 405 {
 406   struct thread_info *tp;
 407
 408   for (tp = thread_list; tp; tp = tp->next)
 409     if (ptid_equal (tp->ptid, ptid))
 410       return tp->num;
 411
 412   return 0;
 413 }
 414
 415 ptid_t
 416 thread_id_to_pid (int num)
 417 {
 418   struct thread_info *thread = find_thread_id (num);
 419
 420   if (thread)
 421     return thread->ptid;
 422   else
 423     return pid_to_ptid (-1);
 424 }
 425
 426 int
 427 in_thread_list (ptid_t ptid)
 428 {
 429   struct thread_info *tp;
 430
 431   for (tp = thread_list; tp; tp = tp->next)
 432     if (ptid_equal (tp->ptid, ptid))
 433       return 1;
 434
 435   return 0;                     /* Never heard of 'im.  */
 436 }
 437
 438 /* Finds the first thread of the inferior given by PID.  If PID is -1,
 439    return the first thread in the list.  */
 440
 441 struct thread_info *
 442 first_thread_of_process (int pid)
 443 {
 444   struct thread_info *tp, *ret = NULL;
 445
 446   for (tp = thread_list; tp; tp = tp->next)
 447     if (pid == -1 || ptid_get_pid (tp->ptid) == pid)
 448       if (ret == NULL || tp->num < ret->num)
 449         ret = tp;
 450
 451   return ret;
 452 }
 453
 454 struct thread_info *
 455 any_thread_of_process (int pid)
 456 {
 457   struct thread_info *tp;
 458
 459   for (tp = thread_list; tp; tp = tp->next)
 460     if (ptid_get_pid (tp->ptid) == pid)
 461       return tp;
 462
 463   return NULL;
 464 }
 465
 466 struct thread_info *
 467 any_live_thread_of_process (int pid)
 468 {
 469   struct thread_info *tp;
 470   struct thread_info *tp_running = NULL;
 471
 472   for (tp = thread_list; tp; tp = tp->next)
 473     if (ptid_get_pid (tp->ptid) == pid)
 474       {
 475         if (tp->state_ == THREAD_STOPPED)
 476           return tp;
 477         else if (tp->state_ == THREAD_RUNNING)
 478           tp_running = tp;
 479       }
 480
 481   return tp_running;
 482 }
 483
 484 /* Print a list of thread ids currently known, and the total number of
 485    threads.  To be used from within catch_errors.  */
 486 static int
 487 do_captured_list_thread_ids (struct ui_out *uiout, void *arg)
 488 {
 489   struct thread_info *tp;
 490   int num = 0;
 491   struct cleanup *cleanup_chain;
 492   int current_thread = -1;
 493
 494   update_thread_list ();
 495
 496   cleanup_chain = make_cleanup_ui_out_tuple_begin_end (uiout, "thread-ids");
 497
 498   for (tp = thread_list; tp; tp = tp->next)
 499     {
 500       if (tp->state_ == THREAD_EXITED)
 501         continue;
 502
 503       if (ptid_equal (tp->ptid, inferior_ptid))
 504         current_thread = tp->num;
 505
 506       num++;
 507       ui_out_field_int (uiout, "thread-id", tp->num);
 508     }
 509
 510   do_cleanups (cleanup_chain);
 511
 512   if (current_thread != -1)
 513     ui_out_field_int (uiout, "current-thread-id", current_thread);
 514   ui_out_field_int (uiout, "number-of-threads", num);
 515   return GDB_RC_OK;
 516 }
 517
 518 /* Official gdblib interface function to get a list of thread ids and
 519    the total number.  */
 520 enum gdb_rc
 521 gdb_list_thread_ids (struct ui_out *uiout, char **error_message)
 522 {
 523   if (catch_exceptions_with_msg (uiout, do_captured_list_thread_ids, NULL,
 524                                  error_message, RETURN_MASK_ALL) < 0)
 525     return GDB_RC_FAIL;
 526   return GDB_RC_OK;
 527 }
 528
 529 /* Return true if TP is an active thread.  */
 530 static int
 531 thread_alive (struct thread_info *tp)
 532 {
 533   if (tp->state_ == THREAD_EXITED)
 534     return 0;
 535   if (!target_thread_alive (tp->ptid))
 536     return 0;
 537   return 1;
 538 }
 539
 540 static void
 541 prune_threads (void)
 542 {
 543   struct thread_info *tp, *next;
 544
 545   for (tp = thread_list; tp; tp = next)
 546     {
 547       next = tp->next;
 548       if (!thread_alive (tp))
 549         delete_thread (tp->ptid);
 550     }
 551 }
 552
 553 void
 554 thread_change_ptid (ptid_t old_ptid, ptid_t new_ptid)
 555 {
 556   struct inferior *inf;
 557   struct thread_info *tp;
 558
 559   /* It can happen that what we knew as the target inferior id
 560      changes.  E.g, target remote may only discover the remote process
 561      pid after adding the inferior to GDB's list.  */
 562   inf = find_inferior_pid (ptid_get_pid (old_ptid));
 563   inf->pid = ptid_get_pid (new_ptid);
 564
 565   tp = find_thread_ptid (old_ptid);
 566   tp->ptid = new_ptid;
 567
 568   observer_notify_thread_ptid_changed (old_ptid, new_ptid);
 569 }
 570
 571 void
 572 set_running (ptid_t ptid, int running)
 573 {
 574   struct thread_info *tp;
 575   int all = ptid_equal (ptid, minus_one_ptid);
 576
 577   /* We try not to notify the observer if no thread has actually changed
 578      the running state -- merely to reduce the number of messages to
 579      frontend.  Frontend is supposed to handle multiple *running just fine.  */
 580   if (all || ptid_is_pid (ptid))
 581     {
 582       int any_started = 0;
 583
 584       for (tp = thread_list; tp; tp = tp->next)
 585         if (all || ptid_get_pid (tp->ptid) == ptid_get_pid (ptid))
 586           {
 587             if (tp->state_ == THREAD_EXITED)
 588               continue;
 589             if (running && tp->state_ == THREAD_STOPPED)
 590               any_started = 1;
 591             tp->state_ = running ? THREAD_RUNNING : THREAD_STOPPED;
 592           }
 593       if (any_started)
 594         observer_notify_target_resumed (ptid);
 595     }
 596   else
 597     {
 598       int started = 0;
 599
 600       tp = find_thread_ptid (ptid);
 601       gdb_assert (tp);
 602       gdb_assert (tp->state_ != THREAD_EXITED);
 603       if (running && tp->state_ == THREAD_STOPPED)
 604         started = 1;
 605       tp->state_ = running ? THREAD_RUNNING : THREAD_STOPPED;
 606       if (started)
 607         observer_notify_target_resumed (ptid);
 608     }
 609 }
 610
 611 static int
 612 is_thread_state (ptid_t ptid, enum thread_state state)
 613 {
 614   struct thread_info *tp;
 615
 616   tp = find_thread_ptid (ptid);
 617   gdb_assert (tp);
 618   return tp->state_ == state;
 619 }
 620
 621 int
 622 is_stopped (ptid_t ptid)
 623 {
 624   return is_thread_state (ptid, THREAD_STOPPED);
 625 }
 626
 627 int
 628 is_exited (ptid_t ptid)
 629 {
 630   return is_thread_state (ptid, THREAD_EXITED);
 631 }
 632
 633 int
 634 is_running (ptid_t ptid)
 635 {
 636   return is_thread_state (ptid, THREAD_RUNNING);
 637 }
 638
 639 int
 640 any_running (void)
 641 {
 642   struct thread_info *tp;
 643
 644   for (tp = thread_list; tp; tp = tp->next)
 645     if (tp->state_ == THREAD_RUNNING)
 646       return 1;
 647
 648   return 0;
 649 }
 650
 651 int
 652 is_executing (ptid_t ptid)
 653 {
 654   struct thread_info *tp;
 655
 656   tp = find_thread_ptid (ptid);
 657   gdb_assert (tp);
 658   return tp->executing_;
 659 }
 660
 661 void
 662 set_executing (ptid_t ptid, int executing)
 663 {
 664   struct thread_info *tp;
 665   int all = ptid_equal (ptid, minus_one_ptid);
 666
 667   if (all || ptid_is_pid (ptid))
 668     {
 669       for (tp = thread_list; tp; tp = tp->next)
 670         if (all || ptid_get_pid (tp->ptid) == ptid_get_pid (ptid))
 671           tp->executing_ = executing;
 672     }
 673   else
 674     {
 675       tp = find_thread_ptid (ptid);
 676       gdb_assert (tp);
 677       tp->executing_ = executing;
 678     }
 679 }
 680
 681 void
 682 set_stop_requested (ptid_t ptid, int stop)
 683 {
 684   struct thread_info *tp;
 685   int all = ptid_equal (ptid, minus_one_ptid);
 686
 687   if (all || ptid_is_pid (ptid))
 688     {
 689       for (tp = thread_list; tp; tp = tp->next)
 690         if (all || ptid_get_pid (tp->ptid) == ptid_get_pid (ptid))
 691           tp->stop_requested = stop;
 692     }
 693   else
 694     {
 695       tp = find_thread_ptid (ptid);
 696       gdb_assert (tp);
 697       tp->stop_requested = stop;
 698     }
 699
 700   /* Call the stop requested observer so other components of GDB can
 701      react to this request.  */
 702   if (stop)
 703     observer_notify_thread_stop_requested (ptid);
 704 }
 705
 706 void
 707 finish_thread_state (ptid_t ptid)
 708 {
 709   struct thread_info *tp;
 710   int all;
 711   int any_started = 0;
 712
 713   all = ptid_equal (ptid, minus_one_ptid);
 714
 715   if (all || ptid_is_pid (ptid))
 716     {
 717       for (tp = thread_list; tp; tp = tp->next)
 718         {
 719           if (tp->state_ == THREAD_EXITED)
 720             continue;
 721           if (all || ptid_get_pid (ptid) == ptid_get_pid (tp->ptid))
 722             {
 723               if (tp->executing_ && tp->state_ == THREAD_STOPPED)
 724                 any_started = 1;
 725               tp->state_ = tp->executing_ ? THREAD_RUNNING : THREAD_STOPPED;
 726             }
 727         }
 728     }
 729   else
 730     {
 731       tp = find_thread_ptid (ptid);
 732       gdb_assert (tp);
 733       if (tp->state_ != THREAD_EXITED)
 734         {
 735           if (tp->executing_ && tp->state_ == THREAD_STOPPED)
 736             any_started = 1;
 737           tp->state_ = tp->executing_ ? THREAD_RUNNING : THREAD_STOPPED;
 738         }
 739     }
 740
 741   if (any_started)
 742     observer_notify_target_resumed (ptid);
 743 }
 744
 745 void
 746 finish_thread_state_cleanup (void *arg)
 747 {
 748   ptid_t *ptid_p = arg;
 749
 750   gdb_assert (arg);
 751
 752   finish_thread_state (*ptid_p);
 753 }
 754
 755 /* Prints the list of threads and their details on UIOUT.
 756    This is a version of 'info_thread_command' suitable for
 757    use from MI.
 758    If REQUESTED_THREAD is not -1, it's the GDB id of the thread
 759    that should be printed.  Otherwise, all threads are
 760    printed.
 761    If PID is not -1, only print threads from the process PID.
 762    Otherwise, threads from all attached PIDs are printed.
 763    If both REQUESTED_THREAD and PID are not -1, then the thread
 764    is printed if it belongs to the specified process.  Otherwise,
 765    an error is raised.  */
 766 void
 767 print_thread_info (struct ui_out *uiout, int requested_thread, int pid)
 768 {
 769   struct thread_info *tp;
 770   ptid_t current_ptid;
 771   struct cleanup *old_chain;
 772   char *extra_info;
 773   int current_thread = -1;
 774
 775   update_thread_list ();
 776   current_ptid = inferior_ptid;
 777
 778   /* We'll be switching threads temporarily.  */
 779   old_chain = make_cleanup_restore_current_thread ();
 780
 781   /* For backward compatibility, we make a list for MI.  A table is
 782      preferable for the CLI, though, because it shows table
 783      headers.  */
 784   if (ui_out_is_mi_like_p (uiout))
 785     make_cleanup_ui_out_list_begin_end (uiout, "threads");
 786   else
 787     {
 788       int n_threads = 0;
 789
 790       for (tp = thread_list; tp; tp = tp->next)
 791         {
 792           if (requested_thread != -1 && tp->num != requested_thread)
 793             continue;
 794
 795           if (pid != -1 && PIDGET (tp->ptid) != pid)
 796             continue;
 797
 798           if (tp->state_ == THREAD_EXITED)
 799             continue;
 800
 801           ++n_threads;
 802         }
 803
 804       if (n_threads == 0)
 805         {
 806           if (requested_thread == -1)
 807             ui_out_message (uiout, 0, _("No threads.\n"));
 808           else
 809             ui_out_message (uiout, 0, _("No thread %d.\n"), requested_thread);
 810           do_cleanups (old_chain);
 811           return;
 812         }
 813
 814       make_cleanup_ui_out_table_begin_end (uiout, 5, n_threads, "threads");
 815
 816       ui_out_table_header (uiout, 1, ui_left, "current", "");
 817       ui_out_table_header (uiout, 4, ui_left, "id", "Id");
 818       ui_out_table_header (uiout, 17, ui_left, "target-id", "Target Id");
 819       ui_out_table_header (uiout, 1, ui_noalign, "details", "");
 820       ui_out_table_header (uiout, 1, ui_left, "frame", "Frame");
 821       ui_out_table_body (uiout);
 822     }
 823
 824   for (tp = thread_list; tp; tp = tp->next)
 825     {
 826       struct cleanup *chain2;
 827       int core;
 828
 829       if (requested_thread != -1 && tp->num != requested_thread)
 830         continue;
 831
 832       if (pid != -1 && PIDGET (tp->ptid) != pid)
 833         {
 834           if (requested_thread != -1)
 835             error (_("Requested thread not found in requested process"));
 836           continue;
 837         }
 838
 839       if (ptid_equal (tp->ptid, current_ptid))
 840         current_thread = tp->num;
 841
 842       if (tp->state_ == THREAD_EXITED)
 843         continue;
 844
 845       chain2 = make_cleanup_ui_out_tuple_begin_end (uiout, NULL);
 846
 847       if (ui_out_is_mi_like_p (uiout))
 848         {
 849           /* Compatibility.  */
 850           if (ptid_equal (tp->ptid, current_ptid))
 851             ui_out_text (uiout, "* ");
 852           else
 853             ui_out_text (uiout, "  ");
 854         }
 855       else
 856         {
 857           if (ptid_equal (tp->ptid, current_ptid))
 858             ui_out_field_string (uiout, "current", "*");
 859           else
 860             ui_out_field_skip (uiout, "current");
 861         }
 862
 863       ui_out_field_int (uiout, "id", tp->num);
 864       ui_out_field_string (uiout, "target-id", target_pid_to_str (tp->ptid));
 865
 866       extra_info = target_extra_thread_info (tp);
 867       if (extra_info)
 868         {
 869           ui_out_text (uiout, " (");
 870           ui_out_field_string (uiout, "details", extra_info);
 871           ui_out_text (uiout, ")");
 872         }
 873       else if (! ui_out_is_mi_like_p (uiout))
 874         ui_out_field_skip (uiout, "details");
 875
 876       if (tp->state_ == THREAD_RUNNING)
 877         ui_out_text (uiout, "(running)\n");
 878       else
 879         {
 880           /* The switch below puts us at the top of the stack (leaf
 881              frame).  */
 882           switch_to_thread (tp->ptid);
 883           print_stack_frame (get_selected_frame (NULL),
 884                              /* For MI output, print frame level.  */
 885                              ui_out_is_mi_like_p (uiout),
 886                              LOCATION);
 887         }
 888
 889       if (ui_out_is_mi_like_p (uiout))
 890         {
 891           char *state = "stopped";
 892
 893           if (tp->state_ == THREAD_RUNNING)
 894             state = "running";
 895           ui_out_field_string (uiout, "state", state);
 896         }
 897
 898       core = target_core_of_thread (tp->ptid);
 899       if (ui_out_is_mi_like_p (uiout) && core != -1)
 900         ui_out_field_int (uiout, "core", core);
 901
 902       do_cleanups (chain2);
 903     }
 904
 905   /* Restores the current thread and the frame selected before
 906      the "info threads" command.  */
 907   do_cleanups (old_chain);
 908
 909   if (pid == -1 && requested_thread == -1)
 910     {
 911       gdb_assert (current_thread != -1
 912                   || !thread_list
 913                   || ptid_equal (inferior_ptid, null_ptid));
 914       if (current_thread != -1 && ui_out_is_mi_like_p (uiout))
 915         ui_out_field_int (uiout, "current-thread-id", current_thread);
 916
 917       if (current_thread != -1 && is_exited (current_ptid))
 918         ui_out_message (uiout, 0, "\n\
 919 The current thread <Thread ID %d> has terminated.  See `help thread'.\n",
 920                         current_thread);
 921       else if (thread_list
 922                && current_thread == -1
 923                && ptid_equal (current_ptid, null_ptid))
 924         ui_out_message (uiout, 0, "\n\
 925 No selected thread.  See `help thread'.\n");
 926     }
 927 }
 928
 929
 930 /* Print information about currently known threads
 931
 932  * Note: this has the drawback that it _really_ switches
 933  *       threads, which frees the frame cache.  A no-side
 934  *       effects info-threads command would be nicer.
 935  */
 936
 937 static void
 938 info_threads_command (char *arg, int from_tty)
 939 {
 940   print_thread_info (uiout, -1, -1);
 941 }
 942
 943 /* Switch from one thread to another.  */
 944
 945 void
 946 switch_to_thread (ptid_t ptid)
 947 {
 948   /* Switch the program space as well, if we can infer it from the now
 949      current thread.  Otherwise, it's up to the caller to select the
 950      space it wants.  */
 951   if (!ptid_equal (ptid, null_ptid))
 952     {
 953       struct inferior *inf;
 954
 955       inf = find_inferior_pid (ptid_get_pid (ptid));
 956       gdb_assert (inf != NULL);
 957       set_current_program_space (inf->pspace);
 958       set_current_inferior (inf);
 959     }
 960
 961   if (ptid_equal (ptid, inferior_ptid))
 962     return;
 963
 964   inferior_ptid = ptid;
 965   reinit_frame_cache ();
 966   registers_changed ();
 967
 968   /* We don't check for is_stopped, because we're called at times
 969      while in the TARGET_RUNNING state, e.g., while handling an
 970      internal event.  */
 971   if (!ptid_equal (inferior_ptid, null_ptid)
 972       && !is_exited (ptid)
 973       && !is_executing (ptid))
 974     stop_pc = regcache_read_pc (get_thread_regcache (ptid));
 975   else
 976     stop_pc = ~(CORE_ADDR) 0;
 977 }
 978
 979 static void
 980 restore_current_thread (ptid_t ptid)
 981 {
 982   switch_to_thread (ptid);
 983 }
 984
 985 static void
 986 restore_selected_frame (struct frame_id a_frame_id, int frame_level)
 987 {
 988   struct frame_info *frame = NULL;
 989   int count;
 990
 991   gdb_assert (frame_level >= 0);
 992
 993   /* Restore by level first, check if the frame id is the same as
 994      expected.  If that fails, try restoring by frame id.  If that
 995      fails, nothing to do, just warn the user.  */
 996
 997   count = frame_level;
 998   frame = find_relative_frame (get_current_frame (), &count);
 999   if (count == 0
1000       && frame != NULL
1001       /* The frame ids must match - either both valid or both outer_frame_id.
1002          The latter case is not failsafe, but since it's highly unlikely
1003          the search by level finds the wrong frame, it's 99.9(9)% of
1004          the time (for all practical purposes) safe.  */
1005       && frame_id_eq (get_frame_id (frame), a_frame_id))
1006     {
1007       /* Cool, all is fine.  */
1008       select_frame (frame);
1009       return;
1010     }
1011
1012   frame = frame_find_by_id (a_frame_id);
1013   if (frame != NULL)
1014     {
1015       /* Cool, refound it.  */
1016       select_frame (frame);
1017       return;
1018     }
1019
1020   /* Nothing else to do, the frame layout really changed.  Select the
1021      innermost stack frame.  */
1022   select_frame (get_current_frame ());
1023
1024   /* Warn the user.  */
1025   if (frame_level > 0 && !ui_out_is_mi_like_p (uiout))
1026     {
1027       warning (_("Couldn't restore frame #%d in "
1028                  "current thread, at reparsed frame #0\n"),
1029                frame_level);
1030       /* For MI, we should probably have a notification about
1031          current frame change.  But this error is not very
1032          likely, so don't bother for now.  */
1033       print_stack_frame (get_selected_frame (NULL), 1, SRC_LINE);
1034     }
1035 }
1036
1037 struct current_thread_cleanup
1038 {
1039   ptid_t inferior_ptid;
1040   struct frame_id selected_frame_id;
1041   int selected_frame_level;
1042   int was_stopped;
1043   int inf_id;
1044 };
1045
1046 static void
1047 do_restore_current_thread_cleanup (void *arg)
1048 {
1049   struct thread_info *tp;
1050   struct current_thread_cleanup *old = arg;
1051
1052   tp = find_thread_ptid (old->inferior_ptid);
1053
1054   /* If the previously selected thread belonged to a process that has
1055      in the mean time been deleted (due to normal exit, detach, etc.),
1056      then don't revert back to it, but instead simply drop back to no
1057      thread selected.  */
1058   if (tp
1059       && find_inferior_pid (ptid_get_pid (tp->ptid)) != NULL)
1060     restore_current_thread (old->inferior_ptid);
1061   else
1062     {
1063       restore_current_thread (null_ptid);
1064       set_current_inferior (find_inferior_id (old->inf_id));
1065     }
1066
1067   /* The running state of the originally selected thread may have
1068      changed, so we have to recheck it here.  */
1069   if (!ptid_equal (inferior_ptid, null_ptid)
1070       && old->was_stopped
1071       && is_stopped (inferior_ptid)
1072       && target_has_registers
1073       && target_has_stack
1074       && target_has_memory)
1075     restore_selected_frame (old->selected_frame_id,
1076                             old->selected_frame_level);
1077 }
1078
1079 static void
1080 restore_current_thread_cleanup_dtor (void *arg)
1081 {
1082   struct current_thread_cleanup *old = arg;
1083   struct thread_info *tp;
1084
1085   tp = find_thread_ptid (old->inferior_ptid);
1086   if (tp)
1087     tp->refcount--;
1088   xfree (old);
1089 }
1090
1091 struct cleanup *
1092 make_cleanup_restore_current_thread (void)
1093 {
1094   struct thread_info *tp;
1095   struct frame_info *frame;
1096   struct current_thread_cleanup *old;
1097
1098   old = xmalloc (sizeof (struct current_thread_cleanup));
1099   old->inferior_ptid = inferior_ptid;
1100   old->inf_id = current_inferior ()->num;
1101
1102   if (!ptid_equal (inferior_ptid, null_ptid))
1103     {
1104       old->was_stopped = is_stopped (inferior_ptid);
1105       if (old->was_stopped
1106           && target_has_registers
1107           && target_has_stack
1108           && target_has_memory)
1109         frame = get_selected_frame (NULL);
1110       else
1111         frame = NULL;
1112
1113       old->selected_frame_id = get_frame_id (frame);
1114       old->selected_frame_level = frame_relative_level (frame);
1115
1116       tp = find_thread_ptid (inferior_ptid);
1117       if (tp)
1118         tp->refcount++;
1119     }
1120
1121   return make_cleanup_dtor (do_restore_current_thread_cleanup, old,
1122                             restore_current_thread_cleanup_dtor);
1123 }
1124
1125 /* Apply a GDB command to a list of threads.  List syntax is a whitespace
1126    seperated list of numbers, or ranges, or the keyword `all'.  Ranges consist
1127    of two numbers seperated by a hyphen.  Examples:
1128
1129    thread apply 1 2 7 4 backtrace       Apply backtrace cmd to threads 1,2,7,4
1130    thread apply 2-7 9 p foo(1)  Apply p foo(1) cmd to threads 2->7 & 9
1131    thread apply all p x/i $pc   Apply x/i $pc cmd to all threads.  */
1132
1133 static void
1134 thread_apply_all_command (char *cmd, int from_tty)
1135 {
1136   struct thread_info *tp;
1137   struct cleanup *old_chain;
1138   char *saved_cmd;
1139
1140   if (cmd == NULL || *cmd == '\000')
1141     error (_("Please specify a command following the thread ID list"));
1142
1143   update_thread_list ();
1144
1145   old_chain = make_cleanup_restore_current_thread ();
1146
1147   /* Save a copy of the command in case it is clobbered by
1148      execute_command.  */
1149   saved_cmd = xstrdup (cmd);
1150   make_cleanup (xfree, saved_cmd);
1151   for (tp = thread_list; tp; tp = tp->next)
1152     if (thread_alive (tp))
1153       {
1154         switch_to_thread (tp->ptid);
1155
1156         printf_filtered (_("\nThread %d (%s):\n"),
1157                          tp->num, target_pid_to_str (inferior_ptid));
1158         execute_command (cmd, from_tty);
1159         strcpy (cmd, saved_cmd);        /* Restore exact command used
1160                                            previously.  */
1161       }
1162
1163   do_cleanups (old_chain);
1164 }
1165
1166 static void
1167 thread_apply_command (char *tidlist, int from_tty)
1168 {
1169   char *cmd;
1170   char *p;
1171   struct cleanup *old_chain;
1172   char *saved_cmd;
1173
1174   if (tidlist == NULL || *tidlist == '\000')
1175     error (_("Please specify a thread ID list"));
1176
1177   for (cmd = tidlist; *cmd != '\000' && !isalpha (*cmd); cmd++);
1178
1179   if (*cmd == '\000')
1180     error (_("Please specify a command following the thread ID list"));
1181
1182   /* Save a copy of the command in case it is clobbered by
1183      execute_command.  */
1184   saved_cmd = xstrdup (cmd);
1185   old_chain = make_cleanup (xfree, saved_cmd);
1186   while (tidlist < cmd)
1187     {
1188       struct thread_info *tp;
1189       int start, end;
1190
1191       start = strtol (tidlist, &p, 10);
1192       if (p == tidlist)
1193         error (_("Error parsing %s"), tidlist);
1194       tidlist = p;
1195
1196       while (*tidlist == ' ' || *tidlist == '\t')
1197         tidlist++;
1198
1199       if (*tidlist == '-')      /* Got a range of IDs?  */
1200         {
1201           tidlist++;            /* Skip the - */
1202           end = strtol (tidlist, &p, 10);
1203           if (p == tidlist)
1204             error (_("Error parsing %s"), tidlist);
1205           tidlist = p;
1206
1207           while (*tidlist == ' ' || *tidlist == '\t')
1208             tidlist++;
1209         }
1210       else
1211         end = start;
1212
1213       make_cleanup_restore_current_thread ();
1214
1215       for (; start <= end; start++)
1216         {
1217           tp = find_thread_id (start);
1218
1219           if (!tp)
1220             warning (_("Unknown thread %d."), start);
1221           else if (!thread_alive (tp))
1222             warning (_("Thread %d has terminated."), start);
1223           else
1224             {
1225               switch_to_thread (tp->ptid);
1226
1227               printf_filtered (_("\nThread %d (%s):\n"), tp->num,
1228                                target_pid_to_str (inferior_ptid));
1229               execute_command (cmd, from_tty);
1230
1231               /* Restore exact command used previously.  */
1232               strcpy (cmd, saved_cmd);
1233             }
1234         }
1235     }
1236
1237   do_cleanups (old_chain);
1238 }
1239
1240 /* Switch to the specified thread.  Will dispatch off to thread_apply_command
1241    if prefix of arg is `apply'.  */
1242
1243 static void
1244 thread_command (char *tidstr, int from_tty)
1245 {
1246   if (!tidstr)
1247     {
1248       if (ptid_equal (inferior_ptid, null_ptid))
1249         error (_("No thread selected"));
1250
1251       if (target_has_stack)
1252         {
1253           if (is_exited (inferior_ptid))
1254             printf_filtered (_("[Current thread is %d (%s) (exited)]\n"),
1255                              pid_to_thread_id (inferior_ptid),
1256                              target_pid_to_str (inferior_ptid));
1257           else
1258             printf_filtered (_("[Current thread is %d (%s)]\n"),
1259                              pid_to_thread_id (inferior_ptid),
1260                              target_pid_to_str (inferior_ptid));
1261         }
1262       else
1263         error (_("No stack."));
1264       return;
1265     }
1266
1267   gdb_thread_select (uiout, tidstr, NULL);
1268 }
1269
1270 /* Print notices when new threads are attached and detached.  */
1271 int print_thread_events = 1;
1272 static void
1273 show_print_thread_events (struct ui_file *file, int from_tty,
1274                           struct cmd_list_element *c, const char *value)
1275 {
1276   fprintf_filtered (file,
1277                     _("Printing of thread events is %s.\n"),
1278                     value);
1279 }
1280
1281 static int
1282 do_captured_thread_select (struct ui_out *uiout, void *tidstr)
1283 {
1284   int num;
1285   struct thread_info *tp;
1286
1287   num = value_as_long (parse_and_eval (tidstr));
1288
1289   tp = find_thread_id (num);
1290
1291   if (!tp)
1292     error (_("Thread ID %d not known."), num);
1293
1294   if (!thread_alive (tp))
1295     error (_("Thread ID %d has terminated."), num);
1296
1297   switch_to_thread (tp->ptid);
1298
1299   annotate_thread_changed ();
1300
1301   ui_out_text (uiout, "[Switching to thread ");
1302   ui_out_field_int (uiout, "new-thread-id", pid_to_thread_id (inferior_ptid));
1303   ui_out_text (uiout, " (");
1304   ui_out_text (uiout, target_pid_to_str (inferior_ptid));
1305   ui_out_text (uiout, ")]");
1306
1307   /* Note that we can't reach this with an exited thread, due to the
1308      thread_alive check above.  */
1309   if (tp->state_ == THREAD_RUNNING)
1310     ui_out_text (uiout, "(running)\n");
1311   else
1312     {
1313       ui_out_text (uiout, "\n");
1314       print_stack_frame (get_selected_frame (NULL), 1, SRC_AND_LOC);
1315     }
1316
1317   /* Since the current thread may have changed, see if there is any
1318      exited thread we can now delete.  */
1319   prune_threads ();
1320
1321   return GDB_RC_OK;
1322 }
1323
1324 enum gdb_rc
1325 gdb_thread_select (struct ui_out *uiout, char *tidstr, char **error_message)
1326 {
1327   if (catch_exceptions_with_msg (uiout, do_captured_thread_select, tidstr,
1328                                  error_message, RETURN_MASK_ALL) < 0)
1329     return GDB_RC_FAIL;
1330   return GDB_RC_OK;
1331 }
1332
1333 void
1334 update_thread_list (void)
1335 {
1336   prune_threads ();
1337   target_find_new_threads ();
1338 }
1339
1340 /* Return a new value for the selected thread's id.  Return a value of 0 if
1341    no thread is selected, or no threads exist.  */
1342
1343 static struct value *
1344 thread_id_make_value (struct gdbarch *gdbarch, struct internalvar *var)
1345 {
1346   struct thread_info *tp = find_thread_ptid (inferior_ptid);
1347
1348   return value_from_longest (builtin_type (gdbarch)->builtin_int,
1349                              (tp ? tp->num : 0));
1350 }
1351
1352 /* Commands with a prefix of `thread'.  */
1353 struct cmd_list_element *thread_cmd_list = NULL;
1354
1355 void
1356 _initialize_thread (void)
1357 {
1358   static struct cmd_list_element *thread_apply_list = NULL;
1359
1360   add_info ("threads", info_threads_command,
1361             _("IDs of currently known threads."));
1362
1363   add_prefix_cmd ("thread", class_run, thread_command, _("\
1364 Use this command to switch between threads.\n\
1365 The new thread ID must be currently known."),
1366                   &thread_cmd_list, "thread ", 1, &cmdlist);
1367
1368   add_prefix_cmd ("apply", class_run, thread_apply_command,
1369                   _("Apply a command to a list of threads."),
1370                   &thread_apply_list, "thread apply ", 1, &thread_cmd_list);
1371
1372   add_cmd ("all", class_run, thread_apply_all_command,
1373            _("Apply a command to all threads."), &thread_apply_list);
1374
1375   if (!xdb_commands)
1376     add_com_alias ("t", "thread", class_run, 1);
1377
1378   add_setshow_boolean_cmd ("thread-events", no_class,
1379          &print_thread_events, _("\
1380 Set printing of thread events (such as thread start and exit)."), _("\
1381 Show printing of thread events (such as thread start and exit)."), NULL,
1382          NULL,
1383          show_print_thread_events,
1384          &setprintlist, &showprintlist);
1385
1386   create_internalvar_type_lazy ("_thread", thread_id_make_value);
1387 }