Tcl package Thread source code

Check-in [f073246dd2]
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: f073246dd22c913edce7a4289ecb5a8629ad09b07554b393cafe958748270fac
User & Date: jan.nijtmans 2020-07-09 14:29:20
Context
2020-07-16
15:15
Merge-mark (optimization in 2.8 doesn't make much sense here any more) Leaf check-in: 0f983c4b28 user: jan.nijtmans tags: thread-2-branch
2020-07-09
14:30
Merge-mark Leaf check-in: 3e98ec423f user: jan.nijtmans tags: trunk
14:29
Merge 2.8 check-in: f073246dd2 user: jan.nijtmans tags: thread-2-branch
14:28
If internal TclGetIntForIndex stub entry is available in Tcl, always use this one. check-in: 8c20940302 user: jan.nijtmans tags: thread-2-8-branch
2020-07-07
10:47
Merge 2.8 check-in: 45f1f3454f user: jan.nijtmans tags: thread-2-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/threadSvListCmd.c.

24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
    void *hooks;
    void (*dummy[34]) (void); /* dummy entries 0-33, not used */
    int (*tclGetIntForIndex) (Tcl_Interp *interp, Tcl_Obj *objPtr, int endValue, int *indexPtr); /* 34 */
} TclIntStubs;
extern const struct TclIntStubs *tclIntStubsPtr;

# undef Tcl_GetIntForIndex
# define Tcl_GetIntForIndex(interp, obj, max, ptr) ((threadTclVersion>86)? \
    ((int (*)(Tcl_Interp*,  Tcl_Obj *, int, int*))((&(tclStubsPtr->tcl_PkgProvideEx))[645]))((interp), (obj), (max), (ptr)): \
	tclIntStubsPtr->tclGetIntForIndex((interp), (obj), (max), (ptr)))
#elif TCL_MINOR_VERSION < 7
extern int TclGetIntForIndex(Tcl_Interp*,  Tcl_Obj *, int, int*);
# define Tcl_GetIntForIndex TclGetIntForIndex
#endif








|







24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
    void *hooks;
    void (*dummy[34]) (void); /* dummy entries 0-33, not used */
    int (*tclGetIntForIndex) (Tcl_Interp *interp, Tcl_Obj *objPtr, int endValue, int *indexPtr); /* 34 */
} TclIntStubs;
extern const struct TclIntStubs *tclIntStubsPtr;

# undef Tcl_GetIntForIndex
# define Tcl_GetIntForIndex(interp, obj, max, ptr) ((tclIntStubsPtr->tclGetIntForIndex == NULL)? \
    ((int (*)(Tcl_Interp*,  Tcl_Obj *, int, int*))((&(tclStubsPtr->tcl_PkgProvideEx))[645]))((interp), (obj), (max), (ptr)): \
	tclIntStubsPtr->tclGetIntForIndex((interp), (obj), (max), (ptr)))
#elif TCL_MINOR_VERSION < 7
extern int TclGetIntForIndex(Tcl_Interp*,  Tcl_Obj *, int, int*);
# define Tcl_GetIntForIndex TclGetIntForIndex
#endif