The following implements -fdump-tree-original dumping for cobol,
mimicing what the D frontend does.
OK?
Thanks,
Richard.
gcc/cobol/
* gengen.cc (gg_finalize_function): Dump to TDI_original.
---
gcc/cobol/gengen.cc | 3 +++
1 file changed, 3 insertions(+)
diff --git a/gcc/cobol/gengen.cc b/gcc/cobol/gengen.cc
index c39af0b45d8..fc625faecf0 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.
@@ -2930,6 +2931,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!");
--
2.43.0
