Tcl package Thread source code

Check-in [369127062c]
Login
Bounty program for improvements to Tcl and certain Tcl packages.

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

Overview
Comment:Merge 2.8
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | thread-2-branch
Files: files | file ages | folders
SHA3-256: 369127062c798f384b5de6fef8fc9d9501b0e03c4b80d48967e1493e942a3fc9
User & Date: jan.nijtmans 2020-03-06 19:29:09
Context
2020-05-22
07:59
Merge 2.8 check-in: 6558572b67 user: jan.nijtmans tags: thread-2-branch
2020-03-06
19:29
Merge 2.9 check-in: 5507a0fde4 user: jan.nijtmans tags: trunk
19:29
Merge 2.8 check-in: 369127062c user: jan.nijtmans tags: thread-2-branch
19:28
Two C++-isms check-in: ac0330f6e6 user: jan.nijtmans tags: thread-2-8-branch
2020-02-12
12:53
Merge 2.8 check-in: 90a12de0df user: jan.nijtmans tags: thread-2-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclXkeylist.c.

551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
static int
FindKeyedListEntry(
    keylIntObj_t *keylIntPtr,
    const char   *key,
    size_t       *keyLenPtr,
    const char   **nextSubKeyPtr
) {
    char *keySeparPtr;
    size_t keyLen;
    int findIdx;

    keySeparPtr = strchr (key, '.');
    if (keySeparPtr != NULL) {
        keyLen = keySeparPtr - key;
    } else {
        keyLen = strlen (key);
    }

    for (findIdx = 0; findIdx < keylIntPtr->numEntries; findIdx++) {







|



|







551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
static int
FindKeyedListEntry(
    keylIntObj_t *keylIntPtr,
    const char   *key,
    size_t       *keyLenPtr,
    const char   **nextSubKeyPtr
) {
    const char *keySeparPtr;
    size_t keyLen;
    int findIdx;

    keySeparPtr = strchr(key, '.');
    if (keySeparPtr != NULL) {
        keyLen = keySeparPtr - key;
    } else {
        keyLen = strlen (key);
    }

    for (findIdx = 0; findIdx < keylIntPtr->numEntries; findIdx++) {

Changes to generic/threadSvCmd.c.

410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
 */

static PsStore*
GetPsStore(const char *handle)
{
    int i;
    const char *type = handle;
    char *addr, *delimiter = strchr(handle, ':');
    PsStore *tmpPtr, *psPtr = NULL;

    /*
     * Expect the handle in the following format: <type>:<address>
     * where "type" must match one of the registered presistent store
     * types (gdbm, tcl, whatever) and <address> is what is passed to
     * the open procedure of the registered store.







|







410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
 */

static PsStore*
GetPsStore(const char *handle)
{
    int i;
    const char *type = handle;
    char *addr, *delimiter = (char *)strchr(handle, ':');
    PsStore *tmpPtr, *psPtr = NULL;

    /*
     * Expect the handle in the following format: <type>:<address>
     * where "type" must match one of the registered presistent store
     * types (gdbm, tcl, whatever) and <address> is what is passed to
     * the open procedure of the registered store.