xref: /netbsd-src/external/gpl3/gcc.old/dist/gcc/diagnostic.h (revision e6c7e151de239c49d2e38720a061ed9d1fa99309)
1 /* Various declarations for language-independent diagnostics subroutines.
2    Copyright (C) 2000-2017 Free Software Foundation, Inc.
3    Contributed by Gabriel Dos Reis <gdr@codesourcery.com>
4 
5 This file is part of GCC.
6 
7 GCC is free software; you can redistribute it and/or modify it under
8 the terms of the GNU General Public License as published by the Free
9 Software Foundation; either version 3, or (at your option) any later
10 version.
11 
12 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
13 WARRANTY; without even the implied warranty of MERCHANTABILITY or
14 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
15 for more details.
16 
17 You should have received a copy of the GNU General Public License
18 along with GCC; see the file COPYING3.  If not see
19 <http://www.gnu.org/licenses/>.  */
20 
21 #ifndef GCC_DIAGNOSTIC_H
22 #define GCC_DIAGNOSTIC_H
23 
24 #include "pretty-print.h"
25 #include "diagnostic-core.h"
26 
27 /* A diagnostic is described by the MESSAGE to send, the FILE and LINE of
28    its context and its KIND (ice, error, warning, note, ...)  See complete
29    list in diagnostic.def.  */
30 struct diagnostic_info
31 {
32   /* Text to be formatted.  */
33   text_info message;
34 
35   /* The location at which the diagnostic is to be reported.  */
36   rich_location *richloc;
37 
38   /* Auxiliary data for client.  */
39   void *x_data;
40   /* The kind of diagnostic it is about.  */
41   diagnostic_t kind;
42   /* Which OPT_* directly controls this diagnostic.  */
43   int option_index;
44 };
45 
46 /* Each time a diagnostic's classification is changed with a pragma,
47    we record the change and the location of the change in an array of
48    these structs.  */
49 struct diagnostic_classification_change_t
50 {
51   location_t location;
52   int option;
53   diagnostic_t kind;
54 };
55 
56 /*  Forward declarations.  */
57 typedef void (*diagnostic_starter_fn) (diagnostic_context *,
58 				       diagnostic_info *);
59 
60 typedef void (*diagnostic_start_span_fn) (diagnostic_context *,
61 					  expanded_location);
62 
63 typedef diagnostic_starter_fn diagnostic_finalizer_fn;
64 
65 class edit_context;
66 
67 /* This data structure bundles altogether any information relevant to
68    the context of a diagnostic message.  */
69 struct diagnostic_context
70 {
71   /* Where most of the diagnostic formatting work is done.  */
72   pretty_printer *printer;
73 
74   /* The number of times we have issued diagnostics.  */
75   int diagnostic_count[DK_LAST_DIAGNOSTIC_KIND];
76 
77   /* True if it has been requested that warnings be treated as errors.  */
78   bool warning_as_error_requested;
79 
80   /* The number of option indexes that can be passed to warning() et
81      al.  */
82   int n_opts;
83 
84   /* For each option index that can be passed to warning() et al
85      (OPT_* from options.h when using this code with the core GCC
86      options), this array may contain a new kind that the diagnostic
87      should be changed to before reporting, or DK_UNSPECIFIED to leave
88      it as the reported kind, or DK_IGNORED to not report it at
89      all.  */
90   diagnostic_t *classify_diagnostic;
91 
92   /* History of all changes to the classifications above.  This list
93      is stored in location-order, so we can search it, either
94      binary-wise or end-to-front, to find the most recent
95      classification for a given diagnostic, given the location of the
96      diagnostic.  */
97   diagnostic_classification_change_t *classification_history;
98 
99   /* The size of the above array.  */
100   int n_classification_history;
101 
102   /* For pragma push/pop.  */
103   int *push_list;
104   int n_push;
105 
106   /* True if we should print the source line with a caret indicating
107      the location.  */
108   bool show_caret;
109 
110   /* Maximum width of the source line printed.  */
111   int caret_max_width;
112 
113   /* Character used for caret diagnostics.  */
114   char caret_chars[rich_location::STATICALLY_ALLOCATED_RANGES];
115 
116   /* True if we should print the command line option which controls
117      each diagnostic, if known.  */
118   bool show_option_requested;
119 
120   /* True if we should raise a SIGABRT on errors.  */
121   bool abort_on_error;
122 
123   /* True if we should show the column number on diagnostics.  */
124   bool show_column;
125 
126   /* True if pedwarns are errors.  */
127   bool pedantic_errors;
128 
129   /* True if permerrors are warnings.  */
130   bool permissive;
131 
132   /* The index of the option to associate with turning permerrors into
133      warnings.  */
134   int opt_permissive;
135 
136   /* True if errors are fatal.  */
137   bool fatal_errors;
138 
139   /* True if all warnings should be disabled.  */
140   bool dc_inhibit_warnings;
141 
142   /* True if warnings should be given in system headers.  */
143   bool dc_warn_system_headers;
144 
145   /* Maximum number of errors to report.  */
146   int max_errors;
147 
148   /* This function is called before any message is printed out.  It is
149      responsible for preparing message prefix and such.  For example, it
150      might say:
151      In file included from "/usr/local/include/curses.h:5:
152                       from "/home/gdr/src/nifty_printer.h:56:
153                       ...
154   */
155   diagnostic_starter_fn begin_diagnostic;
156 
157   /* This function is called by diagnostic_show_locus in between
158      disjoint spans of source code, so that the context can print
159      something to indicate that a new span of source code has begun.  */
160   diagnostic_start_span_fn start_span;
161 
162   /* This function is called after the diagnostic message is printed.  */
163   diagnostic_finalizer_fn end_diagnostic;
164 
165   /* Client hook to report an internal error.  */
166   void (*internal_error) (diagnostic_context *, const char *, va_list *);
167 
168   /* Client hook to say whether the option controlling a diagnostic is
169      enabled.  Returns nonzero if enabled, zero if disabled.  */
170   int (*option_enabled) (int, void *);
171 
172   /* Client information to pass as second argument to
173      option_enabled.  */
174   void *option_state;
175 
176   /* Client hook to return the name of an option that controls a
177      diagnostic.  Returns malloced memory.  The first diagnostic_t
178      argument is the kind of diagnostic before any reclassification
179      (of warnings as errors, etc.); the second is the kind after any
180      reclassification.  May return NULL if no name is to be printed.
181      May be passed 0 as well as the index of a particular option.  */
182   char *(*option_name) (diagnostic_context *, int, diagnostic_t, diagnostic_t);
183 
184   /* Auxiliary data for client.  */
185   void *x_data;
186 
187   /* Used to detect that the last caret was printed at the same location.  */
188   location_t last_location;
189 
190   /* Used to detect when the input file stack has changed since last
191      described.  */
192   const struct line_map *last_module;
193 
194   int lock;
195 
196   bool inhibit_notes_p;
197 
198   /* When printing source code, should the characters at carets and ranges
199      be colorized? (assuming colorization is on at all).
200      This should be true for frontends that generate range information
201      (so that the ranges of code are colorized),
202      and false for frontends that merely specify points within the
203      source code (to avoid e.g. colorizing just the first character in
204      a token, which would look strange).  */
205   bool colorize_source_p;
206 
207   /* Usable by plugins; if true, print a debugging ruler above the
208      source output.  */
209   bool show_ruler_p;
210 
211   /* If true, print fixits in machine-parseable form after the
212      rest of the diagnostic.  */
213   bool parseable_fixits_p;
214 
215   /* If non-NULL, an edit_context to which fix-it hints should be
216      applied, for generating patches.  */
217   edit_context *edit_context_ptr;
218 };
219 
220 static inline void
221 diagnostic_inhibit_notes (diagnostic_context * context)
222 {
223   context->inhibit_notes_p = true;
224 }
225 
226 
227 /* Client supplied function to announce a diagnostic.  */
228 #define diagnostic_starter(DC) (DC)->begin_diagnostic
229 
230 /* Client supplied function called after a diagnostic message is
231    displayed.  */
232 #define diagnostic_finalizer(DC) (DC)->end_diagnostic
233 
234 /* Extension hooks for client.  */
235 #define diagnostic_context_auxiliary_data(DC) (DC)->x_data
236 #define diagnostic_info_auxiliary_data(DI) (DI)->x_data
237 
238 /* Same as pp_format_decoder.  Works on 'diagnostic_context *'.  */
239 #define diagnostic_format_decoder(DC) ((DC)->printer->format_decoder)
240 
241 /* Same as output_prefixing_rule.  Works on 'diagnostic_context *'.  */
242 #define diagnostic_prefixing_rule(DC) ((DC)->printer->wrapping.rule)
243 
244 /* True if the last module or file in which a diagnostic was reported is
245    different from the current one.  */
246 #define diagnostic_last_module_changed(DC, MAP)	\
247   ((DC)->last_module != MAP)
248 
249 /* Remember the current module or file as being the last one in which we
250    report a diagnostic.  */
251 #define diagnostic_set_last_module(DC, MAP)	\
252   (DC)->last_module = MAP
253 
254 /* Raise SIGABRT on any diagnostic of severity DK_ERROR or higher.  */
255 #define diagnostic_abort_on_error(DC) \
256   (DC)->abort_on_error = true
257 
258 /* This diagnostic_context is used by front-ends that directly output
259    diagnostic messages without going through `error', `warning',
260    and similar functions.  */
261 extern diagnostic_context *global_dc;
262 
263 /* The total count of a KIND of diagnostics emitted so far.  */
264 #define diagnostic_kind_count(DC, DK) (DC)->diagnostic_count[(int) (DK)]
265 
266 /* The number of errors that have been issued so far.  Ideally, these
267    would take a diagnostic_context as an argument.  */
268 #define errorcount diagnostic_kind_count (global_dc, DK_ERROR)
269 /* Similarly, but for warnings.  */
270 #define warningcount diagnostic_kind_count (global_dc, DK_WARNING)
271 /* Similarly, but for warnings promoted to errors.  */
272 #define werrorcount diagnostic_kind_count (global_dc, DK_WERROR)
273 /* Similarly, but for sorrys.  */
274 #define sorrycount diagnostic_kind_count (global_dc, DK_SORRY)
275 
276 /* Returns nonzero if warnings should be emitted.  */
277 #define diagnostic_report_warnings_p(DC, LOC)				\
278   (!(DC)->dc_inhibit_warnings						\
279    && !(in_system_header_at (LOC) && !(DC)->dc_warn_system_headers))
280 
281 #define report_diagnostic(D) diagnostic_report_diagnostic (global_dc, D)
282 
283 /* Override the option index to be used for reporting a
284    diagnostic.  */
285 #define diagnostic_override_option_index(DI, OPTIDX) \
286     ((DI)->option_index = (OPTIDX))
287 
288 /* Diagnostic related functions.  */
289 extern void diagnostic_initialize (diagnostic_context *, int);
290 extern void diagnostic_color_init (diagnostic_context *, int value = -1);
291 extern void diagnostic_finish (diagnostic_context *);
292 extern void diagnostic_report_current_module (diagnostic_context *, location_t);
293 extern void diagnostic_show_locus (diagnostic_context *,
294 				   rich_location *richloc,
295 				   diagnostic_t diagnostic_kind);
296 
297 /* Force diagnostics controlled by OPTIDX to be kind KIND.  */
298 extern diagnostic_t diagnostic_classify_diagnostic (diagnostic_context *,
299 						    int /* optidx */,
300 						    diagnostic_t /* kind */,
301 						    location_t);
302 extern void diagnostic_push_diagnostics (diagnostic_context *, location_t);
303 extern void diagnostic_pop_diagnostics (diagnostic_context *, location_t);
304 extern bool diagnostic_report_diagnostic (diagnostic_context *,
305 					  diagnostic_info *);
306 #ifdef ATTRIBUTE_GCC_DIAG
307 extern void diagnostic_set_info (diagnostic_info *, const char *, va_list *,
308 				 rich_location *, diagnostic_t) ATTRIBUTE_GCC_DIAG(2,0);
309 extern void diagnostic_set_info_translated (diagnostic_info *, const char *,
310 					    va_list *, rich_location *,
311 					    diagnostic_t)
312      ATTRIBUTE_GCC_DIAG(2,0);
313 extern void diagnostic_append_note (diagnostic_context *, location_t,
314                                     const char *, ...) ATTRIBUTE_GCC_DIAG(3,4);
315 #endif
316 extern char *diagnostic_build_prefix (diagnostic_context *, const diagnostic_info *);
317 void default_diagnostic_starter (diagnostic_context *, diagnostic_info *);
318 void default_diagnostic_start_span_fn (diagnostic_context *,
319 				       expanded_location);
320 void default_diagnostic_finalizer (diagnostic_context *, diagnostic_info *);
321 void diagnostic_set_caret_max_width (diagnostic_context *context, int value);
322 void diagnostic_action_after_output (diagnostic_context *, diagnostic_t);
323 void diagnostic_check_max_errors (diagnostic_context *, bool flush = false);
324 
325 void diagnostic_file_cache_fini (void);
326 
327 int get_terminal_width (void);
328 
329 /* Return the location associated to this diagnostic. Parameter WHICH
330    specifies which location. By default, expand the first one.  */
331 
332 static inline location_t
333 diagnostic_location (const diagnostic_info * diagnostic, int which = 0)
334 {
335   return diagnostic->message.get_location (which);
336 }
337 
338 /* Return the number of locations to be printed in DIAGNOSTIC.  */
339 
340 static inline unsigned int
341 diagnostic_num_locations (const diagnostic_info * diagnostic)
342 {
343   return diagnostic->message.m_richloc->get_num_locations ();
344 }
345 
346 /* Expand the location of this diagnostic. Use this function for
347    consistency.  Parameter WHICH specifies which location. By default,
348    expand the first one.  */
349 
350 static inline expanded_location
351 diagnostic_expand_location (const diagnostic_info * diagnostic, int which = 0)
352 {
353   return diagnostic->richloc->get_expanded_location (which);
354 }
355 
356 /* This is somehow the right-side margin of a caret line, that is, we
357    print at least these many characters after the position pointed at
358    by the caret.  */
359 #define CARET_LINE_MARGIN 10
360 
361 /* Return true if the two locations can be represented within the same
362    caret line.  This is used to build a prefix and also to determine
363    whether to print one or two caret lines.  */
364 
365 static inline bool
366 diagnostic_same_line (const diagnostic_context *context,
367 		       expanded_location s1, expanded_location s2)
368 {
369   return s2.column && s1.line == s2.line
370     && context->caret_max_width - CARET_LINE_MARGIN > abs (s1.column - s2.column);
371 }
372 
373 extern const char *diagnostic_get_color_for_kind (diagnostic_t kind);
374 
375 /* Pure text formatting support functions.  */
376 extern char *file_name_as_prefix (diagnostic_context *, const char *);
377 
378 extern char *build_message_string (const char *, ...) ATTRIBUTE_PRINTF_1;
379 
380 
381 #endif /* ! GCC_DIAGNOSTIC_H */
382