diff options
| -rw-r--r-- | win/tclWinInit.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/win/tclWinInit.c b/win/tclWinInit.c index 39c7f64..bc58859 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.49 2004/06/17 19:28:26 dgp Exp $ + * RCS: @(#) $Id: tclWinInit.c,v 1.50 2004/06/17 19:37:30 dgp Exp $ */ #include "tclWinInt.h" @@ -100,8 +100,10 @@ static int libraryPathEncodingFixed = 0; static void AppendEnvironment(Tcl_Obj *listPtr, CONST char *lib); static void AppendDllPath(Tcl_Obj *listPtr, HMODULE hModule, CONST char *lib); +static void FreeDefaultLibraryDir(ClientData); +static void FreeThreadDefaultLibraryDir(ClientData); +static Tcl_Obj * GetDefaultLibraryDir(); static void SetDefaultLibraryDir(Tcl_Obj *directory); -static Tcl_Obj * GetDefaultLibraryDir(Tcl_Obj *directory); static int ToUtf(CONST WCHAR *wSrc, char *dst); /* @@ -151,7 +153,6 @@ static void SetDefaultLibraryDir(directory) Tcl_Obj *directory; { - int numBytes; CONST char *bytes; Tcl_Obj **savedDirectoryPtr = (Tcl_Obj **) Tcl_GetThreadData(&defaultLibraryDirKey, (int)sizeof(Tcl_Obj *)); |