summaryrefslogtreecommitdiffstats
path: root/win
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2001-09-27 00:19:57 (GMT)
committerdgp <dgp@users.sourceforge.net>2001-09-27 00:19:57 (GMT)
commit073702fdd13f3a1c8c129b1fc0ac838f01b4d11b (patch)
tree11719d8041bc71444822ebd3d7e40e25c1c4323e /win
parenta6c26a069d4a7aa7cd5420cabb2a7614de09f299 (diff)
downloadtcl-073702fdd13f3a1c8c129b1fc0ac838f01b4d11b.zip
tcl-073702fdd13f3a1c8c129b1fc0ac838f01b4d11b.tar.gz
tcl-073702fdd13f3a1c8c129b1fc0ac838f01b4d11b.tar.bz2
* Vince Darley reports the 2001-09-24 TIP 27 changes left the win
directory CONST poisoned. These changes should fix that.
Diffstat (limited to 'win')
-rw-r--r--win/tclWinFile.c7
1 files changed, 4 insertions, 3 deletions
diff --git a/win/tclWinFile.c b/win/tclWinFile.c
index 1cce9fd..cb4e683 100644
--- a/win/tclWinFile.c
+++ b/win/tclWinFile.c
@@ -11,7 +11,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclWinFile.c,v 1.15 2001/09/10 17:17:41 andreas_kupries Exp $
+ * RCS: @(#) $Id: tclWinFile.c,v 1.16 2001/09/27 00:19:57 dgp Exp $
*/
#include "tclWinInt.h"
@@ -121,7 +121,8 @@ TclpMatchInDirectory(interp, resultPtr, pathPtr, pattern, types)
{
char drivePat[] = "?:\\";
const char *message;
- char *dir, *root;
+ CONST char *dir;
+ char *root;
int dirLength;
Tcl_DString dirString;
DWORD attr, volFlags;
@@ -887,7 +888,7 @@ NativeStat(nativePath, statPtr)
DWORD attr;
WCHAR nativeFullPath[MAX_PATH];
TCHAR *nativePart;
- char *fullPath;
+ CONST char *fullPath;
int dev, mode;
handle = (*tclWinProcs->findFirstFileProc)(nativePath, &data);