Initial merge of win32 threads patch.

[p5sagit/p5-mst-13.2.git] / perl.h

diff --git a/perl.h b/perl.h
index 6af9ff8..fdd5ef6 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -67,10 +67,17 @@ register struct op *op asm(stringify(OP_IN_REGISTER));
 #ifdef FAKE_THREADS
 #include "fakethr.h"
 #else
+#ifdef WIN32
+/*typedef CRITICAL_SECTION perl_mutex;*/
+typedef HANDLE perl_mutex;
+typedef HANDLE perl_cond;
+typedef DWORD perl_key;
+#else
 #include <pthread.h>
 typedef pthread_mutex_t perl_mutex;
 typedef pthread_cond_t perl_cond;
 typedef pthread_key_t perl_key;
+#endif /* WIN32 */
 #endif /* FAKE_THREADS */
 #endif /* USE_THREADS */