Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | add tcl upstream changes |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
15d7251b6f5157e3872b0267c1758a39 |
| User & Date: | chw 2019-05-22 05:11:01.036 |
Context
|
2019-05-22
| ||
| 05:11 | tweak undroidwish build for openbsd 6.5 check-in: 1554a23454 user: chw tags: trunk | |
| 05:11 | add tcl upstream changes check-in: 15d7251b6f user: chw tags: trunk | |
|
2019-05-21
| ||
| 04:54 | add tk upstream changes check-in: 789cb8b5d8 user: chw tags: trunk | |
Changes
Changes to jni/tcl/generic/tclHash.c.
| ︙ | ︙ | |||
322 323 324 325 326 327 328 |
for (hPtr = tablePtr->buckets[index]; hPtr != NULL;
hPtr = hPtr->nextPtr) {
#if TCL_HASH_KEY_STORE_HASH
if (hash != PTR2UINT(hPtr->hash)) {
continue;
}
#endif
| > > | > | 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 |
for (hPtr = tablePtr->buckets[index]; hPtr != NULL;
hPtr = hPtr->nextPtr) {
#if TCL_HASH_KEY_STORE_HASH
if (hash != PTR2UINT(hPtr->hash)) {
continue;
}
#endif
/* if keys pointers or values are equal */
if ((key == hPtr->key.oneWordValue)
|| compareKeysProc((void *) key, hPtr)
) {
if (newPtr) {
*newPtr = 0;
}
return hPtr;
}
}
} else {
|
| ︙ | ︙ |
Changes to jni/tcl/generic/tclTest.c.
| ︙ | ︙ | |||
4345 4346 4347 4348 4349 4350 4351 | } /* *---------------------------------------------------------------------- * * TestupvarCmd -- * | | | 4345 4346 4347 4348 4349 4350 4351 4352 4353 4354 4355 4356 4357 4358 4359 | } /* *---------------------------------------------------------------------- * * TestupvarCmd -- * * This procedure implements the "testupvar" command. It is used * to test Tcl_UpVar and Tcl_UpVar2. * * Results: * A standard Tcl result. * * Side effects: * Creates or modifies an "upvar" reference. |
| ︙ | ︙ |