diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-05-22 09:24:48 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-05-22 09:24:48 (GMT) |
| commit | d2c4946d727b2d3f18c1da474fbc60bfc7424d6a (patch) | |
| tree | ea16ef7e34f504082fef458a06271fac222079ce /unix/tclUnixPipe.c | |
| parent | 52a14d4f14aeb1ff8ff9aa444b291302f4cae2b2 (diff) | |
| parent | ea6c7d941dbff0e4659841da5fb4954cb01f4d97 (diff) | |
| download | tcl-d2c4946d727b2d3f18c1da474fbc60bfc7424d6a.zip tcl-d2c4946d727b2d3f18c1da474fbc60bfc7424d6a.tar.gz tcl-d2c4946d727b2d3f18c1da474fbc60bfc7424d6a.tar.bz2 | |
Merge 8.6. Fix TCL_NO_DEPRECATED build
Diffstat (limited to 'unix/tclUnixPipe.c')
| -rw-r--r-- | unix/tclUnixPipe.c | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/unix/tclUnixPipe.c b/unix/tclUnixPipe.c index 70a5d5d..32fc631 100644 --- a/unix/tclUnixPipe.c +++ b/unix/tclUnixPipe.c @@ -620,7 +620,7 @@ TclpCreateProcess( } TclpCloseFile(errPipeIn); - *pidPtr = (Tcl_Pid) INT2PTR(pid); + *pidPtr = (Tcl_Pid)INT2PTR(pid); return TCL_OK; error: @@ -1220,12 +1220,14 @@ PipeOutputProc( * so do not pass it to directly to Tcl_CreateFileHandler. * Instead, pass a wrapper which is a Tcl_FileProc. */ + static void PipeWatchNotifyChannelWrapper( void *clientData, int mask) { Tcl_Channel channel = (Tcl_Channel)clientData; + Tcl_NotifyChannel(channel, mask); } @@ -1324,7 +1326,7 @@ Tcl_WaitPid( while (1) { result = (int) waitpid(real_pid, statPtr, options); if ((result != -1) || (errno != EINTR)) { - return (Tcl_Pid) INT2PTR(result); + return (Tcl_Pid)INT2PTR(result); } } } @@ -1370,7 +1372,7 @@ Tcl_PidObjCmd( * Get the channel and make sure that it refers to a pipe. */ - chan = Tcl_GetChannel(interp, Tcl_GetString(objv[1]), NULL); + chan = Tcl_GetChannel(interp, TclGetString(objv[1]), NULL); if (chan == NULL) { return TCL_ERROR; } |