diff mbox series

Populate -original dump for Cobol

Message ID 20250311122248.66BB2132CB@imap1.dmz-prg2.suse.org
State Committed
Commit 9c9d2fdaa5b4fc0bcfd71e9886143756e41a8fe9
Headers
Series Populate -original dump for Cobol |

Commit Message

Richard Biener March 11, 2025, 12:22 p.m. UTC 
  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 mbox series

Patch

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