Commit | Line | Data |
---|---|---|
853d6e5b AC |
1 | /* This test file is part of GDB, the GNU debugger. |
2 | ||
b811d2c2 | 3 | Copyright 1995-2020 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 | |
94b8e876 | 30 | TODO: all clients should use test_compiler_info and should not |
b6304613 | 31 | use gcc_compiled. |
4ce44c66 | 32 | |
fffc87ae | 33 | */ |
94b8e876 | 34 | |
b6304613 | 35 | set compiler_info "unknown" |
4ce44c66 JM |
36 | |
37 | #if defined (__GNUC__) | |
338e05af AC |
38 | #if defined (__GNUC_PATCHLEVEL__) |
39 | /* Only GCC versions >= 3.0 define the __GNUC_PATCHLEVEL__ macro. */ | |
40 | set compiler_info [join {gcc __GNUC__ __GNUC_MINOR__ __GNUC_PATCHLEVEL__} -] | |
41 | #else | |
42 | set compiler_info [join {gcc __GNUC__ __GNUC_MINOR__ "unknown"} -] | |
43 | #endif | |
4ce44c66 JM |
44 | #endif |
45 | ||
ae051c1b PG |
46 | #if defined (__xlc__) |
47 | /* IBM'x xlc compiler. NOTE: __xlc__ expands to a double quoted string of four | |
30baf67b | 48 | numbers separated by '.'s: currently "7.0.0.0" */ |
c4d88f87 | 49 | set need_a_set [regsub -all {\.} [join {xlc __xlc__} -] - compiler_info] |
ae051c1b | 50 | #endif |
e5461016 PB |
51 | |
52 | #if defined (__ARMCC_VERSION) | |
53 | set compiler_info [join {armcc __ARMCC_VERSION} -] | |
54 | #endif | |
5e703181 DE |
55 | |
56 | #if defined (__clang__) | |
57 | set compiler_info [join {clang __clang_major__ __clang_minor__ __clang_patchlevel__} -] | |
58 | #endif | |
a14d1f4d BH |
59 | |
60 | #if defined (__ICC) | |
61 | set icc_major [string range __ICC 0 1] | |
62 | set icc_minor [format "%d" [string range __ICC 2 [expr {[string length __ICC] -1}]]] | |
63 | set icc_update __INTEL_COMPILER_UPDATE | |
64 | set compiler_info [join "icc $icc_major $icc_minor $icc_update" -] | |
65 | #elif defined (__ICL) | |
66 | set icc_major [string range __ICL 0 1] | |
67 | set icc_minor [format "%d" [string range __ICL 2 [expr {[string length __ICL] -1}]]] | |
68 | set icc_update __INTEL_COMPILER_UPDATE | |
69 | set compiler_info [join "icc $icc_major $icc_minor $icc_update" -] | |
70 | #endif |