Home | History | Annotate | Download | only in pthreads-win32 
      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 (at) 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  *      59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
     35  */
     36 
     37 #include <limits.h>
     38 
     39 #include "pthread.h"
     40 #include "implement.h"
     41 
     42 int
     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