diff options
| author | dgp@users.sourceforge.net <dgp> | 2004-06-17 21:33:43 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2004-06-17 21:33:43 (GMT) |
| commit | 7eb1f66fd8be5d926a8c70de36666a6522a82ddb (patch) | |
| tree | d4875286e5aa846d362e5a921ed6486915f135fd /win/tclWinInit.c | |
| parent | f82517c4dbe7abfa54c00e4e33bc146bbd0b3b26 (diff) | |
| download | tcl-7eb1f66fd8be5d926a8c70de36666a6522a82ddb.zip tcl-7eb1f66fd8be5d926a8c70de36666a6522a82ddb.tar.gz tcl-7eb1f66fd8be5d926a8c70de36666a6522a82ddb.tar.bz2 | |
Added missing incr ref count. D'oh!
Diffstat (limited to 'win/tclWinInit.c')
| -rw-r--r-- | win/tclWinInit.c | 3 |
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; |