sdcc/support/cpp/gcc/c-family/c-dump.cc

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