summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authornijtmans <nijtmans>2010-02-01 00:07:13 (GMT)
committernijtmans <nijtmans>2010-02-01 00:07:13 (GMT)
commit31c2cd054d791e99d70c6ff41a6c160142229d1c (patch)
treef6a2b54d9ea6ccce4700fb1c1803b2615d2b98e7 /generic
parent000ce914c4d1f4b493568ce10baa2341bc73b510 (diff)
downloadtcl-31c2cd054d791e99d70c6ff41a6c160142229d1c.zip
tcl-31c2cd054d791e99d70c6ff41a6c160142229d1c.tar.gz
tcl-31c2cd054d791e99d70c6ff41a6c160142229d1c.tar.bz2
better panic message
Diffstat (limited to 'generic')
-rw-r--r--generic/tclTest.c18
1 files changed, 9 insertions, 9 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c
index 7d9835a..7aa4681 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.6 2010/01/31 23:51:36 nijtmans Exp $
+ * RCS: @(#) $Id: tclTest.c,v 1.114.2.7 2010/02/01 00:07:13 nijtmans Exp $
*/
#define TCL_TEST
@@ -1221,7 +1221,7 @@ TestcmdtraceCmd(
} else {
return result;
}
- } else if ( strcmp(argv[1], "doubletest" ) == 0 ) {
+ } else if (strcmp(argv[1], "doubletest") == 0) {
Tcl_Trace t1, t2;
Tcl_DStringInit(&buffer);
@@ -2212,12 +2212,12 @@ ExitProcOdd(
ClientData clientData) /* Integer value to print. */
{
char buf[16 + TCL_INTEGER_SPACE];
- int len;
+ size_t len;
sprintf(buf, "odd %d\n", PTR2INT(clientData));
len = strlen(buf);
- if (len != (int) write(1, buf, len)) {
- Tcl_Panic("Tcl_FinalizeNotifier: unable to write q to triggerPipe");
+ if (len != (size_t) write(1, buf, len)) {
+ Tcl_Panic("ExitProcOdd: unable to write to stdout");
}
}
@@ -2226,12 +2226,12 @@ ExitProcEven(
ClientData clientData) /* Integer value to print. */
{
char buf[16 + TCL_INTEGER_SPACE];
- int len;
+ size_t len;
sprintf(buf, "even %d\n", PTR2INT(clientData));
len = strlen(buf);
- if (len != (int) write(1, buf, len)) {
- Tcl_Panic("Tcl_FinalizeNotifier: unable to write q to triggerPipe");
+ if (len != (size_t) write(1, buf, len)) {
+ Tcl_Panic("ExitProcEven: unable to write to stdout");
}
}
@@ -4373,7 +4373,7 @@ TestfeventCmd(
* Calls the panic routine.
*
* Results:
- * Always returns TCL_OK.
+ * Always returns TCL_OK.
*
* Side effects:
* May exit application.