1/* Copyright (C) 2003-2022 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 <limits.h>
19#include <pthread.h>
20#include <stdio.h>
21#include <stdlib.h>
22#include <unistd.h>
23
24
25static pthread_key_t key;
26
27
28static int rounds;
29
30
31static void
32destr (void *arg)
33{
34 ++rounds;
35
36 /* Use an arbirary but valid pointer to avoid GCC warnings. */
37 if (pthread_setspecific (key: key, pointer: (void *) &rounds) != 0)
38 {
39 puts (s: "destr: setspecific failed");
40 exit (1);
41 }
42}
43
44
45static void *
46tf (void *arg)
47{
48 /* Use an arbirary but valid pointer to avoid GCC warnings. */
49 if (pthread_setspecific (key: key, pointer: (void *) &rounds) != 0)
50 {
51 puts (s: "tf: setspecific failed");
52 exit (1);
53 }
54
55 return NULL;
56}
57
58
59/* This test check non-standard behavior. The standard does not
60 require that the implementation has to stop calling TSD destructors
61 when they are set over and over again. But NPTL does. */
62static int
63do_test (void)
64{
65 /* Allocate two keys, both with destructors. */
66 if (pthread_key_create (key: &key, destr_function: destr) != 0)
67 {
68 puts (s: "key_create failed");
69 return 1;
70 }
71
72 pthread_t th;
73 if (pthread_create (newthread: &th, NULL, start_routine: tf, NULL) != 0)
74 {
75 puts (s: "create failed");
76 return 1;
77 }
78
79 if (pthread_join (th: th, NULL) != 0)
80 {
81 puts (s: "join failed");
82 return 1;
83 }
84
85 if (rounds < PTHREAD_DESTRUCTOR_ITERATIONS)
86 {
87 printf (format: "rounds == %d, PTHREAD_DESTRUCTOR_ITERATIONS = %d\n",
88 rounds, PTHREAD_DESTRUCTOR_ITERATIONS);
89 return 1;
90 }
91
92 if (pthread_getspecific (key: key) != NULL)
93 {
94 puts (s: "key data != NULL");
95 return 1;
96 }
97
98 return 0;
99}
100
101
102#define TEST_FUNCTION do_test ()
103#include "../test-skeleton.c"
104

source code of glibc/nptl/tst-tsd4.c