> -----Original Message-----
> From: Richard Biener <rguent...@suse.de>
> Sent: Monday, March 17, 2025 05:10
> To: gcc-patches@gcc.gnu.org
> Cc: jklow...@schemamania.org; rdub...@symas.com
> Subject: Re: [PATCH] Populate -original dump for Cobol
>
> On Tue, 11 Mar 2025, Richard Biener wrote:
>
> > The following implements -fdump-tree-original dumping for cobol,
> > mimicing what the D frontend does.
> >
> > OK?
Richard, I tested this locally on x86_64. It has no adverse affects, and
it produces a file named "test-playpen.cbl.006t.original" when I compiled
"gcobol playpen.cbl -fdump-tree-original".
It looks good.
>
> I'd like to ping this patch.
>
> Thanks,
> Richard.
>
> > Thanks,
> > Richard.
> >
> > 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 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!");
> >
>
> --
> Richard Biener <rguent...@suse.de>
> SUSE Software Solutions Germany GmbH,
> Frankenstrasse 146, 90461 Nuernberg, Germany;
> GF: Ivo Totev, Andrew McDonald, Werner Knoblich; (HRB 36809, AG
Nuernberg)
