1 /* This test file is part of GDB, the GNU debugger. 2 3 Copyright 1995-2024 Free Software Foundation, Inc. 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 7 the Free Software Foundation; either version 3 of the License, or 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. 14 15 You should have received a copy of the GNU General Public License 16 along with this program. If not, see <http://www.gnu.org/licenses/>. 17 18 */ 19 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. 23 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. 26 27 TODO: make compiler_info a local variable for get_compiler_info and 28 test_compiler_info. 29 30 */ 31 32 set compiler_info "unknown" 33 34 #if defined (__GNUC__) 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 41 #endif 42 43 #if defined (__xlc__) 44 /* IBM'x xlc compiler. NOTE: __xlc__ expands to a double quoted string of four 45 numbers separated by '.'s: currently "7.0.0.0" */ 46 set need_a_set [regsub -all {\.} [join {xlc __xlc__} -] - compiler_info] 47 #endif 48 49 #if defined (__ARMCC_VERSION) 50 set compiler_info [join {armcc __ARMCC_VERSION} -] 51 #endif 52 53 #if defined (__clang__) 54 set compiler_info [join {clang __clang_major__ __clang_minor__ __clang_patchlevel__} -] 55 #endif 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" -] 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] 75 set compiler_info "icx-$version_updated_string" 76 #endif 77