Differences From Artifact [d82955c8ad]:

• File generic/tclBinary.c — part of check-in [ef79a774d6] at 2012-09-16 15:56:02 on branch core-8-5-branch — Nicer style test. (user: stwo size: 51574)

To Artifact [4650eea4c0]:

• File generic/tclBinary.c — part of check-in [6b15f347eb] at 2012-09-17 10:45:47 on branch core-8-5-branch — eliminate compiler warning in previous commit (user: jan.nijtmans size: 51574) [more...]

276
277
278
279
280
281
282
283

284
285
286
287
288
289
290

276
277
278
279
280
281
282

283
284
285
286
287
288
289
290

-
+

    if (length < 0) {
	length = 0;
    }
    byteArrayPtr = (ByteArray *) ckalloc(BYTEARRAY_SIZE(length));
    byteArrayPtr->used = length;
    byteArrayPtr->allocated = length;

    if ((length != NULL) && (bytes > 0)) {
    if ((bytes != NULL) && (length > 0)) {
	memcpy(byteArrayPtr->bytes, bytes, (size_t) length);
    }
    objPtr->typePtr = &tclByteArrayType;
    SET_BYTEARRAY(objPtr, byteArrayPtr);
}

/*