[gcc r15-8264] Populate -original dump for Cobol

[Richard Biener via Gcc-cvs]

https://gcc.gnu.org/g:9c9d2fdaa5b4fc0bcfd71e9886143756e41a8fe9

commit r15-8264-g9c9d2fdaa5b4fc0bcfd71e9886143756e41a8fe9
Author: Richard Biener <rguent...@suse.de>
Date:   Tue Mar 11 13:19:55 2025 +0100

    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:
---
 gcc/cobol/gengen.cc | 3 +++
 1 file changed, 3 insertions(+)

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