Line data    Source code

       1              : /* m2misc.cc miscellaneous tree debugging functions.
       2              : 
       3              : Copyright (C) 2012-2026 Free Software Foundation, Inc.
       4              : Contributed by Gaius Mulley <gaius@glam.ac.uk>.
       5              : 
       6              : This file is part of GNU Modula-2.
       7              : 
       8              : GNU Modula-2 is free software; you can redistribute it and/or modify
       9              : it under the terms of the GNU General Public License as published by
      10              : the Free Software Foundation; either version 3, or (at your option)
      11              : any later version.
      12              : 
      13              : GNU Modula-2 is distributed in the hope that it will be useful, but
      14              : WITHOUT ANY WARRANTY; without even the implied warranty of
      15              : MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
      16              : General Public License for more details.
      17              : 
      18              : You should have received a copy of the GNU General Public License
      19              : along with GNU Modula-2; see the file COPYING3.  If not see
      20              : <http://www.gnu.org/licenses/>.  */
      21              : 
      22              : #include "gcc-consolidation.h"
      23              : 
      24              : #include "../m2-tree.h"
      25              : #include "tree-iterator.h"
      26              : #include "opts.h"
      27              : 
      28              : #define m2misc_c
      29              : #include "m2block.h"
      30              : #include "m2misc.h"
      31              : #include "m2tree.h"
      32              : 
      33              : /* C error entry to error.  */
      34              : 
      35              : void
      36            0 : m2misc_cerror (const char *message)
      37              : {
      38            0 :   error (message);
      39            0 : }
      40              : 
      41              : /* modula2 entry for cerror.  */
      42              : 
      43              : void
      44            0 : m2misc_error (const char *message)
      45              : {
      46            0 :   m2misc_cerror (message);
      47            0 : }
      48              : 
      49              : /* DebugTree - display the tree t.  */
      50              : 
      51              : void
      52            0 : m2misc_DebugTree (tree t)
      53              : {
      54            0 :   debug_tree (t);
      55            0 : }
      56              : 
      57              : /* DebugTree - display the trees chained in t.  */
      58              : 
      59              : void
      60            0 : m2misc_DebugTreeChain (tree t)
      61              : {
      62            0 :   for (; (t != NULL); t = TREE_CHAIN (t))
      63            0 :     debug_tree (t);
      64            0 : }
      65              : 
      66              : /* DebugTree - display the current statement list.  */
      67              : 
      68              : void
      69            0 : m2misc_printStmt (void)
      70              : {
      71            0 :   if (m2block_cur_stmt_list () != NULL)
      72            0 :     debug_tree (m2block_cur_stmt_list ());
      73            0 : }
      74              : 
      75              : /* warning_m2_dump_filter issue a warning relating to the
      76              :    -fm2_dump_filter=rule option.  */
      77              : 
      78              : void
      79            0 : m2misc_warning_m2_dump_filter (const char *message, const char *rule)
      80              : {
      81            0 :   warning (OPT_fm2_dump_filter_, message, rule);
      82            0 : }