Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix mostly-harmless minor buffer overrun. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
68e44b50d116e38c56420c8d449cf7a4 |
| User & Date: | dkf 2012-07-16 22:28:49 |
Context
|
2012-07-17
| ||
| 09:03 | [Bug 3544943]: Version mismatch in rules.vc check-in: 55be072fff user: jan.nijtmans tags: trunk | |
|
2012-07-16
| ||
| 22:28 | Fix mostly-harmless minor buffer overrun. check-in: 68e44b50d1 user: dkf tags: trunk | |
| 08:09 | Make registry 1.3 package dynamically loadable when ::tcl::pkgconfig is available check-in: a65bf226ec user: jan.nijtmans tags: trunk | |
Changes
Changes to ChangeLog.
1 2 3 4 5 6 7 | 2012-07-16 Jan Nijtmans <[email protected]> * library/reg/pkgIndex.tcl: Make registry 1.3 package dynamically loadable in Tcl 8.4.20. 2012-07-11 Jan Nijtmans <[email protected]> | > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 | 2012-07-16 Donal K. Fellows <[email protected]> * generic/tclUtil.c (UpdateStringOfEndOffset): [Bug 3544658]: Stop 1-byte overrun in memcpy, that object placement rules made harmless but which still caused compiler complaints. 2012-07-16 Jan Nijtmans <[email protected]> * library/reg/pkgIndex.tcl: Make registry 1.3 package dynamically loadable in Tcl 8.4.20. 2012-07-11 Jan Nijtmans <[email protected]> |
| ︙ | ︙ |
Changes to generic/tclUtil.c.
| ︙ | ︙ | |||
3422 3423 3424 3425 3426 3427 3428 |
*----------------------------------------------------------------------
*/
static void
UpdateStringOfEndOffset(
register Tcl_Obj *objPtr)
{
| | | | 3422 3423 3424 3425 3426 3427 3428 3429 3430 3431 3432 3433 3434 3435 3436 3437 3438 3439 |
*----------------------------------------------------------------------
*/
static void
UpdateStringOfEndOffset(
register Tcl_Obj *objPtr)
{
char buffer[TCL_INTEGER_SPACE + 5];
register int len;
memcpy(buffer, "end", 4);
len = sizeof("end") - 1;
if (objPtr->internalRep.longValue != 0) {
buffer[len++] = '-';
len += TclFormatInt(buffer+len, -(objPtr->internalRep.longValue));
}
objPtr->bytes = ckalloc((unsigned) len+1);
memcpy(objPtr->bytes, buffer, (unsigned) len+1);
|
| ︙ | ︙ |