''

1 files changed, 196 insertions, 265 deletions

diff --git a/pthread_mutex_timedlock.c b/pthread_mutex_timedlock.c
index db45f45..ad373ba 100644
--- a/pthread_mutex_timedlock.c
+++ b/pthread_mutex_timedlock.c
@@ -1,265 +1,196 @@
-/*
- * pthread_mutex_timedlock.c
- *
- * Description:
- * This translation unit implements mutual exclusion (mutex) primitives.
- *
- * --------------------------------------------------------------------------
- *
- *      Pthreads-win32 - POSIX Threads Library for Win32
- *      Copyright(C) 1998 John E. Bossom
- *      Copyright(C) 1999,2005 Pthreads-win32 contributors
- * 
- *      Contact Email: rpj@callisto.canberra.edu.au
- * 
- *      The current list of contributors is contained
- *      in the file CONTRIBUTORS included with the source
- *      code distribution. The list can also be seen at the
- *      following World Wide Web location:
- *      http://sources.redhat.com/pthreads-win32/contributors.html
- * 
- *      This library is free software; you can redistribute it and/or
- *      modify it under the terms of the GNU Lesser General Public
- *      License as published by the Free Software Foundation; either
- *      version 2 of the License, or (at your option) any later version.
- * 
- *      This library is distributed in the hope that it will be useful,
- *      but WITHOUT ANY WARRANTY; without even the implied warranty of
- *      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- *      Lesser General Public License for more details.
- * 
- *      You should have received a copy of the GNU Lesser General Public
- *      License along with this library in the file COPYING.LIB;
- *      if not, write to the Free Software Foundation, Inc.,
- *      59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
- */
-
-#ifndef _UWIN
-//#   include <process.h>
-#endif
-#ifndef NEED_FTIME
-#include <sys/timeb.h>
-#endif
-#include "pthread.h"
-#include "implement.h"
-
-
-static INLINE int
-ptw32_timed_eventwait (HANDLE event, const struct timespec *abstime)
-     /*
-      * ------------------------------------------------------
-      * DESCRIPTION
-      *      This function waits on an event until signaled or until
-      *      abstime passes.
-      *      If abstime has passed when this routine is called then
-      *      it returns a result to indicate this.
-      *
-      *      If 'abstime' is a NULL pointer then this function will
-      *      block until it can successfully decrease the value or
-      *      until interrupted by a signal.
-      *
-      *      This routine is not a cancelation point.
-      *
-      * RESULTS
-      *              0               successfully signaled,
-      *              ETIMEDOUT       abstime passed
-      *              EINVAL          'event' is not a valid event,
-      *
-      * ------------------------------------------------------
-      */
-{
-
-#ifdef NEED_FTIME
-
-  struct timespec currSysTime;
-
-#else /* NEED_FTIME */
-
-  struct _timeb currSysTime;
-
-#endif /* NEED_FTIME */
-
-  const DWORD NANOSEC_PER_MILLISEC = 1000000;
-  const DWORD MILLISEC_PER_SEC = 1000;
-  DWORD milliseconds;
-  DWORD status;
-
-  if (event == NULL)
-    {
-      return EINVAL;
-    }
-  else
-    {
-      if (abstime == NULL)
-	{
-	  milliseconds = INFINITE;
-	}
-      else
-	{
-	  /* 
-	   * Calculate timeout as milliseconds from current system time. 
-	   */
-
-	  /* get current system time */
-
-#ifdef NEED_FTIME
-
-	  {
-	    FILETIME ft;
-	    SYSTEMTIME st;
-
-	    GetSystemTime (&st);
-	    SystemTimeToFileTime (&st, &ft);
-	    /*
-	     * GetSystemTimeAsFileTime(&ft); would be faster,
-	     * but it does not exist on WinCE
-	     */
-
-	    ptw32_filetime_to_timespec (&ft, &currSysTime);
-	  }
-
-	  /*
-	   * subtract current system time from abstime
-	   */
-	  milliseconds =
-	    (abstime->tv_sec - currSysTime.tv_sec) * MILLISEC_PER_SEC;
-	  milliseconds +=
-	    ((abstime->tv_nsec - currSysTime.tv_nsec) +
-	     (NANOSEC_PER_MILLISEC / 2)) / NANOSEC_PER_MILLISEC;
-
-#else /* NEED_FTIME */
-	  _ftime (&currSysTime);
-
-	  /*
-	   * subtract current system time from abstime
-	   */
-	  milliseconds =
-	    (abstime->tv_sec - currSysTime.time) * MILLISEC_PER_SEC;
-	  milliseconds +=
-	    ((abstime->tv_nsec +
-	      (NANOSEC_PER_MILLISEC / 2)) / NANOSEC_PER_MILLISEC) -
-	    currSysTime.millitm;
-
-#endif /* NEED_FTIME */
-
-	  if (((int) milliseconds) < 0)
-	    {
-	      return ETIMEDOUT;
-	    }
-	}
-
-      status = WaitForSingleObject (event, milliseconds);
-
-      if (status == WAIT_OBJECT_0)
-	{
-	  return 0;
-	}
-      else if (status == WAIT_TIMEOUT)
-	{
-	  return ETIMEDOUT;
-	}
-      else
-	{
-	  return EINVAL;
-	}
-    }
-
-  return 0;
-
-}				/* ptw32_timed_semwait */
-
-
-int
-pthread_mutex_timedlock (pthread_mutex_t * mutex,
-			 const struct timespec *abstime)
-{
-  int result;
-  pthread_mutex_t mx;
-
-#ifdef NEED_SEM
-  errno = ENOTSUP;
-  return -1;
-#endif
-
-  /*
-   * Let the system deal with invalid pointers.
-   */
-
-  /*
-   * We do a quick check to see if we need to do more work
-   * to initialise a static mutex. We check
-   * again inside the guarded section of ptw32_mutex_check_need_init()
-   * to avoid race conditions.
-   */
-  if (*mutex >= PTHREAD_ERRORCHECK_MUTEX_INITIALIZER)
-    {
-      if ((result = ptw32_mutex_check_need_init (mutex)) != 0)
-	{
-	  return (result);
-	}
-    }
-
-  mx = *mutex;
-
-  if (mx->kind == PTHREAD_MUTEX_NORMAL)
-    {
-      if ((LONG) PTW32_INTERLOCKED_EXCHANGE(
-		   (LPLONG) &mx->lock_idx,
-		   (LONG) 1) != 0)
-	{
-          while ((LONG) PTW32_INTERLOCKED_EXCHANGE(
-                          (LPLONG) &mx->lock_idx,
-			  (LONG) -1) != 0)
-            {
-	      if (0 != (result = ptw32_timed_eventwait (mx->event, abstime)))
-		{
-		  return result;
-		}
-	    }
-	}
-    }
-  else
-    {
-      pthread_t self = pthread_self();
-
-      if ((PTW32_INTERLOCKED_LONG) PTW32_INTERLOCKED_COMPARE_EXCHANGE(
-                   (PTW32_INTERLOCKED_LPLONG) &mx->lock_idx,
-		   (PTW32_INTERLOCKED_LONG) 1,
-		   (PTW32_INTERLOCKED_LONG) 0) == 0)
-	{
-	  mx->recursive_count = 1;
-	  mx->ownerThread = self;
-	}
-      else
-	{
-	  if (pthread_equal (mx->ownerThread, self))
-	    {
-	      if (mx->kind == PTHREAD_MUTEX_RECURSIVE)
-		{
-		  mx->recursive_count++;
-		}
-	      else
-		{
-		  return EDEADLK;
-		}
-	    }
-	  else
-	    {
-              while ((LONG) PTW32_INTERLOCKED_EXCHANGE(
-                              (LPLONG) &mx->lock_idx,
-			      (LONG) -1) != 0)
-                {
-		  if (0 != (result = ptw32_timed_eventwait (mx->event, abstime)))
-		    {
-		      return result;
-		    }
-		}
-
-	      mx->recursive_count = 1;
-	      mx->ownerThread = self;
-	    }
-	}
-    }
-
-  return 0;
-}
+/*

+ * pthread_mutex_timedlock.c

+ *

+ * Description:

+ * This translation unit implements mutual exclusion (mutex) primitives.

+ *

+ * --------------------------------------------------------------------------

+ *

+ *      Pthreads-win32 - POSIX Threads Library for Win32

+ *      Copyright(C) 1998 John E. Bossom

+ *      Copyright(C) 1999,2005 Pthreads-win32 contributors

+ * 

+ *      Contact Email: rpj@callisto.canberra.edu.au

+ * 

+ *      The current list of contributors is contained

+ *      in the file CONTRIBUTORS included with the source

+ *      code distribution. The list can also be seen at the

+ *      following World Wide Web location:

+ *      http://sources.redhat.com/pthreads-win32/contributors.html

+ * 

+ *      This library is free software; you can redistribute it and/or

+ *      modify it under the terms of the GNU Lesser General Public

+ *      License as published by the Free Software Foundation; either

+ *      version 2 of the License, or (at your option) any later version.

+ * 

+ *      This library is distributed in the hope that it will be useful,

+ *      but WITHOUT ANY WARRANTY; without even the implied warranty of

+ *      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

+ *      Lesser General Public License for more details.

+ * 

+ *      You should have received a copy of the GNU Lesser General Public

+ *      License along with this library in the file COPYING.LIB;

+ *      if not, write to the Free Software Foundation, Inc.,

+ *      59 Temple Place - Suite 330, Boston, MA 02111-1307, USA

+ */

