(Ada) problem printing renaming which references a subprogram parameter
[binutils-gdb.git] / gdb / progspace-and-thread.c
blob27d626b05f8c26a2c5bcc16d5df55ccaa2643fa7
1 /* Copyright (C) 2009-2018 Free Software Foundation, Inc.
3 This file is part of GDB.
5 This program is free software; you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published by
7 the Free Software Foundation; either version 3 of the License, or
8 (at your option) any later version.
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with this program. If not, see <http://www.gnu.org/licenses/>. */
18 #include "defs.h"
19 #include "progspace-and-thread.h"
21 /* See progspace-and-thread.h */
23 void
24 switch_to_program_space_and_thread (program_space *pspace)
26 inferior *inf = find_inferior_for_program_space (pspace);
28 if (inf != NULL && inf->pid != 0)
30 thread_info *tp = any_live_thread_of_process (inf->pid);
32 if (tp != NULL)
34 switch_to_thread (tp->ptid);
35 /* Switching thread switches pspace implicitly. We're
36 done. */
37 return;
41 switch_to_thread (null_ptid);
42 set_current_program_space (pspace);