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

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

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

	    if (count == BINARY_ALL) {
		count = length;
	    } else if (count == BINARY_NOCOUNT) {
		count = 1;
	    }
	    if (length >= count) {
		memcpy(cursor, bytes, (size_t) count);

|
|

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);
	    arg++;
	    if (count == BINARY_ALL) {
		count = length;
	    } else if (count == BINARY_NOCOUNT) {
		count = 1;
	    }
	    if (length >= count) {
		memcpy(cursor, bytes, (size_t) count);