diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-01 03:45:13 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-01 03:45:13 +0000 |
| commit | 638eceb6656bf10acb1a6dc2a55880f5e1a6c8c4 (patch) | |
| tree | 35c02afc07b97e44b7d4abdf0b4829f850a890a3 /win32 | |
| parent | 7766f1371a6d2b58d0f46fbe6a60785860a39c1e (diff) | |
| download | perl-638eceb6656bf10acb1a6dc2a55880f5e1a6c8c4.tar.gz | |
minor USE_ITHREADS tweaks
p4raw-id: //depot/perl@4603
Diffstat (limited to 'win32')
| -rw-r--r-- | win32/Makefile | 4 | ||||
| -rw-r--r-- | win32/perllib.c | 1 | ||||
| -rw-r--r-- | win32/win32.h | 2 |
3 files changed, 4 insertions, 3 deletions
diff --git a/win32/Makefile b/win32/Makefile index fe38d99dba..e03bb2dd1d 100644 --- a/win32/Makefile +++ b/win32/Makefile @@ -71,13 +71,13 @@ INST_ARCH = \$(ARCHNAME) # tests. This should be enabled to get the fork() emulation. Do not # enable unless you know what you're doing! # -USE_ITHREADS = define +#USE_ITHREADS = define # # uncomment to enable the implicit "host" layer for all system calls # made by perl. This is needed and auto-enabled by USE_OBJECT above. # -USE_IMP_SYS = define +#USE_IMP_SYS = define # # uncomment one of the following lines if you are using either diff --git a/win32/perllib.c b/win32/perllib.c index 717b902e10..1b8516c502 100644 --- a/win32/perllib.c +++ b/win32/perllib.c @@ -281,7 +281,6 @@ perl_alloc(void) pHost->m_pHostperlSock, pHost->m_pHostperlProc); if (my_perl) { - CPerlObj* pPerl = (CPerlObj*)my_perl; w32_internal_host = pHost; } } diff --git a/win32/win32.h b/win32/win32.h index 856232ae84..28d582a270 100644 --- a/win32/win32.h +++ b/win32/win32.h @@ -9,6 +9,8 @@ #ifndef _INC_WIN32_PERL5 #define _INC_WIN32_PERL5 +#define _WIN32_WINNT 0x0400 /* needed for TryEnterCriticalSection() etc. */ + #if defined(PERL_OBJECT) || defined(PERL_IMPLICIT_SYS) || defined(PERL_CAPI) # define DYNAMIC_ENV_FETCH # define ENV_HV_NAME "___ENV_HV_NAME___" |