From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Wed, 5 Nov 1997 00:50:27 +0000 (+0000)
Subject: Compile(d) at least once with threads on win32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2b544454484ed91b6f1ae2cffef4c29b1302dcd7;p=p5sagit%2Fp5-mst-13.2.git

Compile(d) at least once with threads on win32
but did not work

p4raw-id: //depot/ansiperl@202
---

diff --git a/embed.h b/embed.h
index c4b9eef..6deda40 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 0500164..6606f71 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 c9ec77e..a5dea00 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)