Tcl Source Code

Check-in [5a15cd0ee2]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Nicer style test.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 5a15cd0ee2c6345b014c229426f4f7c258a5b226
User & Date: stwo 2012-09-16 15:51:55
Context
2012-09-17
10:50
eliminate compiler warning in previous commit check-in: 81b322475b user: jan.nijtmans tags: trunk
2012-09-16
15:51
Nicer style test. check-in: 5a15cd0ee2 user: stwo tags: trunk
2012-09-14
18:20
Mistaken cleanup command. check-in: d614733809 user: dgp tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclBinary.c.

305
306
307
308
309
310
311
312

313
314
315
316
317
318
319
320
321
322

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

	memcpy(byteArrayPtr->bytes, bytes, (size_t) length);
    }

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







|
>


<







305
306
307
308
309
310
311
312
313
314
315

316
317
318
319
320
321
322

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

    if ((length != NULL) && (bytes > 0)) {
	memcpy(byteArrayPtr->bytes, bytes, (size_t) length);
    }

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