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 CASE_LABEL:
  73       /* Note that a case label is not like other statements; there is
  74          no way to get the line-number of a case label.  */
  75       dump_child ("low", CASE_LOW (t));
  76       dump_child ("high", CASE_HIGH (t));
  77       dump_next_stmt (di, t);
  78       break;
  79
  80     case CLEANUP_STMT:
  81       dump_stmt (di, t);
  82       dump_child ("decl", CLEANUP_DECL (t));
  83       dump_child ("expr", CLEANUP_EXPR (t));
  84       dump_next_stmt (di, t);
  85       break;
  86
  87     case COMPOUND_STMT:
  88       dump_stmt (di, t);
  89       dump_child ("body", COMPOUND_BODY (t));
  90       dump_next_stmt (di, t);
  91       break;
  92
  93     case DECL_STMT:
  94       dump_stmt (di, t);
  95       dump_child ("decl", DECL_STMT_DECL (t));
  96       dump_next_stmt (di, t);
  97       break;
  98
  99     case DO_STMT:
 100       dump_stmt (di, t);
 101       dump_child ("body", DO_BODY (t));
 102       dump_child ("cond", DO_COND (t));
 103       dump_next_stmt (di, t);
 104       break;
 105
 106     case EXPR_STMT:
 107       dump_stmt (di, t);
 108       dump_child ("expr", EXPR_STMT_EXPR (t));
 109       dump_next_stmt (di, t);
 110       break;
 111
 112     case FOR_STMT:
 113       dump_stmt (di, t);
 114       dump_child ("init", FOR_INIT_STMT (t));
 115       dump_child ("cond", FOR_COND (t));
 116       dump_child ("expr", FOR_EXPR (t));
 117       dump_child ("body", FOR_BODY (t));
 118       dump_next_stmt (di, t);
 119       break;
 120
 121     case IF_STMT:
 122       dump_stmt (di, t);
 123       dump_child ("cond", IF_COND (t));
 124       dump_child ("then", THEN_CLAUSE (t));
 125       dump_child ("else", ELSE_CLAUSE (t));
 126       dump_next_stmt (di, t);
 127       break;
 128
 129     case RETURN_STMT:
 130       dump_stmt (di, t);
 131       dump_child ("expr", RETURN_STMT_EXPR (t));
 132       dump_next_stmt (di, t);
 133       break;
 134
 135     case SWITCH_STMT:
 136       dump_stmt (di, t);
 137       dump_child ("cond", SWITCH_COND (t));
 138       dump_child ("body", SWITCH_BODY (t));
 139       dump_next_stmt (di, t);
 140       break;
 141
 142     case WHILE_STMT:
 143       dump_stmt (di, t);
 144       dump_child ("cond", WHILE_COND (t));
 145       dump_child ("body", WHILE_BODY (t));
 146       dump_next_stmt (di, t);
 147       break;
 148
 149     case STMT_EXPR:
 150       dump_child ("stmt", STMT_EXPR_STMT (t));
 151       break;
 152
 153     default:
 154       break;
 155     }
 156
 157   return false;
 158 }