summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2014-07-17 11:02:03 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2014-07-17 11:02:03 (GMT)
commitf9efaaa3654408f97cb74fdac4b1309b067f7e71 (patch)
tree85d0e9ab30d72fb0b5c2d04187305ebe4ba589d8
parent81f6450e303c90f6d48445856752ddaa52436954 (diff)
downloadtcl-f9efaaa3654408f97cb74fdac4b1309b067f7e71.zip
tcl-f9efaaa3654408f97cb74fdac4b1309b067f7e71.tar.gz
tcl-f9efaaa3654408f97cb74fdac4b1309b067f7e71.tar.bz2
Fix [3cdcfa40809ffd2b9d3d71f77dc57da615243730|3cdcfa4080]: tclWinFile.c does not compile with Win VC6
-rw-r--r--win/tclWinFile.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/win/tclWinFile.c b/win/tclWinFile.c
index ad4a5c4..1cdd53f 100644
--- a/win/tclWinFile.c
+++ b/win/tclWinFile.c
@@ -2900,7 +2900,7 @@ TclNativeCreateNativeRep(
WCHAR *nativePathPtr;
const char *str;
Tcl_Obj *validPathPtr;
- int len;
+ size_t len;
WCHAR *wp;
if (TclFSCwdIsNative()) {
@@ -2926,7 +2926,8 @@ TclNativeCreateNativeRep(
Tcl_IncrRefCount(validPathPtr);
}
- str = Tcl_GetStringFromObj(validPathPtr, &len);
+ str = Tcl_GetString(validPathPtr);
+ len = validPathPtr->length;
if (strlen(str)!=len) {
/* String contains NUL-bytes. This is invalid. */