Tcl Source Code

Artifact 981dd78347929d3ab0c09a2eb66a2c3a6d4d8c93:

Attachment "tclPipe_c.diff" to ticket [767676ffff] added by hgiese 2003-07-08 18:08:32.

---

--- ./tcl.org/generic/tclpipe.c	Tue Dec 17 01:47:40 2002
+++ ./tcl/generic/tclpipe.c	Tue Dec 17 01:47:40 2002
@@ -323,10 +323,18 @@
 	    char msg1[TCL_INTEGER_SPACE], msg2[TCL_INTEGER_SPACE];
 
 	    result = TCL_ERROR;
+#ifdef __WIN32__
+        sprintf(msg1, "%lu", resolvedPid);
+#else
 	    TclFormatInt(msg1, (long) resolvedPid);
+#endif
 	    if (WIFEXITED(waitStatus)) {
                 if (interp != (Tcl_Interp *) NULL) {
+#ifdef __WIN32__
+                    sprintf(msg2, "%lu", WEXITSTATUS(waitStatus));
+#else
 		    TclFormatInt(msg2, WEXITSTATUS(waitStatus));
+#endif
                     Tcl_SetErrorCode(interp, "CHILDSTATUS", msg1, msg2,
                             (char *) NULL);
                 }
@@ -1068,3 +1076,4 @@
     }
     return NULL;
 }
+