diff options
author | dgp <dgp@users.sourceforge.net> | 2020-09-15 18:04:02 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2020-09-15 18:04:02 (GMT) |
commit | 163d31e623394ea08605580b140ef1a5f14a0573 (patch) | |
tree | 30378ff4653a9894ccf072e5a2c622afd288bd0e /generic/tclIO.c | |
parent | e36bada6ec8d9679acbb7b2b73f38d3d643d5dd7 (diff) | |
parent | 93124d77a6848e2118547a4f477abd8e26493252 (diff) | |
download | tcl-163d31e623394ea08605580b140ef1a5f14a0573.zip tcl-163d31e623394ea08605580b140ef1a5f14a0573.tar.gz tcl-163d31e623394ea08605580b140ef1a5f14a0573.tar.bz2 |
merge 8.7
Diffstat (limited to 'generic/tclIO.c')
-rw-r--r-- | generic/tclIO.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index 63fb997..8c778d4 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -4756,7 +4756,7 @@ Tcl_GetsObj( gs.rawRead -= rawRead; gs.bytesWrote--; gs.charsWrote--; - memmove(dst, dst + 1, (size_t) (dstEnd - dst)); + memmove(dst, dst + 1, dstEnd - dst); dstEnd--; } } @@ -7711,7 +7711,7 @@ Tcl_BadChannelOption( } Tcl_ResetResult(interp); errObj = Tcl_ObjPrintf("bad option \"%s\": should be one of ", - optionName); + optionName ? optionName : ""); argc--; for (i = 0; i < argc; i++) { Tcl_AppendPrintfToObj(errObj, "-%s, ", argv[i]); @@ -10509,7 +10509,7 @@ Tcl_IsChannelExisting( } if ((*chanName == *name) && - (memcmp(name, chanName, (size_t) chanNameLen + 1) == 0)) { + (memcmp(name, chanName, chanNameLen + 1) == 0)) { return 1; } } |