diff options
| author | Vadim Konovalov <vkonovalov@lucent.com> | 2003-07-06 22:46:09 +0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-06 16:16:08 +0000 |
| commit | 216db7eec92546173ac6bab178225bf585542186 (patch) | |
| tree | c2161974d273973711d0329fa189f5f96d8e5f5a /wince/win32thread.h | |
| parent | 16073f159843070bc8b173d94704d3759febc9f1 (diff) | |
| download | perl-216db7eec92546173ac6bab178225bf585542186.tar.gz | |
[PATCH] improve WinCE port
Date: Sun, 6 Jul 2003 18:46:09 +0400
Message-ID: <001401c343cd$8069cd40$ce5ec3d9@vad>
Subject: [PATCH] improve WinCE port -- addition
From: "Vadim Konovalov" <vkonovalov@peterstar.ru>
Date: Sun, 6 Jul 2003 19:50:47 +0400
Message-ID: <000b01c343d6$7ff96920$5b5dc3d9@vad>
p4raw-id: //depot/perl@20031
Diffstat (limited to 'wince/win32thread.h')
| -rw-r--r-- | wince/win32thread.h | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/wince/win32thread.h b/wince/win32thread.h index 879819f6ab..f7f2cf1f4d 100644 --- a/wince/win32thread.h +++ b/wince/win32thread.h @@ -1,5 +1,3 @@ -/* Time-stamp: <01/08/01 21:00:36 keuchel@w2k> */ - #ifndef _WIN32THREAD_H #define _WIN32THREAD_H @@ -57,7 +55,7 @@ typedef HANDLE perl_mutex; #define COND_INIT(c) \ STMT_START { \ (c)->waiters = 0; \ - (c)->sem = CreateSemaphore(NULL,0,LONG_MAX,NULL); \ + (c)->sem = CreateSemaphoreW(NULL,0,LONG_MAX,NULL); \ if ((c)->sem == NULL) \ Perl_croak_nocontext("panic: COND_INIT (%ld)",GetLastError()); \ } STMT_END @@ -162,11 +160,18 @@ END_EXTERN_C #define ALLOC_THREAD_KEY \ STMT_START { \ if ((PL_thr_key = TlsAlloc()) == TLS_OUT_OF_INDEXES) { \ - fprintf(stderr,"panic: TlsAlloc"); \ + PerlIO_printf(PerlIO_stderr(),"panic: TlsAlloc"); \ exit(1); \ } \ } STMT_END +#define FREE_THREAD_KEY \ + STMT_START { \ + TlsFree(PL_thr_key); \ + } STMT_END + +#define PTHREAD_ATFORK(prepare,parent,child) NOOP + #if defined(USE_RTL_THREAD_API) && !defined(_MSC_VER) #define JOIN(t, avp) \ STMT_START { \ |