gdb/linux: Delete all other LWPs immediately on ptrace exec event
[binutils-gdb.git] / gdb / testsuite / gdb.threads / threads-after-exec.c
1 /* This testcase is part of GDB, the GNU debugger.
2
3 Copyright 2023 Free Software Foundation, Inc.
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 <pthread.h>
19 #include <unistd.h>
20 #include <stdlib.h>
21 #include <stdio.h>
22
23 static char *program_name;
24
25 void *
26 thread_execler (void *arg)
27 {
28 /* Exec ourselves again, but with an extra argument, to avoid
29 infinite recursion. */
30 if (execl (program_name, program_name, "1", NULL) == -1)
31 {
32 perror ("execl");
33 abort ();
34 }
35
36 return NULL;
37 }
38
39 int
40 main (int argc, char **argv)
41 {
42 pthread_t thread;
43
44 if (argc > 1)
45 {
46 /* Getting here via execl. */
47 return 0;
48 }
49
50 program_name = argv[0];
51
52 pthread_create (&thread, NULL, thread_execler, NULL);
53 pthread_join (thread, NULL);
54
55 return 0;
56 }