123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237 |
- /* Producer string parsers for GDB.
- Copyright (C) 2012-2022 Free Software Foundation, Inc.
- This file is part of GDB.
- This program is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 3 of the License, or
- (at your option) any later version.
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- GNU General Public License for more details.
- You should have received a copy of the GNU General Public License
- along with this program. If not, see <http://www.gnu.org/licenses/>. */
- #include "defs.h"
- #include "producer.h"
- #include "gdbsupport/selftest.h"
- #include "gdbsupport/gdb_regex.h"
- /* See producer.h. */
- int
- producer_is_gcc_ge_4 (const char *producer)
- {
- int major, minor;
- if (! producer_is_gcc (producer, &major, &minor))
- return -1;
- if (major < 4)
- return -1;
- if (major > 4)
- return INT_MAX;
- return minor;
- }
- /* See producer.h. */
- int
- producer_is_gcc (const char *producer, int *major, int *minor)
- {
- const char *cs;
- if (producer != NULL && startswith (producer, "GNU "))
- {
- int maj, min;
- if (major == NULL)
- major = &maj;
- if (minor == NULL)
- minor = &min;
- /* Skip any identifier after "GNU " - such as "C11" "C++" or "Java".
- A full producer string might look like:
- "GNU C 4.7.2"
- "GNU Fortran 4.8.2 20140120 (Red Hat 4.8.2-16) -mtune=generic ..."
- "GNU C++14 5.0.0 20150123 (experimental)"
- */
- cs = &producer[strlen ("GNU ")];
- while (*cs && !isspace (*cs))
- cs++;
- if (*cs && isspace (*cs))
- cs++;
- if (sscanf (cs, "%d.%d", major, minor) == 2)
- return 1;
- }
- /* Not recognized as GCC. */
- return 0;
- }
- /* See producer.h. */
- bool
- producer_is_icc_ge_19 (const char *producer)
- {
- int major, minor;
- if (! producer_is_icc (producer, &major, &minor))
- return false;
- return major >= 19;
- }
- /* See producer.h. */
- bool
- producer_is_icc (const char *producer, int *major, int *minor)
- {
- compiled_regex i_re ("Intel(R)", 0, "producer_is_icc");
- if (producer == nullptr || i_re.exec (producer, 0, nullptr, 0) != 0)
- return false;
- /* Prepare the used fields. */
- int maj, min;
- if (major == nullptr)
- major = &maj;
- if (minor == nullptr)
- minor = &min;
- *minor = 0;
- *major = 0;
- compiled_regex re ("[0-9]+\\.[0-9]+", REG_EXTENDED, "producer_is_icc");
- regmatch_t version[1];
- if (re.exec (producer, ARRAY_SIZE (version), version, 0) == 0
- && version[0].rm_so != -1)
- {
- const char *version_str = producer + version[0].rm_so;
- sscanf (version_str, "%d.%d", major, minor);
- return true;
- }
- return false;
- }
- /* See producer.h. */
- bool
- producer_is_llvm (const char *producer)
- {
- return ((producer != NULL) && (startswith (producer, "clang ")
- || startswith (producer, " F90 Flang ")));
- }
- #if defined GDB_SELF_TEST
- namespace selftests {
- namespace producer {
- static void
- producer_parsing_tests ()
- {
- {
- /* Check that we don't crash if "Version" is not found in what
- looks like an ICC producer string. */
- static const char icc_no_version[] = "Intel(R) foo bar";
- int major = 0, minor = 0;
- SELF_CHECK (!producer_is_icc (icc_no_version, &major, &minor));
- SELF_CHECK (!producer_is_gcc (icc_no_version, &major, &minor));
- }
- {
- static const char extern_f_14_0[] = "\
- Intel(R) Fortran Intel(R) 64 Compiler XE for applications running on \
- Intel(R) 64, \
- Version 14.0.1.074 Build 20130716";
- int major = 0, minor = 0;
- SELF_CHECK (producer_is_icc (extern_f_14_0, &major, &minor)
- && major == 14 && minor == 0);
- SELF_CHECK (!producer_is_gcc (extern_f_14_0, &major, &minor));
- }
- {
- static const char intern_f_14[] = "\
- Intel(R) Fortran Intel(R) 64 Compiler XE for applications running on \
- Intel(R) 64, \
- Version 14.0";
- int major = 0, minor = 0;
- SELF_CHECK (producer_is_icc (intern_f_14, &major, &minor)
- && major == 14 && minor == 0);
- SELF_CHECK (!producer_is_gcc (intern_f_14, &major, &minor));
- }
- {
- static const char intern_c_14[] = "\
- Intel(R) C++ Intel(R) 64 Compiler XE for applications running on \
- Intel(R) 64, \
- Version 14.0";
- int major = 0, minor = 0;
- SELF_CHECK (producer_is_icc (intern_c_14, &major, &minor)
- && major == 14 && minor == 0);
- SELF_CHECK (!producer_is_gcc (intern_c_14, &major, &minor));
- }
- {
- static const char intern_c_18[] = "\
- Intel(R) C++ Intel(R) 64 Compiler for applications running on \
- Intel(R) 64, \
- Version 18.0 Beta";
- int major = 0, minor = 0;
- SELF_CHECK (producer_is_icc (intern_c_18, &major, &minor)
- && major == 18 && minor == 0);
- }
- {
- static const char gnu[] = "GNU C 4.7.2";
- SELF_CHECK (!producer_is_icc (gnu, NULL, NULL));
- int major = 0, minor = 0;
- SELF_CHECK (producer_is_gcc (gnu, &major, &minor)
- && major == 4 && minor == 7);
- }
- {
- static const char gnu_exp[] = "GNU C++14 5.0.0 20150123 (experimental)";
- int major = 0, minor = 0;
- SELF_CHECK (!producer_is_icc (gnu_exp, NULL, NULL));
- SELF_CHECK (producer_is_gcc (gnu_exp, &major, &minor)
- && major == 5 && minor == 0);
- }
- {
- static const char clang_llvm_exp[] = "clang version 12.0.0 (CLANG: bld#8)";
- int major = 0, minor = 0;
- SELF_CHECK (!producer_is_icc (clang_llvm_exp, NULL, NULL));
- SELF_CHECK (!producer_is_gcc (clang_llvm_exp, &major, &minor));
- SELF_CHECK (producer_is_llvm (clang_llvm_exp));
- }
- {
- static const char flang_llvm_exp[] = " F90 Flang - 1.5 2017-05-01";
- int major = 0, minor = 0;
- SELF_CHECK (!producer_is_icc (flang_llvm_exp, NULL, NULL));
- SELF_CHECK (!producer_is_gcc (flang_llvm_exp, &major, &minor));
- SELF_CHECK (producer_is_llvm (flang_llvm_exp));
- }
- }
- }
- }
- #endif
- void _initialize_producer ();
- void
- _initialize_producer ()
- {
- #if defined GDB_SELF_TEST
- selftests::register_test
- ("producer-parser", selftests::producer::producer_parsing_tests);
- #endif
- }
|