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.

diff --git a/gcc/cobol/gengen.cc b/gcc/cobol/gengen.cc
index d0601e0c6c450ccd3de31b7b336fc2c51c00d767..2796b7facdbd138f2bdea04867f78af92e87fd82 100644 (file)
--- 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!");