OSDN Git Service

2010-10-08 Robert Dewar <dewar@adacore.com>
[pf3gnuchains/gcc-fork.git] / gcc / diagnostic.h
1 /* Various declarations for language-independent diagnostics subroutines.
2    Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
3    2010, Free Software Foundation, Inc.
4    Contributed by Gabriel Dos Reis <gdr@codesourcery.com>
5
6 This file is part of GCC.
7
8 GCC is free software; you can redistribute it and/or modify it under
9 the terms of the GNU General Public License as published by the Free
10 Software Foundation; either version 3, or (at your option) any later
11 version.
12
13 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
14 WARRANTY; without even the implied warranty of MERCHANTABILITY or
15 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
16 for more details.
17
18 You should have received a copy of the GNU General Public License
19 along with GCC; see the file COPYING3.  If not see
20 <http://www.gnu.org/licenses/>.  */
21
22 #ifndef GCC_DIAGNOSTIC_H
23 #define GCC_DIAGNOSTIC_H
24
25 #include "pretty-print.h"
26 #include "diagnostic-core.h"
27
28 /* A diagnostic is described by the MESSAGE to send, the FILE and LINE of
29    its context and its KIND (ice, error, warning, note, ...)  See complete
30    list in diagnostic.def.  */
31 typedef struct diagnostic_info
32 {
33   text_info message;
34   location_t location;
35   unsigned int override_column;
36   /* Auxiliary data for client.  */
37   void *x_data;
38   /* The kind of diagnostic it is about.  */
39   diagnostic_t kind;
40   /* Which OPT_* directly controls this diagnostic.  */
41   int option_index;
42 } diagnostic_info;
43
44 /* Each time a diagnostic's classification is changed with a pragma,
45    we record the change and the location of the change in an array of
46    these structs.  */
47 typedef struct diagnostic_classification_change_t
48 {
49   location_t location;
50   int option;
51   diagnostic_t kind;
52 } diagnostic_classification_change_t;
53
54 /*  Forward declarations.  */
55 typedef void (*diagnostic_starter_fn) (diagnostic_context *,
56                                        diagnostic_info *);
57 typedef diagnostic_starter_fn diagnostic_finalizer_fn;
58
59 /* This data structure bundles altogether any information relevant to
60    the context of a diagnostic message.  */
61 struct diagnostic_context
62 {
63   /* Where most of the diagnostic formatting work is done.  */
64   pretty_printer *printer;
65
66   /* The number of times we have issued diagnostics.  */
67   int diagnostic_count[DK_LAST_DIAGNOSTIC_KIND];
68
69   /* True if we should display the "warnings are being tread as error"
70      message, usually displayed once per compiler run.  */
71   bool some_warnings_are_errors;
72
73   /* True if it has been requested that warnings be treated as errors.  */
74   bool warning_as_error_requested;
75
76   /* The number of option indexes that can be passed to warning() et
77      al.  */
78   int n_opts;
79
80   /* For each option index that can be passed to warning() et al
81      (OPT_* from options.h when using this code with the core GCC
82      options), this array may contain a new kind that the diagnostic
83      should be changed to before reporting, or DK_UNSPECIFIED to leave
84      it as the reported kind, or DK_IGNORED to not report it at
85      all.  */
86   diagnostic_t *classify_diagnostic;
87
88   /* History of all changes to the classifications above.  This list
89      is stored in location-order, so we can search it, either
90      binary-wise or end-to-front, to find the most recent
91      classification for a given diagnostic, given the location of the
92      diagnostic.  */
93   diagnostic_classification_change_t *classification_history;
94
95   /* The size of the above array.  */
96   int n_classification_history;
97
98   /* For pragma push/pop.  */
99   int *push_list;
100   int n_push;
101
102   /* True if we should print the command line option which controls
103      each diagnostic, if known.  */
104   bool show_option_requested;
105
106   /* True if we should raise a SIGABRT on errors.  */
107   bool abort_on_error;
108
109   /* True if we should show the column number on diagnostics.  */
110   bool show_column;
111
112   /* True if pedwarns are errors.  */
113   bool pedantic_errors;
114
115   /* True if permerrors are warnings.  */
116   bool permissive;
117
118   /* The index of the option to associate with turning permerrors into
119      warnings.  */
120   int opt_permissive;
121
122   /* True if errors are fatal.  */
123   bool fatal_errors;
124
125   /* True if all warnings should be disabled.  */
126   bool dc_inhibit_warnings;
127
128   /* True if warnings should be given in system headers.  */
129   bool dc_warn_system_headers;
130
131   /* This function is called before any message is printed out.  It is
132      responsible for preparing message prefix and such.  For example, it
133      might say:
134      In file included from "/usr/local/include/curses.h:5:
135                       from "/home/gdr/src/nifty_printer.h:56:
136                       ...
137   */
138   diagnostic_starter_fn begin_diagnostic;
139
140   /* This function is called after the diagnostic message is printed.  */
141   diagnostic_finalizer_fn end_diagnostic;
142
143   /* Client hook to report an internal error.  */
144   void (*internal_error) (diagnostic_context *, const char *, va_list *);
145
146   /* Client hook to say whether the option controlling a diagnostic is
147      enabled.  Returns nonzero if enabled, zero if disabled.  */
148   int (*option_enabled) (int, void *);
149
150   /* Client information to pass as second argument to
151      option_enabled.  */
152   void *option_state;
153
154   /* Client hook to return the name of an option that controls a
155      diagnostic.  Returns malloced memory.  The first diagnostic_t
156      argument is the kind of diagnostic before any reclassification
157      (of warnings as errors, etc.); the second is the kind after any
158      reclassification.  May return NULL if no name is to be printed.
159      May be passed 0 as well as the index of a particular option.  */
160   char *(*option_name) (diagnostic_context *, int, diagnostic_t, diagnostic_t);
161
162   /* Auxiliary data for client.  */
163   void *x_data;
164
165   /* Used to detect when the input file stack has changed since last
166      described.  */
167   const struct line_map *last_module;
168
169   int lock;
170
171   bool inhibit_notes_p;
172 };
173
174 static inline void
175 diagnostic_inhibit_notes (diagnostic_context * context)
176 {
177   context->inhibit_notes_p = true;
178 }
179
180
181 /* Client supplied function to announce a diagnostic.  */
182 #define diagnostic_starter(DC) (DC)->begin_diagnostic
183
184 /* Client supplied function called after a diagnostic message is
185    displayed.  */
186 #define diagnostic_finalizer(DC) (DC)->end_diagnostic
187
188 /* Extension hooks for client.  */
189 #define diagnostic_context_auxiliary_data(DC) (DC)->x_data
190 #define diagnostic_info_auxiliary_data(DI) (DI)->x_data
191
192 /* Same as pp_format_decoder.  Works on 'diagnostic_context *'.  */
193 #define diagnostic_format_decoder(DC) ((DC)->printer->format_decoder)
194
195 /* Same as output_prefixing_rule.  Works on 'diagnostic_context *'.  */
196 #define diagnostic_prefixing_rule(DC) ((DC)->printer->wrapping.rule)
197
198 /* Maximum characters per line in automatic line wrapping mode.
199    Zero means don't wrap lines.  */
200 #define diagnostic_line_cutoff(DC) ((DC)->printer->wrapping.line_cutoff)
201
202 #define diagnostic_flush_buffer(DC) pp_base_flush ((DC)->printer)
203
204 /* True if the last module or file in which a diagnostic was reported is
205    different from the current one.  */
206 #define diagnostic_last_module_changed(DC, MAP) \
207   ((DC)->last_module != MAP)
208
209 /* Remember the current module or file as being the last one in which we
210    report a diagnostic.  */
211 #define diagnostic_set_last_module(DC, MAP)     \
212   (DC)->last_module = MAP
213
214 /* Raise SIGABRT on any diagnostic of severity DK_ERROR or higher.  */
215 #define diagnostic_abort_on_error(DC) \
216   (DC)->abort_on_error = true
217
218 /* This diagnostic_context is used by front-ends that directly output
219    diagnostic messages without going through `error', `warning',
220    and similar functions.  */
221 extern diagnostic_context *global_dc;
222
223 /* The total count of a KIND of diagnostics emitted so far.  */
224 #define diagnostic_kind_count(DC, DK) (DC)->diagnostic_count[(int) (DK)]
225
226 /* The number of errors that have been issued so far.  Ideally, these
227    would take a diagnostic_context as an argument.  */
228 #define errorcount diagnostic_kind_count (global_dc, DK_ERROR)
229 /* Similarly, but for warnings.  */
230 #define warningcount diagnostic_kind_count (global_dc, DK_WARNING)
231 /* Similarly, but for sorrys.  */
232 #define sorrycount diagnostic_kind_count (global_dc, DK_SORRY)
233
234 /* Returns nonzero if warnings should be emitted.  */
235 #define diagnostic_report_warnings_p(DC, LOC)                           \
236   (!(DC)->dc_inhibit_warnings                                           \
237    && !(in_system_header_at (LOC) && !(DC)->dc_warn_system_headers))
238
239 #define report_diagnostic(D) diagnostic_report_diagnostic (global_dc, D)
240
241 /* Override the column number to be used for reporting a
242    diagnostic.  */
243 #define diagnostic_override_column(DI, COL) (DI)->override_column = (COL)
244
245 /* Override the option index to be used for reporting a
246    diagnostic.  */
247 #define diagnostic_override_option_index(DI, OPTIDX) \
248     ((DI)->option_index = (OPTIDX))
249
250 /* Diagnostic related functions.  */
251 extern void diagnostic_initialize (diagnostic_context *, int);
252 extern void diagnostic_finish (diagnostic_context *);
253 extern void diagnostic_report_current_module (diagnostic_context *);
254
255 /* Force diagnostics controlled by OPTIDX to be kind KIND.  */
256 extern diagnostic_t diagnostic_classify_diagnostic (diagnostic_context *,
257                                                     int /* optidx */,
258                                                     diagnostic_t /* kind */,
259                                                     location_t);
260 extern void diagnostic_push_diagnostics (diagnostic_context *, location_t);
261 extern void diagnostic_pop_diagnostics (diagnostic_context *, location_t);
262 extern bool diagnostic_report_diagnostic (diagnostic_context *,
263                                           diagnostic_info *);
264 #ifdef ATTRIBUTE_GCC_DIAG
265 extern void diagnostic_set_info (diagnostic_info *, const char *, va_list *,
266                                  location_t, diagnostic_t) ATTRIBUTE_GCC_DIAG(2,0);
267 extern void diagnostic_set_info_translated (diagnostic_info *, const char *,
268                                             va_list *, location_t,
269                                             diagnostic_t)
270      ATTRIBUTE_GCC_DIAG(2,0);
271 #endif
272 extern char *diagnostic_build_prefix (diagnostic_context *, diagnostic_info *);
273 void default_diagnostic_starter (diagnostic_context *, diagnostic_info *);
274 void default_diagnostic_finalizer (diagnostic_context *, diagnostic_info *);
275
276 /* Pure text formatting support functions.  */
277 extern char *file_name_as_prefix (const char *);
278
279 #endif /* ! GCC_DIAGNOSTIC_H */