summaryrefslogtreecommitdiffstats
path: root/generic/tclIO.c
diff options
context:
space:
mode:
authorandreask <andreask>2014-08-06 18:20:56 (GMT)
committerandreask <andreask>2014-08-06 18:20:56 (GMT)
commit1b32842190bca544934896869543ba718d86a14d (patch)
treec694207f6ee37f2414578816b4baa9c0106cea9f /generic/tclIO.c
parentdbdd37b73de17dc76a2ff888439adc6f92e9b6da (diff)
downloadtcl-1b32842190bca544934896869543ba718d86a14d.zip
tcl-1b32842190bca544934896869543ba718d86a14d.tar.gz
tcl-1b32842190bca544934896869543ba718d86a14d.tar.bz2
Fixed type conversion warnings which break a Win32 debug build (MSVC).
Diffstat (limited to 'generic/tclIO.c')
-rw-r--r--generic/tclIO.c12
1 files changed, 10 insertions, 2 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c
index c142917..66c0be6 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.c
@@ -9048,7 +9048,8 @@ MBWrite(
ChannelState *outStatePtr = csPtr->writePtr->state;
ChannelBuffer *bufPtr = inStatePtr->inQueueHead;
ChannelBuffer *tail = NULL;
- int code, inBytes = 0;
+ int code;
+ Tcl_WideInt inBytes = 0;
/* Count up number of bytes waiting in the input queue */
while (bufPtr) {
@@ -9063,7 +9064,14 @@ MBWrite(
if (bufPtr) {
/* Split the overflowing buffer in two */
- int extra = inBytes - csPtr->toRead;
+ int extra = (int) (inBytes - csPtr->toRead);
+ /* Note that going with int for extra assumes that inBytes is not too
+ * much over toRead to require a wide itself. If that gets violated
+ * then the calculations involving extra must be made wide too.
+ *
+ * Noted with Win32/MSVC debug build treating the warning (possible of
+ * data in int64 to int conversion) as error.
+ */
bufPtr = AllocChannelBuffer(extra);