Tcl package Thread source code

Check-in [3026826a66]
Login

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

Overview
Comment:fix for [76f47e0376fb], thread::send -async script varname aborts with "alloc: invalid block"
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256:3026826a66e2e34d897f9c70dfa7538673c3828313223bc7a01994dfd3b6ef7b
User & Date: pooryorick 2018-07-17 06:21:15
Context
2018-07-17
09:59
merge 2.8 check-in: b925b34699 user: sebres tags: trunk
06:21
fix for [76f47e0376fb], thread::send -async script varname aborts with "alloc: invalid block" check-in: 3026826a66 user: pooryorick tags: trunk
2018-07-14
22:38
Reword documentation for -eventmark. Regenerate documentation. check-in: dc05603999 user: pooryorick tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/threadCmd.c.

985
986
987
988
989
990
991

992
993
994
995
996
997
998
        goto usage;
    }

    script = Tcl_GetString(objv[ii]);
    len = objv[ii]->length;
    if (++ii < objc) {
        var = objv[ii];

        vlen = objv[ii]->length;
    }
    if (var && (flags & THREAD_SEND_WAIT) == 0) {
        if (thrId == Tcl_GetCurrentThread()) {
            /*
             * FIXME: Do something for callbacks to self
             */







>







985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
        goto usage;
    }

    script = Tcl_GetString(objv[ii]);
    len = objv[ii]->length;
    if (++ii < objc) {
        var = objv[ii];
        Tcl_GetString(var);
        vlen = objv[ii]->length;
    }
    if (var && (flags & THREAD_SEND_WAIT) == 0) {
        if (thrId == Tcl_GetCurrentThread()) {
            /*
             * FIXME: Do something for callbacks to self
             */