diff options
| author | dgp <dgp@users.sourceforge.net> | 2004-06-29 14:03:42 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2004-06-29 14:03:42 (GMT) |
| commit | f8a03e16efd71ee8e4320b00a07f7d964168809c (patch) | |
| tree | 94f20cdd05113d66e392705ceb265e8d06b75dbf | |
| parent | b96dc3a960b8964e84edd279c99a01b92be99278 (diff) | |
| download | tcl-f8a03e16efd71ee8e4320b00a07f7d964168809c.zip tcl-f8a03e16efd71ee8e4320b00a07f7d964168809c.tar.gz tcl-f8a03e16efd71ee8e4320b00a07f7d964168809c.tar.bz2 | |
* win/tclWinInit.c: Corrected reference counting flaw in
recent changes. Thanks to Pat Thoyts. [Bug 981893].
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | win/tclWinInit.c | 4 |
2 files changed, 7 insertions, 2 deletions
@@ -1,3 +1,8 @@ +2004-06-29 Don Porter <dgp@users.sourceforge.net> + + * win/tclWinInit.c: Corrected reference counting flaw in + recent changes. Thanks to Pat Thoyts. [Bug 981893]. + 2004-06-29 Vince Darley <vincentdarley@users.sourceforge.net> * win/tclWin32Dll.c: fix to compilation with VC++ 5.2 diff --git a/win/tclWinInit.c b/win/tclWinInit.c index bae876e..9c1217c 100644 --- a/win/tclWinInit.c +++ b/win/tclWinInit.c @@ -7,7 +7,7 @@ * Copyright (c) 1998-1999 by Scriptics Corporation. * All rights reserved. * - * RCS: @(#) $Id: tclWinInit.c,v 1.57 2004/06/18 13:42:42 dkf Exp $ + * RCS: @(#) $Id: tclWinInit.c,v 1.58 2004/06/29 14:03:46 dgp Exp $ */ #include "tclWinInt.h" @@ -378,7 +378,7 @@ TclpInitLibraryPath(path) AppendDllPath(pathPtr, TclWinGetTclInstance(), installLib); Tcl_ListObjGetElements(NULL, pathPtr, &objc, &objv); - SetDefaultLibraryDir(objv[objc-1]); + SetDefaultLibraryDir(Tcl_DuplicateObj(objv[objc-1])); /* * Look for the library relative to the executable. This algorithm |