Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Revise the compile-time version/feature checking for improved clarity and correctness. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
94b0e5de65c553f5e38e9e5a628ed9e7 |
| User & Date: | mistachkin 2015-03-26 17:00:54 |
Context
|
2015-03-27
| ||
| 20:33 | Use the new TCL_MINIMUM_VERSION macro in one additional place missed in the previous check-in. check-in: 593a90d9bc user: mistachkin tags: trunk | |
|
2015-03-26
| ||
| 17:00 | Revise the compile-time version/feature checking for improved clarity and correctness. check-in: 94b0e5de65 user: mistachkin tags: trunk | |
|
2015-03-06
| ||
| 19:13 | Update `make dist` target for the configure.in rename. check-in: 7c8c5bd4e1 user: dgp tags: trunk, thread-2-7-2 | |
Changes
Changes to generic/tclThreadInt.h.
| ︙ | ︙ | |||
85 86 87 88 89 90 91 92 93 94 95 96 97 98 |
if ((a)->prevPtr != NULL) \
(a)->prevPtr->nextPtr = (a)->nextPtr; \
else \
(b) = (a)->nextPtr; \
if ((a)->nextPtr != NULL) \
(a)->nextPtr->prevPtr = (a)->prevPtr
/*
* Utility macros
*/
#define TCL_CMD(a,b,c) \
if (Tcl_CreateObjCommand((a),(b),(c),(ClientData)NULL, NULL) == NULL) \
return TCL_ERROR
| > > > > > > > > | 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 |
if ((a)->prevPtr != NULL) \
(a)->prevPtr->nextPtr = (a)->nextPtr; \
else \
(b) = (a)->nextPtr; \
if ((a)->nextPtr != NULL) \
(a)->nextPtr->prevPtr = (a)->prevPtr
/*
* Version macros
*/
#define TCL_MINIMUM_VERSION(major,minor) \
((TCL_MAJOR_VERSION > (major)) || \
((TCL_MAJOR_VERSION == (major)) && (TCL_MINOR_VERSION >= (minor))))
/*
* Utility macros
*/
#define TCL_CMD(a,b,c) \
if (Tcl_CreateObjCommand((a),(b),(c),(ClientData)NULL, NULL) == NULL) \
return TCL_ERROR
|
| ︙ | ︙ |
Changes to generic/threadCmd.c.
| ︙ | ︙ | |||
27 28 29 30 31 32 33 | /* * Check if this is Tcl 8.5 or higher. In that case, we will have the TIP * #143 APIs (i.e. interpreter resource limiting) available. */ #ifndef TCL_TIP143 | | | | < | | | < | 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 |
/*
* Check if this is Tcl 8.5 or higher. In that case, we will have the TIP
* #143 APIs (i.e. interpreter resource limiting) available.
*/
#ifndef TCL_TIP143
# if TCL_MINIMUM_VERSION(8,5)
# define TCL_TIP143
# endif
#endif
/*
* If TIP #143 support is enabled and we are compiling against a pre-Tcl 8.5
* core, hard-wire the necessary APIs using the "well-known" offsets into the
* stubs table.
*/
#define haveInterpLimit (threadTclVersion>=85)
#if defined(TCL_TIP143) && !TCL_MINIMUM_VERSION(8,5)
# if defined(USE_TCL_STUBS)
# define Tcl_LimitExceeded ((int (*)(Tcl_Interp *)) \
((&(tclStubsPtr->tcl_PkgProvideEx))[524]))
# else
# error "Supporting TIP #143 requires USE_TCL_STUBS before Tcl 8.5"
# endif
#endif
/*
* Check if this is Tcl 8.6 or higher. In that case, we will have the TIP
* #285 APIs (i.e. asynchronous script cancellation) available.
*/
#define haveInterpCancel (threadTclVersion>=86)
#ifndef TCL_TIP285
# if TCL_MINIMUM_VERSION(8,6)
# define TCL_TIP285
# endif
#endif
/*
* If TIP #285 support is enabled and we are compiling against a pre-Tcl 8.6
* core, hard-wire the necessary APIs using the "well-known" offsets into the
* stubs table.
*/
#if defined(TCL_TIP285) && !TCL_MINIMUM_VERSION(8,6)
# if defined(USE_TCL_STUBS)
# define TCL_CANCEL_UNWIND 0x100000
# define Tcl_CancelEval ((int (*)(Tcl_Interp *, Tcl_Obj *, ClientData, int)) \
((&(tclStubsPtr->tcl_PkgProvideEx))[580]))
# define Tcl_Canceled ((int (*)(Tcl_Interp *, int)) \
((&(tclStubsPtr->tcl_PkgProvideEx))[581]))
# else
|
| ︙ | ︙ |