diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-03-13 20:44:29 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-03-13 20:44:29 (GMT) |
| commit | 60670274b079f0aa0735bb70fb12c642d1b585ab (patch) | |
| tree | d143a2884551f41e7277b1c38347651cb22a7a3b /generic/tclIO.c | |
| parent | 7e4d77967482128bb89b7cfa2a77cd57e58b2abd (diff) | |
| download | tcl-60670274b079f0aa0735bb70fb12c642d1b585ab.zip tcl-60670274b079f0aa0735bb70fb12c642d1b585ab.tar.gz tcl-60670274b079f0aa0735bb70fb12c642d1b585ab.tar.bz2 | |
Eliminate many (mostly harmless) MSVC warning messages. Tcl 9 compiles warning-free now on MSVC.
Diffstat (limited to 'generic/tclIO.c')
| -rw-r--r-- | generic/tclIO.c | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index 619982a..ab5d20c 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -4408,7 +4408,7 @@ Write( * beginning of the next buffer. */ - saved = -SpaceLeft(bufPtr); + saved = 1 + ~SpaceLeft(bufPtr); memcpy(safe, dst + dstLen, saved); bufPtr->nextAdded = bufPtr->bufLength; } @@ -7672,7 +7672,7 @@ Tcl_BadChannelOption( Tcl_AppendPrintfToObj(errObj, "or -%s", argv[i]); Tcl_SetObjResult(interp, errObj); Tcl_DStringFree(&ds); - Tcl_Free(argv); + Tcl_Free((void *)argv); } Tcl_SetErrno(EINVAL); return TCL_ERROR; @@ -8063,7 +8063,7 @@ Tcl_SetChannelOption( "bad value for -eofchar: must be non-NUL ASCII" " character", -1)); } - Tcl_Free(argv); + Tcl_Free((void *)argv); return TCL_ERROR; } if (GotFlag(statePtr, TCL_READABLE)) { @@ -8078,11 +8078,11 @@ Tcl_SetChannelOption( "bad value for -eofchar: should be a list of zero," " one, or two elements", -1)); } - Tcl_Free(argv); + Tcl_Free((void *)argv); return TCL_ERROR; } if (argv != NULL) { - Tcl_Free(argv); + Tcl_Free((void *)argv); } /* @@ -8116,7 +8116,7 @@ Tcl_SetChannelOption( "bad value for -translation: must be a one or two" " element list", -1)); } - Tcl_Free(argv); + Tcl_Free((void *)argv); return TCL_ERROR; } @@ -8146,7 +8146,7 @@ Tcl_SetChannelOption( "bad value for -translation: must be one of " "auto, binary, cr, lf, crlf, or platform", -1)); } - Tcl_Free(argv); + Tcl_Free((void *)argv); return TCL_ERROR; } @@ -8196,11 +8196,11 @@ Tcl_SetChannelOption( "bad value for -translation: must be one of " "auto, binary, cr, lf, crlf, or platform", -1)); } - Tcl_Free(argv); + Tcl_Free((void *)argv); return TCL_ERROR; } } - Tcl_Free(argv); + Tcl_Free((void *)argv); return TCL_OK; } else if (chanPtr->typePtr->setOptionProc != NULL) { return chanPtr->typePtr->setOptionProc(chanPtr->instanceData, interp, |