Differences From Artifact [0eae0db238]:

• File generic/tclBinary.c — part of check-in [0c0ff65606] at 2019-01-24 20:10:25 on branch trunk — Another round of int -> size_t modifications, so strings > 2Gb are handled correctly on 64-bit platforms. (user: jan.nijtmans size: 82261)

To Artifact [acda943994]:

• File generic/tclBinary.c — part of check-in [3b04e31a96] at 2019-01-24 20:50:35 on branch trunk — Fix handling of 'a'/'A' in previous commit: Sinze TclGetByteArrayFromObj is a macro evaluating its arguments more than once, we cannot use ++ in there. (user: jan.nijtmans size: 82270) [more...]

1087
1088
1089
1090
1091
1092
1093
1094
1095


1096
1097
1098
1099
1100
1101
1102

1087
1088
1089
1090
1091
1092
1093


1094
1095
1096
1097
1098
1099
1100
1101
1102

-
-
+
+

	}
	switch (cmd) {
	case 'a':
	case 'A': {
	    char pad = (char) (cmd == 'a' ? '\0' : ' ');
	    unsigned char *bytes;

	    bytes = TclGetByteArrayFromObj(objv[arg++], &length);

	    bytes = TclGetByteArrayFromObj(objv[arg], &length);
	    arg++;
	    if (count == BINARY_ALL) {
		count = length;
	    } else if (count == BINARY_NOCOUNT) {
		count = 1;
	    }
	    if (length >= count) {
		memcpy(cursor, bytes, (size_t) count);