0728734e2c7e39f99d52c7c7e0bdd5e0b6031d0d
[kopensolaris-gnu/glibc.git] / nptl / sysdeps / unix / sysv / solaris2 / kopensolaris-gnu / fastlock.c
1 /* Copyright (C) 2008 Free Software Foundation, Inc.
2    This file is part of the GNU C Library.
3    Contributed by David Bartley <dtbartle@csclub.uwaterloo.ca>, 2008.
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, write to the Free
17    Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
18    02111-1307 USA.  */
19
20 #include <errno.h>
21 #include <pthreadP.h>
22 #include <synch_priv.h>
23 #include <sys/synch.h>
24 #include <stdbool.h>
25 #include <assert.h>
26
27 int __mutex_lock_fast (mutex_t *mutex, bool try)
28 {
29   if (mutex->mutex_lockword32 == LOCKWORD32_UNSET_NO_WAITERS)
30     {
31       /* The mutex is not held by anyone so try to grab it.  */
32       if (mutex->mutex_type & LOCK_SHARED)
33         {
34           uint64_t new_lockword64 = LOCKWORD64_SET_NO_WAITERS |
35                 (THREAD_GETMEM (THREAD_SELF, pid) << MUTEX_OWNERPID_SHIFT);
36           uint64_t old_lockword64 = atomic_compare_and_exchange_val_acq (
37               &mutex->mutex_lockword64, new_lockword64,
38               LOCKWORD64_UNSET_NO_WAITERS);
39           if (__builtin_expect (old_lockword64 ==
40                 LOCKWORD64_UNSET_NO_WAITERS, 1))
41             {
42               mutex->mutex_owner = THREAD_GETMEM (THREAD_SELF, tid);
43               return 0;
44             }
45         }
46       else
47         {
48           uint32_t old_lockword32 = atomic_compare_and_exchange_val_acq (
49               &mutex->mutex_lockword32, LOCKWORD32_SET_NO_WAITERS,
50               LOCKWORD32_UNSET_NO_WAITERS);
51           if (__builtin_expect (old_lockword32 ==
52                 LOCKWORD32_UNSET_NO_WAITERS, 1))
53             {
54               mutex->mutex_owner = THREAD_GETMEM (THREAD_SELF, tid);
55               return 0;
56             }
57         }
58     }
59   else if ((mutex->mutex_type & LOCK_RECURSIVE) && MUTEX_IS_OWNER (mutex))
60     {
61       /* Recursively held lock.  */
62       if (mutex->mutex_rcount == RECURSION_MAX)
63         return EAGAIN;
64       mutex->mutex_rcount++;
65       return 0;
66     }
67   else if ((mutex->mutex_type & LOCK_ERRORCHECK) && MUTEX_IS_OWNER (mutex))
68     {
69       /* Error checking: lock already held.  */
70       return EDEADLK;
71     }
72   else if (try && mutex->mutex_lockbyte == LOCKBYTE_SET)
73     {
74       /* Tried to lock but lock was held.  */
75       return EBUSY;
76     }
77
78   /* Need to use the slow code.  */
79   return -1;
80 }
81
82
83 int __mutex_unlock_fast (mutex_t *mutex)
84 {
85   if ((mutex->mutex_type & LOCK_RECURSIVE) && MUTEX_IS_OWNER (mutex) &&
86        mutex->mutex_rcount > 0)
87     {
88       /* Recursively held lock.  */
89       --mutex->mutex_rcount;
90       return 0;
91     }
92   else if ((mutex->mutex_type & LOCK_ERRORCHECK) && MUTEX_NOT_OWNER (mutex))
93     {
94       /* error checking: lock not held by this thread */
95       return EPERM;
96     }
97   else if (mutex->mutex_lockword32 == LOCKWORD32_SET_NO_WAITERS)
98     {
99       /* We need to clear the owner before we fully unlock. Otherwise
100          we have a race condition where we might clear the owner after
101          another thread sets the lock word. If we fail to unlock here
102          we don't need to reset the owner as we're just going to unlock
103          in the kernel (which doesn't check this field anyhow).  */
104       mutex->mutex_owner = 0;
105
106       /* Nobody is waiting on the mutex so we can try to release it.  */
107       if (mutex->mutex_type & LOCK_SHARED)
108         {
109             uint64_t test_lockword64 = LOCKWORD64_SET_NO_WAITERS |
110                 (mutex->mutex_ownerpid << MUTEX_OWNERPID_SHIFT);
111                 (THREAD_GETMEM (THREAD_SELF, pid) << MUTEX_OWNERPID_SHIFT);
112             uint64_t old_lockword64 = atomic_compare_and_exchange_val_acq (
113                 &mutex->mutex_lockword64, LOCKWORD64_UNSET_NO_WAITERS,
114                 test_lockword64);
115             if (__builtin_expect (old_lockword64 == test_lockword64, 1))
116               {
117                 return 0;
118               }
119         }
120       else
121         {
122           uint32_t old_lockword32 = atomic_compare_and_exchange_val_acq (
123               &mutex->mutex_lockword32, LOCKWORD32_UNSET_NO_WAITERS,
124               LOCKWORD32_SET_NO_WAITERS);
125           if (__builtin_expect (old_lockword32 ==
126                 LOCKWORD32_SET_NO_WAITERS, 1))
127             {
128               return 0;
129             }
130         }
131     }
132
133   /* Need to use the slow code.  */
134   return -1;
135 }