1/* Various diagnostic subroutines for the GNU C language. 2 Copyright (C) 2000-2020 Free Software Foundation, Inc. 3 Contributed by Gabriel Dos Reis <gdr@codesourcery.com> 4 5This file is part of GCC. 6 7GCC is free software; you can redistribute it and/or modify it under 8the terms of the GNU General Public License as published by the Free 9Software Foundation; either version 3, or (at your option) any later 10version. 11 12GCC is distributed in the hope that it will be useful, but WITHOUT ANY 13WARRANTY; without even the implied warranty of MERCHANTABILITY or 14FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License 15for more details. 16 17You should have received a copy of the GNU General Public License 18along with GCC; see the file COPYING3. If not see 19<http://www.gnu.org/licenses/>. */ 20 21#include "config.h" 22#include "system.h" 23#include "coretypes.h" 24#include "tm.h" 25#include "c-tree.h" 26#include "opts.h" 27 28/* Issue an ISO C11 pedantic warning MSGID if -pedantic outside C2X mode, 29 otherwise issue warning MSGID if -Wc11-c2X-compat is specified. 30 This function is supposed to be used for matters that are allowed in 31 ISO C2X but not supported in ISO C11, thus we explicitly don't pedwarn 32 when C2X is specified. */ 33 34bool 35pedwarn_c11 (location_t location, int opt, const char *gmsgid, ...) 36{ 37 diagnostic_info diagnostic; 38 va_list ap; 39 bool warned = false; 40 rich_location richloc (line_table, location); 41 42 va_start (ap, gmsgid); 43 /* If desired, issue the C11/C2X compat warning, which is more specific 44 than -pedantic. */ 45 if (warn_c11_c2x_compat > 0) 46 { 47 diagnostic_set_info (&diagnostic, gmsgid, &ap, &richloc, 48 (pedantic && !flag_isoc2x) 49 ? DK_PEDWARN : DK_WARNING); 50 diagnostic.option_index = OPT_Wc11_c2x_compat; 51 warned = diagnostic_report_diagnostic (global_dc, &diagnostic); 52 } 53 /* -Wno-c11-c2x-compat suppresses even the pedwarns. */ 54 else if (warn_c11_c2x_compat == 0) 55 ; 56 /* For -pedantic outside C2X, issue a pedwarn. */ 57 else if (pedantic && !flag_isoc2x) 58 { 59 diagnostic_set_info (&diagnostic, gmsgid, &ap, &richloc, DK_PEDWARN); 60 diagnostic.option_index = opt; 61 warned = diagnostic_report_diagnostic (global_dc, &diagnostic); 62 } 63 va_end (ap); 64 return warned; 65} 66 67/* Issue an ISO C99 pedantic warning MSGID if -pedantic outside C11 mode, 68 otherwise issue warning MSGID if -Wc99-c11-compat is specified. 69 This function is supposed to be used for matters that are allowed in 70 ISO C11 but not supported in ISO C99, thus we explicitly don't pedwarn 71 when C11 is specified. */ 72 73bool 74pedwarn_c99 (location_t location, int opt, const char *gmsgid, ...) 75{ 76 diagnostic_info diagnostic; 77 va_list ap; 78 bool warned = false; 79 rich_location richloc (line_table, location); 80 81 va_start (ap, gmsgid); 82 /* If desired, issue the C99/C11 compat warning, which is more specific 83 than -pedantic. */ 84 if (warn_c99_c11_compat > 0) 85 { 86 diagnostic_set_info (&diagnostic, gmsgid, &ap, &richloc, 87 (pedantic && !flag_isoc11) 88 ? DK_PEDWARN : DK_WARNING); 89 diagnostic.option_index = OPT_Wc99_c11_compat; 90 warned = diagnostic_report_diagnostic (global_dc, &diagnostic); 91 } 92 /* -Wno-c99-c11-compat suppresses even the pedwarns. */ 93 else if (warn_c99_c11_compat == 0) 94 ; 95 /* For -pedantic outside C11, issue a pedwarn. */ 96 else if (pedantic && !flag_isoc11) 97 { 98 diagnostic_set_info (&diagnostic, gmsgid, &ap, &richloc, DK_PEDWARN); 99 diagnostic.option_index = opt; 100 warned = diagnostic_report_diagnostic (global_dc, &diagnostic); 101 } 102 va_end (ap); 103 return warned; 104} 105 106/* Issue an ISO C90 pedantic warning MSGID if -pedantic outside C99 mode, 107 otherwise issue warning MSGID if -Wc90-c99-compat is specified, or if 108 a specific option such as -Wlong-long is specified. 109 This function is supposed to be used for matters that are allowed in 110 ISO C99 but not supported in ISO C90, thus we explicitly don't pedwarn 111 when C99 is specified. (There is no flag_c90.) */ 112 113bool 114pedwarn_c90 (location_t location, int opt, const char *gmsgid, ...) 115{ 116 diagnostic_info diagnostic; 117 va_list ap; 118 bool warned = false; 119 rich_location richloc (line_table, location); 120 121 va_start (ap, gmsgid); 122 /* Warnings such as -Wvla are the most specific ones. */ 123 if (opt != OPT_Wpedantic) 124 { 125 int opt_var = *(int *) option_flag_var (opt, &global_options); 126 if (opt_var == 0) 127 goto out; 128 else if (opt_var > 0) 129 { 130 diagnostic_set_info (&diagnostic, gmsgid, &ap, &richloc, 131 (pedantic && !flag_isoc99) 132 ? DK_PEDWARN : DK_WARNING); 133 diagnostic.option_index = opt; 134 diagnostic_report_diagnostic (global_dc, &diagnostic); 135 warned = true; 136 goto out; 137 } 138 } 139 /* Maybe we want to issue the C90/C99 compat warning, which is more 140 specific than -pedantic. */ 141 if (warn_c90_c99_compat > 0) 142 { 143 diagnostic_set_info (&diagnostic, gmsgid, &ap, &richloc, 144 (pedantic && !flag_isoc99) 145 ? DK_PEDWARN : DK_WARNING); 146 diagnostic.option_index = OPT_Wc90_c99_compat; 147 diagnostic_report_diagnostic (global_dc, &diagnostic); 148 } 149 /* -Wno-c90-c99-compat suppresses the pedwarns. */ 150 else if (warn_c90_c99_compat == 0) 151 ; 152 /* For -pedantic outside C99, issue a pedwarn. */ 153 else if (pedantic && !flag_isoc99) 154 { 155 diagnostic_set_info (&diagnostic, gmsgid, &ap, &richloc, DK_PEDWARN); 156 diagnostic.option_index = opt; 157 diagnostic_report_diagnostic (global_dc, &diagnostic); 158 warned = true; 159 } 160out: 161 va_end (ap); 162 return warned; 163} 164