Tcl Source Code

Check-in [6b15f347eb]
Login

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

Overview
Comment:eliminate compiler warning in previous commit
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-5-branch
Files: files | file ages | folders
SHA1: 6b15f347ebfc6954b2a01591472f11e0dc683d69
User & Date: jan.nijtmans 2012-09-17 10:45:47
Context
2012-09-25
12:59
tip#404 file locale mcset: mc(fl)(m)set backport from 8.6 check-in: 2806b288e6 user: oehhar tags: core-8-5-branch
2012-09-17
10:50
eliminate compiler warning in previous commit check-in: 81b322475b user: jan.nijtmans tags: trunk
10:45
eliminate compiler warning in previous commit check-in: 6b15f347eb user: jan.nijtmans tags: core-8-5-branch
2012-09-16
15:56
Nicer style test. check-in: ef79a774d6 user: stwo tags: core-8-5-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclBinary.c.

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)) {
	memcpy(byteArrayPtr->bytes, bytes, (size_t) length);
    }
    objPtr->typePtr = &tclByteArrayType;
    SET_BYTEARRAY(objPtr, byteArrayPtr);
}

/*







|







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 ((bytes != NULL) && (length > 0)) {
	memcpy(byteArrayPtr->bytes, bytes, (size_t) length);
    }
    objPtr->typePtr = &tclByteArrayType;
    SET_BYTEARRAY(objPtr, byteArrayPtr);
}

/*