diff options
| author | davygrvy <davygrvy@pobox.com> | 2004-10-27 20:53:35 (GMT) |
|---|---|---|
| committer | davygrvy <davygrvy@pobox.com> | 2004-10-27 20:53:35 (GMT) |
| commit | 735e9fb4795704a351f58505a21ad08f077d48ef (patch) | |
| tree | 5416675fede22765cce8d52871bdd496dd2ca1d1 /win/tclWinThrd.c | |
| parent | 4acd535a45b785914cfabbadb987305ce8bf8544 (diff) | |
| download | tcl-735e9fb4795704a351f58505a21ad08f077d48ef.zip tcl-735e9fb4795704a351f58505a21ad08f077d48ef.tar.gz tcl-735e9fb4795704a351f58505a21ad08f077d48ef.tar.bz2 | |
* tests/registry.test: Fixed test files to load the correct
* tests/winDde.test: registry and dde packages by using the info
* win/Makefile.in: from makefiles to tell tcltest where to load
* win/makefile.vc: them from. This avoids grabbing the wrong
package from $auto_path which might be the install point rather than
the dev location. Kudos to Jennifer Hom for adding -load and
-loadfile to the tcltest package. [Bug 926088]
Diffstat (limited to 'win/tclWinThrd.c')
| -rw-r--r-- | win/tclWinThrd.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/win/tclWinThrd.c b/win/tclWinThrd.c index e2f399f..c6438f1 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.33 2004/07/21 01:45:45 hobbs Exp $ + * RCS: @(#) $Id: tclWinThrd.c,v 1.34 2004/10/27 20:53:38 davygrvy Exp $ */ #include "tclWinInt.h" @@ -437,7 +437,8 @@ TclFinalizeLock () allocOnce = 0; } #endif - /* Destroy the critical section that we are holding! */ + LeaveCriticalSection(&initLock); + /* Destroy the critical section that we were holding. */ DeleteCriticalSection(&initLock); } |