Tcl package Thread source code

Check-in [dcb4f6c364]
Login

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

Overview
Comment:code review
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | thread-2-8-branch
Files: files | file ages | folders
SHA3-256: dcb4f6c3648e5b47a3849ac5da8e5c17a0367cb611f22f41a02476d6dd7ccb36
User & Date: sebres 2018-07-17 11:30:48.568
Context
2018-10-12
18:40
Re-number to 2.8.4 for release check-in: 4059955b4e user: jan.nijtmans tags: thread-2-8-branch
2018-07-17
11:31
merge 2.8 check-in: b58409de1c user: sebres tags: trunk
11:30
code review check-in: dcb4f6c364 user: sebres tags: thread-2-8-branch
10:23
test-cases extended check-in: 1765cdf3c9 user: sebres tags: thread-2-8-branch
Changes
Unified Diff Ignore Whitespace Patch
Changes to generic/threadCmd.c.
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
    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;







|







978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
    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;