Define XTABS to TAB3 on alpha to match Linux 4.16.
[glibc.git] / sysdeps / htl / pt-key-delete.c
blobb65e5f18102834377af07c7c4ea324afc90f3215
1 /* pthread_key_delete. Hurd version.
2 Copyright (C) 2002-2018 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
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, see
17 <http://www.gnu.org/licenses/>. */
19 #include <pthread.h>
21 #include <pt-internal.h>
23 int
24 pthread_key_delete (pthread_key_t key)
26 error_t err = 0;
28 __pthread_key_lock_ready ();
30 __pthread_mutex_lock (&__pthread_key_lock);
32 if (key < 0 || key >= __pthread_key_count
33 || __pthread_key_destructors[key] == PTHREAD_KEY_INVALID)
34 err = EINVAL;
35 else
37 int i;
39 __pthread_key_destructors[key] = PTHREAD_KEY_INVALID;
40 __pthread_key_invalid_count++;
42 __pthread_rwlock_rdlock (&__pthread_threads_lock);
43 for (i = 0; i < __pthread_num_threads; ++i)
45 struct __pthread *t;
47 t = __pthread_threads[i];
49 if (t == NULL)
50 continue;
52 /* Just remove the key, no need to care whether it was
53 already there. */
54 if (key < t->thread_specifics_size)
55 t->thread_specifics[key] = 0;
57 __pthread_rwlock_unlock (&__pthread_threads_lock);
60 __pthread_mutex_unlock (&__pthread_key_lock);
62 return err;