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 (file)
--- 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 (file)
--- 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 (file)
--- 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)