summaryrefslogtreecommitdiffstats
path: root/generic/tclTest.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclTest.c')
-rw-r--r--generic/tclTest.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c
index 7320f51..7d9835a 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.114.2.5 2010/01/29 09:38:48 nijtmans Exp $
+ * RCS: @(#) $Id: tclTest.c,v 1.114.2.6 2010/01/31 23:51:36 nijtmans Exp $
*/
#define TCL_TEST
@@ -2212,11 +2212,11 @@ ExitProcOdd(
ClientData clientData) /* Integer value to print. */
{
char buf[16 + TCL_INTEGER_SPACE];
- size_t len;
+ int len;
sprintf(buf, "odd %d\n", PTR2INT(clientData));
len = strlen(buf);
- if (write(1, buf, len) != len) {
+ if (len != (int) write(1, buf, len)) {
Tcl_Panic("Tcl_FinalizeNotifier: unable to write q to triggerPipe");
}
}
@@ -2226,11 +2226,11 @@ ExitProcEven(
ClientData clientData) /* Integer value to print. */
{
char buf[16 + TCL_INTEGER_SPACE];
- size_t len;
+ int len;
sprintf(buf, "even %d\n", PTR2INT(clientData));
len = strlen(buf);
- if (write(1, buf, len) != len) {
+ if (len != (int) write(1, buf, len)) {
Tcl_Panic("Tcl_FinalizeNotifier: unable to write q to triggerPipe");
}
}