From 9c9d2fdaa5b4fc0bcfd71e9886143756e41a8fe9 Mon Sep 17 00:00:00 2001
From: Richard Biener <rguenther@suse.de>
Date: Tue, 11 Mar 2025 13:19:55 +0100
Subject: [PATCH] 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.
---
 gcc/cobol/gengen.cc | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/gcc/cobol/gengen.cc b/gcc/cobol/gengen.cc
index d0601e0c6c4..2796b7facdb 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.
@@ -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!");