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.
This commit is contained in:
Richard Biener 2025-03-11 13:19:55 +01:00 committed by Richard Biener
parent 82bb1890ae
commit 9c9d2fdaa5

View file

@ -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!");