diff options
| author | kupries <kupries> | 2000-05-09 19:13:55 (GMT) |
|---|---|---|
| committer | kupries <kupries> | 2000-05-09 19:13:55 (GMT) |
| commit | 62bb46cb777865b566d4f06bec15cb4b69b936e8 (patch) | |
| tree | ddc1d166b3b2adb39d8b427e049318995d49a592 /win | |
| parent | a406bb38849430633c8cfb33dceac73e8a7903c4 (diff) | |
| download | tcl-62bb46cb777865b566d4f06bec15cb4b69b936e8.zip tcl-62bb46cb777865b566d4f06bec15cb4b69b936e8.tar.gz tcl-62bb46cb777865b566d4f06bec15cb4b69b936e8.tar.bz2 | |
2000-05-09 Andreas Kupries <a.kupries@westend.com>
operating as proxy for David Gravereaux <davygrvy@pobox.com>
* win/tclWinThrd.c (TclpInitLock, TclpMasterLock): Added missing
initialization of joinLock.
Diffstat (limited to 'win')
| -rw-r--r-- | win/tclWinThrd.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/win/tclWinThrd.c b/win/tclWinThrd.c index b3e23fd..5b84cf6 100644 --- a/win/tclWinThrd.c +++ b/win/tclWinThrd.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinThrd.c,v 1.9 2000/05/02 22:02:38 kupries Exp $ + * RCS: @(#) $Id: tclWinThrd.c,v 1.10 2000/05/09 19:13:55 kupries Exp $ */ #include "tclWinInt.h" @@ -260,6 +260,7 @@ TclpInitLock() * more threads that create interpreters in parallel. */ init = 1; + InitializeCriticalSection(&joinLock); InitializeCriticalSection(&initLock); InitializeCriticalSection(&masterLock); } @@ -322,6 +323,7 @@ TclpMasterLock() * more threads that create interpreters in parallel. */ init = 1; + InitializeCriticalSection(&joinLock); InitializeCriticalSection(&initLock); InitializeCriticalSection(&masterLock); } |