diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-10-21 21:32:38 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-10-21 21:32:38 (GMT) |
| commit | 817a97238eb4d10f5fbb213987776efb3f86adc9 (patch) | |
| tree | 92011770b39e676310245589395f0e0169aa3623 /unix/tclUnixPipe.c | |
| parent | 7398a025d45df93243a3f96d1fddf17a86acd707 (diff) | |
| download | tcl-817a97238eb4d10f5fbb213987776efb3f86adc9.zip tcl-817a97238eb4d10f5fbb213987776efb3f86adc9.tar.gz tcl-817a97238eb4d10f5fbb213987776efb3f86adc9.tar.bz2 | |
Formatting, PTR2INT range improvements, and remove some macro's only used on Cygwin, which are no longer necessary
Diffstat (limited to 'unix/tclUnixPipe.c')
| -rw-r--r-- | unix/tclUnixPipe.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/unix/tclUnixPipe.c b/unix/tclUnixPipe.c index 437c6ee..a7cd1c4 100644 --- a/unix/tclUnixPipe.c +++ b/unix/tclUnixPipe.c @@ -872,7 +872,7 @@ TclGetAndDetachPids( pipePtr = Tcl_GetChannelInstanceData(chan); TclNewObj(pidsObj); for (i = 0; i < pipePtr->numPids; i++) { - Tcl_ListObjAppendElement(NULL, pidsObj, Tcl_NewIntObj( + Tcl_ListObjAppendElement(NULL, pidsObj, Tcl_NewLongObj( PTR2INT(pipePtr->pidPtr[i]))); Tcl_DetachPids(1, &pipePtr->pidPtr[i]); } @@ -1290,7 +1290,7 @@ Tcl_PidObjCmd( resultPtr = Tcl_NewObj(); for (i = 0; i < pipePtr->numPids; i++) { Tcl_ListObjAppendElement(NULL, resultPtr, - Tcl_NewIntObj(PTR2INT(TclpGetPid(pipePtr->pidPtr[i])))); + Tcl_NewLongObj(PTR2INT(TclpGetPid(pipePtr->pidPtr[i])))); } Tcl_SetObjResult(interp, resultPtr); } |