diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2014-07-17 11:02:03 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2014-07-17 11:02:03 (GMT) |
| commit | f9efaaa3654408f97cb74fdac4b1309b067f7e71 (patch) | |
| tree | 85d0e9ab30d72fb0b5c2d04187305ebe4ba589d8 /win/tclWinFile.c | |
| parent | 81f6450e303c90f6d48445856752ddaa52436954 (diff) | |
| download | tcl-f9efaaa3654408f97cb74fdac4b1309b067f7e71.zip tcl-f9efaaa3654408f97cb74fdac4b1309b067f7e71.tar.gz tcl-f9efaaa3654408f97cb74fdac4b1309b067f7e71.tar.bz2 | |
Fix [3cdcfa40809ffd2b9d3d71f77dc57da615243730|3cdcfa4080]: tclWinFile.c does not compile with Win VC6
Diffstat (limited to 'win/tclWinFile.c')
| -rw-r--r-- | win/tclWinFile.c | 5 |
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. */ |