Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | If internal TclGetIntForIndex stub entry is available in Tcl, always use this one. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | thread-2-8-branch |
Files: | files | file ages | folders |
SHA3-256: |
8c2094030238a13852054e3f3c83d9ac |
User & Date: | jan.nijtmans 2020-07-09 14:28:19.098 |
Context
2020-07-16
| ||
14:02 | Eliminate internal function threadSendFree(), since it's just the same as ckfree check-in: 248da51b62 user: jan.nijtmans tags: thread-2-8-branch | |
2020-07-09
| ||
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:46 | Add pkgIndex.tcl to .gitignore and ignore-glob. Add .project file for eclipse check-in: 456d201c84 user: jan.nijtmans tags: thread-2-8-branch | |
Changes
Changes to generic/threadSvListCmd.c.
︙ | ︙ | |||
21 22 23 24 25 26 27 | 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 | | | 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 | 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 |
︙ | ︙ |