diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-07-14 08:58:13 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-07-14 08:58:13 (GMT) |
| commit | c39b5671ce09873e8b66edc4d83c2295c39e2ccf (patch) | |
| tree | 73b1dfc600efa06c297e93d3425b091900ff66c3 /generic/tclBasic.c | |
| parent | bffdbce72e5072f634d40af47630eb7cacc1c33f (diff) | |
| download | tcl-c39b5671ce09873e8b66edc4d83c2295c39e2ccf.zip tcl-c39b5671ce09873e8b66edc4d83c2295c39e2ccf.tar.gz tcl-c39b5671ce09873e8b66edc4d83c2295c39e2ccf.tar.bz2 | |
Add support for ICC
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 72eb960..438891a 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -673,7 +673,8 @@ buildInfoObjCmd( } else if (len == 8 && !strcmp(arg, "compiler")) { const char *p = strchr((char *)clientData, '.'); while (p) { - if (!strncmp(p+1, "clang-", 6) || !strncmp(p+1, "gcc-", 4) || !strncmp(p+1, "msvc-", 5)) { + if (!strncmp(p+1, "clang-", 6) || !strncmp(p+1, "gcc-", 4) + || !strncmp(p+1, "icc-", 4) || !strncmp(p+1, "msvc-", 5)) { const char *q = strchr(p+1, '.'); if (q) { char buf[16]; @@ -1276,7 +1277,7 @@ Tcl_CreateInterp(void) /* * Register Tcl's version number. * TIP #268: Full patchlevel instead of just major.minor - * TIP #???: Append build information "+<UUID>.<tag1>.<tag2>...." + * TIP #599: Extended build information "+<UUID>.<tag1>.<tag2>...." */ Tcl_PkgProvideEx(interp, "Tcl", TCL_PATCH_LEVEL, &tclStubs); |