l4/pkg/uclibc/lib/contrib/uclibc/test/nptl/tst-cancel20.c

   1 /* Copyright (C) 2003, 2004 Free Software Foundation, Inc.
   2    This file is part of the GNU C Library.
   3    Contributed by Jakub Jelinek <jakub@redhat.com>, 2003.
   4
   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.
   9
  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.
  14
  15    You should have received a copy of the GNU Lesser General Public
  16    License along with the GNU C Library; if not, see
  17    <http://www.gnu.org/licenses/>.  */
  18
  19 #include <errno.h>
  20 #include <pthread.h>
  21 #include <signal.h>
  22 #include <stdio.h>
  23 #include <stdlib.h>
  24 #include <unistd.h>
  25
  26
  27 static int fd[4];
  28 static pthread_barrier_t b;
  29 volatile int in_sh_body;
  30 unsigned long cleanups;
  31
  32 static void
  33 cl (void *arg)
  34 {
  35   cleanups = (cleanups << 4) | (long) arg;
  36 }
  37
  38
  39 static void __attribute__((noinline))
  40 sh_body (void)
  41 {
  42   char c;
  43
  44   pthread_cleanup_push (cl, (void *) 1L);
  45
  46   in_sh_body = 1;
  47   if (read (fd[2], &c, 1) == 1)
  48     {
  49       puts ("read succeeded");
  50       exit (1);
  51     }
  52
  53   pthread_cleanup_pop (0);
  54 }
  55
  56
  57 static void
  58 sh (int sig)
  59 {
  60   pthread_cleanup_push (cl, (void *) 2L);
  61   sh_body ();
  62   in_sh_body = 0;
  63
  64   pthread_cleanup_pop (0);
  65 }
  66
  67
  68 static void __attribute__((noinline))
  69 tf_body (void)
  70 {
  71   char c;
  72
  73   pthread_cleanup_push (cl, (void *) 3L);
  74
  75   int r = pthread_barrier_wait (&b);
  76   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
  77     {
  78       puts ("child thread: barrier_wait failed");
  79       exit (1);
  80     }
  81
  82   if (read (fd[0], &c, 1) == 1)
  83     {
  84       puts ("read succeeded");
  85       exit (1);
  86     }
  87
  88   read (fd[0], &c, 1);
  89
  90   pthread_cleanup_pop (0);
  91 }
  92
  93
  94 static void *
  95 tf (void *arg)
  96 {
  97   pthread_cleanup_push (cl, (void *) 4L);
  98   tf_body ();
  99   pthread_cleanup_pop (0);
 100   return NULL;
 101 }
 102
 103
 104 static int
 105 do_one_test (void)
 106 {
 107   in_sh_body = 0;
 108   cleanups = 0;
 109   if (pipe (fd) != 0 || pipe (fd + 2) != 0)
 110     {
 111       puts ("pipe failed");
 112       return 1;
 113     }
 114
 115   pthread_t th;
 116   if (pthread_create (&th, NULL, tf, NULL) != 0)
 117     {
 118       puts ("create failed");
 119       return 1;
 120     }
 121
 122   int r = pthread_barrier_wait (&b);
 123   if (r != 0 && r != PTHREAD_BARRIER_SERIAL_THREAD)
 124     {
 125       puts ("parent thread: barrier_wait failed");
 126       return 1;
 127     }
 128
 129   sleep (1);
 130
 131   r = pthread_kill (th, SIGHUP);
 132   if (r)
 133     {
 134       errno = r;
 135       printf ("pthread_kill failed %m\n");
 136       return 1;
 137     }
 138
 139   while (in_sh_body == 0)
 140     sleep (1);
 141
 142   if (pthread_cancel (th) != 0)
 143     {
 144       puts ("cancel failed");
 145       return 1;
 146     }
 147
 148   /* This will cause the read in the child to return.  */
 149   close (fd[0]);
 150   close (fd[1]);
 151   close (fd[2]);
 152   close (fd[3]);
 153
 154   void *ret;
 155   if (pthread_join (th, &ret) != 0)
 156     {
 157       puts ("join failed");
 158       return 1;
 159     }
 160
 161   if (ret != PTHREAD_CANCELED)
 162     {
 163       puts ("result is wrong");
 164       return 1;
 165     }
 166
 167   if (cleanups != 0x1234L)
 168     {
 169       printf ("called cleanups %lx\n", cleanups);
 170       return 1;
 171     }
 172
 173   return 0;
 174 }
 175
 176
 177 static int
 178 do_test (void)
 179 {
 180   stack_t ss;
 181   ss.ss_sp = malloc (2 * SIGSTKSZ);
 182   if (ss.ss_sp == NULL)
 183     {
 184       puts ("failed to allocate alternate stack");
 185       return 1;
 186     }
 187   ss.ss_flags = 0;
 188   ss.ss_size = 2 * SIGSTKSZ;
 189   if (sigaltstack (&ss, NULL) < 0)
 190     {
 191       printf ("sigaltstack failed %m\n");
 192       return 1;
 193     }
 194
 195   if (pthread_barrier_init (&b, NULL, 2) != 0)
 196     {
 197       puts ("barrier_init failed");
 198       return 1;
 199     }
 200
 201   struct sigaction sa;
 202   sa.sa_handler = sh;
 203   sigemptyset (&sa.sa_mask);
 204   sa.sa_flags = 0;
 205
 206   if (sigaction (SIGHUP, &sa, NULL) != 0)
 207     {
 208       puts ("sigaction failed");
 209       return 1;
 210     }
 211
 212   puts ("sa_flags = 0 test");
 213   if (do_one_test ())
 214     return 1;
 215
 216   sa.sa_handler = sh;
 217   sigemptyset (&sa.sa_mask);
 218   sa.sa_flags = SA_ONSTACK;
 219
 220   if (sigaction (SIGHUP, &sa, NULL) != 0)
 221     {
 222       puts ("sigaction failed");
 223       return 1;
 224     }
 225
 226   puts ("sa_flags = SA_ONSTACK test");
 227   if (do_one_test ())
 228     return 1;
 229
 230   sa.sa_sigaction = (void (*)(int, siginfo_t *, void *)) sh;
 231   sigemptyset (&sa.sa_mask);
 232   sa.sa_flags = SA_SIGINFO;
 233
 234   if (sigaction (SIGHUP, &sa, NULL) != 0)
 235     {
 236       puts ("sigaction failed");
 237       return 1;
 238     }
 239
 240   puts ("sa_flags = SA_SIGINFO test");
 241   if (do_one_test ())
 242     return 1;
 243
 244   sa.sa_sigaction = (void (*)(int, siginfo_t *, void *)) sh;
 245   sigemptyset (&sa.sa_mask);
 246   sa.sa_flags = SA_SIGINFO | SA_ONSTACK;
 247
 248   if (sigaction (SIGHUP, &sa, NULL) != 0)
 249     {
 250       puts ("sigaction failed");
 251       return 1;
 252     }
 253
 254   puts ("sa_flags = SA_SIGINFO|SA_ONSTACK test");
 255   if (do_one_test ())
 256     return 1;
 257
 258   return 0;
 259 }
 260
 261 #define TIMEOUT 40
 262 #define TEST_FUNCTION do_test ()
 263 #include "../test-skeleton.c"