1  /* Copyright (C) 2002-2023 Free Software Foundation, Inc.
       2     This file is part of the GNU C Library.
       3  
       4     The GNU C Library is free software; you can redistribute it and/or
       5     modify it under the terms of the GNU Lesser General Public
       6     License as published by the Free Software Foundation; either
       7     version 2.1 of the License, or (at your option) any later version.
       8  
       9     The GNU C Library is distributed in the hope that it will be useful,
      10     but WITHOUT ANY WARRANTY; without even the implied warranty of
      11     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
      12     Lesser General Public License for more details.
      13  
      14     You should have received a copy of the GNU Lesser General Public
      15     License along with the GNU C Library; if not, see
      16     <https://www.gnu.org/licenses/>.  */
      17  
      18  #include <pthread.h>
      19  #include <signal.h>
      20  #include <stdio.h>
      21  #include <stdlib.h>
      22  #include <string.h>
      23  
      24  
      25  static pthread_mutex_t m1 = PTHREAD_MUTEX_INITIALIZER;
      26  static pthread_mutex_t m2 = PTHREAD_MUTEX_INITIALIZER;
      27  
      28  static int cntr;
      29  
      30  
      31  static void
      32  cleanup (void *arg)
      33  {
      34    if (arg != (void *) 42l)
      35      cntr = 42;
      36    else
      37      cntr = 1;
      38  }
      39  
      40  
      41  static void *
      42  tf (void *arg)
      43  {
      44    /* Ignore all signals.  This must not have any effect on delivering
      45       the cancellation signal.  */
      46    sigset_t ss;
      47  
      48    sigfillset (&ss);
      49  
      50    if (pthread_sigmask (SIG_BLOCK, &ss, NULL) != 0)
      51      {
      52        puts ("pthread_sigmask failed");
      53        exit (1);
      54      }
      55  
      56    pthread_cleanup_push (cleanup, (void *) 42l);
      57  
      58    int err = pthread_setcanceltype (PTHREAD_CANCEL_ASYNCHRONOUS, NULL);
      59    if (err != 0)
      60      {
      61        printf ("setcanceltype failed: %s\n", strerror (err));
      62        exit (1);
      63      }
      64    /* The following code is not standard compliant: the mutex functions
      65       must not be called with asynchronous cancellation enabled.  */
      66  
      67    err = pthread_mutex_unlock (&m2);
      68    if (err != 0)
      69      {
      70        printf ("child: mutex_unlock failed: %s\n", strerror (err));
      71        exit (1);
      72      }
      73  
      74    err = pthread_mutex_lock (&m1);
      75    if (err != 0)
      76      {
      77        printf ("child: 1st mutex_lock failed: %s\n", strerror (err));
      78        exit (1);
      79      }
      80  
      81    /* We should never come here.  */
      82  
      83    pthread_cleanup_pop (0);
      84  
      85    return NULL;
      86  }
      87  
      88  
      89  static int
      90  do_test (void)
      91  {
      92    int err;
      93    pthread_t th;
      94    int result = 0;
      95    void *retval;
      96  
      97    /* Get the mutexes.  */
      98    err = pthread_mutex_lock (&m1);
      99    if (err != 0)
     100      {
     101        printf ("parent: 1st mutex_lock failed: %s\n", strerror (err));
     102        return 1;
     103      }
     104    err = pthread_mutex_lock (&m2);
     105    if (err != 0)
     106      {
     107        printf ("parent: 2nd mutex_lock failed: %s\n", strerror (err));
     108        return 1;
     109      }
     110  
     111    err = pthread_create (&th, NULL, tf, NULL);
     112    if (err != 0)
     113      {
     114        printf ("create failed: %s\n", strerror (err));
     115        return 1;
     116      }
     117  
     118    err = pthread_mutex_lock (&m2);
     119    if (err != 0)
     120      {
     121        printf ("parent: 3rd mutex_lock failed: %s\n", strerror (err));
     122        return 1;
     123      }
     124  
     125    err = pthread_cancel (th);
     126    if (err != 0)
     127      {
     128        printf ("cancel failed: %s\n", strerror (err));
     129        return 1;
     130      }
     131  
     132    err = pthread_join (th, &retval);
     133    if (err != 0)
     134      {
     135        printf ("join failed: %s\n", strerror (err));
     136        return 1;
     137      }
     138  
     139    if (retval != PTHREAD_CANCELED)
     140      {
     141        printf ("wrong return value: %p\n", retval);
     142        result = 1;
     143      }
     144  
     145    if (cntr == 42)
     146      {
     147        puts ("cleanup handler called with wrong argument");
     148        result = 1;
     149      }
     150    else if (cntr != 1)
     151      {
     152        puts ("cleanup handling not called");
     153        result = 1;
     154      }
     155  
     156    return result;
     157  }
     158  
     159  
     160  #define TEST_FUNCTION do_test ()
     161  #include "../test-skeleton.c"