Tcl Source Code

Artifact 9216d5005f3085012327368d316830ed52235bcd:

Attachment "tclPipe.diff" to ticket [2529137fff] added by jkfellin 2009-01-23 01:47:11.

---

*** tclPipe.c.orig	Thu Jan 22 12:28:02 2009
--- tclPipe.c	Thu Jan 22 13:44:29 2009
***************
*** 329,335 ****
                      Tcl_SetErrorCode(interp, "CHILDKILLED", msg1,
                              Tcl_SignalId((int) (WTERMSIG(waitStatus))), p,
                              NULL);
!                     Tcl_AppendResult(interp, "child killed: ", p, " waitstatus x%x\n", waitStatus, NULL);
  		} else if (WIFSTOPPED(waitStatus)) {
                      p = Tcl_SignalMsg((int) (WSTOPSIG(waitStatus)));
                      Tcl_SetErrorCode(interp, "CHILDSUSP", msg1,
--- 329,336 ----
                      Tcl_SetErrorCode(interp, "CHILDKILLED", msg1,
                              Tcl_SignalId((int) (WTERMSIG(waitStatus))), p,
                              NULL);
!                     sprintf(msg2, "0x%4.4x\n", waitStatus);
!                     Tcl_AppendResult(interp, "child killed: ", p, " waitstatus ", msg2, NULL);
  		} else if (WIFSTOPPED(waitStatus)) {
                      p = Tcl_SignalMsg((int) (WSTOPSIG(waitStatus)));
                      Tcl_SetErrorCode(interp, "CHILDSUSP", msg1,