Update s390 libm-test-ulps
[platform/upstream/glibc.git] / nptl / pthread_mutex_destroy.c
1 /* Copyright (C) 2002, 2003, 2005, 2006 Free Software Foundation, Inc.
2    This file is part of the GNU C Library.
3    Contributed by Ulrich Drepper <drepper@redhat.com>, 2002.
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 "pthreadP.h"
21
22
23 int
24 __pthread_mutex_destroy (mutex)
25      pthread_mutex_t *mutex;
26 {
27   if ((mutex->__data.__kind & PTHREAD_MUTEX_ROBUST_NORMAL_NP) == 0
28       && mutex->__data.__nusers != 0)
29     return EBUSY;
30
31   /* Set to an invalid value.  */
32   mutex->__data.__kind = -1;
33
34   return 0;
35 }
36 strong_alias (__pthread_mutex_destroy, pthread_mutex_destroy)
37 INTDEF(__pthread_mutex_destroy)