diff options
author | rmax <rmax> | 2008-03-14 16:32:50 (GMT) |
---|---|---|
committer | rmax <rmax> | 2008-03-14 16:32:50 (GMT) |
commit | 473838eabcddf5535160c095af0a1b71e68d48f7 (patch) | |
tree | bcce11adaf2714eb933e590421dcf30d5320c424 | |
parent | 25c98e6ecf1d1c3c2d355c446344111dd22b1a65 (diff) | |
download | tcl-473838eabcddf5535160c095af0a1b71e68d48f7.zip tcl-473838eabcddf5535160c095af0a1b71e68d48f7.tar.gz tcl-473838eabcddf5535160c095af0a1b71e68d48f7.tar.bz2 |
* generic/tclTest.c: Ignore the return value of write() when
* unix/tclUnixPipe.c: we are about to exit anyways.
-rw-r--r-- | ChangeLog | 5 | ||||
-rw-r--r-- | generic/tclTest.c | 6 | ||||
-rw-r--r-- | unix/tclUnixPipe.c | 6 |
3 files changed, 11 insertions, 6 deletions
@@ -1,3 +1,8 @@ +2008-03-14 Reinhard Max <max@suse.de> + + * generic/tclTest.c: Ignore the return value of write() when + * unix/tclUnixPipe.c: we are about to exit anyways. + 2008-03-13 Daniel Steffen <das@users.sourceforge.net> * unix/configure.in: use backslash-quoting instead of double-quoting diff --git a/generic/tclTest.c b/generic/tclTest.c index 76f982c..7f48903 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -14,7 +14,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclTest.c,v 1.113 2007/12/13 15:23:20 dgp Exp $ + * RCS: @(#) $Id: tclTest.c,v 1.114 2008/03/14 16:32:52 rmax Exp $ */ #define TCL_TEST @@ -2210,7 +2210,7 @@ ExitProcOdd( char buf[16 + TCL_INTEGER_SPACE]; sprintf(buf, "odd %d\n", PTR2INT(clientData)); - write(1, buf, strlen(buf)); + (void)write(1, buf, strlen(buf)); } static void @@ -2220,7 +2220,7 @@ ExitProcEven( char buf[16 + TCL_INTEGER_SPACE]; sprintf(buf, "even %d\n", PTR2INT(clientData)); - write(1, buf, strlen(buf)); + (void)write(1, buf, strlen(buf)); } /* diff --git a/unix/tclUnixPipe.c b/unix/tclUnixPipe.c index ab468b8..64b58a1 100644 --- a/unix/tclUnixPipe.c +++ b/unix/tclUnixPipe.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclUnixPipe.c,v 1.41 2008/02/28 20:12:09 jenglish Exp $ + * RCS: @(#) $Id: tclUnixPipe.c,v 1.42 2008/03/14 16:32:52 rmax Exp $ */ #include "tclInt.h" @@ -463,7 +463,7 @@ TclpCreateProcess( ((dup2(1,2) == -1) || (fcntl(2, F_SETFD, 0) != 0)))) { sprintf(errSpace, "%dforked process couldn't set up input/output: ", errno); - write(fd, errSpace, (size_t) strlen(errSpace)); + (void)write(fd, errSpace, (size_t) strlen(errSpace)); _exit(1); } @@ -474,7 +474,7 @@ TclpCreateProcess( RestoreSignals(); execvp(newArgv[0], newArgv); /* INTL: Native. */ sprintf(errSpace, "%dcouldn't execute \"%.150s\": ", errno, argv[0]); - write(fd, errSpace, (size_t) strlen(errSpace)); + (void)write(fd, errSpace, (size_t) strlen(errSpace)); _exit(1); } |