xref: /netbsd-src/external/gpl3/gcc.old/dist/gcc/selftest-diagnostic.c (revision 4ac76180e904e771b9d522c7e57296d371f06499)
1 /* Selftest support for diagnostics.
2    Copyright (C) 2016-2020 Free Software Foundation, Inc.
3 
4 This file is part of GCC.
5 
6 GCC is free software; you can redistribute it and/or modify it under
7 the terms of the GNU General Public License as published by the Free
8 Software Foundation; either version 3, or (at your option) any later
9 version.
10 
11 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
12 WARRANTY; without even the implied warranty of MERCHANTABILITY or
13 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
14 for more details.
15 
16 You should have received a copy of the GNU General Public License
17 along with GCC; see the file COPYING3.  If not see
18 <http://www.gnu.org/licenses/>.  */
19 
20 #include "config.h"
21 #include "system.h"
22 #include "coretypes.h"
23 #include "diagnostic.h"
24 #include "selftest.h"
25 #include "selftest-diagnostic.h"
26 
27 /* The selftest code should entirely disappear in a production
28    configuration, hence we guard all of it with #if CHECKING_P.  */
29 
30 #if CHECKING_P
31 
32 namespace selftest {
33 
34 /* Implementation of class selftest::test_diagnostic_context.  */
35 
test_diagnostic_context()36 test_diagnostic_context::test_diagnostic_context ()
37 {
38   diagnostic_initialize (this, 0);
39   show_caret = true;
40   show_labels_p = true;
41   show_column = true;
42   start_span = start_span_cb;
43   min_margin_width = 6;
44   caret_max_width = 80;
45 }
46 
~test_diagnostic_context()47 test_diagnostic_context::~test_diagnostic_context ()
48 {
49   diagnostic_finish (this);
50 }
51 
52 /* Implementation of diagnostic_start_span_fn, hiding the
53    real filename (to avoid printing the names of tempfiles).  */
54 
55 void
start_span_cb(diagnostic_context * context,expanded_location exploc)56 test_diagnostic_context::start_span_cb (diagnostic_context *context,
57 					expanded_location exploc)
58 {
59   exploc.file = "FILENAME";
60   default_diagnostic_start_span_fn (context, exploc);
61 }
62 
63 } // namespace selftest
64 
65 #endif /* #if CHECKING_P */
66