/* $OpenLDAP$ */
/* This work is part of OpenLDAP Software <http://www.openldap.org/>.
*
- * Copyright 1998-2004 The OpenLDAP Foundation.
+ * Copyright 1998-2007 The OpenLDAP Foundation.
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
#if defined( HAVE_NT_THREADS )
-#include "ldap_pvt_thread.h"
+#define _WIN32_WINNT 0x0400
+#include <windows.h>
+#include <process.h>
+
+#include "ldap_pvt_thread.h" /* Get the thread interface */
+#define LDAP_THREAD_IMPLEMENTATION
+#include "ldap_thr_debug.h" /* May rename the symbols defined below */
typedef struct ldap_int_thread_s {
long tid;
#define NT_MAX_THREADS 1024
#endif
-static ldap_int_thread_s tid[NT_MAX_THREADS];
+static ldap_int_thread_s tids[NT_MAX_THREADS];
static int ntids;
if ( thd ) {
*thread = (ldap_pvt_thread_t) tid;
- tid[ntids].tid = tid;
- tid[ntids].thd = thd;
+ tids[ntids].tid = tid;
+ tids[ntids].thd = thd;
ntids++;
rc = 0;
}
int i;
for (i=0; i<ntids; i++) {
- if ( tid[i].tid == thread )
+ if ( tids[i].tid == thread )
break;
}
if ( i > ntids ) return -1;
- status = WaitForSingleObject( tid[i].thd, INFINITE );
+ status = WaitForSingleObject( tids[i].thd, INFINITE );
for (; i<ntids; i++) {
- tid[i] = tid[i+1];
+ tids[i] = tids[i+1];
}
ntids--;
return status == WAIT_FAILED ? -1 : 0;
return GetCurrentThreadId();
}
+int
+ldap_pvt_thread_key_create( ldap_pvt_thread_key_t *keyp )
+{
+ DWORD key = TlsAlloc();
+ if ( key != TLS_OUT_OF_INDEXES ) {
+ *keyp = key;
+ return 0;
+ } else {
+ return -1;
+ }
+}
+
+int
+ldap_pvt_thread_key_destroy( ldap_pvt_thread_key_t key )
+{
+ /* TlsFree returns 0 on failure */
+ return( TlsFree( key ) == 0 );
+}
+
+int
+ldap_pvt_thread_key_setdata( ldap_pvt_thread_key_t key, void *data )
+{
+ return ( TlsSetValue( key, data ) == 0 );
+}
+
+int
+ldap_pvt_thread_key_getdata( ldap_pvt_thread_key_t key, void **data )
+{
+ void *ptr = TlsGetValue( key );
+ *data = ptr;
+ return( ptr ? GetLastError() : 0 );
+}
+
#endif