+

+#include "pthread.h"

+#include "implement.h"

+

+

+static INLINE int

+ptw32_timed_eventwait (HANDLE event, const struct timespec *abstime)

+     /*

+      * ------------------------------------------------------

+      * DESCRIPTION

+      *      This function waits on an event until signaled or until

+      *      abstime passes.

+      *      If abstime has passed when this routine is called then

+      *      it returns a result to indicate this.

+      *

+      *      If 'abstime' is a NULL pointer then this function will

+      *      block until it can successfully decrease the value or

+      *      until interrupted by a signal.

+      *

+      *      This routine is not a cancelation point.

+      *

+      * RESULTS

+      *              0               successfully signaled,

+      *              ETIMEDOUT       abstime passed

+      *              EINVAL          'event' is not a valid event,

+      *

+      * ------------------------------------------------------

+      */

+{

+

+  DWORD milliseconds;

+  DWORD status;

+

+  if (event == NULL)

+    {

+      return EINVAL;

+    }

+  else

+    {

+      if (abstime == NULL)

+	{

+	  milliseconds = INFINITE;

+	}

+      else

+	{

+	  /* 

+	   * Calculate timeout as milliseconds from current system time. 

+	   */

+	  milliseconds = ptw32_relmillisecs (abstime);

+	}

+

+      status = WaitForSingleObject (event, milliseconds);

+

+      if (status == WAIT_OBJECT_0)

+	{

+	  return 0;

+	}

+      else if (status == WAIT_TIMEOUT)

+	{

+	  return ETIMEDOUT;

+	}

+      else

+	{

+	  return EINVAL;

+	}

+    }

+

+  return 0;

+

+}				/* ptw32_timed_semwait */

