From: Steve Hay Date: Tue, 9 Jun 2009 13:47:06 +0000 (+0100) Subject: Fix threads build on Win32 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bcbea5d217c6997d2a140a79bbb1ab98c4acc354;p=p5sagit%2Fp5-mst-13.2.git Fix threads build on Win32 Follow-up to 8264cf327251f9724c99b125cc3eea11be9b97c5. --- diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs index 7abd037..7d0ad23 100755 --- a/ext/threads/threads.xs +++ b/ext/threads/threads.xs @@ -142,7 +142,7 @@ S_block_most_signals(sigset_t *oldmask) return sigprocmask(SIG_BLOCK, &newmask, oldmask); #else return pthread_sigmask(SIG_BLOCK, &newmask, oldmask); -#endif /* WIN32 */ +#endif /* VMS */ } /* Set the signal mask for this thread to newmask */ @@ -153,9 +153,9 @@ S_set_sigmask(sigset_t *newmask) return sigprocmask(SIG_SETMASK, newmask, NULL); #else return pthread_sigmask(SIG_SETMASK, newmask, NULL); -#endif /* WIN32 */ +#endif /* VMS */ } -#endif +#endif /* WIN32 */ /* Used by Perl interpreter for thread context switching */ STATIC void @@ -184,7 +184,9 @@ STATIC void S_ithread_clear(pTHX_ ithread *thread) { PerlInterpreter *interp; +#ifndef WIN32 sigset_t origmask; +#endif assert(((thread->state & PERL_ITHR_FINISHED) && (thread->state & PERL_ITHR_UNCALLABLE))