summaryrefslogtreecommitdiffstats
path: root/generic/tclTest.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2019-08-26 15:55:03 (GMT)
committerdgp <dgp@users.sourceforge.net>2019-08-26 15:55:03 (GMT)
commit9b14adeeea423c1bb5f7204eec18ffdff0df0381 (patch)
treecc9713b5ab812b49fdb40c3b05bee50428c789c0 /generic/tclTest.c
parentc5da22ebff9ceadd0cdba231ffea95d4ae6891dd (diff)
parent3718091236ee12146de730e2d5d733a3ee6ce77f (diff)
downloadtcl-9b14adeeea423c1bb5f7204eec18ffdff0df0381.zip
tcl-9b14adeeea423c1bb5f7204eec18ffdff0df0381.tar.gz
tcl-9b14adeeea423c1bb5f7204eec18ffdff0df0381.tar.bz2
merge 8.6
Diffstat (limited to 'generic/tclTest.c')
-rw-r--r--generic/tclTest.c12
1 files changed, 6 insertions, 6 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c
index 1a4d7bf..473368c 100644
--- a/generic/tclTest.c
+++ b/generic/tclTest.c
@@ -2384,11 +2384,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));
+ sprintf(buf, "odd %d\n", (int)PTR2INT(clientData));
len = strlen(buf);
- if (len != (size_t) write(1, buf, len)) {
+ if (len != (int) write(1, buf, len)) {
Tcl_Panic("ExitProcOdd: unable to write to stdout");
}
}
@@ -2398,11 +2398,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));
+ sprintf(buf, "even %d\n", (int)PTR2INT(clientData));
len = strlen(buf);
- if (len != (size_t) write(1, buf, len)) {
+ if (len != (int) write(1, buf, len)) {
Tcl_Panic("ExitProcEven: unable to write to stdout");
}
}