summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorrmax <rmax>2008-03-14 16:32:50 (GMT)
committerrmax <rmax>2008-03-14 16:32:50 (GMT)
commit473838eabcddf5535160c095af0a1b71e68d48f7 (patch)
treebcce11adaf2714eb933e590421dcf30d5320c424
parent25c98e6ecf1d1c3c2d355c446344111dd22b1a65 (diff)
downloadtcl-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--ChangeLog5
-rw-r--r--generic/tclTest.c6
-rw-r--r--unix/tclUnixPipe.c6
3 files changed, 11 insertions, 6 deletions
diff --git a/ChangeLog b/ChangeLog
index dc0af21..930894a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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);
}