Tcl package Thread source code

Check-in [b58409de1c]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2018 Conference, Houston/TX, US, Oct 15-19
Send your abstracts to tclconference@googlegroups.com
or submit via the online form by Aug 20.

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 | trunk
Files: files | file ages | folders
SHA3-256:b58409de1cc40de2ad573a6890466d853cf6abbe52fcca75d5776387f0dce289
User & Date: sebres 2018-07-17 11:31:16
Context
2018-07-17
21:07
add -command option to [thread::send] Leaf check-in: bb825fdd0c user: pooryorick tags: pyk-sendcmd
11:31
merge 2.8 Leaf check-in: b58409de1c user: sebres tags: trunk
11:30
code review Leaf check-in: dcb4f6c364 user: sebres tags: thread-2-8-branch
10:24
merge 2.8 (test-cases) check-in: 8c4a3c600d user: sebres tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/threadCmd.c.

988
989
990
991
992
993
994
995
996
997
998
999
1000
1001
1002
    script = Tcl_GetString(objv[ii]);
    size = objv[ii]->length+1;
    if (++ii < objc) {
        var = objv[ii];
    }
    if (var && (flags & THREAD_SEND_WAIT) == 0) {
        const char *varName = Tcl_GetString(var);
        size_t vsize = objv[ii]->length + 1;

        if (thrId == Tcl_GetCurrentThread()) {
            /*
             * FIXME: Do something for callbacks to self
             */
            Tcl_SetObjResult(interp, Tcl_NewStringObj("can't notify self", -1));
            return TCL_ERROR;







|







988
989
990
991
992
993
994
995
996
997
998
999
1000
1001
1002
    script = Tcl_GetString(objv[ii]);
    size = objv[ii]->length+1;
    if (++ii < objc) {
        var = objv[ii];
    }
    if (var && (flags & THREAD_SEND_WAIT) == 0) {
        const char *varName = Tcl_GetString(var);
        size_t vsize = var->length + 1;

        if (thrId == Tcl_GetCurrentThread()) {
            /*
             * FIXME: Do something for callbacks to self
             */
            Tcl_SetObjResult(interp, Tcl_NewStringObj("can't notify self", -1));
            return TCL_ERROR;