Tcl package Thread source code

Check-in [7975acc2c4]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

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

Overview
Comment:AOL/Naviserver fix
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 7975acc2c442b45b375eb1944bc3bcb04dc2ea0c
User & Date: jan.nijtmans 2012-11-13 11:00:35
Context
2012-11-13
23:23
merge compileTipCheck to trunk check-in: 3d2f5a0b19 user: jan.nijtmans tags: trunk
21:34
merge trunk check-in: b372020b27 user: dgp tags: thread-2-7-0-rc
20:54
Restore compile-time and runtime checks for TIP #143 and #285; by default, enable at compile-time and check availability at runtime. check-in: 7e95d24385 user: mistachkin tags: compileTipCheck
11:00
AOL/Naviserver fix check-in: 7975acc2c4 user: jan.nijtmans tags: trunk
2012-11-12
11:15
Unlocks threadMutex if ThreadCancel is not supported on current core. check-in: 1c6fcfce9e user: zoran tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/threadCmd.c.

1711
1712
1713
1714
1715
1716
1717
1718
1719
1720
1721
1722
1723
1724
1725
     * assume that initialization of the Tcl interp will be
     * error free, which it may not. In the future we must recover
     * from this and exit gracefully (this is not that easy as
     * it seems on the first glance...)
     */

#ifdef NS_AOLSERVER
    struct mydata *md = (struct mydata*)ctrlPtr->cd;
    Ns_ThreadSetName("-tclthread-");
    interp = (Tcl_Interp*)Ns_TclAllocateInterp(md ? md->server : NULL);
#else
    interp = Tcl_CreateInterp();
    result = Tcl_Init(interp);
#endif







|







1711
1712
1713
1714
1715
1716
1717
1718
1719
1720
1721
1722
1723
1724
1725
     * assume that initialization of the Tcl interp will be
     * error free, which it may not. In the future we must recover
     * from this and exit gracefully (this is not that easy as
     * it seems on the first glance...)
     */

#ifdef NS_AOLSERVER
    NsThreadInterpData *md = (NsThreadInterpData *)ctrlPtr->cd;
    Ns_ThreadSetName("-tclthread-");
    interp = (Tcl_Interp*)Ns_TclAllocateInterp(md ? md->server : NULL);
#else
    interp = Tcl_CreateInterp();
    result = Tcl_Init(interp);
#endif