diff options
| author | dgp <dgp@users.sourceforge.net> | 2002-01-15 21:19:06 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2002-01-15 21:19:06 (GMT) |
| commit | 1f65844631f74a8dfd9e7ed208564f50f401b3c9 (patch) | |
| tree | 0f1a58bb3c42858070ea1a2eeefac3311847898a /generic/tclPipe.c | |
| parent | 568095bebd17af34916de0d4f2d5eb631a98d876 (diff) | |
| download | tcl-1f65844631f74a8dfd9e7ed208564f50f401b3c9.zip tcl-1f65844631f74a8dfd9e7ed208564f50f401b3c9.tar.gz tcl-1f65844631f74a8dfd9e7ed208564f50f401b3c9.tar.bz2 | |
* Updated APIs in generic/tclIOUtil.c and generic/tclPosixStr.c
according to the guidelines of TIP 27. Updated callers. [Patch 499196]
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, |