[gdb/testsuite] Fix regexp in skip_opencl_tests
[external/binutils.git] / gdb / progspace-and-thread.c
1 /* Copyright (C) 2009-2019 Free Software Foundation, Inc.
2
3    This file is part of GDB.
4
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.
9
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.
14
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/>.  */
17
18 #include "defs.h"
19 #include "progspace-and-thread.h"
20 #include "inferior.h"
21
22 /* See progspace-and-thread.h  */
23
24 void
25 switch_to_program_space_and_thread (program_space *pspace)
26 {
27   inferior *inf = find_inferior_for_program_space (pspace);
28
29   if (inf != NULL && inf->pid != 0)
30     {
31       thread_info *tp = any_live_thread_of_inferior (inf);
32
33       if (tp != NULL)
34         {
35           switch_to_thread (tp);
36           /* Switching thread switches pspace implicitly.  We're
37              done.  */
38           return;
39         }
40     }
41
42   switch_to_no_thread ();
43   set_current_program_space (pspace);
44 }