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

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
		if (TclListObjLength(interp, objv[arg], &listc) != TCL_OK) {
			) != TCL_OK) {
		    return TCL_ERROR;
		}

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