diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-08-18 06:47:51 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-08-18 06:47:51 (GMT) |
| commit | a6250b7467b38acdb154e904cd9903bab188810d (patch) | |
| tree | 55eff3f3a1abf7dec86fd3947941fec40f83e1f1 | |
| parent | 96af7fcd51a853aac2eb09b6de444a9789e04638 (diff) | |
| download | tcl-a6250b7467b38acdb154e904cd9903bab188810d.zip tcl-a6250b7467b38acdb154e904cd9903bab188810d.tar.gz tcl-a6250b7467b38acdb154e904cd9903bab188810d.tar.bz2 | |
A few more compiler warnings
| -rw-r--r-- | generic/tclIOCmd.c | 2 | ||||
| -rw-r--r-- | unix/tclUnixFCmd.c | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclIOCmd.c b/generic/tclIOCmd.c index 44c2738..7d54156 100644 --- a/generic/tclIOCmd.c +++ b/generic/tclIOCmd.c @@ -779,7 +779,7 @@ Tcl_ExecObjCmd(dummy, interp, objc, objv) argv = argStorage; argc = objc - skip; - if ((argc + 1) > sizeof(argv) / sizeof(argv[0])) { + if ((argc + 1) > (int)(sizeof(argv) / sizeof(argv[0]))) { argv = (CONST char **) ckalloc((unsigned)(argc + 1) * sizeof(char *)); } diff --git a/unix/tclUnixFCmd.c b/unix/tclUnixFCmd.c index 1fbe384..50e1921 100644 --- a/unix/tclUnixFCmd.c +++ b/unix/tclUnixFCmd.c @@ -536,10 +536,10 @@ CopyFile(src, dst, statBufPtr) buffer = ckalloc(blockSize); while (1) { nread = read(srcFd, buffer, blockSize); - if ((nread == -1) || (nread == 0)) { + if ((nread == (size_t) -1) || (nread == 0)) { break; } - if (write(dstFd, buffer, nread) != nread) { + if (write(dstFd, buffer, nread) != (int)nread) { nread = (size_t) -1; break; } @@ -547,7 +547,7 @@ CopyFile(src, dst, statBufPtr) ckfree(buffer); close(srcFd); - if ((close(dstFd) != 0) || (nread == -1)) { + if ((close(dstFd) != 0) || (nread == (size_t) -1)) { unlink(dst); /* INTL: Native. */ return TCL_ERROR; } |