summaryrefslogtreecommitdiff
path: root/win32/win32thread.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1997-11-12 01:22:26 +0000
committerGurusamy Sarathy <gsar@cpan.org>1997-11-12 01:22:26 +0000
commit4b026b9ec580787cd32d43ab9381ecc2040179be (patch)
treecb8f631bca7bc73f38024763711ed56a32d71425 /win32/win32thread.c
parente7cd54d7e2bd82a89f30e2f71675be1f5d3be34d (diff)
downloadperl-4b026b9ec580787cd32d43ab9381ecc2040179be.tar.gz
Minor tweaks to add a thread_intern struct that should ultimately
contain all the win32-specific statics. Win32 branch now passes all tests with or w/o USE_THREADS. p4raw-id: //depot/win32/perl@235
Diffstat (limited to 'win32/win32thread.c')
-rw-r--r--win32/win32thread.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/win32/win32thread.c b/win32/win32thread.c
index dfa9a0c733..a9ca8e849d 100644
--- a/win32/win32thread.c
+++ b/win32/win32thread.c
@@ -18,8 +18,8 @@ void
init_thread_intern(struct thread *thr)
{
#ifdef USE_THREADS
- /* GetCurrentThread() retrurns a pseudo handle, need
- this to convert it into a handle another thread can use
+ /* Set thr->self. GetCurrentThread() retrurns a pseudo handle, need
+ this to convert it into a handle another thread can use.
*/
DuplicateHandle(GetCurrentProcess(),
GetCurrentThread(),
@@ -28,6 +28,7 @@ init_thread_intern(struct thread *thr)
0,
FALSE,
DUPLICATE_SAME_ACCESS);
+ /* XXX init thr->i here */
#endif
}