diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-07-20 17:40:00 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-08-02 06:16:03 +0000 |
| commit | 8b73bbec3102cdf25a35c954eb1aab85acc07808 (patch) | |
| tree | 52e125d1fa92882b072415b5ac465a817f731bc7 /win32/win32thread.c | |
| parent | bd869e3a5834bd5d26dd079fef07f5c567f6ca97 (diff) | |
| download | perl-8b73bbec3102cdf25a35c954eb1aab85acc07808.tar.gz | |
tweaked version of suggested patch
Message-Id: <199807210140.VAA17186@monk.mps.ohio-state.edu>
Subject: [PATCH 5.004_75] Enable -DS
p4raw-id: //depot/maint-5.005/perl@1701
Diffstat (limited to 'win32/win32thread.c')
| -rw-r--r-- | win32/win32thread.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/win32/win32thread.c b/win32/win32thread.c index 14ac5d7f42..1eb0e872c6 100644 --- a/win32/win32thread.c +++ b/win32/win32thread.c @@ -93,7 +93,7 @@ Perl_thread_create(struct perl_thread *thr, thread_func_t *fn) unsigned long th; MUTEX_LOCK(&thr->mutex); - DEBUG_L(PerlIO_printf(PerlIO_stderr(), + DEBUG_S(PerlIO_printf(PerlIO_stderr(), "%p: create OS thread\n", thr)); #ifdef USE_RTL_THREAD_API /* See comment about USE_RTL_THREAD_API in win32thread.h */ @@ -124,7 +124,7 @@ Perl_thread_create(struct perl_thread *thr, thread_func_t *fn) #else /* !USE_RTL_THREAD_API */ thr->self = CreateThread(NULL, 0, fn, (void*)thr, 0, &junk); #endif /* !USE_RTL_THREAD_API */ - DEBUG_L(PerlIO_printf(PerlIO_stderr(), + DEBUG_S(PerlIO_printf(PerlIO_stderr(), "%p: OS thread = %p, id=%ld\n", thr, thr->self, junk)); MUTEX_UNLOCK(&thr->mutex); return thr->self ? 0 : -1; |