diff options
Diffstat (limited to 'gcc/ada/gcc-interface/misc.c')
| -rw-r--r-- | gcc/ada/gcc-interface/misc.c | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/gcc/ada/gcc-interface/misc.c b/gcc/ada/gcc-interface/misc.c index f651af5..9b66712 100644 --- a/gcc/ada/gcc-interface/misc.c +++ b/gcc/ada/gcc-interface/misc.c @@ -394,8 +394,12 @@ gnat_print_decl (FILE *file, tree node, int indent) break; case VAR_DECL: - print_node (file, "renamed object", DECL_RENAMED_OBJECT (node), - indent + 4); + if (DECL_LOOP_PARM_P (node)) + print_node (file, "induction var", DECL_INDUCTION_VAR (node), + indent + 4); + else + print_node (file, "renamed object", DECL_RENAMED_OBJECT (node), + indent + 4); break; default: |