diff options
| author | dgp <dgp@users.sourceforge.net> | 2004-06-17 19:37:30 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2004-06-17 19:37:30 (GMT) |
| commit | 78205c5188c5bc883fec229e252334d21530dc51 (patch) | |
| tree | b98925a465589116906d1d87c197ab74ae112fbe | |
| parent | b513b31c72961f623df4ab7c66aac7bfbb3b5920 (diff) | |
| download | tcl-78205c5188c5bc883fec229e252334d21530dc51.zip tcl-78205c5188c5bc883fec229e252334d21530dc51.tar.gz tcl-78205c5188c5bc883fec229e252334d21530dc51.tar.bz2 | |
correct compile errors
| -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 *)); |