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: |
f073246dd22c913edce7a4289ecb5a86 |
| 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
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
|