diff options
| author | Richard Biener <rguenther@suse.de> | 2025-03-11 13:19:55 +0100 |
|---|---|---|
| committer | Richard Biener <rguenth@gcc.gnu.org> | 2025-03-18 18:26:27 +0100 |
| commit | 9c9d2fdaa5b4fc0bcfd71e9886143756e41a8fe9 (patch) | |
| tree | d20cca27c24c810312cf6cacc6cfb33704494cf2 | |
| parent | 82bb1890aeab275541f8d3606641e8c0cadc9659 (diff) | |
| download | gcc-9c9d2fdaa5b4fc0bcfd71e9886143756e41a8fe9.zip gcc-9c9d2fdaa5b4fc0bcfd71e9886143756e41a8fe9.tar.gz gcc-9c9d2fdaa5b4fc0bcfd71e9886143756e41a8fe9.tar.bz2 | |
Populate -original dump for Cobol
The following implements -fdump-tree-original dumping for cobol,
mimicing what the D frontend does.
gcc/cobol/
* gengen.cc (gg_finalize_function): Dump to TDI_original.
| -rw-r--r-- | gcc/cobol/gengen.cc | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/cobol/gengen.cc b/gcc/cobol/gengen.cc index d0601e0..2796b7f 100644 --- a/gcc/cobol/gengen.cc +++ b/gcc/cobol/gengen.cc @@ -102,6 +102,7 @@ #include "cbldiag.h" #include "symbols.h" #include "gengen.h" +#include "dumpfile.h" // We are limiting the programmer to functions with 512 or fewer arguments. // Don't like it? Cry me a river. @@ -2926,6 +2927,8 @@ gg_finalize_function() cgraph_node::finalize_function (current_function->function_decl, true); } + dump_function (TDI_original, current_function->function_decl); + if( gg_trans_unit.function_stack.back().context_count ) { cbl_internal_error("Residual context count!"); |