1 /*
2 * pthread_rwlock_wrlock.c
3 *
4 * Description:
5 * This translation unit implements read/write lock primitives.
6 *
7 * --------------------------------------------------------------------------
8 *
9 * Pthreads-win32 - POSIX Threads Library for Win32
10 * Copyright(C) 1998 John E. Bossom
11 * Copyright(C) 1999,2005 Pthreads-win32 contributors
12 *
13 * Contact Email: rpj@callisto.canberra.edu.au
14 *
15 * The current list of contributors is contained
16 * in the file CONTRIBUTORS included with the source
17 * code distribution. The list can also be seen at the
18 * following World Wide Web location:
19 * http://sources.redhat.com/pthreads-win32/contributors.html
20 *
21 * This library is free software; you can redistribute it and/or
22 * modify it under the terms of the GNU Lesser General Public
23 * License as published by the Free Software Foundation; either
24 * version 2 of the License, or (at your option) any later version.
25 *
26 * This library is distributed in the hope that it will be useful,
27 * but WITHOUT ANY WARRANTY; without even the implied warranty of
28 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
29 * Lesser General Public License for more details.
30 *
31 * You should have received a copy of the GNU Lesser General Public
32 * License along with this library in the file COPYING.LIB;
33 * if not, write to the Free Software Foundation, Inc.,
34 * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA
35 */
36
37 #include <limits.h>
38
39 #include "pthread.h"
40 #include "implement.h"
41
42 int
pthread_rwlock_wrlock(pthread_rwlock_t * rwlock)43 pthread_rwlock_wrlock (pthread_rwlock_t * rwlock)
44 {
45 int result;
46 pthread_rwlock_t rwl;
47
48 if (rwlock == NULL || *rwlock == NULL)
49 {
50 return EINVAL;
51 }
52
53 /*
54 * We do a quick check to see if we need to do more work
55 * to initialise a static rwlock. We check
56 * again inside the guarded section of ptw32_rwlock_check_need_init()
57 * to avoid race conditions.
58 */
59 if (*rwlock == PTHREAD_RWLOCK_INITIALIZER)
60 {
61 result = ptw32_rwlock_check_need_init (rwlock);
62
63 if (result != 0 && result != EBUSY)
64 {
65 return result;
66 }
67 }
68
69 rwl = *rwlock;
70
71 if (rwl->nMagic != PTW32_RWLOCK_MAGIC)
72 {
73 return EINVAL;
74 }
75
76 if ((result = pthread_mutex_lock (&(rwl->mtxExclusiveAccess))) != 0)
77 {
78 return result;
79 }
80
81 if ((result = pthread_mutex_lock (&(rwl->mtxSharedAccessCompleted))) != 0)
82 {
83 (void) pthread_mutex_unlock (&(rwl->mtxExclusiveAccess));
84 return result;
85 }
86
87 if (rwl->nExclusiveAccessCount == 0)
88 {
89 if (rwl->nCompletedSharedAccessCount > 0)
90 {
91 rwl->nSharedAccessCount -= rwl->nCompletedSharedAccessCount;
92 rwl->nCompletedSharedAccessCount = 0;
93 }
94
95 if (rwl->nSharedAccessCount > 0)
96 {
97 rwl->nCompletedSharedAccessCount = -rwl->nSharedAccessCount;
98
99 /*
100 * This routine may be a cancelation point
101 * according to POSIX 1003.1j section 18.1.2.
102 */
103 #if defined(_MSC_VER) && _MSC_VER < 1400
104 #pragma inline_depth(0)
105 #endif
106 pthread_cleanup_push (ptw32_rwlock_cancelwrwait, (void *) rwl);
107
108 do
109 {
110 result = pthread_cond_wait (&(rwl->cndSharedAccessCompleted),
111 &(rwl->mtxSharedAccessCompleted));
112 }
113 while (result == 0 && rwl->nCompletedSharedAccessCount < 0);
114
115 pthread_cleanup_pop ((result != 0) ? 1 : 0);
116 #if defined(_MSC_VER) && _MSC_VER < 1400
117 #pragma inline_depth()
118 #endif
119
120 if (result == 0)
121 {
122 rwl->nSharedAccessCount = 0;
123 }
124 }
125 }
126
127 if (result == 0)
128 {
129 rwl->nExclusiveAccessCount++;
130 }
131
132 return result;
133 }
134