Differences From Artifact [525b2e2f4d]:

• File generic/tclBinary.c — part of check-in [63d442cdc0] at 2024-03-12 21:24:14 on branch main — Restore TclListObjGetElements()/TclListObjLength() as they were in 8.6 too. (user: jan.nijtmans size: 82170) [more...]

To Artifact [f8f884e34e]:

• File generic/tclBinary.c — part of check-in [1fbff64078] at 2024-03-19 14:56:45 on branch main — Fix indentation/brace usage style issues (user: dkf size: 82166) [more...]

957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972

		Tcl_Size listc;
		Tcl_Obj **listv;

		/*
		 * The macro evals its args more than once: avoid arg++
		 */

		if (TclListObjLength(interp, objv[arg], &listc
			) != TCL_OK) {
		    return TCL_ERROR;
		}

		if (count == BINARY_ALL) {
		    count = listc;
		} else if (count > listc) {
		    Tcl_SetObjResult(interp, Tcl_NewStringObj(

|
<

957
958
959
960
961
962
963
964

965
966
967
968
969
970
971

		Tcl_Size listc;
		Tcl_Obj **listv;

		/*
		 * The macro evals its args more than once: avoid arg++
		 */

		if (TclListObjLength(interp, objv[arg], &listc) != TCL_OK) {

		    return TCL_ERROR;
		}

		if (count == BINARY_ALL) {
		    count = listc;
		} else if (count > listc) {
		    Tcl_SetObjResult(interp, Tcl_NewStringObj(