Compile(d) at least once with threads on win32

but did not work

p4raw-id: //depot/ansiperl@202

3 files changed, 4 insertions, 0 deletions

diff --git a/embed.h b/embed.h
index c4b9eefc54..6deda40b77 100644
--- a/embed.h
+++ b/embed.h
@@ -823,6 +823,7 @@
 #define pp_socket		Perl_pp_socket
 #define pp_sockpair		Perl_pp_sockpair
 #define pp_sort			Perl_pp_sort
+#define pp_specific		Perl_pp_specific
 #define pp_splice		Perl_pp_splice
 #define pp_split		Perl_pp_split
 #define pp_sprintf		Perl_pp_sprintf
diff --git a/perl.c b/perl.c
index 0500164aec..6606f71202 100644
--- a/perl.c
+++ b/perl.c
@@ -125,8 +125,10 @@ perl_construct(register PerlInterpreter *sv_interp)
 #ifdef USE_THREADS
 
     	INIT_THREADS;
+#ifndef WIN32
 	if (pthread_key_create(&thr_key, 0))
 	    croak("panic: pthread_key_create");
+#endif
 	MUTEX_INIT(&malloc_mutex);
 	MUTEX_INIT(&sv_mutex);
 	/*
diff --git a/thread.h b/thread.h
index c9ec77e362..a5dea00d7e 100644
--- a/thread.h
+++ b/thread.h
@@ -359,6 +359,7 @@ typedef struct condpair {
 #define	rs		(thr->Trs)
 #define	last_in_gv	(thr->Tlast_in_gv)
 #define	ofs		(thr->Tofs)
+#define	ofslen		(thr->Tofslen)
 #define	defoutgv	(thr->Tdefoutgv)
 #define	chopset		(thr->Tchopset)
 #define	formtarget	(thr->Tformtarget)