Differences From Artifact [c314d6612f]:

• File win/tclWinPipe.c — part of check-in [d326acc1c9] at 2024-04-10 14:47:21 on branch core-8-branch — Merge 8.6 Use TclHasInternalRep() macro in more places. (user: jan.nijtmans size: 96792) [more...]

To Artifact [7bf513a74f]:

• File win/tclWinPipe.c — part of check-in [f29b98a453] at 2024-06-19 16:36:12 on branch core-8-branch — Fix [7be97a6859]: Reviewing chan.n changes (user: jan.nijtmans size: 96790) [more...]

2759
2760
2761
2762
2763
2764
2765
2766
2767
2768
2769
2770
2771
2772
2773

    Tcl_Channel chan;
    const Tcl_ChannelType *chanTypePtr;
    PipeInfo *pipePtr;
    TCL_HASH_TYPE i;
    Tcl_Obj *resultPtr, *elemPtr;

    if (objc > 2) {
	Tcl_WrongNumArgs(interp, 1, objv, "?channelId?");
	return TCL_ERROR;
    }
    if (objc == 1) {
	TclNewIntObj(elemPtr, getpid());
	Tcl_SetObjResult(interp, elemPtr);
    } else {
	chan = Tcl_GetChannel(interp, TclGetString(objv[1]),

|

2759
2760
2761
2762
2763
2764
2765
2766
2767
2768
2769
2770
2771
2772
2773

    Tcl_Channel chan;
    const Tcl_ChannelType *chanTypePtr;
    PipeInfo *pipePtr;
    TCL_HASH_TYPE i;
    Tcl_Obj *resultPtr, *elemPtr;

    if (objc > 2) {
	Tcl_WrongNumArgs(interp, 1, objv, "?channel?");
	return TCL_ERROR;
    }
    if (objc == 1) {
	TclNewIntObj(elemPtr, getpid());
	Tcl_SetObjResult(interp, elemPtr);
    } else {
	chan = Tcl_GetChannel(interp, TclGetString(objv[1]),