diff options
| author | dgp <dgp@users.sourceforge.net> | 2004-06-17 19:41:45 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2004-06-17 19:41:45 (GMT) |
| commit | f75c649ae374b3859584280866dcff801f5835f3 (patch) | |
| tree | a94a1c3393eba190e4e5294df994bb81d9edda49 | |
| parent | 78205c5188c5bc883fec229e252334d21530dc51 (diff) | |
| download | tcl-f75c649ae374b3859584280866dcff801f5835f3.zip tcl-f75c649ae374b3859584280866dcff801f5835f3.tar.gz tcl-f75c649ae374b3859584280866dcff801f5835f3.tar.bz2 | |
more compiler fixes
| -rw-r--r-- | win/tclWinInit.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/win/tclWinInit.c b/win/tclWinInit.c index bc58859..824a8eb 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.50 2004/06/17 19:37:30 dgp Exp $ + * RCS: @(#) $Id: tclWinInit.c,v 1.51 2004/06/17 19:41:45 dgp Exp $ */ #include "tclWinInt.h" @@ -202,8 +202,6 @@ SetDefaultLibraryDir(directory) static Tcl_Obj * GetDefaultLibraryDir() { - int numBytes; - CONST char *bytes; Tcl_Obj **savedDirectoryPtr = (Tcl_Obj **) Tcl_GetThreadData(&defaultLibraryDirKey, (int)sizeof(Tcl_Obj *)); @@ -304,7 +302,7 @@ TclpInitLibraryPath(path) /* the path to the executable name. */ { #define LIBRARY_SIZE 32 - Tcl_Obj *pathPtr, *objPtr, objv[]; + Tcl_Obj *pathPtr, *objPtr, **objv; CONST char *str; Tcl_DString ds; int objc, pathc; |