Branch data     Line data    Source code

       1                 :             : /* Selftest support for diagnostics.
       2                 :             :    Copyright (C) 2016-2024 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                 :             : 
      36                 :       81278 : test_diagnostic_context::test_diagnostic_context ()
      37                 :             : {
      38                 :       81278 :   diagnostic_initialize (this, 0);
      39                 :       81278 :   m_source_printing.enabled = true;
      40                 :       81278 :   m_source_printing.show_labels_p = true;
      41                 :       81278 :   m_show_column = true;
      42                 :       81278 :   diagnostic_start_span (this) = start_span_cb;
      43                 :       81278 :   m_source_printing.min_margin_width = 6;
      44                 :       81278 :   m_source_printing.max_width = 80;
      45                 :       81278 : }
      46                 :             : 
      47                 :       81278 : test_diagnostic_context::~test_diagnostic_context ()
      48                 :             : {
      49                 :       81278 :   diagnostic_finish (this);
      50                 :       81278 : }
      51                 :             : 
      52                 :             : /* Implementation of diagnostic_start_span_fn, hiding the
      53                 :             :    real filename (to avoid printing the names of tempfiles).  */
      54                 :             : 
      55                 :             : void
      56                 :        1680 : test_diagnostic_context::start_span_cb (diagnostic_context *context,
      57                 :             :                                         expanded_location exploc)
      58                 :             : {
      59                 :        1680 :   exploc.file = "FILENAME";
      60                 :        1680 :   default_diagnostic_start_span_fn (context, exploc);
      61                 :        1680 : }
      62                 :             : 
      63                 :             : bool
      64                 :          81 : test_diagnostic_context::report (diagnostic_t kind,
      65                 :             :                                  rich_location &richloc,
      66                 :             :                                  const diagnostic_metadata *metadata,
      67                 :             :                                  int option,
      68                 :             :                                  const char * fmt, ...)
      69                 :             : {
      70                 :          81 :   va_list ap;
      71                 :          81 :   va_start (ap, fmt);
      72                 :          81 :   begin_group ();
      73                 :          81 :   bool result = diagnostic_impl (&richloc, metadata, option, fmt, &ap, kind);
      74                 :          81 :   end_group ();
      75                 :          81 :   va_end (ap);
      76                 :          81 :   return result;
      77                 :             : }
      78                 :             : 
      79                 :             : } // namespace selftest
      80                 :             : 
      81                 :             : #endif /* #if CHECKING_P */