+

+

+int

+pthread_mutex_timedlock (pthread_mutex_t * mutex,

+			 const struct timespec *abstime)

+{

+  int result;

+  pthread_mutex_t mx;

+

+  /*

+   * Let the system deal with invalid pointers.

+   */

+

+  /*

+   * We do a quick check to see if we need to do more work

+   * to initialise a static mutex. We check

+   * again inside the guarded section of ptw32_mutex_check_need_init()

+   * to avoid race conditions.

+   */

+  if (*mutex >= PTHREAD_ERRORCHECK_MUTEX_INITIALIZER)

+    {

+      if ((result = ptw32_mutex_check_need_init (mutex)) != 0)

+	{

+	  return (result);

+	}

+    }

+

+  mx = *mutex;

+

+  if (mx->kind == PTHREAD_MUTEX_NORMAL)

+    {

+      if ((LONG) PTW32_INTERLOCKED_EXCHANGE(

+		   (LPLONG) &mx->lock_idx,

+		   (LONG) 1) != 0)

+	{

+          while ((LONG) PTW32_INTERLOCKED_EXCHANGE(

+                          (LPLONG) &mx->lock_idx,

+			  (LONG) -1) != 0)

+            {

+	      if (0 != (result = ptw32_timed_eventwait (mx->event, abstime)))

+		{

+		  return result;

+		}

+	    }

+	}

+    }

+  else

+    {

+      pthread_t self = pthread_self();

+

+      if ((PTW32_INTERLOCKED_LONG) PTW32_INTERLOCKED_COMPARE_EXCHANGE(

+                   (PTW32_INTERLOCKED_LPLONG) &mx->lock_idx,

+		   (PTW32_INTERLOCKED_LONG) 1,

+		   (PTW32_INTERLOCKED_LONG) 0) == 0)

+	{

+	  mx->recursive_count = 1;

+	  mx->ownerThread = self;

+	}

+      else

+	{

+	  if (pthread_equal (mx->ownerThread, self))

+	    {

+	      if (mx->kind == PTHREAD_MUTEX_RECURSIVE)

+		{

+		  mx->recursive_count++;

+		}

+	      else

+		{

+		  return EDEADLK;

+		}

+	    }

+	  else

+	    {

+              while ((LONG) PTW32_INTERLOCKED_EXCHANGE(

+                              (LPLONG) &mx->lock_idx,

+			      (LONG) -1) != 0)

+                {

+		  if (0 != (result = ptw32_timed_eventwait (mx->event, abstime)))

+		    {

+		      return result;

+		    }

+		}

+

+	      mx->recursive_count = 1;

+	      mx->ownerThread = self;

+	    }

+	}

+    }

+

+  return 0;

+}