From d62033b7e21f33603528c9712d11732f1fc756f7 Mon Sep 17 00:00:00 2001 From: hypnotoad Date: Tue, 12 Jun 2018 19:32:03 +0000 Subject: Adding typecasts in tclZipfs.c to eliminate a compiler warning --- generic/tclZipfs.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/generic/tclZipfs.c b/generic/tclZipfs.c index 1df6694..b6c8a00 100644 --- a/generic/tclZipfs.c +++ b/generic/tclZipfs.c @@ -2381,7 +2381,7 @@ ZipFSMkZipOrImgObjCmd(ClientData clientData, Tcl_Interp *interp, Unlock(); } } else { - int k, n, m; + int k, m, n; Tcl_Channel in; const char *errMsg = "seek error"; @@ -2414,8 +2414,8 @@ cperr: k = 0; while (k < i) { m = i - k; - if (m > sizeof (buf)) { - m = sizeof (buf); + if (m > (int)sizeof (buf)) { + m = (int)sizeof (buf); } n = Tcl_Read(in, buf, m); if (n == -1) { -- cgit v0.12