summaryrefslogtreecommitdiffstats
path: root/generic/tclBasic.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2020-07-06 12:00:35 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2020-07-06 12:00:35 (GMT)
commit698d338b0f99491fa29224dbfa20aabad7efad67 (patch)
tree0d82925d246872e732646e7ab48ae4193e5d867d /generic/tclBasic.c
parent11f905cd0ac504734130b3c41a7b434b83557b7c (diff)
parent20c87d8e2377d5d7f88a6f170e92e5a70fbddf3b (diff)
downloadtcl-698d338b0f99491fa29224dbfa20aabad7efad67.zip
tcl-698d338b0f99491fa29224dbfa20aabad7efad67.tar.gz
tcl-698d338b0f99491fa29224dbfa20aabad7efad67.tar.bz2
Merge 8.7. Provide both major and minor version number for gcc/clang/msvc
Diffstat (limited to 'generic/tclBasic.c')
-rw-r--r--generic/tclBasic.c25
1 files changed, 17 insertions, 8 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index d1e6fe2..34e7985 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -1183,7 +1183,6 @@ Tcl_CreateInterp(void)
*/
Tcl_PkgProvideEx(interp, "Tcl", TCL_PATCH_LEVEL
-#if defined(TCL_NO_DEPRECATED) || TCL_MAJOR_VERSION > 8
"+" STRINGIFY(TCL_VERSION_UUID)
#ifdef TCL_COMPILE_DEBUG
".compiledebug"
@@ -1192,28 +1191,39 @@ Tcl_CreateInterp(void)
".compilestats"
#endif
#if defined(__clang__) && defined(__clang_major__)
- ".clang" STRINGIFY(__clang_major__)
+ ".clang-" STRINGIFY(__clang_major__)
+#if __clang_minor__ < 10
+ "0"
+#endif
+ STRINGIFY(__clang_minor__)
#endif
#ifndef NDEBUG
".debug"
#endif
#if !defined(__clang__) && defined(__GNUC__)
- ".gcc" STRINGIFY(__GNUC__)
+ ".gcc-" STRINGIFY(__GNUC__)
+#if __GNUC_MINOR__ < 10
+ "0"
+#endif
+ STRINGIFY(__GNUC_MINOR__)
#endif
#ifdef TCL_MEM_DEBUG
".memdebug"
#endif
#if defined(_MSC_VER)
- ".msvc" STRINGIFY(_MSC_VER)
+ ".msvc-" STRINGIFY(_MSC_VER)
+#endif
+#ifdef USE_NMAKE
+ ".nmake"
#endif
#ifdef TCL_NO_DEPRECATED
- ".nodeprecate"
+ ".no-deprecate"
#endif
#ifndef TCL_THREADS
- ".nothread"
+ ".no-thread"
#endif
#ifndef TCL_CFG_OPTIMIZED
- ".nooptimize"
+ ".no-optimize"
#endif
#ifdef TCL_CFG_PROFILED
".profiled"
@@ -1224,7 +1234,6 @@ Tcl_CreateInterp(void)
#if TCL_UTF_MAX < 4
".utf16"
#endif
-#endif /* TCL_NO_DEPRECATED || TCL_MAJOR_VERSION > 8 */
, &tclStubs);
if (TclTommath_Init(interp) != TCL_OK) {