xref: /netbsd-src/external/gpl3/gdb.old/dist/gdb/testsuite/gdb.threads/non-ldr-exc-4.c (revision fdd524d4ccd2bb0c6f67401e938dabf773eb0372)
1 /* This testcase is part of GDB, the GNU debugger.
2 
3    Copyright 2009-2015 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 <assert.h>
22 
23 static const char *image;
24 static pthread_barrier_t barrier;
25 static char *argv1 = "go away";
26 
27 static void *
28 thread_execler (void *arg)
29 {
30   int i;
31 
32   pthread_barrier_wait (&barrier);
33 
34   /* Exec ourselves again.  */
35   if (execl (image, image, argv1, NULL) == -1) /* break-here */
36     {
37       perror ("execl");
38       abort ();
39     }
40 
41   return NULL;
42 }
43 
44 static void *
45 just_loop (void *arg)
46 {
47   unsigned int i;
48 
49   pthread_barrier_wait (&barrier);
50 
51   for (i = 1; i > 0; i++)
52     usleep (1);
53 
54   return NULL;
55 }
56 
57 #define THREADS 5
58 
59 pthread_t loop_thread[THREADS];
60 
61 int
62 main (int argc, char **argv)
63 {
64   pthread_t thread;
65   int i, t;
66 
67   image = argv[0];
68 
69   /* Pass "inf" as argument to keep re-execing ad infinitum, which can
70      be useful for manual testing.  Passing any other argument exits
71      immediately (and that's what the execl above does by
72      default).  */
73   if (argc == 2 && strcmp (argv[1], "inf") == 0)
74     argv1 = argv[1];
75   else if (argc > 1)
76     exit (0);
77 
78   pthread_barrier_init (&barrier, NULL, 2 + THREADS);
79 
80   i = pthread_create (&thread, NULL, thread_execler, NULL);
81   assert (i == 0);
82 
83   for (t = 0; t < THREADS; t++)
84     {
85       i = pthread_create (&loop_thread[t], NULL, just_loop, NULL);
86       assert (i == 0);
87     }
88 
89   pthread_barrier_wait (&barrier);
90   pthread_join (thread, NULL);
91   return 0;
92 }
93