On Tue, 11 Mar 2025, Richard Biener wrote:
> The following implements -fdump-tree-original dumping for cobol,
> mimicing what the D frontend does.
>
> OK?
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)
