gcc/c-dump.c

   1 /* Tree-dumping functionality for C-family languages.
   2    Copyright (C) 2002 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 2, 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 COPYING.  If not, write to the Free
  19 Software Foundation, 59 Temple Place - Suite 330, Boston, MA
  20 02111-1307, USA.  */
  21
  22 #include "config.h"
  23 #include "system.h"
  24 #include "coretypes.h"
  25 #include "tm.h"
  26 #include "tree.h"
  27 #include "c-tree.h"
  28 #include "tree-dump.h"
  29
  30 /* Dump information common to statements from STMT.  */
  31
  32 void
  33 dump_stmt (dump_info_p di, tree t)
  34 {
  35   location_t *locus = EXPR_LOCUS (t);
  36   if (locus)
  37     dump_int (di, "line", locus->line);
  38 }
  39
  40 /* Dump the next statement after STMT.  */
  41
  42 void
  43 dump_next_stmt (dump_info_p di, tree t)
  44 {
  45   dump_child ("next", TREE_CHAIN (t));
  46 }
  47
  48 /* Dump any C-specific tree codes and attributes of common codes.  */
  49
  50 bool
  51 c_dump_tree (void *dump_info, tree t)
  52 {
  53   enum tree_code code;
  54   dump_info_p di = (dump_info_p) dump_info;
  55
  56   /* Figure out what kind of node this is.  */
  57   code = TREE_CODE (t);
  58
  59   switch (code)
  60     {
  61     case FIELD_DECL:
  62       if (DECL_C_BIT_FIELD (t))
  63         dump_string (di, "bitfield");
  64       break;
  65
  66     case BREAK_STMT:
  67     case CONTINUE_STMT:
  68       dump_stmt (di, t);
  69       dump_next_stmt (di, t);
  70       break;
  71
  72     case CLEANUP_STMT:
  73       dump_stmt (di, t);
  74       dump_child ("decl", CLEANUP_DECL (t));
  75       dump_child ("expr", CLEANUP_EXPR (t));
  76       dump_next_stmt (di, t);
  77       break;
  78
  79     case COMPOUND_STMT:
  80       dump_stmt (di, t);
  81       dump_child ("body", COMPOUND_BODY (t));
  82       dump_next_stmt (di, t);
  83       break;
  84
  85     case DECL_STMT:
  86       dump_stmt (di, t);
  87       dump_child ("decl", DECL_STMT_DECL (t));
  88       dump_next_stmt (di, t);
  89       break;
  90
  91     case DO_STMT:
  92       dump_stmt (di, t);
  93       dump_child ("body", DO_BODY (t));
  94       dump_child ("cond", DO_COND (t));
  95       dump_next_stmt (di, t);
  96       break;
  97
  98     case EXPR_STMT:
  99       dump_stmt (di, t);
 100       dump_child ("expr", EXPR_STMT_EXPR (t));
 101       dump_next_stmt (di, t);
 102       break;
 103
 104     case FOR_STMT:
 105       dump_stmt (di, t);
 106       dump_child ("init", FOR_INIT_STMT (t));
 107       dump_child ("cond", FOR_COND (t));
 108       dump_child ("expr", FOR_EXPR (t));
 109       dump_child ("body", FOR_BODY (t));
 110       dump_next_stmt (di, t);
 111       break;
 112
 113     case IF_STMT:
 114       dump_stmt (di, t);
 115       dump_child ("cond", IF_COND (t));
 116       dump_child ("then", THEN_CLAUSE (t));
 117       dump_child ("else", ELSE_CLAUSE (t));
 118       dump_next_stmt (di, t);
 119       break;
 120
 121     case RETURN_STMT:
 122       dump_stmt (di, t);
 123       dump_child ("expr", RETURN_STMT_EXPR (t));
 124       dump_next_stmt (di, t);
 125       break;
 126
 127     case SWITCH_STMT:
 128       dump_stmt (di, t);
 129       dump_child ("cond", SWITCH_COND (t));
 130       dump_child ("body", SWITCH_BODY (t));
 131       dump_next_stmt (di, t);
 132       break;
 133
 134     case WHILE_STMT:
 135       dump_stmt (di, t);
 136       dump_child ("cond", WHILE_COND (t));
 137       dump_child ("body", WHILE_BODY (t));
 138       dump_next_stmt (di, t);
 139       break;
 140
 141     case STMT_EXPR:
 142       dump_child ("stmt", STMT_EXPR_STMT (t));
 143       break;
 144
 145     default:
 146       break;
 147     }
 148
 149   return false;
 150 }