diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2002-05-08 00:32:47 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2002-05-08 00:32:47 +0000 |
| commit | f4958739667376c0faa87fba69392c434e87055f (patch) | |
| tree | 7fa77ce92f2ddba086dad616dbadb4a6c6eb03d2 /win32 | |
| parent | 6e21dc912fff1c74f60032b406b7b96bd0c3ee86 (diff) | |
| download | perl-f4958739667376c0faa87fba69392c434e87055f.tar.gz | |
5005threads builds again on windows
p4raw-id: //depot/perl@16461
Diffstat (limited to 'win32')
| -rw-r--r-- | win32/win32.c | 13 | ||||
| -rw-r--r-- | win32/win32.h | 2 |
2 files changed, 10 insertions, 5 deletions
diff --git a/win32/win32.c b/win32/win32.c index 4b60d0adf2..78f14eb142 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -4654,20 +4654,21 @@ Perl_init_os_extras(void) */ } -#ifdef MULTIPLICITY - -PerlInterpreter * +void * win32_signal_context(void) { dTHX; +#ifdef MULTIPLICITY if (!my_perl) { my_perl = PL_curinterp; PERL_SET_THX(my_perl); } return my_perl; +#else + return aTHX; +#endif } -#endif BOOL WINAPI win32_ctrlhandler(DWORD dwCtrlType) @@ -4677,6 +4678,10 @@ win32_ctrlhandler(DWORD dwCtrlType) if (!my_perl) return FALSE; +#else +#ifdef USE_5005THREADS + dTHX; +#endif #endif switch(dwCtrlType) { diff --git a/win32/win32.h b/win32/win32.h index 91baa822c8..f37829b174 100644 --- a/win32/win32.h +++ b/win32/win32.h @@ -552,7 +552,7 @@ EXTERN_C _CRTIMP ioinfo* __pioinfo[]; #define EAFNOSUPPORT WSAEAFNOSUPPORT #endif -DllExport PerlInterpreter *win32_signal_context(void); +DllExport void *win32_signal_context(void); #define PERL_GET_SIG_CONTEXT win32_signal_context() #endif /* _INC_WIN32_PERL5 */ |