Differences From Artifact [6a9bc39134]:

• File generic/tclBinary.c — part of check-in [5574bdd262] at 2011-03-12 15:06:47 on branch trunk — Adjust ckalloc/ckfree macros to greatly reduce number of explicit casts in rest of Tcl source code. No ABI change. API change *should* be harmless. (user: dkf size: 69416) [more...]

To Artifact [350c0bf644]:

• File generic/tclBinary.c — part of check-in [281db1ba11] at 2012-03-02 10:05:57 on branch trunk — (Tcl_SetByteArrayObj): Only zero out the memory block if it is not being immediately overwritten. Thanks to Stuart Cassoff for spotting. (user: dkf size: 69439) [more...]

301
302
303
304
305
306
307
308
309
310

311
312



313
314
315
316
317
318
319

	Tcl_Panic("%s called with shared object", "Tcl_SetByteArrayObj");
    }
    TclFreeIntRep(objPtr);
    Tcl_InvalidateStringRep(objPtr);

    length = (length < 0) ? 0 : length;
    byteArrayPtr = ckalloc(BYTEARRAY_SIZE(length));
    memset(byteArrayPtr, 0, BYTEARRAY_SIZE(length));
    byteArrayPtr->used = length;
    byteArrayPtr->allocated = length;

    if (bytes && length) {
	memcpy(byteArrayPtr->bytes, bytes, (size_t) length);



    }

    objPtr->typePtr = &tclByteArrayType;
    SET_BYTEARRAY(objPtr, byteArrayPtr);
}

/*

<


>
|
|
>
>
>

301
302
303
304
305
306
307

308
309
310
311
312
313
314
315
316
317
318
319
320
321
322

	Tcl_Panic("%s called with shared object", "Tcl_SetByteArrayObj");
    }
    TclFreeIntRep(objPtr);
    Tcl_InvalidateStringRep(objPtr);

    length = (length < 0) ? 0 : length;
    byteArrayPtr = ckalloc(BYTEARRAY_SIZE(length));

    byteArrayPtr->used = length;
    byteArrayPtr->allocated = length;
    if (length) {
	if (bytes) {
	    memcpy(byteArrayPtr->bytes, bytes, (size_t) length);
	} else {
	    memset(byteArrayPtr->bytes, 0, (size_t) length);
	}
    }

    objPtr->typePtr = &tclByteArrayType;
    SET_BYTEARRAY(objPtr, byteArrayPtr);
}

/*