diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-12-08 16:55:03 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-12-08 16:55:03 (GMT) |
| commit | 743e03cf5e6eb1b9679f21e613513de51f874878 (patch) | |
| tree | 0f4eb4070d0d4a28ad38f4f9031721b8d8609495 /win/tclWinFile.c | |
| parent | d8fd9552b555513cd62d8be2ae422a92c7be9d0e (diff) | |
| parent | 39bf69006a6847b4068bd3b9b8debda81197502a (diff) | |
| download | tcl-743e03cf5e6eb1b9679f21e613513de51f874878.zip tcl-743e03cf5e6eb1b9679f21e613513de51f874878.tar.gz tcl-743e03cf5e6eb1b9679f21e613513de51f874878.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'win/tclWinFile.c')
| -rw-r--r-- | win/tclWinFile.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/win/tclWinFile.c b/win/tclWinFile.c index 9a5e1f4..1380217 100644 --- a/win/tclWinFile.c +++ b/win/tclWinFile.c @@ -3046,7 +3046,7 @@ TclNativeCreateNativeRep( WCHAR *nativePathPtr = NULL; const char *str; Tcl_Obj *validPathPtr; - int len; + size_t len; WCHAR *wp; if (TclFSCwdIsNative()) { @@ -3083,9 +3083,10 @@ TclNativeCreateNativeRep( Tcl_IncrRefCount(validPathPtr); } - str = Tcl_GetStringFromObj(validPathPtr, &len); + str = Tcl_GetString(validPathPtr); + len = validPathPtr->length; - if (strlen(str) != (size_t) len) { + if (strlen(str) != len) { /* * String contains NUL-bytes. This is invalid. */ |