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 | 39f39163b75b167982429e186a1105255faac7c4 (patch) | |
| tree | ea16ef7e34f504082fef458a06271fac222079ce /unix/tclUnixPipe.c | |
| parent | fd0b5f1e04ab5b4febf653fe2f0054d1cd205e0f (diff) | |
| parent | 8f53fd7c7bc9d1c648c94a2715af135b5e2a1138 (diff) | |
| download | tcl-39f39163b75b167982429e186a1105255faac7c4.zip tcl-39f39163b75b167982429e186a1105255faac7c4.tar.gz tcl-39f39163b75b167982429e186a1105255faac7c4.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; } |