summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorpatthoyts <patthoyts@users.sourceforge.net>2005-11-04 23:01:39 (GMT)
committerpatthoyts <patthoyts@users.sourceforge.net>2005-11-04 23:01:39 (GMT)
commit2feffdc81ee352036ee1519395ff9e5dcab96867 (patch)
treead307b6f7f7d668f3002bfa09ea7896295955457 /generic
parenta371489bc6ceddc40588b7fc34595e01989d633d (diff)
downloadtcl-2feffdc81ee352036ee1519395ff9e5dcab96867.zip
tcl-2feffdc81ee352036ee1519395ff9e5dcab96867.tar.gz
tcl-2feffdc81ee352036ee1519395ff9e5dcab96867.tar.bz2
* win/tclWinPort.h: Applied patch #1267871 by Matt Newman for
* win/tclWinPipe.c: extended error code support on Windows. * tests/exec.test: Tests for extended error codes. * generic/tclPipe.c: Permit long codes (platform macros permitting).
Diffstat (limited to 'generic')
-rw-r--r--generic/tclPipe.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclPipe.c b/generic/tclPipe.c
index 0afc584..16dad41 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.14 2005/11/02 14:51:05 dkf Exp $
+ * RCS: @(#) $Id: tclPipe.c,v 1.15 2005/11/04 23:01:40 patthoyts Exp $
*/
#include "tclInt.h"
@@ -317,7 +317,7 @@ TclCleanupChildren(
sprintf(msg1, "%lu", resolvedPid);
if (WIFEXITED(waitStatus)) {
if (interp != (Tcl_Interp *) NULL) {
- sprintf(msg2, "%hu", WEXITSTATUS(waitStatus));
+ sprintf(msg2, "%lu", WEXITSTATUS(waitStatus));
Tcl_SetErrorCode(interp, "CHILDSTATUS", msg1, msg2, NULL);
}
abnormalExit = 1;