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:
parent
82bb1890ae
commit
9c9d2fdaa5
1 changed files with 3 additions and 0 deletions
|
@ -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!");
|
||||
|
|
Loading…
Add table
Reference in a new issue