summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2004-06-17 21:33:43 (GMT)
committerdgp <dgp@users.sourceforge.net>2004-06-17 21:33:43 (GMT)
commit331737f329d86697442d63ba0f2b4e3395741e1d (patch)
treed4875286e5aa846d362e5a921ed6486915f135fd
parent7bfa6b0d1e0b76050efcf401c022c7ab4c3a2012 (diff)
downloadtcl-331737f329d86697442d63ba0f2b4e3395741e1d.zip
tcl-331737f329d86697442d63ba0f2b4e3395741e1d.tar.gz
tcl-331737f329d86697442d63ba0f2b4e3395741e1d.tar.bz2
Added missing incr ref count. D'oh!
-rw-r--r--win/tclWinInit.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/win/tclWinInit.c b/win/tclWinInit.c
index 12f443b..44c2e37 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.53 2004/06/17 21:26:28 dgp Exp $
+ * RCS: @(#) $Id: tclWinInit.c,v 1.54 2004/06/17 21:33:43 dgp Exp $
*/
#include "tclWinInt.h"
@@ -221,6 +221,7 @@ Tcl_Panic("Called GetDLD before SetDLD!");
*savedDirectoryPtr =
Tcl_NewStringObj(defaultLibraryDir, defaultLibraryDirLength);
+ Tcl_IncrRefCount(*savedDirectoryPtr);
Tcl_CreateThreadExitHandler(FreeThreadDefaultLibraryDir,
(ClientData) savedDirectoryPtr);
return *savedDirectoryPtr;