diff options
| author | Richard Guenther <rguenther@suse.de> | 2008-04-08 22:26:01 +0000 |
|---|---|---|
| committer | Richard Biener <rguenth@gcc.gnu.org> | 2008-04-08 22:26:01 +0000 |
| commit | 2f9ea521e98580853eb89d4091e261834b4d666a (patch) | |
| tree | aafe0d642c5c8e78e15b005386d6fb74a19f3aa2 /gcc/tree-cfg.c | |
| parent | a5e34caf3c36920fd52c0163914d0b2275c4ca0d (diff) | |
| download | gcc-2f9ea521e98580853eb89d4091e261834b4d666a.zip gcc-2f9ea521e98580853eb89d4091e261834b4d666a.tar.gz gcc-2f9ea521e98580853eb89d4091e261834b4d666a.tar.bz2 | |
tree-cfg.c (verify_stmt): Print complete bogus stmt.
2008-04-09 Richard Guenther <rguenther@suse.de>
* tree-cfg.c (verify_stmt): Print complete bogus stmt.
(dump_function_to_file): Dump function arguments with types.
* gfortran.dg/bind_c_usage_14.f03: Adjust.
From-SVN: r134115
Diffstat (limited to 'gcc/tree-cfg.c')
| -rw-r--r-- | gcc/tree-cfg.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/gcc/tree-cfg.c b/gcc/tree-cfg.c index cf2001f..5cff71f 100644 --- a/gcc/tree-cfg.c +++ b/gcc/tree-cfg.c @@ -4181,6 +4181,11 @@ verify_stmt (tree stmt, bool last_in_block) if (addr) { debug_generic_stmt (addr); + if (addr != stmt) + { + inform ("in statement"); + debug_generic_stmt (stmt); + } return true; } @@ -6130,6 +6135,8 @@ dump_function_to_file (tree fn, FILE *file, int flags) arg = DECL_ARGUMENTS (fn); while (arg) { + print_generic_expr (file, TREE_TYPE (arg), dump_flags); + fprintf (file, " "); print_generic_expr (file, arg, dump_flags); if (TREE_CHAIN (arg)) fprintf (file, ", "); |