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 | SQL 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 |
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 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) ((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
|
| |
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
|