From 2b544454484ed91b6f1ae2cffef4c29b1302dcd7 Mon Sep 17 00:00:00 2001 From: Nick Ing-Simmons Date: Wed, 5 Nov 1997 00:50:27 +0000 Subject: [PATCH] Compile(d) at least once with threads on win32 but did not work p4raw-id: //depot/ansiperl@202 --- embed.h | 1 + perl.c | 2 ++ thread.h | 1 + 3 files changed, 4 insertions(+) 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) -- 2.7.4