diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-11-18 19:43:09 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-11-18 19:43:09 (GMT) |
| commit | 90a23f176d6423227cc2fd2be8cd3a88ceb1c088 (patch) | |
| tree | 0f40b898247103d57e2ac67d60888314cf175dc2 | |
| parent | 78bce4ec934a2cce5174e894d2c845df212f71b9 (diff) | |
| download | tcl-90a23f176d6423227cc2fd2be8cd3a88ceb1c088.zip tcl-90a23f176d6423227cc2fd2be8cd3a88ceb1c088.tar.gz tcl-90a23f176d6423227cc2fd2be8cd3a88ceb1c088.tar.bz2 | |
Fix [https://core.tcl-lang.org/thread/tktview?name=16bf24d70b|16bf24d70b]: Installed Thread for Tcl 8.7 breaks availability of Thread in 8.6
| -rw-r--r-- | generic/tcl.h | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index 800ffa1..26054ea 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -2405,27 +2405,14 @@ const char * TclTomMathInitializeStubs(Tcl_Interp *interp, #endif #ifdef USE_TCL_STUBS -#if TCL_RELEASE_LEVEL == TCL_FINAL_RELEASE # define Tcl_InitStubs(interp, version, exact) \ (Tcl_InitStubs)(interp, version, \ (exact)|(TCL_MAJOR_VERSION<<8)|(TCL_MINOR_VERSION<<16), \ TCL_STUB_MAGIC) #else # define Tcl_InitStubs(interp, version, exact) \ - (Tcl_InitStubs)(interp, TCL_PATCH_LEVEL, \ - 1|(TCL_MAJOR_VERSION<<8)|(TCL_MINOR_VERSION<<16), \ - TCL_STUB_MAGIC) -#endif -#else -#if TCL_RELEASE_LEVEL == TCL_FINAL_RELEASE -# define Tcl_InitStubs(interp, version, exact) \ Tcl_PkgInitStubsCheck(interp, version, \ (exact)|(TCL_MAJOR_VERSION<<8)|(TCL_MINOR_VERSION<<16)) -#else -# define Tcl_InitStubs(interp, version, exact) \ - Tcl_PkgInitStubsCheck(interp, TCL_PATCH_LEVEL, \ - 1|(TCL_MAJOR_VERSION<<8)|(TCL_MINOR_VERSION<<16)) -#endif #endif /* |