summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2005-11-07 08:56:27 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2005-11-07 08:56:27 (GMT)
commit1784f99d50c3e86f3f051d73ac1a42c377242633 (patch)
tree58e7324544d89c9206c562311904598ce1bbc4dd
parent15953d9a5eb21c83e8996e1ef07027ad49f9458b (diff)
downloadtcl-1784f99d50c3e86f3f051d73ac1a42c377242633.zip
tcl-1784f99d50c3e86f3f051d73ac1a42c377242633.tar.gz
tcl-1784f99d50c3e86f3f051d73ac1a42c377242633.tar.bz2
Silence a warning.
-rw-r--r--generic/tclPipe.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclPipe.c b/generic/tclPipe.c
index 16dad41..3cec10c 100644
--- a/generic/tclPipe.c
+++ b/generic/tclPipe.c
@@ -9,7 +9,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclPipe.c,v 1.15 2005/11/04 23:01:40 patthoyts Exp $
+ * RCS: @(#) $Id: tclPipe.c,v 1.16 2005/11/07 08:56:27 dkf Exp $
*/
#include "tclInt.h"
@@ -317,7 +317,8 @@ TclCleanupChildren(
sprintf(msg1, "%lu", resolvedPid);
if (WIFEXITED(waitStatus)) {
if (interp != (Tcl_Interp *) NULL) {
- sprintf(msg2, "%lu", WEXITSTATUS(waitStatus));
+ sprintf(msg2, "%lu",
+ (unsigned long) WEXITSTATUS(waitStatus));
Tcl_SetErrorCode(interp, "CHILDSTATUS", msg1, msg2, NULL);
}
abnormalExit = 1;