[gcc r16-2449] cobol: Tweak adjustments to location_t of GENERIC nodes for PERFORM.

[Robert Dubner via Gcc-cvs]

https://gcc.gnu.org/g:3cc2116fe6694b0e52855427fc1fd1335c6d00b6

commit r16-2449-g3cc2116fe6694b0e52855427fc1fd1335c6d00b6
Author: Robert Dubner <rdub...@symas.com>
Date:   Wed Jul 23 08:44:54 2025 -0400

    cobol: Tweak adjustments to location_t of GENERIC nodes for PERFORM.
    
    COBOL has a group of PERFORM statements that require careful adjustments to
    the location_t elements of the GENERIC nodes so that the COBOL-aware version
    of GDB behaves properly.  These changes are in service of that goal.
    
    gcc/cobol/ChangeLog:
    
            * genapi.cc (leave_procedure): Adjust location_t for PERFORM.
            (parser_perform_times): Likewise.
            (internal_perform_through_times): Likewise.
            (perform_outofline_before_until): Likewise.
            (perform_outofline_after_until): Likewise.
            (perform_outofline_testafter_varying): Likewise.
            (perform_outofline_before_varying): Likewise.

Diff:
---
 gcc/cobol/genapi.cc | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/gcc/cobol/genapi.cc b/gcc/cobol/genapi.cc
index 52e75e583556..666802ea137e 100644
--- a/gcc/cobol/genapi.cc
+++ b/gcc/cobol/genapi.cc
@@ -2858,6 +2858,7 @@ leave_procedure(struct cbl_proc_t *procedure, bool 
/*section*/)
     char *psz;
     psz = xasprintf("_procret." HOST_SIZE_T_PRINT_DEC ":",
                     (fmt_size_t)symbol_label_id(procedure->label));
+    token_location_override(current_location_minus_one());
     gg_insert_into_assembler(psz);
     free(psz);
     pseudo_return_pop(procedure);
@@ -3445,6 +3446,7 @@ parser_perform_times( cbl_label_t *proc_1, cbl_refer_t 
count )
   sprintf(ach,
           "_procretb." HOST_SIZE_T_PRINT_DEC ":",
           (fmt_size_t)our_pseudo_label);
+  token_location_override(current_location_minus_one());
   gg_insert_into_assembler(ach);
   }
 
@@ -3598,6 +3600,7 @@ internal_perform_through_times(   cbl_label_t *proc_1,
   sprintf(ach,
           "_procretb." HOST_SIZE_T_PRINT_DEC ":",
           (fmt_size_t)our_pseudo_label);
+  token_location_override(current_location_minus_one());
   gg_insert_into_assembler( ach );
   }
 
@@ -8440,6 +8443,7 @@ perform_outofline_before_until(struct cbl_perform_tgt_t 
*tgt,
   sprintf(ach,
           "_procretb." HOST_SIZE_T_PRINT_DEC ":",
           (fmt_size_t)our_pseudo_label);
+  token_location_override(current_location_minus_one());
   gg_insert_into_assembler( ach );
   }
 
@@ -8503,6 +8507,7 @@ perform_outofline_after_until(struct cbl_perform_tgt_t 
*tgt,
   sprintf(ach,
           "_procretb." HOST_SIZE_T_PRINT_DEC ":",
           (fmt_size_t)our_pseudo_label);
+  token_location_override(current_location_minus_one());
   gg_insert_into_assembler( ach );
   }
 
@@ -8623,6 +8628,7 @@ perform_outofline_testafter_varying(struct 
cbl_perform_tgt_t *tgt,
   sprintf(ach,
           "_procretb." HOST_SIZE_T_PRINT_DEC ":",
           (fmt_size_t)our_pseudo_label);
+  token_location_override(current_location_minus_one());
   gg_insert_into_assembler( ach );
   }
 
@@ -8766,6 +8772,7 @@ perform_outofline_before_varying(   struct 
cbl_perform_tgt_t *tgt,
   sprintf(ach,
           "_procretb." HOST_SIZE_T_PRINT_DEC ":",
           (fmt_size_t)our_pseudo_label);
+  token_location_override(current_location_minus_one());
   gg_insert_into_assembler( ach );
   }