From 8f94a06a62ad516fdd3ffe0a9379f17142f2e486 Mon Sep 17 00:00:00 2001
From: davygrvy <davygrvy@pobox.com>
Date: Tue, 26 Oct 2004 20:24:15 +0000
Subject: * generic/tclPipe.c (TclCleanupChildren): bad cast of resolvedPid
 caused PIDs on win95 to go negative.  winpipe-4.2 brought this to the
 surface.  Fixed with sprintf in place of TclFormatInt.  Thanks to hgiese
 [Patch 767676]

---
 generic/tclPipe.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/generic/tclPipe.c b/generic/tclPipe.c
index 681d18b..d4a45cd 100644
--- a/generic/tclPipe.c
+++ b/generic/tclPipe.c
@@ -10,7 +10,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.9 2004/07/02 23:31:29 hobbs Exp $
+ * RCS: @(#) $Id: tclPipe.c,v 1.10 2004/10/26 20:24:15 davygrvy Exp $
  */
 
 #include "tclInt.h"
@@ -322,10 +322,10 @@ TclCleanupChildren(interp, numPids, pidPtr, errorChan)
 	    char msg1[TCL_INTEGER_SPACE], msg2[TCL_INTEGER_SPACE];
 
 	    result = TCL_ERROR;
-	    TclFormatInt(msg1, (long) resolvedPid);
+	    sprintf(msg1, "%lu", resolvedPid);
 	    if (WIFEXITED(waitStatus)) {
                 if (interp != (Tcl_Interp *) NULL) {
-		    TclFormatInt(msg2, WEXITSTATUS(waitStatus));
+		    sprintf(msg2, "%hu", WEXITSTATUS(waitStatus));
                     Tcl_SetErrorCode(interp, "CHILDSTATUS", msg1, msg2,
                             (char *) NULL);
                 }
-- 
cgit v0.12