diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2009-07-11 19:33:14 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2009-07-11 19:33:14 +0000 |
| commit | 7635b357c483c931e88e9394d8c785d1fae8489b (patch) | |
| tree | 68bc4acfc1a6cbeb6d60ac46f50c0d2b6c240b96 /gcc/ada/gcc-interface/misc.c | |
| parent | 6b45de0060d6c073441e781e6c96f66f71a1a98a (diff) | |
| download | gcc-7635b357c483c931e88e9394d8c785d1fae8489b.zip gcc-7635b357c483c931e88e9394d8c785d1fae8489b.tar.gz gcc-7635b357c483c931e88e9394d8c785d1fae8489b.tar.bz2 | |
ada-tree.h: Minor reorganization.
* gcc-interface/ada-tree.h: Minor reorganization.
* gcc-interface/misc.c (gnat_print_decl): Minor tweaks.
(gnat_print_type): Likewise.
From-SVN: r149518
Diffstat (limited to 'gcc/ada/gcc-interface/misc.c')
| -rw-r--r-- | gcc/ada/gcc-interface/misc.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/gcc-interface/misc.c b/gcc/ada/gcc-interface/misc.c index fb30620..587eab3 100644 --- a/gcc/ada/gcc-interface/misc.c +++ b/gcc/ada/gcc-interface/misc.c @@ -470,17 +470,17 @@ gnat_print_decl (FILE *file, tree node, int indent) switch (TREE_CODE (node)) { case CONST_DECL: - print_node (file, "const_corresponding_var", + print_node (file, "corresponding var", DECL_CONST_CORRESPONDING_VAR (node), indent + 4); break; case FIELD_DECL: - print_node (file, "original_field", DECL_ORIGINAL_FIELD (node), + print_node (file, "original field", DECL_ORIGINAL_FIELD (node), indent + 4); break; case VAR_DECL: - print_node (file, "renamed_object", DECL_RENAMED_OBJECT (node), + print_node (file, "renamed object", DECL_RENAMED_OBJECT (node), indent + 4); break; @@ -497,7 +497,7 @@ gnat_print_type (FILE *file, tree node, int indent) switch (TREE_CODE (node)) { case FUNCTION_TYPE: - print_node (file, "ci_co_list", TYPE_CI_CO_LIST (node), indent + 4); + print_node (file, "ci/co list", TYPE_CI_CO_LIST (node), indent + 4); break; case INTEGER_TYPE: |