]>
Commit | Line | Data |
---|---|---|
853d6e5b AC |
1 | /* This test file is part of GDB, the GNU debugger. |
2 | ||
1d506c26 | 3 | Copyright 1995-2024 Free Software Foundation, Inc. |
853d6e5b AC |
4 | |
5 | This program is free software; you can redistribute it and/or modify | |
6 | it under the terms of the GNU General Public License as published by | |
a9762ec7 | 7 | the Free Software Foundation; either version 3 of the License, or |
853d6e5b AC |
8 | (at your option) any later version. |
9 | ||
10 | This program is distributed in the hope that it will be useful, | |
11 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
12 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
13 | GNU General Public License for more details. | |
a9762ec7 | 14 | |
853d6e5b | 15 | You should have received a copy of the GNU General Public License |
a9762ec7 | 16 | along with this program. If not, see <http://www.gnu.org/licenses/>. |
853d6e5b | 17 | |
fffc87ae | 18 | */ |
853d6e5b | 19 | |
94b8e876 MC |
20 | /* Sometimes the behavior of a test depends upon the compiler used to |
21 | compile the test program. A test script can call get_compiler_info | |
22 | to figure out the compiler version and test_compiler_info to test it. | |
4ce44c66 | 23 | |
94b8e876 MC |
24 | get_compiler_info runs the preprocessor on this file and then eval's |
25 | the result. This sets various symbols for use by test_compiler_info. | |
4ce44c66 | 26 | |
94b8e876 MC |
27 | TODO: make compiler_info a local variable for get_compiler_info and |
28 | test_compiler_info. | |
4ce44c66 | 29 | |
fffc87ae | 30 | */ |
94b8e876 | 31 | |
b6304613 | 32 | set compiler_info "unknown" |
4ce44c66 JM |
33 | |
34 | #if defined (__GNUC__) | |
338e05af AC |
35 | #if defined (__GNUC_PATCHLEVEL__) |
36 | /* Only GCC versions >= 3.0 define the __GNUC_PATCHLEVEL__ macro. */ | |
37 | set compiler_info [join {gcc __GNUC__ __GNUC_MINOR__ __GNUC_PATCHLEVEL__} -] | |
38 | #else | |
39 | set compiler_info [join {gcc __GNUC__ __GNUC_MINOR__ "unknown"} -] | |
40 | #endif | |
4ce44c66 JM |
41 | #endif |
42 | ||
ae051c1b PG |
43 | #if defined (__xlc__) |
44 | /* IBM'x xlc compiler. NOTE: __xlc__ expands to a double quoted string of four | |
30baf67b | 45 | numbers separated by '.'s: currently "7.0.0.0" */ |
c4d88f87 | 46 | set need_a_set [regsub -all {\.} [join {xlc __xlc__} -] - compiler_info] |
ae051c1b | 47 | #endif |
e5461016 PB |
48 | |
49 | #if defined (__ARMCC_VERSION) | |
50 | set compiler_info [join {armcc __ARMCC_VERSION} -] | |
51 | #endif | |
5e703181 DE |
52 | |
53 | #if defined (__clang__) | |
54 | set compiler_info [join {clang __clang_major__ __clang_minor__ __clang_patchlevel__} -] | |
55 | #endif | |
a14d1f4d BH |
56 | |
57 | #if defined (__ICC) | |
58 | set icc_major [string range __ICC 0 1] | |
59 | set icc_minor [format "%d" [string range __ICC 2 [expr {[string length __ICC] -1}]]] | |
60 | set icc_update __INTEL_COMPILER_UPDATE | |
61 | set compiler_info [join "icc $icc_major $icc_minor $icc_update" -] | |
62 | #elif defined (__ICL) | |
63 | set icc_major [string range __ICL 0 1] | |
64 | set icc_minor [format "%d" [string range __ICL 2 [expr {[string length __ICL] -1}]]] | |
65 | set icc_update __INTEL_COMPILER_UPDATE | |
66 | set compiler_info [join "icc $icc_major $icc_minor $icc_update" -] | |
2026dcfc NCK |
67 | #elif defined(__INTEL_LLVM_COMPILER) && defined(__clang_version__) |
68 | /* Intel Next Gen compiler defines preprocessor __INTEL_LLVM_COMPILER and | |
69 | provides version info in __clang_version__ e.g. value: | |
70 | "12.0.0 (icx 2020.10.0.1113)". */ | |
71 | set total_length [string length __clang_version__] | |
72 | set version_start_index [string last "(" __clang_version__] | |
73 | set version_string [string range __clang_version__ $version_start_index+5 $total_length-2] | |
74 | set version_updated_string [string map {. -} $version_string] | |
22582546 | 75 | set compiler_info "icx-$version_updated_string" |
a14d1f4d | 76 | #endif |