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 | 7571df843a7468cda6a5504dd3de1d32aef11060 (patch) | |
| tree | 85d0e9ab30d72fb0b5c2d04187305ebe4ba589d8 | |
| parent | f7c255fa173cd4132aad1d142f00927ed82def11 (diff) | |
| download | tcl-7571df843a7468cda6a5504dd3de1d32aef11060.zip tcl-7571df843a7468cda6a5504dd3de1d32aef11060.tar.gz tcl-7571df843a7468cda6a5504dd3de1d32aef11060.tar.bz2 | |
Fix [3cdcfa40809ffd2b9d3d71f77dc57da615243730|3cdcfa4080]: tclWinFile.c does not compile with Win VC6
| -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. */ |