diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-02-27 08:34:05 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-02-27 08:34:05 (GMT) |
| commit | f04b875d88bbe9cd4d2114d60c194be01a7c9e04 (patch) | |
| tree | 34dde540a1ed936003a721aec62cf6ede6e5bfa2 /win | |
| parent | 4fdbe79875a43efd9f42e75ccf256884f657dac3 (diff) | |
| download | tcl-f04b875d88bbe9cd4d2114d60c194be01a7c9e04.zip tcl-f04b875d88bbe9cd4d2114d60c194be01a7c9e04.tar.gz tcl-f04b875d88bbe9cd4d2114d60c194be01a7c9e04.tar.bz2 | |
More use of (efficient) TclHasIntRep() macro. Also eliminate many (size_t) and (unsigned) type-casts, which don't make sense any more.
Diffstat (limited to 'win')
| -rw-r--r-- | win/tclWinConsole.c | 6 | ||||
| -rw-r--r-- | win/tclWinInit.c | 4 | ||||
| -rw-r--r-- | win/tclWinPipe.c | 2 |
3 files changed, 6 insertions, 6 deletions
diff --git a/win/tclWinConsole.c b/win/tclWinConsole.c index f8b67a3..5f23cca 100644 --- a/win/tclWinConsole.c +++ b/win/tclWinConsole.c @@ -660,11 +660,11 @@ ConsoleInputProc( */ if (bufSize < (infoPtr->bytesRead - infoPtr->offset)) { - memcpy(buf, &infoPtr->buffer[infoPtr->offset], (size_t) bufSize); + memcpy(buf, &infoPtr->buffer[infoPtr->offset], bufSize); bytesRead = bufSize; infoPtr->offset += bufSize; } else { - memcpy(buf, &infoPtr->buffer[infoPtr->offset], (size_t) bufSize); + memcpy(buf, &infoPtr->buffer[infoPtr->offset], bufSize); bytesRead = infoPtr->bytesRead - infoPtr->offset; /* @@ -771,7 +771,7 @@ ConsoleOutputProc( infoPtr->writeBufLen = toWrite; infoPtr->writeBuf = ckalloc(toWrite); } - memcpy(infoPtr->writeBuf, buf, (size_t) toWrite); + memcpy(infoPtr->writeBuf, buf, toWrite); infoPtr->toWrite = toWrite; ResetEvent(threadInfo->readyEvent); TclPipeThreadSignal(&threadInfo->TI); diff --git a/win/tclWinInit.c b/win/tclWinInit.c index 2ce19ce..d780660 100644 --- a/win/tclWinInit.c +++ b/win/tclWinInit.c @@ -269,7 +269,7 @@ AppendEnvironment( for (shortlib = (char *) &lib[strlen(lib)-1]; shortlib>lib ; shortlib--) { if (*shortlib == '/') { - if ((unsigned)(shortlib - lib) == strlen(lib) - 1) { + if ((size_t)(shortlib - lib) == strlen(lib) - 1) { Tcl_Panic("last character in lib cannot be '/'"); } shortlib++; @@ -637,7 +637,7 @@ TclpFindVariable( length = strlen(name); nameUpper = ckalloc(length + 1); - memcpy(nameUpper, name, (size_t) length+1); + memcpy(nameUpper, name, length+1); Tcl_UtfToUpper(nameUpper); Tcl_DStringInit(&envString); diff --git a/win/tclWinPipe.c b/win/tclWinPipe.c index 83987d6..86b98f7 100644 --- a/win/tclWinPipe.c +++ b/win/tclWinPipe.c @@ -2214,7 +2214,7 @@ PipeOutputProc( infoPtr->writeBufLen = toWrite; infoPtr->writeBuf = ckalloc(toWrite); } - memcpy(infoPtr->writeBuf, buf, (size_t) toWrite); + memcpy(infoPtr->writeBuf, buf, toWrite); infoPtr->toWrite = toWrite; ResetEvent(infoPtr->writable); TclPipeThreadSignal(&infoPtr->writeTI); |