/* Multi-process/thread control for GDB, the GNU debugger.
- Copyright (C) 1986-2018 Free Software Foundation, Inc.
+ Copyright (C) 1986-2019 Free Software Foundation, Inc.
Contributed by Lynx Real-Time Systems, Inc. Los Gatos, CA.
#include "symtab.h"
#include "frame.h"
#include "inferior.h"
-#include "environ.h"
+#include "common/environ.h"
#include "value.h"
#include "target.h"
#include "gdbthread.h"
#include "tid-parse.h"
#include <algorithm>
#include "common/gdb_optional.h"
+#include "inline-frame.h"
+#include "stack.h"
/* Definition of struct thread_info exported to gdbthread.h. */
/* Prototypes for local functions. */
-struct thread_info *thread_list = NULL;
static int highest_thread_num;
/* True if any thread is, or may be executing. We need to track this
{
if (thr->thread_fsm != NULL)
{
- thread_fsm_clean_up (thr->thread_fsm, thr);
- thread_fsm_delete (thr->thread_fsm);
+ thr->thread_fsm->clean_up (thr);
+ delete thr->thread_fsm;
thr->thread_fsm = NULL;
}
}
btrace_teardown (tp);
thread_cancel_execution_command (tp);
+
+ clear_inline_frame_state (tp->ptid);
}
/* Set the TP's state as exited. */
void
init_thread_list (void)
{
- struct thread_info *tp, *tmp;
-
highest_thread_num = 0;
- ALL_THREADS_SAFE (tp, tmp)
+ for (thread_info *tp : all_threads_safe ())
{
+ inferior *inf = tp->inf;
+
if (tp->deletable ())
delete tp;
else
set_thread_exited (tp, 1);
- }
- thread_list = NULL;
- threads_executing = 0;
+ inf->thread_list = NULL;
+ }
}
/* Allocate a new thread of inferior INF with target id PTID and add
{
thread_info *tp = new thread_info (inf, ptid);
- if (thread_list == NULL)
- thread_list = tp;
+ if (inf->thread_list == NULL)
+ inf->thread_list = tp;
else
{
struct thread_info *last;
- for (last = thread_list; last->next != NULL; last = last->next)
+ for (last = inf->thread_list; last->next != NULL; last = last->next)
;
last->next = tp;
}
struct thread_info *
add_thread_silent (ptid_t ptid)
{
- struct thread_info *tp;
struct inferior *inf = find_inferior_ptid (ptid);
gdb_assert (inf != NULL);
- tp = find_thread_ptid (ptid);
+ thread_info *tp = find_thread_ptid (inf, ptid);
if (tp)
/* Found an old thread with the same id. It has to be dead,
otherwise we wouldn't be adding a new thread with the same id.
result->priv.reset (priv);
if (print_thread_events)
- printf_unfiltered (_("[New %s]\n"), target_pid_to_str (ptid));
+ printf_unfiltered (_("[New %s]\n"), target_pid_to_str (ptid).c_str ());
annotate_new_thread ();
return result;
xfree (this->name);
}
+/* See gdbthread.h. */
+
+bool
+thread_info::deletable () const
+{
+ /* If this is the current thread, or there's code out there that
+ relies on it existing (refcount > 0) we can't delete yet. */
+ return refcount () == 0 && ptid != inferior_ptid;
+}
+
/* Add TP to the end of the step-over chain LIST_P. */
static void
step_over_chain_remove (&step_over_queue_head, tp);
}
-/* Delete thread TP. If SILENT, don't notify the observer of this
- exit. */
+/* Delete the thread referenced by THR. If SILENT, don't notifyi
+ the observer of this exit.
+
+ THR must not be NULL or a failed assertion will be raised. */
static void
delete_thread_1 (thread_info *thr, bool silent)
{
- struct thread_info *tp, *tpprev;
+ gdb_assert (thr != nullptr);
- tpprev = NULL;
+ struct thread_info *tp, *tpprev = NULL;
- for (tp = thread_list; tp; tpprev = tp, tp = tp->next)
+ for (tp = thr->inf->thread_list; tp; tpprev = tp, tp = tp->next)
if (tp == thr)
break;
if (tpprev)
tpprev->next = tp->next;
else
- thread_list = tp->next;
+ tp->inf->thread_list = tp->next;
delete tp;
}
struct thread_info *
find_thread_global_id (int global_id)
{
- struct thread_info *tp;
-
- for (tp = thread_list; tp; tp = tp->next)
+ for (thread_info *tp : all_threads ())
if (tp->global_num == global_id)
return tp;
static struct thread_info *
find_thread_id (struct inferior *inf, int thr_num)
{
- struct thread_info *tp;
-
- for (tp = thread_list; tp; tp = tp->next)
- if (tp->inf == inf && tp->per_inf_num == thr_num)
+ for (thread_info *tp : inf->threads ())
+ if (tp->per_inf_num == thr_num)
return tp;
return NULL;
struct thread_info *
find_thread_ptid (ptid_t ptid)
{
- struct thread_info *tp;
+ inferior *inf = find_inferior_ptid (ptid);
+ if (inf == NULL)
+ return NULL;
+ return find_thread_ptid (inf, ptid);
+}
- for (tp = thread_list; tp; tp = tp->next)
+/* See gdbthread.h. */
+
+struct thread_info *
+find_thread_ptid (inferior *inf, ptid_t ptid)
+{
+ for (thread_info *tp : inf->threads ())
if (tp->ptid == ptid)
return tp;
/* See gdbthread.h. */
struct thread_info *
-find_thread_by_handle (struct value *thread_handle, struct inferior *inf)
+find_thread_by_handle (gdb::array_view<const gdb_byte> handle,
+ struct inferior *inf)
{
- return target_thread_handle_to_thread_info
- (value_contents_all (thread_handle),
- TYPE_LENGTH (value_type (thread_handle)),
- inf);
+ return target_thread_handle_to_thread_info (handle.data (),
+ handle.size (),
+ inf);
}
/*
iterate_over_threads (int (*callback) (struct thread_info *, void *),
void *data)
{
- struct thread_info *tp, *next;
-
- for (tp = thread_list; tp; tp = next)
- {
- next = tp->next;
- if ((*callback) (tp, data))
- return tp;
- }
+ for (thread_info *tp : all_threads_safe ())
+ if ((*callback) (tp, data))
+ return tp;
return NULL;
}
+/* See gdbthread.h. */
+
+bool
+any_thread_p ()
+{
+ for (thread_info *tp ATTRIBUTE_UNUSED : all_threads ())
+ return true;
+ return false;
+}
+
int
thread_count (void)
{
- int result = 0;
- struct thread_info *tp;
-
- for (tp = thread_list; tp; tp = tp->next)
- ++result;
-
- return result;
+ auto rng = all_threads ();
+ return std::distance (rng.begin (), rng.end ());
}
/* Return the number of non-exited threads in the thread list. */
static int
live_threads_count (void)
{
- int result = 0;
- struct thread_info *tp;
-
- ALL_NON_EXITED_THREADS (tp)
- ++result;
-
- return result;
+ auto rng = all_non_exited_threads ();
+ return std::distance (rng.begin (), rng.end ());
}
int
valid_global_thread_id (int global_id)
{
- struct thread_info *tp;
-
- for (tp = thread_list; tp; tp = tp->next)
+ for (thread_info *tp : all_threads ())
if (tp->global_num == global_id)
return 1;
int
in_thread_list (ptid_t ptid)
{
- struct thread_info *tp;
-
- for (tp = thread_list; tp; tp = tp->next)
- if (tp->ptid == ptid)
- return 1;
-
- return 0; /* Never heard of 'im. */
+ return find_thread_ptid (ptid) != nullptr;
}
/* Finds the first thread of the inferior. */
thread_info *
first_thread_of_inferior (inferior *inf)
{
- struct thread_info *tp, *ret = NULL;
-
- for (tp = thread_list; tp; tp = tp->next)
- if (tp->inf == inf)
- if (ret == NULL || tp->global_num < ret->global_num)
- ret = tp;
-
- return ret;
+ return inf->thread_list;
}
thread_info *
any_thread_of_inferior (inferior *inf)
{
- struct thread_info *tp;
-
gdb_assert (inf->pid != 0);
/* Prefer the current thread. */
if (inf == current_inferior ())
return inferior_thread ();
- ALL_NON_EXITED_THREADS (tp)
- if (tp->inf == inf)
- return tp;
+ for (thread_info *tp : inf->non_exited_threads ())
+ return tp;
return NULL;
}
any_live_thread_of_inferior (inferior *inf)
{
struct thread_info *curr_tp = NULL;
- struct thread_info *tp;
struct thread_info *tp_executing = NULL;
gdb_assert (inf != NULL && inf->pid != 0);
return curr_tp;
}
- ALL_NON_EXITED_THREADS (tp)
- if (tp->inf == inf)
- {
- if (!tp->executing)
- return tp;
+ for (thread_info *tp : inf->non_exited_threads ())
+ {
+ if (!tp->executing)
+ return tp;
- tp_executing = tp;
- }
+ tp_executing = tp;
+ }
/* If both the current thread and all live threads are executing,
prefer the current thread. */
void
prune_threads (void)
{
- struct thread_info *tp, *tmp;
-
- ALL_THREADS_SAFE (tp, tmp)
- {
- if (!thread_alive (tp))
- delete_thread (tp);
- }
+ for (thread_info *tp : all_threads_safe ())
+ if (!thread_alive (tp))
+ delete_thread (tp);
}
/* See gdbthreads.h. */
void
delete_exited_threads (void)
{
- struct thread_info *tp, *tmp;
-
- ALL_THREADS_SAFE (tp, tmp)
- {
- if (tp->state == THREAD_EXITED)
- delete_thread (tp);
- }
+ for (thread_info *tp : all_threads_safe ())
+ if (tp->state == THREAD_EXITED)
+ delete_thread (tp);
}
/* Return true value if stack temporaies are enabled for the thread
changes. E.g, target remote may only discover the remote process
pid after adding the inferior to GDB's list. */
inf = find_inferior_ptid (old_ptid);
- inf->pid = ptid_get_pid (new_ptid);
+ inf->pid = new_ptid.pid ();
- tp = find_thread_ptid (old_ptid);
+ tp = find_thread_ptid (inf, old_ptid);
tp->ptid = new_ptid;
gdb::observers::thread_ptid_changed.notify (old_ptid, new_ptid);
void
set_resumed (ptid_t ptid, int resumed)
{
- struct thread_info *tp;
- int all = ptid == minus_one_ptid;
-
- if (all || ptid_is_pid (ptid))
- {
- for (tp = thread_list; tp; tp = tp->next)
- if (all || ptid_get_pid (tp->ptid) == ptid_get_pid (ptid))
- tp->resumed = resumed;
- }
- else
- {
- tp = find_thread_ptid (ptid);
- gdb_assert (tp != NULL);
- tp->resumed = resumed;
- }
+ for (thread_info *tp : all_non_exited_threads (ptid))
+ tp->resumed = resumed;
}
/* Helper for set_running, that marks one thread either running or
void
set_running (ptid_t ptid, int running)
{
- struct thread_info *tp;
- int all = ptid == minus_one_ptid;
- int any_started = 0;
+ /* We try not to notify the observer if no thread has actually
+ changed the running state -- merely to reduce the number of
+ messages to the MI frontend. A frontend is supposed to handle
+ multiple *running notifications just fine. */
+ bool any_started = false;
- /* We try not to notify the observer if no thread has actually changed
- the running state -- merely to reduce the number of messages to
- frontend. Frontend is supposed to handle multiple *running just fine. */
- if (all || ptid_is_pid (ptid))
- {
- for (tp = thread_list; tp; tp = tp->next)
- if (all || ptid_get_pid (tp->ptid) == ptid_get_pid (ptid))
- {
- if (tp->state == THREAD_EXITED)
- continue;
+ for (thread_info *tp : all_non_exited_threads (ptid))
+ if (set_running_thread (tp, running))
+ any_started = true;
- if (set_running_thread (tp, running))
- any_started = 1;
- }
- }
- else
- {
- tp = find_thread_ptid (ptid);
- gdb_assert (tp != NULL);
- gdb_assert (tp->state != THREAD_EXITED);
- if (set_running_thread (tp, running))
- any_started = 1;
- }
if (any_started)
gdb::observers::target_resumed.notify (ptid);
}
-static int
-is_thread_state (ptid_t ptid, enum thread_state state)
-{
- struct thread_info *tp;
-
- tp = find_thread_ptid (ptid);
- gdb_assert (tp);
- return tp->state == state;
-}
-
-int
-is_stopped (ptid_t ptid)
-{
- return is_thread_state (ptid, THREAD_STOPPED);
-}
-
-int
-is_exited (ptid_t ptid)
-{
- return is_thread_state (ptid, THREAD_EXITED);
-}
-
-int
-is_running (ptid_t ptid)
-{
- return is_thread_state (ptid, THREAD_RUNNING);
-}
-
-int
-is_executing (ptid_t ptid)
-{
- struct thread_info *tp;
-
- tp = find_thread_ptid (ptid);
- gdb_assert (tp);
- return tp->executing;
-}
/* Helper for set_executing. Set's the thread's 'executing' field
from EXECUTING, and if EXECUTING is true also clears the thread's
void
set_executing (ptid_t ptid, int executing)
{
- struct thread_info *tp;
- int all = ptid == minus_one_ptid;
-
- if (all || ptid_is_pid (ptid))
- {
- for (tp = thread_list; tp; tp = tp->next)
- if (all || ptid_get_pid (tp->ptid) == ptid_get_pid (ptid))
- set_executing_thread (tp, executing);
- }
- else
- {
- tp = find_thread_ptid (ptid);
- gdb_assert (tp);
- set_executing_thread (tp, executing);
- }
+ for (thread_info *tp : all_non_exited_threads (ptid))
+ set_executing_thread (tp, executing);
- /* It only takes one running thread to spawn more threads.*/
+ /* It only takes one running thread to spawn more threads. */
if (executing)
threads_executing = 1;
/* Only clear the flag if the caller is telling us everything is
void
set_stop_requested (ptid_t ptid, int stop)
{
- struct thread_info *tp;
- int all = ptid == minus_one_ptid;
-
- if (all || ptid_is_pid (ptid))
- {
- for (tp = thread_list; tp; tp = tp->next)
- if (all || ptid_get_pid (tp->ptid) == ptid_get_pid (ptid))
- tp->stop_requested = stop;
- }
- else
- {
- tp = find_thread_ptid (ptid);
- gdb_assert (tp);
- tp->stop_requested = stop;
- }
+ for (thread_info *tp : all_non_exited_threads (ptid))
+ tp->stop_requested = stop;
/* Call the stop requested observer so other components of GDB can
react to this request. */
void
finish_thread_state (ptid_t ptid)
{
- struct thread_info *tp;
- int all;
- int any_started = 0;
+ bool any_started = false;
- all = ptid == minus_one_ptid;
-
- if (all || ptid_is_pid (ptid))
- {
- for (tp = thread_list; tp; tp = tp->next)
- {
- if (tp->state == THREAD_EXITED)
- continue;
- if (all || ptid_get_pid (ptid) == ptid_get_pid (tp->ptid))
- {
- if (set_running_thread (tp, tp->executing))
- any_started = 1;
- }
- }
- }
- else
- {
- tp = find_thread_ptid (ptid);
- gdb_assert (tp);
- if (tp->state != THREAD_EXITED)
- {
- if (set_running_thread (tp, tp->executing))
- any_started = 1;
- }
- }
+ for (thread_info *tp : all_non_exited_threads (ptid))
+ if (set_running_thread (tp, tp->executing))
+ any_started = true;
if (any_started)
gdb::observers::target_resumed.notify (ptid);
return 0;
}
- if (pid != -1 && ptid_get_pid (thr->ptid) != pid)
+ if (pid != -1 && thr->ptid.pid () != pid)
{
if (requested_threads != NULL && *requested_threads != '\0')
error (_("Requested thread not found in requested process"));
static std::string
thread_target_id_str (thread_info *tp)
{
- const char *target_id = target_pid_to_str (tp->ptid);
+ std::string target_id = target_pid_to_str (tp->ptid);
const char *extra_info = target_extra_thread_info (tp);
const char *name = tp->name != nullptr ? tp->name : target_thread_name (tp);
if (extra_info != nullptr && name != nullptr)
- return string_printf ("%s \"%s\" (%s)", target_id, name, extra_info);
+ return string_printf ("%s \"%s\" (%s)", target_id.c_str (), name,
+ extra_info);
else if (extra_info != nullptr)
- return string_printf ("%s (%s)", target_id, extra_info);
+ return string_printf ("%s (%s)", target_id.c_str (), extra_info);
else if (name != nullptr)
- return string_printf ("%s \"%s\"", target_id, name);
+ return string_printf ("%s \"%s\"", target_id.c_str (), name);
else
return target_id;
}
int global_ids, int pid,
int show_global_ids)
{
- struct thread_info *tp;
- struct inferior *inf;
int default_inf_num = current_inferior ()->num;
update_thread_list ();
accommodate the largest entry. */
size_t target_id_col_width = 17;
- ALL_THREADS (tp)
+ for (thread_info *tp : all_threads ())
{
if (!should_print_thread (requested_threads, default_inf_num,
global_ids, pid, tp))
/* We'll be switching threads temporarily. */
scoped_restore_current_thread restore_thread;
- ALL_THREADS_BY_INFERIOR (inf, tp)
+ for (inferior *inf : all_inferiors ())
+ for (thread_info *tp : inf->threads ())
{
int core;
/* See gdbthread.h. */
void
-print_thread_info (struct ui_out *uiout, char *requested_threads, int pid)
+print_thread_info (struct ui_out *uiout, const char *requested_threads,
+ int pid)
{
print_thread_info_1 (uiout, requested_threads, 1, pid, 0);
}
return (a->per_inf_num > b->per_inf_num);
}
+/* Switch to thread THR and execute CMD.
+ FLAGS.QUIET controls the printing of the thread information.
+ FLAGS.CONT and FLAGS.SILENT control how to handle errors. */
+
+static void
+thr_try_catch_cmd (thread_info *thr, const char *cmd, int from_tty,
+ const qcs_flags &flags)
+{
+ switch_to_thread (thr);
+ try
+ {
+ std::string cmd_result = execute_command_to_string
+ (cmd, from_tty, gdb_stdout->term_out ());
+ if (!flags.silent || cmd_result.length () > 0)
+ {
+ if (!flags.quiet)
+ printf_filtered (_("\nThread %s (%s):\n"),
+ print_thread_id (thr),
+ target_pid_to_str (inferior_ptid).c_str ());
+ printf_filtered ("%s", cmd_result.c_str ());
+ }
+ }
+ catch (const gdb_exception_error &ex)
+ {
+ if (!flags.silent)
+ {
+ if (!flags.quiet)
+ printf_filtered (_("\nThread %s (%s):\n"),
+ print_thread_id (thr),
+ target_pid_to_str (inferior_ptid).c_str ());
+ if (flags.cont)
+ printf_filtered ("%s\n", ex.what ());
+ else
+ throw;
+ }
+ }
+}
+
/* Apply a GDB command to a list of threads. List syntax is a whitespace
separated list of numbers, or ranges, or the keyword `all'. Ranges consist
of two numbers separated by a hyphen. Examples:
static void
thread_apply_all_command (const char *cmd, int from_tty)
{
+ qcs_flags flags;
+
tp_array_compar_ascending = false;
- if (cmd != NULL
- && check_for_argument (&cmd, "-ascending", strlen ("-ascending")))
+
+ while (cmd != NULL)
{
- cmd = skip_spaces (cmd);
- tp_array_compar_ascending = true;
+ if (check_for_argument (&cmd, "-ascending", strlen ("-ascending")))
+ {
+ cmd = skip_spaces (cmd);
+ tp_array_compar_ascending = true;
+ continue;
+ }
+
+ if (parse_flags_qcs ("thread apply all", &cmd, &flags))
+ continue;
+
+ break;
}
if (cmd == NULL || *cmd == '\000')
- error (_("Please specify a command following the thread ID list"));
+ error (_("Please specify a command at the end of 'thread apply all'"));
update_thread_list ();
std::vector<thread_info *> thr_list_cpy;
thr_list_cpy.reserve (tc);
- {
- thread_info *tp;
-
- ALL_NON_EXITED_THREADS (tp)
- {
- thr_list_cpy.push_back (tp);
- }
-
- gdb_assert (thr_list_cpy.size () == tc);
- }
+ for (thread_info *tp : all_non_exited_threads ())
+ thr_list_cpy.push_back (tp);
+ gdb_assert (thr_list_cpy.size () == tc);
/* Increment the refcounts, and restore them back on scope
exit. */
for (thread_info *thr : thr_list_cpy)
if (thread_alive (thr))
- {
- switch_to_thread (thr);
- printf_filtered (_("\nThread %s (%s):\n"),
- print_thread_id (thr),
- target_pid_to_str (inferior_ptid));
-
- execute_command (cmd, from_tty);
- }
+ thr_try_catch_cmd (thr, cmd, from_tty, flags);
}
}
static void
thread_apply_command (const char *tidlist, int from_tty)
{
+ qcs_flags flags;
const char *cmd = NULL;
tid_range_parser parser;
int inf_num, thr_start, thr_end;
if (!parser.get_tid_range (&inf_num, &thr_start, &thr_end))
- {
- cmd = parser.cur_tok ();
- break;
- }
+ break;
}
- if (cmd == NULL)
+ cmd = parser.cur_tok ();
+
+ while (parse_flags_qcs ("thread apply", &cmd, &flags))
+ ;
+
+ if (*cmd == '\0')
error (_("Please specify a command following the thread ID list"));
- if (tidlist == cmd || !isalpha (cmd[0]))
+ if (tidlist == cmd || isdigit (cmd[0]))
invalid_thread_id_error (cmd);
scoped_restore_current_thread restore_thread;
parser.init (tidlist, current_inferior ()->num);
- while (!parser.finished () && parser.cur_tok () < cmd)
+ while (!parser.finished ())
{
struct thread_info *tp = NULL;
struct inferior *inf;
continue;
}
- switch_to_thread (tp);
-
- printf_filtered (_("\nThread %s (%s):\n"), print_thread_id (tp),
- target_pid_to_str (inferior_ptid));
- execute_command (cmd, from_tty);
+ thr_try_catch_cmd (tp, cmd, from_tty, flags);
}
}
+
+/* Implementation of the "taas" command. */
+
+static void
+taas_command (const char *cmd, int from_tty)
+{
+ std::string expanded = std::string ("thread apply all -s ") + cmd;
+ execute_command (expanded.c_str (), from_tty);
+}
+
+/* Implementation of the "tfaas" command. */
+
+static void
+tfaas_command (const char *cmd, int from_tty)
+{
+ std::string expanded
+ = std::string ("thread apply all -s -- frame apply all -s ") + cmd;
+ execute_command (expanded.c_str (), from_tty);
+}
+
/* Switch to the specified thread, or print the current thread. */
void
if (tp->state == THREAD_EXITED)
printf_filtered (_("[Current thread is %s (%s) (exited)]\n"),
print_thread_id (tp),
- target_pid_to_str (inferior_ptid));
+ target_pid_to_str (inferior_ptid).c_str ());
else
printf_filtered (_("[Current thread is %s (%s)]\n"),
print_thread_id (tp),
- target_pid_to_str (inferior_ptid));
+ target_pid_to_str (inferior_ptid).c_str ());
}
else
error (_("No stack."));
static void
thread_find_command (const char *arg, int from_tty)
{
- struct thread_info *tp;
const char *tmp;
unsigned long match = 0;
error (_("Invalid regexp (%s): %s"), tmp, arg);
update_thread_list ();
- for (tp = thread_list; tp; tp = tp->next)
+ for (thread_info *tp : all_threads ())
{
if (tp->name != NULL && re_exec (tp->name))
{
match++;
}
- tmp = target_pid_to_str (tp->ptid);
- if (tmp != NULL && re_exec (tmp))
+ std::string name = target_pid_to_str (tp->ptid);
+ if (!name.empty () && re_exec (name.c_str ()))
{
printf_filtered (_("Thread %s has target id '%s'\n"),
- print_thread_id (tp), tmp);
+ print_thread_id (tp), name.c_str ());
match++;
}
uiout->text ("[Switching to thread ");
uiout->field_string ("new-thread-id", print_thread_id (tp));
uiout->text (" (");
- uiout->text (target_pid_to_str (inferior_ptid));
+ uiout->text (target_pid_to_str (inferior_ptid).c_str ());
uiout->text (")]");
}
}
static void
update_threads_executing (void)
{
- struct thread_info *tp;
-
threads_executing = 0;
- ALL_NON_EXITED_THREADS (tp)
+ for (thread_info *tp : all_non_exited_threads ())
{
if (tp->executing)
{
_initialize_thread (void)
{
static struct cmd_list_element *thread_apply_list = NULL;
+ cmd_list_element *c;
add_info ("threads", info_threads_command,
_("Display currently known threads.\n\
The new thread ID must be currently known."),
&thread_cmd_list, "thread ", 1, &cmdlist);
+#define THREAD_APPLY_FLAGS_HELP "\
+Prints per-inferior thread number and target system's thread id\n\
+followed by COMMAND output.\n\
+FLAG arguments are -q (quiet), -c (continue), -s (silent).\n\
+Flag -q disables printing the thread information.\n\
+By default, if a COMMAND raises an error, thread apply is aborted.\n\
+Flag -c indicates to print the error and continue.\n\
+Flag -s indicates to silently ignore a COMMAND that raises an error\n\
+or produces no output."
+
add_prefix_cmd ("apply", class_run, thread_apply_command,
_("Apply a command to a list of threads.\n\
-Usage: thread apply ID... COMMAND\n\
-ID is a space-separated list of IDs of threads to apply COMMAND on."),
+Usage: thread apply ID... [FLAG]... COMMAND\n\
+ID is a space-separated list of IDs of threads to apply COMMAND on.\n"
+THREAD_APPLY_FLAGS_HELP),
&thread_apply_list, "thread apply ", 1, &thread_cmd_list);
add_cmd ("all", class_run, thread_apply_all_command,
_("\
Apply a command to all threads.\n\
\n\
-Usage: thread apply all [-ascending] COMMAND\n\
+Usage: thread apply all [-ascending] [FLAG]... COMMAND\n\
-ascending: Call COMMAND for all threads in ascending order.\n\
- The default is descending order.\
-"),
+ The default is descending order.\n"
+THREAD_APPLY_FLAGS_HELP),
&thread_apply_list);
+ add_com ("taas", class_run, taas_command, _("\
+Apply a command to all threads (ignoring errors and empty output).\n\
+Usage: taas COMMAND\n\
+shortcut for 'thread apply all -s COMMAND'"));
+
+ c = add_com ("tfaas", class_run, tfaas_command, _("\
+Apply a command to all frames of all threads (ignoring errors and empty output).\n\
+Usage: tfaas [OPTION]... COMMAND\n\
+shortcut for 'thread apply all -s -- frame apply all -s [OPTION]... COMMAND'\n\
+See \"help frame apply all\" for available options."));
+ set_cmd_completer_handle_brkchars (c, frame_apply_all_cmd_completer);
+
add_cmd ("name", class_run, thread_name_command,
_("Set the current thread's name.\n\
Usage: thread name [NAME]\n\