Differences From Artifact [038db00ea0]:

• File unix/tclUnixTest.c — part of check-in [aa3e7e529f] at 2023-04-20 16:53:29 on branch tip-626 — Merge 9.0 (user: jan.nijtmans size: 17306) [more...]

To Artifact [c11bde10d0]:

• File unix/tclUnixTest.c — part of check-in [b732c118b6] at 2023-04-21 13:32:45 on branch tip-626 — Merge 9.0 (user: jan.nijtmans size: 17308) [more...]

609
610
611
612
613
614
615
616
617
618
619
620
621
622
623

static int
TestchmodCmd(
    TCL_UNUSED(void *),
    Tcl_Interp *interp,			/* Current interpreter. */
    Tcl_Size objc,			/* Number of arguments. */
    Tcl_Obj *const *objv)		/* Argument strings. */
{
    size_t i;
    int mode;

    if (objc + 1 < 3) {
    Tcl_WrongNumArgs(interp, 1, objv, "mode file ?file ...?");
	return TCL_ERROR;
    }

|

609
610
611
612
613
614
615
616
617
618
619
620
621
622
623

static int
TestchmodCmd(
    TCL_UNUSED(void *),
    Tcl_Interp *interp,			/* Current interpreter. */
    Tcl_Size objc,			/* Number of arguments. */
    Tcl_Obj *const *objv)		/* Argument strings. */
{
    Tcl_Size i;
    int mode;

    if (objc + 1 < 3) {
    Tcl_WrongNumArgs(interp, 1, objv, "mode file ?file ...?");
	return TCL_ERROR;
    }