diff options
Diffstat (limited to 'generic/tclPipe.c')
| -rw-r--r-- | generic/tclPipe.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclPipe.c b/generic/tclPipe.c index 4f39c93..931f2a7 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.3 1999/04/16 00:46:51 stanton Exp $ + * RCS: @(#) $Id: tclPipe.c,v 1.4 2002/01/15 21:19:07 dgp Exp $ */ #include "tclInt.h" @@ -278,7 +278,7 @@ TclCleanupChildren(interp, numPids, pidPtr, errorChan) int i, abnormalExit, anyErrorInfo; Tcl_Pid pid; WAIT_STATUS_TYPE waitStatus; - char *msg; + CONST char *msg; abnormalExit = 0; for (i = 0; i < numPids; i++) { @@ -324,7 +324,7 @@ TclCleanupChildren(interp, numPids, pidPtr, errorChan) abnormalExit = 1; } else if (WIFSIGNALED(waitStatus)) { if (interp != (Tcl_Interp *) NULL) { - char *p; + CONST char *p; p = Tcl_SignalMsg((int) (WTERMSIG(waitStatus))); Tcl_SetErrorCode(interp, "CHILDKILLED", msg1, @@ -335,7 +335,7 @@ TclCleanupChildren(interp, numPids, pidPtr, errorChan) } } else if (WIFSTOPPED(waitStatus)) { if (interp != (Tcl_Interp *) NULL) { - char *p; + CONST char *p; p = Tcl_SignalMsg((int) (WSTOPSIG(waitStatus))); Tcl_SetErrorCode(interp, "CHILDSUSP", msg1, |