2011-05-27 16:00:25 +02:00
|
|
|
/* Continuations for GDB, the GNU debugger.
|
|
|
|
|
2013-01-01 07:33:28 +01:00
|
|
|
Copyright (C) 1986-2013 Free Software Foundation, Inc.
|
2011-05-27 16:00:25 +02:00
|
|
|
|
|
|
|
This file is part of GDB.
|
|
|
|
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
|
|
it under the terms of the GNU General Public License as published by
|
|
|
|
the Free Software Foundation; either version 3 of the License, or
|
|
|
|
(at your option) any later version.
|
|
|
|
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
GNU General Public License for more details.
|
|
|
|
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
|
|
along with this program. If not, see <http://www.gnu.org/licenses/>. */
|
|
|
|
|
|
|
|
#include "defs.h"
|
|
|
|
#include "gdbthread.h"
|
|
|
|
#include "inferior.h"
|
2011-05-27 Pedro Alves <pedro@codesourcery.com>
* defs.h (struct continuation, continuation_ftype)
(continuation_free_arg_ftype, add_continuation)
(do_all_continuations, do_all_continuations_thread)
(discard_all_continuations, discard_all_continuations_thread)
(add_intermediate_continuation, do_all_intermediate_continuations)
(do_all_intermediate_continuations_thread)
(discard_all_intermediate_continuations)
(discard_all_intermediate_continuations_thread)
(add_inferior_continuation, do_all_inferior_continuations)
(discard_all_inferior_continuations): Move to ...
* continuations.h: ... this new file.
* breakpoint.c, continuations.c, event-top.c, inf-loop.c,
infcmd.c, inferior.c, infrun.c, interps.c: Include
continuations.h.
2011-05-27 20:28:18 +02:00
|
|
|
#include "continuations.h"
|
2011-05-27 16:00:25 +02:00
|
|
|
|
|
|
|
struct continuation
|
|
|
|
{
|
|
|
|
struct continuation *next;
|
2011-05-27 16:56:14 +02:00
|
|
|
continuation_ftype *function;
|
|
|
|
continuation_free_arg_ftype *free_arg;
|
2011-05-27 16:00:25 +02:00
|
|
|
void *arg;
|
|
|
|
};
|
|
|
|
|
2011-05-27 16:32:08 +02:00
|
|
|
/* Add a new continuation to the continuation chain. Args are
|
|
|
|
FUNCTION to run the continuation up with, and ARG to pass to
|
|
|
|
it. */
|
2011-05-27 16:00:25 +02:00
|
|
|
|
2011-05-27 16:32:08 +02:00
|
|
|
static void
|
2011-05-27 16:00:25 +02:00
|
|
|
make_continuation (struct continuation **pmy_chain,
|
2011-05-27 16:56:14 +02:00
|
|
|
continuation_ftype *function,
|
2011-05-27 16:00:25 +02:00
|
|
|
void *arg, void (*free_arg) (void *))
|
|
|
|
{
|
|
|
|
struct continuation *new = XNEW (struct continuation);
|
|
|
|
|
|
|
|
new->next = *pmy_chain;
|
|
|
|
new->function = function;
|
|
|
|
new->free_arg = free_arg;
|
|
|
|
new->arg = arg;
|
|
|
|
*pmy_chain = new;
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
2011-05-30 20:04:32 +02:00
|
|
|
do_my_continuations_1 (struct continuation **pmy_chain, int err)
|
2011-05-27 16:00:25 +02:00
|
|
|
{
|
|
|
|
struct continuation *ptr;
|
|
|
|
|
2011-05-27 16:32:08 +02:00
|
|
|
while ((ptr = *pmy_chain) != NULL)
|
2011-05-27 16:00:25 +02:00
|
|
|
{
|
|
|
|
*pmy_chain = ptr->next; /* Do this first in case of recursion. */
|
2011-05-30 20:04:32 +02:00
|
|
|
(*ptr->function) (ptr->arg, err);
|
2011-05-27 16:00:25 +02:00
|
|
|
if (ptr->free_arg)
|
|
|
|
(*ptr->free_arg) (ptr->arg);
|
|
|
|
xfree (ptr);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2011-05-27 16:32:08 +02:00
|
|
|
static void
|
2011-05-30 20:04:32 +02:00
|
|
|
do_my_continuations (struct continuation **list, int err)
|
2011-05-27 16:32:08 +02:00
|
|
|
{
|
|
|
|
struct continuation *continuations;
|
|
|
|
|
|
|
|
if (*list == NULL)
|
|
|
|
return;
|
|
|
|
|
|
|
|
/* Copy the list header into another pointer, and set the global
|
|
|
|
list header to null, so that the global list can change as a side
|
|
|
|
effect of invoking the continuations and the processing of the
|
|
|
|
preexisting continuations will not be affected. */
|
|
|
|
|
|
|
|
continuations = *list;
|
|
|
|
*list = NULL;
|
|
|
|
|
|
|
|
/* Work now on the list we have set aside. */
|
2011-05-30 20:04:32 +02:00
|
|
|
do_my_continuations_1 (&continuations, err);
|
2011-05-27 16:32:08 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
discard_my_continuations_1 (struct continuation **pmy_chain)
|
2011-05-27 16:00:25 +02:00
|
|
|
{
|
|
|
|
struct continuation *ptr;
|
|
|
|
|
2011-05-27 16:32:08 +02:00
|
|
|
while ((ptr = *pmy_chain) != NULL)
|
2011-05-27 16:00:25 +02:00
|
|
|
{
|
|
|
|
*pmy_chain = ptr->next;
|
|
|
|
if (ptr->free_arg)
|
|
|
|
(*ptr->free_arg) (ptr->arg);
|
|
|
|
xfree (ptr);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2011-05-27 16:32:08 +02:00
|
|
|
static void
|
|
|
|
discard_my_continuations (struct continuation **list)
|
2011-05-27 16:00:25 +02:00
|
|
|
{
|
2011-05-27 16:32:08 +02:00
|
|
|
struct continuation *continuation_ptr = *list;
|
2011-05-27 16:00:25 +02:00
|
|
|
|
2011-05-27 16:32:08 +02:00
|
|
|
discard_my_continuations_1 (list);
|
|
|
|
*list = NULL;
|
2011-05-27 16:00:25 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
/* Add a continuation to the continuation list of INFERIOR. The new
|
|
|
|
continuation will be added at the front. */
|
|
|
|
|
|
|
|
void
|
2011-05-27 16:56:14 +02:00
|
|
|
add_inferior_continuation (continuation_ftype *hook, void *args,
|
|
|
|
continuation_free_arg_ftype *free_arg)
|
2011-05-27 16:00:25 +02:00
|
|
|
{
|
|
|
|
struct inferior *inf = current_inferior ();
|
|
|
|
|
2011-05-27 16:56:14 +02:00
|
|
|
make_continuation (&inf->continuations, hook, args, free_arg);
|
2011-05-27 16:00:25 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
/* Do all continuations of the current inferior. */
|
|
|
|
|
|
|
|
void
|
2011-05-30 20:04:32 +02:00
|
|
|
do_all_inferior_continuations (int err)
|
2011-05-27 16:00:25 +02:00
|
|
|
{
|
|
|
|
struct inferior *inf = current_inferior ();
|
2011-05-30 20:04:32 +02:00
|
|
|
do_my_continuations (&inf->continuations, err);
|
2011-05-27 16:00:25 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
/* Get rid of all the inferior-wide continuations of INF. */
|
|
|
|
|
|
|
|
void
|
|
|
|
discard_all_inferior_continuations (struct inferior *inf)
|
|
|
|
{
|
2011-05-27 16:32:08 +02:00
|
|
|
discard_my_continuations (&inf->continuations);
|
|
|
|
}
|
2011-05-27 16:00:25 +02:00
|
|
|
|
2011-05-27 16:32:08 +02:00
|
|
|
/* Add a continuation to the continuation list of THREAD. The new
|
|
|
|
continuation will be added at the front. */
|
|
|
|
|
|
|
|
void
|
|
|
|
add_continuation (struct thread_info *thread,
|
2011-05-27 16:56:14 +02:00
|
|
|
continuation_ftype *hook, void *args,
|
|
|
|
continuation_free_arg_ftype *free_arg)
|
2011-05-27 16:32:08 +02:00
|
|
|
{
|
2011-05-27 16:56:14 +02:00
|
|
|
make_continuation (&thread->continuations, hook, args, free_arg);
|
2011-05-27 16:00:25 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
restore_thread_cleanup (void *arg)
|
|
|
|
{
|
|
|
|
ptid_t *ptid_p = arg;
|
|
|
|
|
|
|
|
switch_to_thread (*ptid_p);
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Walk down the continuation list of PTID, and execute all the
|
|
|
|
continuations. There is a problem though. In some cases new
|
|
|
|
continuations may be added while we are in the middle of this loop.
|
|
|
|
If this happens they will be added in the front, and done before we
|
|
|
|
have a chance of exhausting those that were already there. We need
|
|
|
|
to then save the beginning of the list in a pointer and do the
|
|
|
|
continuations from there on, instead of using the global beginning
|
|
|
|
of list as our iteration pointer. */
|
|
|
|
|
|
|
|
static void
|
|
|
|
do_all_continuations_ptid (ptid_t ptid,
|
2011-05-30 20:04:32 +02:00
|
|
|
struct continuation **continuations_p,
|
|
|
|
int err)
|
2011-05-27 16:00:25 +02:00
|
|
|
{
|
|
|
|
struct cleanup *old_chain;
|
|
|
|
ptid_t current_thread;
|
|
|
|
|
|
|
|
if (*continuations_p == NULL)
|
|
|
|
return;
|
|
|
|
|
|
|
|
current_thread = inferior_ptid;
|
|
|
|
|
|
|
|
/* Restore selected thread on exit. Don't try to restore the frame
|
|
|
|
as well, because:
|
|
|
|
|
|
|
|
- When running continuations, the selected frame is always #0.
|
|
|
|
|
|
|
|
- The continuations may trigger symbol file loads, which may
|
|
|
|
change the frame layout (frame ids change), which would trigger
|
|
|
|
a warning if we used make_cleanup_restore_current_thread. */
|
|
|
|
|
|
|
|
old_chain = make_cleanup (restore_thread_cleanup, ¤t_thread);
|
|
|
|
|
|
|
|
/* Let the continuation see this thread as selected. */
|
|
|
|
switch_to_thread (ptid);
|
|
|
|
|
2011-05-30 20:04:32 +02:00
|
|
|
do_my_continuations (continuations_p, err);
|
2011-05-27 16:00:25 +02:00
|
|
|
|
|
|
|
do_cleanups (old_chain);
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Callback for iterate over threads. */
|
|
|
|
|
|
|
|
static int
|
|
|
|
do_all_continuations_thread_callback (struct thread_info *thread, void *data)
|
|
|
|
{
|
2011-05-30 20:04:32 +02:00
|
|
|
int err = * (int *) data;
|
|
|
|
do_all_continuations_ptid (thread->ptid, &thread->continuations, err);
|
2011-05-27 16:00:25 +02:00
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Do all continuations of thread THREAD. */
|
|
|
|
|
|
|
|
void
|
2011-05-30 20:04:32 +02:00
|
|
|
do_all_continuations_thread (struct thread_info *thread, int err)
|
2011-05-27 16:00:25 +02:00
|
|
|
{
|
2011-05-30 20:04:32 +02:00
|
|
|
do_all_continuations_thread_callback (thread, &err);
|
2011-05-27 16:00:25 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
/* Do all continuations of all threads. */
|
|
|
|
|
|
|
|
void
|
2011-05-30 20:04:32 +02:00
|
|
|
do_all_continuations (int err)
|
2011-05-27 16:00:25 +02:00
|
|
|
{
|
2011-05-30 20:04:32 +02:00
|
|
|
iterate_over_threads (do_all_continuations_thread_callback, &err);
|
2011-05-27 16:00:25 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
/* Callback for iterate over threads. */
|
|
|
|
|
|
|
|
static int
|
|
|
|
discard_all_continuations_thread_callback (struct thread_info *thread,
|
|
|
|
void *data)
|
|
|
|
{
|
2011-05-27 16:32:08 +02:00
|
|
|
discard_my_continuations (&thread->continuations);
|
2011-05-27 16:00:25 +02:00
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Get rid of all the continuations of THREAD. */
|
|
|
|
|
|
|
|
void
|
|
|
|
discard_all_continuations_thread (struct thread_info *thread)
|
|
|
|
{
|
|
|
|
discard_all_continuations_thread_callback (thread, NULL);
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Get rid of all the continuations of all threads. */
|
|
|
|
|
|
|
|
void
|
|
|
|
discard_all_continuations (void)
|
|
|
|
{
|
|
|
|
iterate_over_threads (discard_all_continuations_thread_callback, NULL);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/* Add a continuation to the intermediate continuation list of THREAD.
|
|
|
|
The new continuation will be added at the front. */
|
|
|
|
|
|
|
|
void
|
|
|
|
add_intermediate_continuation (struct thread_info *thread,
|
2011-05-27 16:56:14 +02:00
|
|
|
continuation_ftype *hook,
|
|
|
|
void *args,
|
|
|
|
continuation_free_arg_ftype *free_arg)
|
2011-05-27 16:00:25 +02:00
|
|
|
{
|
2011-05-27 16:56:14 +02:00
|
|
|
make_continuation (&thread->intermediate_continuations, hook,
|
|
|
|
args, free_arg);
|
2011-05-27 16:00:25 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
/* Walk down the cmd_continuation list, and execute all the
|
|
|
|
continuations. There is a problem though. In some cases new
|
|
|
|
continuations may be added while we are in the middle of this
|
|
|
|
loop. If this happens they will be added in the front, and done
|
|
|
|
before we have a chance of exhausting those that were already
|
|
|
|
there. We need to then save the beginning of the list in a pointer
|
|
|
|
and do the continuations from there on, instead of using the
|
|
|
|
global beginning of list as our iteration pointer. */
|
|
|
|
|
|
|
|
static int
|
|
|
|
do_all_intermediate_continuations_thread_callback (struct thread_info *thread,
|
|
|
|
void *data)
|
|
|
|
{
|
2011-05-30 20:04:32 +02:00
|
|
|
int err = * (int *) data;
|
|
|
|
|
2011-05-27 16:00:25 +02:00
|
|
|
do_all_continuations_ptid (thread->ptid,
|
2011-05-30 20:04:32 +02:00
|
|
|
&thread->intermediate_continuations, err);
|
2011-05-27 16:00:25 +02:00
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Do all intermediate continuations of thread THREAD. */
|
|
|
|
|
|
|
|
void
|
2011-05-30 20:04:32 +02:00
|
|
|
do_all_intermediate_continuations_thread (struct thread_info *thread, int err)
|
2011-05-27 16:00:25 +02:00
|
|
|
{
|
2011-05-30 20:04:32 +02:00
|
|
|
do_all_intermediate_continuations_thread_callback (thread, &err);
|
2011-05-27 16:00:25 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
/* Do all intermediate continuations of all threads. */
|
|
|
|
|
|
|
|
void
|
2011-05-30 20:04:32 +02:00
|
|
|
do_all_intermediate_continuations (int err)
|
2011-05-27 16:00:25 +02:00
|
|
|
{
|
|
|
|
iterate_over_threads (do_all_intermediate_continuations_thread_callback,
|
2011-05-30 20:04:32 +02:00
|
|
|
&err);
|
2011-05-27 16:00:25 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
/* Callback for iterate over threads. */
|
|
|
|
|
|
|
|
static int
|
|
|
|
discard_all_intermediate_continuations_thread_callback (struct thread_info *thread,
|
|
|
|
void *data)
|
|
|
|
{
|
2011-05-27 16:32:08 +02:00
|
|
|
discard_my_continuations (&thread->intermediate_continuations);
|
2011-05-27 16:00:25 +02:00
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Get rid of all the intermediate continuations of THREAD. */
|
|
|
|
|
|
|
|
void
|
|
|
|
discard_all_intermediate_continuations_thread (struct thread_info *thread)
|
|
|
|
{
|
|
|
|
discard_all_intermediate_continuations_thread_callback (thread, NULL);
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Get rid of all the intermediate continuations of all threads. */
|
|
|
|
|
|
|
|
void
|
|
|
|
discard_all_intermediate_continuations (void)
|
|
|
|
{
|
|
|
|
iterate_over_threads (discard_all_intermediate_continuations_thread_callback,
|
|
|
|
NULL);
|
|
|
|
}
|