gcc/c-family/c-dump.c

   1 /* Tree-dumping functionality for C-family languages.
   2    Copyright (C) 2002-2021 Free Software Foundation, Inc.
   3    Written by Mark Mitchell <mark@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 #include "config.h"
  22 #include "system.h"
  23 #include "coretypes.h"
  24 #include "c-common.h"
  25 #include "tree-dump.h"
  26
  27 /* Dump any C-specific tree codes and attributes of common codes.  */
  28
  29 static void
  30 dump_stmt (dump_info_p di, const_tree t)
  31 {
  32   if (EXPR_HAS_LOCATION (t))
  33     dump_int (di, "line", EXPR_LINENO (t));
  34 }
  35
  36 bool
  37 c_dump_tree (void *dump_info, tree t)
  38 {
  39   enum tree_code code;
  40   dump_info_p di = (dump_info_p) dump_info;
  41
  42   /* Figure out what kind of node this is.  */
  43   code = TREE_CODE (t);
  44
  45   switch (code)
  46     {
  47     case FIELD_DECL:
  48       if (DECL_C_BIT_FIELD (t))
  49         dump_string (di, "bitfield");
  50       break;
  51
  52     case BREAK_STMT:
  53     case CONTINUE_STMT:
  54       dump_stmt (di, t);
  55       break;
  56
  57     case DO_STMT:
  58       dump_stmt (di, t);
  59       dump_child ("body", DO_BODY (t));
  60       dump_child ("cond", DO_COND (t));
  61       break;
  62
  63     case FOR_STMT:
  64       dump_stmt (di, t);
  65       dump_child ("init", FOR_INIT_STMT (t));
  66       dump_child ("cond", FOR_COND (t));
  67       dump_child ("expr", FOR_EXPR (t));
  68       dump_child ("body", FOR_BODY (t));
  69       break;
  70
  71     case SWITCH_STMT:
  72       dump_stmt (di, t);
  73       dump_child ("cond", SWITCH_STMT_COND (t));
  74       dump_child ("body", SWITCH_STMT_BODY (t));
  75       break;
  76
  77     case WHILE_STMT:
  78       dump_stmt (di, t);
  79       dump_child ("cond", WHILE_COND (t));
  80       dump_child ("body", WHILE_BODY (t));
  81       break;
  82
  83     default:
  84       break;
  85     }
  86
  87   return false;
  88 }