1 /* Copyright (C) 2003 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
3 Contributed by Jakub Jelinek <jakub@redhat.com>, 2003.
5 The GNU C Library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Lesser General Public
7 License as published by the Free Software Foundation; either
8 version 2.1 of the License, or (at your option) any later version.
10 The GNU C Library 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 GNU
13 Lesser General Public License for more details.
15 You should have received a copy of the GNU Lesser General Public
16 License along with the GNU C Library; if not, write to the Free
17 Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
29 static pthread_barrier_t b
;
30 volatile int in_sh_body
;
31 unsigned long cleanups
;
36 cleanups
= (cleanups
<< 4) | (long) arg
;
40 static void __attribute__((noinline
))
45 pthread_cleanup_push (cl
, (void *) 1L);
48 if (read (fd
[2], &c
, 1) == 1)
50 puts ("read succeeded");
54 pthread_cleanup_pop (0);
61 pthread_cleanup_push (cl
, (void *) 2L);
65 pthread_cleanup_pop (0);
69 static void __attribute__((noinline
))
74 pthread_cleanup_push (cl
, (void *) 3L);
76 int r
= pthread_barrier_wait (&b
);
77 if (r
!= 0 && r
!= PTHREAD_BARRIER_SERIAL_THREAD
)
79 puts ("child thread: barrier_wait failed");
83 if (read (fd
[0], &c
, 1) == 1)
85 puts ("read succeeded");
91 pthread_cleanup_pop (0);
98 pthread_cleanup_push (cl
, (void *) 4L);
100 pthread_cleanup_pop (0);
109 if (pipe (fd
) != 0 || pipe (fd
+ 2) != 0)
111 puts ("pipe failed");
116 if (pthread_create (&th
, NULL
, tf
, NULL
) != 0)
118 puts ("create failed");
122 int r
= pthread_barrier_wait (&b
);
123 if (r
!= 0 && r
!= PTHREAD_BARRIER_SERIAL_THREAD
)
125 puts ("parent thread: barrier_wait failed");
131 r
= pthread_kill (th
, SIGHUP
);
135 printf ("pthread_kill failed %m\n");
139 while (in_sh_body
== 0)
142 if (pthread_cancel (th
) != 0)
144 puts ("cancel failed");
148 /* This will cause the read in the child to return. */
155 if (pthread_join (th
, &ret
) != 0)
157 puts ("join failed");
161 if (ret
!= PTHREAD_CANCELED
)
163 puts ("result is wrong");
167 if (cleanups
!= 0x1234L
)
169 printf ("called cleanups %lx\n", cleanups
);
181 ss
.ss_sp
= malloc (2 * SIGSTKSZ
);
182 if (ss
.ss_sp
== NULL
)
184 puts ("failed to allocate alternate stack");
188 ss
.ss_size
= 2 * SIGSTKSZ
;
189 if (sigaltstack (&ss
, NULL
) < 0)
191 printf ("sigaltstack failed %m\n");
195 if (pthread_barrier_init (&b
, NULL
, 2) != 0)
197 puts ("barrier_init failed");
203 sigemptyset (&sa
.sa_mask
);
206 if (sigaction (SIGHUP
, &sa
, NULL
) != 0)
208 puts ("sigaction failed");
212 puts ("sa_flags = 0 test");
217 sigemptyset (&sa
.sa_mask
);
218 sa
.sa_flags
= SA_ONSTACK
;
220 if (sigaction (SIGHUP
, &sa
, NULL
) != 0)
222 puts ("sigaction failed");
226 puts ("sa_flags = SA_ONSTACK test");
230 sa
.sa_sigaction
= (void (*)(int, siginfo_t
*, void *)) sh
;
231 sigemptyset (&sa
.sa_mask
);
232 sa
.sa_flags
= SA_SIGINFO
;
234 if (sigaction (SIGHUP
, &sa
, NULL
) != 0)
236 puts ("sigaction failed");
240 puts ("sa_flags = SA_SIGINFO test");
244 sa
.sa_sigaction
= (void (*)(int, siginfo_t
*, void *)) sh
;
245 sigemptyset (&sa
.sa_mask
);
246 sa
.sa_flags
= SA_SIGINFO
| SA_ONSTACK
;
248 if (sigaction (SIGHUP
, &sa
, NULL
) != 0)
250 puts ("sigaction failed");
254 puts ("sa_flags = SA_SIGINFO|SA_ONSTACK test");
262 #define TEST_FUNCTION do_test ()
263 #include "../test-skeleton.c"